CE PLUS - Nota 002216
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 05/10/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 15:20:04
Descrição da Nota: NA VINCULAÇÃO NÃO RESPEITA O FLAG E A INFORMAÇÃO DO TEXTO INFORMATIVO
Sintoma
(O erro ocorre para todos os tipos de contrato) - Ao entrar para criar uma vinculação, se eu flegar
com um "X" o campo "Texto para lançamento" e informar um texto no campo "Texto informativo", ao
gravar a vinculação, o campo "Texto não está sendo preenchido" nos lançamentos contabeis (nem ao
gravar a vinculação ou vinculação/liquidação para os contratos de câmbio pronto e DP e nem no
estorno).
Solução
Aplicar ajustes existentes nesta nota.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02216 Data: 05/10/2006 Hora: 13:35:31
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02216
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00134
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
NA VINCULAÇÃO NÃO RESPEITA O FLAG E A INFORMAÇÃO DO TEXTO INFORMATIVO
----------------------------------------------------------------------------------------------------
Palavras Chave:
NA VINCULAÇÃO NÃO RESPEITA O FLAG E A INFORMAÇÃO DO TEXTO INFORMATIVO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB009F01
REPS /PWS/MZYCB009F02
REPS /PWS/MZYCB009F03
REPS /PWS/MZYCB009F06
REPS /PWS/MZYCB009F07
REPS /PWS/MZYCB009F08
REPS /PWS/MZYCB009F09
REPS /PWS/MZYCB009TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F01
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE1_F07
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE1_F07
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F07
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
ENDIF.
* >> Início da inclusão: FORM FILL_DATE1_F07
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
ENDIF.
* << Fim da inclusão
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
IF NOT /pws/zycbe001-txtinf IS INITIAL.
...
...
nrparcf = itab_vinc-nrparcf
gsberf = itab_vinc-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE1_F02
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE1_F02
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F02
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM FILL_DATE1_F02
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
ENDIF.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
gsberf = itab_vinc-gsberf.
IF sy-subrc EQ 0.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE1_F02
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_sgtxt = itab_zycbt017-nrinvoic.
itab_zycbe033-c_sgtxt = itab_zycbt017-nrinvoic.
itab_zycbe033-augtx = itab_zycbt017-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.
* >> Início da inclusão: FORM FILL_DATE1_F02
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
/pws/zycbe005-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.
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt017-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'NREMB'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_vinc-nrinvoic
gsberf = itab_vinc-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE1_F30
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE1_F30
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F30
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM FILL_DATE1_F30
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE1_F30
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE1_F30
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F30
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM FILL_DATE1_F30
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE6_F28
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE6_F28
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F28
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
ENDIF.
* >> Início da inclusão: FORM FILL_DATE6_F28
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
ENDIF.
* << Fim da inclusão
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
IF NOT /pws/zycbe001-txtinf IS INITIAL.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM DADOS_BATCH
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM DADOS_BATCH
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM DADOS_BATCH
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM DADOS_BATCH
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM LIQUIDA_DP
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM LIQUIDA_DP
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM LIQUIDA_DP
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM LIQUIDA_DP
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE1_F07_PRE
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE1_F07_PRE
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F07_PRE
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM FILL_DATE1_F07_PRE
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE1_F02_PRE
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE1_F02_PRE
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F02_PRE
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM FILL_DATE1_F02_PRE
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = wa_zycbt005-nrinvoic
gsberf = wa_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE1_F30_PRE
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE1_F30_PRE
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F30_PRE
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM FILL_DATE1_F30_PRE
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM CLEARING_AD_CLIENTE
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM CLEARING_AD_CLIENTE
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_AD_CLIENTE
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM CLEARING_AD_CLIENTE
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM EXECUTA_CLEARING_ADCLIENTE
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM EXECUTA_CLEARING_ADCLIENTE
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_ADCLIENTE
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM EXECUTA_CLEARING_ADCLIENTE
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM PREENCHE_ITAB_ZYCBE033
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM PREENCHE_ITAB_ZYCBE033
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_ITAB_ZYCBE033
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM PREENCHE_ITAB_ZYCBE033
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE6_F30_ARB
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE6_F30_ARB
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F30_ARB
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
ENDIF.
* >> Início da inclusão: FORM FILL_DATE6_F30_ARB
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
ENDIF.
* << Fim da inclusão
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
IF NOT /pws/zycbe001-txtinf IS INITIAL.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = wa_zycbt005-nrinvoic
gsberf = wa_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE1_F30_ACE
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE1_F30_ACE
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F30_ACE
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM FILL_DATE1_F30_ACE
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F02
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM GRAVA_DEVOLUCAO
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
ENDIF.
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
ENDIF.
* << Fim da inclusão
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
IF NOT /pws/zycbe001-txtinf IS INITIAL.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM PDD
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM PDD
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM PDD
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM PDD
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM PDD
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM PDD
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM PDD
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM PDD
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE6_F30_A
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE6_F30_A
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F30_A
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM FILL_DATE6_F30_A
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE1_F02_DEV
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE1_F02_DEV
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F02_DEV
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM FILL_DATE1_F02_DEV
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM CLEARING_ESTORNO
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM CLEARING_ESTORNO
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_ESTORNO
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
ENDIF.
* >> Início da inclusão: FORM CLEARING_ESTORNO
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
ENDIF.
* << Fim da inclusão
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
IF NOT /pws/zycbe001-txtinf IS INITIAL.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATA_F22
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATA_F22
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_F22
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM FILL_DATA_F22
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM CLEARING_ESTORNO_RPRD
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM CLEARING_ESTORNO_RPRD
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_ESTORNO_RPRD
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM CLEARING_ESTORNO_RPRD
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM CONTABILIZA_CANCELAMENTO
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM CONTABILIZA_CANCELAMENTO
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_CANCELAMENTO
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM CONTABILIZA_CANCELAMENTO
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE_F22_ARBITR
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE_F22_ARBITR
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F22_ARBITR
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM FILL_DATE_F22_ARBITR
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM DESM_CLIENTE
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM DESM_CLIENTE
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM DESM_CLIENTE
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM DESM_CLIENTE
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM CLEARING_CLI
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM CLEARING_CLI
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_CLI
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM CLEARING_CLI
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATA_F22_ARBITR
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATA_F22_ARBITR
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_F22_ARBITR
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM FILL_DATA_F22_ARBITR
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATA_F22_ARBITR_2
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATA_F22_ARBITR_2
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_F22_ARBITR_2
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
ENDIF.
* >> Início da inclusão: FORM FILL_DATA_F22_ARBITR_2
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
ENDIF.
* << Fim da inclusão
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
IF NOT /pws/zycbe001-txtinf IS INITIAL.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM CLEARING_EST_RPRD_ABR
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM CLEARING_EST_RPRD_ABR
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_EST_RPRD_ABR
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM CLEARING_EST_RPRD_ABR
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM CLEAR_VC_ABR
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM CLEAR_VC_ABR
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM CLEAR_VC_ABR
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM CLEAR_VC_ABR
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE_F02_PDD
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE_F02_PDD
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F02_PDD
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM FILL_DATE_F02_PDD
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE_F30_BAIXA_CLIENTE
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE_F30_BAIXA_CLIENTE
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F30_BAIXA_CLIENTE
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM FILL_DATE_F30_BAIXA_CLIENTE
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM APR_PDD_3
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM APR_PDD_3
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM APR_PDD_3
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
ENDIF.
* >> Início da inclusão: FORM APR_PDD_3
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
ENDIF.
* << Fim da inclusão
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
IF NOT /pws/zycbe001-txtinf IS INITIAL.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE_F02_BX_CL
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE_F02_BX_CL
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F02_BX_CL
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM FILL_DATE_F02_BX_CL
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE_F30_BX_CL
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE_F30_BX_CL
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F30_BX_CL
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM FILL_DATE_F30_BX_CL
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE_F22
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE_F22
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F22
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM FILL_DATE_F22
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM CLEARING_ESTORNO_DP_2
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM CLEARING_ESTORNO_DP_2
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_ESTORNO_DP_2
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM CLEARING_ESTORNO_DP_2
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM EXECUTA_CLEARING_PD
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM EXECUTA_CLEARING_PD
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_PD
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM EXECUTA_CLEARING_PD
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM PREENCHE_ZYCBE033A_2
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033a-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033a-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033a-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033a-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033a-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM PREENCHE_ZYCBE033A_2
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_ZYCBE033A_2
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033a-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033a-c_sgtxt = itab_zyglt321-descr.
itab_zycbe033a-augtx = itab_zyglt321-descr.
* >> Início da inclusão: FORM PREENCHE_ZYCBE033A_2
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033a-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM CLEARING_ESTORNO_DP
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM CLEARING_ESTORNO_DP
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_ESTORNO_DP
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM CLEARING_ESTORNO_DP
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F03
...
CLEAR itab_zycbt005_aux4.
ENDFORM.
FORM carrega_zycbe005.
CLEAR: itab_zycbt017, /pws/zycbe017, itab_zycbt017-zterm.
IF sy-tcode EQ c_transacao_c.
* >> Início da exclusão: FORM CARREGA_ZYCBE005
IF wa_zycbt007-fltxt = 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_ZYCBE005
SELECT SINGLE infotext
FROM /pws/zyglt009
INTO /pws/zyglt009-infotext
WHERE bukrs = /pws/zycbe001-bukrs.
IF wa_zycbt007-fltxt = 'X' OR
/pws/zyglt009-infotext = 'X'.
* << Fim da inclusão
/pws/zycbe005-ftxt = 'X'.
ENDIF.
ENDIF.
/pws/zycbe005-nrinvoic = itab_zycbt005-nrinvoic.
/pws/zycbe005-nrparcf = itab_zycbt005-nrparcf.
...
...
titel = text-028
textline1 = text-049
start_column = 10
start_row = 6.
EXIT.
* >> Início da inclusão: FORM GRAVA_TABELAS
ENDIF.
ELSE.
IF NOT /pws/zyglt009-infotext IS INITIAL.
IF /pws/zycbe005-txtinf IS INITIAL.
CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
EXPORTING
titel = text-028
textline1 = text-049
start_column = 10
start_row = 6.
EXIT.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
IF v_ind_vencto1 = 'X'.
CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT_LO'
EXPORTING
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F06
...
gsberf = itab_zycbt005-gsberf
nrparcf = itab_zycbt005-nrparcf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM DESMEMBRA_DEV
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM DESMEMBRA_DEV
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_DEV
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
ENDIF.
* >> Início da inclusão: FORM DESMEMBRA_DEV
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
ENDIF.
* << Fim da inclusão
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
IF NOT /pws/zycbe001-txtinf IS INITIAL.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO_VAR
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM GRAVA_DEVOLUCAO_VAR
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO_VAR
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO_VAR
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM EXECUTA_CLEARING_DEV
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM EXECUTA_CLEARING_DEV
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_DEV
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM EXECUTA_CLEARING_DEV
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM RECEB_PAGTO_DEV_3
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM RECEB_PAGTO_DEV_3
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM RECEB_PAGTO_DEV_3
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM RECEB_PAGTO_DEV_3
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM PREENCHE_ZYCBE033A
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033a-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033a-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033a-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033a-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033a-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM PREENCHE_ZYCBE033A
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_ZYCBE033A
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033a-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033a-c_sgtxt = itab_zyglt321-descr.
itab_zycbe033a-augtx = itab_zyglt321-descr.
* >> Início da inclusão: FORM PREENCHE_ZYCBE033A
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033a-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM RECUP_DIVISAS_3
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM RECUP_DIVISAS_3
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM RECUP_DIVISAS_3
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM RECUP_DIVISAS_3
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM APR_DESPESAS_3
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM APR_DESPESAS_3
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM APR_DESPESAS_3
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM APR_DESPESAS_3
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM EXECUTA_CLEARING_RP_RD_PD
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM EXECUTA_CLEARING_RP_RD_PD
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_RP_RD_PD
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
ENDIF.
* >> Início da inclusão: FORM EXECUTA_CLEARING_RP_RD_PD
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
ENDIF.
* << Fim da inclusão
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
IF NOT /pws/zycbe001-txtinf IS INITIAL.
...
...
WHERE ktosl = 'CPT'
AND codeven = v_codeven.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM CLEARING_CLIENTE_2
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM CLEARING_CLIENTE_2
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_CLIENTE_2
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM CLEARING_CLIENTE_2
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM LANCAMENTO_CLI_EST
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM LANCAMENTO_CLI_EST
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_CLI_EST
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM LANCAMENTO_CLI_EST
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM CLEAR_CLI_EST
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM CLEAR_CLI_EST
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM CLEAR_CLI_EST
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM CLEAR_CLI_EST
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F07
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM ESTORNA_CP
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM ESTORNA_CP
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_CP
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
ENDIF.
* >> Início da inclusão: FORM ESTORNA_CP
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
ENDIF.
* << Fim da inclusão
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
IF NOT /pws/zycbe001-txtinf IS INITIAL.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM LANCA_CP
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM LANCA_CP
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM LANCA_CP
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM LANCA_CP
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM CLEARING_030
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM CLEARING_030
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_030
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM CLEARING_030
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F08
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE1_F30_ESTORNO
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE1_F30_ESTORNO
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F30_ESTORNO
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM FILL_DATE1_F30_ESTORNO
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
nrparcf = itab_zycbt005-nrparcf
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE1_F30_ESTORNO
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE1_F30_ESTORNO
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F30_ESTORNO
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM FILL_DATE1_F30_ESTORNO
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM EXECUTA_CLEARING_ESTORNO
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM EXECUTA_CLEARING_ESTORNO
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_ESTORNO
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM EXECUTA_CLEARING_ESTORNO
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM DESMEMBRAMENTO_ESTORNO
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM DESMEMBRAMENTO_ESTORNO
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRAMENTO_ESTORNO
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM DESMEMBRAMENTO_ESTORNO
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
gsberf = itab_zycbt005-gsberf
nrparcf = itab_zycbt005-nrparcf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE1_F30_DESM
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE1_F30_DESM
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F30_DESM
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
ENDIF.
* >> Início da inclusão: FORM FILL_DATE1_F30_DESM
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
ENDIF.
* << Fim da inclusão
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
IF NOT /pws/zycbe001-txtinf IS INITIAL.
...
...
gsberf = itab_zycbt005-gsberf
nrparcf = itab_zycbt005-nrparcf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE1_F30_VINC
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE1_F30_VINC
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F30_VINC
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM FILL_DATE1_F30_VINC
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM VINCULACAO
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM VINCULACAO
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM VINCULACAO
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM VINCULACAO
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM DESMEMBRAMENTO
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM DESMEMBRAMENTO
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRAMENTO
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM DESMEMBRAMENTO
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE6_F30_CLIENTE
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE6_F30_CLIENTE
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F30_CLIENTE
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
ENDIF.
* >> Início da inclusão: FORM FILL_DATE6_F30_CLIENTE
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
ENDIF.
* << Fim da inclusão
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
IF NOT /pws/zycbe001-txtinf IS INITIAL.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE6_F30_CP
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE6_F30_CP
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F30_CP
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM FILL_DATE6_F30_CP
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE6_F30_LIQUID
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE6_F30_LIQUID
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F30_LIQUID
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM FILL_DATE6_F30_LIQUID
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF1'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F09
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE6_F30_2
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE6_F30_2
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F30_2
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
ENDIF.
* >> Início da inclusão: FORM FILL_DATE6_F30_2
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
ENDIF.
* << Fim da inclusão
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF'.
IF NOT /pws/zycbe001-txtinf IS INITIAL.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE6_F22_ARBITR
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE6_F22_ARBITR
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F22_ARBITR
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM FILL_DATE6_F22_ARBITR
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE6_F30_B
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE6_F30_B
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE6_F30_B
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM FILL_DATE6_F30_B
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM CLEARING_CLI2
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM CLEARING_CLI2
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_CLI2
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM CLEARING_CLI2
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF'.
...
...
itab_zycbe033-budat = itab_zycbt005-dtvincul.
itab_zycbe033-bldat = itab_zycbt005-dtvincul.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM DESMEMBRA_VINC
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM DESMEMBRA_VINC
itab_zycbt006-ftxt IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_VINC
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
* >> Início da inclusão: FORM DESMEMBRA_VINC
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF'.
...
...
gsberf = itab_zycbt005-gsberf
nrparcf = itab_zycbt005-nrparcf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM BAIXA_CLIENTE
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM BAIXA_CLIENTE
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_CLIENTE
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM BAIXA_CLIENTE
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF'.
...
...
gsberf = itab_zycbt005-gsberf
nrparcf = itab_zycbt005-nrparcf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM BAIXA_CLIENTE
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
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.
* >> Início da inclusão: FORM BAIXA_CLIENTE
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
/pws/zycbe005-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.
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt005-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'NREMB'.
...
...
WHERE ktosl = 'CPT'
AND codeven = v_codeven.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM LANCA_CLIENTE
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM LANCA_CLIENTE
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM LANCA_CLIENTE
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM LANCA_CLIENTE
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF'.
...
...
gsberf = itab_vinc-gsberf
nrparcf = itab_vinc-nrparcf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM LANCA_CLIENTE
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_sgtxt = itab_vinc-nrinvoic.
itab_zycbe033-c_sgtxt = itab_vinc-nrinvoic.
itab_zycbe033-augtx = itab_vinc-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.
* >> Início da inclusão: FORM LANCA_CLIENTE
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
/pws/zycbe005-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.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM LANCA_CLIENTE
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
ENDIF.
* << Fim da inclusão
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_vinc-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'NREMB'.
itab_zycbe033-xblnr = itab_zycbt017-nremb.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM EXECUTA_CLEARING
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM EXECUTA_CLEARING
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM EXECUTA_CLEARING
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF'.
...
...
gsberf = itab_zycbt005-gsberf
nrparcf = itab_zycbt005-nrparcf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM EXECUTA_CLEARING
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
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.
* >> Início da inclusão: FORM EXECUTA_CLEARING
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
/pws/zycbe005-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.
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt005-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'NREMB'.
...
...
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 inclusão: FORM DESMEMBRA_VINC2
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM DESMEMBRA_VINC2
itab_zycbt006-ftxt IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_VINC2
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
ENDIF.
* >> Início da inclusão: FORM DESMEMBRA_VINC2
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
ENDIF.
* << Fim da inclusão
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF'.
IF NOT /pws/zycbe001-txtinf IS INITIAL.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM FILL_DATE_F02
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM FILL_DATE_F02
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F02
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM FILL_DATE_F02
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF'.
...
...
WHERE ktosl = 'CPT'
AND codeven = v_codeven.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM LANCAMENTO_CLIENTE
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM LANCAMENTO_CLIENTE
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_CLIENTE
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM LANCAMENTO_CLIENTE
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM DESMEMBRA_DESC_RECEB
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM DESMEMBRA_DESC_RECEB
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_DESC_RECEB
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
ENDIF.
* >> Início da inclusão: FORM DESMEMBRA_DESC_RECEB
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
ENDIF.
* << Fim da inclusão
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF'.
IF NOT /pws/zycbe001-txtinf IS INITIAL.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM DESMEMBRA_ACE_RECEB
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM DESMEMBRA_ACE_RECEB
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_ACE_RECEB
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM DESMEMBRA_ACE_RECEB
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM BAIXA_ACE_RECEBIVEIS
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM BAIXA_ACE_RECEBIVEIS
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_ACE_RECEBIVEIS
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM BAIXA_ACE_RECEBIVEIS
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_vinc-nrinvoic
gsberf = itab_vinc-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM EST_DESC_RECEBIVEIS
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM EST_DESC_RECEBIVEIS
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM EST_DESC_RECEBIVEIS
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
ENDIF.
* >> Início da inclusão: FORM EST_DESC_RECEBIVEIS
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
ENDIF.
* << Fim da inclusão
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF'.
IF NOT /pws/zycbe001-txtinf IS INITIAL.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_vinc-nrinvoic
gsberf = itab_vinc-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM CLEARING_DESC_RECEB
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM CLEARING_DESC_RECEB
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_DESC_RECEB
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM CLEARING_DESC_RECEB
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF'.
...
...
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_vinc-nrinvoic
gsberf = itab_vinc-gsberf.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
* >> Início da inclusão: FORM CLEARING_ACE_RECEB
IF /pws/zycbe005-ftxt IS INITIAL.
* << Fim da inclusão
IF itab_zyglt321-cpocb = 'NRSEQ' OR
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-c_sgtxt = /pws/zycbe001-nrseqc.
itab_zycbe033-augtx = /pws/zycbe001-nrseqc.
...
...
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
ENDIF.
ENDIF.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
* >> Início da exclusão: FORM CLEARING_ACE_RECEB
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_ACE_RECEB
/pws/zycbe005-ftxt IS INITIAL AND
* << Fim da inclusão
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.
* >> Início da inclusão: FORM CLEARING_ACE_RECEB
ENDIF.
ELSE.
itab_zycbe033-d_sgtxt = /pws/zycbe005-txtinf.
itab_zycbe033-c_sgtxt = /pws/zycbe005-txtinf.
* << Fim da inclusão
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009TOP
...
adrc,
/pws/zycbt220,
/pws/zycbe223,
/pws/zycbe074,
/pws/zycbt031,
* >> Início da exclusão:
/pws/zycbt044.
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt044,
/pws/zyglt009.
* << Fim da inclusão
TABLES: /pws/zyglt320.
CONTROLS:
tb_devol TYPE TABSTRIP,
tc_faturas TYPE TABLEVIEW USING SCREEN '0100',
tc_datas TYPE TABLEVIEW USING SCREEN '0010',
...