Question from ittoolbox007 on Jun 29 at 3:54 AM REPORT ZPR02_ATSLECTION_SCREEN NO STANDARD PAGE HEADING LINE-SIZE 90 LINE-COUNT 20(3). tables : likp, lips. DATA : IT_LIKP TYPE TABLE OF LIKP, WA_LIKP TYPE LIKP. SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001. PARAMETERS : R1 RADIOBUTTON GROUP G1 USER-COMMAND U1. " USED TO AUTOMATIC SIWICH THE SCREEN SELECT-OPTIONS : S_VBELN FOR LIKP-VBELN MODIF ID ABC. " MODIF ID USED TO SWICH THE SCREEN PARAMETERS R2 RADIOBUTTON GROUP G1. SELECT-OPTIONS : S_LFART FOR LIKP-LFART MODIF ID XYZ, S_LDDAT FOR LIKP-LDDAT MODIF ID XYZ, S_MATNR FOR lips-matnr. PARAMETERS: P_BZIRK TYPE DFIES-FIELDNAME. "LIKP-BZIRK. SELECTION-SCREEN END OF BLOCK b1. INITIALIZATION. P_BZIRK = 'US0020'. S_VBELN-SIGN = 'I'. s_vbeln-option = 'BT'. S_VBELN-LOW = '0080006127'. s_vbeln-high = '0080014144'. APPEND S_VBELN. AT SELECTION-SCREEN. Select SINGLE BZIRK FROM T171 INTO LIKP-BZIRK where bzirk = P_bzirk. IF SY-SUBRC NE 0. "message e001(YMSG) WITH 'NO DATA EXISTS'. " MESSAGE e000(ZTEST). message E000(ZTEST) WITH P_BZIRK. ENDIF. SELECT SINGLE VBElN FROM VBUK INTO likp-vbeln WHERE VBeln IN S_VBeln. IF SY-SUBRC NE 0. "MESSaGE e001(YMSG) WITH 'Please provide' 'correct delivery' 'document number'. MESSaGE e001(Ztest). ENDIF. ULINE. AT SELECTION-SCREEN OUTPUT. LOOP AT SCREEN. IF SCREEN-GROUP1 = 'ABC'. IF R2 = 'X'. "SCREEN-ACTIVE = 0. SCREEN-INPUT = 0. ELSE. " SCREEN-ACTIVE = 1. SCREEN-INPUT = 1. ENDIF. ENDIF. if screen-group1 = 'xyz'. IF R1 = 'x'. screen-INPUT = 0. else. screen-INPUT = 1. endif. endif. MODIFY SCREEN. endloop. AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_BZIRK. TYPES : BEGIN OF TY_STRU, VBELN TYPE LIKP-VBELN, VKORG TYPE LIKP-VKORG, BZIRK TYPE LIKP-BZIRK, END OF TY_STRU. DATA : ITAB TYPE TABLE OF TY_STRU. SELECT VBELN VKORG BZIRK FROM LIKP INTO TABLE ITAB UP TO 100 ROWS WHERE BZIRK NE ' '. SORT ITAB BY BZIRK. DELETE ADJACENT DUPLICATES FROM ITAB COMPARING BZIRK. CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING * DDIC_STRUCTURE = ' ' RETFIELD = P_BZIRK * PVALKEY = ' ' DYNPPROG = SY-REPID DYNPNR = '1000 ' DYNPROFIELD = 'P_BZIRK ' * STEPL = 0 * WINDOW_TITLE = * VALUE = ' ' VALUE_ORG = 'S' * MULTIPLE_CHOICE = ' ' * DISPLAY = ' ' * CALLBACK_PROGRAM = ' ' * CALLBACK_FORM = ' ' * CALLBACK_METHOD = * MARK_TAB = * IMPORTING * USER_RESET = TABLES VALUE_TAB = ITAB[] * FIELD_TAB = * RETURN_TAB = * DYNPFLD_MAPPING = EXCEPTIONS PARAMETER_ERROR = 1 NO_VALUES_FOUND = 2 OTHERS = 3 . . IF SY-SUBRC <> 0. * Implement suitable error handling here ENDIF. AT SELECTION-SCREEN ON HELP-REQUEST FOR P_BZIRK. TYPES : BEGIN OF TY_HELP, LINE(120) TYPE C, END OF TY_HELP. DATA : IT_HELP TYPE TABLE OF TY_HELP, WA_HELP TYPE TY_HELP. WA_HELP-line ' This documentation for sales district'. append wa_help TO it_help. wa_help-line = ' This was done in at selection screen on help req'. append wa_help TO it_help. CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY_OK' EXPORTING ENDPOS_COL = '50' ENDPOS_ROW = '30' STARTPOS_COL = '5' STARTPOS_ROW = '5' TITLETEXT = 'F1-HELP' * IMPORTING * CHOISE = TABLES VALUETAB = IT_HELP EXCEPTIONS BREAK_OFF = 1 OTHERS = 2 . IF SY-SUBRC <> 0. * Implement suitable error handling here ENDIF. START-OF-SLECTION. IF R1 = 'X'. SELECT * FROM LIKP INTO TABLE IT_LIKP WHERE VBLEN IN S_VBLEN. ELSE SELECT * FROM LIKP INTO TABLE IT_LIKP WHERE LFART IN s_LFART AND LDDAT IN S_LDDAT AND BZIRK = p_BZIRK. ENDIF. END-OF-SLECTION. LOOP AT IT_LIKP INTO WA_LIKP. WRITE :/ sy-vline, 2 WA_LIKP-VBLEN, 20 WA_LIKP-VSTEL, 40 WA_LIKP-VKORG, 60 WA_LIKP-INCO1, 90 SY-VLINE. ENDLOOP. TOP-OF-PAGE. WRITE : SY-ULINE, / SY-VLINE, 20 'Delivery Document Details', 90 Sy-vline, / SY-uline, / SY-VLINE, 2 'Delivery Document Details', 90 sy-vline, /sy-uline, /sy-vline, 20 'Delivery doc no', 40 ' Sales Organization', 60 'Incoterms', 90 SY-vline, / SY-ULINE. error "Wa_help-line '' is not defined. check your spelling | Reply to this email to post your response. __.____._ | _.____.__ |