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'.