CE PLUS - Nota 002114
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 15/09/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 15:21:54
Descrição da Nota: LIQUIDAÇÃO DE FATURAS - TEXTO DESCRIVO DOC. CONTÁBIL
Sintoma
Não estamos conseguindo fazer a liquidação do contrato. Ao tentar liquidar exibe a mensagem de que
está faltando o campo texto ítem. A parametrização está toda de acordo com que está parametrizado
para o Câmbio pronto na /PWS/ZYGL321, porém acontece o erro. Parâmetro V_TXTINF
Solução
Incluir em todas as contabilizações a opção V_TXTINF na /PWS/ZYGLT321 - SGTXT, onde, se a mesma não
estiver parametrizada, utiliza a /PWS/ZYCBT011.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02114 Data: 15/09/2006 Hora: 09:16:05
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02114
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00131
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO DE FATURAS - TEXTO DESCRIVO DOC. CONTÁBIL
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO DE FATURAS TEXTO DESCRIVO DOC. CONTÁBIL
DOCUMENTO CONTÁBIL SGTXT F-30 F-22 V_TXTINF
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F01
REPS /PWS/MZYCB004F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
WHERE ktosl = 'CPT'
AND codeven = v_codeven.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da exclusão: FORM FILL_DATE6_F28
IF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F28
IF itab_zyglt321-cpocb = 'V_TXTINF'.
itab_zycbe033-d_sgtxt = v_txtinf.
itab_zycbe033-c_sgtxt = v_txtinf.
itab_zycbe033-augtx = v_txtinf.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da inclusão
itab_zycbt006-ftxt IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-c_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
...
...
ELSE.
IF icc_ NE 'X'.
PERFORM seleciona_conta.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM FILL_DATE6_F28
IF itab_zycbe033-d_sgtxt IS INITIAL.
* << Fim da inclusão
IF itab_zycbt006-ftxt IS INITIAL.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
ELSE.
itab_zycbe033-augtx = itab_zycbt006-txtinf.
itab_zycbe033-d_sgtxt = itab_zycbt006-txtinf.
itab_zycbe033-c_sgtxt = itab_zycbt006-txtinf.
* >> Início da inclusão: FORM FILL_DATE6_F28
ENDIF.
* << Fim da inclusão
ENDIF.
PERFORM get_parameters_002 USING '+'.
MODIFY itab_zycbt006 TRANSPORTING agkon.
IF itab_zycbe033-wrbtr GT 0.
APPEND itab_zycbe033.
...
...
WHERE ktosl = 'CPT'
AND codeven = v_codeven.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da exclusão: FORM FILL_DATE6_F30_A
IF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F30_A
IF itab_zyglt321-cpocb = 'V_TXTINF'.
itab_zycbe033-d_sgtxt = v_txtinf.
itab_zycbe033-c_sgtxt = v_txtinf.
itab_zycbe033-augtx = v_txtinf.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da inclusão
itab_zycbt006-ftxt IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-c_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
...
...
ELSE.
IF icc_ NE 'X'.
PERFORM seleciona_conta.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM FILL_DATE6_F30_A
IF itab_zycbe033a-d_sgtxt IS INITIAL.
* << Fim da inclusão
IF itab_zycbt006-ftxt IS INITIAL.
itab_zycbe033a-augtx = wa_zycbt011-txtdesc.
itab_zycbe033a-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033a-c_sgtxt = wa_zycbt011-txtdesc.
ELSE.
itab_zycbe033a-augtx = itab_zycbt006-txtinf.
itab_zycbe033a-d_sgtxt = itab_zycbt006-txtinf.
itab_zycbe033a-c_sgtxt = itab_zycbt006-txtinf.
ENDIF.
* >> Início da inclusão: FORM FILL_DATE6_F30_A
ENDIF.
* << Fim da inclusão
PERFORM get_parameters_002 USING '+'.
PERFORM verify_null_field USING itab_zycbe033-d_newko
'KONTO'
text-010.
IF itab_zycbe033a-wrbtr GT 0.
...
...
WHERE ktosl = 'CPT'
AND codeven = v_codeven.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da exclusão: FORM FILL_DATE6_F22
IF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F22
IF itab_zyglt321-cpocb = 'V_TXTINF'.
itab_zycbe033-d_sgtxt = v_txtinf.
itab_zycbe033-c_sgtxt = v_txtinf.
itab_zycbe033-augtx = v_txtinf.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da inclusão
itab_zycbt006-ftxt IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-c_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
...
...
WHERE ktosl = 'CPT'
AND codeven = v_codeven.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da exclusão: FORM FILL_DATE6_F30
IF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F30
IF itab_zyglt321-cpocb = 'V_TXTINF'.
itab_zycbe033-d_sgtxt = v_txtinf.
itab_zycbe033-c_sgtxt = v_txtinf.
itab_zycbe033-augtx = v_txtinf.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da inclusão
itab_zycbt006-ftxt IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-c_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
...
...
WHERE ktosl = 'CPT'
AND codeven = v_codeven.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da exclusão: FORM FILL_DATE6_F30_B
IF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F30_B
IF itab_zyglt321-cpocb = 'V_TXTINF'.
itab_zycbe033-d_sgtxt = v_txtinf.
itab_zycbe033-c_sgtxt = v_txtinf.
itab_zycbe033-augtx = v_txtinf.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da inclusão
itab_zycbt006-ftxt IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-c_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
...
...
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
ENDIF.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da exclusão: FORM FILL_DATE6_F30_ACE
IF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F30_ACE
IF itab_zyglt321-cpocb = 'V_TXTINF'.
itab_zycbe033-d_sgtxt = v_txtinf.
itab_zycbe033-c_sgtxt = v_txtinf.
itab_zycbe033-augtx = v_txtinf.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da inclusão
itab_zycbt006-ftxt IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-c_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
...
...
WHERE ktosl = 'CPT'
AND codeven = v_codeven.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da exclusão: FORM FILL_DATE6_F30_CLIENTE
IF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F30_CLIENTE
IF itab_zyglt321-cpocb = 'V_TXTINF'.
itab_zycbe033-d_sgtxt = v_txtinf.
itab_zycbe033-c_sgtxt = v_txtinf.
itab_zycbe033-augtx = v_txtinf.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da inclusão
itab_zycbt006-ftxt IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
* >> Início da inclusão: FORM FILL_DATE6_F30_CLIENTE
itab_zycbe033-c_sgtxt = itab_zyglt321-descr.
* << Fim da inclusão
itab_zycbe033-augtx = itab_zyglt321-descr.
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt006-nrinvoic
gsberf = itab_zycbt006-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da exclusão: FORM LANCAMENTO_ESTORNO_ARBITR_3
IF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_ESTORNO_ARBITR_3
IF itab_zyglt321-cpocb = 'V_TXTINF'.
itab_zycbe033-d_sgtxt = v_txtinf.
itab_zycbe033-augtx = v_txtinf.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da inclusão
itab_zycbt006-ftxt IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
ENDIF.
...
...
PERFORM local_negocio.
PERFORM verifica_pais_filial USING itab_zycbt006-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
ENDIF.
* >> Início da inclusão: FORM LANCAMENTO_ESTORNO_ARBITR_3
IF itab_zycbe033-d_sgtxt IS INITIAL.
* << Fim da inclusão
IF itab_zycbt006-ftxt IS INITIAL.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
ELSE.
itab_zycbe033-augtx = itab_zycbt006-txtinf.
itab_zycbe033-d_sgtxt = itab_zycbt006-txtinf.
ENDIF.
* >> Início da inclusão: FORM LANCAMENTO_ESTORNO_ARBITR_3
ENDIF.
* << Fim da inclusão
itab_zycbe033-koart = 'S'.
itab_zycbe033-newbs = '50'.
LOOP AT itab_zycbt209 WHERE nrinvoic = itab_zycbt006-nrinvoic
AND gsberf = itab_zycbt006-gsberf
AND nrparcf = itab_zycbt006-nrparcf.
...
...
WHERE ktosl = 'CPT'
AND codeven = v_codeven.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da exclusão: FORM FILL_DATE6_F30_LIQUID_3
IF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F30_LIQUID_3
IF itab_zyglt321-cpocb = 'V_TXTINF'.
itab_zycbe033-d_sgtxt = v_txtinf.
itab_zycbe033-c_sgtxt = v_txtinf.
itab_zycbe033-augtx = v_txtinf.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da inclusão
itab_zycbt006-ftxt IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-c_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
...
...
v_datum = itab_zycbe033-budat.
itab_zycbe033-d_valut = itab_zycbe033-budat.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da exclusão: FORM FILL_DATE_F22_PERF
IF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F22_PERF
IF itab_zyglt321-cpocb = 'V_TXTINF'.
itab_zycbe033-d_sgtxt = v_txtinf.
itab_zycbe033-augtx = v_txtinf.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da inclusão
itab_zycbt006-ftxt IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
ENDIF.
...
...
itab_zycbe033-kursf.
ENDIF.
ENDIF.
itab_zycbe033-wrbtr = itab_zycbt005_ant-vlme.
v_vlliq = itab_zycbt005_ant-vlme.
* >> Início da inclusão: FORM FILL_DATE_F22_PERF
IF itab_zycbe033-d_sgtxt IS INITIAL.
* << Fim da inclusão
IF itab_zycbt006-ftxt IS INITIAL.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
ELSE.
itab_zycbe033-augtx = itab_zycbt006-txtinf.
itab_zycbe033-d_sgtxt = itab_zycbt006-txtinf.
* >> Início da inclusão: FORM FILL_DATE_F22_PERF
ENDIF.
* << Fim da inclusão
ENDIF.
itab_zycbe033-koart = 'S'.
itab_zycbe033-newbs = '50'.
LOOP AT itab_zycbt209 WHERE nrinvoic = itab_zycbt006-nrinvoic
AND gsberf = itab_zycbt006-gsberf
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt006-nrinvoic
gsberf = itab_zycbt006-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da exclusão: FORM FILL_DATE_F22_ACE
IF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F22_ACE
IF itab_zyglt321-cpocb = 'V_TXTINF'.
itab_zycbe033-d_sgtxt = v_txtinf.
itab_zycbe033-augtx = v_txtinf.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da inclusão
itab_zycbt006-ftxt IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
ENDIF.
...
...
itab_zycbe033-kursf.
ENDIF.
ENDIF.
itab_zycbe033-wrbtr = itab_zycbt005_ant-vlme.
v_vlliq = itab_zycbt005_ant-vlme.
* >> Início da inclusão: FORM FILL_DATE_F22_ACE
IF itab_zycbe033-d_sgtxt IS INITIAL.
* << Fim da inclusão
IF itab_zycbt006-ftxt IS INITIAL.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
ELSE.
itab_zycbe033-augtx = itab_zycbt006-txtinf.
itab_zycbe033-d_sgtxt = itab_zycbt006-txtinf.
* >> Início da inclusão: FORM FILL_DATE_F22_ACE
ENDIF.
* << Fim da inclusão
ENDIF.
itab_zycbe033-koart = 'S'.
itab_zycbe033-newbs = '50'.
CLEAR itab_partidas.
itab_partidas-wrbtr = itab_zycbt005_ant-vlme.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt006-nrinvoic
gsberf = itab_zycbt006-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da exclusão: FORM DESMEMBRA_CLIENTE
IF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_CLIENTE
IF itab_zyglt321-cpocb = 'V_TXTINF'.
itab_zycbe033-d_sgtxt = v_txtinf.
itab_zycbe033-augtx = v_txtinf.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da inclusão
itab_zycbt006-ftxt IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
ENDIF.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt006-nrinvoic
gsberf = itab_zycbt006-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da exclusão: FORM DESMEMBRA_ACE
IF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_ACE
IF itab_zyglt321-cpocb = 'V_TXTINF'.
itab_zycbe033-d_sgtxt = v_txtinf.
itab_zycbe033-c_sgtxt = v_txtinf.
itab_zycbe033-augtx = v_txtinf.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da inclusão
itab_zycbt006-ftxt IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-c_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
...
...
v_wrbtr = v_wrbtr - v_wrbtr1.
ENDIF.
ENDSELECT.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM DESMEMBRA_ACE
IF itab_zycbe033-d_sgtxt IS INITIAL.
* << Fim da inclusão
IF itab_zycbt006-ftxt IS INITIAL.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
ELSE.
itab_zycbe033-augtx = itab_zycbt006-txtinf.
itab_zycbe033-d_sgtxt = itab_zycbt006-txtinf.
itab_zycbe033-c_sgtxt = itab_zycbt006-txtinf.
ENDIF.
* >> Início da inclusão: FORM DESMEMBRA_ACE
ENDIF.
* << Fim da inclusão
IF itab_zycbt006-tpcontr(1) CA 'PS'.
READ TABLE itab_zycbt069 WITH KEY nrseqc = itab_zycbt006-nrseqc
nrinvoic = itab_zycbt006-nrinvoic
dtvincul = itab_zycbt006-dtvincul
gsberf = itab_zycbt006-gsberf
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt006-nrinvoic
gsberf = itab_zycbt006-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da exclusão: FORM BAIXA_CLIENTE_ACE
IF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
IF itab_zyglt321-cpocb = 'V_TXTINF'.
itab_zycbe033-d_sgtxt = v_txtinf.
itab_zycbe033-augtx = v_txtinf.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da inclusão
itab_zycbt006-ftxt IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
ENDIF.
...
...
ELSE.
IF icc_ NE 'X'.
PERFORM seleciona_conta.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
IF itab_zycbe033-d_sgtxt IS INITIAL.
* << Fim da inclusão
IF itab_zycbt006-ftxt IS INITIAL.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
ELSE.
itab_zycbe033-augtx = itab_zycbt006-txtinf.
itab_zycbe033-d_sgtxt = itab_zycbt006-txtinf.
ENDIF.
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
ENDIF.
* << Fim da inclusão
CLEAR itab_zycbt012.
CASE itab_zycbt006-tpcontr+0(1).
WHEN 'A' OR 'E' OR 'C'.
PERFORM verify_null_field USING itab_zycbt006-bconegoc
'BCONEGOC'
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt006-nrinvoic
gsberf = itab_zycbt006-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da exclusão: FORM ESTORNO_PERIODO_FECHADO
IF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNO_PERIODO_FECHADO
IF itab_zyglt321-cpocb = 'V_TXTINF'.
itab_zycbe033-d_sgtxt = v_txtinf.
itab_zycbe033-augtx = v_txtinf.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da inclusão
itab_zycbt006-ftxt IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
ENDIF.
...
...
'KURSF'
text-051.
ENDIF.
itab_zycbe033-wrbtr = itab_zycbt005_ant-vlme.
v_vlliq = itab_zycbt005_ant-vlme.
* >> Início da inclusão: FORM ESTORNO_PERIODO_FECHADO
IF itab_zycbe033-d_sgtxt IS INITIAL.
* << Fim da inclusão
IF itab_zycbt006-ftxt IS INITIAL.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
ELSE.
itab_zycbe033-augtx = itab_zycbt006-txtinf.
itab_zycbe033-d_sgtxt = itab_zycbt006-txtinf.
ENDIF.
* >> Início da inclusão: FORM ESTORNO_PERIODO_FECHADO
ENDIF.
* << Fim da inclusão
itab_zycbe033-koart = 'S'.
itab_zycbe033-newbs = '50'.
IF NOT /pws/zycbe005-j_1bbranch IS INITIAL.
PERFORM verifica_pais_filial USING itab_zycbt006-bukrs
/pws/zycbe005-j_1bbranch.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt006-nrinvoic
gsberf = itab_zycbt006-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da exclusão: FORM CLEARING
IF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING
IF itab_zyglt321-cpocb = 'V_TXTINF'.
itab_zycbe033-d_sgtxt = v_txtinf.
itab_zycbe033-c_sgtxt = v_txtinf.
itab_zycbe033-augtx = v_txtinf.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da inclusão
itab_zycbt006-ftxt IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
* >> Início da inclusão: FORM CLEARING
itab_zycbe033-c_sgtxt = itab_zyglt321-descr.
* << Fim da inclusão
itab_zycbe033-augtx = itab_zyglt321-descr.
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
...
...
ENDCASE.
ENDLOOP.
IF NOT wa_zycbt011-agums IS INITIAL.
itab_zycbe033-agums = wa_zycbt011-agums.
ENDIF.
* >> Início da exclusão: FORM CLEARING
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING
IF itab_zycbe033-d_sgtxt IS INITIAL.
* << Fim da inclusão
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
* >> Início da inclusão: FORM CLEARING
ENDIF.
* << Fim da inclusão
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
IF NOT itab_zycbt006-v_performance IS INITIAL.
PERFORM verify_null_field USING itab_zycbt017-bukrs
'BUKRS'
text-004.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt006-nrinvoic
gsberf = itab_zycbt006-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da exclusão: FORM CLEARING_CLI
IF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_CLI
IF itab_zyglt321-cpocb = 'V_TXTINF'.
itab_zycbe033-d_sgtxt = v_txtinf.
itab_zycbe033-d_sgtxt = v_txtinf.
itab_zycbe033-augtx = v_txtinf.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da inclusão
itab_zycbt006-ftxt IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
* >> Início da inclusão: FORM CLEARING_CLI
itab_zycbe033-c_sgtxt = itab_zyglt321-descr.
* << Fim da inclusão
itab_zycbe033-augtx = itab_zyglt321-descr.
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
...
...
IF itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
ENDIF.
ENDCASE.
ENDLOOP.
* >> Início da exclusão: FORM CLEARING_CLI
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_CLI
IF itab_zycbe033-d_sgtxt IS INITIAL.
* << Fim da inclusão
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
* >> Início da inclusão: FORM CLEARING_CLI
ENDIF.
* << Fim da inclusão
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
IF itab_zycbt006-v_performance IS INITIAL.
PERFORM verify_null_field USING itab_zycbt006-bukrs
'BUKRS'
text-004.
...
...
WHERE ktosl = 'CPT'
AND codeven = v_codeven.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da exclusão: FORM FILL_DATE6_F22_ARBITR
IF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F22_ARBITR
IF itab_zyglt321-cpocb = 'V_TXTINF'.
itab_zycbe033-d_sgtxt = v_txtinf.
itab_zycbe033-c_sgtxt = v_txtinf.
itab_zycbe033-augtx = v_txtinf.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da inclusão
itab_zycbt006-ftxt IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-c_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
...
...
WHERE ktosl = 'CPT'
AND codeven = v_codeven.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da exclusão: FORM FILL_DATE6_F30_2
IF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F30_2
IF itab_zyglt321-cpocb = 'V_TXTINF'.
itab_zycbe033-d_sgtxt = v_txtinf.
itab_zycbe033-augtx = v_txtinf.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da inclusão
itab_zycbt006-ftxt IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
ENDIF.
...
...
WHERE ktosl = 'CPT'
AND codeven = v_codeven.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da exclusão: FORM DESMEMBRA_LIQ_AND
IF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_LIQ_AND
IF itab_zyglt321-cpocb = 'V_TXTINF'.
itab_zycbe033-d_sgtxt = v_txtinf.
itab_zycbe033-augtx = v_txtinf.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da inclusão
itab_zycbt006-ftxt IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
ENDIF.
...
...
WHERE ktosl = 'CPT'
AND codeven = v_codeven.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da exclusão: FORM DESM_DESC_RECEB
IF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM DESM_DESC_RECEB
IF itab_zyglt321-cpocb = 'V_TXTINF'.
itab_zycbe033-d_sgtxt = v_txtinf.
itab_zycbe033-augtx = v_txtinf.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da inclusão
itab_zycbt006-ftxt IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
ENDIF.
...
...
ENDIF.
itab_zycbe033-dtdocto = itab_zycbt219-dtbelnr.
itab_zycbe033-d_newko = itab_zycbt219-kunnr.
itab_zycbe033-umskz = itab_zycbt219-umskz.
itab_zycbe033-newbs = '19'.
* >> Início da inclusão: FORM DESM_DESC_RECEB
IF itab_zycbe033-d_sgtxt IS INITIAL.
* << Fim da inclusão
IF itab_zycbt006-ftxt IS INITIAL.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
ELSE.
itab_zycbe033-augtx = itab_zycbt006-txtinf.
itab_zycbe033-d_sgtxt = itab_zycbt006-txtinf.
* >> Início da inclusão: FORM DESM_DESC_RECEB
ENDIF.
* << Fim da inclusão
ENDIF.
itab_zycbe033-c_sgtxt = itab_zycbt006-nrinvoic.
itab_zycbe033-c_zuonr = itab_zycbt220-nrinvoic.
CONCATENATE 'Des.' itab_zycbt006-nrinvoic itab_zycbt006-nrparcf
INTO itab_zycbe033-d_zuonr
...
...
WHERE ktosl = 'PVE'
AND codeven = v_codeven.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da exclusão: FORM F_02_PROVISAO_JUROS_DIF
IF itab_zyglt321-cpocb = 'NRSEQ' OR
* << Fim da exclusão
* >> Início da inclusão: FORM F_02_PROVISAO_JUROS_DIF
IF itab_zyglt321-cpocb = 'V_TXTINF'.
itab_zycbe033-d_sgtxt = v_txtinf.
itab_zycbe033-c_sgtxt = v_txtinf.
itab_zycbe033-augtx = v_txtinf.
ELSEIF itab_zyglt321-cpocb = 'NRSEQ' OR
* << Fim da inclusão
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbt001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbt001-nrseqc.
itab_zycbe033-augtx = /pws/zycbt001-nrseqc.
ELSEIF itab_zyglt321-cpocb = 'NRCONTR'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt006-nrinvoic
gsberf = itab_zycbt006-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da exclusão: FORM BAIXA_ACE_PERFORMANCE
IF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_ACE_PERFORMANCE
IF itab_zyglt321-cpocb = 'V_TXTINF'.
itab_zycbe033-d_sgtxt = v_txtinf.
itab_zycbe033-augtx = v_txtinf.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da inclusão
itab_zycbt006-ftxt IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
ENDIF.
...
...
PERFORM verify_null_field USING itab_zyglt316-konth
'NEWKO'
text-010.
itab_zycbe033-agkon = itab_zyglt316-konth.
ENDIF.
* >> Início da inclusão: FORM BAIXA_ACE_PERFORMANCE
IF itab_zycbe033-d_sgtxt IS INITIAL.
* << Fim da inclusão
IF itab_zycbt006-ftxt IS INITIAL.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
ELSE.
itab_zycbe033-augtx = itab_zycbt006-txtinf.
itab_zycbe033-d_sgtxt = itab_zycbt006-txtinf.
ENDIF.
* >> Início da inclusão: FORM BAIXA_ACE_PERFORMANCE
ENDIF.
* << Fim da inclusão
CLEAR itab_zycbt012.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbt001-bukrs
ktosl = 'TRE'
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt006-nrinvoic
gsberf = itab_zycbt006-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da exclusão: FORM BAIXA_CLIENTE_PERFORMANCE
IF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_CLIENTE_PERFORMANCE
IF itab_zyglt321-cpocb = 'V_TXTINF'.
itab_zycbe033-d_sgtxt = v_txtinf.
itab_zycbe033-augtx = v_txtinf.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da inclusão
itab_zycbt006-ftxt IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
ENDIF.
...
...
itab_zycbe033-agkoa = 'D'.
PERFORM verify_null_field USING itab_zycbt006-kunnr
'KUNNR'
text-009.
itab_zycbe033-agkon = itab_zycbt006-kunnr.
* >> Início da inclusão: FORM BAIXA_CLIENTE_PERFORMANCE
IF itab_zycbe033-d_sgtxt IS INITIAL.
* << Fim da inclusão
IF itab_zycbt006-ftxt IS INITIAL.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
ELSE.
itab_zycbe033-augtx = itab_zycbt006-txtinf.
itab_zycbe033-d_sgtxt = itab_zycbt006-txtinf.
ENDIF.
* >> Início da inclusão: FORM BAIXA_CLIENTE_PERFORMANCE
ENDIF.
* << Fim da inclusão
CLEAR itab_zycbt012.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbt001-bukrs
ktosl = 'TRE'
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt006-nrinvoic
gsberf = itab_zycbt006-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da exclusão: FORM CLEARING_PERF
IF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_PERF
IF itab_zyglt321-cpocb = 'V_TXTINF'.
itab_zycbe033-d_sgtxt = v_txtinf.
itab_zycbe033-c_sgtxt = v_txtinf.
itab_zycbe033-augtx = v_txtinf.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* << Fim da inclusão
itab_zycbt006-ftxt IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
* >> Início da inclusão: FORM CLEARING_PERF
itab_zycbe033-c_sgtxt = itab_zyglt321-descr.
* << Fim da inclusão
itab_zycbe033-augtx = itab_zyglt321-descr.
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
...
...
IF itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
ENDIF.
ENDCASE.
ENDLOOP.
* >> Início da exclusão: FORM CLEARING_PERF
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_PERF
IF itab_zycbe033-d_sgtxt IS INITIAL.
* << Fim da inclusão
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
* >> Início da inclusão: FORM CLEARING_PERF
ENDIF.
* << Fim da inclusão
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
PERFORM verify_null_field
USING /pws/zycbt001-bukrs 'BUKRS' text-004.
itab_zycbe033-bukrs = /pws/zycbt001-bukrs.
PERFORM verify_null_field USING itab_zycbt006-waers
...