用代码写出创建采购订单

好的，以下是一个简单的示例代码，用于在SAP系统中创建采购订单：

DATA: wa_header TYPE ekko,
      wa_item TYPE ekpo.
      
* 填写采购订单头部信息
wa_header-ebeln = 'PO12345'.
wa_header-bsart = 'NB'.
wa_header-lifnr = '10000001'.
wa_header-ernam = sy-uname.
wa_header-erdat = sy-datum.
wa_header-bstyp = 'F'.
wa_header-frgke = 'X'.
wa_header-waers = 'USD'.

* 填写采购订单行项信息
wa_item-ebelp = '00010'.
wa_item-matnr = 'MATERIAL123'.
wa_item-erfmg = 10.
wa_item-erfme = 'EA'.
wa_item-netpr = 100.00.
wa_item-werks = '1000'.
wa_item-knttp = 'K'.
wa_item-loekz = ' '.

* 创建采购订单
CALL FUNCTION 'ME_PO_CREATE_FROM_PR'
  EXPORTING
    i_header = wa_header
  TABLES
    t_item   = { wa_item }
  EXCEPTIONS
    no_authority = 1
    no_number_range = 2
    no_purchase_requisition = 3
    purchase_order_not_created = 4
    OTHERS = 5.

以上示例代码中，我们首先定义了采购订单的头部信息和行项信息，然后调用 `ME_PO_CREATE_FROM_PR` 函数来创建采购订单。在函数的参数中，我们传入了采购订单头部信息和行项信息，同时也可以处理可能出现的异常情况。请注意，这只是一个简单的示例，实际的采购订单创建可能涉及到更多的信息和细节，具体实现需要根据实际情况进行调整。