CE PLUS - Nota 007845

Módulo: CÂMBIO FINANCEIRO

Funcionalidade: Remessa

Data/Hora da Publicação: 29/12/2008 00:00:00

Data/Hora Última Alteração: 18/02/2011 14:15:44

Descrição da Nota: COMPLEMENTO DO BOLETO - SGTXT - OPÇÕES TXTINF TXINF

Sintoma

Ao contabilizar o complemento do boleto de Remessa, não esta encontrando o campo SGTXT na

/PWS/ZYGLT321, mas o mesmo esta parametrizado para o evento do processo.

 

 

Solução

Considerar as opções TXTINF e TXINF.

 

Versões Tratadas

7.0

Pré-Requisitos

Produto:

Nota

Descrição

Nota 6671
REPATRIAÇÃO DE REMESSA

Nota 6114
COMPLEMENTO DO BOLETO - DA ESTORNO PAGAMENTO ANTECIPADO/FAT. IMPORTAÇÃO

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 07845 Data: 29/12/2008 Hora: 14:12:34

----------------------------------------------------------------------------------------------------

 

----------------------------------------------------------------------------------------------------

Nota Número              : 07845

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00008

Agrupamento              : 00079

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

 

06114  - 00001 - 7.0    - 00004  - COMPLEMENTO DO BOLETO - DA ESTORNO PAGAMENTO ANTECIPADO/FAT. IMPO

06671  - 00002 - 7.0    - 00005  - REPATRIAÇÃO DE REMESSA

----------------------------------------------------------------------------------------------------

COMPLEMENTO DO BOLETO - SGTXT - OPÇÕES TXTINF TXINF

----------------------------------------------------------------------------------------------------

Palavras Chave:

COMPLEMENTO DO BOLETO SGTXT OPÇÕES TXTINF TXINF

/PWS/ZYGLT321

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCA110F01

REPS /PWS/MZYCB110F01

REPS /PWS/MZYCM110F01

 

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCA110F01

 

...

            itab_zycbe035-d_sgtxt = wa_zycbt124-nrfat.

          ELSEIF itab_zyglt321-cpocb = 'NRCONTR'.

            itab_zycbe035-c_sgtxt = wa_zycbt124-nrcontr.

            itab_zycbe035-d_sgtxt = wa_zycbt124-nrcontr.

          ELSEIF itab_zyglt321-cpocb = 'NRFECH'.

            itab_zycbe035-c_sgtxt = wa_zycbt124-nrfech.

            itab_zycbe035-d_sgtxt = wa_zycbt124-nrfech.

          ELSEIF itab_zyglt321-cpocb = 'NRSEQ'.

            itab_zycbe035-c_sgtxt = wa_zycbt124-nrseq.

            itab_zycbe035-d_sgtxt = wa_zycbt124-nrseq.

* >> Início da exclusão: FORM LANCAMENTO_MULTIPLO

          ELSEIF itab_zyglt321-cpocb = 'TXTINF'.

* << Fim da exclusão

* >> Início da inclusão: FORM LANCAMENTO_MULTIPLO

          ELSEIF itab_zyglt321-cpocb = 'TXINF' OR

                 itab_zyglt321-cpocb = 'TXTINF'.

* << Fim da inclusão

            itab_zycbe035-c_sgtxt = wa_zycbt124-txtinf.

            itab_zycbe035-d_sgtxt = wa_zycbt124-txtinf.

          ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.

            itab_zycbe035-c_sgtxt = wa_zycbt124-codpagto.

            itab_zycbe035-d_sgtxt = wa_zycbt124-codpagto.

          ELSEIF itab_zyglt321-cpocb = 'TPIMP'.

            itab_zycbe035-c_sgtxt = p_tpimp.

            itab_zycbe035-d_sgtxt = p_tpimp.

          ELSEIF itab_zyglt321-cpocb IS INITIAL AND

             NOT itab_zyglt321-descr IS INITIAL.

...

 

...

          itab_zycbe033-d_sgtxt = wa_zycbt124-nrfat.

        ELSEIF itab_zyglt321-cpocb = 'NRCONTR'.

          itab_zycbe033-c_sgtxt = wa_zycbt124-nrcontr.

          itab_zycbe033-d_sgtxt = wa_zycbt124-nrcontr.

        ELSEIF itab_zyglt321-cpocb = 'NRFECH'.

          itab_zycbe033-c_sgtxt = wa_zycbt124-nrfech.

          itab_zycbe033-d_sgtxt = wa_zycbt124-nrfech.

        ELSEIF itab_zyglt321-cpocb = 'NRSEQ'.

          itab_zycbe033-c_sgtxt = wa_zycbt124-nrseq.

          itab_zycbe033-d_sgtxt = wa_zycbt124-nrseq.

* >> Início da exclusão: FORM FILL_DATE_F-30_CP

        ELSEIF itab_zyglt321-cpocb = 'TXINF'.

* << Fim da exclusão

* >> Início da inclusão: FORM FILL_DATE_F-30_CP

        ELSEIF itab_zyglt321-cpocb = 'TXINF' OR

               itab_zyglt321-cpocb = 'TXTINF'.

* << Fim da inclusão

          itab_zycbe033-c_sgtxt = wa_zycbt124-txtinf.

          itab_zycbe033-d_sgtxt = wa_zycbt124-txtinf.

        ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.

          itab_zycbe033-c_sgtxt = wa_zycbt124-codpagto.

          itab_zycbe033-d_sgtxt = wa_zycbt124-codpagto.

        ELSEIF itab_zyglt321-cpocb = 'TPIMP'.

          itab_zycbe033-c_sgtxt = p_tpimp.

          itab_zycbe033-d_sgtxt = p_tpimp.

        ELSEIF itab_zyglt321-cpocb IS INITIAL AND

           NOT itab_zyglt321-descr IS INITIAL.

...

 

...

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-nrfat.

        ELSEIF itab_zyglt321-cpocb = 'NRCONTR'.

          itab_zycbe033-c_sgtxt = itab_zycbt124_aux-nrcontr.

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-nrcontr.

        ELSEIF itab_zyglt321-cpocb = 'NRFECH'.

          itab_zycbe033-c_sgtxt = itab_zycbt124_aux-nrfech.

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-nrfech.

        ELSEIF itab_zyglt321-cpocb = 'NRSEQ'.

          itab_zycbe033-c_sgtxt = itab_zycbt124_aux-nrseq.

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-nrseq.

* >> Início da exclusão: FORM DESMEMBRA_DOCTO_PROVISAO_CP

        ELSEIF itab_zyglt321-cpocb = 'TXINF'.

* << Fim da exclusão

* >> Início da inclusão: FORM DESMEMBRA_DOCTO_PROVISAO_CP

        ELSEIF itab_zyglt321-cpocb = 'TXINF' or

               itab_zyglt321-cpocb = 'TXTINF'.

* << Fim da inclusão

          itab_zycbe033-c_sgtxt = itab_zycbt124_aux-txtinf.

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-txtinf.

        ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.

          itab_zycbe033-c_sgtxt = itab_zycbt124_aux-codpagto.

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-codpagto.

        ELSEIF itab_zyglt321-cpocb = 'TPIMP'.

          itab_zycbe033-c_sgtxt = p_tpimp.

          itab_zycbe033-d_sgtxt = p_tpimp.

        ELSEIF itab_zyglt321-cpocb IS INITIAL AND

           NOT itab_zyglt321-descr IS INITIAL.

...

 

...

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-nrfat.

        ELSEIF itab_zyglt321-cpocb = 'NRCONTR'.

          itab_zycbe033-c_sgtxt = itab_zycbt124_aux-nrcontr.

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-nrcontr.

        ELSEIF itab_zyglt321-cpocb = 'NRFECH'.

          itab_zycbe033-c_sgtxt = itab_zycbt124_aux-nrfech.

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-nrfech.

        ELSEIF itab_zyglt321-cpocb = 'NRSEQ'.

          itab_zycbe033-c_sgtxt = itab_zycbt124_aux-nrseq.

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-nrseq.

* >> Início da exclusão: FORM COMPENSA_EMPRESA_CP

        ELSEIF itab_zyglt321-cpocb = 'TXINF'.

* << Fim da exclusão

* >> Início da inclusão: FORM COMPENSA_EMPRESA_CP

        ELSEIF itab_zyglt321-cpocb = 'TXINF' or

               itab_zyglt321-cpocb = 'TXTINF'.

* << Fim da inclusão

          itab_zycbe033-c_sgtxt = itab_zycbt124_aux-txtinf.

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-txtinf.

        ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.

          itab_zycbe033-c_sgtxt = itab_zycbt124_aux-codpagto.

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-codpagto.

        ELSEIF itab_zyglt321-cpocb = 'TPIMP'.

          itab_zycbe033-c_sgtxt = p_tpimp.

          itab_zycbe033-d_sgtxt = p_tpimp.

        ELSEIF itab_zyglt321-cpocb IS INITIAL AND

           NOT itab_zyglt321-descr IS INITIAL.

...

 

...

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-nrfat.

        ELSEIF itab_zyglt321-cpocb = 'NRCONTR'.

          itab_zycbe033-c_sgtxt = itab_zycbt124_aux-nrcontr.

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-nrcontr.

        ELSEIF itab_zyglt321-cpocb = 'NRFECH'.

          itab_zycbe033-c_sgtxt = itab_zycbt124_aux-nrfech.

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-nrfech.

        ELSEIF itab_zyglt321-cpocb = 'NRSEQ'.

          itab_zycbe033-c_sgtxt = itab_zycbt124_aux-nrseq.

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-nrseq.

* >> Início da exclusão: FORM CONTABILIZA_DOCTO_CP

        ELSEIF itab_zyglt321-cpocb = 'TXTINF'.

* << Fim da exclusão

* >> Início da inclusão: FORM CONTABILIZA_DOCTO_CP

        ELSEIF itab_zyglt321-cpocb = 'TXINF' or

               itab_zyglt321-cpocb = 'TXTINF'.

* << Fim da inclusão

          itab_zycbe033-c_sgtxt = itab_zycbt124_aux-txtinf.

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-txtinf.

        ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.

          itab_zycbe033-c_sgtxt = itab_zycbt124_aux-codpagto.

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-codpagto.

        ELSEIF itab_zyglt321-cpocb = 'TPIMP'.

          itab_zycbe033-c_sgtxt = p_tpimp.

          itab_zycbe033-d_sgtxt = p_tpimp.

        ELSEIF itab_zyglt321-cpocb IS INITIAL AND

           NOT itab_zyglt321-descr IS INITIAL.

...

 

...

    CASE itab_zyglt321-cpor3.

      WHEN 'SGTXT'.

        IF itab_zyglt321-cpocb = 'NRFAT'.

          itab_zycbe033-c_sgtxt = /pws/zycbe124-nrfat.

        ELSEIF itab_zyglt321-cpocb = 'NRCONTR'.

          itab_zycbe033-c_sgtxt = /pws/zycbe124-nrcontr.

        ELSEIF itab_zyglt321-cpocb = 'NRFECH'.

          itab_zycbe033-c_sgtxt = /pws/zycbe124-nrfech.

        ELSEIF itab_zyglt321-cpocb = 'NRSEQ'.

          itab_zycbe033-c_sgtxt = /pws/zycbe124-nrseq.

* >> Início da exclusão: FORM ATUALIZA_DTVENCTO_FB02_CP

        ELSEIF itab_zyglt321-cpocb = 'TXINF'.

* << Fim da exclusão

* >> Início da inclusão: FORM ATUALIZA_DTVENCTO_FB02_CP

        ELSEIF itab_zyglt321-cpocb = 'TXINF' or

               itab_zyglt321-cpocb = 'TXTINF'.

* << Fim da inclusão

          itab_zycbe033-c_sgtxt = /pws/zycbe124-txtinf.

        ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.

          itab_zycbe033-c_sgtxt = /pws/zycbe124-codpagto.

        ELSEIF itab_zyglt321-cpocb = 'TPIMP'.

          itab_zycbe033-c_sgtxt = p_tpimp.

        ELSEIF itab_zyglt321-cpocb IS INITIAL AND

           NOT itab_zyglt321-descr IS INITIAL.

          itab_zycbe033-c_sgtxt = itab_zyglt321-descr.

        ENDIF.

      WHEN 'ZUONR'.

...

 

...

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-nrfat.

        ELSEIF itab_zyglt321-cpocb = 'NRCONTR'.

          itab_zycbe033-c_sgtxt = itab_zycbt124_aux-nrcontr.

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-nrcontr.

        ELSEIF itab_zyglt321-cpocb = 'NRFECH'.

          itab_zycbe033-c_sgtxt = itab_zycbt124_aux-nrfech.

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-nrfech.

        ELSEIF itab_zyglt321-cpocb = 'NRSEQ'.

          itab_zycbe033-c_sgtxt = itab_zycbt124_aux-nrseq.

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-nrseq.

* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR_CP

        ELSEIF itab_zyglt321-cpocb = 'TXINF'.

* << Fim da exclusão

* >> Início da inclusão: FORM FILL_DATE_F_51_PRINC_IR_CP

        ELSEIF itab_zyglt321-cpocb = 'TXINF' or

               itab_zyglt321-cpocb = 'TXTINF'.

* << Fim da inclusão

          itab_zycbe033-c_sgtxt = itab_zycbt124_aux-txtinf.

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-txtinf.

        ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.

          itab_zycbe033-c_sgtxt = itab_zycbt124_aux-codpagto.

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-codpagto.

        ELSEIF itab_zyglt321-cpocb = 'TPIMP'.

          itab_zycbe033-c_sgtxt = itab_zycat025-tpimp.

          itab_zycbe033-d_sgtxt = itab_zycat025-tpimp.

        ELSEIF itab_zyglt321-cpocb IS INITIAL AND

           NOT itab_zyglt321-descr IS INITIAL.

...

 

 

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCB110F01

 

...

  LOOP AT itab_zyglt321.

    CASE itab_zyglt321-cpor3.

      WHEN 'SGTXT'.

        CASE itab_zyglt321-cpocb.

          WHEN 'NRSEQ'.

            wa_zycbe033-d_sgtxt = wa_zycbt117-nrseq.

            wa_zycbe033-c_sgtxt = wa_zycbt117-nrseq.

          WHEN 'EBELN'.

            wa_zycbe033-d_sgtxt = wa_zycbt117-ebeln.

            wa_zycbe033-c_sgtxt = wa_zycbt117-ebeln.

* >> Início da exclusão: FORM BUSCA_PARAMETROS321_IA

          WHEN 'TXTINF'.

* << Fim da exclusão

* >> Início da inclusão: FORM BUSCA_PARAMETROS321_IA

          WHEN 'TXTINF' or 'TXINF'.

* << Fim da inclusão

            wa_zycbe033-d_sgtxt = wa_zycbt117-txtinf.

            wa_zycbe033-c_sgtxt = wa_zycbt117-txtinf.

          WHEN 'NRFINANC'.

            wa_zycbe033-d_sgtxt = wa_zycbt117-nrfinanc.

            wa_zycbe033-c_sgtxt = wa_zycbt117-nrfinanc.

          WHEN 'NRFAT'.

            wa_zycbe033-d_sgtxt = wa_zycbt117-nrfat.

            wa_zycbe033-c_sgtxt = wa_zycbt117-nrfat.

          WHEN 'CODINT'.

            wa_zycbe033-d_sgtxt = wa_zycbt117-codint.

...

 

...

  LOOP AT itab_zyglt321.

    CASE itab_zyglt321-cpor3.

      WHEN 'SGTXT'.

        CASE itab_zyglt321-cpocb.

          WHEN 'NRSEQ'.

            wa_zycbe033-d_sgtxt = wa_zycbt119-nrseq.

            wa_zycbe033-c_sgtxt = wa_zycbt119-nrseq.

          WHEN 'EBELN'.

            wa_zycbe033-d_sgtxt = wa_zycbt119-ebeln.

            wa_zycbe033-c_sgtxt = wa_zycbt119-ebeln.

* >> Início da exclusão: FORM BUSCA_PARAMETROS321_IP

          WHEN 'TXTINF'.

* << Fim da exclusão

* >> Início da inclusão: FORM BUSCA_PARAMETROS321_IP

          WHEN 'TXTINF' or 'TXINF'.

* << Fim da inclusão

            wa_zycbe033-d_sgtxt = wa_zycbt119-txtinf.

            wa_zycbe033-c_sgtxt = wa_zycbt119-txtinf.

          WHEN 'NRPAGTO'.

            wa_zycbe033-d_sgtxt = wa_zycbt119-nrpagto.

            wa_zycbe033-c_sgtxt = wa_zycbt119-nrpagto.

          WHEN 'NRFAT'.

            wa_zycbe033-d_sgtxt = wa_zycbt119-nrfat.

            wa_zycbe033-c_sgtxt = wa_zycbt119-nrfat.

          WHEN 'CODINT'.

            wa_zycbe033-d_sgtxt = wa_zycbt119-codint.

...

 

...

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-nrfat.

        ELSEIF itab_zyglt321-cpocb = 'NRCONTR'.

          itab_zycbe033-c_sgtxt = itab_zycbt124_aux-nrcontr.

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-nrcontr.

        ELSEIF itab_zyglt321-cpocb = 'NRFECH'.

          itab_zycbe033-c_sgtxt = itab_zycbt124_aux-nrfech.

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-nrfech.

        ELSEIF itab_zyglt321-cpocb = 'NRSEQ'.

          itab_zycbe033-c_sgtxt = itab_zycbt124_aux-nrseq.

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-nrseq.

* >> Início da exclusão: FORM CONTABILIZA_REPATRIACAO_CP

        ELSEIF itab_zyglt321-cpocb = 'TXTINF'.

* << Fim da exclusão

* >> Início da inclusão: FORM CONTABILIZA_REPATRIACAO_CP

        ELSEIF itab_zyglt321-cpocb = 'TXINF' or

               itab_zyglt321-cpocb = 'TXTINF'.

* << Fim da inclusão

          itab_zycbe033-c_sgtxt = itab_zycbt124_aux-txtinf.

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-txtinf.

        ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.

          itab_zycbe033-c_sgtxt = itab_zycbt124_aux-codpagto.

          itab_zycbe033-d_sgtxt = itab_zycbt124_aux-codpagto.

        ELSEIF itab_zyglt321-cpocb IS INITIAL AND

           NOT itab_zyglt321-descr IS INITIAL.

          itab_zycbe033-c_sgtxt = itab_zyglt321-descr.

          itab_zycbe033-d_sgtxt = itab_zyglt321-descr.

        ENDIF.

...

 

 

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCM110F01

 

...

  LOOP AT itab_zyglt321.

    CASE itab_zyglt321-cpor3.

      WHEN 'SGTXT'.

        CASE itab_zyglt321-cpocb.

          WHEN 'NRSEQ'.

            MOVE: wa_zycbt112-nrseq TO itab_zycbe033-d_sgtxt,

                  wa_zycbt112-nrseq TO itab_zycbe033-c_sgtxt.

          WHEN 'NRFINANC'.

            MOVE: wa_zycbt112-nrfinanc TO itab_zycbe033-d_sgtxt,

                  wa_zycbt112-nrfinanc TO itab_zycbe033-c_sgtxt.

* >> Início da exclusão: FORM PARAMETRIZA_IF_P

          WHEN 'TXTINF'.

* << Fim da exclusão

* >> Início da inclusão: FORM PARAMETRIZA_IF_P

          WHEN 'TXTINF' or 'TXINF'.

* << Fim da inclusão

            IF wa_zycbt112-txtinf IS INITIAL.

              MOVE wa_zycbt011-txtdesc TO:

                     itab_zycbe033-d_sgtxt,

                     itab_zycbe033-c_sgtxt.

            ELSE.

              MOVE: wa_zycbt112-txtinf TO itab_zycbe033-d_sgtxt,

                    wa_zycbt112-txtinf TO itab_zycbe033-c_sgtxt.

            ENDIF.

          WHEN space.

            MOVE itab_zyglt321-descr TO:

...