CE PLUS - Nota 008267

Módulo: CÂMBIO IMPORTAÇÃO

Funcionalidade: Financiamento

Data/Hora da Publicação: 02/04/2009 00:00:00

Data/Hora Última Alteração: 18/02/2011 10:49:42

Descrição da Nota: FINANCIAMENTO - CHAVE DE REFERÊNCIA NO PARCELAMENTO DE PRINCIPAL

Sintoma

No financiamento, ao desmembrar a parcela do principal quando já possui associação de fatura, não

cria a segunda parcela do principal ao tentar desmembrar quando já há associação.

 

 

Solução

Buscar ano contábil na data preenchida para que possa fazer o desmembramento e contabilização da

segunda parcela do principal.

 

Versões Tratadas

7.0


Pré-Requisitos

Produto:

Nota

Descrição

ANO FISCAL FINANCIAMENTO - ANTECIPADO - FATURA - ASSOCIAÇÃO

Informações Complementares

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

Nota Número 08267 Data: 02/04/2009 Hora: 11:58:51

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

 

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

Nota Número              : 08267

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00009

Agrupamento              : 00092

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

Referência às notas relacionadas:

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

 

07600  - 00001 - 7.0    - 00007  - ANO FISCAL FINANCIAMENTO - ANTECIPADO - FATURA - ASSOCIAÇÃO

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

FINANCIAMENTO - CHAVE DE REFERÊNCIA NO PARCELAMENTO DE PRINCIPAL

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

Palavras Chave:

FINANCIAMENTO - CHAVE DE REFERÊNCIA NO PARCELAMENTO DE PRINCIPAL

 

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

Objetos da nota:

REPS /PWS/MZYCM101F01

 

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

Modificações efetuadas em REPS /PWS/MZYCM101F01

 

...

    perform verify_null_field using /pws/zycbe112-sldesem

                                    'SLDESEM'

                                    text-015.

    itab_zycbe033-wrbtr  = itab_zycbt113pa-vlme.

    itab_zycbe033-newbs = '50'.

    itab_zycbe033-c_newko = v_newkof.

    itab_zycbe033-d_newko = v_newkof.

    itab_zycbe033-agkon = itab_zyglt316-konth.

    itab_zycbe033-agkoa = 'S'.

    itab_zycbe033-belnr = itab_zycbt113pa-belnr.

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

    IF NOT wa_zycbt112-dtcont IS INITIAL.

* << Fim da inclusão

    perform determina_ano

      using    wa_zycbt112-dtcont

      changing v_ano.

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

    ELSE.

      PERFORM determina_ano

        USING    wa_zycbt112-dtdesem

        CHANGING v_ano.

    ENDIF.

* << Fim da inclusão

    select single awkey from bkpf

                        into itab_zycbe033-awkey

                        where belnr eq itab_zycbt113pa-belnr

                          and bukrs eq wa_zycbt112-bukrs

                          and gjahr eq v_ano.

    if /pws/zycbe112-bco_forn is initial.

      perform verify_null_field using /pws/zycbe112-lifnr

                                      'LIFNR'

                                      text-022.

    else.

...

 

...

          concatenate text-058

                      itab_zycbt032-msg

                 into wa_mensagem-msg

            separated by space.

          append wa_mensagem to itab_mensagem.

          refresh itab_zycbt036.

          itab_zycbt036-tcode  = text-083.

          itab_zycbt036-tabela = text-008.

          itab_zycbt036-cpochv = /pws/zycbe112-nrseq.

          itab_zycbt036-belnr = itab_zycbt032-belnr.

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

          IF NOT v_budat IS INITIAL.

* << Fim da inclusão

          perform determina_ano

            using    v_budat

            changing v_ano.

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

          ELSE.

            PERFORM determina_ano

              USING    /pws/zycbe112-dtdesem

              CHANGING v_ano.

          ENDIF.

* << Fim da inclusão

          select single awkey from bkpf

                              into itab_zycbt036-awkey

                              where belnr eq itab_zycbt032-belnr

                                and bukrs eq /pws/zycbe112-bukrs

                                and gjahr eq v_ano.

          append itab_zycbt036.

          itab_zycbt113p-belnr = itab_zycbt032-belnr.

          if v_prazo eq c_prazo_l.

            itab_zycbt113p-belnr_lp = itab_zycbt032-belnr.

            itab_zycbt113p-ftransf  = c_prazo_l.

...