Skip to Content
0
Former Member
Nov 29, 2008 at 05:58 AM

displaying one plant data

47 Views

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.