Duplicate Invoices while saving document through MIR7

Question

Hello,
I have to Post the invoice document through MIR7. This can be done through MIRO as well but the end user is using MIR7 for this purpose by parking and then posting the document.
Problem here is that once user has posted the invoice document, he is able to post the same document again by just changing the reference document number field in MIR7, which leads duplicate  invoices.
Here we need to control this by manually putting some conditions. I tried to find the exit and BADI but was able to get only one useful thing that is BADI "INVOICE_UPDATE".
I am not sure about this BADI but in case if this BADI can be used then I want to know how?
Also if not then what are the possible solutions to resolve the issue.
I am open for any further inputs.
Thanks,
Harjeet

Answer 1

Hello Pablo,
In the BADI I am using table TI_RSEG_NEW, there I am getting values same as listed below for MIR7 but instead I am getting the values of BELNR as well. Here the second column is BELNR which is blank for MIRO.
                                                                                1     110  |                |2011 |000001|0411000942|00010|00   |000000000009000029   |
    2     110  |                |2011 |000002|0411000942|00020|00   |000000000003000013   |
Code for the same is:
if sy-ucomm eq 'COMP'.
        select ebeln
               ebelp
               zekkn
               gjahr
               buzei
               bewtp
          from ekbe into table i_ekbe
          for all entries in ti_rseg_new
          where ebeln = ti_rseg_new-ebeln
            and ebelp = ti_rseg_new-ebelp
            and zekkn = ti_rseg_new-zekkn
            and gjahr = ti_rseg_new-gjahr
            and buzei = ti_rseg_new-buzei+2(4).
      endif.
      if sy-ucomm = 'BU'.
        select ebeln
               ebelp
               zekkn
               gjahr
               belnr
               buzei
               bewtp
          from ekbe into table i_ekbe_belnr
          for all entries in ti_rseg_new
          where ebeln = ti_rseg_new-ebeln
            and ebelp = ti_rseg_new-ebelp
            and zekkn = ti_rseg_new-zekkn
            and gjahr = ti_rseg_new-gjahr
            and belnr = ti_rseg_new-belnr
            and buzei = ti_rseg_new-buzei+2(4).
        if sy-subrc eq 0.
          select belnr
                 gjahr
                 vgart
            from rbkp into table i_rbkp
            for all entries in i_ekbe_belnr
            where belnr = i_ekbe_belnr-belnr
              and gjahr = i_ekbe_belnr-gjahr.
        endif.
      endif.
      loop at ti_rseg_new into wa_rseg_new.
        if sy-ucomm = 'COMP'.
          clear v_message.
          read table i_ekbe into wa_ekbe with key
                                         ebeln = wa_rseg_new-ebeln
                                         ebelp = wa_rseg_new-ebelp
                                         zekkn = wa_rseg_new-zekkn
                                         gjahr = wa_rseg_new-gjahr
                                         buzei = wa_rseg_new-buzei
                                         bewtp = 'T'.
          if sy-subrc eq 0.
            concatenate 'Purchasing Document Number' wa_ekbe-ebeln 'is already parked.' into v_message separated by space.
            message v_message type 'E'.
          else.
            clear v_message.
            read table i_ekbe into wa_ekbe with key
                                           ebeln = wa_rseg_new-ebeln
                                           ebelp = wa_rseg_new-ebelp
                                           zekkn = wa_rseg_new-zekkn
                                           gjahr = wa_rseg_new-gjahr
                                           buzei = wa_rseg_new-buzei
                                           bewtp = 'Q'.
            if sy-subrc eq 0.
              concatenate 'Purchasing Document Number' wa_ekbe-ebeln 'is already Posted.' into v_message separated by space.
              message v_message type 'E'.
            endif.
          endif.
        elseif sy-ucomm = 'BU'.
          clear v_message.
          read table i_ekbe_belnr into wa_ekbe_belnr with key
                                         ebeln = wa_rseg_new-ebeln
                                         ebelp = wa_rseg_new-ebelp
                                         zekkn = wa_rseg_new-zekkn
                                         gjahr = wa_rseg_new-gjahr
                                         belnr = wa_rseg_new-belnr
                                         buzei = wa_rseg_new-buzei
                                         bewtp = 'Q'.
          if sy-subrc eq 0.
**          READ TABLE s_rbkp_new WITH KEY belnr = wa_ekbe_belnr-belnr
**                                         gjahr = wa_ekbe_belnr-gjahr.
**          IF sy-subrc EQ 0.
            read table i_rbkp into wa_rbkp with key belnr = s_rbkp_new-belnr
                                                    gjahr = s_rbkp_new-gjahr
                                                    vgart = s_rbkp_new-vgart.
            if sy-subrc eq 0.
              concatenate 'Purchasing Document Number' wa_ekbe_belnr-ebeln 'is already posted.' into v_message separated by space.
              message v_message type 'E'.
            endif.
*          ENDIF.
          endif.
        endif.
      endloop.