Sintoma

Não estamos conseguindo realizar o recebimento de serviços pois dá mensagens de erro . A cada

tentativa de recebimento,o programa está estornando o documento "DOC.REV.FATURA" mas está mantendo o

documento na tabela.

Solução

Atualização do sistema de recebimento para os embarques de serviço.

Informações Complementares

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

Nota Número 01753 Data: 17/07/2006 Hora: 08:56:34

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

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

Nota Número              : 01753

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00122

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ERRO NO RECEBIMENTO ESTORNA DOC.REV.FATURA MAS MANTEM DOCTO NA TABELA

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

Palavras Chave:

RECEBIMENTO VIA FATURA - ERRO - DOCUMENTO REVISÃO DE FATURA

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

Objetos da nota:

REPS /PWS/MZYCI003F02

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

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

      /pws/zycie006-belnr_f_51 IS INITIAL.

    CLEAR v_lfsnr.

    MOVE /pws/zycie006-lfsnr TO v_lfsnr.

    IF v_lfsnr IS INITIAL.

      CONCATENATE /pws/zycie006-nrseq  '/' '01' INTO v_lfsnr.

* >> Início da exclusão: FORM EXECUTA_RECEBIMENTO

      WRITE  v_lfsnr TO /pws/zycie006-lfsnr RIGHT-JUSTIFIED.

* << Fim da exclusão

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

      MOVE  v_lfsnr TO /pws/zycie006-lfsnr.

* << Fim da inclusão

    ELSE.

      v_lfsnr_old = /pws/zycie006-lfsnr.

* >> Início da exclusão: FORM EXECUTA_RECEBIMENTO

      MOVE v_lfsnr+10(2) TO v_indice.

* << Fim da exclusão

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

      MOVE v_lfsnr+11(2) TO v_indice.

* << Fim da inclusão

      ADD 1 TO v_indice.

* >> Início da exclusão: FORM EXECUTA_RECEBIMENTO

      CONCATENATE v_lfsnr+0(10) v_indice INTO /pws/zycie006-lfsnr.

* << Fim da exclusão

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

      CONCATENATE v_lfsnr+0(11) v_indice INTO /pws/zycie006-lfsnr.

* << Fim da inclusão

    ENDIF.

    CLEAR v_erro.

    PERFORM lock_fornecedor CHANGING v_erro.

    IF NOT v_erro IS INITIAL.

      EXIT.

...