ABAP实现F4帮助联动

《ABAP实现F4帮助联动》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、ABAPʵÏÖF4°ïÖúÁª¶¯.txt12˼ÄîÊÇÒ»Ê×Ê«£¬ÈÃÄãÔÚÆÕͨµÄÈÕ×ÓÀï¶Á³öÔÏÂÉÀ´£»Ë¼ÄîÊÇÒ»ÕóÓ꣬ÈÃÄãÔÚ¿ÝÔïµÄÈÕ×ÓÀïʪÈóÆðÀ´£»Ë¼ÄîÊÇһƬÑô¹â£¬ÈÃÄãµÄÒõÓôµÄÈÕ×ÓÀïÃ÷ÀÊÆðÀ´¡£**&---------------------------------------------------------------------***&F4°ïÖúµÄÁª¶¯**&---------------------

2、------------------------------------------------*TABLES:AUFK,AFIH,T001W.DATA:BEGINOFT_T001WOCCURS0,WERKSTYPET001W-WERKS,NAME1TYPET001W-NAME1,ENDOFT_T001W.DATA:BEGINOFT_T024IOCCURS0,IWERKTYPET024I-IWERK,INGRPTYPET024I-INGRP,INNAMTYPET024I-INNAM,ENDOFT_T024I.DATA:BEGI

3、NOFT_CONDITION_SQLOCCURS0,CONDITION(80),ENDOFT_CONDITION_SQL.DATARET_ITABLIKEDDSHRETVALOCCURS0WITHHEADERLINE.SELECTION-SCREENBEGINOFBLOCKBLOCK1WITHFRAMETITLETEXT1.SELECT-OPTIONSS_IWERKFORAUFK-WERKSOBLIGATORY."¹¤³§SELECT-OPTIONSS_AUFNRFORAUFK-AUFNR."¶©µ¥±àºÅSELECT-OP

4、TIONSS_AUARTFORAUFK-AUART."¶©µ¥ÀàÐÍSELECT-OPTIONSS_INGPRFORAFIH-INGPROBLIGATORY."¼Æ»®ÈËÔ±×éSELECT-OPTIONSS_ERDATFORAUFK-ERDAT."´´½¨ÈÕÆÚSELECTION-SCREENENDOFBLOCKBLOCK1.INITIALIZATION.TEXT1='Ñ¡ÔñÆÁÄ»'.ATSELECTION-SCREENOUTPUT.LOOPATSCREEN.IFSCREEN-NAME='S_IWERK-LOW'.

5、SCREEN-INPUT='0'.SCREEN-OUTPUT='1'.MODIFYSCREEN.ENDIF.IFSCREEN-NAME='S_IWERK-HIGH'.SCREEN-INPUT='0'.SCREEN-OUTPUT='1'.MODIFYSCREEN.ENDIF.ENDLOOP.ATSELECTION-SCREENONVALUE-REQUESTFORS_IWERK-LOW.PERFORMFORM_IWERK_LOW.ATSELECTION-SCREENONVALUE-REQUESTFORS_IWERK-HIGH.PE

6、RFORMFORM_IWERK_HIGH.ATSELECTION-SCREENONVALUE-REQUESTFORS_INGPR-LOW.PERFORMFORM_INGPR.*&---------------------------------------------------------------------**&FormFORM_IWERK*&---------------------------------------------------------------------**&¹¤³§µÄËÑË÷°ïÖú*&-

7、---------------------------------------------------------------------**&F4Ö»¿ÉÒÔÑ¡Ôñ²»¿ÉÒÔÊäÈ룬ÓëS_INGPR-lowÁª¶¯*&S_IWERkµÄÑ¡ÔñÄÚÈÝÖ±½ÓÓ°ÏìS_INGPRÖÐF4µÄÄÚÈÝ*&----------------------------------------------------------------------*FORMFORM_IWERK_LOW.LOOPATSCREEN.IFSC

8、REEN-NAME='S_IWERK-LOW'.SCREEN-INPUT='1'.SCREEN-OUTPUT='1'.MODIFYSCREEN.ENDIF.ENDLOOP.CLEART_T001W.CLEART_T001W[].CLEARRET_ITAB.CLEARRET_I