Sintoma

Ao efetuar o complemento do boleto de remessa de recebimento, regime de caixa, é gerada F-02, mas o

campo atribuição na partida débito não esta sendo preenchido.

Solução

Carregar o campo itab_zycbe033-d_zuonr antes de gerar a contabilização.

Informações Complementares

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

Nota Número 05575 Data: 07/01/2008 Hora: 17:50:14

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

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

Nota Número              : 05575

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00029

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

COMPLEMENTO DO BOLETO - REMESSA RECEBIMENTO - F-02 - ATRIBUIÇÃO(ZUONR)

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

Palavras Chave:

COMPLEMENTO DO BOLETO - REMESSA RECEBIMENTO - F-02 - ATRIBUIÇÃO(ZUONR)

PARTIDA DÉBITO

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

Objetos da nota:

REPS /PWS/MZYCA110F01

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

Modificações efetuadas em REPS /PWS/MZYCA110F01

...

          ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.

            itab_zycbe035-c_zuonr = wa_zycbt124-codpagto.

          ELSEIF itab_zyglt321-cpocb = 'TPIMP'.

            itab_zycbe035-c_zuonr = p_tpimp.

          ELSEIF itab_zyglt321-cpocb IS INITIAL AND

                 NOT itab_zyglt321-descr IS INITIAL.

            itab_zycbe035-c_zuonr = itab_zyglt321-descr.

          ENDIF.

      ENDCASE.

    ENDLOOP.

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

    IF itab_zycbt124_aux-tpoper = 'R'.

      itab_zycbe035-d_zuonr = itab_zycbe035-c_zuonr.

    ENDIF.

* << Fim da inclusão

    IF NOT p_recontabiliza IS INITIAL AND

       itab_zycbt141-nrseq NE itab_zycat025-nrseq.

      CONTINUE.

    ENDIF.

    APPEND itab_zycbe035.

  ENDLOOP.

  DESCRIBE TABLE itab_zycbe035 LINES v_line.

  READ TABLE itab_zycbe035 INDEX v_line.

  IF v_total > itab_dados_tc-vlme.

    v_total_mi = v_total_mi - ( itab_zycbe035-wrbtr *

...

...

        ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.

          itab_zycbe033-c_zuonr = itab_zycbt124_aux-codpagto.

        ELSEIF itab_zyglt321-cpocb = 'TPIMP'.

          itab_zycbe033-c_zuonr = p_tpimp.

        ELSEIF itab_zyglt321-cpocb IS INITIAL AND

               NOT itab_zyglt321-descr IS INITIAL.

          itab_zycbe033-c_zuonr = itab_zyglt321-descr.

        ENDIF.

    ENDCASE.

  ENDLOOP.

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

  IF itab_zycbt124_aux-tpoper = 'R'.

    itab_zycbe033-d_zuonr = itab_zycbe033-c_zuonr.

  ENDIF.

* << Fim da inclusão

  itab_zycbe033-newbs   = '31'.

  IF p_recuperar                 IS INITIAL  AND

     p_recontabiliza             IS INITIAL  AND

     ( ( /pws/zycbe145-cod_fech  EQ 'TR'     AND

         p_tpimp(4)              NE 'IRRF'   AND

         p_tpimp(4)              NE 'CIDE' ) OR

       ( /pws/zycbe145-cod_fech  EQ 'TR'     AND

         ( p_tpimp(4)            EQ 'IRRF'   OR

           p_tpimp(4)            EQ 'CIDE' ) AND

       itab_dados_tc-pagtoirrf   EQ 'BCO' ) ).

...