ABAP_实现F4帮助联动_abapalv搜索帮助 - CSDN文库

4星 · 超过85%的资源需积分: 41 184 浏览量更新于2023-03-16 评论 1 收藏 29KB DOC 举报

身份认证购VIP最低享 7 折!

领优惠券(最高得80元）

资源详情

资源评论

资源推荐

**&---------------------------------------------------------------

------*

**& F4°ïÖúµÄÁª¶¯

**&---------------------------------------------------------------

------*

TABLES: AUFK, AFIH, T001W.

DATA: BEGIN OF T_T001W OCCURS 0 ,

WERKS TYPE T001W-WERKS,

NAME1 TYPE T001W-NAME1,

END OF T_T001W.

DATA: BEGIN OF T_T024I OCCURS 0 ,

IWERK TYPE T024I-IWERK,

INGRP TYPE T024I-INGRP,

INNAM TYPE T024I-INNAM,

END OF T_T024I.

DATA:BEGIN OF T_CONDITION_SQL OCCURS 0,

CONDITION(80),

END OF T_CONDITION_SQL.

DATA RET_ITAB LIKE DDSHRETVAL OCCURS 0 WITH HEADER LINE.

SELECTION-SCREEN BEGIN OF BLOCK BLOCK1 WITH FRAME TITLE TEXT1.

SELECT-OPTIONS S_IWERK FOR AUFK-WERKS OBLIGATORY. "¹¤³§

SELECT-OPTIONS S_AUFNR FOR AUFK-AUFNR . "¶©µ¥±àºÅ

SELECT-OPTIONS S_AUART FOR AUFK-AUART. "¶©µ¥ÀàÐÍ

SELECT-OPTIONS S_INGPR FOR AFIH-INGPR OBLIGATORY. "¼Æ»®ÈËÔ±×é

SELECT-OPTIONS S_ERDAT FOR AUFK-ERDAT. "´´½¨ÈÕÆÚ

SELECTION-SCREEN END OF BLOCK BLOCK1.

INITIALIZATION.

TEXT1 = 'Ñ¡ÔñÆÁÄ»'.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF SCREEN-NAME = 'S_IWERK-LOW'.

SCREEN-INPUT = '0'.

SCREEN-OUTPUT = '1'.

MODIFY SCREEN.

ENDIF.

IF SCREEN-NAME = 'S_IWERK-HIGH'.

SCREEN-INPUT = '0'.

SCREEN-OUTPUT = '1'.

MODIFY SCREEN.

本内容试读结束，登录后可阅读更多

下载后可阅读完整内容，剩余4页未读，立即下载

评论1

chasemoxiang

2020-04-07

感谢分享，有用，谢谢！

zhulesun

粉丝: 0
资源: 5

会员权益专享

图片转文字

全年可省5，000元立即开通

最新资源

资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！点击此处反馈