Sintoma

Erro Vlr ME na Impressão dos Boletos

Para que o erro não ocorra temos que imprimir um boleto, sair da transação, entrar novamente e

imprimir o próximo.

Solução

Limpar as variáveis de memória para não levar informação do boleto que tem agrupamento para os

boletos indivíduais.

Informações Complementares

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

Nota Número 04202 Data: 18/07/2007 Hora: 14:31:01

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

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

Nota Número              : 04202

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00004

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

LIMPAR VARIÁVES DE MEMÓRIA DO COMPLEMENTO DE BOLETO

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

Palavras Chave:

BOLETO, COMPLEMENTO DE BOLETO, IMPRESSÃO DE BOLETO

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

Objetos da nota:

REPS /PWS/MZYGL110F01

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

Modificações efetuadas em REPS /PWS/MZYGL110F01

...

      CLEAR: wa_line.

      MOVE itab_boleto TO wa_line.

      wa_line-vlme = itab_zycbt031-vlme.

      SELECT SINGLE * FROM /pws/zycbt031

        WHERE nrseq     EQ itab_zycbt031-nrseq

          AND dtboleto  EQ itab_zycbt031-dtboleto

          AND nrcorresp EQ itab_zycbt031-nrcorresp.

      CLEAR:   itab_zycbt064_aux2, v_nrchave, v_docto, v_tipo2,

               v_lifnr2, v_total, itab_nrpgfat, itab_selreg.

      REFRESH:  itab_zycbt064_aux2, itab_nrpgfat, itab_selreg.

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

   FREE MEMORY: ID '003',

                ID '004',

                ID '005',

                ID '006',

                ID '010',

                ID '093',

                ID 'E011'.

* << Fim da inclusão

      SELECT * FROM /pws/zycbt064

               INTO TABLE itab_zycbt064_aux2

               WHERE nrboleto EQ itab_zycbt031-nrseq.

      IF NOT itab_zycbt064_aux2[] IS INITIAL.

        CLEAR   itab_zycbt119.

        REFRESH itab_zycbt119.

        SELECT * FROM /pws/zycbt119

          INTO TABLE itab_zycbt119

          FOR ALL ENTRIES IN itab_zycbt064_aux2

          WHERE nrseq = itab_zycbt064_aux2-nrchave.

...