ignatov

Untitled

Jun 12th, 2020
1,130
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 0.81 KB | None | 0 0
  1.   METHOD personset_update_entity.
  2.  
  3.     DATA: ls_entity     TYPE zcl_zodata_app_10_mpc=>ts_person,
  4.           ls_key_value  TYPE zcl_zodata_app_10_mpc=>ts_person,
  5.           ls_app_table1 TYPE zapp_table1.
  6.  
  7.     io_data_provider->read_entry_data( IMPORTING es_data = ls_entity ).
  8.     io_tech_request_context->get_converted_keys( IMPORTING es_key_values = ls_key_value ).
  9.  
  10.     SELECT * FROM zapp_table1 INTO ls_app_table1 WHERE  id = ls_key_value.
  11.       ls_app_table1-zzfirst_name = ls_entity-zzfirst_name.
  12.       ls_app_table1-zzlast_name = ls_entity-zzlast_name.
  13.       ls_app_table1-active = ls_entity-active.
  14.       ls_app_table1-zz_login = sy-uname.
  15.       MODIFY zapp_table1 FROM ls_app_table1.
  16.       IF sy-subrc NE 0.
  17.         "raise exception
  18.       ENDIF.
  19.  
  20.     ENDSELECT.
  21.  
  22.     er_entity = ls_entity.
  23.  
  24.   ENDMETHOD.
Add Comment
Please, Sign In to add comment