Sintoma

Na contabilização do refinanciamento, o programa não está verificando o ano do documento contábil

gerado na transferência de Longo Prazo para Curto Prazo da Rotina Mensal. Gerei financiamento em

2006, e a transferência foi em 2007. Quando vou refinanciar, o programa busca o documento com data

de 2006 ao invés de 2007, dando erro na seleção de PA da F-51.

Solução

Verificação da data de contrato da tabela /pws/zycbt154, para identificação do ano do lançamento

para a chave de referência do lançamento contábil (f-51).

Informações Complementares

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

Nota Número 04805 Data: 24/09/2007 Hora: 15:40:19

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

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

Nota Número              : 04805

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00013

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

IMPORTAÇÃO FIANCIAMENTO

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

Palavras Chave:

FINANCIAMENTO, REFINANCIAMENTO

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

Objetos da nota:

REPS /PWS/MZYCM101F01

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

Modificações efetuadas em REPS /PWS/MZYCM101F01

...

                        INTO /pws/zycbt113-belnr

                        WHERE nrseq EQ itab_zycbt112-nrseq

                          AND nrparc EQ itab_zycbt116-nrparc

                          AND tpparc EQ 'P'.

    itab_zycbt036-belnr = /pws/zycbt113-belnr.

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

    CLEAR /pws/zycbt154-dtcont.

    SELECT SINGLE dtcont FROM /pws/zycbt154

                        INTO /pws/zycbt154-dtcont

                        WHERE nrcorresp EQ itab_zycbt112-nrseq

                          AND tpcontr EQ itab_zycbt116-nrparc+1(2)

                          AND codmod  EQ 'I'

                          AND codmodul EQ 'T'.

    IF sy-subrc EQ 0.

      SELECT SINGLE awkey FROM bkpf

                          INTO itab_zycbt036-awkey

                          WHERE belnr EQ /pws/zycbt113-belnr

                            AND bukrs EQ itab_zycbt112-bukrs

                            AND gjahr EQ /pws/zycbt154-dtcont(4).

      APPEND itab_zycbt036.

    ELSE.

* << Fim da inclusão

      SELECT SINGLE awkey FROM bkpf

                          INTO itab_zycbt036-awkey

                          WHERE belnr EQ /pws/zycbt113-belnr

                            AND bukrs EQ itab_zycbt112-bukrs

                            AND gjahr EQ itab_zycbt112-dtdesem(4).

      APPEND itab_zycbt036.

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

    ENDIF.

* << Fim da inclusão

  ENDLOOP.

  itab_zycbt036-tcode  = text-083.

  itab_zycbt036-tabela = text-008.

  itab_zycbt036-cpochv = itab_zycbt112-nrseq.

  itab_zycbt036-belnr  = /pws/zycbe112-belnr.

  SELECT SINGLE awkey FROM bkpf

                      INTO itab_zycbt036-awkey

                      WHERE belnr EQ /pws/zycbe112-belnr

                        AND bukrs EQ /pws/zycbe112-bukrs

                        AND gjahr EQ /pws/zycbe112-dtdesem(4).

...