Sintoma

Erro ocorre na liquidação com performace de várias faturas num ACE, se ocorre um erro (/n) na

segunda fatura o sistema está anulando e estornando todos os documentos da liquidação, enquanto

deveria estornar somente os documentos da liquidação da fatura em que ocorreu o erro.

Solução

acrescentar a linha de verificação da variável v_performance

Informações Complementares

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

Nota Número 06863 Data: 27/06/2008 Hora: 13:31:26

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

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

Nota Número              : 06863

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00006

Agrupamento              : 00054

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

LIQUIDAÇÃO COM PERFORMANCE

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

Palavras Chave:

LIQUIDAÇÃO, PERFORMANCE, LIQUIDAÇÃO COM PERFORMANCE

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

Objetos da nota:

REPS /PWS/MZYCB004F02

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

Modificações efetuadas em REPS /PWS/MZYCB004F02

...

      v_subrc = 4.

      EXIT.

    ENDIF.

  ENDLOOP.

  IF v_subrc NE 0.

    DESCRIBE TABLE itab_zycbt006 LINES v_linha.

    DO v_linha TIMES.

      v_index = v_linha - sy-index + 1.

      READ TABLE itab_zycbt006 INDEX v_index.

      CHECK itab_zycbt006-v_status = 'I' AND

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

            itab_zycbt006-v_performance = 'X' AND

* << Fim da inclusão

            itab_zycbt006-v_armda NE 'X'.

      IF NOT itab_zycbt006-belnr_perf IS INITIAL.

        PERFORM anula_liquidacao_perf.

      ENDIF.

      IF NOT itab_zycbt006-belnr IS INITIAL.

        PERFORM anula_liquidacao.

      ENDIF.

      LOOP AT itab_zycbt030 WHERE nrinvoic = itab_zycbt006-nrinvoic

                              AND gsberf   = itab_zycbt006-gsberf

                              AND nrparcf  = itab_zycbt006-nrparcf.

...