Sintoma

Recebimento está permitindo fazer MIRO com referência duplicada. Pelo SAP exibe mensagem de erro.

Solução

Novo tratamento de verificação de duplicidade de documento antes de fazer MIRO.

Informações Complementares

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

Nota Número 12996 Data: 21/05/2013 Hora: 13:25:02

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

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

Nota Número              : 12996

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 9.0

Pacote                   : 00004

Agrupamento              : 00155

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

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

ESTÁ PERMITINDO FAZER MIRO COM REFERÊNCIA DUPLICADA

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

Palavras Chave:

ERRO - MIRO - MENSAGEM - DUPLICIDADE - REFERÊNCIA

XBLNR - RECEBIMENTO

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

Objetos da nota:

REPS /PWS/MZYCI017F01

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

Modificações efetuadas em REPS /PWS/MZYCI017F01

...

  IF NOT v_xblnr IS INITIAL.

    wa_headerdata-ref_doc_no = v_xblnr.

  ELSE.

    wa_headerdata-ref_doc_no = itab_zycie033-bktxt.

  ENDIF.

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

  CALL FUNCTION 'MRM_DUPLICATE_INVOICE_CHECK'

       EXPORTING

            i_bukrs                = wa_headerdata-comp_code

            i_lifnr                = itab_zycie033-lifnr

            i_waers                = wa_headerdata-currency

            i_xblnr                = wa_headerdata-ref_doc_no

            i_bldat                = wa_headerdata-doc_date

            i_rmwwr                = itab_zycie033-rmwwr

            i_xrech                = 'X'

            i_blart                = wa_headerdata-doc_type

       EXCEPTIONS

            invoice_already_exists = 1

            OTHERS                 = 2.

  IF sy-subrc <> 0.

  ENDIF.

* << Fim da inclusão

  PERFORM verifica_exit USING 'D'

                            '/PWS/SAPMZYCI017'

                            'RCB006'.

  e_subrc = 0.

  CLEAR itab_zyglt100 .

  READ TABLE itab_zyglt100 WITH KEY zexit = 'RCB006'  BINARY SEARCH.

  IF sy-subrc EQ 0.

    IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

      PERFORM (itab_zyglt100-formulario) IN PROGRAM

          (itab_zyglt100-programa)

...