confirm popmenu in alv reports
Well i going to cover all senario below topic
Reports : Alv Reports, Classical Report And interactive Reports
Forms : Scripts and Smart Forms Adove Forms
Interface : RFC BAPI ALE/IDCS
Converstion : BDC LSMW BAPI
Enhancement : User-EXITS BADI, Customer Exit
FORM popup.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = 'SAVING DATA'
text_question = 'Do you want save the data?'
icon_button_1 = 'icon_booking_ok'
IMPORTING
answer = gstring
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
IF sy-subrc NE 0.
ENDIF.
****** When the User clicks 'YES'
IF ( gstring = '1' ).
MESSAGE ' Data Saved' TYPE 'S'.
LOOP AT it_final INTO wa_final.
wa_zeditable_alv-zus_name = wa_final-zus_name.
wa_zeditable_alv-zcom_code = wa_final-zcom_code.
wa_zeditable_alv-zarea = wa_final-zarea.
wa_zeditable_alv-zpay_roll = wa_final-zpay_roll.
wa_zeditable_alv-z_position = wa_final-z_position.
UPDATE zeditable_alv
SET zus_name = wa_final-zus_name
zcom_code = wa_final-zcom_code
zarea = wa_final-zarea
zpay_roll = wa_final-zpay_roll
z_position = wa_final-z_position
WHERE zus_id = wa_final-zus_id.
COMMIT WORK.
ENDLOOP.
ELSE.
*When user clicks NO or Cancel
MESSAGE 'Not Saved' TYPE 'S'.
ENDIF.
ENDFORM. "user_command
Reports : Alv Reports, Classical Report And interactive Reports
Forms : Scripts and Smart Forms Adove Forms
Interface : RFC BAPI ALE/IDCS
Converstion : BDC LSMW BAPI
Enhancement : User-EXITS BADI, Customer Exit
FORM popup.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = 'SAVING DATA'
text_question = 'Do you want save the data?'
icon_button_1 = 'icon_booking_ok'
IMPORTING
answer = gstring
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
IF sy-subrc NE 0.
ENDIF.
****** When the User clicks 'YES'
IF ( gstring = '1' ).
MESSAGE ' Data Saved' TYPE 'S'.
LOOP AT it_final INTO wa_final.
wa_zeditable_alv-zus_name = wa_final-zus_name.
wa_zeditable_alv-zcom_code = wa_final-zcom_code.
wa_zeditable_alv-zarea = wa_final-zarea.
wa_zeditable_alv-zpay_roll = wa_final-zpay_roll.
wa_zeditable_alv-z_position = wa_final-z_position.
UPDATE zeditable_alv
SET zus_name = wa_final-zus_name
zcom_code = wa_final-zcom_code
zarea = wa_final-zarea
zpay_roll = wa_final-zpay_roll
z_position = wa_final-z_position
WHERE zus_id = wa_final-zus_id.
COMMIT WORK.
ENDLOOP.
ELSE.
*When user clicks NO or Cancel
MESSAGE 'Not Saved' TYPE 'S'.
ENDIF.
ENDFORM. "user_command
Comments
Post a Comment