删除订单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.