Sintoma

1) Criei um contrato de ACC e gravei (Mas o erro ocorre para os contratos de ACC e ACE).

2) Fiz uma vinculação e gravei.

3) (OBS: Ativei a EXIT /PWS/A26 somente para simular erro antes de entrar na liquidação - Essa EXIT

exige que a fatura tenha liquidação em andamento para efetuar a liquidação, então não fiz a

liquidação em andamento para a fatura). Entrei para criar a liquidação e ao gravar é exibida a

mensagem de erro (pois não fiz a liquidação em andamento dessa fatura) e após a mensagem de erro, o

programa está gerando o documento de provisão (F-02), mas em casos de erro antes de entrar na

liquidação, esse documento não deveria ser gerado, pois nesses casos nem é gravado o registro na

tabela /pws/zycbt006, por isso ao entrar novamente para criar a liquidação, o programa gera

novamente o documento de provisão sem estornar o anterior. Favor efetuar os ajustes para que nos

casos onde não é gravado o registro na tabela 006 (ou seja, ocorre erro antes de entrar no batch

input) para que o programa não gere o documento de provisão, para os demais casos, onde é gravado o

registro na tabela /pws/zycbt006 está ok.

Solução

Ajuste efetuado para que o programa não faça o lançamento da provisão caso ocorra erro na

liquidação, utilizando o campo status da tabela /pws/zycbt006.

Informações Complementares

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

Nota Número 02395 Data: 08/11/2006 Hora: 10:27:17

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

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

Nota Número              : 02395

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00025

Agrupamento              : 00139

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

LIQUIDAÇÃO - BARRAR LANÇAMENTO DA PROVISÃO SEM LIQUIDAÇÃO EM ANDAMENTO

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

Palavras Chave:

LIQUIDAÇÃO - BARRAR LANÇAMENTO DA PROVISÃO SEM LIQUIDAÇÃO EM ANDAMENTO

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

Objetos da nota:

REPS /PWS/MZYCB004F01

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

Modificações efetuadas em REPS /PWS/MZYCB004F01

...

  ENDIF.

  SELECT SINGLE * FROM /pws/zycbt089

                  WHERE bukrs EQ  /pws/zycbe001-bukrs.

  IF /pws/zycbt089-est_variacao EQ 'X'.

    PERFORM seleciona_paga_documento2.

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

IF itab_zycbt006-v_status <> 'N'.

* << Fim da inclusão

    IF ( /pws/zycbt001-tpcontr(1) EQ 'A' OR

         /pws/zycbt001-tpcontr(1) EQ 'E' OR

         /pws/zycbt001-tpcontr(1) EQ 'D' OR

         /pws/zycbt001-tpcontr(1) EQ 'T' ) AND

      wa_zycbt007-fprovisao EQ 'C'.

      PERFORM estorna_diferenca_juros.

      PERFORM provisiona_diferenca_juros.

    ENDIF.

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

ENDIF.

* << Fim da inclusão

    PERFORM atualiza_tabelas_transp2.

    IF wa_zycbt007-liq_com_cg NE 'RP'.

      PERFORM liquida_comissao_agente.

    ENDIF.

    IF NOT itab_erro[] IS INITIAL.

...