ALV GRID UPDATE

[Former Member]

HI,

I displayed some data from one customized Z table into ALV Editable Grid. If i change that data and save means that data to be update in database table. How we can do this operation can anyone please tell me.

thx

[Former Member]

Hi,

Please arefer to the below program.

YOu will have to define the PF status.

This updates the Sales Order thru ALV.

You can add the logic to update Ztable instead.

=============

&----

---

*& Report ZSCD_EDIT_ALV_SO

*&

&----

---

*&

*&

&----

---

REPORT ZSCD_EDIT_ALV_SO.

TABLES: VBAK.

TYPES: BEGIN OF TY_VBAK,

VBELN TYPE BAPIVBELN-VBELN,

LIFSK TYPE VBAK-LIFSK,

LIFSK2 TYPE VBAK-LIFSK,

FAKSK TYPE VBAK-FAKSK ,

FAKSK2 TYPE VBAK-FAKSK ,

AUTLF TYPE VBAK-AUTLF,

AUTLF2 TYPE VBAK-AUTLF,

END OF TY_VBAK.

DATA : IT_VBAK TYPE STANDARD TABLE OF TY_VBAK,

WA_VBAK TYPE TY_VBAK.

DATA: I_REPID LIKE SY-REPID.

TYPE-POOLS: SLIS.

DATA: G_RS_SELFIELD TYPE SLIS_SELFIELD.

DATA: GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV. "Field catalogue

DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

DATA: I_LAYOUT TYPE LVC_S_LAYO.

SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-003.

PARAMETERS : P_VBELN LIKE VBAK-VBELN OBLIGATORY default '0000004969' .

SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN : BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-004.

PARAMETERS : P_RAD1 RADIOBUTTON GROUP G1 DEFAULT 'X'.

PARAMETERS : P_RAD2 RADIOBUTTON GROUP G1.

PARAMETERS : P_RAD3 RADIOBUTTON GROUP G1.

PARAMETERS : P_RAD4 RADIOBUTTON GROUP G1.

SELECTION-SCREEN END OF BLOCK B2.

INITIALIZATION.

I_REPID = SY-REPID.

I_LAYOUT-CWIDTH_OPT = 'X'.

I_LAYOUT-COL_OPT = 'X'.

I_LAYOUT-ZEBRA = 'X'.

START-OF-SELECTION.

*SET PF-STATUS 'SAVE'.

PERFORM FETCH_DATA.

IF NOT IT_VBAK[] IS INITIAL..

PERFORM CREATE_CATALOG.

PERFORM DISPLAY_AVL.

ELSE.

WRITE:/ ' Please check the Sales Order Number'.

ENDIF.

&----

---

*& Form FETCH_DATA

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM FETCH_DATA .

SELECT VBELN LIFSK FAKSK AUTLF FROM VBAK INTO corresponding fields of TABLE IT_VBAK WHERE VBELN = P_VBELN.

ENDFORM. " FETCH_DATA

&----

---

*& Form CREATE_CATALOG

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM CREATE_CATALOG .

DATA WA_FCAT TYPE SLIS_FIELDCAT_ALV. "Field catalogue

.

CLEAR WA_FCAT .

WA_FCAT-TABNAME = 'it_vbak'.

WA_FCAT-FIELDNAME = 'VBELN'.

• WA_FCAT-HOTSPOT = 'X'.

WA_FCAT-SELTEXT_L = 'Sales Order'.

APPEND WA_FCAT TO GT_FIELDCAT .

CLEAR WA_FCAT .

CLEAR WA_FCAT .

WA_FCAT-TABNAME = 'it_vbak'.

WA_FCAT-FIELDNAME = 'FAKSK'.

WA_FCAT-SELTEXT_L = 'Billing block'.

APPEND WA_FCAT TO GT_FIELDCAT .

CLEAR WA_FCAT .

CLEAR WA_FCAT .

WA_FCAT-TABNAME = 'it_vbak'.

WA_FCAT-FIELDNAME = 'FAKSK2'.

WA_FCAT-SELTEXT_L = 'New Billing block'.

IF P_RAD1 = 'X' or P_RAD4 = 'X'.

WA_FCAT-EDIT = 'X'.

WA_FCAT-INPUT = 'X'.

ENDIF.

APPEND WA_FCAT TO GT_FIELDCAT .

CLEAR WA_FCAT .

*********

CLEAR WA_FCAT .

WA_FCAT-TABNAME = 'it_vbak'.

WA_FCAT-FIELDNAME = 'LIFSK'.

WA_FCAT-SELTEXT_L = 'Delivery block'.

APPEND WA_FCAT TO GT_FIELDCAT .

CLEAR WA_FCAT .

CLEAR WA_FCAT .

WA_FCAT-TABNAME = 'it_vbak'.

WA_FCAT-FIELDNAME = 'LIFSK2'.

WA_FCAT-SELTEXT_L = 'New Delivery block'.

IF P_RAD2 = 'X' or P_RAD4 = 'X'.

WA_FCAT-EDIT = 'X'.

WA_FCAT-INPUT = 'X'.

ENDIF.

APPEND WA_FCAT TO GT_FIELDCAT .

CLEAR WA_FCAT .

*********

*********

CLEAR WA_FCAT .

WA_FCAT-TABNAME = 'it_vbak'.

WA_FCAT-FIELDNAME = 'AUTLF'.

WA_FCAT-SELTEXT_L = 'Complete Delivery'.

APPEND WA_FCAT TO GT_FIELDCAT .

CLEAR WA_FCAT .

CLEAR WA_FCAT .

WA_FCAT-TABNAME = 'it_vbak'.

WA_FCAT-FIELDNAME = 'AUTLF2'.

WA_FCAT-SELTEXT_L = 'Complete Delivery'.

IF P_RAD3 = 'X' or P_RAD4 = 'X'.

WA_FCAT-EDIT = 'X'.

WA_FCAT-INPUT = 'X'.

ENDIF.

APPEND WA_FCAT TO GT_FIELDCAT .

CLEAR WA_FCAT .

*********

ENDFORM. " CREATE_CATALOG

&----

---

*& Form DISPLAY_AVL

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM DISPLAY_AVL .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = I_REPID

I_CALLBACK_PF_STATUS_SET = 'STATUS'

I_CALLBACK_USER_COMMAND = 'USER_COMMAND'

IT_FIELDCAT = GT_FIELDCAT

TABLES

T_OUTTAB = IT_VBAK

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2.

IF SY-SUBRC <> 0.

WRITE:/ 'Error in ALV Grid Display'.

ENDIF.

ENDFORM. " DISPLAY_AVL

&----

---

*& Form STATUS

&----

---

• text

----

---

• -->P_EXTAB text

----

---

FORM STATUS USING P_EXTAB TYPE SLIS_T_EXTAB.

*Pf status

SET PF-STATUS 'STATUS'.

ENDFORM. " STATUS

&----

---

*& Form USER_COMMAND

&----

---

• text

----

---

• -->R_UCOMM text

• -->RS_SELFIELD text

----

---

FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

G_RS_SELFIELD = RS_SELFIELD.

DATA : L_UCOMM TYPE SY-UCOMM.

L_UCOMM = SY-UCOMM.

CASE SY-UCOMM.

WHEN 'EXECUTE' .

PERFORM PROCESS_SO.

WHEN 'SAVE' .

PERFORM PROCESS_SO.

WHEN 'BACK'.

LEAVE TO SCREEN 100.

WHEN 'LEAV'.

LEAVE SCREEN.

WHEN 'CANC'.

LEAVE PROGRAM.

WHEN OTHERS.

MESSAGE 'Error' TYPE 'E'.

ENDCASE.

ENDFORM. "USER_COMMAND

&----

---

*& Form CHANGE_SALES_ORDER

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM CHANGE_SALES_ORDER .

READ TABLE IT_VBAK INDEX 1 INTO WA_VBAK.

DATA : HEADER_IN TYPE BAPISDH1,

RETURN TYPE STANDARD TABLE OF BAPIRET2,

WA_RETURN TYPE BAPIRET2,

COMM_RET TYPE BAPIRET2,

HEADER_INX TYPE BAPISDH1X.

clear : HEADER_INX, HEADER_IN.

HEADER_INX-UPDATEFLAG = 'U'.

if p_rad1 = 'X' or P_RAD4 = 'X'.

HEADER_IN-BILL_BLOCK = WA_VBAK-FAKSK2.

HEADER_INX-BILL_BLOCK = 'X'.

endif.

if p_rad2 = 'X' or P_RAD4 = 'X'.

HEADER_IN-DLV_BLOCK = WA_VBAK-LIFSK2.

HEADER_INX-DLV_BLOCK = 'X'.

endif.

if p_rad3 = 'X' or P_RAD4 = 'X'.

HEADER_IN-COMPL_DLV = WA_VBAK-AUTLF2.

HEADER_INX-COMPL_DLV = 'X'.

endif.

CALL FUNCTION 'BAPI_SALESORDER_CHANGE'

EXPORTING

SALESDOCUMENT = WA_VBAK-VBELN

ORDER_HEADER_IN = HEADER_IN

ORDER_HEADER_INX = HEADER_INX

TABLES

RETURN = RETURN.

READ TABLE RETURN INTO WA_RETURN WITH KEY TYPE = 'E' .

IF SY-SUBRC = 0.

CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY_OK'

EXPORTING

ENDPOS_COL = '120'

ENDPOS_ROW = '10'

STARTPOS_COL = '20'

STARTPOS_ROW = '10'

TITLETEXT = ' Error!!! '

TABLES

VALUETAB = RETURN.

DATA: ANS(1) TYPE C.

CALL FUNCTION 'POPUP_WITH_2_BUTTONS_TO_CHOOSE'

EXPORTING

DIAGNOSETEXT1 = ' Sales Order is Not Changed.'

DIAGNOSETEXT2 = ' Would you like to See the Original sales Order?'

TEXTLINE1 = ' Alternatively you can goto Transaction VA03. '

TEXT_OPTION1 = ' Yes'

TEXT_OPTION2 = ' No'

TITEL = ' Sales Order Popup'

IMPORTING

ANSWER = ANS.

IF ANS = '1'.

CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.

ENDIF.

ELSE.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

IMPORTING

RETURN = COMM_RET.

CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY_OK'

EXPORTING

ENDPOS_COL = '120'

ENDPOS_ROW = '10'

STARTPOS_COL = '20'

STARTPOS_ROW = '10'

TITLETEXT = ' Sales Order Changed '

TABLES

VALUETAB = RETURN.

CALL FUNCTION 'POPUP_WITH_2_BUTTONS_TO_CHOOSE'

EXPORTING

DIAGNOSETEXT1 = ' Sales Order is Changed.'

DIAGNOSETEXT2 = ' Would you like to See the Changed sales Order?'

TEXTLINE1 = ' Alternatively you can goto Transaction VA03. '

TEXT_OPTION1 = ' Yes'

TEXT_OPTION2 = ' No'

TITEL = ' Sales Order Popup'

IMPORTING

ANSWER = ANS.

IF ANS = '1'.

CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.

ENDIF.

ENDIF.

ENDFORM. " CHANGE_SALES_ORDER

&----

---

*& Form PROCESS_SO

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM PROCESS_SO .

DATA: GD_REPID LIKE SY-REPID, "Exists

REF_GRID TYPE REF TO CL_GUI_ALV_GRID.

IF REF_GRID IS INITIAL.

CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'

IMPORTING

E_GRID = REF_GRID.

ENDIF.

IF NOT REF_GRID IS INITIAL.

CALL METHOD REF_GRID->CHECK_CHANGED_DATA .

ENDIF.

G_RS_SELFIELD-REFRESH = 'X'.

PERFORM CHANGE_SALES_ORDER.

ENDFORM. " PROCESS_SO

=================

[Former Member]

Please search the forum before posting.

This question has been posted before.

[Former Member]

Hi,

plz refer this...

REPORT z_demo_alv_jg.*******************************************************************

• TYPE-POOLS *

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

TYPE-POOLS: slis. *******************************************************************

• INTERNAL TABLES/WORK AREAS/VARIABLES *

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

DATA: i_fieldcat TYPE slis_t_fieldcat_alv,

i_index TYPE STANDARD TABLE OF i WITH HEADER LINE,

w_field TYPE slis_fieldcat_alv,

p_table LIKE dd02l-tabname,

dy_table TYPE REF TO data,

dy_tab TYPE REF TO data,

dy_line TYPE REF TO data.*******************************************************************

• FIELD-SYMBOLS *

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

FIELD-SYMBOLS: <dyn_table> TYPE STANDARD TABLE,

<dyn_wa> TYPE ANY,

<dyn_field> TYPE ANY,

<dyn_tab_temp> TYPE STANDARD TABLE.*******************************************************************

• SELECTION SCREEN *

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

PARAMETERS: tabname(30) TYPE c,

lines(5) TYPE n.*******************************************************************

• START-OF-SELECTION *

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

START-OF-SELECTION.* Storing table name

p_table = tabname.* Create internal table dynamically with the stucture of table name

• entered in the selection screen

CREATE DATA dy_table TYPE STANDARD TABLE OF (p_table).

ASSIGN dy_table->* TO <dyn_table>.

IF sy-subrc <> 0.

MESSAGE i000(z_zzz_ca_messages) WITH ' No table found'. LEAVE TO LIST-PROCESSING.

ENDIF.

• Create workarea for the table

CREATE DATA dy_line LIKE LINE OF <dyn_table>.

ASSIGN dy_line->* TO <dyn_wa>.* Create another temp. table

CREATE DATA dy_tab TYPE STANDARD TABLE OF (p_table).

ASSIGN dy_tab->* TO <dyn_tab_temp>. SORT i_fieldcat BY col_pos.* Select data from table

SELECT * FROM (p_table)

INTO TABLE <dyn_table>

UP TO lines ROWS. REFRESH <dyn_tab_temp>.* Display report

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

i_callback_program = sy-repid

i_structure_name = p_table

i_callback_user_command = 'USER_COMMAND'

i_callback_pf_status_set = 'SET_PF_STATUS'

TABLES

t_outtab = <dyn_table>

EXCEPTIONS

program_error = 1

OTHERS = 2. IF sy-subrc <> 0. ENDIF.&----

---

*& Form SET_PF_STATUS

&----

---

• Setting custom PF-Status

----

---

• -->RT_EXTAB Excluding table

----

---

FORM set_pf_status USING rt_extab TYPE slis_t_extab. SET PF-STATUS 'Z_STANDARD'.ENDFORM. "SET_PF_STATUS&----

---

*& Form user_command

&----

---

• Handling custom function codes

----

---

• -->R_UCOMM Function code value

• -->RS_SELFIELD Info. of cursor position in ALV

----

---

FORM user_command USING r_ucomm LIKE sy-ucomm

rs_selfield TYPE slis_selfield.* Local data declaration

DATA: li_tab TYPE REF TO data,

l_line TYPE REF TO data.* Local field-symbols

FIELD-SYMBOLS:<l_tab> TYPE table,

<l_wa> TYPE ANY.* Create table

CREATE DATA li_tab TYPE STANDARD TABLE OF (p_table).

ASSIGN li_tab->* TO <l_tab>.* Create workarea

CREATE DATA l_line LIKE LINE OF <l_tab>.

ASSIGN l_line->* TO <l_wa>. CASE r_ucomm.* When a record is selected

WHEN '&IC1'.* Read the selected record

READ TABLE <dyn_table> ASSIGNING <dyn_wa> INDEX

rs_selfield-tabindex. IF sy-subrc = 0.* Store the record in an internal table

APPEND <dyn_wa> TO <l_tab>.* Fetch the field catalog info

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = 'Z_DEMO_PDF_JG'

i_structure_name = p_table

CHANGING

ct_fieldcat = i_fieldcat

EXCEPTIONS

inconsistent_interface = 1

program_error = 2

OTHERS = 3.

IF sy-subrc = 0.* Make all the fields input enabled except key fields

w_field-input = 'X'. MODIFY i_fieldcat FROM w_field TRANSPORTING input

WHERE key IS INITIAL. ENDIF.* Display the record for editing purpose

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

i_callback_program = sy-repid

i_structure_name = p_table

it_fieldcat = i_fieldcat

i_screen_start_column = 10

i_screen_start_line = 15

i_screen_end_column = 200

i_screen_end_line = 20

TABLES

t_outtab = <l_tab>

EXCEPTIONS

program_error = 1

OTHERS = 2. IF sy-subrc = 0.* Read the modified data

READ TABLE <l_tab> INDEX 1 INTO <l_wa>.* If the record is changed then track its index no.

• and populate it in an internal table for future

• action

IF sy-subrc = 0 AND <dyn_wa> <> <l_wa>.

<dyn_wa> = <l_wa>.

i_index = rs_selfield-tabindex.

APPEND i_index.

ENDIF.

ENDIF. ENDIF.* When save button is pressed

WHEN 'SAVE'.* Sort the index table

SORT i_index.* Delete all duplicate records

DELETE ADJACENT DUPLICATES FROM i_index. LOOP AT i_index.* Find out the changes in the internal table

• and populate these changes in another internal table

READ TABLE <dyn_table> ASSIGNING <dyn_wa> INDEX i_index.

IF sy-subrc = 0.

APPEND <dyn_wa> TO <dyn_tab_temp>.

ENDIF. ENDLOOP.* Lock the table

CALL FUNCTION 'ENQUEUE_E_TABLE'

EXPORTING

mode_rstable = 'E'

tabname = p_table

EXCEPTIONS

foreign_lock = 1

system_failure = 2

OTHERS = 3. IF sy-subrc = 0.* Modify the database table with these changes

MODIFY (p_table) FROM TABLE <dyn_tab_temp>. REFRESH <dyn_tab_temp>.* Unlock the table

CALL FUNCTION 'DEQUEUE_E_TABLE'

EXPORTING

mode_rstable = 'E'

tabname = p_table. ENDIF.

ENDCASE. rs_selfield-refresh = 'X'.ENDFORM. "user_command

Reference : SAPTechnical.com

hope this helps.

thanx,

dhanashri.

[Former Member]

Hi,

Please arefer to the below program.

YOu will have to define the PF status.

This updates the Sales Order thru ALV.

You can add the logic to update Ztable instead.

=============

&----

---

*& Report ZSCD_EDIT_ALV_SO

*&

&----

---

*&

*&

&----

---

REPORT ZSCD_EDIT_ALV_SO.

TABLES: VBAK.

TYPES: BEGIN OF TY_VBAK,

VBELN TYPE BAPIVBELN-VBELN,

LIFSK TYPE VBAK-LIFSK,

LIFSK2 TYPE VBAK-LIFSK,

FAKSK TYPE VBAK-FAKSK ,

FAKSK2 TYPE VBAK-FAKSK ,

AUTLF TYPE VBAK-AUTLF,

AUTLF2 TYPE VBAK-AUTLF,

END OF TY_VBAK.

DATA : IT_VBAK TYPE STANDARD TABLE OF TY_VBAK,

WA_VBAK TYPE TY_VBAK.

DATA: I_REPID LIKE SY-REPID.

TYPE-POOLS: SLIS.

DATA: G_RS_SELFIELD TYPE SLIS_SELFIELD.

DATA: GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV. "Field catalogue

DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

DATA: I_LAYOUT TYPE LVC_S_LAYO.

SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-003.

PARAMETERS : P_VBELN LIKE VBAK-VBELN OBLIGATORY default '0000004969' .

SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN : BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-004.

PARAMETERS : P_RAD1 RADIOBUTTON GROUP G1 DEFAULT 'X'.

PARAMETERS : P_RAD2 RADIOBUTTON GROUP G1.

PARAMETERS : P_RAD3 RADIOBUTTON GROUP G1.

PARAMETERS : P_RAD4 RADIOBUTTON GROUP G1.

SELECTION-SCREEN END OF BLOCK B2.

INITIALIZATION.

I_REPID = SY-REPID.

I_LAYOUT-CWIDTH_OPT = 'X'.

I_LAYOUT-COL_OPT = 'X'.

I_LAYOUT-ZEBRA = 'X'.

START-OF-SELECTION.

*SET PF-STATUS 'SAVE'.

PERFORM FETCH_DATA.

IF NOT IT_VBAK[] IS INITIAL..

PERFORM CREATE_CATALOG.

PERFORM DISPLAY_AVL.

ELSE.

WRITE:/ ' Please check the Sales Order Number'.

ENDIF.

&----

---

*& Form FETCH_DATA

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM FETCH_DATA .

SELECT VBELN LIFSK FAKSK AUTLF FROM VBAK INTO corresponding fields of TABLE IT_VBAK WHERE VBELN = P_VBELN.

ENDFORM. " FETCH_DATA

&----

---

*& Form CREATE_CATALOG

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM CREATE_CATALOG .

DATA WA_FCAT TYPE SLIS_FIELDCAT_ALV. "Field catalogue

.

CLEAR WA_FCAT .

WA_FCAT-TABNAME = 'it_vbak'.

WA_FCAT-FIELDNAME = 'VBELN'.

• WA_FCAT-HOTSPOT = 'X'.

WA_FCAT-SELTEXT_L = 'Sales Order'.

APPEND WA_FCAT TO GT_FIELDCAT .

CLEAR WA_FCAT .

CLEAR WA_FCAT .

WA_FCAT-TABNAME = 'it_vbak'.

WA_FCAT-FIELDNAME = 'FAKSK'.

WA_FCAT-SELTEXT_L = 'Billing block'.

APPEND WA_FCAT TO GT_FIELDCAT .

CLEAR WA_FCAT .

CLEAR WA_FCAT .

WA_FCAT-TABNAME = 'it_vbak'.

WA_FCAT-FIELDNAME = 'FAKSK2'.

WA_FCAT-SELTEXT_L = 'New Billing block'.

IF P_RAD1 = 'X' or P_RAD4 = 'X'.

WA_FCAT-EDIT = 'X'.

WA_FCAT-INPUT = 'X'.

ENDIF.

APPEND WA_FCAT TO GT_FIELDCAT .

CLEAR WA_FCAT .

*********

CLEAR WA_FCAT .

WA_FCAT-TABNAME = 'it_vbak'.

WA_FCAT-FIELDNAME = 'LIFSK'.

WA_FCAT-SELTEXT_L = 'Delivery block'.

APPEND WA_FCAT TO GT_FIELDCAT .

CLEAR WA_FCAT .

CLEAR WA_FCAT .

WA_FCAT-TABNAME = 'it_vbak'.

WA_FCAT-FIELDNAME = 'LIFSK2'.

WA_FCAT-SELTEXT_L = 'New Delivery block'.

IF P_RAD2 = 'X' or P_RAD4 = 'X'.

WA_FCAT-EDIT = 'X'.

WA_FCAT-INPUT = 'X'.

ENDIF.

APPEND WA_FCAT TO GT_FIELDCAT .

CLEAR WA_FCAT .

*********

*********

CLEAR WA_FCAT .

WA_FCAT-TABNAME = 'it_vbak'.

WA_FCAT-FIELDNAME = 'AUTLF'.

WA_FCAT-SELTEXT_L = 'Complete Delivery'.

APPEND WA_FCAT TO GT_FIELDCAT .

CLEAR WA_FCAT .

CLEAR WA_FCAT .

WA_FCAT-TABNAME = 'it_vbak'.

WA_FCAT-FIELDNAME = 'AUTLF2'.

WA_FCAT-SELTEXT_L = 'Complete Delivery'.

IF P_RAD3 = 'X' or P_RAD4 = 'X'.

WA_FCAT-EDIT = 'X'.

WA_FCAT-INPUT = 'X'.

ENDIF.

APPEND WA_FCAT TO GT_FIELDCAT .

CLEAR WA_FCAT .

*********

ENDFORM. " CREATE_CATALOG

&----

---

*& Form DISPLAY_AVL

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM DISPLAY_AVL .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = I_REPID

I_CALLBACK_PF_STATUS_SET = 'STATUS'

I_CALLBACK_USER_COMMAND = 'USER_COMMAND'

IT_FIELDCAT = GT_FIELDCAT

TABLES

T_OUTTAB = IT_VBAK

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2.

IF SY-SUBRC <> 0.

WRITE:/ 'Error in ALV Grid Display'.

ENDIF.

ENDFORM. " DISPLAY_AVL

&----

---

*& Form STATUS

&----

---

• text

----

---

• -->P_EXTAB text

----

---

FORM STATUS USING P_EXTAB TYPE SLIS_T_EXTAB.

*Pf status

SET PF-STATUS 'STATUS'.

ENDFORM. " STATUS

&----

---

*& Form USER_COMMAND

&----

---

• text

----

---

• -->R_UCOMM text

• -->RS_SELFIELD text

----

---

FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

G_RS_SELFIELD = RS_SELFIELD.

DATA : L_UCOMM TYPE SY-UCOMM.

L_UCOMM = SY-UCOMM.

CASE SY-UCOMM.

WHEN 'EXECUTE' .

PERFORM PROCESS_SO.

WHEN 'SAVE' .

PERFORM PROCESS_SO.

WHEN 'BACK'.

LEAVE TO SCREEN 100.

WHEN 'LEAV'.

LEAVE SCREEN.

WHEN 'CANC'.

LEAVE PROGRAM.

WHEN OTHERS.

MESSAGE 'Error' TYPE 'E'.

ENDCASE.

ENDFORM. "USER_COMMAND

&----

---

*& Form CHANGE_SALES_ORDER

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM CHANGE_SALES_ORDER .

READ TABLE IT_VBAK INDEX 1 INTO WA_VBAK.

DATA : HEADER_IN TYPE BAPISDH1,

RETURN TYPE STANDARD TABLE OF BAPIRET2,

WA_RETURN TYPE BAPIRET2,

COMM_RET TYPE BAPIRET2,

HEADER_INX TYPE BAPISDH1X.

clear : HEADER_INX, HEADER_IN.

HEADER_INX-UPDATEFLAG = 'U'.

if p_rad1 = 'X' or P_RAD4 = 'X'.

HEADER_IN-BILL_BLOCK = WA_VBAK-FAKSK2.

HEADER_INX-BILL_BLOCK = 'X'.

endif.

if p_rad2 = 'X' or P_RAD4 = 'X'.

HEADER_IN-DLV_BLOCK = WA_VBAK-LIFSK2.

HEADER_INX-DLV_BLOCK = 'X'.

endif.

if p_rad3 = 'X' or P_RAD4 = 'X'.

HEADER_IN-COMPL_DLV = WA_VBAK-AUTLF2.

HEADER_INX-COMPL_DLV = 'X'.

endif.

CALL FUNCTION 'BAPI_SALESORDER_CHANGE'

EXPORTING

SALESDOCUMENT = WA_VBAK-VBELN

ORDER_HEADER_IN = HEADER_IN

ORDER_HEADER_INX = HEADER_INX

TABLES

RETURN = RETURN.

READ TABLE RETURN INTO WA_RETURN WITH KEY TYPE = 'E' .

IF SY-SUBRC = 0.

CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY_OK'

EXPORTING

ENDPOS_COL = '120'

ENDPOS_ROW = '10'

STARTPOS_COL = '20'

STARTPOS_ROW = '10'

TITLETEXT = ' Error!!! '

TABLES

VALUETAB = RETURN.

DATA: ANS(1) TYPE C.

CALL FUNCTION 'POPUP_WITH_2_BUTTONS_TO_CHOOSE'

EXPORTING

DIAGNOSETEXT1 = ' Sales Order is Not Changed.'

DIAGNOSETEXT2 = ' Would you like to See the Original sales Order?'

TEXTLINE1 = ' Alternatively you can goto Transaction VA03. '

TEXT_OPTION1 = ' Yes'

TEXT_OPTION2 = ' No'

TITEL = ' Sales Order Popup'

IMPORTING

ANSWER = ANS.

IF ANS = '1'.

CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.

ENDIF.

ELSE.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

IMPORTING

RETURN = COMM_RET.

CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY_OK'

EXPORTING

ENDPOS_COL = '120'

ENDPOS_ROW = '10'

STARTPOS_COL = '20'

STARTPOS_ROW = '10'

TITLETEXT = ' Sales Order Changed '

TABLES

VALUETAB = RETURN.

CALL FUNCTION 'POPUP_WITH_2_BUTTONS_TO_CHOOSE'

EXPORTING

DIAGNOSETEXT1 = ' Sales Order is Changed.'

DIAGNOSETEXT2 = ' Would you like to See the Changed sales Order?'

TEXTLINE1 = ' Alternatively you can goto Transaction VA03. '

TEXT_OPTION1 = ' Yes'

TEXT_OPTION2 = ' No'

TITEL = ' Sales Order Popup'

IMPORTING

ANSWER = ANS.

IF ANS = '1'.

CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.

ENDIF.

ENDIF.

ENDFORM. " CHANGE_SALES_ORDER

&----

---

*& Form PROCESS_SO

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM PROCESS_SO .

DATA: GD_REPID LIKE SY-REPID, "Exists

REF_GRID TYPE REF TO CL_GUI_ALV_GRID.

IF REF_GRID IS INITIAL.

CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'

IMPORTING

E_GRID = REF_GRID.

ENDIF.

IF NOT REF_GRID IS INITIAL.

CALL METHOD REF_GRID->CHECK_CHANGED_DATA .

ENDIF.

G_RS_SELFIELD-REFRESH = 'X'.

PERFORM CHANGE_SALES_ORDER.

ENDFORM. " PROCESS_SO

=================

[Former Member]

Hi Lavanaya,

I can share the way i did it in my project:

Make two copies of original set of data. Display one internal table data in the ALV, and compare this set of data with the new ALV data when the user updates it. Then whatever has been changed get it into a work area/internal table and update the DB.

To identify which row data has been changed, make use of mt_modified_cells property and check this in the event er_data_changed.

Hope this helps.

Ashish.