sap 采购订单 bapi (创建外协采购订单-组件为手工输入)

Dear 丶 2022-04-17 04:41 1945阅读 0赞

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70][]

其实则不然，只要把U改成 'E' 即可

![20181113105056744.png][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 1][]

另外：采购价格问题。

如果采购订单凭证日期决定的信息记录有效就会取信息记录，不会取EXCEL .

处理方法：１　保证取不到信息记录。　２　或者　修改后台配置（取价策略）不让取信息记录。

导入模板

![20181113105605487.png][]

![20181113105725508.png][]

![20181113105804308.png][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 2][]

**1** **更改物料主数据MOQ MPQ**

**2** **修改程序的凭证日期**

**2.1** **短文本为空，取主数据里面的描述**

**   2.2** **同一个订单的供应商，日期** **、采购组织、采购组、工厂都要一样。否则会分单。**

**3** **修改取价配置PB00**

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 3][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 4][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 5][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 6][]

**4** **停用增强**

**5** **号码范围更改**

** **

**6** **测试运行**

**7** **测试2****条**

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 7][]

注意条件一样的切换单

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 8][]

![20181205114459631.png][]

导入完成后

1 改号码

2 改PB00

3 改 增强

![20181205114349591.png][]

\*&---------------------------------------------------------------------\* 
\*& Report ZMMR005 
\*&---------------------------------------------------------------------\* 
\*& 
\*&---------------------------------------------------------------------\* 
REPORT zmmr008. 
 
\*&---------------------------------------------------------------------\* 
\*& 声明类型池 
\*&---------------------------------------------------------------------\* 
TYPE-POOLS:sils. 
\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\* 
\*            <第一部分---声明程序的参数和变量>  Declaration            \* 
\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\* 
\*----------------------------------------------------------------------\* 
\* <声明表工作区> Table\_Work\_Areas Declaration                      \* 
\*----------------------------------------------------------------------\* 
 
\*----------------------------------------------------------------------\* 
\* <声明用户自定义数据类型> Local Data Types in Program             \* 
\*----------------------------------------------------------------------\* 
TYPES: BEGIN OF typ\_main, 
         ebeln        LIKE ekpo-ebeln, "采购订单号 
         bsart        TYPE ekko-bsart,    "采购凭证类型 
         lifnr        TYPE ekko-lifnr,    "供应商帐户号 
         ekorg        TYPE ekko-ekorg,  "采购组织 
         ekgrp        TYPE ekko-ekgrp,    "采购组 
         bukrs        TYPE ekko-bukrs,    "公司代码 
         unsez        TYPE ekko-unsez,     "我们的参考， U9采购订单日期 
         ihrez        TYPE ekpo-ext\_rfx\_number, "你的参考，U9采购订单号 
         ext\_rfx\_item TYPE ekpo-ext\_rfx\_item, "U9采购订单行项目 
         bstyp        TYPE ekpo-bstyp,    "科目分配类别 
         epstp        TYPE string,        "项目类别 
         matnr        TYPE ekpo-matnr,    "物料号 
         txz01        TYPE ekpo-txz01,    "文本 
         menge        TYPE string,    "数量 
         meins        TYPE ekpo-meins,    "订单单位 
         eeind        TYPE string,        "交货日期 
         matkl        TYPE ekpo-matkl,    "物料组 
         mwskz        TYPE ekpo-mwskz,    "税码 
         lnetpr       TYPE string,        "净价 
         peinh        TYPE ekpo-peinh,    "价格单位 
         werks        TYPE ekpo-werks,    "工厂 
         lgort        TYPE ekpo-lgort,    "库存地点 
 
\*         ps\_psp\_pnr       TYPE prps-posid,    "WBS元素 
 
         aufnr        TYPE ekkn-aufnr,    "订单号 
\*add 
         kostl        TYPE kostl, "成本中心 
         anln1        TYPE string, "资产 
         afnam        LIKE ekpo-afnam, "申请者 
         umson        TYPE umson, "免费标识 
         retpo        TYPE retpo, "退货标识 
         ww\_matnr     TYPE string, 
         ww\_menge     TYPE string, "ekpo-menge,    "数量 
         hxmwb        TYPE string, "行项目文本 
\*end add 
\*         konnr            TYPE ekpo-konnr,    "合同号 
\*         ktpnr            TYPE ekpo-ktpnr,    "行项目 
         banfn        TYPE ekpo-banfn,    "采购申请 
         bnfpo        TYPE ekpo-bnfpo,    " 采购申请行项目 
\*        geber TYPE ekpo-geber,  "U9 SRM 合同号 
\*        fistl TYPE ekpo-fistl,  "U9 SRM 合同行项目 
 
\*         srm\_contract\_id  TYPE ekpo-srm\_contract\_id,  "U9 SRM 合同号 
\*         srm\_contract\_itm TYPE ekpo-srm\_contract\_itm,  "U9 SRM 合同行项目 
 
\*         ekorg        TYPE ekko-ekorg,    "采购组织 
\*        EBELP TYPE EKPO-EBELP,    "采购凭证的项目编号 
         aedat        TYPE ekko-aedat,    "凭证日期 
         ebelp        TYPE ekpo-ebelp,    "行项目 
         veten        TYPE ekkn-veten,    "交货计划行号 
         netpr        TYPE ekpo-netpr, 
 
 
         icon         TYPE icon\_d,    "红绿灯 
         select       TYPE c,       "选择列 
         message      TYPE string, "消息 
         gxx          TYPE string,        "创建订单标识 
       END OF typ\_main. 
 
 
\*----------------------------------------------------------------------\* 
\* <声明全局变量> Global Variants Declaration                       \* 
\*----------------------------------------------------------------------\* 
DATA: gw\_main TYPE typ\_main, 
      gt\_main TYPE STANDARD TABLE OF typ\_main INITIAL SIZE 0 WITH HEADER LINE. 
 
DATA: gw\_out TYPE typ\_main, 
      gt\_out TYPE STANDARD TABLE OF typ\_main INITIAL SIZE 0 WITH HEADER LINE. 
 
 
 
 
 
DATA:poheader      LIKE TABLE OF bapimepoheader   WITH HEADER LINE, 
     poheaderx     LIKE TABLE OF bapimepoheaderx  WITH HEADER LINE, 
     return        LIKE TABLE OF bapiret2         WITH HEADER LINE, 
     poitem        LIKE TABLE OF bapimepoitem     WITH HEADER LINE, 
     poitemx       LIKE TABLE OF bapimepoitemx    WITH HEADER LINE, 
     poschedule    LIKE TABLE OF bapimeposchedule WITH HEADER LINE, 
     poschedulex   LIKE TABLE OF bapimeposchedulx WITH HEADER LINE, 
     poaccount     LIKE TABLE OF bapimepoaccount  WITH HEADER LINE, 
     poaccountx    LIKE TABLE OF bapimepoaccountx WITH HEADER LINE, 
     pocond        LIKE TABLE OF bapimepocond     WITH HEADER LINE, 
     pocondx       LIKE TABLE OF bapimepocondx    WITH HEADER LINE, 
     potextitem    LIKE TABLE OF bapimepotext     WITH HEADER LINE, 
     pocondheader  LIKE TABLE OF bapimepocondheader WITH HEADER LINE, 
     pocondheaderx LIKE TABLE OF bapimepocondheaderx WITH HEADER LINE. 
\*     potextitem    LIKE TABLE OF bapimepotext WITH HEADER LINE. 
 
DATA: pocomponent LIKE TABLE OF bapimepocomponent WITH HEADER LINE. 
DATA: pocomponentx LIKE TABLE OF bapimepocomponentx WITH HEADER LINE. 
 
DATA: epo LIKE bapimepoheader-po\_number. 
DATA: l\_return LIKE return. 
DATA: lv\_message(255). 
DATA: pp\_file TYPE string. 
DATA: lifnr TYPE elifn. 
DATA: netpr TYPE bapimepoitem-net\_price. 
DATA: l\_gxx TYPE string. 
\*----------------------------------------------------------------------\* 
\* <声明选择屏幕> Selection Screen                                  \* 
\*----------------------------------------------------------------------\* 
 
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001 . 
PARAMETERS:p\_down RADIOBUTTON GROUP p1 DEFAULT 'X' USER-COMMAND fcode, 
           p\_up   RADIOBUTTON GROUP p1. 
PARAMETERS: p\_box AS CHECKBOX DEFAULT 'X' . 
SELECTION-SCREEN END  OF BLOCK b1. 
 
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT-002. 
PARAMETERS:p\_file  LIKE rlgrap-filename. 
SELECTION-SCREEN END  OF BLOCK b2. 
 
\*----------------------------------------------------------------------\* 
\* 选择屏幕PBI处理        \* 
\*----------------------------------------------------------------------\* 
AT SELECTION-SCREEN OUTPUT. 
  IF p\_down = 'X'. 
    LOOP AT SCREEN. 
      IF screen-name = '%B002004\_BLOCK\_1000' 
        OR screen-name = 'P\_FILE' 
        OR screen-name = '%\_P\_FILE\_%\_APP\_%-TEXT'. 
        screen-active = 0. 
      ENDIF. 
      MODIFY SCREEN. 
    ENDLOOP. 
  ENDIF. 
 
\*----------------------------------------------------------------------\* 
\* <为屏幕字段添加搜索帮助> AT SELECTION-SCREEN ON VALUE-REQUEST          \* 
\*----------------------------------------------------------------------\* 
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p\_file. 
  PERFORM frm\_select\_file. 
 
\*----------------------------------------------------------------------\* 
\* 在选择屏幕被处理后触发的事件,程序默认的开始事件>                \* 
\* Event Occurs After The Selection Screen Has Been Processed           \* 
\*----------------------------------------------------------------------\* 
START-OF-SELECTION. 
  IF p\_down = 'X'. 
    CALL FUNCTION 'SAPGUI\_PROGRESS\_INDICATOR' 
      EXPORTING 
        text = '正在下载模板，请稍等...'. 
 
    PERFORM frm\_down\_excel. 
 
  ELSE. 
    IF p\_file IS INITIAL . 
      MESSAGE '请选择需要导入的文件'  TYPE 'S' DISPLAY LIKE 'E'. 
      EXIT. 
    ELSE. 
      CALL FUNCTION 'SAPGUI\_PROGRESS\_INDICATOR' 
        EXPORTING 
          text = '正在读取数据，请稍等...'. 
 
      "lxf 
      PERFORM frm\_get\_data .   "读取EXCEL 表 
 
      IF gt\_main\[\] IS NOT INITIAL . 
        PERFORM frm\_check\_data. 
 
        CLEAR:gw\_out,gt\_out,gt\_out\[\]. 
        PERFORM alv\_disp\_data. 
 
      ELSE. 
        MESSAGE '无数据被导入，请检查模板' TYPE 'S' DISPLAY LIKE 'E'. 
        EXIT. 
 
      ENDIF. 
 
    ENDIF. 
  ENDIF. 
 
 
\*&---------------------------------------------------------------------\* 
\*&      Form  FRM\_SELECT\_FILE 
\*&---------------------------------------------------------------------\* 
\*       选取文件 
\*----------------------------------------------------------------------\* 
\*  -->  p1        text 
\*  <--  p2        text 
\*----------------------------------------------------------------------\* 
FORM frm\_select\_file . 
  DATA : l\_filetab TYPE filetable, 
         l\_waftab  LIKE LINE OF l\_filetab, 
         l\_rc      TYPE i. 
  CALL METHOD cl\_gui\_frontend\_services=>file\_open\_dialog 
    EXPORTING 
      window\_title            = '打开文件' 
      initial\_directory       = 'C:/' 
    CHANGING 
      file\_table              = l\_filetab 
      rc                      = l\_rc 
    EXCEPTIONS 
      file\_open\_dialog\_failed = 1 
      cntl\_error              = 2 
      error\_no\_gui            = 3 
      not\_supported\_by\_gui    = 4 
      OTHERS                  = 5. 
  IF sy-subrc <> 0. 
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno 
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. 
    EXIT. 
  ELSE. 
    READ TABLE l\_filetab INTO l\_waftab INDEX 1. 
    p\_file = l\_waftab-filename. 
    CLEAR: l\_filetab, 
    l\_waftab. 
  ENDIF. 
ENDFORM.                    " FRM\_SELECT\_FILE 
\*&---------------------------------------------------------------------\* 
\*&      Form  FRM\_DOWN\_EXCEL 
\*&---------------------------------------------------------------------\* 
\*      下载导入的EXCEL模板 
\*----------------------------------------------------------------------\* 
\*  -->  p1        text 
\*  <--  p2        text 
\*----------------------------------------------------------------------\* 
FORM frm\_down\_excel . 
 
  DATA: lo\_objdata     LIKE wwwdatatab, 
        lo\_mime        LIKE w3mime, 
        lc\_filename    TYPE string VALUE'采购订单导入模版', 
        lc\_fullpath    TYPE string  VALUE'c:/SapReport/', 
        lc\_path        TYPE  string VALUE'c:/SapReport/', 
        ls\_destination LIKE rlgrap-filename, 
        ls\_objnam      TYPE string, 
        li\_rc          LIKE sy-subrc, 
        ls\_errtxt      TYPE string. 
  DATA:p\_objid TYPE wwwdatatab-objid, 
       p\_dest  LIKE sapb-sappfad. 
  p\_objid = 'ZMMR008'. 
  CALL METHOD cl\_gui\_frontend\_services=>file\_save\_dialog 
    EXPORTING 
      default\_extension    = 'XLS' 
      default\_file\_name    = lc\_filename 
    CHANGING 
      filename             = lc\_filename 
      path                 = lc\_path 
      fullpath             = lc\_fullpath 
    EXCEPTIONS 
      cntl\_error           = 1 
      error\_no\_gui         = 2 
      not\_supported\_by\_gui = 3 
      OTHERS               = 4. 
  IF lc\_fullpath = ''. 
    MESSAGE  '不能打开excel' TYPE 'E'. 
  ENDIF. 
  IF sy-subrc = 0. 
    p\_dest = lc\_fullpath. 
    ls\_objnam = lc\_filename. 
    CONDENSE ls\_objnam NO-GAPS. 
    SELECT SINGLE relid objid FROM wwwdata INTO CORRESPONDING FIELDS OF lo\_objdata 
           WHERE srtf2 = 0 AND relid = 'MI' AND objid = p\_objid. 
    IF sy-subrc NE 0 OR lo\_objdata-objid EQ space. 
      CONCATENATE '模板文件' ls\_objnam '不存在' INTO ls\_errtxt. 
      MESSAGE ls\_errtxt TYPE 'I'. 
    ENDIF. 
    ls\_destination = p\_dest. 
    CALL FUNCTION 'DOWNLOAD\_WEB\_OBJECT' 
      EXPORTING 
        key         = lo\_objdata 
        destination = ls\_destination 
      IMPORTING 
        rc          = li\_rc. 
    IF li\_rc NE 0. 
      CONCATENATE '模板文件：' ls\_objnam '下载失败' INTO ls\_errtxt. 
      MESSAGE ls\_errtxt TYPE 'E'. 
    ELSE. 
      CLEAR ls\_errtxt. 
      CONCATENATE '模板文件：' ls\_objnam '下载成功' INTO ls\_errtxt. 
      MESSAGE ls\_errtxt TYPE 'S'. 
    ENDIF. 
  ENDIF. 
 
ENDFORM.                    " FRM\_DOWN\_EXCEL 
 
\*&---------------------------------------------------------------------\* 
\*&      Form  FRM\_GET\_DATA 
\*&---------------------------------------------------------------------\* 
\*       读取EXCEL数据 
\*----------------------------------------------------------------------\* 
\*  -->  p1        text 
\*  <--  p2        text 
\*----------------------------------------------------------------------\* 
FORM frm\_get\_data . 
  FIELD-SYMBOLS: <f1> TYPE any . 
  DATA lt\_excel TYPE TABLE OF zalsmex\_tabline WITH HEADER LINE. 
  DATA l\_index LIKE sy-tabix. 
 
  CALL FUNCTION 'ZALSM\_EXCEL\_TO\_INTERNAL\_TABLE' 
    EXPORTING 
      filename                = p\_file 
      i\_begin\_col             = 1 
      i\_begin\_row             = 3 
      i\_end\_col               = 32 
      i\_end\_row               = 9999 
    TABLES 
      intern                  = lt\_excel 
    EXCEPTIONS 
      inconsistent\_parameters = 1 
      upload\_ole              = 2 
      OTHERS                  = 3. 
 
  LOOP AT lt\_excel. 
    l\_index = lt\_excel-col . "设定列号 
    ASSIGN COMPONENT l\_index OF STRUCTURE gt\_main TO <f1> ."将指针指向指定列 
    TRANSLATE lt\_excel-value TO UPPER CASE. 
\*    IF L\_INDEX = 1 . 
\*      CALL FUNCTION 'CONVERSION\_EXIT\_MATN1\_INPUT' 
\*        EXPORTING 
\*          INPUT  = LT\_EXCEL-VALUE 
\*        IMPORTING 
\*          OUTPUT = <F1>. 
\*    ELSE. 
    <f1> = lt\_excel-value . 
\*    ENDIF. 
    AT END OF row . 
      APPEND gt\_main. 
      CLEAR  gt\_main. 
    ENDAT . 
  ENDLOOP. 
\*  DELETE GT\_MAIN WHERE MATNR IS INITIAL . 
ENDFORM.                    " FRM\_GET\_DATA 
 
\*&---------------------------------------------------------------------\* 
\*&      Form  FRM\_CHECK\_DATA 
\*&---------------------------------------------------------------------\* 
\*       text 
\*----------------------------------------------------------------------\* 
FORM frm\_check\_data . 
  DATA: l\_bsart TYPE typ\_main-bsart, 
        l\_lifnr TYPE typ\_main-lifnr, 
        l\_ekgrp TYPE typ\_main-ekgrp, 
        l\_bukrs TYPE typ\_main-bukrs. 
  DATA: ladd  TYPE i VALUE 10, 
        ladd2 TYPE i VALUE 1. 
  DATA: lt\_main LIKE STANDARD TABLE OF gt\_main, 
        ls\_main LIKE LINE OF gt\_main. 
 
  SORT gt\_main BY ebeln bsart lifnr  ekorg ekgrp bukrs ihrez ext\_rfx\_item . 
  LOOP AT gt\_main INTO gw\_main. 
    IF gw\_main-ebeln IS NOT INITIAL. 
      SELECT COUNT(\*) 
        FROM ekko 
        WHERE ebeln = gw\_main-ebeln. 
      IF sy-subrc EQ 0. 
        gw\_main-message = '订单号已经存在!'. 
        MODIFY gt\_main FROM gw\_main TRANSPORTING message. 
        CONTINUE. 
      ENDIF. 
    ENDIF. 
\*    IF gw\_main-konnr IS NOT INITIAL . 
\*      SELECT SINGLE  a~lifnr  a~ekgrp a~bukrs b~werks b~matnr  b~meins  b~matkl b~mwskz b~netpr b~peinh 
\*        FROM ekko AS a INNER JOIN ekpo AS b ON a~ebeln = b~ebeln 
\*        INTO CORRESPONDING FIELDS OF ls\_main 
\*        WHERE b~ebeln = gw\_main-konnr AND b~ebelp = gw\_main-ktpnr. 
\*      SELECT SINGLE ktmng FROM ekpo INTO ls\_main-menge WHERE ebeln = gw\_main-konnr AND ebelp = gw\_main-ktpnr. 
\*    ENDIF. 
    IF gw\_main-bsart IS INITIAL. 
      gw\_main-bsart = 'NB'. 
    ENDIF. 
    IF gw\_main-lifnr IS INITIAL. 
      gw\_main-lifnr = ls\_main-lifnr. 
    ENDIF. 
    IF gw\_main-ekgrp IS INITIAL. 
      gw\_main-ekgrp = ls\_main-ekgrp. 
    ENDIF. 
    IF gw\_main-bukrs IS INITIAL. 
      gw\_main-bukrs = 1000. 
    ENDIF. 
    IF gw\_main-matnr IS INITIAL. 
      gw\_main-matnr = ls\_main-matnr. 
    ENDIF. 
    IF gw\_main-menge IS INITIAL. 
      gw\_main-menge = ls\_main-menge. 
    ENDIF. 
    IF gw\_main-meins IS INITIAL. 
      CALL FUNCTION 'CONVERSION\_EXIT\_CUNIT\_OUTPUT' 
        EXPORTING 
          input  = ls\_main-meins 
        IMPORTING 
          output = gw\_main-meins. 
    ENDIF. 
    IF gw\_main-matkl IS INITIAL. 
      gw\_main-matkl = ls\_main-matkl. 
    ENDIF. 
    IF gw\_main-mwskz IS INITIAL.  "税码 
      IF ls\_main-mwskz IS NOT INITIAL. 
        gw\_main-mwskz = ls\_main-mwskz. 
      ELSE. 
        gw\_main-mwskz = 'J1'. 
      ENDIF. 
 
    ENDIF. 
    IF gw\_main-lnetpr IS INITIAL. 
      gw\_main-lnetpr = ls\_main-netpr. 
    ENDIF. 
    IF gw\_main-peinh IS INITIAL. 
      gw\_main-peinh = ls\_main-peinh. 
    ENDIF. 
    IF gw\_main-werks IS INITIAL. 
      gw\_main-werks = 1000. 
    ENDIF. 
    MODIFY gt\_main FROM gw\_main. 
    CLEAR ls\_main. 
  ENDLOOP. 
  LOOP AT gt\_main INTO gw\_main. 
\*    IF sy-mandt EQ '400' OR sy-mandt EQ '900'. 
\*      gw\_main-ekorg = 2000. 
\*    ELSE. 
\*      gw\_main-ekorg = 1000. 
\*    ENDIF. 
 
    IF gw\_main-txz01 IS   INITIAL. 
      CALL FUNCTION 'CONVERSION\_EXIT\_ALPHA\_INPUT' 
        EXPORTING 
          input  = gw\_main-matnr 
        IMPORTING 
          output = gw\_main-matnr. 
      SELECT SINGLE maktx INTO gw\_main-txz01 FROM makt WHERE matnr = gw\_main-matnr. 
    ENDIF. 
    MOVE-CORRESPONDING gw\_main TO ls\_main. 
   AT NEW ihrez. 
\*    AT NEW ext\_rfx\_item.  "lxf 旧订单号 
      gw\_main-gxx  = 'X'.  "创建订单标识 
      ls\_main-gxx = gw\_main-gxx. 
      ls\_main-ebelp = 10. 
      ls\_main-veten = 1. 
      ladd =  10. 
      ladd2 = 1. 
    ENDAT. 
    IF ls\_main-gxx  IS INITIAL. 
      ladd = ladd + 10. 
      ladd2 = ladd2 + 1. 
      ls\_main-ebelp = ladd. 
      ls\_main-veten = ladd2. 
    ENDIF. 
    MOVE-CORRESPONDING  ls\_main TO gw\_main. 
    MODIFY gt\_main FROM gw\_main. 
  ENDLOOP. 
ENDFORM.                    " FRM\_CHECK\_DATA 
 
\*&---------------------------------------------------------------------\* 
\*&      Form  ALV\_DISP\_DATA 
\*&---------------------------------------------------------------------\* 
\*       ALV 展现准备导入的数据 
\*----------------------------------------------------------------------\* 
\*  -->  p1        text 
\*  <--  p2        text 
\*----------------------------------------------------------------------\* 
FORM alv\_disp\_data . 
 
  DATA: lt\_fieldcat TYPE slis\_t\_fieldcat\_alv WITH HEADER LINE. 
  DATA: lw\_layout TYPE slis\_layout\_alv. 
  DATA: l\_i TYPE i VALUE 1. 
  DATA: l\_repid LIKE sy-repid VALUE sy-repid. 
 
  lw\_layout-group\_change\_edit = 'X'. 
  lw\_layout-colwidth\_optimize = 'X'. 
  lw\_layout-box\_fieldname = 'SELECT'. 
 
  DEFINE alv\_head. 
    CLEAR lt\_fieldcat. 
    lt\_fieldcat-col\_pos       = l\_i. 
    lt\_fieldcat-fieldname     = &1. 
    lt\_fieldcat-tabname       = 'GT\_MAIN'. 
    lt\_fieldcat-seltext\_l     = &2. 
 
    IF lt\_fieldcat-fieldname  = 'ICON'. 
      lt\_fieldcat-icon         = 'X'. 
    ENDIF. 
 
    IF lt\_fieldcat-fieldname  = 'MESSAGE'. 
      lt\_fieldcat-outputlen    = '15'. 
    ENDIF. 
 
    IF lt\_fieldcat-fieldname  = 'MATNR'. 
      lt\_fieldcat-ref\_fieldname = 'MATNR'. 
      lt\_fieldcat-ref\_tabname = 'MARA'. 
    ENDIF. 
    lt\_fieldcat-no\_zero = 0 . 
    APPEND lt\_fieldcat TO lt\_fieldcat. 
    ADD 1 TO l\_i. 
  END-OF-DEFINITION. 
 
  alv\_head 'ICON'         '检查'. 
  alv\_head 'MESSAGE'      '消息'. 
\*  alv\_head 'EXT\_RFX\_ITEM' 'U9采购订单行项目'. 
\*  alv\_head  'UNSEZ '       'U9采购订单日期'. 
  alv\_head 'EBELN'        '采购订单'. 
  alv\_head 'BSART'        '采购凭证类型'. 
  alv\_head 'LIFNR'        '供应商帐户号'. 
  alv\_head 'EKORG'        '采购组织'. 
  alv\_head 'EKGRP'        '采购组'. 
  alv\_head 'BUKRS'        '公司代码'. 
  alv\_head 'EBELP'        '行项目'. 
  alv\_head 'BSTYP'        '科目分配类别'. 
  alv\_head 'EPSTP'        '项目类别'. 
  alv\_head 'MATNR'        '物料号'. 
  alv\_head 'TXZ01'         '文本'. 
  alv\_head 'MENGE'         '数量'. 
  alv\_head 'MEINS'        '订单单位'. 
  alv\_head 'EEIND'        '交货日期'. 
  alv\_head 'MATKL'        '物料组'. 
  alv\_head 'MWSKZ'        '税码'. 
  alv\_head 'LNETPR'        '含税价'. 
  alv\_head 'WERKS'        '工厂'. 
  alv\_head 'LGORT'        '库存地点'. 
  alv\_head 'PEINH'        '价格单位'. 
\*  alv\_head 'PS\_PSP\_PNR'   'WBS元素'. 
  alv\_head 'AUFNR'        '订单号'. 
  alv\_head 'KOSTL'        '成本中心'. 
 
  alv\_head 'ANLN1'        '资产'. 
  alv\_head 'AFNAM'        '申请者'. 
  alv\_head 'UMSON'        '免费标识'. 
  alv\_head 'RETPO'        '退货标识'. 
 
  alv\_head 'WW\_MATNR'        '委外组件'. 
  alv\_head 'WW\_MENGE'        '委外组件数量'. 
  alv\_head 'HXMWB'        '行项目文本'. 
 
 
\*  alv\_head 'KONNR'        '采购合同'. 
\*  alv\_head 'KTPNR'        '采购合同项目'. 
  alv\_head 'BANFN'        '采购申请号'. 
  alv\_head 'BNFPO'        '采购申请行项目'. 
  alv\_head 'IHREZ'        'U9采购订单号'. 
  alv\_head 'EXT\_RFX\_ITEM' 'U9采购订单行项目'. 
  alv\_head  'UNSEZ '       'U9采购订单日期'. 
\* 
\*  alv\_head 'SRM\_CONTRACT\_ID'        'U9 SRM合同号'. 
\*  alv\_head 'SRM\_CONTRACT\_ITM'        'U9 SRM合同行项目'. 
 
 
 
\*调用ALV函数显示数据 
  CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY' 
    EXPORTING 
      i\_background\_id          = 'ALV\_BACKGROUND' 
      i\_callback\_pf\_status\_set = 'SET\_PF\_STATUS' 
      i\_callback\_user\_command  = 'USER\_COMMAND' 
      i\_callback\_program       = l\_repid 
      is\_layout                = lw\_layout 
      i\_save                   = 'X'  "A:ALL U:USER X:SYSTEM 
\*     it\_events                = gt\_events 
      it\_fieldcat              = lt\_fieldcat\[\] 
    TABLES 
      t\_outtab                 = gt\_main 
    EXCEPTIONS 
      program\_error            = 1 
      OTHERS                   = 2. 
 
  IF sy-subrc <> 0. 
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno 
         WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. 
  ENDIF. 
 
ENDFORM.                    " ALV\_DISP\_DATA 
 
\*&--------------------------------------------------------------------\* 
\*&      Form  set\_pf\_status 
\*&--------------------------------------------------------------------\* 
\*       ALV自定义个工具条 
\*---------------------------------------------------------------------\* 
FORM set\_pf\_status USING rt\_extab TYPE slis\_t\_extab. 
  SET PF-STATUS 'STANDARD' . 
ENDFORM.                    "set\_pf\_status 
 
\*&--------------------------------------------------------------------\* 
\*&      Form  user\_command 
\*&--------------------------------------------------------------------\* 
\*       响应自定义按钮 
\*---------------------------------------------------------------------\* 
FORM user\_command USING r\_ucomm LIKE sy-ucomm 
rs\_selfield TYPE slis\_selfield. 
 
  DATA: gd\_repid LIKE sy-repid, 
        ref\_grid TYPE REF TO cl\_gui\_alv\_grid. 
 
  DATA: l\_mess TYPE string. 
 
 
  CASE r\_ucomm. 
    WHEN 'ALL'. 
      LOOP AT gt\_main INTO gw\_main. 
        gw\_main-select = 'X'. 
        MODIFY gt\_main FROM gw\_main. 
      ENDLOOP. 
      rs\_selfield-refresh = 'X'. 
 
    WHEN 'UNALL'. 
      LOOP AT gt\_main INTO gw\_main. 
        gw\_main-select = ''. 
        MODIFY gt\_main FROM gw\_main. 
      ENDLOOP. 
      rs\_selfield-refresh = 'X'. 
 
    WHEN 'ZPOST'. 
      SORT gt\_main BY ebeln bsart lifnr  ekorg  ekgrp bukrs ihrez  gxx. 
      CLEAR:gt\_out,gt\_out\[\]. 
      gt\_out\[\] = gt\_main\[\]. 
 
      READ TABLE gt\_main WITH KEY select = 'X'  icon = '@0A@'. 
      IF sy-subrc = 0. 
        MESSAGE '请不要选择已检查出错误的数据' TYPE 'E'. 
        EXIT. 
      ENDIF. 
 
      DELETE gt\_out WHERE select <> 'X'. 
      SORT gt\_out BY ebeln. 
      DELETE ADJACENT DUPLICATES FROM gt\_out COMPARING ebeln. 
      LOOP AT gt\_out INTO gw\_out. 
        LOOP AT gt\_main INTO gw\_main WHERE ebeln = gw\_out-ebeln . 
 
 
          PERFORM frm\_create\_data. 
          IF gw\_main-gxx EQ 'X'. 
            PERFORM frm\_callbapi. 
\*            MODIFY GT\_MAIN FROM GW\_MAIN. 
          ENDIF. 
 
        ENDLOOP. 
      ENDLOOP. 
 
 
\*      SORT gt\_main BY bsart lifnr ekorg  ekgrp bukrs ebelp. 
      rs\_selfield-refresh = 'X'. 
 
 
    WHEN OTHERS. 
  ENDCASE. 
ENDFORM.                    "user\_command 
\*&---------------------------------------------------------------------\* 
\*&      Form  FRM\_CREATE\_DATA 
\*&---------------------------------------------------------------------\* 
\*       创建物料主数据 
\*----------------------------------------------------------------------\* 
\*  -->  p1        text 
\*  <--  p2        text 
\*----------------------------------------------------------------------\* 
FORM frm\_create\_data . 
  DATA: l\_netpr TYPE eine-netpr. 
  DATA: lt\_table\_matnr TYPE TABLE OF string WITH HEADER LINE. 
  DATA: lt\_table\_menge TYPE TABLE OF string WITH HEADER LINE. 
  DATA: lv\_tabix LIKE sy-tabix. 
  DATA: lv\_menge LIKE ekpo-menge. 
  CLEAR lifnr. 
  lifnr = gw\_main-lifnr. 
  CALL FUNCTION 'CONVERSION\_EXIT\_ALPHA\_INPUT' 
    EXPORTING 
      input  = lifnr 
    IMPORTING 
      output = lifnr. 
  poheader-po\_number     = gw\_main-ebeln. 
  poheader-doc\_type     = gw\_main-bsart. 
  poheader-vendor       = lifnr. 
  poheader-purch\_org    = gw\_main-ekorg. 
  poheader-pur\_group    = gw\_main-ekgrp. 
  poheader-comp\_code    = gw\_main-bukrs. 
  poheader-doc\_date     = '20181128'. 
  poheader-langu        = sy-langu. 
  poheader-ref\_1        = gw\_main-ihrez. 
  poheader-our\_ref        = gw\_main-unsez. 
 
  poheaderx-po\_number   = 'X'. 
  poheaderx-doc\_type    = 'X'. 
  poheaderx-vendor      = 'X'. 
  poheaderx-purch\_org   = 'X'. 
  poheaderx-pur\_group   = 'X'. 
  poheaderx-comp\_code   = 'X'. 
  poheaderx-doc\_date    = 'X'. 
  poheaderx-langu       =  'X'. 
  poheaderx-ref\_1      =  'X'. 
  poheaderx-our\_ref      =  'X'. 
  CLEAR: lt\_table\_matnr\[\],lt\_table\_menge\[\],lv\_tabix. 
 
  IF gw\_main-bstyp EQ 'A'. 
    SPLIT gw\_main-anln1 AT '/' INTO TABLE lt\_table\_matnr. 
    SPLIT gw\_main-menge AT '/' INTO TABLE lt\_table\_menge. 
    LOOP AT lt\_table\_matnr. 
      lv\_tabix = lv\_tabix + 1. 
      poaccount-po\_item =   gw\_main-ebelp. "采购凭证的项目编号 
      poaccount-asset\_no   = lt\_table\_matnr."资产 
      READ TABLE lt\_table\_menge INDEX lv\_tabix. 
      poaccount-quantity = lt\_table\_menge. 
      lv\_menge = lv\_menge + lt\_table\_menge. 
      APPEND poaccount. 
      CLEAR  poaccount. 
 
 
      poaccountx-po\_item =  gw\_main-ebelp. "采购凭证的项目编号 
      poaccountx-asset\_no   = 'X'."资产 
      poaccountx-quantity = 'X'."数量 
      APPEND poaccountx. 
      CLEAR  poaccountx. 
    ENDLOOP. 
  ELSE. 
    poaccount-po\_item =   gw\_main-ebelp. "采购凭证的项目编号 
    CALL FUNCTION 'CONVERSION\_EXIT\_ALPHA\_INPUT' 
      EXPORTING 
        input  = gw\_main-aufnr 
      IMPORTING 
        output = poaccount-orderid. "订单号 
    lv\_menge = gw\_main-menge. 
    poaccount-co\_area = 'CNR0'."成本控制 
    poaccount-costcenter = gw\_main-kostl."成本中心 
    APPEND poaccount. 
    CLEAR  poaccount. 
 
    poaccountx-po\_item =  gw\_main-ebelp. "采购凭证的项目编号 
    poaccountx-costcenter = 'X'."成本中心 
    poaccountx-orderid = 'X'."订单号 
    poaccountx-co\_area = 'X'."成本控制 
 
\*  poaccountx-wbs\_element = 'X'."WBS元素 
    APPEND poaccountx. 
    CLEAR  poaccountx. 
  ENDIF. 
 
 
 
 
 
 
  CLEAR netpr. 
  netpr = gw\_main-lnetpr. 
 
  poitem-po\_item      =  gw\_main-ebelp. "采购凭证的项目编号 
  poitem-acctasscat   = gw\_main-bstyp."科目分配类别 
  poitem-material     = gw\_main-matnr. 
  poitem-item\_cat     = gw\_main-epstp."项目类别 
  poitem-short\_text   = gw\_main-txz01."短文本 
  poitem-quantity     = lv\_menge."gw\_main-menge ."采购订单数量 
  CALL FUNCTION 'CONVERSION\_EXIT\_CUNIT\_INPUT' 
    EXPORTING 
      input  = gw\_main-meins 
    IMPORTING 
      output = poitem-po\_unit. 
  poitem-net\_price    = netpr."净价 
\*  poitem-po\_price     = '1' .  "1 总价 2 净价 
 
  poitem-matl\_group   = gw\_main-matkl."物料组 
  poitem-plant        = gw\_main-werks. "工厂 
  poitem-stge\_loc     = gw\_main-lgort. "库存地点 
  poitem-price\_unit   = gw\_main-peinh. "价格单位 
  poitem-tax\_code     = gw\_main-mwskz. "税码 
\*  poitem-agreement    = gw\_main-konnr. "合同号 
\*  poitem-agmt\_item    = gw\_main-ktpnr.  "合同行项目 
 
  poitem-preq\_no      = gw\_main-banfn. " 采购申请 
  poitem-preq\_item    = gw\_main-bnfpo.  "采购申请行项目 
\*  poitem-srm\_contract\_id      = gw\_main-srm\_contract\_id. " U9 SRM合同号 
\*  poitem-srm\_contract\_itm    = gw\_main-srm\_contract\_itm.  "U9 SRM行项目 
\*  poitem-ext\_rfx\_number = gw\_main-UNSEZ.  "U9 SRM采购订单 
 
 
  poitem-crm\_ref\_sales\_order\_no = gw\_main-ihrez.  "U9 SRM采购订单 
  poitem-crm\_ref\_so\_item\_no = gw\_main-ext\_rfx\_item.  "U9 SRM采购行项目 
\*  poitem-ref\_doc = gw\_main-ihrez.  "U9 SRM采购订单 
\*  poitem-ref\_item = gw\_main-ext\_rfx\_item.  "U9 SRM采购行项目 
  poitem-preq\_name = gw\_main-afnam."申请者 
\*  poitem-short\_text = gw\_main-hxmwb."行项目文本 
  poitem-free\_item = gw\_main-umson."免费标识 
  poitem-ret\_item = gw\_main-retpo."退货标识 
  APPEND poitem. 
  CLEAR poitem. 
 
  poitemx-po\_item     =  gw\_main-ebelp. "采购凭证的项目编号 
  poitemx-acctasscat  = 'X' ."科目分配类别 
  poitemx-material     = 'X'. 
  poitemx-short\_text  = 'X'."短文本 
  poitemx-quantity    = 'X'."采购订单数量 
  poitemx-po\_unit     = 'X' ."采购订单的计量单位 
  poitemx-net\_price   = 'X'."净价 
  poitemx-matl\_group  = 'X'."物料组 
  poitemx-item\_cat     = 'X'."项目类别 
  poitemx-plant       = 'X'."工厂 
  poitemx-stge\_loc     = 'X'. 
  poitemx-price\_unit  = 'X'."价格单位 
  poitemx-tax\_code    = 'X'. 
  poitemx-agreement    = 'X'. "合同号 
  poitemx-agmt\_item    = 'X'. 
  poitemx-preq\_no     =  'X'. 
  poitemx-preq\_item  =  'X'. 
\*  poitemx-srm\_contract\_id  =  'X'. 
\*  poitemx-srm\_contract\_itm  =  'X'. 
\*  poitemx-ext\_rfx\_number = 'X'. 
\*  poitemx-ext\_rfx\_item = 'X'.   "U9 SRM采购行项目 
  poitemx-crm\_ref\_sales\_order\_no  =  'X'. 
  poitemx-crm\_ref\_so\_item\_no  =  'X'. 
  poitemx-preq\_name = 'X'."申请者 
  poitemx-free\_item = 'X'."免费标识 
  poitemx-ret\_item = 'X'."退货标识 
\*  poitemx-short\_text = 'X'."行项目文本 
  APPEND poitemx. 
  CLEAR poitemx. 
 
  poschedule-po\_item =   gw\_main-ebelp. "采购凭证的项目编号 
  poschedule-sched\_line =  '0001'. "采购凭证的项目编号 
  poschedule-del\_datcat\_ext = 'D'."交货日期的类别 
  poschedule-delivery\_date = gw\_main-eeind."交货日期 
  poschedule-quantity  =  lv\_menge."gw\_main-menge  ."采购订单数量 
  APPEND poschedule. 
 
  poschedulex-po\_item =  gw\_main-ebelp. "采购凭证的项目编号 
  poschedulex-sched\_line =  '0001'."GW\_MAIN-EBELP'. "采购凭证的项目编号 
  poschedulex-po\_itemx = 'X'. 
  poschedulex-sched\_linex = 'X'. 
  poschedulex-del\_datcat\_ext = 'X'."交货日期的类别 
  poschedulex-delivery\_date = 'X'."交货日期 
  poschedulex-quantity  = 'X'."采购订单数量 
  APPEND poschedulex. 
  CLEAR poschedulex. 
 
 
 
  CLEAR: lt\_table\_matnr\[\],lt\_table\_menge\[\],lv\_tabix. 
  SPLIT gw\_main-ww\_matnr AT '/' INTO TABLE lt\_table\_matnr. 
  SPLIT gw\_main-ww\_menge AT '/' INTO TABLE lt\_table\_menge. 
 
  IF gw\_main-epstp EQ 'L'. 
\*    DATA: LV\_TABIX LIKE SY-TABIX. 
    LOOP AT lt\_table\_matnr. 
 
      lv\_tabix = lv\_tabix + 1.. 
      pocomponent-po\_item  =  gw\_main-ebelp. "采购凭证的项目编号 
      pocomponent-sched\_line = '0001'."gw\_main-ebelp / 10. 
 
      pocomponent-plant =  gw\_main-werks. "工厂 
      pocomponent-material =  lt\_table\_matnr. "物料号 
      pocomponent-item\_no = lv\_tabix. 
      pocomponent-item\_cat = '3'.   "3 OR L  LXF 
 
     IF lv\_tabix EQ 1. 
        pocomponent-change\_id = 'E'. 
 
      ELSE. 
        pocomponent-change\_id = 'E'. 
      ENDIF. 
      READ TABLE lt\_table\_menge INDEX lv\_tabix. 
      pocomponent-entry\_quantity =  lt\_table\_menge. "采购凭证的项目编号 
      APPEND pocomponent. 
 
      pocomponentx-po\_item  =  gw\_main-ebelp. "采购凭证的项目编号 
      pocomponentx-sched\_line = '0001'."gw\_main-ebelp / 10. 
      pocomponentx-item\_no = lv\_tabix. 
      pocomponentx-po\_itemx = 'X'. 
      pocomponentx-sched\_linex = 'X'. 
      pocomponentx-item\_nox = 'X'. 
      pocomponentx-plant =  'X'. "工厂 
      pocomponentx-material =  'X'. "物料号 
      pocomponentx-entry\_quantity =  'X'. "采购凭证的项目编号 
      pocomponentx-item\_cat = 'X'. 
      pocomponentx-change\_id = 'X'. 
      APPEND pocomponentx. 
    ENDLOOP. 
  ENDIF. 
 
 
\*DATA: pocomponent LIKE TABLE OF bapimepocomponent WITH HEADER LINE. 
\*DATA: pocomponentx LIKE TABLE OF bapimepocomponentx WITH HEADER LINE. 
 
  SELECT SINGLE netpr INTO l\_netpr FROM eina INNER JOIN eine ON eina~infnr = eine~infnr 
    WHERE eina~matnr = gw\_main-matnr AND eina~lifnr = lifnr AND eine~ekorg = gw\_main-ekorg AND eine~werks = gw\_main-werks. 
  IF sy-subrc EQ 0 . 
    IF l\_netpr IS INITIAL. 
      pocond-itm\_number =  gw\_main-ebelp. "采购凭证的项目编号 
      pocond-cond\_type  =  'PBXX'.      "条件类型 
      pocond-cond\_value =   netpr. 
      pocond-currency   = 'CNY'. 
      pocond-cond\_updat =   'X'.              "定价更新 
      pocond-change\_id = 'U'. 
      pocond-cond\_p\_unt = gw\_main-peinh."价格单位 
      APPEND pocond. 
      CLEAR pocond. 
      pocondx-itm\_number = gw\_main-ebelp. "采购凭证的项目编号 
      pocondx-cond\_type  =     'X'.            "条件类型 
      pocondx-cond\_value =     'X'. 
      pocondx-currency    =     'X'. 
      pocondx-cond\_updat =     'X'.       "定价更新 
      pocondx-change\_id = 'X'. 
      pocondx-cond\_p\_unt = 'X'.."价格单位 
      APPEND pocondx. 
      CLEAR pocondx. 
    ELSE. 
      pocond-itm\_number =  gw\_main-ebelp. "采购凭证的项目编号 
\*      pocond-cond\_type  =  'PB00'.      "条件类型 
      pocond-cond\_type  =  'PBXX'.      "条件类型 
      pocond-cond\_value =   netpr. 
      pocond-currency   = 'CNY'. 
      pocond-cond\_updat =   'X'.              "定价更新 
      pocond-change\_id = 'U'. 
 
 
      pocond-cond\_p\_unt = gw\_main-peinh."价格单位 
      APPEND pocond. 
      CLEAR pocond. 
      pocondx-itm\_number = gw\_main-ebelp. "采购凭证的项目编号 
      pocondx-cond\_type  =     'X'.            "条件类型 
      pocondx-cond\_value =     'X'. 
      pocondx-currency    =     'X'. 
      pocondx-cond\_updat =     'X'.       "定价更新 
      pocondx-change\_id = 'X'. 
      pocondx-cond\_p\_unt = 'X'.."价格单位 
      APPEND pocondx. 
      CLEAR pocondx. 
      CLEAR:l\_netpr. 
    ENDIF. 
  ELSE. 
    pocond-itm\_number =  gw\_main-ebelp. "采购凭证的项目编号 
    pocond-cond\_type  =  'PBXX'.      "条件类型 
    pocond-cond\_value =   netpr. 
    pocond-currency   = 'CNY'. 
    pocond-cond\_updat =   'X'.              "定价更新 
    pocond-change\_id = 'U'. 
    pocond-cond\_p\_unt = gw\_main-peinh."价格单位 
    APPEND pocond. 
    CLEAR pocond. 
    pocondx-itm\_number = gw\_main-ebelp. "采购凭证的项目编号 
    pocondx-cond\_type  =     'X'.            "条件类型 
    pocondx-cond\_value =     'X'. 
    pocondx-currency    =     'X'. 
    pocondx-cond\_updat =     'X'.       "定价更新 
    pocondx-change\_id = 'X'. 
    pocondx-cond\_p\_unt = 'X'.."价格单位 
    APPEND pocondx. 
    CLEAR pocondx. 
  ENDIF.. 
 
  potextitem-po\_number  = gw\_main-ebeln. 
  potextitem-po\_item  = gw\_main-ebelp. "采购凭证的项目编号 
  potextitem-text\_id  = 'F01'. 
\*TEXT\_FORM  1 类型  TDFORMAT  CHAR  2 0 标记列 
  potextitem-text\_line  = gw\_main-hxmwb. 
  APPEND potextitem. 
 
  l\_gxx = gw\_main-gxx. 
ENDFORM.                    "FRM\_CREATE\_DATA. 
\*&---------------------------------------------------------------------\* 
\*&      Form  FRM\_CALLBAPI 
\*&---------------------------------------------------------------------\* 
\*       text 
\*----------------------------------------------------------------------\* 
\*  -->  p1        text 
\*  <--  p2        text 
\*----------------------------------------------------------------------\* 
 
FORM frm\_callbapi . 
  DATA: l\_row LIKE return-row. 
  SORT poitem BY po\_item. 
  SORT poitemx BY po\_item. 
  SORT poschedule BY po\_item. 
  SORT poschedulex BY po\_item. 
  SORT poaccount BY po\_item. 
  SORT poaccountx BY po\_item. 
  SORT pocond BY itm\_number. 
  SORT pocondx BY itm\_number. 
  SORT potextitem BY po\_item. 
 
 
 
  CALL FUNCTION 'BAPI\_PO\_CREATE1' 
    EXPORTING 
      poheader         = poheader 
      poheaderx        = poheaderx 
\*     POADDRVENDOR     = 
      testrun          = p\_box 
\*     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 
\*     POACCOUNTPROFITSEGMENT = 
      poaccountx       = poaccountx 
\*     POCONDHEADER     = POCONDHEADER 
\*     POCONDHEADERX    = POCONDHEADERX 
      pocond           = pocond 
      pocondx          = pocondx 
      pocomponents     = pocomponent 
      pocomponentsx    = pocomponentx 
\*     POLIMITS         = 
\*     POCONTRACTLIMITS = 
\*     POSERVICES       = 
\*     POSRVACCESSVALUES      = 
\*     POSERVICESTEXT   = 
\*     EXTENSIONIN      = 
\*     EXTENSIONOUT     = 
\*     POEXPIMPITEM     = 
\*     POEXPIMPITEMX    = 
\*     POTEXTHEADER     = 
      potextitem       = potextitem 
\*     ALLVERSIONS      = 
\*     POPARTNER        = 
\*     POCOMPONENTS     = 
\*     POCOMPONENTSX    = 
\*     POSHIPPING       = 
\*     POSHIPPINGX      = 
\*     POSHIPPINGEXP    = 
    . 
  LOOP AT return . 
 
 
    IF return-type EQ 'A' OR return-type EQ 'E'. 
      CALL FUNCTION 'BAPI\_TRANSACTION\_ROLLBACK'. 
      gw\_main-icon    = icon\_red\_light. 
 
      return-row = return-row  \* 10. 
      IF  l\_row NE return-row AND l\_row IS NOT INITIAL. 
        CLEAR:gw\_main-message. 
      ENDIF. 
      l\_row =  return-row. 
      CONCATENATE gw\_main-message '/'return-message  INTO gw\_main-message. 
 
      MODIFY gt\_main FROM gw\_main  TRANSPORTING message icon WHERE  bsart = gw\_main-bsart AND lifnr = gw\_main-lifnr 
      AND ekgrp = gw\_main-ekgrp AND   bukrs = gw\_main-bukrs AND ebelp = return-row AND ihrez = gw\_main-ihrez. 
\*      MODIFY gt\_main FROM gw\_main  TRANSPORTING message icon WHERE  ebeln = gw\_main-ebeln. " lxf 
 
 
 
    ELSEIF return-type NE 'W'. 
      IF p\_box NE 'X'. 
        CALL FUNCTION 'BAPI\_TRANSACTION\_COMMIT'. 
      ENDIF. 
      gw\_main-icon    = icon\_green\_light. 
      CONCATENATE gw\_main-message '/'return-message  INTO gw\_main-message. 
      DELETE return\[\] WHERE number = return-number. 
      MODIFY gt\_main FROM gw\_main  TRANSPORTING message icon WHERE  bsart = gw\_main-bsart AND lifnr = gw\_main-lifnr 
        AND ekgrp = gw\_main-ekgrp AND   bukrs = gw\_main-bukrs AND ihrez = gw\_main-ihrez. 
\*      MODIFY gt\_main FROM gw\_main  TRANSPORTING message icon WHERE  ebeln = gw\_main-ebeln. "lxf 
 
    ENDIF. 
 
 
  ENDLOOP. 
 
 
  REFRESH: poheader,poheaderx,poitem,poitemx,poschedule,poschedulex,poaccount 
  ,poaccountx,pocond,pocondx,potextitem,pocondheader,pocondheaderx,pocomponent\[\],pocomponentx\[\],return\[\]. 
  CLEAR:   poheader,poheaderx,poitem,poitemx,poschedule,poschedulex,poaccount 
  ,poaccountx,pocond,pocondx,potextitem,pocondheader,pocondheaderx,pocomponent,pocomponentx,return. 
ENDFORM.                    " FRM\_CALLBAPI

模板

<table> 
 <tbody> 
 <tr> 
 <td colspan="2" style="vertical-align:bottom;width:218pt;">外部给号，800000~899999</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">旧采购订单日期</td> 
 <td style="vertical-align:bottom;width:109pt;">旧采购订单号</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 <td style="vertical-align:bottom;width:109pt;">&nbsp;</td> 
 </tr> 
 <tr> 
 <td style="background-color:#00b050;vertical-align:bottom;">新采购订单号</td> 
 <td style="background-color:#00b0f0;vertical-align:bottom;">采购订单类型</td> 
 <td style="background-color:#00b0f0;vertical-align:bottom;">供应商</td> 
 <td style="background-color:#c0c0c0;vertical-align:top;">采购组织</td> 
 <td style="background-color:#00b0f0;vertical-align:bottom;">采购组</td> 
 <td style="background-color:#00b0f0;vertical-align:bottom;">公司代码</td> 
 <td style="background-color:#00b0f0;vertical-align:bottom;">U9采购订单日期</td> 
 <td style="background-color:#00b0f0;vertical-align:bottom;">U9采购订单号</td> 
 <td style="background-color:#00b0f0;vertical-align:bottom;">U9采购行项目</td> 
 <td style="background-color:#ffc000;vertical-align:bottom;">科目分配类别</td> 
 <td style="background-color:#ffc000;vertical-align:bottom;">项目类别</td> 
 <td style="background-color:#ffc000;vertical-align:bottom;">物料</td> 
 <td style="background-color:#ffc000;vertical-align:bottom;">短文本</td> 
 <td style="background-color:#ffc000;vertical-align:bottom;">数量</td> 
 <td style="background-color:#ffc000;vertical-align:bottom;">单位</td> 
 <td style="background-color:#ffc000;vertical-align:bottom;">计划交货日期</td> 
 <td style="background-color:#ffc000;vertical-align:bottom;">物料组</td> 
 <td style="background-color:#ffc000;vertical-align:bottom;">税码</td> 
 <td style="background-color:#ffc000;vertical-align:bottom;">含税单价</td> 
 <td style="background-color:#ffc000;vertical-align:bottom;">价格单位</td> 
 <td style="background-color:#ffc000;vertical-align:bottom;">工厂</td> 
 <td style="background-color:#ffc000;vertical-align:bottom;">库存地点</td> 
 <td style="background-color:#ffc000;vertical-align:bottom;">生产订单号</td> 
 <td style="background-color:#00b050;vertical-align:bottom;">成本中心</td> 
 <td style="background-color:#00b050;vertical-align:bottom;">资产编号</td> 
 <td style="background-color:#00b050;vertical-align:bottom;">申请者</td> 
 <td style="background-color:#00b050;vertical-align:bottom;">免费标识</td> 
 <td style="background-color:#00b050;vertical-align:bottom;">退货标识</td> 
 <td style="background-color:#00b050;vertical-align:bottom;">委外组件</td> 
 <td style="background-color:#00b050;vertical-align:bottom;">委外组件数量</td> 
 <td style="background-color:#00b050;vertical-align:bottom;">行项目文本</td> 
 <td style="background-color:#ffc000;vertical-align:bottom;">采购申请</td> 
 <td style="background-color:#ffc000;vertical-align:bottom;">采购申请行项目</td> 
 </tr> 
 <tr> 
 <td style="vertical-align:top;">&nbsp;</td> 
 <td style="vertical-align:top;">Z004</td> 
 <td style="vertical-align:top;">100161</td> 
 <td style="vertical-align:top;">1000</td> 
 <td style="vertical-align:top;">101</td> 
 <td style="vertical-align:top;">1000</td> 
 <td style="text-align:right;vertical-align:top;">20170929</td> 
 <td style="vertical-align:top;">4100003862</td> 
 <td style="vertical-align:top;">40</td> 
 <td style="vertical-align:top;">&nbsp;</td> 
 <td style="vertical-align:top;">L</td> 
 <td style="vertical-align:top;">90.200.000112</td> 
 <td style="vertical-align:top;">喇叭组件</td> 
 <td style="text-align:right;vertical-align:top;">12.00</td> 
 <td style="vertical-align:top;">PCS</td> 
 <td style="text-align:right;vertical-align:top;">20181213</td> 
 <td style="vertical-align:top;">90.2</td> 
 <td style="background-color:#92d050;vertical-align:top;">J5</td> 
 <td style="background-color:#92d050;text-align:right;vertical-align:top;">79.32</td> 
 <td style="background-color:#92d050;text-align:right;vertical-align:top;">1000</td> 
 <td style="vertical-align:top;">1000</td> 
 <td style="vertical-align:top;">&nbsp;</td> 
 <td style="vertical-align:top;">&nbsp;</td> 
 <td style="vertical-align:top;">&nbsp;</td> 
 <td style="vertical-align:top;">&nbsp;</td> 
 <td style="vertical-align:top;">&nbsp;</td> 
 <td style="vertical-align:top;">&nbsp;</td> 
 <td style="vertical-align:top;">&nbsp;</td> 
 <td style="vertical-align:top;">10.135.000093</td> 
 <td style="vertical-align:top;">15</td> 
 <td style="vertical-align:top;">&nbsp;</td> 
 <td style="vertical-align:top;">&nbsp;</td> 
 <td style="vertical-align:top;">&nbsp;</td> 
 </tr> 
 </tbody> 
</table>

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70]: /images/20220417/76c64efac67548a79e7318fb64ef224d.png
[20181113105056744.png]: /images/20220417/c0cc4415f465409685fb7bb282dca6c4.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 1]: /images/20220417/514ac087a29d4b7198ac0e0ae11de993.png
[20181113105605487.png]: /images/20220417/f38a76b1adc9412f9b843f2491fd1a09.png
[20181113105725508.png]: /images/20220417/7985ac15920e4de9a77bfb254eca9af1.png
[20181113105804308.png]: /images/20220417/9b101c9871a04dbab6e6da95680f8324.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 2]: /images/20220417/b065c5c792084726a9efb40adc8a26fd.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 3]: /images/20220417/a2524eb5e3ab4be7a6689a404104696b.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 4]: /images/20220417/34fefc07fd37440a977717d1ee16ed92.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 5]: /images/20220417/9c38759c94a742d7a2b11d017b18cfb3.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 6]: /images/20220417/705f26f3556d4e528f9775b3b015a874.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 7]: /images/20220417/4026acc016ff4ec2b67b90549d00fdbc.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 8]: /images/20220417/53d7e9ff63fc4e57a1fa0c865423a544.png
[20181205114459631.png]: /images/20220417/b22c3d4353a946d0bd51127fd21edebe.png
[20181205114349591.png]: /images/20220417/b8d6d7e9880e4fd0b8b497f108aad5eb.png