Hi experts,
In the below programme, it is displaying only one plant data plant data it is not the other plant data, we got two plants.
Please explain what are the changes to be made to make it to read other plant data.
Tables: VBRK,VBRP.
TYPE-POOLS: SLIS.
DATA : IT_FCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA : WA_FCAT TYPE SLIS_FIELDCAT_ALV.
DATA : BEGIN OF ITAB OCCURS 0,
VBELN LIKE VBRK-VBELN,
FKDAT LIKE VBRK-FKDAT,
BELNR LIKE VBRK-BELNR,
FKIMG LIKE VBRP-FKIMG,
BUPLA LIKE VBRK-BUPLA,
END OF ITAB.
DATA : SNO(4) TYPE C VALUE 1.
SELECT-OPTIONS:
S_VBELN FOR VBRK-VBELN.
PARAMETER S_BUPLA LIKE VBRK-BUPLA OBLIGATORY.
SELECT AVBELN AFKDAT ABELNR BFKIMG A~BUPLA INTO CORRESPONDING FIELDS OF TABLE ITAB
FROM VBRK AS A INNER JOIN VBRP AS B ON AVBELN = BVBELN
WHERE A~VBELN IN S_VBELN.
WA_FCAT-FIELDNAME = 'VBELN'.
WA_FCAT-SELTEXT_M = 'BILLING DOC'.
WA_FCAT-COL_POS = 1.
WA_FCAT-OUTPUTLEN = 10.
APPEND WA_FCAT TO IT_FCAT.
WA_FCAT-FIELDNAME = 'FKDAT'.
WA_FCAT-SELTEXT_M = 'BILLING DOC DATE'.
WA_FCAT-COL_POS = 2.
WA_FCAT-OUTPUTLEN = 6.
APPEND WA_FCAT TO IT_FCAT.
WA_FCAT-FIELDNAME = 'BELNR'.
WA_FCAT-SELTEXT_M = 'ACCOUNTING DOC'.
WA_FCAT-COL_POS = 2.
WA_FCAT-OUTPUTLEN = 6.
APPEND WA_FCAT TO IT_FCAT.
WA_FCAT-FIELDNAME = 'FKIMG'.
WA_FCAT-SELTEXT_M = 'BILLING QTY'.
WA_FCAT-COL_POS = 2.
WA_FCAT-OUTPUTLEN = 6.
APPEND WA_FCAT TO IT_FCAT.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = ' '
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT =
IT_FIELDCAT = IT_FCAT
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = ITAB.
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.