在创建DN的时候,要检查SO是否完整,以下代码只涉及创建DN的必要信息,仅供参考。
*---------------------------------------------------------------------*
* FORM FM_CREATDN *
*---------------------------------------------------------------------*
FORM fm_createdn.
DATA: BEGIN OF request OCCURS 10.
INCLUDE STRUCTURE bapideliciousrequest.
DATA: END OF request.
DATA: BEGIN OF return_dn OCCURS 10.
INCLUDE STRUCTURE bapiret2.
DATA: END OF return_dn.
DATA: BEGIN OF createditems OCCURS 10.
INCLUDE STRUCTURE bapideliciouscreateditems.
DATA: END OF createditems.
DATA: BEGIN OF itab_so OCCURS 0,
matnr LIKE vbap-matnr,
posnr LIKE vbap-posnr,
kwmeng LIKE vbap-kwmeng,
lgort LIKE vbap-lgort,
END OF itab_so.
CLEAR: g_msg,g_dn.
**check so status
SELECT SINGLE vbeln INTO t_vbeln
FROM vbuv WHERE vbeln = itab1-sso.
IF sy-subrc = 0.
CO