创建采购订单批到程序用的BAPI

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