Save operations in ALV Grid

Halo experts ,
I have an CL_GUI_ALV grid with editable fiedls which I call in the subscreen. The user can generate new detail ids from the grid by saving lines in the application .
When next time the grid is displayed the grid should come back with the generated ID from the database .So that if there is a modifcation operation, it will not be treated as an insert operation
For that I am freeing all the gird container and alv grid values after SAVE operation in PAI like
case ok_code.
when 'SAVE'.
l_gui->save( ).
      FREE: g_cont_1927.
      FREE g_gui_tab_1927.
When the screen is being shown again in the PBO of the subscreen its taking up the generated id from the database .
the PBO of the subscreen is like
IF g_cont_1927 IS INITIAL.
    CREATE OBJECT g_cont_1927
      EXPORTING
        container_name = 'G_CONT_1927'.
ENDIF.
IF g_gui_tab_1927 IS INITIAL.
       lt_records = g_gui_tab_1927->get_records_from_database( )
        g_gui_tab_1927->first_display( lt_reocrds )."" Which calls alv_grids set_table_for_first_display_method using lt_records
ELSE.
   g_gui_tab_1927->refresh_display( )." Whihc calls alv_grids refresh_table_display method
ENDIF.
Now when i do again a modification operation by selecting the grid line id field is empty . it is coming up as insert operation again in the database.

Halo Naimesh,
l_gui is a global class reference type . it is having attribute my_grid type ref to cl_gui_alv_grid. Inside save I am calliong my_grid->check_changed_data( ).
But that is not the problem here
When the screen is shown second time after save with set_table_for_first_display method
f it is having the new generated ids from the database( in debugger ) .
But when i do some modification operations( ie again triigerr PAI ) the display_records seems to be the old one again( not with genereated ids ) strange
I tried using cl_gui_cfw=>set_new_ok_code , cl_gui_cfw=>flush everyhting in on_data_changed and on_user_commnad event handlers but no avail
When i go back to another screen and come again it is getting the new ids

Similar Messages

Save Layout in ALV Grid

Hi,
I have to save layout in ALV grid which should persist every time when i start the transaction.I am able to get save, change and manage option in the grid and also able to set the default layout but this default layout doesnot work.
please see the code :
l_repvar = sy-repid.
ls_variant = l_repvar.
l_varient = 'A'.
ls_variant-variant = l_varient.
draft_layout-sel_mode = 'D'.
draft_layout-stylefname = 'CELLPROP'.
draft_layout-no_f4 = 'X'.
DISPLAY THE DATA ON THE GRID
CALL METHOD draft_grid->set_table_for_first_display
    EXPORTING
      i_structure_name     = 'PSHLP_DRAFT_ST'
      is_layout            = draft_layout
      it_toolbar_excluding = g_it_exclude
      is_variant           = ls_variant
      i_save               = 'A'
      i_default            = 'X'
    CHANGING
      it_fieldcatalog      = draft_fieldcat
      it_outtab            = l_draft[].
i have tried by chaging i_save to 'X' and 'U' but no difference.
Useful answers will be rewarded.
Thanks and Regards,
Harsh

hi,
try with this code,
DATA: wa_disvariant LIKE disvariant.
    wa_disvariant-report = g_repid.
    wa_disvariant-username = sy-uname.
and pass these values in your function module,
         i_save                      = 'X'
         is_variant                  = wa_disvariant
thanks and regards,
muralidhar.

Save layout in ALV-GRID OO

Hi
i'm using ALV-GRID OO and i have problems with
saving my own layout.
In the output-liste i have a button to chage the output, but i'm missig
a button to save the new layout.
CALL METHOD GR_ALVGRID->SET_TABLE_FOR_FIRST_DISPLAY
   EXPORTING
             IT_TOOLBAR_EXCLUDING = GT_EXCLUDE
             IS_LAYOUT                       = GS_LAYOUT
             I_SAVE                             = 'A'
   CHANGING
             IT_FIELDCATALOG            = GT_FIELDCAT
             IT_OUTTAB                       = ITAB.
Any idea?
Regards, Dieter

Make sure that you pass the variant also.
data: variant type disvariant.
variant-report = sy-repid.
variant-username = sy-uname.
CALL METHOD GR_ALVGRID->SET_TABLE_FOR_FIRST_DISPLAY
EXPORTING
IT_TOOLBAR_EXCLUDING = GT_EXCLUDE
IS_LAYOUT = GS_LAYOUT
is_variant             = variant
I_SAVE = 'A'
CHANGING
IT_FIELDCATALOG = GT_FIELDCAT
IT_OUTTAB = ITAB.
Regards,
Rich Heilman

ALV Grid: how to save changes made in an editable Grid

Hi,
How to save changes made bu the user in any of the editable cells in a ALV Grid?
Regards,
deb.

Hi,
If you are using the FM look at the following example code...
data: LC_GLAY TYPE LVC_S_GLAY.
LC_GLAY-EDT_CLL_CB = 'X'.<<<<<------
gt_layout-zebra = 'X'.
gt_layout-detail_popup = 'X'.
gt_layout-colwidth_optimize = 'X'.
call function 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = i_repid
i_callback_user_command = 'USER_COMMAND1'
it_fieldcat = header
is_layout = gt_layout
i_callback_top_of_page = 'TOP-OF-PAGE1'
i_grid_title = text-h17
it_sort = gt_sort[]
i_default = 'X'
i_save = 'U'
is_variant = gt_variant
it_events = gt_events
I_GRID_SETTINGS = LC_GLAY<<<<<<------
TABLES
t_outtab = itab.
clear itab.
Form USER_COMMAND1
FORM USER_COMMAND1 USING u_ucomm LIKE sy-ucomm
us_selfield TYPE slis_selfield."#EC CALLED
case u_ucomm.
when '&DATA_SAVE'.<<<<<<<<----
This will come after the data was EDITTED and when SAVE was clicked by user in output scren.
Here now in the final internal table(ITAB) you can find the data changed in EDIT mode.
After this you can do manipulation what ever you want.
Thanks.
If this helps you reward with points.

ALV Grid save layout

Hi all,
in a programm there is a ALV grid of type cl_gui_alv_grid.
When I run the programm, I can change the layout (hide columns etc) but I can't
save the changes I make. What do I have to do to activate the saving of the layout?
Which field do I have to set to activate it or what can already be set which disables the showing of the save possibility?
Greetings Fred.

Hi Fred
U need to transfer the name of the report and the user to the grid class in order to allow to save the layout:
DATA: LT_VARIANT TYPE DISVARIANT.
LT_VARIANT-REPORT   = SY-REPID.
LT_VARIANT-USERNAME = SY-UNAME.
CALL METHOD ALV_GRID->SET_TABLE_FOR_FIRST_DISPLAY
       EXPORTING
                 IS_VARIANT                      = LT_VARIANT
                 I_SAVE                             = 'A'
                 IS_LAYOUT                       = LT_LAYOUT
                 IT_TOOLBAR_EXCLUDING = GT_NO_CODES
       CHANGING
                 IT_OUTTAB                  = T_OUTPUT
                 IT_FIELDCATALOG      = GT_FIELDCAT.
The user has to have the authorizations to manage the layout.
Max

Create standard sap "SAVE" button along with ALV grid buttons

I need to create a standard SAP "Save" button in my ALV GRID display in the application tool bard
I copied the PF-Status 'standard' from a SAP program and assinged it here.
When i try to add the SAP save buttion by using this standard pf-status , its not getting displayed in the application tool bar.
But in STandard TOOl bar (in menu painter ) , when i assign save its displayed in the screen .
I need this to be displayed in the application tool ba
Please suggest me how to do this.
Thanks in advance.

Hello,
Application of ALV means the place where the buttons(standard for ALV) like sort,add,delete,copy etc are dipslayed.IF u need need to add a save button on the same toolbar/same place u need to copy the standard GUI status of standard ALV program .For that go to SE80 , give the program name as SAPLSLVC_FULLSCREEN
In the GUI status u'll find the status named as STANDARD_FULLSCREEN ....Right click on it and give the "TO Program " as your program.Now once u activate ur program u'll find the same status there.
add ur save button in the status by edidting it. Now u need to write the FORM ENDFORM for user command and assign the form name in caps to the USER_COMMAND parameter in the func module REUSE_ALV_GRID_DISPLAY.
Hope this help.
Regards,
Neeraj

Save ALV grid to local excel-file in background

Hi,
i want to save a alv grid to an excel-file on a local fileshare using an background job..
Does anybody know how this works?
Thanks ahead

DATA: file TYPE string VALUE `flights.dat`,
 wa TYPE spfli.
FIELD-SYMBOLS TYPE x.
OPEN DATASET file FOR OUTPUT IN BINARY MODE.
SELECT *
 FROM spfli
 INTO wa.
ASSIGN wa TO CASTING.
TRANSFER TO file.
ENDSELECT.
CLOSE DATASET file.
The binary data from database table SPFLI is transferred to a binary file flights.dat

Error in clicking save to local file button in alv grid?

Hi
I am getting error , While clicking on some buttons like save as local file button in alv grid display
How to rectify it
Thanks in advance

In your REUSE_ALV_GRID_DISPLAY
EXPORTING
I_SAVE = 'U'
put this field....and then check it will definitely work...

Error in clicking save to local file button in alv grid? urgent

>>>>> if lr_tabledescr->applies_to_data( <coltab_any> ) eq 'X'.
exactly i am getting error here
how to rectify this error
Error in clicking save to local file button and mail receipt button in alv grid?

In your REUSE_ALV_GRID_DISPLAY
EXPORTING
I_SAVE = 'U'
put this field....and then check it will definitely work...

Urgent : Insert , save and Delete in the alv grid

Hi Experts,
I am having a alv grid and displaying data by fetching from backend.
i added a toolbar buttons "Insert " "Save" and "Delete".
when i click on "Insert " button the first row of the table should be empty with input fields. i want to insert data and when i click on "save" button it should update at backend.kindly let me know how to insert empty row at starting of alv grid and also how to save and delete records..
thanks in advance.

Hi Bharath,
Go through this hope u can understand.
SEL_MODE. Selection mode, determines how rows can be selected. Can have the following values:
A Multiple columns, multiple rows with selection buttons.
B Simple selection, listbox, Single row/column
C Multiple rows without buttons
D Multiple rows with buttons and select all ICON
Setting and getting selected rows (Columns) and read line contents
You can read which rows of the grid that has been selected, and dynamic select rows of the grid using methods get_selected_rows and set_selected_rows. There are similar methods for columns.
Note that the grid table always has the rows in the same sequence as displayed in the grid, thus you can use the index of the selected row(s) to read the information in the rows from the table. In the examples below the grid table is named gi_sflight.
Data declaration:
DATA:
Internal table for indexes of selected rows
gi_index_rows TYPE lvc_t_row,
Information about 1 row
g_selected_row LIKE lvc_s_row.
Example 1: Reading index of selected row(s) and using it to read the grid table
CALL METHOD go_grid->get_selected_rows
    IMPORTING
      et_index_rows = gi_index_rows.
DESCRIBE TABLE gi_index_rows LINES l_lines.
IF l_lines = 0.
    CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
         EXPORTING
              textline1 = 'You must choose a valid line'.
    EXIT.
ENDIF.
LOOP AT gi_index_rows INTO g_selected_row.
     READ TABLE gi_sflight INDEX g_selected_row-index INTO g_wa_sflight.
    ENDIF.
ENDLOOP.
Example 2: Set selected row(s).
DESCRIBE TABLE gi_index_rows LINES l_lines.
IF l_lines > 0.
    CALL METHOD go_grid->set_selected_rows
        exporting
          it_index_rows = gi_index_rows.
ENDIF.
Reward points if helpful.
Thanks
Naveen khan

ALV grid display enable save button

Hi gurus all,
I want to make save button in alv display turns onn, cause now it's gray and i cannot click on it. and i'm using function reuse_alv_grid_display.
i'm included half of my code,
DATA: li_events TYPE slis_t_event,
 lwa_events LIKE LINE OF li_events.
REFRESH li_events.
CLEAR lwa_events.
Get event
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 i_list_type = 4
 IMPORTING
 et_events = li_events.
Set event END_OF_LIST
READ TABLE li_events WITH KEY name = 'END_OF_LIST'
INTO lwa_events.
IF sy-subrc = 0.
 lwa_events-form = 'END_OF_LIST'.
 MODIFY li_events FROM lwa_events TRANSPORTING form
 WHERE name = 'END_OF_LIST'.
ENDIF.
data : ls_variant like disvariant,
 gs_layout type slis_layout_alv.
ls_variant-report = sy-repid.
Display ALV
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = sy-repid
 i_callback_top_of_page = 'TOP_OF_PAGE'
 it_fieldcat = i_fieldcat
 is_layout = gs_layout
 it_sort = i_sortcat
 it_events = li_events
 i_save = c_x
 is_variant = ls_variant
 TABLES
 t_outtab = i_final
 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.

Hi memeo,
1. Simple
2. i_save = 'A'
3. While calling the fm
 CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
make sure u pass the parameter also. (with value 'A')
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 i_save = 'A'
regards,
amit m.

F4 help before save - ALV Grid in Module Pool

Hi,
   I am calling an ALV Grid using CL_GUI_A;V_GRID. When I create a new record, I need F4 help for a particular field based on the entries in 2 other fields. Thing is I can't use DATA_CHANGED event coz then I won't be able to display the F4 button. And F4 option doesn't pass the data that has been changed(ER_CHANGED_DATA table). So frustrating. Can anyone help me plz???
Thanks in advance,
Poornima L Nathan

Hi ,
i think you are missing one params while registering your F4 fields..
ls_f4-register   = 'X'.
ls_f4-getbefore = 'X'.
ls_f4-chngeafter = 'X'.
Documentatin of SAP program *BCALV_EDIT_08*
*   1b. If the value range in your f4 help depends on other
*       values of cells that are input enabled, set the
*       GETBEFORE parameter.
now you can use row_indx no to read your internal table
regards
Prabhu
Edited by: Prabhu Peram on Aug 23, 2011 2:11 PM

How do I save ALV Grid O/P to spool

Hi All,
           I have a requirement of saving alv grid output to spool. How can this be done?
could I get any help on this?
Thanks & Regards,
Deepak Raj

DATA: BEGIN OF i_mara OCCURS 0,
matnr LIKE mara-matnr.
DATA: END OF i_mara.
DATA: v_dest LIKE tsp01-rqdest,
v_handle LIKE sy-tabix,
v_spool_id LIKE tsp01-rqident,
v_rc TYPE c,
v_errmessage(100) TYPE c,
v_text(70) TYPE c.
START-OF-SELECTION.
SELECT matnr FROM mara INTO TABLE i_mara.
CALL FUNCTION 'RSPO_OPEN_SPOOLREQUEST'
       EXPORTING
            dest            = 'LOCL'
           layout          =
           name            =
           suffix1         =
           suffix2         =
           copies          =
           prio            =
           immediate_print =
           auto_delete     =
           titleline       =
           receiver        =
           division        =
           authority       =
           posname         =
           acttime         =
            lifetime        = '8'
           append          =
           coverpage       =
           codepage        =
           doctype         =
       importing
            handle          = v_handle
            spoolid         = gd_spool_nr
            rc              = v_rc
            errmessage      = v_errmessage.
LOOP AT i_mara.
    v_text = i_mara-matnr.
    CALL FUNCTION 'RSPO_WRITE_SPOOLREQUEST'
         EXPORTING
              handle           = v_handle
              text             = v_text
              length           =
              codepage         =
              truncate         =
         importing
              rc               = v_rc
              errmessage       = v_errmessage
         EXCEPTIONS
              handle_not_valid = 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.
ENDLOOP.
CALL FUNCTION 'RSPO_CLOSE_SPOOLREQUEST'
       EXPORTING
            handle           = v_handle
       IMPORTING
            rc               = v_rc
            errmessage       = v_errmessage
       EXCEPTIONS
            handle_not_valid = 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.
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
       EXPORTING
            src_spoolid              = gd_spool_nr
            no_dialog                = c_no
            dst_device               = c_device
       IMPORTING
            pdf_bytecount            = gd_bytecount
       TABLES
            pdf                      = it_pdf_output
       EXCEPTIONS
            err_no_abap_spooljob     = 1
            err_no_spooljob          = 2
            err_no_permission        = 3
            err_conv_not_possible    = 4
            err_bad_destdevice       = 5
            user_cancelled           = 6
            err_spoolerror           = 7
            err_temseerror           = 8
            err_btcjob_open_failed   = 9
            err_btcjob_submit_failed = 10
            err_btcjob_close_failed = 11
            OTHERS                   = 12.
CHECK sy-subrc = 0.
get the spool number
Declaration of local variables.
DATA:
lv_rq2name LIKE tsp01-rq2name.
CONCATENATE sy-repid+0(8)
sy-uname+0(3)
INTO lv_rq2name SEPARATED BY '_'.
Get the spool number.
SELECT * FROM tsp01 WHERE rq2name = lv_rq2name
ORDER BY rqcretime DESCENDING.
    v_rqident = tsp01-rqident.
    EXIT.
ENDSELECT.
IF sy-subrc NE 0.
    CLEAR v_rqident.
ENDIF

Getting data back from ALV grid

This looks like a topic discussed before but i still need some clearifications. I display an internal table in ALV grid, in editable format. user changes the data and presses A BUTTON. On doing that I need to re-capture the changes made in a internal table.
I have used method "check_changed_data' but it doesnt seem to work. It keeps appending data in the internal table if the user changes it multiple times. please suggest me some ideas on how to go about it.
Thanks.
shiv

Hi then i will give another code with OO that fits your requirement check...
REPORT ZTEST NO STANDARD PAGE HEADING
 LINE-SIZE 200
 LINE-COUNT 58
 MESSAGE-ID ZZ.
* Include for Data Declarations
INCLUDE ZSDR0057_DEL_HOLD_TOP.
INCLUDE <ICON>.
**Tables to Compare Before after the Data Change
DATA: IT_VEKP_TMP LIKE IT_VEKP OCCURS 0 WITH HEADER LINE,
 IT_VEKP1 LIKE IT_VEKP OCCURS 0 WITH HEADER LINE,
 IT_VEKP1_TMP LIKE IT_VEKP OCCURS 0 WITH HEADER LINE,
 IT_FINAL_TMP LIKE IT_FINAL OCCURS 0 WITH HEADER LINE,
 IT_OCRC TYPE TABLE OF ZSD_OC_HOLD.
DATA: L_VALID TYPE C,
 L_VALID1 TYPE C,
 V_FLAG,
 V_DATA_CHANGE.
DATA: G_GRID TYPE REF TO CL_GUI_ALV_GRID.
* CLASS lcl_event_handler DEFINITION
CLASS LCL_EVENT_HANDLER DEFINITION .
PUBLIC SECTION .
 METHODS:
**Hot spot Handler
 HANDLE_HOTSPOT_CLICK FOR EVENT HOTSPOT_CLICK OF CL_GUI_ALV_GRID
 IMPORTING E_ROW_ID E_COLUMN_ID ES_ROW_NO,
**User Command Handler
 HANDLE_USER_COMMAND FOR EVENT USER_COMMAND OF CL_GUI_ALV_GRID
 IMPORTING E_UCOMM,
**Double Click Handler
 HANDLE_DOUBLE_CLICK FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID
 IMPORTING E_ROW E_COLUMN,
**Handler to Check the Data Change
 HANDLE_DATA_CHANGED FOR EVENT DATA_CHANGED
 OF CL_GUI_ALV_GRID
 IMPORTING ER_DATA_CHANGED
 E_ONF4
 E_ONF4_BEFORE
 E_ONF4_AFTER,
 HANDLE_TOOLBAR
 FOR EVENT TOOLBAR OF CL_GUI_ALV_GRID
 IMPORTING E_OBJECT E_INTERACTIVE.
ENDCLASS. "lcl_event_handler DEFINITION
* CLASS lcl_event_handler DEFINITION for second screen
CLASS LCL_EVENT_HANDLER1 DEFINITION .
PUBLIC SECTION .
 METHODS:
**User Command Handler
 HANDLE_USER_COMMAND FOR EVENT USER_COMMAND OF CL_GUI_ALV_GRID
 IMPORTING E_UCOMM,
 HANDLE_TOOLBAR
 FOR EVENT TOOLBAR OF CL_GUI_ALV_GRID
 IMPORTING E_OBJECT E_INTERACTIVE.
ENDCLASS. "lcl_event_handler1 DEFINITION
* CLASS lcl_event_handler IMPLEMENTATION
CLASS LCL_EVENT_HANDLER IMPLEMENTATION.
*Handle Hotspot Click
METHOD HANDLE_HOTSPOT_CLICK .
 PERFORM HANDLE_HOTSPOT_CLICK USING E_ROW_ID E_COLUMN_ID ES_ROW_NO .
ENDMETHOD. "lcl_event_handler
*Handle User Command
METHOD HANDLE_USER_COMMAND.
 PERFORM EVENT_UCOMM USING E_UCOMM.
ENDMETHOD. "user_command
*Handle Double Click
METHOD HANDLE_DOUBLE_CLICK.
 DATA X_FINAL TYPE T_FINAL.
 IF V_DATA_CHANGE IS INITIAL.
 IF E_COLUMN = 'ZZPROMDT' OR E_COLUMN = 'ZZOCHOLDRC'.
 READ TABLE IT_FINAL INDEX E_ROW INTO X_FINAL
 TRANSPORTING
 VBELN
 VGBEL
 VGPOS
 ZZPROMDT
 ZZOCHOLDRC.
 IF SY-SUBRC = 0.
 PERFORM GET_HU_DATA USING X_FINAL.
 PERFORM POPULATE_FIELDCAT2.
 ENDIF.
 CALL SCREEN 200.
 ENDIF.
 ELSE.
 MESSAGE I002 WITH 'Please save the data first and then double click'.
 ENDIF.
ENDMETHOD. "handle_double_click
**Handle Data Change
METHOD HANDLE_DATA_CHANGED.
 DATA: X_CHANGE TYPE LVC_S_MODI,
 X_FINAL TYPE T_FINAL,
 X_OCRC TYPE ZSD_OC_HOLD,
 L_FLAG.
 LOOP AT ER_DATA_CHANGED->MT_GOOD_CELLS INTO X_CHANGE.
 IF X_CHANGE-FIELDNAME = 'ZZOCHOLDRC'.
 READ TABLE IT_FINAL INTO X_FINAL INDEX X_CHANGE-ROW_ID.
 IF SY-SUBRC = 0.
 READ TABLE IT_OCRC INTO X_OCRC WITH KEY
 ZZOCHOLDRC = X_CHANGE-VALUE
 TRANSPORTING ZZRCDESC.
 IF SY-SUBRC = 0.
 X_FINAL-ZZRCDESC = X_OCRC-ZZRCDESC.
 MODIFY IT_FINAL FROM X_FINAL INDEX X_CHANGE-ROW_ID
 TRANSPORTING ZZRCDESC.
 L_FLAG = 'X'.
 ENDIF.
 ENDIF.
 ENDIF.
 IF X_CHANGE-FIELDNAME = 'ZZPROMDT'.
 READ TABLE IT_FINAL INTO X_FINAL INDEX X_CHANGE-ROW_ID.
 IF SY-SUBRC = 0.
 X_FINAL-ZZPROMDT = X_CHANGE-VALUE.
 MODIFY IT_FINAL FROM X_FINAL INDEX X_CHANGE-ROW_ID
 TRANSPORTING ZZPROMDT.
 L_FLAG = 'X'.
 ENDIF.
 ENDIF.
 ENDLOOP.
 IF L_FLAG = 'X'.
 CLEAR V_DATA_CHANGE.
 V_DATA_CHANGE = 'X'.
 ENDIF.
ENDMETHOD. "data_changed
METHOD HANDLE_TOOLBAR.
 DATA: LS_TOOLBAR TYPE STB_BUTTON.
* append a separator to normal toolbar
 CLEAR LS_TOOLBAR.
 MOVE 3 TO LS_TOOLBAR-BUTN_TYPE.
 APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
* append SAVE icon
 CLEAR LS_TOOLBAR.
 MOVE 'SAVE' TO LS_TOOLBAR-FUNCTION.
 MOVE ICON_SYSTEM_SAVE TO LS_TOOLBAR-ICON.
 MOVE 'Save' TO LS_TOOLBAR-QUICKINFO.
 MOVE ' Save ' TO LS_TOOLBAR-TEXT.
 MOVE ' ' TO LS_TOOLBAR-DISABLED.
 APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
 CLEAR LS_TOOLBAR.
* append a separator to normal toolbar
 CLEAR LS_TOOLBAR.
 MOVE 3 TO LS_TOOLBAR-BUTN_TYPE.
 APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
* append BACK icon
 CLEAR LS_TOOLBAR.
 MOVE 'BACK' TO LS_TOOLBAR-FUNCTION.
 MOVE ICON_SYSTEM_BACK TO LS_TOOLBAR-ICON.
 MOVE 'Back' TO LS_TOOLBAR-QUICKINFO.
 MOVE ' Back ' TO LS_TOOLBAR-TEXT.
 MOVE ' ' TO LS_TOOLBAR-DISABLED.
 APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
 CLEAR LS_TOOLBAR.
ENDMETHOD. "handle_toolbar
ENDCLASS. "lcl_event_handler IMPLEMENTATION
* CLASS lcl_event_handler1 IMPLEMENTATION
CLASS LCL_EVENT_HANDLER1 IMPLEMENTATION.
*Handle User Command
METHOD HANDLE_USER_COMMAND.
 PERFORM EVENT_UCOMM1 USING E_UCOMM.
ENDMETHOD. "user_command
METHOD HANDLE_TOOLBAR.
 DATA: LS_TOOLBAR TYPE STB_BUTTON.
* append a separator to normal toolbar
 CLEAR LS_TOOLBAR.
 MOVE 3 TO LS_TOOLBAR-BUTN_TYPE.
 APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
* append SAVE icon
 CLEAR LS_TOOLBAR.
 MOVE 'SAVE' TO LS_TOOLBAR-FUNCTION.
 MOVE ICON_SYSTEM_SAVE TO LS_TOOLBAR-ICON.
 MOVE 'Save' TO LS_TOOLBAR-QUICKINFO.
 MOVE ' Save ' TO LS_TOOLBAR-TEXT.
 MOVE ' ' TO LS_TOOLBAR-DISABLED.
 APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
 CLEAR LS_TOOLBAR.
* append a separator to normal toolbar
 CLEAR LS_TOOLBAR.
 MOVE 3 TO LS_TOOLBAR-BUTN_TYPE.
 APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
* append an Back icon
 CLEAR LS_TOOLBAR.
 MOVE 'BACK' TO LS_TOOLBAR-FUNCTION.
 MOVE ICON_SYSTEM_BACK TO LS_TOOLBAR-ICON.
 MOVE 'Back' TO LS_TOOLBAR-QUICKINFO.
 MOVE ' Back ' TO LS_TOOLBAR-TEXT.
 MOVE ' ' TO LS_TOOLBAR-DISABLED.
 APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
 CLEAR LS_TOOLBAR.
ENDMETHOD. "handle_toolbar
ENDCLASS. "lcl_event_handler1 IMPLEMENTATION
*& Global Definitions
DATA: "G_GRID TYPE REF TO CL_GUI_ALV_GRID, "Grid for first report
 G_GRID1 TYPE REF TO CL_GUI_ALV_GRID, "grid for second report
 G_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,"Container1
 G_CUSTOM_CONTAINER1 TYPE REF TO CL_GUI_CUSTOM_CONTAINER,"container
 G_HANDLER TYPE REF TO LCL_EVENT_HANDLER, "handler
 G_HANDLER1 TYPE REF TO LCL_EVENT_HANDLER1. "handler
DATA: OK_CODE LIKE SY-UCOMM,
 SAVE_OK LIKE SY-UCOMM,
 G_CONTAINER1 TYPE SCRFNAME VALUE 'ZSDR0057_DEL_HOLD_CONT1',
 G_CONTAINER2 TYPE SCRFNAME VALUE 'ZSDR0057_DEL_HOLD_CONT2',
 GS_LAYOUT TYPE LVC_S_LAYO,
 GS_LAYOUT1 TYPE LVC_S_LAYO.
*- Fieldcatalog for First and second Report
DATA: IT_FIELDCAT TYPE LVC_T_FCAT,
 X_FIELDCAT TYPE LVC_S_FCAT,
 IT_FIELDCAT1 TYPE LVC_T_FCAT,
 X_FIELDCAT1 TYPE LVC_S_FCAT,
 LS_VARI TYPE DISVARIANT.
* Selection screen
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: S_VBELN FOR V_LIKP-VBELN, "Delivery
 S_VSTEL FOR V_LIKP-VSTEL, "Shipping Point
 S_WERKS FOR V_LIPS-WERKS, "Plant
 S_WADAT FOR V_VBEP-WADAT, "Pgi Date
 S_TRSPG FOR V_LIKP-TRSPG OBLIGATORY,"Shp bolck Reason
 S_OCHRC FOR V_VEKP-ZZOCHOLDRC MATCHCODE OBJECT
 ZZOCHOLDRC, "OC Reason Code
 S_USERID FOR V_VBAK-ZZREP_USERID1."Rep User ID
SELECTION-SCREEN END OF BLOCK B1.
* START-OF_SELECTION
START-OF-SELECTION.
CLEAR IT_LIKP.
REFRESH IT_LIKP.
SELECT VBELN
 VSTEL
 LFDAT
 KUNNR
 FROM LIKP
 INTO TABLE IT_LIKP
 WHERE VBELN IN S_VBELN
 AND VSTEL IN S_VSTEL
 AND WADAT IN S_WADAT
 AND WADAT_IST = '00000000'
 AND TRSPG IN S_TRSPG.
IF SY-SUBRC <> 0.
 CLEAR V_FLAG.
 V_FLAG = 'X'.
ENDIF.
IF V_FLAG = ' '.
**Populating the Delivery Item Data
 PERFORM GET_DEL_ITEM_DATA.
**Getting the PGI DATE & USERID
 PERFORM GET_USERID.
**Getting the Promise DATE & OC HOLD RC
 PERFORM GET_VEKP_DATA.
**get the Reason codes
 PERFORM SELECT_OCHOLDRC.
 IF NOT IT_LIPS[] IS INITIAL
 AND NOT IT_VBAK[] IS INITIAL
 AND NOT IT_VEKP_TMP[] IS INITIAL.
** Populating the Final Internaltable
 PERFORM POPULATE_FINAL_TABLE.
 ENDIF.
ENDIF.
* END-OF-SELECTION.
END-OF-SELECTION.
IF NOT IT_FINAL[] IS INITIAL.
 CALL SCREEN 100. "Calling the First Screen
ELSE.
 MESSAGE I002 WITH 'NO DATA FOR THE SELECTION'(004).
ENDIF.
* MODULE PBO OUTPUT *
MODULE PBO OUTPUT.
DATA: LS_EDIT TYPE LVC_S_STYL, "to find the edit in output
 LT_EDIT TYPE LVC_T_STYL, "to find the edit in output
 V_INDEX LIKE SY-TABIX,
 LS_OUTTAB TYPE T_FINAL.
SET PF-STATUS 'MAIN100'.
SET TITLEBAR 'MAIN100'.
IF G_CUSTOM_CONTAINER IS INITIAL.
**Initializing the grid and calling the fm to Display the O/P
 PERFORM CREATE_AND_INIT_ALV.
ENDIF.
ENDMODULE. "PBO OUTPUT
* MODULE PAI INPUT *
MODULE PAI INPUT.
SAVE_OK = OK_CODE.
CLEAR OK_CODE.
CASE SAVE_OK.
 WHEN 'EXIT'.
 LEAVE TO SCREEN 0.
 WHEN 'CANC'.
 LEAVE TO SCREEN 0.
 WHEN OTHERS.
* do nothing
ENDCASE.
ENDMODULE. "pai INPUT
*& Form GET_DEL_ITEM_DATA
* Populating the Delivery Item Data
FORM GET_DEL_ITEM_DATA .
IF NOT IT_LIKP[] IS INITIAL.
**-Getting the name of Ship-to-party
 SELECT KUNNR
 NAME1
 INTO TABLE IT_KNA1
 FROM KNA1
 FOR ALL ENTRIES IN IT_LIKP[]
 WHERE KUNNR = IT_LIKP-KUNNR.
**-Getting Delivery Item Data
 SELECT VBELN
 POSNR
 MATNR
 WERKS
 ARKTX
 VGBEL
 VGPOS
 ZZCONPATH
 INTO TABLE IT_LIPS
 FROM LIPS
 FOR ALL ENTRIES IN IT_LIKP[]
 WHERE VBELN = IT_LIKP-VBELN
 AND WERKS IN S_WERKS.
ENDIF.
ENDFORM. " GET_DEL_ITEM_DATA
*& Form get_userid
* Getting the USERID
FORM GET_USERID .
IF NOT IT_LIPS[] IS INITIAL.
**-Getting the USERID
 SELECT VBELN
 ZZREP_USERID1
 INTO TABLE IT_VBAK
 FROM VBAK
 FOR ALL ENTRIES IN IT_LIPS[]
 WHERE VBELN = IT_LIPS-VGBEL
 AND ZZREP_USERID1 IN S_USERID.
ENDIF.
ENDFORM. " get_userid
*& Form populate_final_table
* Populating the Final Internaltable
FORM POPULATE_FINAL_TABLE .
DATA: L_TABIX LIKE SY-TABIX.
CLEAR IT_FINAL.
REFRESH IT_FINAL.
SORT IT_VEKP_TMP BY ZZPROMDT ZZSONUM ZZOCHOLDRC.
DATA IT_TMP LIKE IT_VEKP OCCURS 0 WITH HEADER LINE.
DATA IT_VEKP_TMP1 LIKE IT_VEKP OCCURS 0 WITH HEADER LINE.
CLEAR IT_VEKP_TMP1[].
IT_VEKP_TMP1[] = IT_VEKP_TMP[].
LOOP AT IT_VEKP_TMP.
 MOVE IT_VEKP_TMP TO IT_TMP.
 CLEAR IT_TMP-EXIDV.
 COLLECT IT_TMP.
ENDLOOP.
CLEAR IT_VEKP_TMP[].
IT_VEKP_TMP[] = IT_TMP[] .
LOOP AT IT_VEKP_TMP.
 L_TABIX = SY-TABIX.
 READ TABLE IT_VEKP_TMP1 WITH KEY INHALT = IT_VEKP_TMP-INHALT
 ZZSONUM = IT_VEKP_TMP-ZZSONUM
 ZZPROMDT = IT_VEKP_TMP-ZZPROMDT
 ZZOCHOLDRC = IT_VEKP_TMP-ZZOCHOLDRC
 VEMNG = IT_VEKP_TMP-VEMNG.
 IF SY-SUBRC = 0.
 IT_VEKP_TMP-EXIDV = IT_VEKP_TMP1-EXIDV.
 MODIFY IT_VEKP_TMP INDEX L_TABIX.
 ENDIF.
ENDLOOP.
LOOP AT IT_LIPS.
 MOVE-CORRESPONDING IT_LIPS TO IT_FINAL.
 READ TABLE IT_LIKP WITH KEY VBELN = IT_LIPS-VBELN.
 IF SY-SUBRC = 0.
 IT_FINAL-VSTEL = IT_LIKP-VSTEL.
 IT_FINAL-LFDAT = IT_LIKP-LFDAT.
 ENDIF.
 READ TABLE IT_KNA1 WITH KEY KUNNR = IT_LIKP-KUNNR.
 IF SY-SUBRC = 0.
 IT_FINAL-NAME1 = IT_KNA1-NAME1.
 ENDIF.
 READ TABLE IT_VBAK WITH KEY VBELN = IT_LIPS-VGBEL.
 IF SY-SUBRC = 0.
 IT_FINAL-ZZREP_USERID1 = IT_VBAK-ZZREP_USERID1.
 ENDIF.
 READ TABLE IT_SONUM WITH KEY VGBEL = IT_LIPS-VGBEL
 VGPOS = IT_LIPS-VGPOS.
 IF SY-SUBRC = 0.
 LOOP AT IT_VEKP_TMP WHERE ZZSONUM = IT_SONUM-ZZSONUM
 AND INHALT = IT_LIPS-VBELN.
 IF NOT IT_VEKP_TMP-ZZPROMDT+0(4) = '0000'.
 IT_FINAL-ZZPROMDT = IT_VEKP_TMP-ZZPROMDT.
 ELSE.
 IT_FINAL-ZZPROMDT = '00000000'.
 ENDIF.
 IT_FINAL-ZZOCHOLDRC = IT_VEKP_TMP-ZZOCHOLDRC.
 IT_FINAL-VEMNG = IT_VEKP_TMP-VEMNG.
 IT_FINAL-ZZSONUM = IT_VEKP_TMP-ZZSONUM.
 IT_FINAL-EXIDV = IT_VEKP_TMP-EXIDV.
 APPEND IT_FINAL.
 ENDLOOP.
 IF SY-SUBRC <> 0.
 IT_FINAL-ZZPROMDT = '00000000'.
 IT_FINAL-ZZOCHOLDRC = ' '.
 IT_FINAL-VEMNG = ' '.
 IT_FINAL-FLAG = 'X'.
 APPEND IT_FINAL.
 CLEAR IT_FINAL.
 ENDIF.
 ENDIF.
ENDLOOP.
DELETE IT_FINAL WHERE ZZOCHOLDRC NOT IN S_OCHRC[].
DELETE IT_FINAL WHERE ZZREP_USERID1 NOT IN S_USERID[].
DELETE IT_FINAL WHERE WERKS NOT IN S_WERKS[].
IF NOT IT_ZSDOCHOLD[] IS INITIAL.
 LOOP AT IT_FINAL.
 READ TABLE IT_ZSDOCHOLD WITH KEY ZZOCHOLDRC = IT_FINAL-ZZOCHOLDRC.
 IF SY-SUBRC = 0.
 IT_FINAL-ZZRCDESC = IT_ZSDOCHOLD-ZZRCDESC.
 MODIFY IT_FINAL.
 ENDIF.
 ENDLOOP.
ENDIF.
IT_FINAL_TMP[] = IT_FINAL[].
CLEAR IT_FINAL.
ENDFORM. " populate_final_table
*& Form get_vekp_data
* Populating Promise Date and Order Control Hold Reason Code
FORM GET_VEKP_DATA .
CLEAR: IT_SONUM,IT_VEKP,IT_VEKP_TMP.
REFRESH: IT_SONUM,IT_VEKP,IT_VEKP_TMP.
LOOP AT IT_LIPS.
 MOVE-CORRESPONDING IT_LIPS TO IT_SONUM.
 CONCATENATE IT_LIPS-VGBEL IT_LIPS-VGPOS INTO IT_SONUM-ZZSONUM.
 APPEND IT_SONUM.
 CLEAR IT_SONUM.
ENDLOOP.
IF NOT IT_SONUM[] IS INITIAL.
 SELECT EXIDV
 INHALT
 ZZSONUM
 ZZPROMDT
 ZZOCHOLDRC
 INTO TABLE IT_VEKP
 FROM VEKP
 FOR ALL ENTRIES IN IT_SONUM[]
 WHERE ZZSONUM = IT_SONUM-ZZSONUM
 AND ZZOCHOLDRC IN S_OCHRC.
 SELECT EXIDV INHALT VEMNG
 ZZSONUM
 INTO TABLE IT_QUANT
 FROM ZVEKPO
 FOR ALL ENTRIES IN IT_SONUM[]
 WHERE ZZSONUM = IT_SONUM-ZZSONUM.
 IF SY-SUBRC = 0.
 LOOP AT IT_VEKP.
 READ TABLE IT_QUANT WITH KEY EXIDV = IT_VEKP-EXIDV
 INHALT = IT_VEKP-INHALT
 ZZSONUM = IT_VEKP-ZZSONUM.
 IF SY-SUBRC = 0.
 IT_VEKP-VEMNG = IT_QUANT-VEMNG.
 MODIFY IT_VEKP.
 ENDIF.
 ENDLOOP.
 IT_VEKP_TMP[] = IT_VEKP[].
 SELECT ZZOCHOLDRC
 ZZRCDESC
 INTO TABLE IT_ZSDOCHOLD
 FROM ZSD_OC_HOLD
 FOR ALL ENTRIES IN IT_VEKP[]
 WHERE ZZOCHOLDRC = IT_VEKP-ZZOCHOLDRC.
 ENDIF.
ENDIF.
ENDFORM. " get_vekp_data
*& Form SELECT_OCHOLDRC
* Selecting the Reason Codes and Descriptions
FORM SELECT_OCHOLDRC .
SELECT *
 FROM ZSD_OC_HOLD
 INTO TABLE IT_OCRC.
ENDFORM. " select_OCHOLDRC
*& Form CREATE_AND_INIT_ALV
* Creating the ALV grid and initializing
FORM CREATE_AND_INIT_ALV .
DATA: LT_EXCLUDE TYPE UI_FUNCTIONS.
CREATE OBJECT G_CUSTOM_CONTAINER
 EXPORTING CONTAINER_NAME = G_CONTAINER1.
CREATE OBJECT G_GRID
 EXPORTING I_PARENT = G_CUSTOM_CONTAINER.
* Set a titlebar for the grid control
GS_LAYOUT-STYLEFNAME = 'HANDLE_STYLE'.
GS_LAYOUT-GRID_TITLE = TEXT-003.
GS_LAYOUT-CWIDTH_OPT = 'X'.
GS_LAYOUT-NO_ROWMARK = 'X'.
GS_LAYOUT-ZEBRA = SPACE."'X'.
GS_LAYOUT-INFO_FNAME = SPACE.
GS_LAYOUT-CTAB_FNAME = SPACE.
CALL METHOD G_GRID->REGISTER_EDIT_EVENT
 EXPORTING
 I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_ENTER.
CREATE OBJECT G_HANDLER.
SET HANDLER G_HANDLER->HANDLE_USER_COMMAND FOR G_GRID.
SET HANDLER G_HANDLER->HANDLE_DOUBLE_CLICK FOR G_GRID.
SET HANDLER G_HANDLER->HANDLE_HOTSPOT_CLICK FOR G_GRID.
SET HANDLER G_HANDLER->HANDLE_DATA_CHANGED FOR G_GRID.
SET HANDLER G_HANDLER->HANDLE_TOOLBAR FOR G_GRID.
* setting focus for created grid control
CALL METHOD CL_GUI_CONTROL=>SET_FOCUS
 EXPORTING
 CONTROL = G_GRID.
* Build fieldcat and set editable for date and reason code
* edit enabled. Assign a handle for the dropdown listbox.
PERFORM BUILD_FIELDCAT.
* Optionally restrict generic functions to 'change only'.
* (The user shall not be able to add new lines).
PERFORM EXCLUDE_TB_FUNCTIONS CHANGING LT_EXCLUDE.
PERFORM DISABLE_EDIT_FIELDS.
**Vaiant to save the layout
LS_VARI-REPORT = SY-REPID.
LS_VARI-HANDLE = SPACE.
LS_VARI-LOG_GROUP = SPACE.
LS_VARI-USERNAME = SPACE.
LS_VARI-VARIANT = SPACE.
LS_VARI-TEXT = SPACE.
LS_VARI-DEPENDVARS = SPACE.
* Define a drop down table.
PERFORM SET_DRDN_TABLE.
**Calling the Method for ALV output
CALL METHOD G_GRID->SET_TABLE_FOR_FIRST_DISPLAY
 EXPORTING
 IT_TOOLBAR_EXCLUDING = LT_EXCLUDE
 IS_VARIANT = LS_VARI
 IS_LAYOUT = GS_LAYOUT
 I_SAVE = 'A'
 CHANGING
 IT_FIELDCATALOG = IT_FIELDCAT
 IT_OUTTAB = IT_FINAL[].
* Set editable cells to ready for input initially
CALL METHOD G_GRID->SET_READY_FOR_INPUT
 EXPORTING
 I_READY_FOR_INPUT = 1.
CALL METHOD G_GRID->SET_TOOLBAR_INTERACTIVE.
ENDFORM. "CREATE_AND_INIT_ALV
*& Form EXCLUDE_TB_FUNCTIONS
* Excluding the ALV functions
FORM EXCLUDE_TB_FUNCTIONS CHANGING PT_EXCLUDE TYPE UI_FUNCTIONS.
* Only allow to change data not to create new entries (exclude
* generic functions).
DATA LS_EXCLUDE TYPE UI_FUNC.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_COPY_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_DELETE_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_APPEND_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_INSERT_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_MOVE_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_COPY.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_CUT.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_PASTE.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_PASTE_NEW_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_UNDO.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
ENDFORM. " EXCLUDE_TB_FUNCTIONS
*& Form build_fieldcat
* Fieldcatalog
FORM BUILD_FIELDCAT .
DATA:L_POS TYPE I VALUE 1.
CLEAR: L_POS.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Shpt'(012).
X_FIELDCAT-FIELDNAME = 'VSTEL'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '4'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Con Path'(013).
X_FIELDCAT-FIELDNAME = 'ZZCONPATH'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '8'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Plant'(014).
X_FIELDCAT-FIELDNAME = 'WERKS'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '5'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Del Date'(015).
X_FIELDCAT-FIELDNAME = 'LFDAT'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '10'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-COLTEXT = 'Prom Date'(016).
* X_FIELDCAT-SCRTEXT_M = 'Prom Date'(016).
X_FIELDCAT-FIELDNAME = 'ZZPROMDT'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '10'.
X_FIELDCAT-EMPHASIZE = ' '.
X_FIELDCAT-EDIT = 'X'.
* X_FIELDCAT-HOTSPOT = 'X'.
X_FIELDCAT-DATATYPE = 'DATS'.
X_FIELDCAT-INTTYPE = 'D'.
X_FIELDCAT-REF_TABLE = 'VEKP'.
X_FIELDCAT-REF_FIELD = 'ZZPROMDT'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Ship-To-Name'(017).
X_FIELDCAT-FIELDNAME = 'NAME1'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '40'.
X_FIELDCAT-EMPHASIZE = ' '.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'SalesOrder#'(018).
X_FIELDCAT-FIELDNAME = 'VGBEL'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '10'.
X_FIELDCAT-EMPHASIZE = ' '.
X_FIELDCAT-HOTSPOT = 'X'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Item'(019).
X_FIELDCAT-FIELDNAME = 'VGPOS'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-EMPHASIZE = ' '.
X_FIELDCAT-OUTPUTLEN = '5'.
X_FIELDCAT-HOTSPOT = ' '.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Material'(020).
X_FIELDCAT-FIELDNAME = 'MATNR'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '18'.
X_FIELDCAT-EMPHASIZE = ' '.
X_FIELDCAT-HOTSPOT = ' '.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Materal Desc'(021).
X_FIELDCAT-FIELDNAME = 'ARKTX'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '40'.
X_FIELDCAT-EMPHASIZE = ' '.
X_FIELDCAT-HOTSPOT = ' '.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'D.O.Item Qty'(022).
X_FIELDCAT-FIELDNAME = 'VEMNG'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '13'.
X_FIELDCAT-EMPHASIZE = ' '.
X_FIELDCAT-HOTSPOT = ' '.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'RC'(023).
X_FIELDCAT-FIELDNAME = 'ZZOCHOLDRC'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '3'.
X_FIELDCAT-EDIT = 'X'.
X_FIELDCAT-DRDN_HNDL = '1'.
X_FIELDCAT-DRDN_ALIAS = 'X'.
* X_FIELDCAT-DRDN_FIELD = 'DROP_DOWN_HANDLE'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
* X_FIELDCAT-SCRTEXT_M = 'OC HOLD RC Desc'.
* X_FIELDCAT-FIELDNAME = 'ZZRCDESC'.
* X_FIELDCAT-TABNAME = 'IT_FINAL'.
* X_FIELDCAT-COL_POS = L_POS.
* X_FIELDCAT-OUTPUTLEN = '20'.
* X_FIELDCAT-EDIT = 'X'.
* X_FIELDCAT-HOTSPOT = ' '.
* APPEND X_FIELDCAT TO IT_FIELDCAT.
* CLEAR X_FIELDCAT.
* L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Delivery'(024).
X_FIELDCAT-FIELDNAME = 'VBELN'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '10'.
X_FIELDCAT-EMPHASIZE = ' '.
X_FIELDCAT-HOTSPOT = 'X'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Item'(025).
X_FIELDCAT-FIELDNAME = 'POSNR'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '5'.
X_FIELDCAT-EMPHASIZE = ' '.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Rep User Id'(026).
X_FIELDCAT-FIELDNAME = 'ZZREP_USERID1'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '11'.
X_FIELDCAT-EMPHASIZE = ' '.
X_FIELDCAT-HOTSPOT = ' '.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
ENDFORM. " build_fieldcat
*& Form set_drdn_table
* Setting the Drop down for the Reason code
FORM SET_DRDN_TABLE.
DATA: X_OCRC LIKE LINE OF IT_OCRC.
DATA:LT_DRAL TYPE LVC_T_DRAL,
 LS_DRAL TYPE LVC_S_DRAL,
 L_DRDN(25) TYPE C.
LOOP AT IT_OCRC INTO X_OCRC.
CONCATENATE X_OCRC-ZZOCHOLDRC ' ' ' ' ' ' X_OCRC-ZZRCDESC INTO L_DRDN
SEPARATED BY SPACE.
* First listbox (handle '1').
 LS_DRAL-HANDLE = '1'.
 LS_DRAL-VALUE = L_DRDN.
 LS_DRAL-INT_VALUE = X_OCRC-ZZOCHOLDRC.
 APPEND LS_DRAL TO LT_DRAL.
ENDLOOP.
**Setting the Drop down table for Reason Code
CALL METHOD G_GRID->SET_DROP_DOWN_TABLE
 EXPORTING
 IT_DROP_DOWN_ALIAS = LT_DRAL.
ENDFORM. " set_drdn_table
*& Form handle_hotspot_click
* Handling the Hotspot
FORM HANDLE_HOTSPOT_CLICK USING I_ROW_ID TYPE LVC_S_ROW
 I_COLUMN_ID TYPE LVC_S_COL
 IS_ROW_NO TYPE LVC_S_ROID.
READ TABLE IT_FINAL INDEX I_ROW_ID .
IF SY-SUBRC = 0.
 IF I_COLUMN_ID-FIELDNAME = 'VGBEL'.
 PERFORM FORM_REFRESH.
 SET PARAMETER ID 'AUN' FIELD IT_FINAL-VGBEL.
 CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
 ENDIF.
**if user clicks on Delivery
 IF I_COLUMN_ID-FIELDNAME = 'VBELN'.
 PERFORM FORM_REFRESH.
 SET PARAMETER ID 'VL' FIELD IT_FINAL-VBELN.
 CALL TRANSACTION 'VL02N' AND SKIP FIRST SCREEN.
 ENDIF.
ENDIF.
ENDFORM . "handle_hotspot_click
*& Form FORM_REFRESH for first list
FORM FORM_REFRESH .
CALL METHOD G_GRID->REFRESH_TABLE_DISPLAY
 EXCEPTIONS
 FINISHED = 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.
ENDFORM . "FORM_REFRESH
*& Form event_ucomm
* Handling User Commands
FORM EVENT_UCOMM USING E_UCOMM TYPE SY-UCOMM.
SORT IT_FINAL.
SORT IT_FINAL_TMP.
CASE E_UCOMM.
 WHEN 'BACK'.
 CALL METHOD G_GRID->CHECK_CHANGED_DATA
 IMPORTING
 E_VALID = L_VALID.
 CALL METHOD CL_GUI_CFW=>FLUSH.
 PERFORM BACK_OPERATION.
 WHEN 'SAVE'.
 CALL METHOD G_GRID->CHECK_CHANGED_DATA
 IMPORTING
 E_VALID = L_VALID.
 CALL METHOD CL_GUI_CFW=>FLUSH.
 PERFORM SAVE_OPERATION.
ENDCASE.
ENDFORM. " event_ucomm
*& Form back_operation
* When User do Back operation
FORM BACK_OPERATION .
**When User Press back Button
* WHEN 'BACK'.
DATA: L_ANS TYPE C,
 L_TABIX TYPE SY-TABIX,
 L_SONUM TYPE VEKP-ZZSONUM,
 X_OCRC LIKE LINE OF IT_OCRC.
**Checking for the Data Change
IF IT_FINAL_TMP[] <> IT_FINAL[].
 PERFORM CONFIRM_BEFORE_LEAVE CHANGING L_ANS.
 IF L_ANS = '1' .
 LOOP AT IT_FINAL.
 L_TABIX = SY-TABIX.
 READ TABLE IT_FINAL_TMP INDEX L_TABIX.
 IF SY-SUBRC = 0.
 IF IT_FINAL <> IT_FINAL_TMP.
*-Validate Date Field.
 PERFORM VALIDATE_AND_CONVERT_DATE.
**Modifying the VEKP table based on changes
 IF NOT IT_FINAL_TMP-EXIDV IS INITIAL.
 UPDATE VEKP SET ZZOCHOLDRC = IT_FINAL-ZZOCHOLDRC
 ZZPROMDT = IT_FINAL-ZZPROMDT
 WHERE EXIDV = IT_FINAL_TMP-EXIDV
 AND INHALT = IT_FINAL-VBELN.
 IF SY-SUBRC = 0.
 COMMIT WORK AND WAIT.
 ENDIF.
 ELSE.
 UPDATE VEKP SET ZZOCHOLDRC = IT_FINAL-ZZOCHOLDRC
 ZZPROMDT = IT_FINAL-ZZPROMDT
 WHERE INHALT = IT_FINAL-VBELN
 AND ZZSONUM = IT_FINAL_TMP-ZZSONUM
 AND ZZPROMDT = IT_FINAL_TMP-ZZPROMDT
 AND ZZOCHOLDRC = IT_FINAL_TMP-ZZOCHOLDRC.
 IF SY-SUBRC = 0.
 COMMIT WORK AND WAIT.
 ENDIF.
 ENDIF.
 ENDIF.
 ENDIF.
 ENDLOOP.
 LEAVE TO SCREEN 0.
 ELSEIF L_ANS = '2'.
 LEAVE TO SCREEN 0.
 ENDIF.
ELSE.
 LEAVE TO SCREEN 0.
ENDIF.
ENDFORM. " back_operation
*& Form CONFIRM_BEFORE_LEAVE
* Popup for Confirm
FORM CONFIRM_BEFORE_LEAVE CHANGING P_ANS TYPE C.
CALL FUNCTION 'POPUP_TO_CONFIRM'
 EXPORTING
 TITLEBAR = 'Confirm'(007)
 TEXT_QUESTION = 'Do you wish to save your data first?'(006)
 TEXT_BUTTON_1 = 'Yes'(008)
 ICON_BUTTON_1 = 'ICON_OKAY'
 TEXT_BUTTON_2 = 'No'(010)
 ICON_BUTTON_2 = 'ICON_CANCEL'
 DEFAULT_BUTTON = '1'
 DISPLAY_CANCEL_BUTTON = 'X'
 START_COLUMN = 25
 START_ROW = 6
 IMPORTING
 ANSWER = P_ANS
 EXCEPTIONS
 TEXT_NOT_FOUND = 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.
ENDFORM. " CONFIRM_BEFORE_LEAVE
*& Form VALIDATE_AND_CONVERT_DATE
* Validating and Converting the date
FORM VALIDATE_AND_CONVERT_DATE .
DATA : L_DATE LIKE SY-DATUM.
CALL FUNCTION 'CONVERT_DATE_INPUT'
 EXPORTING
 INPUT = IT_FINAL-ZZPROMDT
 IMPORTING
 OUTPUT = L_DATE
 EXCEPTIONS
 PLAUSIBILITY_CHECK_FAILED = 1
 WRONG_FORMAT_IN_INPUT = 2
 OTHERS = 3.
IF SY-SUBRC = 0.
 WRITE L_DATE TO IT_FINAL-ZZPROMDT.
 MODIFY IT_FINAL.
ENDIF.
ENDFORM. " VALIDATE_AND_CONVERT_DATE
*& Module STATUS_0200 OUTPUT
* PBO of Second List
MODULE STATUS_0200 OUTPUT.
SET PF-STATUS 'MAIN100'.
SET TITLEBAR 'MAIN100'.
IF G_CUSTOM_CONTAINER1 IS INITIAL.
**Initializing the second Grid
 PERFORM CREATE_AND_INIT_ALV1.
ENDIF.
ENDMODULE. " STATUS_0200 OUTPUT
*& Module USER_COMMAND_0200 INPUT
* PAI of Second list
MODULE USER_COMMAND_0200 INPUT.
DATA: L_ANS.
SAVE_OK = OK_CODE.
CLEAR OK_CODE.
CASE SAVE_OK.
 WHEN 'EXIT'.
 LEAVE TO SCREEN 0.
 WHEN 'CANC'.
 LEAVE TO SCREEN 0.
 WHEN OTHERS.
* do nothing
ENDCASE.
ENDMODULE. " USER_COMMAND_0200 INPUT
*& Form CREATE_AND_INIT_ALV1
* Creating the Grid for Second List
FORM CREATE_AND_INIT_ALV1 .
DATA: LT_EXCLUDE TYPE UI_FUNCTIONS.
CREATE OBJECT G_CUSTOM_CONTAINER1
 EXPORTING CONTAINER_NAME = G_CONTAINER2.
CREATE OBJECT G_GRID1
 EXPORTING I_PARENT = G_CUSTOM_CONTAINER1.
CALL METHOD G_GRID1->REGISTER_EDIT_EVENT
 EXPORTING
 I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_ENTER.
CREATE OBJECT G_HANDLER1.
SET HANDLER G_HANDLER1->HANDLE_USER_COMMAND FOR G_GRID1.
SET HANDLER G_HANDLER1->HANDLE_TOOLBAR FOR G_GRID1.
GS_LAYOUT1-GRID_TITLE = TEXT-003.
GS_LAYOUT1-CWIDTH_OPT = 'X'.
GS_LAYOUT1-NO_ROWMARK = 'X'.
GS_LAYOUT1-ZEBRA = SPACE."'X'.
GS_LAYOUT1-INFO_FNAME = SPACE.
GS_LAYOUT1-CTAB_FNAME = SPACE.
**Vaiant to save the layout
LS_VARI-REPORT = SY-REPID.
LS_VARI-HANDLE = SPACE.
LS_VARI-LOG_GROUP = SPACE.
LS_VARI-USERNAME = SPACE.
LS_VARI-VARIANT = SPACE.
LS_VARI-TEXT = SPACE.
LS_VARI-DEPENDVARS = SPACE.
* setting focus for created grid control
CALL METHOD CL_GUI_CONTROL=>SET_FOCUS
 EXPORTING
 CONTROL = G_GRID1.
PERFORM EXCLUDE_TB_FUNCTIONS CHANGING LT_EXCLUDE.
* Define a drop down table.
PERFORM SET_DRDN_TABLE1.
PERFORM FORM_REFRESH.
CALL METHOD G_GRID1->SET_TABLE_FOR_FIRST_DISPLAY
 EXPORTING
 IT_TOOLBAR_EXCLUDING = LT_EXCLUDE
 IS_VARIANT = LS_VARI
 I_SAVE = 'A'
 IS_LAYOUT = GS_LAYOUT1
 CHANGING
 IT_FIELDCATALOG = IT_FIELDCAT1
 IT_OUTTAB = IT_VEKP1[].
** Set editable cells to ready for input initially
CALL METHOD G_GRID1->SET_READY_FOR_INPUT
 EXPORTING
 I_READY_FOR_INPUT = 1.
CALL METHOD G_GRID1->SET_TOOLBAR_INTERACTIVE.
ENDFORM. "CREATE_AND_INIT_ALV1
*& Form GET_HU_DATA
* Get Handling Units Data
FORM GET_HU_DATA USING X_FINAL TYPE T_FINAL.
CLEAR IT_VEKP1.
REFRESH IT_VEKP1.
READ TABLE IT_SONUM WITH KEY VGBEL = X_FINAL-VGBEL
 VGPOS = X_FINAL-VGPOS.
IF SY-SUBRC = 0.
 LOOP AT IT_VEKP WHERE INHALT = X_FINAL-VBELN
 AND ZZSONUM = IT_SONUM-ZZSONUM
 AND ZZPROMDT = X_FINAL-ZZPROMDT
 AND ZZOCHOLDRC = X_FINAL-ZZOCHOLDRC.
 IT_VEKP1-EXIDV = IT_VEKP-EXIDV.
 IT_VEKP1-ZZSONUM = IT_VEKP-ZZSONUM.
 IF NOT IT_VEKP-ZZPROMDT+0(4) = '0000'.
 IT_VEKP1-ZZPROMDT = IT_VEKP-ZZPROMDT.
 ELSE.
 IT_VEKP1-ZZPROMDT = '00000000'.
 ENDIF.
 IT_VEKP1-ZZOCHOLDRC = IT_VEKP-ZZOCHOLDRC.
 APPEND IT_VEKP1.
 ENDLOOP.
ENDIF.
IT_VEKP1_TMP[] = IT_VEKP1[].
ENDFORM. " GET_HU_DATA
*& Form POPULATE_FIELDCAT2
* Populating the Field Catalog for Second list
FORM POPULATE_FIELDCAT2 .
CLEAR: IT_FIELDCAT1,X_FIELDCAT1.
REFRESH IT_FIELDCAT1.
DATA:L_POS TYPE I VALUE 1.
CLEAR: L_POS.
L_POS = L_POS + 1.
X_FIELDCAT1-SCRTEXT_M = 'External Handling Unit Identification'(027).
X_FIELDCAT1-FIELDNAME = 'EXIDV'.
X_FIELDCAT1-TABNAME = 'IT_VEKP1'.
X_FIELDCAT1-COL_POS = L_POS.
X_FIELDCAT1-EDIT = ' '.
APPEND X_FIELDCAT1 TO IT_FIELDCAT1.
CLEAR X_FIELDCAT1.
L_POS = L_POS + 1.
* X_FIELDCAT1-SCRTEXT_M = 'Prom Date'(016).
X_FIELDCAT1-COLTEXT = 'Promise Date'(033).
X_FIELDCAT1-FIELDNAME = 'ZZPROMDT'.
X_FIELDCAT1-TABNAME = 'IT_VEKP1'.
X_FIELDCAT1-COL_POS = L_POS.
X_FIELDCAT1-OUTPUTLEN = '12'.
X_FIELDCAT1-EMPHASIZE = ' '.
X_FIELDCAT1-EDIT = 'X'.
X_FIELDCAT1-DATATYPE = 'DATS'.
X_FIELDCAT1-INTTYPE = 'D'.
X_FIELDCAT1-REF_TABLE = 'VEKP'.
X_FIELDCAT1-REF_FIELD = 'ZZPROMDT'.
APPEND X_FIELDCAT1 TO IT_FIELDCAT1.
CLEAR X_FIELDCAT1.
L_POS = L_POS + 1.
X_FIELDCAT1-SCRTEXT_M = 'Order Control Hold Reason Code'(029).
X_FIELDCAT1-FIELDNAME = 'ZZOCHOLDRC'.
X_FIELDCAT1-TABNAME = 'IT_VEKP1'.
X_FIELDCAT1-COL_POS = L_POS.
X_FIELDCAT1-DRDN_HNDL = '1'.
X_FIELDCAT1-DRDN_ALIAS = 'X'.
X_FIELDCAT1-EDIT = 'X'.
APPEND X_FIELDCAT1 TO IT_FIELDCAT1.
CLEAR X_FIELDCAT1.
ENDFORM. " POPULATE_FIELDCAT2
*& Form set_drdn_table
* Drop Down for second report
FORM SET_DRDN_TABLE1.
DATA:X_OCRC LIKE LINE OF IT_OCRC.
DATA:LT_DRAL TYPE LVC_T_DRAL,
 LS_DRAL TYPE LVC_S_DRAL,
 L_DRDN(25) TYPE C.
LOOP AT IT_OCRC INTO X_OCRC.
 CONCATENATE X_OCRC-ZZOCHOLDRC ' ' ' ' ' ' X_OCRC-ZZRCDESC INTO
L_DRDN
SEPARATED BY SPACE.
* First listbox (handle '1').
 LS_DRAL-HANDLE = '1'.
 LS_DRAL-VALUE = L_DRDN.
 LS_DRAL-INT_VALUE = X_OCRC-ZZOCHOLDRC.
 APPEND LS_DRAL TO LT_DRAL.
ENDLOOP.
CALL METHOD G_GRID1->SET_DROP_DOWN_TABLE
 EXPORTING
 IT_DROP_DOWN_ALIAS = LT_DRAL.
ENDFORM. " set_drdn_table
*& Form save_operation
* Saving the changes
FORM SAVE_OPERATION .
DATA: L_TABIX LIKE SY-TABIX.
**CHECKING FOR THE DATA CHANGE
IF IT_FINAL_TMP[] <> IT_FINAL[].
 LOOP AT IT_FINAL.
 L_TABIX = SY-TABIX.
 READ TABLE IT_FINAL_TMP INDEX L_TABIX.
 IF SY-SUBRC = 0.
 IF IT_FINAL <> IT_FINAL_TMP.
*-Validate Date Field.
 PERFORM VALIDATE_AND_CONVERT_DATE.
**Modifying the VEKP table based on changes
 IF NOT IT_FINAL_TMP-EXIDV IS INITIAL.
 UPDATE VEKP SET ZZOCHOLDRC = IT_FINAL-ZZOCHOLDRC
 ZZPROMDT = IT_FINAL-ZZPROMDT
 WHERE EXIDV = IT_FINAL_TMP-EXIDV
 AND INHALT = IT_FINAL-VBELN.
 IF SY-SUBRC = 0.
 V_DATA_CHANGE = ' '.
 COMMIT WORK AND WAIT.
 ENDIF.
 ELSE.
 UPDATE VEKP SET ZZOCHOLDRC = IT_FINAL-ZZOCHOLDRC
 ZZPROMDT = IT_FINAL-ZZPROMDT
 WHERE INHALT = IT_FINAL-VBELN
 AND ZZSONUM = IT_FINAL_TMP-ZZSONUM
 AND ZZPROMDT = IT_FINAL_TMP-ZZPROMDT
 AND ZZOCHOLDRC = IT_FINAL_TMP-ZZOCHOLDRC.
 IF SY-SUBRC = 0.
 V_DATA_CHANGE = ' '.
 COMMIT WORK AND WAIT.
 ENDIF.
 ENDIF.
 ENDIF.
 ENDIF.
 ENDLOOP.
 PERFORM GET_VEKP_DATA .
 PERFORM POPULATE_FINAL_TABLE.
 PERFORM DISABLE_EDIT_FIELDS.
 PERFORM FORM_REFRESH.
 MESSAGE S002 WITH 'Data Saved'(011).
ENDIF.
ENDFORM. " save_operation
*& Form BACK_SECOND_LIST
* When User Press Back in Second list
FORM BACK_SECOND_LIST .
DATA:X_OCRC LIKE LINE OF IT_OCRC.
**Checking for the Change in the data
IF IT_VEKP1_TMP[] <> IT_VEKP1[].
 PERFORM CONFIRM_BEFORE_LEAVE CHANGING L_ANS.
 IF L_ANS = '1'.
 LOOP AT IT_VEKP1.
 READ TABLE IT_VEKP1_TMP WITH KEY EXIDV = IT_VEKP1-EXIDV.
 IF SY-SUBRC = 0.
 IF IT_VEKP1_TMP <> IT_VEKP1.
 UPDATE VEKP SET ZZPROMDT = IT_VEKP1-ZZPROMDT
 ZZOCHOLDRC = IT_VEKP1-ZZOCHOLDRC
 WHERE EXIDV = IT_VEKP1-EXIDV.
 IF SY-SUBRC = 0.
 COMMIT WORK.
 ENDIF.
 ENDIF.
 ENDIF.
 ENDLOOP.
 PERFORM GET_VEKP_DATA .
 CLEAR IT_VEKP1_TMP.
 REFRESH IT_VEKP1_TMP.
 IT_VEKP1_TMP[] = IT_VEKP1[].
 PERFORM POPULATE_FINAL_TABLE.
 PERFORM DISABLE_EDIT_FIELDS.
 PERFORM FORM_REFRESH.
 MESSAGE S002 WITH 'Data Saved'(011).
 PERFORM CLEAR_GRID_CONTAINER.
 ELSEIF L_ANS = '2'.
 PERFORM CLEAR_GRID_CONTAINER.
 ENDIF.
ELSE.
 PERFORM CLEAR_GRID_CONTAINER.
ENDIF.
ENDFORM. " BACK_SECOND_LIST
*& Form clear_grid_container
* Clearing the Grid
FORM CLEAR_GRID_CONTAINER .
CALL METHOD G_GRID1->FREE.
CALL METHOD G_CUSTOM_CONTAINER1->FREE.
CALL METHOD CL_GUI_CFW=>FLUSH.
CLEAR G_CUSTOM_CONTAINER1.
CLEAR G_GRID1.
CLEAR G_HANDLER1.
LEAVE TO SCREEN 0.
ENDFORM. " clear_grid_container
*& Form disable_edit_fields
* Disable edit fields
FORM DISABLE_EDIT_FIELDS .
**Changing the Edit option for the records which they don't have
**Entries in HU level
LOOP AT IT_FINAL INTO LS_OUTTAB WHERE FLAG = 'X'.
 V_INDEX = SY-TABIX.
 LS_EDIT-FIELDNAME = 'ZZOCHOLDRC'.
 LS_EDIT-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
 LS_EDIT-STYLE2 = SPACE.
 LS_EDIT-STYLE3 = SPACE.
 LS_EDIT-STYLE4 = SPACE.
 LS_EDIT-MAXLEN = 8.
 INSERT LS_EDIT INTO TABLE LT_EDIT.
 LS_EDIT-FIELDNAME = 'ZZRCDESC'.
 LS_EDIT-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
 LS_EDIT-STYLE2 = SPACE.
 LS_EDIT-STYLE3 = SPACE.
 LS_EDIT-STYLE4 = SPACE.
 LS_EDIT-MAXLEN = 8.
 INSERT LS_EDIT INTO TABLE LT_EDIT.
 LS_EDIT-FIELDNAME = 'ZZPROMDT'.
 LS_EDIT-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
 LS_EDIT-STYLE2 = SPACE.
 LS_EDIT-STYLE3 = SPACE.
 LS_EDIT-STYLE4 = SPACE.
 LS_EDIT-MAXLEN = 8.
 INSERT LS_EDIT INTO TABLE LT_EDIT.
 INSERT LINES OF LT_EDIT INTO TABLE LS_OUTTAB-HANDLE_STYLE.
 MODIFY IT_FINAL INDEX V_INDEX FROM LS_OUTTAB TRANSPORTING
 HANDLE_STYLE DROP_DOWN_HANDLE.
 MODIFY IT_FINAL_TMP INDEX V_INDEX FROM LS_OUTTAB TRANSPORTING
 HANDLE_STYLE DROP_DOWN_HANDLE.
ENDLOOP.
ENDFORM. " disable_edit_fields
*& Form event_ucomm
* Handling User Commands
FORM EVENT_UCOMM1 USING E_UCOMM TYPE SY-UCOMM.
SORT IT_VEKP1.
SORT IT_VEKP1_TMP.
CASE E_UCOMM.
 WHEN'BACK'.
**Checking for the change in the data of the output
 CALL METHOD G_GRID1->CHECK_CHANGED_DATA
 IMPORTING
 E_VALID = L_VALID1.
 CALL METHOD CL_GUI_CFW=>FLUSH.
 PERFORM BACK_SECOND_LIST.
 WHEN 'SAVE'.
 CALL METHOD G_GRID1->CHECK_CHANGED_DATA
 IMPORTING
 E_VALID = L_VALID1.
 CALL METHOD CL_GUI_CFW=>FLUSH.
**Checking for the Change in the data
 IF IT_VEKP1_TMP[] <> IT_VEKP1[].
 LOOP AT IT_VEKP1.
 READ TABLE IT_VEKP1_TMP WITH KEY EXIDV = IT_VEKP1-EXIDV.
 IF SY-SUBRC = 0.
 IF IT_VEKP1_TMP <> IT_VEKP1.
 UPDATE VEKP SET ZZPROMDT = IT_VEKP1-ZZPROMDT
 ZZOCHOLDRC = IT_VEKP1-ZZOCHOLDRC
 WHERE EXIDV = IT_VEKP1-EXIDV.
 IF SY-SUBRC = 0.
 COMMIT WORK.
 ENDIF.
 ENDIF.
 ENDIF.
 ENDLOOP.
 PERFORM GET_VEKP_DATA .
 CLEAR IT_VEKP1_TMP.
 REFRESH IT_VEKP1_TMP.
 IT_VEKP1_TMP[] = IT_VEKP1[].
 PERFORM POPULATE_FINAL_TABLE.
 PERFORM DISABLE_EDIT_FIELDS.
 PERFORM FORM_REFRESH.
 MESSAGE S002 WITH 'Data Saved'(011).
 ENDIF.
 WHEN OTHERS.
* do nothing
ENDCASE.
ENDFORM. " event_ucomm1
check this code , in that i have used and implemented..using classes

Reg alv grid using module pool programming

Dear Friends,
I have a situation where i am using alv grid in module programming where in when i click the total button in the tool bar for any numeric column, the screen goes for a run time error.
I have giving all conditions such as made the column in the field structure of lvc_field_catalog as do_sum = 'X',
still goes for a dump...can anyone throw some hints to do more or the reason behind this and also have not excluded the function code for this total pushbutton while passing to the method set_table_for_first_display
thanks...

hi,
check this up
internal tables
DATA: i_tab TYPE TABLE OF zchangereq,
w_tab TYPE zchangereq.
display field details
DATA: w_field_cat_wa TYPE lvc_s_fcat. " Field Catalog work area
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-020.
PARAMETERS: p_outs RADIOBUTTON GROUP g1,
p_comp RADIOBUTTON GROUP g1.
SELECTION-SCREEN END OF BLOCK b1.
*MACROS
DEFINE add_field.
&1 = FIELDNAME &2 = HEADING &3 = Key field flag
clear w_field_cat_wa.
w_field_cat_wa-fieldname = &1.
lw_field_cat_wa-ref_table = p_ref_table.
lw_field_cat_wa-inttype = p_inttype.
lw_field_cat_wa-decimals = p_decimals.
lw_field_cat_wa-coltext = p_coltext.
lw_field_cat_wa-seltext = p_seltext.
lw_field_cat_wa-do_sum = p_do_sum.
lw_field_cat_wa-no_out = p_no_out.
lw_field_cat_wa-col_pos = p_col_pos.
lw_field_cat_wa-reptext = p_coltext.
lw_field_cat_wa-colddictxt = p_colddictxt.
w_field_cat_wa-scrtext_m = &2.
w_field_cat_wa-key = &3.
append w_field_cat_wa to i_field_cat.
END-OF-DEFINITION.
ALV specific Declarations...........................................
ALV specific Internal table declarations.............................
DATA: i_field_cat TYPE lvc_t_fcat, " Field catalogue
i_alv_sort TYPE lvc_t_sort. " Sort table
ALV variables........................................................
DATA: w_alv_layout TYPE lvc_s_layo, " ALV Layout
w_alv_save TYPE c, " ALV save
w_alv_variant TYPE disvariant. " ALV Variant
ALV Class definitions................................................
CLASS lcl_event_handler DEFINITION.
PUBLIC SECTION.
METHODS: handle_double_click
FOR EVENT double_click OF cl_gui_alv_grid
IMPORTING e_row e_column.
METHODS: handle_hotspot
FOR EVENT hotspot_click OF cl_gui_alv_grid
IMPORTING e_row_id e_column_id.
ENDCLASS. " CLASS LCL_EVENT_HANDLER DEF..
ALV Class implementation............................................
In the Event of a Double Click drill down to the corresponding CHANGE REQUEST
CLASS lcl_event_handler IMPLEMENTATION.
METHOD handle_double_click.
DATA: l_tab LIKE LINE OF i_tab.
CHECK e_row-rowtype(1) EQ space.
READ TABLE i_tab INDEX e_row-index INTO l_tab.
SET PARAMETER ID 'ZTY' FIELD l_tab-ztype.
SET PARAMETER ID 'ZCR' FIELD l_tab-zcref.
CALL TRANSACTION 'ZCRT' AND SKIP FIRST SCREEN.
ENDMETHOD. " HANDLE_DOUBLE_CLICK
not working yet - hotspot seems to stay in the gui!!
METHOD handle_hotspot.
DATA: l_tab LIKE LINE OF i_tab.
CHECK e_row_id-rowtype(1) EQ space.
READ TABLE i_tab INDEX e_row_id-index INTO l_tab.
SET PARAMETER ID 'ZTY' FIELD l_tab-ztype.
SET PARAMETER ID 'ZCR' FIELD l_tab-zcref.
CALL TRANSACTION 'ZCRT' AND SKIP FIRST SCREEN.
ENDMETHOD. " HANDLE_DOUBLE_CLICK
ENDCLASS. " CLASS LCL_EVENT_HANDLER IMPL...
ALV Grid Control definitions........................................
DATA:
ALV Grid Control itself
o_grid TYPE REF TO cl_gui_alv_grid,
Container to hold the ALV Grid Control
o_custom_container TYPE REF TO cl_gui_custom_container,
Event handler (defined in the class above)
o_event_handler TYPE REF TO lcl_event_handler.
INITIALIZATION.
PERFORM create_field_catalogue. " Create ALV Field Catalog
START-OF-SELECTION.
Outstanding requests
IF p_outs = 'X'.
SELECT * FROM zchangereq
INTO TABLE i_tab
WHERE zstatus < 99.
ELSE.
completed requests
SELECT * FROM zchangereq
INTO TABLE i_tab
WHERE zstatus = 99.
ENDIF.
END-OF-SELECTION.
PERFORM list_output_to_alv. " Perform ALV Output operations
FORM LIST_OUTPUT_TO_ALV *
This subroutine is used to call the screen for ALV Output. *
There are no interface parameters to be passed to this subroutine. *
FORM list_output_to_alv.
CALL SCREEN 100.
ENDFORM. " LIST_OUTPUT_TO_ALV
Module STATUS_0100 OUTPUT *
This is the PBO module which will be processed befor displaying the *
ALV Output. *
MODULE status_0100 OUTPUT.
SET PF-STATUS '0100'. " PF Status for ALV Output Screen
IF p_outs = 'X'.
SET TITLEBAR 'STD'.
ELSE.
completed requests
SET TITLEBAR 'COMP'.
ENDIF.
CREATE OBJECT: o_custom_container
EXPORTING container_name = 'SC_GRID',
o_grid
EXPORTING i_parent = o_custom_container.
PERFORM define_alv_layout. " ALV Layout options definitions
PERFORM save_alv_layout_options. " save ALV layout options
PERFORM call_alv_grid. " Call ALV Grid Control
ENDMODULE. " STATUS_0100 OUTPUT
Module USER_COMMAND_0100 INPUT *
This is the PAI module which will be processed when the user performs*
any operation from the ALV output. *
MODULE user_command_0100 INPUT.
CASE sy-ucomm.
WHEN 'EXIT' OR 'BACK' OR 'CANC'.
may need to do this so display is refreshed if other report selected
CALL METHOD o_custom_container->free.
SET SCREEN 0.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
FORM DEFINE_ALV_LAYOUT *
This subroutine is used to Define the ALV layout. *
FORM define_alv_layout .
w_alv_layout-numc_total = 'X'. " Numc total line
w_alv_layout-cwidth_opt = 'X'. " Optimal column width
w_alv_layout-detailinit = 'X'. " Show values that are initial in
" detail list.
w_alv_layout-sel_mode = 'A'. " Column selection mode
w_alv_layout-no_merging = 'X'. " No merging while sorting columns
w_alv_layout-keyhot = 'X'.
ENDFORM. " DEFINE_ALV_LAYOUT
FORM SAVE_ALV_LAYOUT_OPTIONS *
This subroutine is used to Save the ALV layout options. *
FORM save_alv_layout_options.
See the ALV grid control documentation for full list of options
w_alv_save = 'A'.
w_alv_variant-report = sy-repid.
ENDFORM. " SAVE_ALV_LAYOUT_OPTIONS
FORM CALL_ALV_GRID *
This subroutine is used to call ALV Grid control for processing. *
FORM call_alv_grid.
CALL METHOD o_grid->set_table_for_first_display
EXPORTING
is_layout = w_alv_layout
i_save = w_alv_save
is_variant = w_alv_variant
CHANGING
it_outtab = i_tab[]
it_sort = i_alv_sort
it_fieldcatalog = i_field_cat.
Link used Events and Event Handler Methods
CREATE OBJECT o_event_handler.
Set handler o_event_handler->handle_top_of_page for o_grid.
SET HANDLER o_event_handler->handle_double_click FOR o_grid.
ENDFORM. " CALL_ALV_GRID
*& Form create_field_catalogue
set up field catalogue
FORM create_field_catalogue .
Fieldname Heading Key?
*eg add_field 'ZTYPE' 'Type' 'X'.
ENDFORM. " create_field_catalogue

Save operations in ALV Grid

Similar Messages

Maybe you are looking for