删除订单BOM的链接的文档(linked document)[BAPI_DOCUMENT_SAVEOBJECTLINKS]详解编程语言

REPORT ztest_del_link. 
DATA:g_guidx         TYPE stpo-guidx, 
     g_objectkey     TYPE bapi_doc_drad-objectkey, 
     git_list        TYPE STANDARD TABLE OF bapi_doc_keys, 
     gwa_list        TYPE bapi_doc_keys, 
     git_objectlinks TYPE TABLE OF bapi_doc_drad, 
     gwa_objectlinks TYPE bapi_doc_drad, 
     gwa_return      TYPE bapiret2. 
* 测试，所以只取了1条，实际会有多条的情况 
SELECT SINGLE stpo~guidx 
  INTO g_guidx 
  FROM stpo 
 INNER JOIN kdst ON stpo~stlnr = kdst~stlnr 
 WHERE stpo~stlty = 'K' 
   AND stpo~idnrk = 'B1-10'      "Material Number 
   AND kdst~vbeln = '0690000318' "Sales Order Number 
   AND kdst~vbpos = '200'        "Sales order Item 
   AND kdst~werks = '8800'       "Plant 
       . 
g_objectkey = g_guidx. 
refresh:git_list. 
CALL FUNCTION 'BAPI_DOCUMENT_GETOBJECTDOCS' 
  EXPORTING 
    objecttype   = 'STPO_DOC'  "order bom 头用STKO_DOC 
    objectkey    = g_objectkey 
*   CURRENTVERSIONSONLY       = 
    date         = sy-datum 
*  IMPORTING 
*   RETURN       = 
  TABLES 
    documentlist = git_list[]. 
 
LOOP AT git_list INTO gwa_list. 
  CLEAR   gwa_objectlinks. 
  REFRESH:git_objectlinks. 
  gwa_objectlinks-deletevalue = 'X'. 
  gwa_objectlinks-objecttype  = 'STPO_DOC'. "Order BOM头用STKO_DOC 
  gwa_objectlinks-objectkey   = g_guidx. 
  APPEND gwa_objectlinks TO git_objectlinks. 
  CALL FUNCTION 'BAPI_DOCUMENT_SAVEOBJECTLINKS' 
    EXPORTING 
      documenttype    = gwa_list-documenttype 
      documentnumber  = gwa_list-documentnumber 
      documentpart    = gwa_list-documentpart 
      documentversion = gwa_list-documentversion 
    IMPORTING 
      return          = gwa_return 
    TABLES 
      objectlinks     = git_objectlinks. 
 
* Commit or Rollback 
  IF gwa_return-type NA 'AE'. 
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' 
      EXPORTING 
        wait = 'X'. 
  ELSE. 
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. 
  ENDIF. 
 
ENDLOOP.