CE PLUS - Nota 000900
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 16/02/2006 00:00:00
Data/Hora Última Alteração: 21/02/2011 10:22:12
Descrição da Nota: BAIXA DO CLIENTE NA VINCULAÇÃO DE FATURAS
Sintoma
Utilizando o parâmetro de baixa do cliente na vinculação o programa não está levando para o campo
ZFBDT o parâmetro que está na chave de lançamento FTE e sim da CPT na baixa do cliente. O mesmo erro
está ocorrendo para o estorno.
Solução
Foram efetuadas consistências para a busca dos parâmetros pela chave FTE e evento 002 + tipo do
contrato.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00900 Data: 16/02/2006 Hora: 19:02:25
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00900
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00101
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00622 - 00001 - 6.0 - 00022 - VINCULAÇÃO - O SISTEMA ESTÁ ASSUMINDO A DATA BASE INCORRETA AO ES
00755 - 00002 - 6.0 - 00022 - VINCULAÇÃO - PREENCHIMENTO DOS CAMPOS DO BATCH INPUT
----------------------------------------------------------------------------------------------------
BAIXA DO CLIENTE NA VINCULAÇÃO DE FATURAS
----------------------------------------------------------------------------------------------------
Palavras Chave:
BAIXA CLIENTE VINCULAÇÃO FATURAS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB009F01
REPS /PWS/MZYCB009F08
REPS /PWS/MZYCB009F09
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F01
...
ELSEIF itab_zyglt321-cpocb = 'DTEMB'.
SELECT SINGLE dtemb FROM /pws/zycet001
INTO itab_zycbe033-zfbdt
WHERE nrseq = itab_vinc-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'DTVENCTO'.
* >> Início da exclusão: FORM FILL_DATE1_F02
SELECT SINGLE dtvencto FROM /pws/zycet001
INTO itab_zycbe033-zfbdt
WHERE nrseq = itab_zycbt030-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F02
itab_zycbe033-zfbdt = itab_zycbt017-dtvencto.
* << Fim da inclusão
ELSEIF itab_zyglt321-cpocb = 'DTVINCUL'.
itab_zycbe033-zfbdt = /pws/zycbe005-dtvincul.
ENDIF.
WHEN 'VALUT'.
IF itab_zyglt321-cpocb = 'DTVENCTO'.
...
...
ELSEIF itab_zyglt321-cpocb = 'DTEMB'.
SELECT SINGLE dtemb FROM /pws/zycet001
INTO itab_zycbe033-zfbdt
WHERE nrseq = itab_vinc-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'DTVENCTO'.
* >> Início da exclusão: FORM FILL_DATE1_F30
SELECT SINGLE dtvencto FROM /pws/zycet001
INTO itab_zycbe033-zfbdt
WHERE nrseq = itab_zycbt030-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F30
itab_zycbe033-zfbdt = itab_zycbt017-dtvencto.
* << Fim da inclusão
ELSEIF itab_zyglt321-cpocb = 'DTVINCUL'.
itab_zycbe033-zfbdt = /pws/zycbe005-dtvincul.
ENDIF.
WHEN 'VALUT'.
IF itab_zyglt321-cpocb = 'DTVENCTO'.
...
...
ELSEIF itab_zyglt321-cpocb = 'DTEMB'.
SELECT SINGLE dtemb FROM /pws/zycet001
INTO itab_zycbe033-zfbdt
WHERE nrseq = itab_vinc-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'DTVENCTO'.
* >> Início da exclusão: FORM FILL_DATE1_F30
SELECT SINGLE dtvencto FROM /pws/zycet001
INTO itab_zycbe033-zfbdt
WHERE nrseq = itab_zycbt030-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F30
itab_zycbe033-zfbdt = itab_zycbt017-dtvencto.
* << Fim da inclusão
ELSEIF itab_zyglt321-cpocb = 'DTVINCUL'.
itab_zycbe033-zfbdt = /pws/zycbe005-dtvincul.
ENDIF.
WHEN 'VALUT'.
IF itab_zyglt321-cpocb = 'DTVENCTO'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F08
...
ELSEIF itab_zyglt321-cpocb = 'DTEMB'.
SELECT SINGLE dtemb FROM /pws/zycet001
INTO itab_zycbe033-zfbdt
WHERE nrseq = itab_zycbt005-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'DTVENCTO'.
* >> Início da exclusão: FORM FILL_DATE1_F30_DESM
SELECT SINGLE dtvencto FROM /pws/zycet001
INTO itab_zycbe033-zfbdt
WHERE nrseq = itab_zycbt030-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F30_DESM
itab_zycbe033-zfbdt = itab_zycbt017-dtvencto.
* << Fim da inclusão
ELSEIF itab_zyglt321-cpocb = 'DTVINCUL'.
itab_zycbe033-zfbdt = /pws/zycbe005-dtvincul.
ENDIF.
WHEN 'VALUT'.
IF itab_zyglt321-cpocb = 'DTVENCTO'.
...
...
ELSEIF itab_zyglt321-cpocb = 'DTEMB'.
SELECT SINGLE dtemb FROM /pws/zycet001
INTO itab_zycbe033-zfbdt
WHERE nrseq = itab_zycbt005-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'DTVENCTO'.
* >> Início da exclusão: FORM FILL_DATE1_F30_VINC
SELECT SINGLE dtvencto FROM /pws/zycet001
INTO itab_zycbe033-zfbdt
WHERE nrseq = itab_zycbt030-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F30_VINC
itab_zycbe033-zfbdt = itab_zycbt017-dtvencto.
* << Fim da inclusão
ELSEIF itab_zyglt321-cpocb = 'DTVINCUL'.
itab_zycbe033-zfbdt = /pws/zycbe005-dtvincul.
ENDIF.
WHEN 'VALUT'.
IF itab_zyglt321-cpocb = 'DTVENCTO'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F09
...
PERFORM verify_null_field USING itab_zycbt005-dtvincul
'DTBELNR'
text-003.
itab_zycbe033-budat = itab_zycbt005-dtvincul.
itab_zycbe033-bldat = itab_zycbt005-dtvincul.
* >> Início da exclusão: FORM DESMEMBRA_VINC
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt006-nrinvoic
gsberf = itab_zycbt006-gsberf.
* << Fim da exclusão
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
...
...
ELSEIF itab_zyglt321-cpocb = 'DTEMB'.
SELECT SINGLE dtemb FROM /pws/zycet001
INTO itab_zycbe033-zfbdt
WHERE nrseq = itab_zycbt005-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'DTVENCTO'.
* >> Início da exclusão: FORM DESMEMBRA_VINC
SELECT SINGLE dtvencto FROM /pws/zycet001
INTO itab_zycbe033-zfbdt
WHERE nrseq = itab_zycbt030-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_VINC
itab_zycbe033-zfbdt = itab_zycbt017-dtvencto.
* << Fim da inclusão
ELSEIF itab_zyglt321-cpocb = 'DTVINCUL'.
itab_zycbe033-zfbdt = /pws/zycbe005-dtvincul.
ENDIF.
WHEN 'VALUT'.
IF itab_zyglt321-cpocb = 'DTVENCTO'.
...
...
CONCATENATE '002' /pws/zycbe001-tpcontr INTO v_codeven.
CLEAR itab_zyglt321.
REFRESH itab_zyglt321.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
REFRESH itab_zyglt321.
* >> Início da inclusão: FORM BAIXA_CLIENTE
IF wa_zycbt089-bx_cli_vinc IS INITIAL.
* << Fim da inclusão
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'CPT'
AND codeven = v_codeven.
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
...
...
ELSEIF itab_zyglt321-cpocb = 'DTEMB'.
SELECT SINGLE dtemb FROM /pws/zycet001
INTO itab_zycbe033-zfbdt
WHERE nrseq = itab_zycbt005-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'DTVENCTO'.
* >> Início da exclusão: FORM BAIXA_CLIENTE
SELECT SINGLE dtvencto FROM /pws/zycet001
INTO itab_zycbe033-zfbdt
WHERE nrseq = itab_zycbt030-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_CLIENTE
itab_zycbe033-zfbdt = itab_zycbt017-dtvencto.
* << Fim da inclusão
ELSEIF itab_zyglt321-cpocb = 'DTVINCUL'.
itab_zycbe033-zfbdt = /pws/zycbe005-dtvincul.
ENDIF.
WHEN 'VALUT'.
IF itab_zyglt321-cpocb = 'DTVENCTO'.
...
...
WHEN 'ZTERM'.
IF itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
ENDIF.
ENDCASE.
* >> Início da inclusão: FORM BAIXA_CLIENTE
ENDLOOP.
ELSE.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'FTE'
AND codeven = v_codeven.
IF sy-subrc EQ 0.
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf
nrparcf = itab_zycbt005-nrparcf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
IF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_sgtxt = itab_zycbt005-nrinvoic.
itab_zycbe033-c_sgtxt = itab_zycbt005-nrinvoic.
itab_zycbe033-augtx = itab_zycbt005-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'NREMB'.
itab_zycbe033-d_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-c_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-augtx = itab_zycbt017-nremb.
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt005-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'NREMB'.
itab_zycbe033-xblnr = itab_zycbt017-nremb.
ENDIF.
WHEN 'ZFBDT'.
IF itab_zyglt321-cpocb = 'FKDAT'.
itab_zycbe033-zfbdt = itab_zycbt017-fkdat.
ELSEIF itab_zyglt321-cpocb = 'DTINVOIC'.
itab_zycbe033-zfbdt = itab_zycbt017-dtinvoic.
ELSEIF itab_zyglt321-cpocb = 'DTEMB'.
SELECT SINGLE dtemb FROM /pws/zycet001
INTO itab_zycbe033-zfbdt
WHERE nrseq = itab_zycbt005-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'DTVENCTO'.
itab_zycbe033-zfbdt = itab_zycbt017-dtvencto.
ELSEIF itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
ENDIF.
WHEN 'ZUORN'.
IF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt005-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'NREMB'.
itab_zycbe033-d_zuonr = itab_zycbt017-nremb.
ENDIF.
WHEN 'VALUT'.
IF itab_zyglt321-cpocb = 'FKDAT'.
itab_zycbe033-d_valut = itab_zycbt017-fkdat.
itab_zycbe033-c_valut = itab_zycbt017-fkdat.
ELSEIF itab_zyglt321-cpocb = 'DTINVOIC'.
itab_zycbe033-c_valut = itab_zycbt017-dtinvoic.
itab_zycbe033-c_valut = itab_zycbt017-dtinvoic.
ELSEIF itab_zyglt321-cpocb = 'DTEMB'.
SELECT SINGLE dtemb FROM /pws/zycet001
INTO itab_zycbe033-c_valut
WHERE nrseq = itab_zycbt005-nrinvoic.
itab_zycbe033-d_valut = itab_zycbe033-c_valut.
ELSEIF itab_zyglt321-cpocb = 'DTVENCTO'.
itab_zycbe033-c_valut = itab_zycbt017-dtvencto.
itab_zycbe033-c_valut = itab_zycbt017-dtvencto.
ELSEIF itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-c_valut = itab_zycbt017-dtbl.
itab_zycbe033-c_valut = itab_zycbt017-dtbl.
ENDIF.
WHEN 'ZTERM'.
IF itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
ENDIF.
ENDCASE.
* << Fim da inclusão
ENDLOOP.
* >> Início da inclusão: FORM BAIXA_CLIENTE
ENDIF.
ENDIF.
* << Fim da inclusão
itab_zycbe033-wrbtr = itab_zycbt005-vlme_p.
itab_zycbe033-agkon = itab_zycbt017-kunag.
itab_zycbe033-d_kostl = /pws/zycbe005-kostl.
itab_zycbe033-d_prctr = /pws/zycbe005-prctr.
itab_zycbe033-d_fipos = /pws/zycbe005-fipos.
...
...
itab_zycbe033-kursf.
ENDIF.
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_vinc-nrinvoic
gsberf = itab_vinc-gsberf.
REFRESH itab_zyglt321.
* >> Início da inclusão: FORM LANCA_CLIENTE
IF wa_zycbt089-bx_cli_vinc IS INITIAL.
READ TABLE itab_zycbt017 WITH KEY nrinvoic = /pws/zycbe005-nrinvoic
gsberf = /pws/zycbe005-gsberf
nrparcf = /pws/zycbe005-nrparcf.
* << Fim da inclusão
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'CPT'
AND codeven = v_codeven.
LOOP AT itab_zyglt321.
...
...
ELSEIF itab_zyglt321-cpocb = 'DTEMB'.
SELECT SINGLE dtemb FROM /pws/zycet001
INTO itab_zycbe033-zfbdt
WHERE nrseq = /pws/zycbe005-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'DTVENCTO'.
* >> Início da exclusão: FORM LANCA_CLIENTE
SELECT SINGLE dtvencto FROM /pws/zycet001
INTO itab_zycbe033-zfbdt
WHERE nrseq = itab_zycbt030-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCA_CLIENTE
itab_zycbe033-zfbdt = itab_zycbt017-dtvencto.
* << Fim da inclusão
ELSEIF itab_zyglt321-cpocb = 'DTVINCUL'.
itab_zycbe033-zfbdt = /pws/zycbe005-dtvincul.
ENDIF.
WHEN 'VALUT'.
IF itab_zyglt321-cpocb = 'DTVENCTO'.
...
...
WHEN 'ZTERM'.
IF itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
ENDIF.
ENDCASE.
* >> Início da inclusão: FORM LANCA_CLIENTE
ENDLOOP.
ELSE.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'FTE'
AND codeven = v_codeven.
IF sy-subrc EQ 0.
READ TABLE itab_zycbt017 WITH KEY nrinvoic = /pws/zycbe005-nrinvoic
gsberf = /pws/zycbe005-gsberf
nrparcf = /pws/zycbe005-nrparcf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
IF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_sgtxt = /pws/zycbe005-nrinvoic.
itab_zycbe033-c_sgtxt = /pws/zycbe005-nrinvoic.
itab_zycbe033-augtx = /pws/zycbe005-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'NREMB'.
itab_zycbe033-d_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-c_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-augtx = itab_zycbt017-nremb.
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = /pws/zycbe005-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'NREMB'.
itab_zycbe033-xblnr = itab_zycbt017-nremb.
ENDIF.
WHEN 'ZFBDT'.
IF itab_zyglt321-cpocb = 'FKDAT'.
itab_zycbe033-zfbdt = itab_zycbt017-fkdat.
ELSEIF itab_zyglt321-cpocb = 'DTINVOIC'.
itab_zycbe033-zfbdt = itab_zycbt017-dtinvoic.
ELSEIF itab_zyglt321-cpocb = 'DTEMB'.
SELECT SINGLE dtemb FROM /pws/zycet001
INTO itab_zycbe033-zfbdt
WHERE nrseq = /pws/zycbe005-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'DTVENCTO'.
itab_zycbe033-zfbdt = itab_zycbt017-dtvencto.
ELSEIF itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
ENDIF.
WHEN 'ZUORN'.
IF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = /pws/zycbe005-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'NREMB'.
itab_zycbe033-d_zuonr = itab_zycbt017-nremb.
ENDIF.
WHEN 'VALUT'.
IF itab_zyglt321-cpocb = 'FKDAT'.
itab_zycbe033-d_valut = itab_zycbt017-fkdat.
itab_zycbe033-c_valut = itab_zycbt017-fkdat.
ELSEIF itab_zyglt321-cpocb = 'DTINVOIC'.
itab_zycbe033-c_valut = itab_zycbt017-dtinvoic.
itab_zycbe033-c_valut = itab_zycbt017-dtinvoic.
ELSEIF itab_zyglt321-cpocb = 'DTEMB'.
SELECT SINGLE dtemb FROM /pws/zycet001
INTO itab_zycbe033-c_valut
WHERE nrseq = /pws/zycbe005-nrinvoic.
itab_zycbe033-d_valut = itab_zycbe033-c_valut.
ELSEIF itab_zyglt321-cpocb = 'DTVENCTO'.
itab_zycbe033-c_valut = itab_zycbt017-dtvencto.
itab_zycbe033-c_valut = itab_zycbt017-dtvencto.
ELSEIF itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-c_valut = itab_zycbt017-dtbl.
itab_zycbe033-c_valut = itab_zycbt017-dtbl.
ENDIF.
WHEN 'ZTERM'.
IF itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
ENDIF.
ENDCASE.
* << Fim da inclusão
ENDLOOP.
* >> Início da inclusão: FORM LANCA_CLIENTE
ENDIF.
ENDIF.
* << Fim da inclusão
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
PERFORM verify_null_field USING itab_vinc-bukrs
'BUKRS'
text-004.
itab_zycbe033-bukrs = itab_vinc-bukrs.
...
...
itab_zycbe033-bldat = itab_zycbe033-budat.
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_vinc-nrinvoic
gsberf = itab_vinc-gsberf.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
REFRESH itab_zyglt321.
* >> Início da inclusão: FORM EXECUTA_CLEARING
IF wa_zycbt089-bx_cli_vinc IS INITIAL.
* << Fim da inclusão
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'CPT'
AND codeven = v_codeven.
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
...
...
ELSEIF itab_zyglt321-cpocb = 'DTEMB'.
SELECT SINGLE dtemb FROM /pws/zycet001
INTO itab_zycbe033-zfbdt
WHERE nrseq = itab_zycbt005-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'DTVENCTO'.
* >> Início da exclusão: FORM EXECUTA_CLEARING
SELECT SINGLE dtvencto FROM /pws/zycet001
INTO itab_zycbe033-zfbdt
WHERE nrseq = itab_zycbt030-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING
itab_zycbe033-zfbdt = itab_zycbt017-dtvencto.
* << Fim da inclusão
ELSEIF itab_zyglt321-cpocb = 'DTVINCUL'.
itab_zycbe033-zfbdt = /pws/zycbe005-dtvincul.
ENDIF.
WHEN 'VALUT'.
IF itab_zyglt321-cpocb = 'DTVENCTO'.
...
...
WHEN 'ZTERM'.
IF itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
ENDIF.
ENDCASE.
* >> Início da inclusão: FORM EXECUTA_CLEARING
ENDLOOP.
ELSE.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'FTE'
AND codeven = v_codeven.
IF sy-subrc EQ 0.
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf
nrparcf = itab_zycbt005-nrparcf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
IF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_sgtxt = itab_zycbt005-nrinvoic.
itab_zycbe033-c_sgtxt = itab_zycbt005-nrinvoic.
itab_zycbe033-augtx = itab_zycbt005-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'NREMB'.
itab_zycbe033-d_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-c_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-augtx = itab_zycbt017-nremb.
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt005-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'NREMB'.
itab_zycbe033-xblnr = itab_zycbt017-nremb.
ENDIF.
WHEN 'ZFBDT'.
IF itab_zyglt321-cpocb = 'FKDAT'.
itab_zycbe033-zfbdt = itab_zycbt017-fkdat.
ELSEIF itab_zyglt321-cpocb = 'DTINVOIC'.
itab_zycbe033-zfbdt = itab_zycbt017-dtinvoic.
ELSEIF itab_zyglt321-cpocb = 'DTEMB'.
SELECT SINGLE dtemb FROM /pws/zycet001
INTO itab_zycbe033-zfbdt
WHERE nrseq = itab_zycbt005-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'DTVENCTO'.
itab_zycbe033-zfbdt = itab_zycbt017-dtvencto.
ELSEIF itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
ENDIF.
WHEN 'ZUORN'.
IF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt005-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'NREMB'.
itab_zycbe033-d_zuonr = itab_zycbt017-nremb.
ENDIF.
WHEN 'VALUT'.
IF itab_zyglt321-cpocb = 'FKDAT'.
itab_zycbe033-d_valut = itab_zycbt017-fkdat.
itab_zycbe033-c_valut = itab_zycbt017-fkdat.
ELSEIF itab_zyglt321-cpocb = 'DTINVOIC'.
itab_zycbe033-c_valut = itab_zycbt017-dtinvoic.
itab_zycbe033-c_valut = itab_zycbt017-dtinvoic.
ELSEIF itab_zyglt321-cpocb = 'DTEMB'.
SELECT SINGLE dtemb FROM /pws/zycet001
INTO itab_zycbe033-c_valut
WHERE nrseq = itab_zycbt005-nrinvoic.
itab_zycbe033-d_valut = itab_zycbe033-c_valut.
ELSEIF itab_zyglt321-cpocb = 'DTVENCTO'.
itab_zycbe033-c_valut = itab_zycbt017-dtvencto.
itab_zycbe033-c_valut = itab_zycbt017-dtvencto.
ELSEIF itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-c_valut = itab_zycbt017-dtbl.
itab_zycbe033-c_valut = itab_zycbt017-dtbl.
ENDIF.
WHEN 'ZTERM'.
IF itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
ENDIF.
ENDCASE.
* << Fim da inclusão
ENDLOOP.
* >> Início da inclusão: FORM EXECUTA_CLEARING
ENDIF.
ENDIF.
* << Fim da inclusão
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
PERFORM verify_null_field USING itab_vinc-bukrs
'BUKRS'
text-004.
itab_zycbe033-bukrs = itab_vinc-bukrs.
...