Demo: the test interface receives duplicate data and creates documents in a short time

   Group number ：775662808

Please provide City - modular - nickname , Such as ： Beijing -ABAP- Forest wood .

All groups are strictly managed , Strictly prohibit all foreign links 、 Recruitment 、 Advertising and other junk information !

If you find this dry article useful , Please help reprint 、 Share with more people , thank you ~

scene ：

Third party call SAP Interface , Create a document , If the other party for some reason in a very short time , Repeated data is used to call sap Interface , How to prevent duplicate document creation .

I talked about this problem in the group before , I threw the problem out , We just talk casually .

The scene is actually quite simple , Is also common , How to do that , It's nothing more than locking , Add logs or something .

I also did a simple test .

The scenario is to push data to sap, establish PO.

Created first log surface ：

Then built a lock

Then I wrote two functions , They are lock and log surface .

The first function

• 
  

Log in and copy

      
      

       
       FUNCTION*"----------------------------------------------------------------------*"*" Local interface ：*"*"     VALUE(IS_DATA) TYPE  ZLMT_PO_LOG OPTIONAL*"*"     VALUE(ES_DATA) TYPE  ZLMT_PO_LOG*"----------------------------------------------------------------------
       
       
DATA:LT_LOG TYPE TABLE OF ZLMT_PO_LOG.DATA:LS_LOG TYPE ZLMT_PO_LOG.
       
       
DATA:    LT_RETURN  LIKE TABLE OF BAPIRET2,    LT_POITEM  LIKE TABLE OF BAPIMEPOITEM,    LT_POITEMX LIKE TABLE OF BAPIMEPOITEMX,    LT_POCOND  LIKE TABLE OF BAPIMEPOCOND,    LT_POCONDX LIKE TABLE OF BAPIMEPOCONDX,    LS_POCOND  LIKE    BAPIMEPOCOND,    LS_POCONDX LIKE   BAPIMEPOCONDX.DATA:    LS_POHEADER  LIKE BAPIMEPOHEADER,    LS_POHEADERX LIKE BAPIMEPOHEADERX,    LS_RETURN    LIKE BAPIRET2,    LS_POITEM    LIKE BAPIMEPOITEM,    LS_POITEMX   LIKE BAPIMEPOITEMX.DATA:LV_PO_NUMBER LIKE  BAPIMEPOHEADER-PO_NUMBER.
       
       
*--------------------------------------------------------------------**  parameter assignment *--------------------------------------------------------------------*
       
       
IF    MOVE-CORRESPONDING IS_DATA TO LS_LOG.  ELSE.
       
       
FUNCTION '/SAPSLL/GUID_CREATE'      IMPORTING        EV_GUID_32 = LS_LOG-GUID.
       
       
'LM00001'  ." External document number     LS_LOG-BUKRS         = '1710'  ." Company code 'NB'  ." Order type （ purchase ）    LS_LOG-LIFNR         = 'USSU-VSF04'  ." Account number of supplier or creditor '1710'  ." Purchasing organization     LS_LOG-EKGRP         = '002'  ." Procurement section 'MZ-RM-R300-01'  ." Material number     LS_LOG-WERKS         = '1710'  ." factory '171C'  ." Place of stock     LS_LOG-KSCHA         = 'PMP0'  ." Condition type '1'  ." Conditional amount     LS_LOG-WAERS         = 'USD'  ." Currency code 
       
       
    LS_LOG-UNAME = SY-UNAME.    LS_LOG-DATUM = SY-DATUM.    LS_LOG-UZEIT = SY-UZEIT.
       
       
  ENDIF.
       
       
*--------------------------------------------------------------------**  chains *--------------------------------------------------------------------*
       
       
FUNCTION 'ENQUEUE_EZLMT_PO_LOG'    EXPORTING'X'      MANDT            = SY-MANDT      WEB_ORDER        = LS_LOG-WEB_ORDER'3'    EXCEPTIONS123.IF SY-SUBRC <> 0.'E'.' Locked '.
       
       
    INSERT ZLMT_PO_LOG FROM LS_LOG.    COMMIT WORK AND WAIT.
       
       
    ES_DATA = LS_LOG.    RETURN.  ENDIF.
       
       
*--------------------------------------------------------------------**  Check this... In the library table  web order Have you successfully created  po*--------------------------------------------------------------------*DATA(LS_TMP)    WHERE  WEB_ORDER = @LS_LOG-WEB_ORDER.
       
       
IF SY-SUBRC = 0.'E'.' Recreate '.    INSERT ZLMT_PO_LOG FROM LS_LOG.    COMMIT WORK AND WAIT.
       
       
    ES_DATA = LS_LOG.    RETURN.  ENDIF.*--------------------------------------------------------------------**  assignment  call bapi*--------------------------------------------------------------------*  CLEAR LS_POHEADER.  CLEAR LS_POHEADERX.  LS_POHEADER-COMP_CODE      = LS_LOG-BUKRS.  LS_POHEADER-CURRENCY       = LS_LOG-WAERS.  LS_POHEADER-DOC_DATE       = SY-DATUM.  LS_POHEADER-DOC_TYPE       = LS_LOG-BSART.  LS_POHEADER-VENDOR         = LS_LOG-LIFNR.  LS_POHEADER-PURCH_ORG      = LS_LOG-EKORG.  LS_POHEADER-PUR_GROUP      = LS_LOG-EKGRP.'X'.'X'.'X'.'X'.'X'.'X'.'X'.  CLEAR: LS_POITEM,LS_POITEMX.  CLEAR: LT_POITEM[],LT_POITEMX[].
       
       
'10'.                   " The item number of the purchase certificate   LS_POITEM-MATERIAL        = LS_LOG-MATNR.          " Commodity code 1."           " Purchase order quantity 'EA' .                   " Unit of measurement of the purchase order   LS_POITEM-PLANT           = LS_LOG-WERKS.          " factory " Place of stock 
       
       
  APPEND LS_POITEM TO LT_POITEM.
       
       

       
       
  LS_POITEMX-PO_ITEM         =  '10'.          " The item number of the purchase certificate 'X'.            " Commodity code   LS_POITEMX-QUANTITY        = 'X'.            " Purchase order quantity 'X' .           " Unit of measurement of the purchase order   LS_POITEMX-PLANT           = 'X'.            " factory 'X'.            " Place of stock 
       
       

       
       
  APPEND LS_POITEMX TO LT_POITEMX.
       
       
  CLEAR LT_POCOND[].  CLEAR LT_POCONDX[].  CLEAR LS_POCOND.
       
       
  LS_POCOND-ITM_NUMBER = '10'.  LS_POCOND-COND_TYPE  = LS_LOG-KSCHA.  " Pricing terms   LS_POCOND-COND_VALUE = LS_LOG-AMOUNT." currency   LS_POCOND-CHANGE_ID   = 'I'.  " Modification type  I U  D
       
       
  APPEND LS_POCOND TO LT_POCOND.
       
       
  CLEAR LS_POCONDX.
       
       
'10'." Pricing terms   LS_POCONDX-COND_VALUE = 'X'.  " Price 'X'.  " Modification type 
       
       

       
       
  IF LS_POCOND-CURRENCY IS NOT INITIAL.    LS_POCONDX-CURRENCY   = 'X'.  " currency   ENDIF.
       
       
  APPEND LS_POCONDX TO LT_POCONDX.
       
       
*& call bapi
       
       
FUNCTION 'BAPI_PO_CREATE1'    EXPORTING      POHEADER         = LS_POHEADER      POHEADERX        = LS_POHEADERX    IMPORTING      EXPPURCHASEORDER = LV_PO_NUMBER    TABLESRETURN      POITEM           = LT_POITEM      POITEMX          = LT_POITEMX      POCOND           = LT_POCOND      POCONDX          = LT_POCONDX.
       
       

       
       
*--------------------------------------------------------------------**  save log*--------------------------------------------------------------------*  LS_LOG-EBELN = LV_PO_NUMBER.'S'.' Create success '.
       
       
  LS_LOG-UNAME = SY-UNAME.  LS_LOG-DATUM = SY-DATUM.  LS_LOG-UZEIT = SY-UZEIT.
       
       
  ES_DATA = LS_LOG.
       
       
  INSERT ZLMT_PO_LOG FROM LS_LOG.
       
       
FUNCTION 'BAPI_TRANSACTION_COMMIT'    EXPORTING'X'.
       
       
*--------------------------------------------------------------------**  Unlock *--------------------------------------------------------------------*FUNCTION 'DEQUEUE_EZLMT_PO_LOG'    EXPORTING*     MODE_ZLMT_PO_LOG       = 'X'      MANDT     = SY-MANDT      WEB_ORDER = LS_LOG-WEB_ORDER*     X_WEB_ORDER = ''*     _SCOPE    = '3'*     _SYNCHRON = ' '*     _COLLECT  = ' '    .ENDFUNCTION.
      
      
      
      

       
       
1.
       
       
2.
       
       
3.
       
       
4.
       
       
5.
       
       
6.
       
       
7.
       
       
8.
       
       
9.
       
       
10.
       
       
11.
       
       
12.
       
       
13.
       
       
14.
       
       
15.
       
       
16.
       
       
17.
       
       
18.
       
       
19.
       
       
20.
       
       
21.
       
       
22.
       
       
23.
       
       
24.
       
       
25.
       
       
26.
       
       
27.
       
       
28.
       
       
29.
       
       
30.
       
       
31.
       
       
32.
       
       
33.
       
       
34.
       
       
35.
       
       
36.
       
       
37.
       
       
38.
       
       
39.
      
      

Just testing the code .

The second function , Just no lock , Take care of yourself Lock Unlock Just comment it out ,

（LS_LOG-WEB_ORDER         = 'LM00002'）.

Execution results ：

The first function has no duplicate data .

There is a problem with the second function ：

That's probably what it means .

Just a simple test , If there is anything wrong, you are welcome to criticize and correct . thank you ！~