Sintoma

Está ocorrendo Dump na Adição da DI.

Solução

Recalcular os valores ao entrar na adição.

Informações Complementares

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

Nota Número 00374 Data: 30/11/2005 Hora: 17:05:13

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

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

Nota Número              : 00374

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00021

Agrupamento              : 00090

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

PASSAGEM DO NÚMERO DA CONTA CORRETA PARA A CONTABILIZAÇÃO

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

Palavras Chave:

LIQUIDAÇÃO DESMEMBRA ACE

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

Objetos da nota:

REPS /PWS/MZYCB004F02

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

Modificações efetuadas em REPS /PWS/MZYCB004F02

FORM desmembra_ace.

...

  CONCATENATE '003' /pws/zycbe005-tpcontr INTO v_codeven.

* Encontra conta de ACE

  CASE itab_zycbt006-tpcontr+0(1).

    WHEN 'A' OR 'E' OR 'C'.            " ACC ou ACE

      PERFORM verify_null_field USING itab_zycbt006-bconegoc

                                      'BCONEGOC'

                                      text-001.

      v_banco_d = itab_zycbt006-bconegoc.

    WHEN 'P' OR 'S'.                   " Pré-pagamento ou securitização

      PERFORM verify_null_field USING itab_zycbt006-bcofinan

                                      'BCOFINAN'

                                      text-002.

      v_banco_d = itab_zycbt006-bcofinan.

  ENDCASE.

* Verifica o prazo da vinculação

* Maurício - chamado 157079 - 03.05.2004

*  IF itab_zycbt006-tpcontr(1) NE 'C' AND

*     itab_zycbt006-tpcontr(1) NE 'E'.

  v_nrdias = itab_zycbt006-dtpagto - itab_zycbt006-dtvincul.

  IF v_nrdias > 360.

    v_prazo = 'L'.                     " Curto Prazo

  ELSE.

    v_prazo = 'S'.                     " Curtíssimo Prazo

  ENDIF.

  IF /pws/zycbe001-desc_receb IS INITIAL.

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

    IF /pws/zycbt001-tpcontr(01) NE 'E'.

* << Fim da exclusão

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

    IF /pws/zycbt001-tpcontr(01) EQ 'E'.

* << Fim da inclusão

      CONCATENATE 'E' v_prazo INTO v_codaux SEPARATED BY space.

      v_tpcontr = /pws/zycbt001-tpcontr.

    ELSE.

      CONCATENATE /pws/zycbt001-tpcontr v_prazo

        INTO v_codaux SEPARATED BY space.

    ENDIF.

  ELSE.

    v_codaux = 'DR'.

    CLEAR v_tpcontr.

  ENDIF.

  CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'

       EXPORTING

            bukrs           = /pws/zycbt001-bukrs

            ktosl           = 'CPT'

            codaux1         = v_codaux

            codaux2         = v_tpcontr

       TABLES

            account         = itab_zyglt316

       EXCEPTIONS

            key_not_found   = 1

            rules_not_found = 2

            OTHERS          = 3.

...

ENDFORM.                    " desmembra_ace