SAP 业务 · Small Fire

原文：Small Fire · 获取工单状态 · SAP 业务 子专栏 · Small Fire 技术笔记 gsdfasf 工单状态获取 SELECT SINGLE kdauf kdpos objnr auart zz_ci_flag INTO (l_kdauf, l_kdpos, l_objnr, l_auart, l_zz_ci_flag) FROM aufk WHERE aufnr = i_aufnr. 获取工单状态 SELECT SINGLE * INTO ls_jest FROM jest WHERE objnr = l_objnr AND stat = 'I0045' AND inact = ''. IF sy-subrc = 0. ELSE.

原文：Small Fire · WM 盘点 · SAP 业务 子专栏 · Small Fire 技术笔记 基本盘点流程 Step1：创建盘点凭证 MI01：逐行创建盘点凭证 MI31：批量输入创建盘点凭证（一次最多300行） Step2：打印盘点凭证 MI03：查看盘点凭证 MI21：打印盘点凭证或 SE16 导出凭证明细 Step3：核查实际库存数量 使用自开发的程序进行线下盘点的数据收集 Step4：录入实盘数 MI04：录入实盘数 将有差异的部分按照要求整理成 Excel；ABAP 开发程序调用 BAPI_MATPHYSINV_COUNT 导入Excel、执行程序录入实盘数 BAPI 传入实盘数时，行项目号要和盘点凭证一致，单位要传；如果盘点结果为 0，则应该设置 ZeroCount = X Step5：查询盘点差异 MI20：查询盘点差异，如果没有差异可以执行过账操作；如果有差异需要查找差异原因，再次核查实际的库存数量 MI05：更改盘点数据，将有差异并再次盘点的库存数量输入盘点凭证 Step6：差异过账 MI07：盘点过账操作，如果有差异则生成物料凭证及财务凭证，无差异则只是关闭盘点凭证 如果 MI07 盘点完成发现错误，可选用两种方式修正数据 MI10：直接修正盘点数据 重新盘点 SAP库存盘点其它操作 删除盘点凭证 创建盘点凭证后，该物料将被过账冻结，直至盘点完成后才能开解，在此期间不可产生物料凭证。如果想删除盘点凭证，可用TCODE：MI02 作删除标志。 相关表 Table Description LQUA Material & Storage Bin Stock IKPF Header: Physical Inventory Document ISEG Physical Inventory Document Items

原文：Small Fire · SAP 获取库存函数 · SAP 业务 子专栏 · Small Fire 技术笔记 SAP 的库存种类有很多中取数逻辑，这里整理下，汇总成的一个接口函数。 库存类型和对应表 库存类型 当前库存 历史库存 库存金额 库存历史金额 工厂级别库存 MARC & MBEW MARCH MBEW MBEWH 库存地点库存 MARD MARDH MBEW MBEWH 批次库存 MCHB MCHBH MBEW MBEWH 销售订单库存 MSKA MSKAH EBEW EBEWH 项目库存 MSPR MSPRH QBEW QBEWH 供应商寄售库存 MKOL MKOLH MBEW MBEWH 供应商外包库存 MSLB MSLBH MBEW MBEWH 客户寄售库存 MSKU MSKUH MBEW MBEWH MBEW：按照物料+工厂记录物料在工厂下的数量和金额。 MBWEH：记录历史库存，按照物料+工厂+月份记录物料特定月份在工厂下的数量和金额。 相关的特殊库存标识 K：寄售库存 O：委外加工库存（分包） E：销售订单库存 Q：项目库存 获取库存函数 FUNCTION zwi_get_stock. *"---------------------------------------------------------------------- *"*"Local Interface: *" IMPORTING *" VALUE(PLANT) TYPE WERKS_D *" VALUE(MATERIAL) TYPE MATNR *" VALUE(UNIT) TYPE MEINH *" VALUE(STGE_LOC) TYPE LGORT_D *" VALUE(BATCH) TYPE CHARG_D OPTIONAL *" VALUE(VBELN) TYPE VBELN OPTIONAL *" VALUE(POSNR) TYPE POSNR_BI OPTIONAL *" VALUE(STOCK_TYPE) TYPE CHAR2 OPTIONAL *" EXPORTING *" VALUE(AV_QTY_PLT) TYPE MNG01 *" TABLES *" E_RETURN STRUCTURE BAPIRET2 *"---------------------------------------------------------------------- DATA: ls_mara TYPE mara, ls_mchb TYPE mchb, ls_mard TYPE mard, ls_mska TYPE mska, ls_mspr TYPE mspr. DATA: menge_ur TYPE mng01. "Valuated Unrestricted-Use Stock" DATA: menge_qi TYPE mng01. "Stock in Quality Inspection" DATA: menge_blocked TYPE mng01. "Blocked Stock" DATA: menge_return TYPE mng01. "Stock Result" CLEAR: ls_mara. SELECT SINGLE matnr meins xchpf INTO (ls_mara-matnr, ls_mara-meins, ls_mara-xchpf) FROM mara WHERE matnr = material. IF ls_mara-xchpf = 'X'. "Get batch management stock" CLEAR: ls_mchb. SELECT SINGLE clabs cinsm cspem INTO (ls_mchb-clabs,ls_mchb-cinsm,ls_mchb-cspem) FROM mchb WHERE werks = plant AND matnr = material AND lgort = stge_loc AND charg = batch. IF sy-subrc = 0. menge_ur = ls_mchb-clabs. menge_qi = ls_mchb-cinsm. menge_blocked = ls_mchb-cspem. ENDIF. "Get project stock" SELECT SINGLE prlab prins prspe INTO (ls_mspr-prlab,ls_mspr-prins,ls_mspr-prspe) FROM mspr WHERE werks = plant AND matnr = material AND lgort = stge_loc AND charg = batch. IF sy-subrc EQ 0 . menge_ur = ls_mspr-prlab. menge_qi = ls_mspr-prins. menge_blocked = ls_mspr-prspe. ENDIF. ELSE. "Get non-batch management stock" CLEAR: ls_mard. SELECT SINGLE labst insme speme INTO (ls_mard-labst,ls_mard-insme,ls_mard-speme) FROM mard WHERE werks = plant AND matnr = material AND lgort = stge_loc. IF sy-subrc = 0. menge_ur = ls_mard-labst. menge_qi = ls_mard-insme. menge_blocked = ls_mard-speme. ENDIF. ENDIF. "Sales order stock" IF vbeln IS NOT INITIAL. SELECT SINGLE kalab kains kaspe INTO (ls_mska-kalab,ls_mska-kains,ls_mska-kaspe) FROM mska WHERE matnr = material AND werks = plant AND lgort = stge_loc AND charg = batch AND vbeln = vbeln AND posnr = posnr. IF sy-subrc = 0. menge_ur = ls_mska-kalab. menge_qi = ls_mska-kains. menge_blocked = ls_mska-kaspe. ENDIF. ENDIF. IF STOCK_TYPE IS INITIAL. menge_return = menge_ur. "UR Stock" ELSEIF STOCK_TYPE EQ 'QI'. menge_return = menge_qi. "QI Stock" ELSEIF STOCK_TYPE EQ 'BK'. megne_return = menge_blocked. "Blocked Stock" ENDIF. CLEAR: menge_return. IF ls_mara-meins <> unit. CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT' EXPORTING i_matnr = material i_in_me = ls_mara-meins i_out_me = unit i_menge = menge_return IMPORTING e_menge = av_qty_plt EXCEPTIONS error_in_application = 1 error = 2 OTHERS = 3. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 INTO e_return-message. e_return-type = 'E'. RETURN. ENDIF. ELSE. av_qty_plt = menge_return. ENDIF. ENDFUNCTION.

原文：Small Fire · SAP 获取库存函数 · SAP 业务 子专栏 · Small Fire 技术笔记 SAP 的库存种类有很多中取数逻辑，这里整理下，汇总成的一个接口函数。 库存类型和对应表 库存类型 当前库存 历史库存 库存金额 库存历史金额 工厂级别库存 MARC & MBEW MARCH MBEW MBEWH 库存地点库存 MARD MARDH MBEW MBEWH 批次库存 MCHB MCHBH MBEW MBEWH 销售订单库存 MSKA MSKAH EBEW EBEWH 项目库存 MSPR MSPRH QBEW QBEWH 供应商寄售库存 MKOL MKOLH MBEW MBEWH 供应商外包库存 MSLB MSLBH MBEW MBEWH 客户寄售库存 MSKU MSKUH MBEW MBEWH MBEW：按照物料+工厂记录物料在工厂下的数量和金额。 MBWEH：记录历史库存，按照物料+工厂+月份记录物料特定月份在工厂下的数量和金额。 相关的特殊库存标识 K：寄售库存 O：委外加工库存（分包） E：销售订单库存 Q：项目库存 获取库存函数 FUNCTION zwi_get_stock. *"---------------------------------------------------------------------- *"*"Local Interface: *" IMPORTING *" VALUE(PLANT) TYPE WERKS_D *" VALUE(MATERIAL) TYPE MATNR *" VALUE(UNIT) TYPE MEINH *" VALUE(STGE_LOC) TYPE LGORT_D *" VALUE(BATCH) TYPE CHARG_D OPTIONAL *" VALUE(VBELN) TYPE VBELN OPTIONAL *" VALUE(POSNR) TYPE POSNR_BI OPTIONAL *" VALUE(STOCK_TYPE) TYPE CHAR2 OPTIONAL *" EXPORTING *" VALUE(AV_QTY_PLT) TYPE MNG01 *" TABLES *" E_RETURN STRUCTURE BAPIRET2 *"---------------------------------------------------------------------- DATA: ls_mara TYPE mara, ls_mchb TYPE mchb, ls_mard TYPE mard, ls_mska TYPE mska, ls_mspr TYPE mspr. DATA: menge_ur TYPE mng01. "Valuated Unrestricted-Use Stock" DATA: menge_qi TYPE mng01. "Stock in Quality Inspection" DATA: menge_blocked TYPE mng01. "Blocked Stock" DATA: menge_return TYPE mng01. "Stock Result" CLEAR: ls_mara. SELECT SINGLE matnr meins xchpf INTO (ls_mara-matnr, ls_mara-meins, ls_mara-xchpf) FROM mara WHERE matnr = material. IF ls_mara-xchpf = 'X'. "Get batch management stock" CLEAR: ls_mchb. SELECT SINGLE clabs cinsm cspem INTO (ls_mchb-clabs,ls_mchb-cinsm,ls_mchb-cspem) FROM mchb WHERE werks = plant AND matnr = material AND lgort = stge_loc AND charg = batch. IF sy-subrc = 0. menge_ur = ls_mchb-clabs. menge_qi = ls_mchb-cinsm. menge_blocked = ls_mchb-cspem. ENDIF. "Get project stock" SELECT SINGLE prlab prins prspe INTO (ls_mspr-prlab,ls_mspr-prins,ls_mspr-prspe) FROM mspr WHERE werks = plant AND matnr = material AND lgort = stge_loc AND charg = batch. IF sy-subrc EQ 0 . menge_ur = ls_mspr-prlab. menge_qi = ls_mspr-prins. menge_blocked = ls_mspr-prspe. ENDIF. ELSE. "Get non-batch management stock" CLEAR: ls_mard. SELECT SINGLE labst insme speme INTO (ls_mard-labst,ls_mard-insme,ls_mard-speme) FROM mard WHERE werks = plant AND matnr = material AND lgort = stge_loc. IF sy-subrc = 0. menge_ur = ls_mard-labst. menge_qi = ls_mard-insme. menge_blocked = ls_mard-speme. ENDIF. ENDIF. "Sales order stock" IF vbeln IS NOT INITIAL. SELECT SINGLE kalab kains kaspe INTO (ls_mska-kalab,ls_mska-kains,ls_mska-kaspe) FROM mska WHERE matnr = material AND werks = plant AND lgort = stge_loc AND charg = batch AND vbeln = vbeln AND posnr = posnr. IF sy-subrc = 0. menge_ur = ls_mska-kalab. menge_qi = ls_mska-kains. menge_blocked = ls_mska-kaspe. ENDIF. ENDIF. IF STOCK_TYPE IS INITIAL. menge_return = menge_ur. "UR Stock" ELSEIF STOCK_TYPE EQ 'QI'. menge_return = menge_qi. "QI Stock" ELSEIF STOCK_TYPE EQ 'BK'. megne_return = menge_blocked. "Blocked Stock" ENDIF. CLEAR: menge_return. IF ls_mara-meins <> unit. CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT' EXPORTING i_matnr = material i_in_me = ls_mara-meins i_out_me = unit i_menge = menge_return IMPORTING e_menge = av_qty_plt EXCEPTIONS error_in_application = 1 error = 2 OTHERS = 3. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 INTO e_return-message. e_return-type = 'E'. RETURN. ENDIF. ELSE. av_qty_plt = menge_return. ENDIF. ENDFUNCTION.

原文：Small Fire · SAP Domain 增强 · SAP 业务 子专栏 · Small Fire 技术笔记 Domain 值范围增加固定值 Step1 : Fixed Value Append se11 进入domain 显示界面，选择 Goto -> Fixed Value Append 弹出下面对话框，输入自定义的 Fixed Value Append 名称： Step2: 维护添加值 保存并激活。 Step3:查看效果并使用

原文：Small Fire · User Exit for CO11N · SAP 业务 子专栏 · Small Fire 技术笔记 User Exits for CO11N Exit Name Description CONF0001 Enhancements in order confirmation CONFPI01 Process order conf.: Calculate cust.specific default values CONFPI02 Process order confirmation: Customer spec. input checks 1 CONFPI03 Process order conf.: Cust. spec. check after op. selection CONFPI04 Process order conf.: Customer specific input checks 2 CONFPI05 Process order conf.: Cust. spec. enhancements when saving CONFPI06 Process order confirmation: Actual data transfer CONFPM01 PM/SM order conf.: Determine cust. specific default values CONFPM02 PM/SM order confirmation: Customer specific input checks 1 CONFPM03 PM/SM order conf.: Cust. spec. check after op. selection CONFPM04 PM/SM order conf.: Customer specific input check 2 CONFPM05 PM/SM order conf.: Cust. specific enhancements when saving CONFPP01 PP order conf.: Determine customer specific default values CONFPP02 PP order conf.: Customer specific input checks 1 CONFPP03 PP order conf.: Cust. specific check after op. selection CONFPP04 PP order conf.: Customer specific input checks 2 CONFPP05 PP order conf.: Customer specific enhancements when saving CONFPP06 PP Order Confirmations: Actual Data Transfer CONFPP07 Single Screen Entry: Inclusion of User-Defined Subscreens CONFPS01 PS confirmation: Determine customer specific default values CONFPS02 PS confirmation: Customer specific input checks 1 CONFPS03 PS confirmation: Customer specific check after op. selection CONFPS04 PS confirmation: Customer specific input checks 2 CONFPS05 PS confirmation: Customer specific enhancements when saving BAPI for CO11N WORKORDER_CONFIRM WORKORDER_GOODSMVT

原文：Small Fire · User Exit for CO11N · SAP 业务 子专栏 · Small Fire 技术笔记 User Exits for CO11N Exit Name Description CONF0001 Enhancements in order confirmation CONFPI01 Process order conf.: Calculate cust.specific default values CONFPI02 Process order confirmation: Customer spec. input checks 1 CONFPI03 Process order conf.: Cust. spec. check after op. selection CONFPI04 Process order conf.: Customer specific input checks 2 CONFPI05 Process order conf.: Cust. spec. enhancements when saving CONFPI06 Process order confirmation: Actual data transfer CONFPM01 PM/SM order conf.: Determine cust. specific default values CONFPM02 PM/SM order confirmation: Customer specific input checks 1 CONFPM03 PM/SM order conf.: Cust. spec. check after op. selection CONFPM04 PM/SM order conf.: Customer specific input check 2 CONFPM05 PM/SM order conf.: Cust. specific enhancements when saving CONFPP01 PP order conf.: Determine customer specific default values CONFPP02 PP order conf.: Customer specific input checks 1 CONFPP03 PP order conf.: Cust. specific check after op. selection CONFPP04 PP order conf.: Customer specific input checks 2 CONFPP05 PP order conf.: Customer specific enhancements when saving CONFPP06 PP Order Confirmations: Actual Data Transfer CONFPP07 Single Screen Entry: Inclusion of User-Defined Subscreens CONFPS01 PS confirmation: Determine customer specific default values CONFPS02 PS confirmation: Customer specific input checks 1 CONFPS03 PS confirmation: Customer specific check after op. selection CONFPS04 PS confirmation: Customer specific input checks 2 CONFPS05 PS confirmation: Customer specific enhancements when saving BAPI for CO11N WORKORDER_CONFIRM WORKORDER_GOODSMVT

原文：Small Fire · User Exit for MIGO · SAP 业务 子专栏 · Small Fire 技术笔记 MIGO 简介 内向交货的收货流程是供应链的重要组成部分。此过程包括创建采购订单后的步骤：通知，收货，随后的货物下达以及所订购货物的收货过帐。 根据未清采购订单数量处理好收货。使用称为移动类型的三位数密钥系统，将货物接收到工厂中并移动到其他存储位置。有助于区分货物移动。 好的收据通过以下方式记录货物或物料的向内移动： 根据订单验证收货 评估采购订单中的物料 创建物料和会计凭证以记录事件 为发票校验提供依据 Goods receive 的结果 物料凭证的创建 成功过帐收货后，系统会自动创建一个物料凭证，以作为货物移动的凭证。 创建会计凭证 与物料凭证并行，系统还会创建会计凭证。会计凭证包含移动所需的过帐行（用于对应帐户）。 Transaction Code – MIGO : Goods movement Exit Name Description MB_CF001 Customer Function Exit in the Case of Updating a Mat. Doc. MBCF0002 Customer function exit: Segment text in material doc. item MBCF0003 Maintenance of batch master data for goods movements MBCF0004 Maintenance of batch specifications for goods movements MBCF0005 Material document item for goods receipt/issue slip MBCF0006 Customer function for WBS element MBCF0007 Customer function exit: Updating a reservation MBCF0009 Filling the storage location field MBCF0010 Customer exit: Create reservation BAPI_RESERVATION_CREATE1 MBCF0011 Read from RESB and RKPF for print list in MB26

原文：Small Fire · User Exit for MIGO · SAP 业务 子专栏 · Small Fire 技术笔记 MIGO 简介 内向交货的收货流程是供应链的重要组成部分。此过程包括创建采购订单后的步骤：通知，收货，随后的货物下达以及所订购货物的收货过帐。 根据未清采购订单数量处理好收货。使用称为移动类型的三位数密钥系统，将货物接收到工厂中并移动到其他存储位置。有助于区分货物移动。 好的收据通过以下方式记录货物或物料的向内移动： 根据订单验证收货 评估采购订单中的物料 创建物料和会计凭证以记录事件 为发票校验提供依据 Goods receive 的结果 物料凭证的创建 成功过帐收货后，系统会自动创建一个物料凭证，以作为货物移动的凭证。 创建会计凭证 与物料凭证并行，系统还会创建会计凭证。会计凭证包含移动所需的过帐行（用于对应帐户）。 Transaction Code – MIGO : Goods movement Exit Name Description MB_CF001 Customer Function Exit in the Case of Updating a Mat. Doc. MBCF0002 Customer function exit: Segment text in material doc. item MBCF0003 Maintenance of batch master data for goods movements MBCF0004 Maintenance of batch specifications for goods movements MBCF0005 Material document item for goods receipt/issue slip MBCF0006 Customer function for WBS element MBCF0007 Customer function exit: Updating a reservation MBCF0009 Filling the storage location field MBCF0010 Customer exit: Create reservation BAPI_RESERVATION_CREATE1 MBCF0011 Read from RESB and RKPF for print list in MB26

原文：Small Fire · 批量创建/修改物料主数据 · SAP 业务 子专栏 · Small Fire 技术笔记 BAPI_MATERIAL_SAVEDATA 使用实例 REPORT ZUPDATE_MATNR. "$. Region BAPI Data" DATA gs_bapimathead TYPE bapimathead. " 物料号 物料类型 物料视图表 " DATA gs_bapi_mara TYPE bapi_mara. " MARA数据-基本视图数据 " DATA gs_bapi_marax TYPE bapi_marax. " 变更数据标识 " DATA gs_bapi_mvke TYPE bapi_mvke. " 销售视图 " DATA gs_bapi_mvkex TYPE bapi_mvkex. DATA gs_bapi_marc TYPE bapi_marc. " 工厂级别数据 " DATA gs_bapi_marcx TYPE bapi_marcx. DATA gs_bapi_mpgd TYPE bapi_mpgd. " 计划数据 " DATA gs_bapi_mpgdx TYPE bapi_mpgdx. DATA gs_bapi_mbew TYPE bapi_mbew. " 会计成本视图 " DATA gs_bapi_mbewx TYPE bapi_mbewx. DATA gs_bapi_mard TYPE bapi_mard. " 存储位置 " DATA gs_bapi_mardx TYPE bapi_mardx. DATA gs_bapi_mlgn TYPE bapi_mlgn. " 仓库数据 " DATA gs_bapi_mlgnx TYPE bapi_mlgnx. DATA gs_bapi_mlgt TYPE bapi_mlgt. " 存储类型数据 " DATA gs_bapi_mlgtx TYPE bapi_mlgtx. DATA gs_return TYPE bapiret2. " 返回参数 " DATA gt_bapi_makt LIKE TABLE OF bapi_makt WITH HEADER LINE. " 物料描述 " DATA gt_bapi_marm LIKE TABLE OF bapi_marm WITH HEADER LINE. " 物料的单位换算 " DATA gt_bapi_marmx LIKE TABLE OF bapi_marmx WITH HEADER LINE. DATA gt_bapi_mlan LIKE TABLE OF bapi_mlan WITH HEADER LINE . " 税分类 " DATA gt_bapi_mltx LIKE TABLE OF bapi_mltx WITH HEADER LINE . " 文本数据 " DATA gt_return1 LIKE TABLE OF bapi_matreturn2 WITH HEADER LINE." 返回信息 " DATA:gs_bapi_te_mara LIKE bapi_te_mara, " 自定i增强字段:客户级别的物料数据 " gs_bapi_te_marax LIKE bapi_te_marax. DATA:gs_bapi_te_e1mvke LIKE bapi_te_e1mvke, " 自定义增强字段：销售视图 " gs_bapi_te_e1mvkex LIKE bapi_te_e1mvkex. DATA:gt_extensionin LIKE TABLE OF bapiparex WITH HEADER LINE, " 附加结构 " gt_extensioninx LIKE TABLE OF bapiparexx WITH HEADER LINE. DATA:l_valuepart(960),l_valuepartx(960). DATA: pr_unit TYPE meins, " 基本单位 " pr_unit2 TYPE meins. " 重量单位 " "$. Endregion BAPI Data" "$. Region Structure" DATA:BEGIN OF itab OCCURS 0, head_material TYPE matnr, " 物料号 " head_ind_sector TYPE mbrsh, " 行业领域 " head_matl_type TYPE mtart, " 物料类型 " t_makt_matl_desc TYPE maktx, " 物料描述 " mara_base_uom TYPE meins, " 基本计量单位 " mara_matl_group TYPE matkl, " 物料组 " t_old_mat_no TYPE bismt, " 型号 " mara_division TYPE spart, " 产品组 " t_dsn_office TYPE labor, " 实验室 / 办公室 " mara_item_cat TYPE mtpos_mara, " 普通项目组类别 " t_marm_gross_wt TYPE brgew, " 毛重 " mara_unit_of_wt TYPE gewei, " 重量单位 " mara_net_weight TYPE ntgew, " 净重 " mara_size_dim TYPE groes, " 大小 / 量纲 " zz_model TYPE char30, " 屏幕增强字段 " zz_drawing TYPE char27, " 屏幕增强字段 " zz_color TYPE char20, " 屏幕增强字段 " END OF itab. DATA itab1 TYPE itab OCCURS 0 WITH HEADER LINE. * 原材料 DATA: BEGIN OF str_material, marc_plant TYPE werks_d, "工厂" mard_stge_loc TYPE lgort_d,"库存地点 mvke_sales_org TYPE vkorg, "销售组织 mvke_distr_chan TYPE vtweg,"分销渠道 head_material TYPE matnr, "物料号 head_ind_sector TYPE mbrsh,"行业领域 head_matl_type TYPE mtart, "物料类型 t_makt_matl_desc TYPE maktx,"物料描述 mara_base_uom TYPE meins, "基本计量单位 mara_matl_group TYPE matkl,"物料组 mara_extmatlgrp TYPE extwg,"外部物料组 mara_item_cat TYPE mtpos_mara,"普通项目组类别 t_marm_gross_wt TYPE brgew,"毛重 t_marm_unit_of_wt TYPE gewei,"重量单位 mara_net_weight TYPE ntgew,"净重 t_marm_volume TYPE volum, "标准箱 t_marm_volumeunit TYPE voleh,"体积单位 mvke_sales_unit TYPE vrkme,"销售单位 t_mlan_taxclass1 TYPE taxkm, "税分类1 t_mlan_taxclass2 TYPE taxkm, "税分类2 mvke_matl_stats TYPE stgma, "物料统计组 mvke_acct_assgt TYPE ktgrm, "科目设置组 mvke_item_cat TYPE mtpos, "来自物料主文件的项目主类别 marc_availcheck TYPE mtvfp, "可用性检查 mara_trans_grp TYPE tragr, "运输组 marc_loadinggrp TYPE ladgr, "装载组 marc_pur_group TYPE ekgrp, "采购组 marc_batch_mgmt TYPE xchpf, "批次管理标示 marc_auto_p_ord TYPE kautb, "自动采购订单 marc_ind_post_to_insp_stock TYPE insmk_mat,"过账到检验库存 marc_quotausage TYPE usequ, "配额安排 marc_sourcelist TYPE kordb, "源清单 marc_mrp_group TYPE disgr, "MRP组 marc_mrp_type TYPE dismm, "MRP类型 marc_mrp_ctrler TYPE dispo, "MRP控制者 marc_lotsizekey TYPE disls, "批量 marc_minlotsize TYPE bstmi, "最小批量 marc_maxlotsize TYPE bstma, "最大批量 marc_round_val TYPE bstrf, "舍入值 marc_proc_type TYPE beskz, "采购类型 marc_backflush TYPE rgekm, "反冲 marc_plnd_delry TYPE plifz, "计划交货时间 marc_gr_pr_time TYPE webaz, "收货处理时间 marc_safety_stk TYPE eisbe, "安全库存 marc_sm_key TYPE fhori, "计划边际码 marc_plan_strgp TYPE strgp, "策略组 marc_alt_bom_id TYPE altsl, "选择方法 stge_loc TYPE lgort_d, "库存地点,占位，不用取出赋值，同上边库存地点 mbew_val_class TYPE bklas, "评估类 mbew_price_ctrl TYPE vprsv, "价格控制 mbew_price_unit TYPE peinh, "价格单位 mbew_moving_pr TYPE verpr_bapi,"移动平均价 mbew_std_price TYPE stprs_bapi,"标准价格 mbew_qty_struct TYPE ck_ekalrel,"用QS的成本估算 mbew_orig_mat TYPE hkmat, "物料来源 END OF str_material. DATA: it_material LIKE TABLE OF str_material. "$. Endregion Structure" START-OF-SELECTION. PERFORM prepare_data. PERFORM excute_bapi. *&---------------------------------------------------------------------* *& Form PREPARE_DATA *&---------------------------------------------------------------------* FORM prepare_data . DATA : lv_matnr TYPE char18. itab-head_material = '1500-620'. itab-head_ind_sector = 'M'. itab-head_matl_type = 'HIBE'. " 物料类型 " itab-mara_base_uom = 'CSE'. " 基本计量单位 " itab-mara_matl_group = '010'. " 物料组 " itab-t_old_mat_no = 'test007'. " 型号 " itab-mara_division = '00'. " 产品组 " itab-t_dsn_office = '001'. " 实验室 / 办公室 " itab-mara_item_cat = 'NORM'. " 普通项目组类别 " itab-mara_net_weight = 2. " 净重 " * itab-mara_normt = ''. " 行业标准描述 " itab-mara_size_dim = '2*3'. " 大小 / 量纲 " itab-t_marm_gross_wt = 22 / 10. " 毛重 " itab-mara_unit_of_wt = 'KG'. " 重量单位 " itab-t_makt_matl_desc = '10W40 MOTOR OIL CASE test'. " 物料描述 " CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = itab-head_material IMPORTING output = itab-head_material. lv_matnr = itab-head_material. TRANSLATE lv_matnr TO UPPER CASE. itab-head_material = lv_matnr. APPEND itab. ENDFORM. " PREPARE_DATA " *&---------------------------------------------------------------------* *& Form EXCUTE_BAPI *&---------------------------------------------------------------------* FORM excute_bapi . LOOP AT itab. CLEAR: gs_bapimathead,gs_bapi_mara,gs_bapi_marax,gs_bapi_marc, gs_bapi_marcx,gs_bapi_mbew,gs_bapi_mbewx,gs_return. CLEAR: gt_bapi_makt,gt_bapi_marm,gt_bapi_marmx,gt_bapi_mlan,gt_return1. REFRESH:gt_bapi_makt,gt_bapi_marm,gt_bapi_marmx,gt_bapi_mlan,gt_return1. " 表头控制数据 " gs_bapimathead-material = itab-head_material. " 物料编码 " gs_bapimathead-matl_type = itab-head_matl_type. " 物料类型 " gs_bapimathead-ind_sector = itab-head_ind_sector." 行业领域 " gs_bapimathead-basic_view = 'X'. " 基本数据视图 " gs_bapimathead-purchase_view = 'X'. " 采购视图 " gs_bapimathead-mrp_view = 'X'. " MRP数据视图 " * gs_bapimathead-work_sched_view = 'X'. " 工作计划 " * gs_bapimathead-quality_view = 'X'. " 质量管理视图 " * gs_bapimathead-storage_view = 'X'. " 工厂存储 " * gs_bapimathead-sales_view = 'X'. " 销售 " * gs_bapimathead-account_view = 'X'. " 会计 " * gs_bapimathead-cost_view = 'X'. " 成本 " CLEAR: pr_unit,pr_unit2. PERFORM frm_unit USING itab-mara_base_uom CHANGING pr_unit. " 基本单位 " PERFORM frm_unit USING itab-mara_unit_of_wt CHANGING pr_unit2. " 重量单位 " " 基本数据视图数据 " gs_bapi_mara-base_uom = pr_unit. " 基本计量单位 " gs_bapi_mara-matl_group = itab-mara_matl_group. " 物料组 " gs_bapi_mara-old_mat_no = itab-t_old_mat_no. " 型号 " gs_bapi_mara-division = itab-mara_division. " 产品组 " gs_bapi_mara-dsn_office = itab-t_dsn_office. " 实验室 / 办公室 " gs_bapi_mara-item_cat = itab-mara_item_cat. " 普通项目组类别 " gs_bapi_mara-unit_of_wt = pr_unit2. " 重量单位 " gs_bapi_mara-net_weight = itab-mara_net_weight. " 净重 " gs_bapi_mara-size_dim = itab-mara_size_dim. " 大小 / 量纲 " gs_bapi_marax-base_uom = 'X'. gs_bapi_marax-matl_group = 'X'. gs_bapi_marax-old_mat_no = 'X'. gs_bapi_marax-division = 'X'. gs_bapi_marax-dsn_office = 'X'. gs_bapi_marax-item_cat = 'X'. gs_bapi_marax-unit_of_wt = 'X'. gs_bapi_marax-net_weight = 'X'. gs_bapi_marax-size_dim = 'X'. " 计量单位 " gt_bapi_marm-alt_unit = pr_unit. " 替换单位 (必须为基本计量单位，否则会报错：没有转换因子) " gt_bapi_marm-numerator = 1. " 分子 " gt_bapi_marm-denominatr = 1. " 分母 " gt_bapi_marm-gross_wt = itab-t_marm_gross_wt. " 毛重 " gt_bapi_marm-unit_of_wt = pr_unit2. " 填充毛重时，注意此处需要添加重量单位，否则会提示没有指定单位 " APPEND gt_bapi_marm. CLEAR gt_bapi_marmx. gt_bapi_marmx-alt_unit = pr_unit. " 注意此处不是填充 'X' " gt_bapi_marmx-numerator = 'X'. gt_bapi_marmx-denominatr = 'X'. gt_bapi_marmx-gross_wt = 'X'. gt_bapi_marmx-unit_of_wt = 'X'. " 此处填充 'X' " IF gt_bapi_marmx-alt_unit IS NOT INITIAL AND gt_bapi_marmx-numerator IS NOT INITIAL AND gt_bapi_marmx-denominatr IS NOT INITIAL. APPEND gt_bapi_marmx. ENDIF. " 物料描述 " gt_bapi_makt-langu_iso = 'EN'. gt_bapi_makt-matl_desc = itab-t_makt_matl_desc. APPEND gt_bapi_makt. " 维护增强字段 " gs_bapi_te_mara-material = itab-head_material. gs_bapi_te_mara-zz_model = itab-zz_model. gs_bapi_te_mara-zz_drawing = itab-zz_drawing. gs_bapi_te_mara-zz_color = itab-zz_color. l_valuepart = gs_bapi_te_mara. gt_extensionin-structure = 'BAPI_TE_MARA'. gt_extensionin-valuepart1 = l_valuepart+0(240). gt_extensionin-valuepart2 = l_valuepart+240(240). gt_extensionin-valuepart3 = l_valuepart+480(240). APPEND gt_extensionin. gs_bapi_te_marax-material = itab-matnr. gs_bapi_te_marax-zz_model = 'X'. gs_bapi_te_marax-zz_drawing_no = 'X'. gs_bapi_te_marax-zz_color = 'X'. l_valuepartx = gs_bapi_te_marax. gt_extensioninx-structure = 'BAPI_TE_MARAX'. gt_extensioninx-valuepart1 = l_valuepartx+0(240). gt_extensioninx-valuepart2 = l_valuepartx+240(240). gt_extensioninx-valuepart3 = l_valuepartx+480(240). APPEND gt_extensioninx. " CALL BAPI " CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA' EXPORTING headdata = gs_bapimathead clientdata = gs_bapi_mara clientdatax = gs_bapi_marax IMPORTING return = gs_return TABLES materialdescription = gt_bapi_makt[] unitsofmeasure = gt_bapi_marm[] unitsofmeasurex = gt_bapi_marmx[] returnmessages = gt_return1[]. IF gs_return-type NE 'E'. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. ELSE. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. ENDIF. ENDLOOP. WRITE : gs_return-type,gs_return-message. ENDFORM. " EXCUTE_BAPI " *&---------------------------------------------------------------------* *& Form frm_unit *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->UNIT1 text * -->UNIT2 text *----------------------------------------------------------------------* FORM frm_unit USING unit1 CHANGING unit2. CALL FUNCTION 'CONVERSION_EXIT_CUNIT_INPUT' EXPORTING input = unit1 language = sy-langu IMPORTING output = unit2 EXCEPTIONS unit_not_found = 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. "FRM_UNIT"