Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- METHOD personset_update_entity.
- DATA: ls_entity TYPE zcl_zodata_app_10_mpc=>ts_person,
- ls_key_value TYPE zcl_zodata_app_10_mpc=>ts_person,
- ls_app_table1 TYPE zapp_table1.
- io_data_provider->read_entry_data( IMPORTING es_data = ls_entity ).
- io_tech_request_context->get_converted_keys( IMPORTING es_key_values = ls_key_value ).
- SELECT * FROM zapp_table1 INTO ls_app_table1 WHERE id = ls_key_value.
- ls_app_table1-zzfirst_name = ls_entity-zzfirst_name.
- ls_app_table1-zzlast_name = ls_entity-zzlast_name.
- ls_app_table1-active = ls_entity-active.
- ls_app_table1-zz_login = sy-uname.
- MODIFY zapp_table1 FROM ls_app_table1.
- IF sy-subrc NE 0.
- "raise exception
- ENDIF.
- ENDSELECT.
- er_entity = ls_entity.
- ENDMETHOD.
Add Comment
Please, Sign In to add comment