Sintoma

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

Solução

Verificar se há duplicidade antes de fazer MIRO.

Informações Complementares

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

Nota Número 11495 Data: 29/09/2011 Hora: 09:35:26

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

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

Nota Número              : 11495

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00009

Agrupamento              : 00087

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

Referência às notas relacionadas:

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

05302  - 00001 - 7.0    - 00003  - FATURA MERCADORIA - RECEBIMENTO

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

ESTÁ PERMITINDO FAZER MIRO COM REFERÊNCIA DUPLICADA

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

Palavras Chave:

ERRO - MIRO - MENSAGEM - DUPLICIDADE - REFERÊNCIA

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

Objetos da nota:

REPS /PWS/MZYCI003F02

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

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

       IMPORTING

            v_xblnr   = v_xblnr.

  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                = /pws/zycie006-bukrs

            i_lifnr                = itab_zycie033-lifnr

            i_waers                = itab_zycie033-waers

            i_xblnr                = /PWS/ZYCIE006-NRFAT

            i_bldat                = itab_zycie033-bldat

            i_rmwwr                = itab_zycie033-rmwwr

            i_xrech                = 'X'

            i_blart                = wa_zycbt011-blart

       EXCEPTIONS

            invoice_already_exists = 1

            OTHERS                 = 2.

  IF sy-subrc <> 0.

  ENDIF.

* << Fim da inclusão

  e_subrc = '0' .

  PERFORM verifica_exit USING 'D'

                              '/PWS/SAPMZYCI003'

                              'FAT009'.

...

...

  READ TABLE itab_zyglt100 WITH KEY

                   zexit = 'FAT009' BINARY SEARCH.

  IF sy-subrc EQ 0.

    IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

      e_estorno = 'REC_MR1M' .

      PERFORM (itab_zyglt100-formulario) IN PROGRAM

          (itab_zyglt100-programa) IF FOUND.

    ENDIF.

  ENDIF.

  IF e_subrc EQ 0.

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

  CALL FUNCTION 'MRM_DUPLICATE_INVOICE_CHECK'

       EXPORTING

            i_bukrs                = /pws/zycie006-bukrs

            i_lifnr                = itab_zycie033-lifnr

            i_waers                = itab_zycie033-waers

            i_xblnr                = /PWS/ZYCIE006-NRFAT

            i_bldat                = itab_zycie033-bldat

            i_rmwwr                = itab_zycie033-rmwwr

            i_xrech                = 'X'

            i_blart                = wa_zycbt011-blart

       EXCEPTIONS

            invoice_already_exists = 1

            OTHERS                 = 2.

  IF sy-subrc <> 0.

  ENDIF.

* << Fim da inclusão

    PERFORM miro_dinamica.

    IF NOT  v_belnr_mr1m IS INITIAL.

      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

           EXPORTING

                wait = 'X'.

...