Dear Exerts,
I need your valuable suggestions,
I am writing one interactive report in se38
Everything is fine.
but what i need is in selection screen .
Before executing the code if the parameters are empty i need to provide one error message at footer.
Here is my code.
if the values are empty error messages are populated but out put is not coming.
but comment the error message at - at selection screen out put is coming.
i checked in debugging mode sy-subrc = 0 and no of records it is showing in debug mode if i put break points
but out put is not coming if i enable the at selection screen event.
Can any body tell the what is the mistake i had done...
DATA V1 TYPE LFA1-LIFNR.
SELECT-OPTIONS S_LIFNR FOR V1.
TYPES: BEGIN OF TY_LFA1,
LIFNR TYPE LFA1-LIFNR,
NAME1 TYPE LFA1-NAME1,
ORT01 TYPE LFA1-ORT01,
END OF TY_LFA1.
DATA: WA_LFA1 TYPE TY_LFA1,
IT_LFA1 TYPE TABLE OF TY_LFA1.
TYPES: BEGIN OF TY_EKKO,
EBELN TYPE EKKO-EBELN,
BEDAT TYPE EKKO-BEDAT,
LIFNR TYPE EKKO-LIFNR,
END OF TY_EKKO.
DATA: WA_EKKO TYPE TY_EKKO,
IT_EKKO TYPE TABLE OF TY_EKKO.
TYPES: BEGIN OF TY_EKPO,
EBELN TYPE EKPO-EBELN,
EBELP TYPE EKPO-EBELP,
MENGE TYPE EKPO-MENGE,
MEINS TYPE EKPO-MEINS,
NETPR TYPE EKPO-NETPR,
END OF TY_EKPO.
DATA: WA_EKPO TYPE TY_EKPO,
IT_EKPO TYPE TABLE OF TY_EKPO.
*APPEND S_LIFNR.
AT SELECTION-SCREEN.
IF S_LIFNR IS INITIAL.
MESSAGE E000(ZSRI).
ENDIF.
SELECT LIFNR NAME1 ORT01 FROM LFA1 INTO TABLE IT_LFA1 WHERE LIFNR IN S_LIFNR.
IF SY-SUBRC = 0.
LOOP AT IT_LFA1 INTO WA_LFA1.
WRITE:/ WA_LFA1-LIFNR,
WA_LFA1-NAME1,
WA_LFA1-ORT01.
hide: WA_LFA1-LIFNR,
WA_LFA1-NAME1,
WA_LFA1-ORT01.
ENDLOOP.
ELSE.
WRITE: 'No records found..'.
ENDIF.
AT LINE-SELECTION.
IF SY-LSIND = '1'.
SELECT EBELN BEDAT LIFNR FROM EKKO INTO TABLE IT_EKKO WHERE LIFNR = WA_LFA1-LIFNR.
IF SY-SUBRC = 0.
LOOP AT IT_EKKO INTO WA_EKKO.
WRITE:/ WA_EKKO-EBELN,
WA_EKKO-BEDAT,
WA_EKKO-LIFNR.
HIDE: WA_EKKO-EBELN,
WA_EKKO-BEDAT,
WA_EKKO-LIFNR.
ENDLOOP.
ELSE.
WRITE: ' No matchng records are found'.
ENDIF.
ENDIF.
AT LINE-SELECTION.
IF SY-LSIND = '2'.
SELECT EBELN EBELP MENGE MEINS NETPR FROM EKPO INTO TABLE IT_EKPO WHERE EBELN = WA_EKKO-EBELN.
IF SY-SUBRC = 0.
loop at it_ekpo into wa_ekpo.
write:/ WA_EKPO-EBELN,
WA_EKPO-EBELP,
WA_EKPO-MENGE,
WA_EKPO-MEINS,
WA_EKPO-NETPR.
ENDLOOP.
ELSE.
WRITE: ' No matching records found'.
ENDIF.
ENDIF.
TOP-OF-PAGE.
format color 5.
write:/ ' LIFNR',12 'ORT01', 48 'NAME1'.