Sintoma

Quando existe a necessidade de estorno do recebimento na fatura de mercadoria, o programa está dando

erro.

Solução

Ao fazer o estorno do documento atualizar a tabela de fatura.

Informações Complementares

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

Nota Número 02005 Data: 29/08/2006 Hora: 16:40:04

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

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

Nota Número              : 02005

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00129

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ERRO NO ESTORNO DE RECEBIMENTO NA FATURA DE SERVIÇO.

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

Palavras Chave:

ESTORNO - RECEBIMENTO - FATURA DE SERVIÇO - DOCUMENTOS CONTÁBEIS

ATUALIZAÇÃO DE DOCUMENTO - MIGO - MIRO

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

Objetos da nota:

REPS /PWS/MZYCI003F02

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

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

      PERFORM fill_date_f_51_docs_miro.

      MESSAGE i030 WITH v_belnr_ant.

      CLEAR: /pws/zycie006-statusp_mr1m, /pws/zycie006-belnr_mr1m,

             /pws/zycie006-dt_mr1m.

      PERFORM clear_date_batch.

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

      MODIFY /pws/zycit006 FROM /pws/zycie006.

* << Fim da inclusão

      v_mr8m_ok = 'S'.

      CLEAR v_mr1m_ok.

    ELSE.

      LOOP AT itab_zycit032.

        MESSAGE i015 WITH itab_zycit032-msg+0(50)

...

...

      PERFORM popup_message USING text-026 text-025.

      IF v_answer = 'J'.

        CLEAR: /pws/zycie006-statusp_f_51,

               /pws/zycie006-belnr_f_51  ,

               /pws/zycie006-dt_f_51     .

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

        MODIFY /pws/zycit006 FROM /pws/zycie006.

* << Fim da inclusão

        v_fb08_ok = 'S'.

      ENDIF.

    ENDIF.

  ELSE.

    LOOP AT itab_zycbt034.

...

...

      MESSAGE i030 WITH v_belnr_ant.

      PERFORM historico_recebimento USING /pws/zycie006-belnr_mr1m

                                          'MIRO'.

      CLEAR: /pws/zycie006-statusp_mr1m, /pws/zycie006-belnr_mr1m,

             /pws/zycie006-dt_mr1m.

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

      MODIFY /pws/zycit006 FROM /pws/zycie006.

* << Fim da inclusão

      v_mr8m_ok = 'S'.

      CLEAR v_mr1m_ok.

    ELSE.

      LOOP AT itab_zycit032.

        MESSAGE i015 WITH itab_zycit032-msg+0(50)

...

...

      IF v_answer = 'J'.

        PERFORM historico_recebimento USING /pws/zycie006-belnr_mr1m

                                            'MIRO'.

        CLEAR: /pws/zycie006-statusp_mr1m, /pws/zycie006-belnr_mr1m,

               /pws/zycie006-dt_mr1m.

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

        MODIFY /pws/zycit006 FROM /pws/zycie006.

* << Fim da inclusão

        v_mr8m_ok = 'S'.

      ENDIF.

    ENDIF.

  ENDIF.

ENDFORM.

...