topic Re: ALV in Application Development and Automation Discussions

ALV

Former Member — Wed, 05 Nov 2008 10:13:11 GMT

Hi Experts,

Need your help ~~urgently~~ How can I divide Output Screen into two parts.One displaying BOm components and other displaying components in the Production order..

Please reply ...

Thanks and Regards,

Neha Kapoor

Edited by: Matt on Nov 5, 2008 11:24 AM - Please don't use the crossed out word - it is considered by many to be rather rude. And in future, please use a more meaningful subject. Thank-you

<LOCKED BY MODERATOR - USE APPROPRIATE TITLES>

Edited by: Alvaro Tejada Galindo on Nov 5, 2008 11:24 AM

Re: ALV

Former Member — Wed, 05 Nov 2008 10:14:12 GMT

Hi,

You can go for docking container, where you can display two alv on a sampe page one up and other below.

Thanks & Regards,

Navneeth K.

Re: ALV

Former Member — Wed, 05 Nov 2008 10:15:32 GMT

Check Standard program BCALV_DND_02.

Here one alv is placed on top. Same was you can also place one at the bottom, by passing a 'TOP/BOTTOM' to the respective class.

Re: ALV

Former Member — Wed, 05 Nov 2008 10:17:43 GMT

Hello,

If you want to show the

BOm components in Output and other components in the Production order in one Output in the same screen.

Use Blocked alv

REUSE_ALV_BLOCK_LIST_INIT

REUSE_ALV_BLOCK_LIST_APPEND

REUSE_ALV_BLOCK_LIST_DISPLAY

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'

EXPORTING

i_callback_program = y_v_repid.

To Build the Field Catalog Synthesis
To build the Layout

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

is_layout = y_lwa_layout

it_fieldcat = y_lwa_fieldcat1

i_tabname = 'Y_I_ERROROCC'

it_events = y_lwa_eventtab

TABLES

t_outtab = y_i_errorocc

EXCEPTIONS

program_error = 1

maximum_of_appends_reached = 2

OTHERS = 3.

IF sy-subrc NE y_k_zero.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

To Build the Field Catalog Header

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

is_layout = y_lwa_layout

it_fieldcat = y_lwa_fieldcat1

i_tabname = 'Y_I_ERROROCC'

it_events = y_lwa_eventtab

TABLES

t_outtab = y_i_errorocc

EXCEPTIONS

program_error = 1

maximum_of_appends_reached = 2

OTHERS = 3.

IF sy-subrc NE y_k_zero.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'

EXPORTING

is_print = y_lwa_print2.

Re: ALV

Former Member — Wed, 05 Nov 2008 10:22:53 GMT

hi.. check these..

1. tcode: DWDM

3. http://help.sap.com/saphelp_sm32/helpdata/en/f5/4f6e0a9f2511d295cc00a0c930660b/frameset.htm

regards,

Padma

Re: ALV

Former Member — Wed, 05 Nov 2008 10:24:28 GMT

Hi Navneeth ,

Thanks for ur reply. I donot want to divide it as One in Top and other in Bottom.

I want it as One on Left side and other on Right.

Thanks and Regards,

Neha Kapoor

Re: ALV

Former Member — Wed, 05 Nov 2008 10:24:56 GMT

Hi,

Use docking container then you can see the two outputs in the screen.

Regards

Manjari.

Re: ALV

Former Member — Wed, 05 Nov 2008 12:32:05 GMT

REPORT ZSRK_027 .

TABLES : VBAP.

CLASS LCL_EVENT_HANDLER DEFINITION DEFERRED.

TYPES : BEGIN OF TP_SAL,

CH(2),

TEXT TYPE CHAR40,

TEXTT TYPE CHAR40,

VBELN TYPE VBELN_VA,

POSNR TYPE POSNR_VA,

MATNR TYPE MATNR,

MATKL TYPE MATKL,

PRODH TYPE PRODH_D,

MEINS TYPE MEINS,

NETWR TYPE NETWR_AP,

WAERK TYPE WAERK,

KWMENG TYPE KWMENG,

BRGEW TYPE BRGEW_AP,

NTGEW TYPE NTGEW_AP,

GEWEI TYPE GEWEI,

WERKS TYPE WERKS_EXT,

LGORT TYPE LGORT_D,

VSTEL TYPE VSTEL,

END OF TP_SAL.

DATA : IG_SAL TYPE TABLE OF TP_SAL,

IG_DRAG TYPE TABLE OF TP_SAL,

IG_FIELDCATALOG TYPE LVC_T_FCAT.

DATA : WG_SAL TYPE TP_SAL,

WG_DRAG TYPE TP_SAL,

WG_LAYOUT TYPE LVC_S_LAYO,

WG_LAYOUTD TYPE LVC_S_LAYO.

DATA : GR_ALVGRID TYPE REF TO CL_GUI_ALV_GRID,

GR_ALVGRIDD TYPE REF TO CL_GUI_ALV_GRID,

GR_EVENT_HANDLER TYPE REF TO LCL_EVENT_HANDLER,

GR_EVENT_HANDLERD TYPE REF TO LCL_EVENT_HANDLER,

G_DOCKING_CONTAINER TYPE REF TO CL_GUI_DOCKING_CONTAINER,

G_DOCKING_CONTAINERD TYPE REF TO CL_GUI_DOCKING_CONTAINER,

GR_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,

GR_CUSTOM_CONTAINERD TYPE REF TO CL_GUI_CUSTOM_CONTAINER.

DATA : G_OK_CODE TYPE SY-UCOMM.

SELECT-OPTIONS : S_VBELN FOR VBAP-VBELN.

----

CLASS lcl_event_handler DEFINITION

----

CLASS LCL_EVENT_HANDLER DEFINITION.

PUBLIC SECTION.

METHODS :

HANDLE_USER_COMMAND FOR EVENT USER_COMMAND OF CL_GUI_ALV_GRID

IMPORTING E_UCOMM.

ENDCLASS. "lcl_event_handler DEFINITION

----

CLASS lcl_event_handler IMPLEMENTATION

----

CLASS LCL_EVENT_HANDLER IMPLEMENTATION.

METHOD HANDLE_USER_COMMAND.

CASE E_UCOMM.

WHEN 'SAVE'.

................

ENDCASE.

ENDMETHOD. "HANDLE_USER_COMMAND

ENDCLASS. "lcl_event_handler IMPLEMENTATION

START-OF-SELECTION.

SELECT VBELN POSNR MATNR MATKL PRODH MEINS NETWR

WAERK KWMENG BRGEW NTGEW GEWEI WERKS LGORT VSTEL

FROM VBAP

INTO CORRESPONDING FIELDS OF TABLE IG_SAL

WHERE VBELN IN S_VBELN.

CALL SCREEN 3002.

&----

*& Form PREPARE_FIELDCATALOG

&----

text

----

<--P_IG_FIELDCATALOG text

----

FORM PREPARE_FIELDCATALOG CHANGING FP_IG_FIELDCATALOG TYPE LVC_T_FCAT.

DATA : WA_FCAT TYPE LVC_S_FCAT.

CLEAR WA_FCAT.

WA_FCAT-FIELDNAME = 'CH'.

WA_FCAT-COLTEXT = 'CHECKBOX'.

WA_FCAT-OUTPUTLEN = 2.

WA_FCAT-NO_OUT = 'X'.

WA_FCAT-EDIT = 'X'.

APPEND WA_FCAT TO FP_IG_FIELDCATALOG.

CLEAR WA_FCAT.

WA_FCAT-FIELDNAME = 'TEXT'.

WA_FCAT-TECH = 'X'.

WA_FCAT-NO_OUT = 'X'.

APPEND WA_FCAT TO FP_IG_FIELDCATALOG.

CLEAR WA_FCAT.

WA_FCAT-FIELDNAME = 'TEXTT'.

WA_FCAT-TECH = 'X'.

WA_FCAT-NO_OUT = 'X'.

APPEND WA_FCAT TO FP_IG_FIELDCATALOG.

CLEAR WA_FCAT.

WA_FCAT-FIELDNAME = 'VBELN'.

WA_FCAT-REF_TABLE = 'VBAP'.

WA_FCAT-COLTEXT = 'SALES ORDER NO'.

WA_FCAT-OUTPUTLEN = 14.

WA_FCAT-HOTSPOT = 'X'.

APPEND WA_FCAT TO FP_IG_FIELDCATALOG.

CLEAR WA_FCAT.

WA_FCAT-FIELDNAME = 'POSNR'.

WA_FCAT-REF_TABLE = 'VBAP'.

WA_FCAT-COLTEXT = 'ITEM NO'.

WA_FCAT-OUTPUTLEN = 8.

APPEND WA_FCAT TO FP_IG_FIELDCATALOG.

CLEAR WA_FCAT.

WA_FCAT-FIELDNAME = 'MATNR'.

WA_FCAT-REF_TABLE = 'VBAP'.

WA_FCAT-COLTEXT = 'PART NO'.

WA_FCAT-OUTPUTLEN = 18.

APPEND WA_FCAT TO FP_IG_FIELDCATALOG.

CLEAR WA_FCAT.

WA_FCAT-FIELDNAME = 'MATKL'.

WA_FCAT-REF_TABLE = 'VBAP'.

WA_FCAT-COLTEXT = 'MAT GROUP'.

WA_FCAT-OUTPUTLEN = 10.

APPEND WA_FCAT TO FP_IG_FIELDCATALOG.

CLEAR WA_FCAT.

WA_FCAT-FIELDNAME = 'PRODH'.

WA_FCAT-REF_TABLE = 'VBAP'.

WA_FCAT-COLTEXT = 'PRODUCT HIER'.

WA_FCAT-OUTPUTLEN = 18.

APPEND WA_FCAT TO FP_IG_FIELDCATALOG.

CLEAR WA_FCAT.

WA_FCAT-FIELDNAME = 'MEINS'.

WA_FCAT-REF_TABLE = 'VBAP'.

WA_FCAT-COLTEXT = 'UNIT OF MEASURE'.

WA_FCAT-OUTPUTLEN = 15.

APPEND WA_FCAT TO FP_IG_FIELDCATALOG.

CLEAR WA_FCAT.

WA_FCAT-FIELDNAME = 'NETWR'.

WA_FCAT-REF_TABLE = 'VBAP'.

WA_FCAT-COLTEXT = 'NET VALUE'.

WA_FCAT-OUTPUTLEN = 21.

WA_FCAT-DO_SUM = 'X'.

APPEND WA_FCAT TO FP_IG_FIELDCATALOG.

CLEAR WA_FCAT.

WA_FCAT-FIELDNAME = 'WAERK'.

WA_FCAT-REF_TABLE = 'VBAP'.

WA_FCAT-COLTEXT = 'CURRENCY'.

WA_FCAT-OUTPUTLEN = 8.

WA_FCAT-DRDN_HNDL = '1'.

WA_FCAT-DRDN_FIELD = 'HANDLE'.

APPEND WA_FCAT TO FP_IG_FIELDCATALOG.

CLEAR WA_FCAT.

WA_FCAT-FIELDNAME = 'KWMENG'.

WA_FCAT-REF_TABLE = 'VBAP'.

WA_FCAT-COLTEXT = 'QUANTITY'.

WA_FCAT-OUTPUTLEN = 19.

APPEND WA_FCAT TO FP_IG_FIELDCATALOG.

CLEAR WA_FCAT.

WA_FCAT-FIELDNAME = 'BRGEW'.

WA_FCAT-REF_TABLE = 'VBAP'.

WA_FCAT-COLTEXT = 'GROSS WT'.

WA_FCAT-OUTPUTLEN = 19.

APPEND WA_FCAT TO FP_IG_FIELDCATALOG.

CLEAR WA_FCAT.

WA_FCAT-FIELDNAME = 'NTGEW'.

WA_FCAT-REF_TABLE = 'VBAP'.

WA_FCAT-COLTEXT = 'NET WEIGHT'.

WA_FCAT-OUTPUTLEN = 19.

APPEND WA_FCAT TO FP_IG_FIELDCATALOG.

CLEAR WA_FCAT.

WA_FCAT-FIELDNAME = 'GEWEI'.

WA_FCAT-REF_TABLE = 'VBAP'.

WA_FCAT-COLTEXT = 'WEIGHT UNIT'.

WA_FCAT-OUTPUTLEN = 11.

APPEND WA_FCAT TO FP_IG_FIELDCATALOG.

CLEAR WA_FCAT.

WA_FCAT-FIELDNAME = 'WERKS'.

WA_FCAT-REF_TABLE = 'VBAP'.

WA_FCAT-COLTEXT = 'PLANT'.

WA_FCAT-OUTPUTLEN = 5.

APPEND WA_FCAT TO FP_IG_FIELDCATALOG.

CLEAR WA_FCAT.

WA_FCAT-FIELDNAME = 'LGORT'.

WA_FCAT-REF_TABLE = 'VBAP'.

WA_FCAT-COLTEXT = 'STOR LOC'.

WA_FCAT-OUTPUTLEN = 8.

APPEND WA_FCAT TO FP_IG_FIELDCATALOG.

CLEAR WA_FCAT.

WA_FCAT-FIELDNAME = 'VSTEL'.

WA_FCAT-REF_TABLE = 'VBAP'.

WA_FCAT-COLTEXT = 'SHIP POINT'.

WA_FCAT-OUTPUTLEN = 10.

APPEND WA_FCAT TO FP_IG_FIELDCATALOG.

ENDFORM. "prepare_fieldcatalog

&----

*& Form LAYOUT

&----

text

----

--> p1 text
<-- p2 text

----

FORM LAYOUT CHANGING CS_LAYO TYPE LVC_S_LAYO.

WG_LAYOUT-SEL_MODE = 'D'.

WG_LAYOUT-CWIDTH_OPT = 'X'.

WG_LAYOUT-GRID_TITLE = 'ALV TITLE'.

WG_LAYOUT-NO_HGRIDLN = 'X'.

WG_LAYOUT-NO_VGRIDLN = 'X'.

WG_LAYOUT-NO_TOTLINE = 'X'.

ENDFORM. " LAYOUT

&----

*& Form ALV_GRID_DISPLAY

&----

text

----

--> p1 text
<-- p2 text

----

FORM ALV_GRID_DISPLAY .

CALL METHOD GR_ALVGRID->SET_TABLE_FOR_FIRST_DISPLAY

EXPORTING

I_SAVE = 'U'

I_DEFAULT = 'X'

IS_LAYOUT = WG_LAYOUT

CHANGING

IT_OUTTAB = IG_SAL

IT_FIELDCATALOG = IG_FIELDCATALOG.

ENDFORM. " ALV_GRID_DISPLAY

&----

*& Form ALV_GRID_DISPLAY1

&----

text

----

--> p1 text
<-- p2 text

----

FORM ALV_GRID_DISPLAY1 .

CALL METHOD GR_ALVGRIDD->SET_TABLE_FOR_FIRST_DISPLAY

EXPORTING

I_SAVE = 'U'

I_DEFAULT = 'X'

IS_LAYOUT = WG_LAYOUTD

CHANGING

IT_OUTTAB = IG_SAL

IT_FIELDCATALOG = IG_FIELDCATALOG.

ENDFORM. " ALV_GRID_DISPLAY1

&----

*& Form LAYOUTd

&----

text

----

<--P_WG_LAYOUTd text

----

FORM LAYOUTD CHANGING CS_LAYO TYPE LVC_S_LAYO.

CS_LAYO-SEL_MODE = 'A'.

CS_LAYO-CWIDTH_OPT = 'X'.

CS_LAYO-GRID_TITLE = 'ALV TITLE'.

CS_LAYO-NO_HGRIDLN = 'X'.

CS_LAYO-NO_VGRIDLN = 'X'.

CS_LAYO-NO_TOTLINE = 'X'.

ENDFORM. " LAYOUTd

&----

*& Module STATUS_3002 OUTPUT

&----

text

----

MODULE STATUS_3002 OUTPUT.

SET PF-STATUS 'ZTOOL'.

SET TITLEBAR 'ZTITLE'.

create docking container for alv controlD*

CREATE OBJECT G_DOCKING_CONTAINERD

EXPORTING

REPID = SY-REPID

DYNNR = '3002'

EXTENSION = 680 "Increase or decrease the value to change width

SIDE = CL_GUI_DOCKING_CONTAINER=>DOCK_AT_LEFT.

IF SY-SUBRC <> 0.

MESSAGE a000.*

ENDIF.

create docking container for alv control*

CREATE OBJECT G_DOCKING_CONTAINER

EXPORTING

REPID = SY-REPID

DYNNR = '3002'

EXTENSION = 620 "Increase or decrease the value to change width

SIDE = CL_GUI_DOCKING_CONTAINER=>DOCK_AT_RIGHT.

IF SY-SUBRC <> 0.

MESSAGE a000.*

ENDIF.

create alv control*

CREATE OBJECT GR_ALVGRID

EXPORTING I_PARENT = G_DOCKING_CONTAINER.

CREATE OBJECT GR_ALVGRIDD

EXPORTING I_PARENT = G_DOCKING_CONTAINERD.

CREATE OBJECT GR_EVENT_HANDLER.

PERFORM PREPARE_FIELDCATALOG CHANGING IG_FIELDCATALOG.

PERFORM LAYOUT CHANGING WG_LAYOUT.

PERFORM ALV_GRID_DISPLAY.

PERFORM ALV_GRID_DISPLAY1.

ENDMODULE. " STATUS_3002 OUTPUT

&----

*& Module USER_COMMAND_3002 INPUT

&----

text

----

MODULE USER_COMMAND_3002 INPUT.

CASE G_OK_CODE.

WHEN 'BACK'.

LEAVE TO SCREEN 0.

WHEN '%EX'.

LEAVE PROGRAM.

ENDCASE.

ENDMODULE. " USER_COMMAND_3002 INPUT

Edited by: sreekanth reddy on Nov 5, 2008 6:02 PM

Edited by: sreekanth reddy on Nov 5, 2008 6:03 PM

Edited by: sreekanth reddy on Nov 5, 2008 6:04 PM

Edited by: sreekanth reddy on Nov 5, 2008 6:05 PM