采购订单创建、修改、审批增强ME21N/ME22N/ME28/ME29N

一、采购订单创建修改增强

BADI：ME_PROCESS_PO_CUST

通过POST方法中的参数im_header，获取对应的数据

订单头

"-----------------------------------------@斌将军--------------------------------------------
*Get header
  CALL METHOD im_header->get_data
    RECEIVING
      re_data = header.
*获取长文本
  REFRESH ex_textlines.
  CALL METHOD im_header->if_longtexts_mm~get_text
    EXPORTING
      im_tdid      = im_tdid
    IMPORTING
      ex_textlines = ex_textlines.

im_header->set_data( header )."更新修改
"-----------------------------------------@斌将军--------------------------------------------

订单行

"-----------------------------------------@斌将军--------------------------------------------
"获取行
*Get Item
  CALL METHOD im_header->get_items
    RECEIVING
      re_items = items_data.

LOOP AT items_data INTO item_data.
**  First get Item Object, Second fill item data
    "获取行对象
      item_obj = item_data-item.
    "获取行字段值
      CALL METHOD item_obj->get_data
        RECEIVING
          re_data = item.
    "获取行长文本
      REFRESH ex_textlines.
      CALL METHOD item_obj->if_longtexts_mm~get_text
        EXPORTING
          im_tdid      = im_tdid
        IMPORTING
          ex_textlines = ex_textlines.

　　　　item_obj->set_data( item )."更新修改

ENDLOOP.
"-----------------------------------------@斌将军--------------------------------------------

计划行

"-----------------------------------------@斌将军--------------------------------------------
"获取计划行
      CALL METHOD item_obj->get_schedules
        RECEIVING
          re_schedules = schedules_data.

      LOOP AT schedules_data INTO schedule_data.
        schedule_obj = schedule_data-schedule.
        CALL METHOD schedule_obj->get_data
          RECEIVING
            re_data = schedule.

schedule_obj->set_data(schedule)."更新修改

ENDLOOP. "-----------------------------------------@斌将军--------------------------------------------

更新字段要注意，存在有不可更新的字段，例如行项目中的不可直接更新字段，使用set_data也更新不了

二、采购订单审批同步外围系统增强

函数：ME_PURCHASE_DOCUMENT_DATA_SAVE

调用接口同步数据到外围系统

"-----------------------------------------@斌将军--------------------------------------------
ENHANCEMENT 1  ZME28.    "active version
"采购订单审批发送SRM接口
CALL FUNCTION 'Z_XXX' "IN BACKGROUND TASK DESTINATION 'NONE'
  EXPORTING
    i_ekko        = E_EKKO.
ENDENHANCEMENT.
"-----------------------------------------@斌将军--------------------------------------------

定期更文，欢迎关注

 

 

 

此页面的语言为英语

 

翻译为中文（简体）

 

 

 

 

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

 

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

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