MB21 预留

1、MB21创建预留

1.1MB21前台操作

输入物料等信息，保存即可

1.2调用BAPI：BAPI_RESERVATION_CREATE1

"-----------------------------------------@斌将军--------------------------------------------
DATA:ls_header      TYPE bapi2093_res_head,
　　　ls_atpcheck    TYPE bapi2093_atpcheck,
     ls_calcheck    TYPE bapi2093_calcheck,
     lv_res         TYPE bapi2093_res_key-reserv_no,
     lt_item        TYPE TABLE OF bapi2093_res_item,
     ls_item        TYPE bapi2093_res_item,
     lt_extensionin    TYPE TABLE OF bapiparex WITH HEADER LINE,
     ls_resb_append TYPE zwms_resb_append,
     lt_pro         TYPE TABLE OF bapi_profitability_segment,
     ls_pro         TYPE bapi_profitability_segment,
     lt_return      TYPE TABLE OF bapiret2,
     ls_return      TYPE bapiret2.

*ls_header-plant = '1000'."工厂
ls_header-res_date = '20220316'."预订基准日期
ls_header-move_type = '311'."移动类型
ls_header-vendor_no = '0000100000'."供应商
ls_header-move_plant = '1000'."收货工厂/发货工厂
ls_header-move_stloc = '1029'."收货/发货库存地点
*ls_header-costcenter = '1000'."成本中心
*ls_header-orderid = '1000'."订单号
*ls_header-wbs_elem = '1000'."WBS 要素

ls_calcheck-calcheck = 'X'."标识，工厂日历是否应该检查
ls_atpcheck-atpcheck = 'X'."ATP检查

CLEAR:ls_item.
ls_item-material = 'HYM01'."物料编号（18 个字符）
ls_item-plant = '1000'."工厂
ls_item-stge_loc = '1001'."存储地点
ls_item-batch = ''."批次编号
ls_item-entry_qnt = 1."以录入项单位表示的数量
ls_item-entry_uom = 'ST'."条目单位
ls_item-req_date = '20220316'."组件的需求日期
ls_item-item_text = '111'."项目文本
APPEND ls_item TO lt_item.

CLEAR:ls_resb_append.
ls_resb_append-rspos = '1'.
ls_resb_append-sobkz = 'Q'.
lt_extensionin-structure = 'ZWMS_RESB_APPEND'.
lt_extensionin-valuepart1 = ls_resb_append.
APPEND lt_extensionin.

CALL FUNCTION 'BAPI_RESERVATION_CREATE1'
  EXPORTING
    reservationheader    = ls_header
*   TESTRUN              =
　　 atpcheck             = ls_atpcheck
    calcheck             = ls_calcheck
*   RESERVATION_EXTERNAL =
  IMPORTING
    reservation          = lv_res
  TABLES
    reservationitems     = lt_item
    profitabilitysegment = lt_pro
    extensionin          = lt_extensionin
    return               = lt_return.

IF lv_res IS NOT INITIAL.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait = 'X'.
ELSE.
  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ENDIF.
"-----------------------------------------@斌将军--------------------------------------------

1.3、增强字段

里面涉及到特殊库存标识SOBKZ，在RESB表中存在，但是在BAPI中没有，需要用增强导入

创建结构：

BADI：MB_RES_BAPI_CREATE1

  
"-----------------------------------------@斌将军--------------------------------------------
METHOD if_ex_mb_res_bapi_create1~extensionin_to_resb.
      DATA:ls_extension LIKE LINE OF it_extension_in.
      DATA:ls_resb LIKE LINE OF resb.
      DATA:ls_resb_append TYPE zwms_resb_append.

      LOOP AT it_extension_in INTO ls_extension.
        IF ls_extension-structure = 'ZWMS_RESB_APPEND'.
          ls_resb_append = ls_extension-valuepart1.
          READ TABLE resb ASSIGNING FIELD-SYMBOL(<fs_resb>) INDEX ls_resb_append-rspos.
          IF sy-subrc EQ 0.
            <fs_resb>-sobkz = ls_resb_append-sobkz."特殊标识
          ENDIF.
        ENDIF.
      ENDLOOP.
  ENDMETHOD.
"-----------------------------------------@斌将军--------------------------------------------

调用BAPI时，传入特殊标识，RSPOS传入个行号就行

2、MB22修改预留

修改已完成标识

调用BAPI：BAPI_RESERVATION_CHANGE

"-----------------------------------------@斌将军--------------------------------------------
DATA:lv_reservation               TYPE bapi2093_res_key-reserv_no,
     lt_reservationitems_changed  TYPE TABLE OF bapi2093_res_item_change,
     ls_reservationitems_changed  TYPE bapi2093_res_item_change,
     lt_reservationitems_changedx TYPE TABLE OF bapi2093_res_item_changex,
     ls_reservationitems_changedx TYPE bapi2093_res_item_changex,
     lt_reservationitems_new      TYPE TABLE OF bapi2093_res_item_new,
     ls_reservationitems_new      TYPE bapi2093_res_item_new,
     lt_return                    TYPE TABLE OF bapiret2 WITH HEADER LINE.

DATA:lv_check   TYPE char1,
     lv_message TYPE char200.

lv_reservation = 2989.

CLEAR:ls_reservationitems_changed.
ls_reservationitems_changed-res_item = 1."预留 / 相关需求的项目编号
ls_reservationitems_changed-withdrawn = 'X'."该预定的最后发货KZEAR
APPEND ls_reservationitems_changed TO lt_reservationitems_changed.

CLEAR:ls_reservationitems_changedx.
ls_reservationitems_changedx-res_item = 1."预留 / 相关需求的项目编号
ls_reservationitems_changedx-withdrawn = 'X'."该预定的最后发货KZEAR
APPEND ls_reservationitems_changedx TO lt_reservationitems_changedx.

CALL FUNCTION 'BAPI_RESERVATION_CHANGE'
  EXPORTING
    reservation               = lv_reservation
  TABLES
    reservationitems_changed  = lt_reservationitems_changed
    reservationitems_changedx = lt_reservationitems_changedx
*   RESERVATIONITEMS_NEW      =
    return                    = lt_return.

CLEAR:lv_check,lv_message.
LOOP AT lt_return WHERE type CA 'EAX'.
  lv_message = lv_message && lt_return-message.
  lv_check = 'E'.
ENDLOOP.

IF lv_check = 'E'.
  CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ELSE.
  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait = 'X'.
ENDIF.
"-----------------------------------------@斌将军--------------------------------------------

定期更文，欢迎关注

 

 

 

 

 

 

TRANSLATE with x

English

Arabic	Hebrew	Polish
Bulgarian	Hindi	Portuguese
Catalan	Hmong Daw	Romanian
Chinese Simplified	Hungarian	Russian
Chinese Traditional	Indonesian	Slovak
Czech	Italian	Slovenian
Danish	Japanese	Spanish
Dutch	Klingon	Swedish
English	Korean	Thai
Estonian	Latvian	Turkish
Finnish	Lithuanian	Ukrainian
French	Malay	Urdu
German	Maltese	Vietnamese
Greek	Norwegian	Welsh
Haitian Creole	Persian

 

TRANSLATE with

COPY THE URL BELOW

Back

EMBED THE SNIPPET BELOW IN YOUR SITE

Enable collaborative features and customize widget: Bing Webmaster Portal

Back

 

 

此页面的语言为英语

 

翻译为中文（简体）

 

 

 

 

• 中文（简体）
• 中文（繁体）
• 丹麦语
• 乌克兰语
• 乌尔都语
• 亚美尼亚语
• 俄语
• 保加利亚语
• 克罗地亚语
• 冰岛语
• 加泰罗尼亚语
• 匈牙利语
• 卡纳达语
• 印地语
• 印尼语
• 古吉拉特语
• 哈萨克语
• 土耳其语
• 威尔士语
• 孟加拉语
• 尼泊尔语
• 布尔语(南非荷兰语)
• 希伯来语
• 希腊语
• 库尔德语
• 德语
• 意大利语
• 拉脱维亚语
• 挪威语
• 捷克语
• 斯洛伐克语
• 斯洛文尼亚语
• 旁遮普语
• 日语
• 普什图语
• 毛利语
• 法语
• 波兰语
• 波斯语
• 泰卢固语
• 泰米尔语
• 泰语
• 海地克里奥尔语
• 爱沙尼亚语
• 瑞典语
• 立陶宛语
• 缅甸语
• 罗马尼亚语
• 老挝语
• 芬兰语
• 英语
• 荷兰语
• 萨摩亚语
• 葡萄牙语
• 西班牙语
• 越南语
• 阿塞拜疆语
• 阿姆哈拉语
• 阿尔巴尼亚语
• 阿拉伯语
• 韩语
• 马尔加什语
• 马拉地语
• 马拉雅拉姆语
• 马来语
• 马耳他语
• 高棉语

 

随时将英语翻译为中文（简体）PRO
一律不翻译英语
一律不翻译i.cnblogs.com