Reply from umaid on Jun 29 at 4:43 AM Define Wa_Help after line of Report Keyword
| | | ---------------Original Message---------------
From: ittoolbox007
Sent: Thursday, June 29, 2017 3:54 AM
Subject: I Am Facing in SAP ABAP aATselction Screen Program
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. __.____._ | In the Spotlight Become a blogger at Toolbox.com and share your expertise with the community. Start today.   _.____.__ |
