Sintoma

Ao criar um contrato de ACC no longo prazo e rodar a primeira rotina mensal, onde já seria feita a

transferência do longo prazo para curto prazo, mas ao contabilizar a rotina mensal o programa faz

uma F-02 com a provisão dos juros corretamente. Depois entra para fazer a F-30 de transferência do

longo para curto prazo e gera o documento contábil corretamente. Mas logo após o programa está

tentando fazer a transferência do longo para curto prazo novamente, ocorrendo erro no batch input,

pois o documento selecionado (da captação) já está compensado pelo documento de transferência do

longo para o curto gerado na 1ª F-30, portanto a 2ª F-30 não deveria ocorrer.

Solução

Ajustado para que grave registro na itab corretamente.

Informações Complementares

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

Nota Número 01054 Data: 17/03/2006 Hora: 14:40:37

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

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

Nota Número              : 01054

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00023

Agrupamento              : 00106

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ROTINA MENSAL COM TRANSFERÊNCIA DE LONGO PARA CURTO, GERAVA F-30 A MAIS

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

Palavras Chave:

ROTINA MENSAL TRANSFERÊNCIA DE LONGO PARA CURTO GERA F-30 A MAIS

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

Objetos da nota:

REPS /PWS/ZYCBI003

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

Modificações efetuadas em REPS /PWS/ZYCBI003

...

  itab_contabil-dtcont     = s_dtentr.

  itab_contabil-vlme       = p_vlmej.

  IF wa_zycbt007-fprovisao  = space.

    itab_contabil-nrcorresp = wa_itab_relat-nrseqc.

    itab_contabil-vlrprov   = itab_contabil-vlme.

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

    APPEND itab_contabil.

    CLEAR itab_contabil.

* << Fim da inclusão

  ELSE.

    itab_contabil-nrcorresp = wa_itab_relat-nrseqc.

  ENDIF.

  CLEAR v_vlrjprov.

  v_vlrjprov = itab_contabil-vlme.

...

...

ENDFORM.

FORM lancamento_provisao.

  DATA: v_descricao(30).

  SELECT * FROM /pws/zycbt013 INTO TABLE itab_zycbt013

       WHERE tabela = '/PWS/ZYCBT154'.

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

  sort itab_contabil.

  DELETE ADJACENT DUPLICATES FROM itab_contabil.

* << Fim da inclusão

  LOOP AT itab_contabil.

    CLEAR /pws/zycbt154.

    IF itab_contabil-vlrprov > 0 OR itab_contabil-vlmetransf > 0.

      IF itab_contabil-tpcontab IS INITIAL.

        CONCATENATE 'JU'

...