CE PLUS - Nota 002199
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 04/10/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 15:18:49
Descrição da Nota: VINCULAÇÃO - CAMPO DESCRIÇÃO FLAG 321 TEXTO ITEM
Sintoma
Ao gravar a vinculação/liquidação (pois está parametrizado - liquidação automática do câmbio
pronto), o campo Texto "SGTXT" continua não sendo preenchido de acordo com a 321 nos lançamentos:
Desmembramento fatura (partida débito), Desmembramento ACE (partidas débito e crédito) e documento
de liquidação (partidas de débito e crédito), o programa está preenchendo o campo Texto com a
informação da tabela 011, sendo que de acordo com o parametrizado na 321 o correto seria preencher
com a informação do campo "DESCRIÇÃO" da tabela 321 e não está preenchendo o campo Texto em todas as
partidas mencionadas acima. No estorno o texto também não esta sendo preenchido nos lançamentos de
clearing da fatura e clearing do ACE, está ficando em branco para uma das partidas.
Solução
Ajuste efetuado para que o programa faça o tratamento de acordo com Flag do campo de texto
informativo, para inserir os valores de acordo com a 321.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02199 Data: 04/10/2006 Hora: 09:14:20
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02199
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
----------------------------------------------------------------------------------------------------
VINCULAÇÃO - CAMPO DESCRIÇÃO FLAG 321 TEXTO ITEM
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO - CAMPO DESCRIÇÃO FLAG 321 TEXTO ITEM
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB009F08
REPS /PWS/MZYCB009F09
----------------------------------------------------------------------------------------------------
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 ESTORNO_PERIODO_FECHADO
IF itab_zycbt005-ftxt IS INITIAL.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
ELSE.
itab_zycbe033-d_sgtxt = itab_zycbt005-txtinf.
itab_zycbe033-c_sgtxt = itab_zycbt005-txtinf.
ENDIF.
* << 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 ESTORNO_PERIODO_FECHADO
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNO_PERIODO_FECHADO
/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.
...
...
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
IF itab_vinc-ftxt IS INITIAL.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
ELSE.
itab_zycbe033-d_sgtxt = itab_vinc-txtinf.
itab_zycbe033-c_sgtxt = itab_vinc-txtinf.
ENDIF.
* << 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
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM 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.
ENDIF.
...
...
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_CLIENTE
IF itab_zycbt005-ftxt IS INITIAL.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
ELSE.
itab_zycbe033-d_sgtxt = itab_zycbt005-txtinf.
itab_zycbe033-c_sgtxt = itab_zycbt005-txtinf.
ENDIF.
* << 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_CLIENTE
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_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.
...
...
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_ACE
IF itab_zycbt005-ftxt IS INITIAL.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
ELSE.
itab_zycbe033-d_sgtxt = itab_zycbt005-txtinf.
itab_zycbe033-c_sgtxt = itab_zycbt005-txtinf.
ENDIF.
* << 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
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_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.
ENDIF.
...
...
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_ACE
IF itab_zycbt005-ftxt IS INITIAL.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
ELSE.
itab_zycbe033-d_sgtxt = itab_zycbt005-txtinf.
itab_zycbe033-c_sgtxt = itab_zycbt005-txtinf.
ENDIF.
* << 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_ACE
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_CLIENTE_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.
ENDIF.
...
----------------------------------------------------------------------------------------------------
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 DESMEMBRA_LIQ_AND_CP
IF itab_zycbt005-ftxt IS INITIAL.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
ELSE.
itab_zycbe033-d_sgtxt = itab_zycbt005-txtinf.
itab_zycbe033-c_sgtxt = itab_zycbt005-txtinf.
ENDIF.
* << 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_LIQ_AND_CP
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_LIQ_AND_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.
...
...
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_ACE2
IF itab_zycbt005-ftxt IS INITIAL.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
ELSE.
itab_zycbe033-d_sgtxt = itab_zycbt005-txtinf.
itab_zycbe033-c_sgtxt = itab_zycbt005-txtinf.
ENDIF.
* << 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_ACE2
/pws/zycbe005-txtinf IS INITIAL AND
/pws/zycbe001-txtinf IS INITIAL AND
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_ACE2
/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.
...