CALL FUNCTION 'BAPI_PO_CREATE1'
EXPORTING
poheader = poheader
poheaderx = poheaderx
* POADDRVENDOR =
testrun = 'X'
* MEMORY_UNCOMPLETE =
* MEMORY_COMPLETE =
* POEXPIMPHEADER =
* POEXPIMPHEADERX =
* VERSIONS =
* NO_MESSAGING =
* NO_MESSAGE_REQ =
* NO_AUTHORITY =
no_price_from_po = 'X'
IMPORTING
exppurchaseorder = epo
* EXPHEADER =
* EXPPOEXPIMPHEADER =
TABLES
return = return
poitem = poitem[]
poitemx = poitemx[]
* POADDRDELIVERY =
poschedule = poschedule[]
poschedulex = poschedulex[]
poaccount = poaccount[]"CRQ000000016532
* POACCOUNTPROFITSEGMENT =
poaccountx = poaccountx[]
* POCONDHEADER =
* POCONDHEADERX =
pocond = pocond[]
pocondx = pocondx[].
* POLIMITS =
* POCONTRACTLIMITS =
* POSERVICES =
* POSRVACCESSVALUES =
* POSERVICESTEXT =
* EXTENSIONIN =
* EXTENSIONOUT =
* POEXPIMPITEM =
* POEXPIMPITEMX =
* POTEXTHEADER =
* POTEXTITEM =
* ALLVERSIONS =
* POPARTNER =
* POCOMPONENTS =
* POCOMPONENTSX =
* POSHIPPING =
* POSHIPPINGX =
* POSHIPPINGEXP = LOOP AT return INTO wa_return WHERE type EQ 'E' OR type EQ 'A'.
lw_flag = 'X'.
EXIT.
ENDLOOP. IF lw_flag <> 'X'.
CALL FUNCTION'BAPI_TRANSACTION_COMMIT'.
gt_so-status = icon_green_light.
gt_so-type = 'S'.
gt_so-data_ck = '模拟导入成功'. MODIFY gt_so[] FROM gt_so TRANSPORTING status type data_ck
WHERE sel = p_sel.
gs_succ-poheader = lw_poheader.
gs_succ-poheaderx = lw_poheaderx.
gs_succ-poitem[] = gt_poitem[].
gs_succ-poitemx[] = gt_poitemx[].
gs_succ-poschedule[] = gt_poschedule[].
gs_succ-poschedulex[] = gt_poschedulex[].
gs_succ-pocond[] = gt_pocond[].
gs_succ-pocondx[] = gt_pocondx[].
gs_succ-poaccount[] = gt_poaccount[]."CRQ000000016532
gs_succ-poaccountx[] = gt_poaccountx[].
gs_succ-sel = p_sel.
APPEND gs_succ TO gt_succ.
ELSE.
CALL FUNCTION'BAPI_TRANSACTION_ROLLBACK'.