ABAP实现F4帮助联动.doc

ABAP F4.txt12*&-*& 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. ENDIF. ENDLOOP.AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_IWERK-LOW. PERFORM FORM_IWERK_LOW.AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_IWERK-HIGH. PERFORM FORM_IWERK_HIGH.AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_INGPR-LOW. PERFORM FORM_INGPR.*&-*& Form FORM_IWERK*&-*& *&-*& F4S_INGPR-low*& S_IWERkS_INGPRF4*&-*FORM FORM_IWERK_LOW . LOOP AT SCREEN. IF SCREEN-NAME = S_IWERK-LOW. SCREEN-INPUT = 1. SCREEN-OUTPUT = 1. MODIFY SCREEN. ENDIF. ENDLOOP. CLEAR T_T001W. CLEAR T_T001W. CLEAR RET_ITAB.CLEAR RET_ITAB. SELECT WERKS NAME1 FROM T001W INTO CORRESPONDING FIELDS OF TABLE T_T001W. CALL FUNCTION F4IF_INT_TABLE_VALUE_REQUEST EXPORTING RETFIELD = WERKS DYNPPROG = SY-REPID DYNPNR = SY-DYNNR DYNPROFIELD = S_IWERK help VALUE_ORG = S WINDOW_TITLE = TABLES VALUE_TAB = T_T001W RETURN_TAB = RET_ITAB EXCEPTIONS PARAMETER_ERROR = 1 NO_VALUES_FOUND = 2 OTHERS = 3. S_IWERK-LOW = RET_ITAB-FIELDVAL. LOOP AT SCREEN. IF SCREEN-NAME = S_IWERK-LOW. SCREEN-INPUT = 0. SCREEN-OUTPUT = 1. MODIFY SCREEN. ENDIF. ENDLOOP. IF SY-SUBRC 0.* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF.ENDFORM. FORM_IWERK*&-*& Form FORM_IWERK_HIGH*&-* *-* F4*-*FORM FORM_IWERK_HIGH . LOOP AT SCREEN. IF SCREEN-NAME = S_IWERK-HIGH. SCREEN-INPUT = 1. SCREEN-OUTPUT = 1. MODIFY SCREEN. ENDIF. ENDLOOP. CLEAR T_T001W. CLEAR T_T001W. CLEAR RET_ITAB.CLEAR RET_ITAB. SELECT WERKS NAME1 FROM T001W INTO CORRESPONDING FIELDS OF TABLE T_T001W. CALL FUNCTION F4IF_INT_TABLE_VALUE_REQUEST EXPORTING RETFIELD = WERKS DYNPPROG = SY-REPID DYNPNR = SY-DYNNR DYNPROFIELD = S_IWERK help VALUE_ORG = S WINDOW_TITLE = TABLES VALUE_TAB = T_T001W RETURN_TAB = RET_ITAB EXCEPTIONS PARAMETER_ERROR = 1 NO_VALUES_FOUND = 2 OTHERS = 3. S_IWERK-HIGH = RET_ITAB-FIELDVAL. LOOP AT SCREEN. IF SCREEN-NAME = S_IWERK-HIGH. SCREEN-INPUT = 0. SCREEN-OUTPUT = 1. MODIFY SCREEN. ENDIF. ENDLOOP. IF SY-SUBRC 0.* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF.ENDFORM. FORM_IWERK_HIGH*&-*& Form FORM_INGPR*&-* *-* SQL,S_IWERK*-*FORM FORM_INGPR . CLEAR T_T024I.CLEAR T_T024I. CLEAR T_CONDITION_SQL. CLEAR T_CONDITION_SQL. T_CONDITION_SQL-CONDITION = IWERK = S_IWERK-LOW AND IWERK = S_IWERK-HIGH. APPEND T_CONDITION_SQL. SELECT IWERK INGRP INNAM FROM T024I INTO CORRESPONDING FIELDS OF TABLE T_T024I WHERE (T_CONDITION_SQL). CALL FUNCTION F4IF_INT_TABLE_VALUE_REQUEST EXPORTING RETFIELD = INGRP DYNPPROG = SY-REPID DYNPNR = SY-DYNNR DYNPROFIELD = S_INGRP help VALUE_ORG = S WINDOW_TITLE = TABLES VALUE_TAB = T_T024I EXCEPTIONS P