CE PLUS - Nota 013161
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 09/08/2013 00:00:00
Data/Hora Última Alteração: 19/08/2013 17:15:44
Descrição da Nota: TRATAMENTO PARA TIPOS DE MENSAGENS RETORNADAS DO SAP
Sintoma
Tratamento para tipos de mensagens retornadas do SAP
Solução
Novo tratamento para detalhar as mensagens das contabilizações de recebimento .
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13161 Data: 09/08/2013 Hora: 14:23:43
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13161
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00005
Agrupamento : 00161
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
12532 - 00002 - 9.0 - 00002 - AO ELIMINAR FATURA NÃO ATUALIZA CUSTO EFETIVO
12793 - 00001 - 9.0 - 00003 - UNIFICAÇÃO DAS MENSAGENS DE RECEBIMENTO
13027 - 00004 - 9.0 - 00004 - O SISTEMA ESTÁ PERMITINDO CRIAR DI POR FORA COM O EMBARQUE SENDO
13056 - 00003 - 9.0 - 00004 - ERRO AO BUSCAR A PC DE FRETE INTERNACIONAL NA FATURA DE SEGURO
13153 - 00005 - 9.0 - 00005 - VERIFICAR SE O PROCESSO ESTÁ SENDO ALTERADO POR ALGUM USUÁRIO E B
----------------------------------------------------------------------------------------------------
TRATAMENTO PARA TIPOS DE MENSAGENS RETORNADAS DO SAP
----------------------------------------------------------------------------------------------------
Palavras Chave:
MENSAGENS - SAP - CONTABILIZAÇÕES - RECEBIMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F03
REPS /PWS/MZYCI017F02
REPS /PWS/MZYCI017F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F03
...
' ' '/PWS/SAPMZYCI016' /pws/zycit043-nrseq.
ENDIF.
ENDIF.
COMMIT WORK.
ENDIF.
ELSE.
LOOP AT itab_zycit032.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM ATUALIZA_DADOS_MIGO
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_DADOS_MIGO
msgty = itab_zycit032-tpmsg
* << Fim da inclusão
msgv1 = itab_zycit032-msg+0(50)
msgv2 = itab_zycit032-msg+50(50)
txtnr = '015'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
ENDIF.
ENDFORM.
FORM trata_mr1m.
IF NOT wa_nf_aux-belnr_mr1m IS INITIAL AND
...
...
ENDIF.
IF e_subrc EQ '0'.
PERFORM fill_date_mb01.
ELSEIF e_subrc EQ '4'.
PERFORM atualiza_dados_migo.
ELSE.
LOOP AT itab_zycit034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM TRATA_MB01
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_MB01
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycit034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
ENDIF.
CLEAR v_merc.
SET PARAMETER ID '/PWS/ZYCIP005' FIELD v_merc.
ENDIF.
ENDFORM.
...
...
ENDIF.
IF e_subrc EQ '0'.
PERFORM fill_date_f_51.
ELSEIF e_subrc EQ '4'.
PERFORM atualiza_dados_f51.
ELSE.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM TRATA_F_51
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_F_51
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
ENDIF.
ENDIF.
ENDFORM.
FORM atualiza_dados_f51.
READ TABLE itab_zycbt032 WITH KEY tcode = v_trans
...
...
v_modo_bi.
ENDIF.
ENDIF.
COMMIT WORK.
v_f_51_ok = 'S'.
ELSE.
LOOP AT itab_zycbt032.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM ATUALIZA_DADOS_F51
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_DADOS_F51
msgty = itab_zycbt032-TPMSG
* << Fim da inclusão
msgv1 = itab_zycbt032-msg+0(50)
msgv2 = itab_zycbt032-msg+50(50)
txtnr = '015'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
ENDIF.
ENDFORM.
FORM carrega_descricoes.
s_numacomp = text-259.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
IF sy-subrc = 0.
PERFORM trata_retorno_fbra.
ELSE.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM REVERSE_DOCUMENT_FBRA
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_FBRA
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
PERFORM popup_message USING text-026 text-025.
IF v_answer = 'J'.
CLEAR: wa_nf-statusp_f_51 , wa_nf-belnr_f_51, wa_nf-dt_f_51.
IF v_existe_nfr NE 'S'.
MOVE-CORRESPONDING wa_nf TO /pws/zycie041.
...
...
ENDIF.
ENDIF.
ELSE.
IF itab_zycbt034[] IS INITIAL.
PERFORM trata_retorno_fbra.
ELSE.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM REVERSE_DOCUMENT_FBRA
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_FBRA
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
PERFORM popup_message USING text-026 text-025.
IF v_answer = 'J'.
CLEAR: wa_nf-statusp_f_51 , wa_nf-belnr_f_51, wa_nf-dt_f_51.
IF v_existe_nfr NE 'S'.
MOVE-CORRESPONDING wa_nf TO /pws/zycie041.
...
...
PERFORM carrega_log USING '/PWS/ZYCIT043' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit043-nrseq.
ENDIF.
ENDIF.
MESSAGE s015 WITH text-018.
ENDIF.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM FILL_DATE_F_02
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL AND
NOT itab_contas[] IS INITIAL.
v_f02 = 'IMP'.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
...
...
IF sy-tcode EQ '/PWS/ZYCI017'.
MOVE-CORRESPONDING wa_nf TO /pws/zycie050.
MODIFY /pws/zycit050 FROM /pws/zycie050.
ENDIF.
COMMIT WORK.
ELSE.
LOOP AT itab_zycbt032.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM FILL_DATE_F_02
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02
msgty = itab_zycbt032-tpmsg
* << Fim da inclusão
msgv1 = itab_zycbt032-msg+0(50)
msgv2 = itab_zycbt032-msg+50(50)
txtnr = '015'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM FILL_DATE_F_02
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM FILL_DATE_F_02
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
ENDIF.
ENDFORM.
FORM reverse_document_fb08.
e_estorno = 'FB08'.
PERFORM clear_date_batch.
...
...
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
IF sy-subrc = 0.
PERFORM trata_retorno_fb08.
ELSE.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM REVERSE_DOCUMENT_FB08
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_FB08
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
PERFORM popup_message USING text-026 text-025.
IF v_answer = 'J'.
CLEAR: wa_nf-statusp_f_02 , wa_nf-belnr_f_02, wa_nf-dt_f_02.
IF v_existe_nfr NE 'S'.
MOVE-CORRESPONDING wa_nf TO /pws/zycie041.
...
...
ENDIF.
ENDIF.
ELSE.
IF itab_zycbt034[] IS INITIAL.
PERFORM trata_retorno_fb08.
ELSE.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM REVERSE_DOCUMENT_FB08
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_FB08
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
PERFORM popup_message USING text-026 text-025.
IF v_answer = 'J'.
CLEAR: wa_nf-statusp_f_02 , wa_nf-belnr_f_02, wa_nf-dt_f_02.
IF v_existe_nfr NE 'S'.
MOVE-CORRESPONDING wa_nf TO /pws/zycie041.
...
...
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
IF sy-subrc = 0.
PERFORM trata_retorno_fbra_contab.
ELSE.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_CONTAB_FBRA
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_CONTAB_FBRA
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
ENDIF.
ELSE.
IF itab_zycbt034[] IS INITIAL.
PERFORM trata_retorno_fbra_contab.
ELSE.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_CONTAB_FBRA
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_CONTAB_FBRA
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM reverse_documento_fatura_mr8m.
...
...
ENDIF.
ENDIF.
COMMIT WORK.
v_mr8m_ok = 'S'.
CLEAR v_mr1m_ok.
ELSE.
LOOP AT itab_zycit032.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_FATURA_MR8M
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_FATURA_MR8M
msgty = itab_zycit032-tpmsg
* << Fim da inclusão
msgv1 = itab_zycit032-msg+0(50)
msgv2 = itab_zycit032-msg+50(50)
txtnr = '015'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
PERFORM verifica_estorno_r3 USING 'RBKP'
wa_nf-belnr_mr1m
wa_nf-dt_mr1m
CHANGING v_answer.
...
...
ENDIF.
ENDIF.
COMMIT WORK.
v_mr8m_ok = 'S'.
CLEAR v_mr1m_ok.
ELSE.
LOOP AT itab_zycit032.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_FATURA_MR8M
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_FATURA_MR8M
msgty = itab_zycit032-tpmsg
* << Fim da inclusão
msgv1 = itab_zycit032-msg+0(50)
msgv2 = itab_zycit032-msg+50(50)
txtnr = '015'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
PERFORM verifica_estorno_r3 USING 'RBKP'
wa_nf-belnr_mr1m
wa_nf-dt_mr1m
CHANGING v_answer.
...
...
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
IF sy-subrc = 0.
PERFORM trata_retorno_fbra_fisico.
ELSE.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_FISICO_FBRA
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_FISICO_FBRA
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
PERFORM verifica_estorno_r3 USING 'MSEG'
wa_nf-mblnr_mb01
wa_nf-dt_mb01
CHANGING v_answer.
IF v_answer = 'J'.
...
...
ENDIF.
ENDIF.
ELSE.
IF itab_zycbt034[] IS INITIAL.
PERFORM trata_retorno_fbra_fisico.
ELSE.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_FISICO_FBRA
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_FISICO_FBRA
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
PERFORM verifica_estorno_r3 USING 'MSEG'
wa_nf-mblnr_mb01
wa_nf-dt_mb01
CHANGING v_answer.
IF v_answer = 'J'.
...
...
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
IF sy-subrc = 0.
PERFORM trata_retorno_fb08_imposto.
ELSE.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_IMPOS_FB08
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_IMPOS_FB08
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
PERFORM verifica_estorno_r3 USING 'F-02'
wa_nf-belnr_f_02
wa_nf-dt_f_02
CHANGING v_answer.
IF v_answer = 'J'.
...
...
COMMIT WORK.
ENDIF.
ENDIF.
ELSE.
IF itab_zycbt034[] IS INITIAL.
ELSE.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_IMPOS_FB08
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_IMPOS_FB08
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
PERFORM verifica_estorno_r3 USING 'F-02'
wa_nf-belnr_f_02
wa_nf-dt_f_02
CHANGING v_answer.
IF v_answer = 'J'.
...
...
APPEND itab_contas.
ENDLOOP.
IF itab_contas[] IS INITIAL.
MESSAGE s015 WITH text-058.
EXIT.
ENDIF.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM FILL_DATE_F_02B
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02B
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL AND
NOT itab_contas[] IS INITIAL.
v_f02 = 'SEG'.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
...
...
MOVE-CORRESPONDING /pws/zycie041 TO /pws/zycit041.
PERFORM carrega_log USING '/PWS/ZYCIT041' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit041-nrseq.
ENDIF.
ENDIF.
ELSE.
LOOP AT itab_zycbt032.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM FILL_DATE_F_02B
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02B
msgty = itab_zycbt032-tpmsg
* << Fim da inclusão
msgv1 = itab_zycbt032-msg+0(50)
msgv2 = itab_zycbt032-msg+50(50)
txtnr = '015'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM FILL_DATE_F_02B
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02B
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM FILL_DATE_F_02B
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02B
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
ENDIF.
ENDFORM.
FORM get_parameters_f_02b.
DATA: v_index TYPE i ,
v_codaux LIKE /pws/zycbt012-codaux.
...
...
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
IF sy-subrc = 0.
PERFORM trata_retorno_fb08_seguro.
ELSE.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_PROVSEG_FB08
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_PROVSEG_FB08
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
PERFORM verifica_estorno_r3 USING 'F-02'
wa_nf-belnrf02seg
wa_nf-dt_f02seg
CHANGING v_answer.
IF v_answer = 'J'.
...
...
ENDIF.
ENDIF.
ELSE.
IF itab_zycbt034[] IS INITIAL.
PERFORM trata_retorno_fb08_seguro.
ELSE.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_PROVSEG_FB08
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_PROVSEG_FB08
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
PERFORM verifica_estorno_r3 USING 'F-02'
wa_nf-belnrf02seg
wa_nf-dt_f02seg
CHANGING v_answer.
IF v_answer = 'J'.
...
...
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
IF sy-subrc = 0.
PERFORM trata_retorno_fb08_contab.
ELSE.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM REVERSE_COCUMENTO_CONTAB_FB08
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_COCUMENTO_CONTAB_FB08
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
PERFORM verifica_estorno_r3 USING 'F-02'
wa_nf-belnr_f_51
wa_nf-dt_f_51
CHANGING v_answer.
IF v_answer = 'J'.
...
...
ENDIF.
ENDIF.
ELSE.
IF itab_zycbt034[] IS INITIAL.
PERFORM trata_retorno_fb08_contab.
ELSE.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM REVERSE_COCUMENTO_CONTAB_FB08
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_COCUMENTO_CONTAB_FB08
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
PERFORM verifica_estorno_r3 USING 'F-02'
wa_nf-belnr_f_51
wa_nf-dt_f_51
CHANGING v_answer.
IF v_answer = 'J'.
...
...
MOVE-CORRESPONDING itab_zycbt035 TO itab_contas.
APPEND itab_contas.
ENDLOOP.
IF itab_contas[] IS INITIAL.
MESSAGE s015 WITH text-059.
ENDIF.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM FILL_DATE_F_02FRE
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02FRE
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL AND
NOT itab_contas[] IS INITIAL.
v_f02 = 'FRE'.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
...
...
MOVE-CORRESPONDING /pws/zycie041 TO /pws/zycit041.
PERFORM carrega_log USING '/PWS/ZYCIT041' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit041-nrseq.
ENDIF.
ENDIF.
ELSE.
LOOP AT itab_zycbt032.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM FILL_DATE_F_02FRE
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02FRE
msgty = itab_zycbt032-tpmsg
* << Fim da inclusão
msgv1 = itab_zycbt032-msg+0(50)
msgv2 = itab_zycbt032-msg+50(50)
txtnr = '015'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM FILL_DATE_F_02FRE
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02FRE
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM FILL_DATE_F_02FRE
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02FRE
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
ENDIF.
ENDFORM.
FORM multiplos_lancamentos_f_02fre.
DATA wa_zycit093 TYPE /pws/zycit093.
DATA: v_index TYPE i ,
...
...
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
IF sy-subrc = 0.
PERFORM trata_retorno_fb08_frete.
ELSE.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_PROVFRE_FB08
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_PROVFRE_FB08
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
PERFORM verifica_estorno_r3 USING 'F-02'
wa_nf-belnrf02fre
wa_nf-dt_f02fre
CHANGING v_answer.
IF v_answer = 'J'.
...
...
ENDIF.
ENDIF.
ELSE.
IF itab_zycbt034[] IS INITIAL.
PERFORM trata_retorno_fb08_frete.
ELSE.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_PROVFRE_FB08
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_PROVFRE_FB08
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
PERFORM verifica_estorno_r3 USING 'F-02'
wa_nf-belnrf02fre
wa_nf-dt_f02fre
CHANGING v_answer.
IF v_answer = 'J'.
...
...
itab_zycee005-cpochv = wa_nf-nrseq.
itab_zycee005-docnum = wa_nf-docnum.
PERFORM verify_null_field USING itab_zycee005-docnum
'DOCNUM2'
text-040.
APPEND itab_zycee005.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM FILL_DATE_J1B3_SAIDA
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_J1B3_SAIDA
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL.
CALL FUNCTION '/PWS/ZYCE_TRANSACAO_J1B3'
TABLES
t_dados = itab_zycee005
t_campo = itab_zycet004
...
...
IF /pws/zycit000-clucro_ia = ' '.
CLEAR: itab_zycbt035-c_kostl,
itab_zycbt035-d_kostl.
ENDIF.
MODIFY itab_zycbt035.
ENDLOOP.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM FILL_DATE_F_51_VARIACAO
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_VARIACAO
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
e_subrc = 0.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
'RCB001'.
CLEAR itab_zyglt100 .
...
...
IF sy-subrc EQ 0.
PERFORM carrega_log USING '/PWS/ZYCIT085' 'U'
' ' '/PWS/SAPMZYCI023' /pws/zycit085-nrseqdi.
ENDIF.
DELETE itab_bsis_aux WHERE hkont = itab_matuse_aux2-hkont.
ELSE.
LOOP AT itab_zycbt032.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM FILL_DATE_F_51_VARIACAO
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_VARIACAO
msgty = itab_zycbt032-tpmsg
* << Fim da inclusão
msgv1 = itab_zycbt032-msg+0(50)
msgv2 = itab_zycbt032-msg+50(50)
txtnr = '104'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt032.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM FILL_DATE_F_51_VARIACAO
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_VARIACAO
msgty = itab_zycbt032-tpmsg
* << Fim da inclusão
msgv1 = itab_zycbt032-msg+0(50)
msgv2 = itab_zycbt032-msg+50(50)
txtnr = '104'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
ENDIF.
ELSE.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-51'
tabela = '/PWS/ZYCIT044'
...
...
IF sy-subrc EQ 0.
PERFORM carrega_log USING '/PWS/ZYCIT085' 'U'
' ' '/PWS/SAPMZYCI023' /pws/zycit085-nrseqdi.
ENDIF.
DELETE itab_bsis_aux WHERE hkont = itab_matuse_aux2-hkont.
ELSE.
LOOP AT itab_zycbt032.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM FILL_DATE_F_51_VARIACAO
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_VARIACAO
msgty = itab_zycbt032-tpmsg
* << Fim da inclusão
msgv1 = itab_zycbt032-msg+0(50)
msgv2 = itab_zycbt032-msg+50(50)
txtnr = '104'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
...
...
COMMIT WORK.
IF sy-subrc EQ 0.
PERFORM carrega_log USING '/PWS/ZYCIT085' 'U'
' ' '/PWS/SAPMZYCI023' /pws/zycit085-nrseqdi.
ENDIF.
ELSE.
LOOP AT itab_zycbt032.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM FILL_DATE_F_05_VARIACAO
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_05_VARIACAO
msgty = itab_zycbt032-TPMSG
* << Fim da inclusão
msgv1 = itab_zycbt032-msg+0(50)
msgv2 = itab_zycbt032-msg+50(50)
txtnr = '104'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt032.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM FILL_DATE_F_05_VARIACAO
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_05_VARIACAO
msgty = itab_zycbt032-TPMSG
* << Fim da inclusão
msgv1 = itab_zycbt032-msg+0(50)
msgv2 = itab_zycbt032-msg+50(50)
txtnr = '104'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
ENDIF.
ENDFORM.
FORM lanctos_variacao_f_05.
.
...
...
MOVE-CORRESPONDING itab_zycbt035 TO itab_contas.
APPEND itab_contas.
ENDLOOP.
IF itab_contas[] IS INITIAL.
MESSAGE s015 WITH text-018.
ENDIF.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM FILL_DATE_F_02_ANA
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02_ANA
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL AND
NOT itab_contas[] IS INITIAL.
CALL FUNCTION '/PWS/ZYCI_TRANSACAO_F_02C'
EXPORTING
v_modo = v_modo_bi
...
...
IF sy-tcode EQ '/PWS/ZYCI017'.
MOVE-CORRESPONDING wa_nf TO /pws/zycie050.
MODIFY /pws/zycit050 FROM /pws/zycie050.
ENDIF.
COMMIT WORK.
ELSE.
LOOP AT itab_zycbt032.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM FILL_DATE_F_02_ANA
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02_ANA
msgty = itab_zycbt032-TPMSG
* << Fim da inclusão
msgv1 = itab_zycbt032-msg+0(50)
msgv2 = itab_zycbt032-msg+50(50)
txtnr = '015'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM FILL_DATE_F_02_ANA
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02_ANA
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM FILL_DATE_F_02_ANA
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02_ANA
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
ENDIF.
ENDFORM.
FORM lancamento_impostos_ana.
DATA: v_montante LIKE /pws/zycbe035-wrbtr ,
v_j_1bbranch LIKE /pws/zycit042-j_1bbranch,
...
...
' ' '/PWS/SAPMZYCI016' /pws/zycit043-nrseq.
ENDIF.
ENDIF.
COMMIT WORK.
v_fbra_ok = 'S'.
ELSE.
LOOP AT itab_zycbt032.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM TRATA_RETORNO_FBRA
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_RETORNO_FBRA
msgty = itab_zycbt032-TPMSG
* << Fim da inclusão
msgv1 = itab_zycbt032-msg+0(50)
msgv2 = itab_zycbt032-msg+50(50)
txtnr = '015'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
PERFORM popup_message USING text-026 text-025.
IF v_answer = 'J'.
CLEAR: wa_nf-statusp_f_51 , wa_nf-belnr_f_51, wa_nf-dt_f_51.
IF v_existe_nfr NE 'S'.
...
...
PERFORM carrega_log USING '/PWS/ZYCIT043' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit043-nrseq.
ENDIF.
ENDIF.
COMMIT WORK.
ELSE.
LOOP AT itab_zycbt032.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM TRATA_RETORNO_FB08
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_RETORNO_FB08
msgty = itab_zycbt032-TPMSG
* << Fim da inclusão
msgv1 = itab_zycbt032-msg+0(50)
msgv2 = itab_zycbt032-msg+50(50)
txtnr = '015'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
PERFORM popup_message USING text-026 text-025.
IF v_answer = 'J'.
CLEAR: wa_nf-statusp_f_02 , wa_nf-belnr_f_02, wa_nf-dt_f_02.
IF v_existe_nfr NE 'S'.
...
...
msgv1 = v_belnr_ant
txtnr = '030'
zeile = '01'.
v_messag = 'X'.
v_fbra_ok = 'S'.
ELSE.
LOOP AT itab_zycbt032.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM TRATA_RETORNO_FBRA_CONTAB
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_RETORNO_FBRA_CONTAB
msgty = itab_zycbt032-TPMSG
* << Fim da inclusão
msgv1 = itab_zycbt032-msg+0(50)
msgv2 = itab_zycbt032-msg+50(50)
txtnr = '015'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
ENDIF.
ENDFORM.
FORM trata_retorno_fbra_fisico.
READ TABLE itab_zycit032 WITH KEY tcode = 'MBST'
...
...
' ' '/PWS/SAPMZYCI016' /pws/zycit043-nrseq.
ENDIF.
ENDIF.
COMMIT WORK.
v_mbst_ok = 'S'.
ELSE.
LOOP AT itab_zycit032.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM TRATA_RETORNO_FBRA_FISICO
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_RETORNO_FBRA_FISICO
msgty = itab_zycit032-TPMSG
* << Fim da inclusão
msgv1 = itab_zycit032-msg+0(50)
msgv2 = itab_zycit032-msg+50(50)
txtnr = '015'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
PERFORM clear_date_batch.
PERFORM verifica_estorno_r3 USING 'MSEG'
wa_nf-mblnr_mb01
wa_nf-dt_mb01
...
...
PERFORM carrega_log USING '/PWS/ZYCIT041' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit041-nrseq.
ENDIF.
ENDIF.
COMMIT WORK.
ELSE.
LOOP AT itab_zycbt032.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM TRATA_RETORNO_FB08_IMPOSTO
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_RETORNO_FB08_IMPOSTO
msgty = itab_zycbt032-TPMSG
* << Fim da inclusão
msgv1 = itab_zycbt032-msg+0(50)
msgv2 = itab_zycbt032-msg+50(50)
txtnr = '015'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
PERFORM verifica_estorno_r3 USING 'F-02'
wa_nf-belnr_f_02
wa_nf-dt_f_02
CHANGING v_answer.
...
...
' ' '/PWS/SAPMZYCI016' /pws/zycit041-nrseq.
ENDLOOP.
ENDIF.
ENDIF.
COMMIT WORK.
ELSE.
LOOP AT itab_zycbt032.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM TRATA_RETORNO_FB08_SEGURO
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_RETORNO_FB08_SEGURO
msgty = itab_zycbt032-TPMSG
* << Fim da inclusão
msgv1 = itab_zycbt032-msg+0(50)
msgv2 = itab_zycbt032-msg+50(50)
txtnr = '015'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
PERFORM verifica_estorno_r3 USING 'F-02'
wa_nf-belnrf02seg
wa_nf-dt_f02seg
CHANGING v_answer.
...
...
' ' '/PWS/SAPMZYCI016' /pws/zycit043-nrseq.
ENDIF.
ENDIF.
COMMIT WORK.
v_fb08_ok = 'S'.
ELSE.
LOOP AT itab_zycbt032.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM TRATA_RETORNO_FB08_CONTAB
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_RETORNO_FB08_CONTAB
msgty = itab_zycbt032-TPMSG
* << Fim da inclusão
msgv1 = itab_zycbt032-msg+0(50)
msgv2 = itab_zycbt032-msg+50(50)
txtnr = '015'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
PERFORM verifica_estorno_r3 USING 'F-02'
wa_nf-belnr_f_51
wa_nf-dt_f_51
CHANGING v_answer.
...
...
' ' '/PWS/SAPMZYCI016' /pws/zycit041-nrseq.
ENDLOOP.
ENDIF.
ENDIF.
COMMIT WORK.
ELSE.
LOOP AT itab_zycbt032.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM TRATA_RETORNO_FB08_FRETE
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_RETORNO_FB08_FRETE
msgty = itab_zycbt032-TPMSG
* << Fim da inclusão
msgv1 = itab_zycbt032-msg+0(50)
msgv2 = itab_zycbt032-msg+50(50)
txtnr = '015'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
PERFORM verifica_estorno_r3 USING 'F-02'
wa_nf-belnrf02fre
wa_nf-dt_f02fre
CHANGING v_answer.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F01
...
campo_em_branco = 1
OTHERS = 3.
ENDIF.
IF sy-subrc = 0 OR e_subrc = 4.
PERFORM atualiza_dados_migo.
ELSE.
LOOP AT itab_zycit034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM FILL_DATE_MB01
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_MB01
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycit034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
ENDIF.
CLEAR v_merc.
SET PARAMETER ID '/PWS/ZYCIP005' FIELD v_merc.
ENDFORM.
FORM get_parameters_mb01_receb.
...
...
PERFORM carrega_log USING '/PWS/ZYCIT043' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit043-nrseq.
ENDIF.
ENDIF.
COMMIT WORK.
ELSE.
LOOP AT itab_zycit032.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM REVERSE_DOCUMENT_MR8M
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_MR8M
msgty = itab_zycit032-tpmsg
* << Fim da inclusão
msgv1 = itab_zycit032-msg+0(50)
msgv2 = itab_zycit032-msg+50(50)
txtnr = '015'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
PERFORM clear_date_batch.
ENDIF.
ENDIF.
ELSE.
...
...
PERFORM carrega_log USING '/PWS/ZYCIT043' 'U'
' ' '/PWS/SAPMZYCI016' /pws/zycit043-nrseq.
ENDIF.
ENDIF.
COMMIT WORK.
ELSE.
LOOP AT itab_zycit032.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM REVERSE_DOCUMENT_MR8M
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_MR8M
msgty = itab_zycit032-tpmsg
* << Fim da inclusão
msgv1 = itab_zycit032-msg+0(50)
msgv2 = itab_zycit032-msg+50(50)
txtnr = '015'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
PERFORM clear_date_batch.
ENDIF.
ENDIF.
CLEAR e_estorno.
...
...
ENDIF.
COMMIT WORK.
PERFORM clear_date_batch.
v_mbst_ok = 'S'.
CLEAR v_mb01_ok.
ELSE.
LOOP AT itab_zycit032.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM REVERSE_DOCUMENT_MBST
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_MBST
msgty = itab_zycit032-tpmsg
* << Fim da inclusão
msgv1 = itab_zycit032-msg+0(50)
msgv2 = itab_zycit032-msg+50(50)
txtnr = '015'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
PERFORM clear_date_batch.
ENDIF.
ENDIF.
ELSE.
...
...
ENDIF.
COMMIT WORK.
PERFORM clear_date_batch.
v_mbst_ok = 'S'.
CLEAR v_mb01_ok.
ELSE.
LOOP AT itab_zycit032.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM REVERSE_DOCUMENT_MBST
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_MBST
msgty = itab_zycit032-tpmsg
* << Fim da inclusão
msgv1 = itab_zycit032-msg+0(50)
msgv2 = itab_zycit032-msg+50(50)
txtnr = '015'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
PERFORM clear_date_batch.
ENDIF.
ENDIF.
CLEAR e_estorno.
...
...
MODIFY itab_zycbt035.
MOVE-CORRESPONDING itab_zycbt035 TO itab_contas.
APPEND itab_contas.
v_totline = v_totline + 1.
ENDLOOP.
PERFORM preenche_t_doc.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM FILL_DATE_F_51
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL.
CLEAR v_subrc.
IF v_subrc NE 'X'.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI017'
...
...
ENDIF.
ENDIF.
IF sy-subrc = 0 OR v_bi_ok = 'X'
OR e_subrc NE '0'.
PERFORM atualiza_dados_f51.
ELSE.
LOOP AT itab_zycbt034.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = '/PWS/ZYCIM'
* >> Início da exclusão: FORM FILL_DATE_F_51
msgty = 'I'
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51
msgty = 'E'
* << Fim da inclusão
msgv1 = itab_zycbt034-descricao
txtnr = '016'
zeile = '01'.
v_messag = 'X'.
ENDLOOP.
ENDIF.
ENDIF.
ENDFORM.
FORM get_parameters_f-51.
DATA: v_index TYPE i.
...