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