SAP--用BAPI-实现销售订单修改-Cond-Value

秒速五厘米 2022-02-24 14:56 494阅读 0赞

# SAP--用BAPI-实现销售订单修改-Cond-Value #

2018年08月31日 08:27:34 [ChampaignWolf][] 阅读数：286

\*&---------------------------------------------------------------------\*  
\*&      Form  FRM\_CHANGE\_SALESORDER  
\*&---------------------------------------------------------------------\*  
\*       text  
\*----------------------------------------------------------------------\*  
\*      -->P\_LT\_ITEM  text  
\*      -->P\_LT\_COND  text  
\*      -->P\_LT\_MSG  text  
\*      -->P\_LS\_HEAD  text  
\*      <--P\_LV\_EIND  text  
\*----------------------------------------------------------------------\*  
FORM frm\_change\_salesorder  TABLES  tp\_item    STRUCTURE zrmxsds004  
                                     tp\_cond    STRUCTURE zrmxsds005  
                                     tp\_message STRUCTURE zifsret01  
                            USING    up\_head LIKE zrmxsds003  
                            CHANGING cp\_eind TYPE c.  
  
  
   
  
  
  DATA: ls\_item LIKE zrmxsds004,  
        ls\_cond LIKE zrmxsds005,  
        ls\_msg  LIKE zifsret01,  
        ls\_vbep LIKE vbep.  
  
  
  DATA: wa\_header  TYPE bapisdh1,  "表头  
        wa\_headerx TYPE bapisdh1x, "表头标志  
  
  
        wa\_partner  TYPE bapiparnr,  "业务伙伴  
        wa\_partnerc TYPE bapiparnrc,  
  
  
        wa\_item    TYPE bapisditm,  "行项目  
        wa\_itemx   TYPE bapisditmx,  
  
  
        wa\_cond    TYPE bapicond,   "价格条件  
        wa\_condx   TYPE bapicondx,  
  
  
        wa\_schdl   TYPE bapischdl,  "交付计划  
        wa\_schdlx  TYPE bapischdlx,  
  
  
        wa\_return  TYPE bapiret2,  
        wa\_sdls    TYPE bapisdls,  
  
  
        wa\_text    TYPE bapisdtext.  "文本  
  
  
  DATA:  
        lt\_partner  TYPE STANDARD TABLE OF bapiparnr,  
        lt\_partnerc TYPE STANDARD TABLE OF bapiparnrc,  
  
  
        lt\_item    TYPE STANDARD TABLE OF bapisditm,  
        lt\_itemx   TYPE STANDARD TABLE OF bapisditmx,  
  
  
        lt\_schdl    TYPE STANDARD TABLE OF bapischdl,  
        lt\_schdlx   TYPE STANDARD TABLE OF bapischdlx,  
  
  
        lt\_cond    TYPE STANDARD TABLE OF bapicond,  
        lt\_condx   TYPE STANDARD TABLE OF bapicondx,  
  
  
        lt\_return  TYPE STANDARD TABLE OF bapiret2,  
  
  
        lt\_text    LIKE STANDARD TABLE OF bapisdtext.  
  
  
  DATA: lt\_sokey TYPE STANDARD TABLE OF zrmxsds015,  
        ls\_sokey TYPE zrmxsds015.  
  
  
\*--------------------------------------------------------------------\*  
\* Header  
  CLEAR: wa\_header,wa\_headerx.  
  
  
  IF up\_head-updateflag   = cns\_update.  
    wa\_header-pmnttrms    = up\_head-zterm.  "付款条件  
  
  
    wa\_headerx-pmnttrms   = cns\_yes.  
    wa\_headerx-updateflag = cns\_update.     "Update  
  
  
\*--------------------------------------------------------------------\*  
\* Header texts  
\*表头文本,若传输空值，则清空该字段  
    CLEAR: wa\_text,lt\_text\[\].  
    wa\_text-itm\_number          = space.  
    wa\_text-text\_id             = cns\_textid.  
    wa\_text-langu               = sy-langu.  
    wa\_text-format\_col          = '\*'.  
    wa\_text-text\_line           = up\_head-tknum.  "运输合同号  
    APPEND wa\_text TO lt\_text.  
  
  
  ENDIF.  
  
  
  
  
\*--------------------------------------------------------------------\*  
\* Partners  
  
  
  IF up\_head-kunnr\_re IS NOT INITIAL.  
    "收票方  
    CLEAR: wa\_partnerc.  
    wa\_partnerc-document = up\_head-vbeln.  
    wa\_partnerc-itm\_number = '000000'.  
    wa\_partnerc-updateflag = cns\_update.  
    wa\_partnerc-partn\_role = 'RE'.  
    wa\_partnerc-p\_numb\_new = up\_head-kunnr\_re.  
    APPEND wa\_partnerc TO lt\_partnerc.  
  ENDIF.  
  
  
  IF up\_head-kunnr\_rg IS NOT INITIAL.  
    "付款方  
    CLEAR: wa\_partnerc.  
    wa\_partnerc-document = up\_head-vbeln.  
    wa\_partnerc-itm\_number = '000000'.  
    wa\_partnerc-updateflag = cns\_update.  
    wa\_partnerc-partn\_role = 'RG'.  
    wa\_partnerc-p\_numb\_new = up\_head-kunnr\_rg.  
    APPEND wa\_partnerc TO lt\_partnerc.  
  ENDIF.  
  
  
  IF up\_head-kunnr\_we IS NOT INITIAL.  
    "送达方  
    CLEAR: wa\_partnerc.  
    wa\_partnerc-document = up\_head-vbeln.  
    wa\_partnerc-itm\_number = '000000'.  
    wa\_partnerc-updateflag = cns\_update.  
    wa\_partnerc-partn\_role = 'WE'.  
    wa\_partnerc-p\_numb\_new = up\_head-kunnr\_we.  
    APPEND wa\_partnerc TO lt\_partnerc.  
  ENDIF.  
  
  
  
  
\*--------------------------------------------------------------------\*  
\* Items  
  REFRESH: lt\_item,  lt\_cond, lt\_schdl,  
           lt\_itemx, lt\_condx,lt\_schdl.  
  
  
  LOOP AT tp\_item INTO ls\_item.  
  
  
    IF ls\_item-updateflag = cns\_new.  
      "新增行项目  
      CLEAR wa\_item.  
      wa\_item-itm\_number = ls\_item-posnr.  
      wa\_item-material   = ls\_item-mabnr.   "物料  
      wa\_item-sales\_unit = ls\_item-vrkme.   "计量单位  
      wa\_item-plant      = ls\_item-werks.   "工厂  
      wa\_item-store\_loc  = ls\_item-lgort.   "库存地  
      APPEND wa\_item TO lt\_item.  
      "行状态  
      wa\_itemx-itm\_number = ls\_item-posnr.  
      wa\_itemx-updateflag = cns\_new.  
      wa\_itemx-material   = cns\_yes.  
      wa\_itemx-sales\_unit = cns\_yes.  
      wa\_itemx-plant      = cns\_yes.  
      wa\_itemx-store\_loc  = cns\_yes.  
      APPEND wa\_itemx TO lt\_itemx.  
  
  
      "Schedule lines  
      CLEAR: wa\_schdl,wa\_schdlx.  
      wa\_schdl-itm\_number = ls\_item-posnr.  
      wa\_schdl-req\_qty    = ls\_item-kwmeng.  "数量  
      APPEND wa\_schdl TO lt\_schdl.  
  
  
      wa\_schdlx-itm\_number = ls\_item-posnr.  
      wa\_schdlx-updateflag = cns\_new.  
      wa\_schdlx-req\_qty    = cns\_yes.  
      APPEND wa\_schdlx TO lt\_schdlx.  
  
  
      "新增行，需要对自动生成的生产订单进行下达  
      CLEAR ls\_sokey.  
      ls\_sokey-vbeln = up\_head-vbeln.  
      ls\_sokey-posnr = ls\_item-posnr.  
      APPEND ls\_sokey TO lt\_sokey.  
  
  
    ELSEIF ls\_item-updateflag = cns\_update.  
      "更新行项目信息  
  
  
\*     Schedule line  
\*     仅行数量  
      CLEAR: wa\_schdl,wa\_schdlx.  
      wa\_schdl-itm\_number = ls\_item-posnr.  
      wa\_schdl-sched\_line = '0001'.          "默认都是第一行  
      wa\_schdl-req\_qty    = ls\_item-kwmeng.  "数量  
      APPEND wa\_schdl TO lt\_schdl.  
  
  
      wa\_schdlx-itm\_number = ls\_item-posnr.  
      wa\_schdlx-sched\_line = '0001'.  
      wa\_schdlx-updateflag = cns\_update.  
      wa\_schdlx-req\_qty    = cns\_yes.  
      APPEND wa\_schdlx TO lt\_schdlx.  
    ENDIF.  
  
  
  
  
  ENDLOOP.  
  
  
\*--------------------------------------------------------------------\*  
\* Item Conditions  
\* 价格条件，需要设置该参数，才能够修改价格条件  
  wa\_sdls-cond\_handl = cns\_yes.  
  
  
  LOOP AT tp\_cond INTO ls\_cond.  
  
  
    IF ls\_cond-updateflag = cns\_new.  
      "新增价格条件记录  
      CLEAR: wa\_cond,wa\_condx.  
      wa\_cond-itm\_number = ls\_cond-posnr.  
      wa\_cond-cond\_type  = ls\_cond-kschl.  "定价条件  
      wa\_cond-cond\_value = ls\_cond-kbetr.  "价格  
      wa\_cond-currency   = ls\_cond-koein.  "货币或%  
      wa\_cond-cond\_unit  = ls\_cond-kmein.  "条件单位  
      wa\_cond-cond\_p\_unt = ls\_cond-kpein.  "条件定价单位  
      APPEND wa\_cond TO lt\_cond.  
  
  
      wa\_condx-itm\_number = ls\_cond-posnr.  
      wa\_condx-cond\_type  = ls\_cond-kschl.  "定价条件  
      wa\_condx-updateflag = cns\_new.  
      wa\_condx-cond\_value = cns\_yes.  "价格  
      wa\_condx-currency   = cns\_yes.  "货币或%  
      wa\_condx-cond\_unit  = cns\_yes.  "条件单位  
      wa\_condx-cond\_p\_unt = cns\_yes.  "条件定价单位  
      APPEND wa\_condx TO lt\_condx.  
  
  
    ELSEIF ls\_cond-updateflag = cns\_update.  
      "更新价格条件记录  
      CLEAR: wa\_cond,wa\_condx.  
  
  
      "需要读取已经存在行的Key  
      PERFORM frm\_get\_cond\_key USING up\_head-vbeln  
                                     ls\_cond-posnr  
                                     ls\_cond-kschl  
                               CHANGING wa\_cond-cond\_st\_no  
                                        wa\_cond-cond\_count.  
  
  
      wa\_cond-itm\_number = ls\_cond-posnr.  
\*      wa\_cond-cond\_st\_no = 040.  
\*      wa\_cond-cond\_count = 01.  
      wa\_cond-cond\_type  = ls\_cond-kschl.  "定价条件  
  
  
      wa\_cond-cond\_value = ls\_cond-kbetr.  "价格  
      wa\_cond-currency   = ls\_cond-koein.  "货币或%  
      wa\_cond-cond\_unit  = ls\_cond-kmein.  "条件单位  
      wa\_cond-cond\_p\_unt = ls\_cond-kpein.  "条件定价单位  
      APPEND wa\_cond TO lt\_cond.  
  
  
      wa\_condx-itm\_number = ls\_cond-posnr.  
      wa\_condx-cond\_st\_no = wa\_cond-cond\_st\_no.  
      wa\_condx-cond\_count = wa\_cond-cond\_count.  
      wa\_condx-cond\_type  = ls\_cond-kschl.  
  
  
      wa\_condx-updateflag = cns\_update.  
      wa\_condx-cond\_value = cns\_yes.  
      wa\_condx-currency   = cns\_yes.  
      wa\_condx-cond\_unit  = cns\_yes.  
      wa\_condx-cond\_p\_unt = cns\_yes.  
      APPEND wa\_condx TO lt\_condx.  
  
  
    ELSE.  
      "报错  
    ENDIF.  
  ENDLOOP.  
  
  
\* Call BAPI  
  
  
  CALL FUNCTION 'BAPI\_SALESORDER\_CHANGE'  
    EXPORTING  
      salesdocument               = up\_head-vbeln  
      order\_header\_in             = wa\_header  
      order\_header\_inx            = wa\_headerx  
\*     SIMULATION                  =  
\*     BEHAVE\_WHEN\_ERROR           = ' '  
\*     INT\_NUMBER\_ASSIGNMENT       = ' '  
      logic\_switch                = wa\_sdls  
\*     NO\_STATUS\_BUF\_INIT          = ' '  
    TABLES  
      return                      = lt\_return  
      order\_item\_in               = lt\_item  
      order\_item\_inx              = lt\_itemx  
\*      partners                    = lt\_partner  
      partnerchanges              = lt\_partnerc  
\*     PARTNERADDRESSES            =  
\*     ORDER\_CFGS\_REF              =  
\*     ORDER\_CFGS\_INST             =  
\*     ORDER\_CFGS\_PART\_OF          =  
\*     ORDER\_CFGS\_VALUE            =  
\*     ORDER\_CFGS\_BLOB             =  
\*     ORDER\_CFGS\_VK               =  
\*     ORDER\_CFGS\_REFINST          =  
      schedule\_lines              = lt\_schdl  
      schedule\_linesx             = lt\_schdlx  
      order\_text                  = lt\_text  
\*     ORDER\_KEYS                  =  
      conditions\_in               = lt\_cond  
      conditions\_inx              = lt\_condx  
\*   EXTENSIONIN                 =  
            .  
  
  
\* 处理错误消息:通过判断消息的类型，来判断BAPI是否成功  
  LOOP AT lt\_return INTO wa\_return.  
    CLEAR ls\_msg.  
    ls\_msg-class   = 'BUS'.  
    ls\_msg-msgtyp  = wa\_return-type.  
    ls\_msg-msgno   = wa\_return-number.  
    ls\_msg-msgtxt  = wa\_return-message.  
    APPEND ls\_msg TO tp\_message.  
  
  
    IF wa\_return-type EQ 'E' OR  
        wa\_return-type = 'A' OR  
        wa\_return = 'X'.  
      cp\_eind = 'X'.  "失败  
    ENDIF.  
  
  
  ENDLOOP.  
  
  
  IF cp\_eind NE 'X'.  
    CALL FUNCTION 'BAPI\_TRANSACTION\_COMMIT'  
      EXPORTING  
        wait = 'X'.  
  ELSE.  
    CALL FUNCTION 'BAPI\_TRANSACTION\_ROLLBACK' .  
  ENDIF.  
  
  
  CHECK cp\_eind NE 'X' AND lt\_sokey\[\] IS NOT INITIAL.  
\* 销售订单自动产生生产订单，对生产订单进行下达  
  CALL FUNCTION 'Z\_RMXPP\_PRDORD\_RELEASE'  
\*   EXPORTING  
\*     I\_WAIT                           = 3  
    TABLES  
      t\_sokey                          = lt\_sokey  
     EXCEPTIONS  
       no\_saleorders                    = 1  
       no\_valid\_saleorders              = 2  
       cannot\_find\_product\_orders       = 3  
       OTHERS                           = 4  
            .  
  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.                    "frm\_create\_salesorder  
\*&---------------------------------------------------------------------\*  
\*&      Form  FRM\_GET\_COND\_KEY  
\*&---------------------------------------------------------------------\*  
\*       读取价格条件记录的Key  
\*----------------------------------------------------------------------\*  
\*      -->P\_UP\_HEAD\_VBELN  text  
\*      -->P\_LS\_COND\_POSNR  text  
\*      -->P\_LS\_COND\_KSCHL  text  
\*      <--P\_WA\_COND\_COND\_ST\_NO  text  
\*      <--P\_WA\_COND\_COND\_COUNT  text  
\*----------------------------------------------------------------------\*  
FORM frm\_get\_cond\_key  USING    up\_vbeln LIKE vbap-vbeln  
                                up\_posnr LIKE vbap-posnr  
                                up\_kschl LIKE konv-kschl  
                       CHANGING cp\_st\_no LIKE konv-stunr  
                                cp\_count LIKE konv-zaehk.  
  DATA: lv\_knumv LIKE vbak-knumv.  
  
  
  " 由于需要多次判断，预先读取聚集表,将订单的所有行读取出来  
  IF gt\_konv\[\] IS INITIAL.  
    SELECT SINGLE knumv INTO lv\_knumv  
      FROM vbak  
      WHERE vbeln = up\_vbeln.  
  
  
    SELECT  
      knumv kposn kschl stunr zaehk  
      INTO CORRESPONDING FIELDS OF TABLE gt\_konv  
      FROM konv  
      WHERE knumv = lv\_knumv.  
\*        AND kposn = up\_posnr.  
  
  
    SORT gt\_konv BY kposn kschl.  
  ENDIF.  
  
  
  CLEAR gwa\_konv.  
  READ TABLE gt\_konv INTO gwa\_konv  
                 WITH KEY kposn = up\_posnr  
                          kschl = up\_kschl  
                 BINARY SEARCH.  
  IF sy-subrc EQ 0.  
    cp\_st\_no = gwa\_konv-stunr.  
    cp\_count = gwa\_konv-zaehk.  
  ENDIF.  
  
  
  
  
ENDFORM.                    " FRM\_GET\_COND\_KEY

[ChampaignWolf]: https://me.csdn.net/champaignwolf