ALV Grid in Dialog Programing

[Former Member]

I have made Dialog Programme in which i have 4 TABS in my 4th TAB i want to display the Report in ALV, how can i make the ALV report in 4th tab i know it can be done with Container object but how to proceed i don't know,

[Former Member]

Hi,

jus check it out

DATA:GT_ZTMW_HEADER_HIS TYPE TABLE OF ZTMW_HEADER_HIS,

GT_ZTMW_HEADER_WIP TYPE TABLE OF ZTMW_HEADER_WIP,

G_CONTAINER TYPE SCRFNAME VALUE 'TABC',

GRID1 TYPE REF TO CL_GUI_ALV_GRID,

G_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.

DATA:LAYOUT TYPE LVC_S_LAYO.

DATA:FCAT TYPE LVC_T_FCAT.

Field-symbols: <lfs_fieldcat> TYPE lvc_s_fcat.

MODULE STATUS_3007 OUTPUT.

IF G_CUSTOM_CONTAINER IS INITIAL.

CREATE OBJECT G_CUSTOM_CONTAINER

EXPORTING CONTAINER_NAME = G_CONTAINER.

CREATE OBJECT GRID1

EXPORTING I_PARENT = G_CUSTOM_CONTAINER.

PERFORM LAYOUT.

PERFORM FIELD_CAT.

PERFORM FILL_DATA.

CALL METHOD GRID1->SET_TABLE_FOR_FIRST_DISPLAY

EXPORTING

IS_LAYOUT = LAYOUT

CHANGING

IT_FIELDCATALOG = FCAT[]

IT_OUTTAB = GT_ZTMW_HEADER_HIS.

ENDIF.

ENDMODULE.

FORM LAYOUT.

• LAYOUT-EDIT = 'X'.

layout-grid_title = 'List Of Bills Of Lading'.

ENDFORM. "LAYOUT

&----

---

*& Form FIELD_CAT

&----

---

• text

----

---

FORM FIELD_CAT.

CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'

EXPORTING

I_STRUCTURE_NAME = 'ZTMW_HEADER_HIS'

CHANGING

CT_FIELDCAT = FCAT[].

LOOP AT FCAT ASSIGNING <lfs_fieldcat>.

CASE <lfs_fieldcat>-fieldname.

WHEN 'TRANSACTION_NUM'.

<lfs_fieldcat>-coltext = 'IDOC no.'.

WHEN 'FEED_CODE'.

<lfs_fieldcat>-coltext = 'Feed Code'.

WHEN 'BOL_NUM'.

<lfs_fieldcat>-coltext = 'EXT. BOL'.

WHEN 'TERMINAL_CODE'.

<lfs_fieldcat>-coltext = 'Unc.Term Cd'.

WHEN 'TRANSCATION_DATE'.

<lfs_fieldcat>-coltext = 'Trans Date'.

WHEN 'TRANSCATION_TIME'.

<lfs_fieldcat>-coltext = 'Trans Time'.

WHEN 'TRANS_STATUS'.

<lfs_fieldcat>-coltext = 'BOL Status'.

WHEN 'VOID_STATUS'.

<lfs_fieldcat>-coltext = 'Void Status'.

WHEN 'HOLD_STATUS'.

<lfs_fieldcat>-coltext = 'Hold Status'.

WHEN 'PLANT'.

<lfs_fieldcat>-coltext = 'Plant'.

WHEN OTHERS.

<lfs_fieldcat>-no_out = 'X'.

ENDCASE.

ENDLOOP.

ENDFORM. "FIELD_CAT

&----

---

*& Form FILL_DATA

&----

---

• text

----

---

FORM FILL_DATA.

CLEAR GT_ZTMW_HEADER_HIS.

SELECT * FROM ZTMW_HEADER_WIP INTO TABLE GT_ZTMW_HEADER_HIS.

ENDFORM. "FILL_DATA

Prajith

[Former Member]

Hi,

Go through the following link.

https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/docs/library/uuid/e8a1d690-0201-0010-b7ad-d97...

Regards,

Sandhya

[Former Member]

In the above code this line defines your custom container

G_CONTAINER TYPE SCRFNAME VALUE 'TABC',(this is the container name on the sub screen which u r calling into the tab.)

This module has to be written in PAI of the subscreen which u r calling into the tab.

MODULE STATUS_3007 OUTPUT.

IF G_CUSTOM_CONTAINER IS INITIAL.

CREATE OBJECT G_CUSTOM_CONTAINER

EXPORTING CONTAINER_NAME = G_CONTAINER.

CREATE OBJECT GRID1

EXPORTING I_PARENT = G_CUSTOM_CONTAINER.

PERFORM LAYOUT.

PERFORM FIELD_CAT.

PERFORM FILL_DATA.

CALL METHOD GRID1->SET_TABLE_FOR_FIRST_DISPLAY

EXPORTING

IS_LAYOUT = LAYOUT

CHANGING

IT_FIELDCATALOG = FCAT[]

IT_OUTTAB = GT_ZTMW_HEADER_HIS.

ENDIF.

ENDMODULE.

[Former Member]

Hi,

Sorry

This module has to be written in PBO of the subscreen which u r calling into the tab.

MODULE STATUS_3007 OUTPUT.

IF G_CUSTOM_CONTAINER IS INITIAL.

CREATE OBJECT G_CUSTOM_CONTAINER

EXPORTING CONTAINER_NAME = G_CONTAINER.

CREATE OBJECT GRID1

EXPORTING I_PARENT = G_CUSTOM_CONTAINER.

PERFORM LAYOUT.

PERFORM FIELD_CAT.

PERFORM FILL_DATA.

CALL METHOD GRID1->SET_TABLE_FOR_FIRST_DISPLAY

EXPORTING

IS_LAYOUT = LAYOUT

CHANGING

IT_FIELDCATALOG = FCAT[]

IT_OUTTAB = GT_ZTMW_HEADER_HIS.

ENDIF.

ENDMODULE.

Rgds,

Prajith

[Former Member]

hi,

check this code.

write this code in the pbo module of the sub screen (which is attached to the tab).

G_CONTAINER is the container name in the sub screen.

IF G_CUSTOM_CONTAINER IS INITIAL.

CREATE OBJECT G_CUSTOM_CONTAINER

EXPORTING CONTAINER_NAME = G_CONTAINER.

CREATE OBJECT GRID1

EXPORTING I_PARENT = G_CUSTOM_CONTAINER.

PERFORM LAYOUT.

PERFORM FIELD_CAT.

PERFORM FILL_DATA.

CALL METHOD GRID1->SET_TABLE_FOR_FIRST_DISPLAY

EXPORTING

IS_LAYOUT = LAYOUT

CHANGING

IT_FIELDCATALOG = FCAT[]

IT_OUTTAB = GT_ZTMW_HEADER_HIS.

ENDIF.