Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- DATA: ls_log TYPE zhrt0092.
- CONSTANTS: c_cod_interface TYPE string VALUE '0167',
- c_infty TYPE infty VALUE '2010'.
- SELECT SINGLE *
- FROM zhrt0092
- INTO ls_log
- WHERE pernr EQ gs_arquivo-pernr
- AND lgart EQ gs_arquivo-cod_evt
- AND begda EQ gs_arquivo-referencia
- AND statu EQ '@0A@'.
- ls_log-pernr = gs_arquivo-pernr.
- ls_log-cod_interface = c_cod_interface.
- ls_log-seqnr = ls_log-seqnr + 1.
- ls_log-data = sy-datum.
- ls_log-hora = gv_uzeit.
- ls_log-lgart = gs_arquivo-cod_evt.
- ls_log-begda = gs_arquivo-referencia.
- ls_log-endda = gs_arquivo-referencia.
- ls_log-infty = c_infty.
- ls_log-dtexec = SWITCH #( ls_log-dtexec WHEN '00000000' THEN sy-datum ).
- ls_log-actio = SWITCH #( gs_arquivo-operacao WHEN 'I' THEN icon_insert_row
- ELSE icon_delete_row ).
- IF is_return-type EQ 'E'.
- ls_log-statu = '@0A@'.
- ls_log-messg = is_return-message_v1.
- ELSE.
- ls_log-statu = '@08@'.
- ls_log-messg = 'Sucesso'.
- ENDIF.
- MODIFY zhrt0092 FROM ls_log.
- COMMIT WORK.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
