Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- DATA: ls_log_header TYPE zhrt0014,
- lv_message TYPE string,
- lv_status TYPE string.
- IF gt_arquivo IS INITIAL.
- lv_status = '02'.
- lv_message = 'Interface executada com erro'.
- ELSE.
- lv_status = '01'.
- lv_message = 'Interface executada com sucesso'.
- ENDIF.
- * Preenche estrutura de cabeçalho do log
- ls_log_header-mandt = sy-mandt.
- ls_log_header-cod_interface = '0167'.
- ls_log_header-seqnr = '1'.
- ls_log_header-data = sy-datum.
- ls_log_header-hora = gv_uzeit.
- ls_log_header-usuario = sy-uname.
- ls_log_header-desc_interface = 'Integração de Fechamento de Ponto'.
- ls_log_header-mensagem = lv_message.
- ls_log_header-status = lv_status.
- * Grava cabeçalho do log da execução
- MODIFY zhrt0014 FROM ls_log_header.
- COMMIT WORK.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
