Re: ALV output save

Former Member — Wed, 15 Oct 2008 10:17:52 GMT

after changing value press enter and then save.

TABLES : MARA.

TYPES : BEGIN OF SMARA,

MATNR TYPE MARA-MATNR,

ERSDA TYPE MARA-ERSDA,

ERNAM TYPE MARA-ERNAM,

MTART TYPE MARA-MTART,

MBRSH TYPE MARA-MBRSH,

MATKL TYPE MARA-MATKL,

BRGEW TYPE MARA-BRGEW,

NTGEW TYPE MARA-NTGEW,

GEWEI TYPE MARA-GEWEI,

CELLTAB TYPE LVC_T_STYL,

END OF SMARA.

DATA : IMARA TYPE TABLE OF SMARA,

WMARA TYPE SMARA.

DATA : TMARA TYPE TABLE OF MARA,

TWMARA TYPE MARA.

DATA : L_INDEX TYPE I,

LT_CELLTAB TYPE LVC_T_STYL.

DATA : G_CONTAINER TYPE SCRFNAME VALUE 'GRID1',

GRID1 TYPE REF TO CL_GUI_ALV_GRID,

G_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,

MODIFIED TYPE REF TO CL_ALV_CHANGED_DATA_PROTOCOL,

SLAYOUT TYPE LVC_S_LAYO,

IFIELDCAT TYPE LVC_T_FCAT,

WFIELDCAT TYPE LVC_S_FCAT,

ISORT TYPE LVC_T_SORT,

WSORT TYPE LVC_S_SORT,

ISROWS TYPE LVC_T_ROID,

WSROWS TYPE LVC_S_ROID,

REFRESH TYPE LVC_S_STBL.

local class to handle semantic checks

CLASS LCL_EVENT_RECEIVER DEFINITION DEFERRED.

DATA: G_EVENT_RECEIVER TYPE REF TO LCL_EVENT_RECEIVER.

CLASS LCL_EVENT_RECEIVER DEFINITION.

PUBLIC SECTION.

METHODS:

HANDLE_DATA_CHANGED

FOR EVENT DATA_CHANGED OF CL_GUI_ALV_GRID

IMPORTING ER_DATA_CHANGED E_UCOMM.

PRIVATE SECTION.

DATA: ERROR_IN_DATA TYPE C.

METHODS: SAVE_ERNAM

IMPORTING

PERNAM TYPE LVC_S_MODI

PMARA TYPE MARA

PR_DATA_CHANGED TYPE REF TO CL_ALV_CHANGED_DATA_PROTOCOL.

METHODS: SAVE_BRGEW

IMPORTING

PBRGEW TYPE LVC_S_MODI

PMARA TYPE MARA

PR_DATA_CHANGED TYPE REF TO CL_ALV_CHANGED_DATA_PROTOCOL.

ENDCLASS.

CLASS LCL_EVENT_RECEIVER IMPLEMENTATION.

METHOD HANDLE_DATA_CHANGED.

DATA: LS_GOOD TYPE LVC_S_MODI.

DATA : MMARA TYPE MARA.

ERROR_IN_DATA = SPACE.

LOOP AT ER_DATA_CHANGED->MT_GOOD_CELLS INTO LS_GOOD.

CASE LS_GOOD-FIELDNAME.

check if column ERNAM of this row was changed

WHEN 'ERNAM'.

CALL METHOD SAVE_ERNAM

EXPORTING

PERNAM = LS_GOOD

PMARA = MMARA

PR_DATA_CHANGED = ER_DATA_CHANGED.

WHEN 'BRGEW'.

CALL METHOD SAVE_BRGEW

EXPORTING

PBRGEW = LS_GOOD

PMARA = MMARA

PR_DATA_CHANGED = ER_DATA_CHANGED.

ENDCASE.

ENDLOOP.

*§7.Display application log if an error has occured.

IF ERROR_IN_DATA EQ 'X'.

CALL METHOD ER_DATA_CHANGED->DISPLAY_PROTOCOL.

ENDIF.

ENDMETHOD.

METHOD SAVE_ERNAM.

DATA : VERNAM TYPE ERNAM.

CALL METHOD PR_DATA_CHANGED->GET_CELL_VALUE

EXPORTING I_ROW_ID = PERNAM-ROW_ID

I_FIELDNAME = PERNAM-FIELDNAME

IMPORTING E_VALUE = VERNAM.

WMARA-ERNAM = VERNAM .

MODIFY IMARA FROM WMARA INDEX PERNAM-ROW_ID TRANSPORTING ERNAM.

APPEND TWMARA TO TMARA.
CALL METHOD PR_DATA_CHANGED->MODIFY_CELL
EXPORTING I_ROW_ID = PERNAM-ROW_ID
I_FIELDNAME = 'ERNAM'
I_VALUE = VERNAM.

ENDMETHOD.

METHOD SAVE_BRGEW.

DATA : VBRGEW TYPE BRGEW.

CALL METHOD PR_DATA_CHANGED->GET_CELL_VALUE

EXPORTING I_ROW_ID = PBRGEW-ROW_ID

I_FIELDNAME = PBRGEW-FIELDNAME

IMPORTING E_VALUE = VBRGEW.

WMARA-BRGEW = VBRGEW .

MODIFY IMARA FROM WMARA INDEX PBRGEW-ROW_ID TRANSPORTING BRGEW.

APPEND TWMARA TO TMARA.
CALL METHOD PR_忉ATA_CHANGED->MODIFY_CELL
EXPORTING I_ROW_ID = PERNAM-ROW_ID
I_FIELDNAME = 'ERNAM'
I_VALUE = VERNAM.

ENDMETHOD.

ENDCLASS.

SELECT-OPTIONS : S_MATNR FOR MARA-MATNR.

START-OF-SELECTION.

CALL SCREEN 2000.

*&----

*& Module STATUS_2000 OUTPUT

*&----

text

*----

MODULE STATUS_2000 OUTPUT.

SET PF-STATUS 'SAS'.

SET TITLEBAR 'xxx'.

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.

SELECT MATNR

ERSDA

ERNAM

MTART

MBRSH

MATKL

BRGEW

NTGEW

GEWEI

FROM MARA

INTO CORRESPONDING FIELDS OF TABLE IMARA

WHERE MATNR IN S_MATNR.

LOOP AT IMARA INTO WMARA.

REFRESH LT_CELLTAB.

L_INDEX = SY-TABIX.

IF WMARA-ERNAM <> 'RUDISILL'.

PERFORM FILL_CELLTAB USING '00080000'

CHANGING LT_CELLTAB.

ELSE.

PERFORM FILL_CELLTAB USING '00100000'

CHANGING LT_CELLTAB.

ENDIF.

INSERT LINES OF LT_CELLTAB INTO TABLE WMARA-CELLTAB.

MODIFY IMARA INDEX L_INDEX FROM WMARA.

ENDLOOP.

********STYLE***************

SLAYOUT-STYLEFNAME = 'CELLTAB'.

SLAYOUT-SEL_MODE = 'C'.

******************************

*******FIELDCAT*************

WFIELDCAT-COL_POS = '1'.

WFIELDCAT-FIELDNAME = 'MATNR'.