物料主数据批导-ZR_MM_0001N
*&---------------------------------------------------------------------* *& 程序名称 ：ZR_MM_0001N * *& 程序目的 ：物料主数据批导程序 *& *&---------------------------------------------------------------------* *&业务需求人： * *&创建人 ：张重何 创建时间：2009-07-21 * *&修改人 ： 修改时间： * *& *&---------------------------------------------------------------------* report zr_mm_0001. tables: mara, " General Material Data marc, " Material Master: C Segment marm, " Units of Measure mast, " Material to BOM Link t001w, " Plants/Branches t100, tq34, t006a. data: begin of itab occurs 0. data: bismt(018). "旧物料号**** data: maktx1(040). "旧物料描述**** data: vflag. "模块标志 **** data: matnr(018). "物料号 **** data: maktx(040). "物料描述**** data: mbrsh(001). "行业领域**** data: mtart(004). "物料类型**** data: werks(004). "工厂 **** data: lgort1(004). data: vkorg(004). "销售组织**** data: vtweg(002). "分销渠道**** data: maktxf(040). "物料描述繁体**** data: maktxe(040). "物料描述英文**** data: maktxp(040). "葡萄牙物料长文本**** data text(132). "长文本备注 data: meins(003). "基本计量单位**** data: matkl(009). "物料组**** data: ematkl(18). "外部物料组(18) data: labor(03). "实验室/办公室(18) data: bismt1(018). "东莞旧物料号码(18) data: bismt2(018). "台湾旧物料号码(18) 生产/检验备忘录 data: bismt3(018). "宁波旧物料号码(18) *DATA: NORMT(018). "行业标准描述 data: groes(032). "大小/量纲 (32)*** data: brgew(017). "毛重*** data: ntgew(017). "净重*** data: gewei(003). "重量单位**** data: volum(18). "体积**** data: voleh(003). "体积单位 (3)**** data: mstae(02). "跨工厂物料状态**** data: mstde(10). "有效起始期**** data: vrkme(03). "销售单位**** data: spart(02). "部门/产品组**** data: umren1(03). "转换为基本计量单位的分母 (3)**** data: umrez1(03). "基本计量单位转换分子**** data: dwerk(04). "交货工厂*** data: taxkm(01). "税码*** data: versg(01). "物料统计组**** data: mtpos(04). "项目类别组**** data: ktgrm(02). "科目设置组**** data: tragr(04). "运输组**** data: mtvfp(02). "可用量检查**** data: ladgr(04). "装载组**** data: prctr(10). "利润中心**** data: bstme(03). "采购单位**** data: umren(03). "转换为基本计量单位的分母 (3)**** data: umrez(03). "基本计量单位转换分子**** data: ekgrp(003). "采购组 **** data: xchpf(001). "批次管理(1) **** data: kordb. "货源清单 data: lgort(010). "库存仓位 **** data: dismm(002). "MRP 类型 **** data: maabc(001). "ABC标识 **** data: dispo(003). "MRP控制员***** data: mmsta(002). "特定工厂的物料状态***** data: disgr(004). "MRP组 (4)*****-DISGR data: disls(002). "批量 (2)***** data: bstfe(018). "固定批量 (13,3)***** data: bstrf(013). "舍人值 (13)***** data: beskz(001). "采购类型***** data: sobsl(002). "特殊采购类型***** data: rgekz(002). "反冲***** data: dzeit(003). "自制生产(2)***** data: lgpro(004). "生产仓储地点***** data: lgfsb(004). "外部采购库存地点 ***** data: plifz(003). "计划交货时间 (3) ***** data: eisbe(018). "安全库存 (13,3) ***** data: fhori(003). "计划边际码 (3) **** data: mtvfp1(002). "可用性检查 (2) **** data: sbdkz(001). "独立/集中 **** data: kausf(006). "部件废品(%) **** data: rbnrm(009). "类别参数文件 **** data: prfrq(005). "检验间隔时间（5） * **** data: qmpur(001). "QM采购激活 **** data: ssqss(008). "QM 控制码 **** data: kzdkz(001). "须要纪录文件（1）*** data: art_01(008). "检验类型1*** data: art_02(008). "检验类型2*** data: art_03(008). "检验类型3*** data: art_04(008). "检验类型4*** data: art_05(008). "检验类型5*** data: art_06(008). "检验类型6*** data: bklas(004). "评估类 (4) **** data: vprsv(001). "价格控制( **** data: verpr(015). "移动平均价 **** data: stprs(015). "标准价格 **** data: peinh(5). "价格单位 **** data: losgr(013). "核算批量(13)***** data: prctr1(010). "利润中心 **** data: ncost(001). "无成本核算(1) **** data: ekalr(001). "QS估算(1) **** data: hkmat(001). "物料相关的源**** data: awsls(006). "差异码 **** "转换比例fm data: end of itab. data: begin of vws_itab occurs 0 , "视图内表 material(18), " 0 物料号 ind_sector, " 0 行业领域 matl_type(4), " 0 物料类型 basic_view, " 0 基本数据视图 sales_view, " 0 销售视图 purchase_view, " 0 采购视图 mrp_view, " 0 物料需求计划(MRP)视图 forecast_view, " 0 预测视图 work_sched_view, " 0 工作计划视图 prt_view, " 生产资源/工具(PRT)视图 storage_view, " 0 存储视图 warehouse_view, " 0 仓库管理视图 quality_view, " 0 质量管理视图 account_view, " 0 会计视图 cost_view, " 0 成本视图 end of vws_itab. data: begin of out_put occurs 0, bismt(018), "旧物料号**** maktx1(040), "旧物料描述**** vflag, "模块标志 **** matnr(018), "物料号 **** maktx(040), "物料描述**** werks(4)," 工厂 text(100), "输出信息 end of out_put. data: bapi_makt like bapi_makt occurs 0 with header line . *-* Units of Measure data: bapi_marm like bapi_marm occurs 0 with header line . *-* Checkbox Structure for BAPI_MARM data: bapi_marmx like bapi_marmx occurs 0 with header line . *-* International Article Numbers (EANs) data: bapi_mean like bapi_mean occurs 0 with header line . *-* Long Texts data: bapi_mltx like bapi_mltx occurs 0 with header line . *-* Tax Data data: bapi_mlan like bapi_mlan occurs 0 with header line . *-* Substitute Structure for Return Parameter BAPIRET2 data: bapi_matreturn2 like bapi_matreturn2 occurs 0 with header line . *-* Production Resource Tool (PRT) Fields in the Material Master data: bapi_mfhm like bapi_mfhm occurs 0 with header line . *-* Checkbox Structure for BAPI_MFHM data: bapi_mfhmx like bapi_mfhmx occurs 0 with header line . *-* Ref. structure for BAPI parameter ExtensionIn/ExtensionOut data: bapiparex like bapiparex occurs 0 with header line . *-* Checkbox Structure for Extension In/Extension Out data: bapiparexx like bapiparexx occurs 0 with header line . *-* /NFM/: NF Charge Weights for Materials on Org. Level data: nfmchargeweights like /nfm/bapitvgw occurs 0 with header line . *-* /NFM/: Update Information for /NFM/BAP data: nfmchargeweightsx like /nfm/bapitvgwx occurs 0 with header line . *-* /NFM/: NF Structural Weights data: nfmstructuralweights like /nfm/bapitkgw occurs 0 with header line . *-* /NFM/: Update Information for /NFM/BAPITKGW data: nfmstructuralweightsx like /nfm/bapitkgwx occurs 0 with header line . data: bapi1001004_qmat like bapi1001004_qmat occurs 0 with header line . *-* Returned Parameters data: return like bapiret2." OCCURS 0 WITH HEADER LINE . * data: return1 like bapiret2 occurs 0 with header line . data: inspectionctrl like bapi1001004_qmat occurs 0 with header line . * data: qm_return like bapiret2 occurs 0 with header line. * define structure data for BAPIs function of material master creation data: headdata like bapimathead. "Header Segment with Control Information data: bapi_mara like bapi_mara. "Material Data at Client Level data: bapi_marax like bapi_marax. "Checkbox Structure for BAPI_MARA data: bapi_marc like bapi_marc. "Material Data at Plant Level data: bapi_marcx like bapi_marcx. "Checkbox Structure for BAPI_MARC data: bapi_mpop like bapi_mpop. "Forecast Parameters data: bapi_mpopx like bapi_mpopx. "Checkbox Structure for BAPI_MPOP data: bapi_mpgd like bapi_mpgd. "Change Document Structure for Material Master/Product Group data: bapi_mpgdx like bapi_mpgdx. "Checkbox Structure for BAPI_MPGD data: bapi_mard like bapi_mard. "Material Data at Storage Location Level data: bapi_mardx like bapi_mardx. "Checkbox Structure for BAPI_MARD data: bapi_mbew like bapi_mbew. "Valuation Data data: bapi_mbewx like bapi_mbewx. "Checkbox Structure for BAPI_MBEW data: bapi_mlgn like bapi_mlgn. "Warehouse Number Data data: bapi_mlgnx like bapi_mlgnx. "Checkbox Structure for BAPI_MLGN data: bapi_mvke like bapi_mvke. "Sales Data data: bapi_mvkex like bapi_mvkex. "Checkbox Structure for BAPI_MVKE data: bapi_mlgt like bapi_mlgt. "Storage Type Data data: bapi_mlgtx like bapi_mlgtx. "Checkbox Structure for BAPI_MLGT type-pools: slis. data : gt_fieldcat type slis_t_fieldcat_alv, gs_layout type slis_layout_alv, control_title type lvc_title, times(6) type n. *----------------------------------------------------------------------* * SELECTION SCREEN * *----------------------------------------------------------------------* selection-screen begin of block bk1 with frame title text-001. parameters: p_ufile like rlgrap-filename obligatory default 'C:\物料主数据.txt', p_ok as checkbox default 'X'. selection-screen end of block bk1. *----------------------------------------------------------------------* * INITIALIZATION * *----------------------------------------------------------------------* initialization. *----------------------------------------------------------------------* * AT SELECTION-SCREEN * *----------------------------------------------------------------------* at selection-screen on value-request for p_ufile. perform get_filepath. *top-of-page. start-of-selection. perform upload_data. "上载文本资料 perform check_data. "检查上载文本资料是否符合sap规则 if not itab[] is initial and out_put[] is initial. perform get_mara_data. "正确的数据写到bapi相应的表 endif. end-of-selection. if not out_put[] is initial. perform out_put. else. write: '无符合选择条件的数据输出！'. endif. *&---------------------------------------------------------------------* *& Form GET_FILEPATH *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* form get_filepath . call function 'WS_FILENAME_GET' exporting def_filename = 'DATAFILE.TXT' def_path = 'C:\TEMP\' mask = ',*.TXT,.' mode = 'O' title = 'Get filename' importing filename = p_ufile exceptions inv_winsys = 1 no_batch = 2 selection_cancel = 3 selection_error = 4 others = 5. endform. " GET_FILEPATH *&---------------------------------------------------------------------* *& Form UPLOAD_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* form upload_data . call function 'WS_UPLOAD' exporting * CODEPAGE = ' ' filename = p_ufile filetype = 'DAT' * HEADLEN = ' ' * LINE_EXIT = ' ' * TRUNCLEN = ' ' * USER_FORM = ' ' * USER_PROG = ' ' * DAT_D_FORMAT = ' ' * IMPORTING * FILELENGTH = tables data_tab = itab exceptions conversion_error = 1 file_open_error = 2 file_read_error = 3 invalid_type = 4 no_batch = 5 unknown_error = 6 invalid_table_width = 7 gui_refuse_filetransfer = 8 customer_error = 9 others = 10. if itab[] is initial. message '导入数据为空,请确认后重新导入! ' type 'I'. exit. endif. endform. " UPLOAD_DATA *&---------------------------------------------------------------------* *& Form CHECK_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* form check_data . data dflag. if p_ok = 'X'. delete itab index 1. endif. delete itab where matnr eq ''. sort itab by matnr werks. delete adjacent duplicates from itab comparing matnr werks. loop at itab. translate itab-matnr to upper case. translate itab-werks to upper case. translate itab-vflag to upper case. translate itab-mbrsh to upper case. call function 'CONVERSION_EXIT_ALPHA_INPUT' exporting input = itab-matnr importing output = itab-matnr exceptions others = 1. select single * from mara where matnr = itab-matnr. if sy-subrc ne 0. if itab-vflag ne 'M'. out_put-bismt = itab-bismt. out_put-maktx1 = itab-maktx1. out_put-vflag = itab-vflag. "模块标志 **** out_put-matnr = itab-matnr. "物料号 **** out_put-maktx = itab-maktx. "物料描述**** out_put-werks = itab-werks." 工厂 out_put-text = '此物料未维护，请MM先维护基本视图！'. "输出信息 append out_put. clear out_put. dflag = 'X'. else. vws_itab-basic_view = 'X'. if itab-meins eq ''. out_put-bismt = itab-bismt. out_put-maktx1 = itab-maktx1. out_put-vflag = itab-vflag. "模块标志 **** out_put-matnr = itab-matnr. "物料号 **** out_put-maktx = itab-maktx. "物料描述**** out_put-werks = itab-werks." 工厂 out_put-text = '基本单位资料不完整'. "输出信息 append out_put. clear out_put. dflag = 'X'. endif. if itab-maktx eq ''. out_put-bismt = itab-bismt. out_put-maktx1 = itab-maktx1. out_put-vflag = itab-vflag. "模块标志 **** out_put-matnr = itab-matnr. "物料号 **** out_put-maktx = itab-maktx. "物料描述**** out_put-werks = itab-werks." 工厂 out_put-text = '物料描述资料不完整'. "输出信息 append out_put. clear out_put. dflag = 'X'. endif. if itab-matkl eq ''. out_put-bismt = itab-bismt. out_put-maktx1 = itab-maktx1. out_put-vflag = itab-vflag. "模块标志 **** out_put-matnr = itab-matnr. "物料号 **** out_put-maktx = itab-maktx. "物料描述**** out_put-werks = itab-werks." 工厂 out_put-text = '物料组资料不完整'. "输出信息 append out_put. clear out_put. dflag = 'X'. endif. endif. endif. case itab-vflag. when 'M'."采购视图 vws_itab-purchase_view = 'X'. vws_itab-storage_view = 'X'. * VWS_ITAB-WAREHOUSE_VIEW = 'X'. * IF itab-LGORT EQ ''. * OUT_PUT-BISMT = ITAB-BISMT. * OUT_PUT-MAKTX1 = ITAB-MAKTX1. * OUT_PUT-VFLAG = ITAB-VFLAG. "模块标志 **** * OUT_PUT-MATNR = ITAB-MATNR. "物料号 **** * OUT_PUT-MAKTX = ITAB-MAKTX. "物料描述**** * OUT_PUT-WERKS = ITAB-WERKS." 工厂 * OUT_PUT-TEXT = '库存地点资料不完整'. "输出信息 * append out_put. * clear out_put. * dflag = 'X'. * ENDIF. when 'S'."销售视图 vws_itab-sales_view = 'X'. if itab-vkorg eq ''. out_put-bismt = itab-bismt. out_put-maktx1 = itab-maktx1. out_put-vflag = itab-vflag. "模块标志 **** out_put-matnr = itab-matnr. "物料号 **** out_put-maktx = itab-maktx. "物料描述**** out_put-werks = itab-werks." 工厂 out_put-text = '销售组织资料不完整'. "输出信息 append out_put. clear out_put. dflag = 'X'. endif. if itab-vtweg eq ''. out_put-bismt = itab-bismt. out_put-maktx1 = itab-maktx1. out_put-vflag = itab-vflag. "模块标志 **** out_put-matnr = itab-matnr. "物料号 **** out_put-maktx = itab-maktx. "物料描述**** out_put-werks = itab-werks." 工厂 out_put-text = '分销渠道资料不完整'. "输出信息 append out_put. clear out_put. dflag = 'X'. endif. if itab-taxkm eq ''. out_put-bismt = itab-bismt. out_put-maktx1 = itab-maktx1. out_put-vflag = itab-vflag. "模块标志 **** out_put-matnr = itab-matnr. "物料号 **** out_put-maktx = itab-maktx. "物料描述**** out_put-werks = itab-werks." 工厂 out_put-text = '税码未维护！'. "输出信息 append out_put. clear out_put. dflag = 'X'. endif. if itab-mtpos eq ''. out_put-bismt = itab-bismt. out_put-maktx1 = itab-maktx1. out_put-vflag = itab-vflag. "模块标志 **** out_put-matnr = itab-matnr. "物料号 **** out_put-maktx = itab-maktx. "物料描述**** out_put-werks = itab-werks." 工厂 out_put-text = '项目类别组未维护！'. "输出信息 append out_put. clear out_put. dflag = 'X'. endif. if itab-mtvfp eq ''. out_put-bismt = itab-bismt. out_put-maktx1 = itab-maktx1. out_put-vflag = itab-vflag. "模块标志 **** out_put-matnr = itab-matnr. "物料号 **** out_put-maktx = itab-maktx. "物料描述**** out_put-werks = itab-werks." 工厂 out_put-text = '可用量检查未维护！'. "输出信息 append out_put. clear out_put. dflag = 'X'. endif. if itab-tragr eq ''. out_put-bismt = itab-bismt. out_put-maktx1 = itab-maktx1. out_put-vflag = itab-vflag. "模块标志 **** out_put-matnr = itab-matnr. "物料号 **** out_put-maktx = itab-maktx. "物料描述**** out_put-werks = itab-werks." 工厂 out_put-text = '运输组未维护！'. "输出信息 append out_put. clear out_put. dflag = 'X'. endif. if itab-ladgr eq ''. out_put-bismt = itab-bismt. out_put-maktx1 = itab-maktx1. out_put-vflag = itab-vflag. "模块标志 **** out_put-matnr = itab-matnr. "物料号 **** out_put-maktx = itab-maktx. "物料描述**** out_put-werks = itab-werks." 工厂 out_put-text = '装载组未维护！'. "输出信息 append out_put. clear out_put. dflag = 'X'. endif. when 'P'."生产视图 vws_itab-mrp_view = 'X'. if itab-beskz = 'E' or itab-beskz = 'X' or itab-mtart = 'FERT'. vws_itab-work_sched_view = 'X'. endif. if itab-dismm eq ''. out_put-bismt = itab-bismt. out_put-maktx1 = itab-maktx1. out_put-vflag = itab-vflag. "模块标志 **** out_put-matnr = itab-matnr. "物料号 **** out_put-maktx = itab-maktx. "物料描述**** out_put-werks = itab-werks." 工厂 out_put-text = 'MRP 类型未维护！'. "输出信息 append out_put. clear out_put. dflag = 'X'. endif. when 'Q'."质量视图 vws_itab-quality_view = 'X'. when 'F'."财务视图 vws_itab-account_view = 'X'. vws_itab-cost_view = 'X'. if itab-bklas eq ''. out_put-bismt = itab-bismt. out_put-maktx1 = itab-maktx1. out_put-vflag = itab-vflag. "模块标志 **** out_put-matnr = itab-matnr. "物料号 **** out_put-maktx = itab-maktx. "物料描述**** out_put-werks = itab-werks." 工厂 out_put-text = '评估类未维护！'. "输出信息 append out_put. dflag = 'X'. endif. endcase. if dflag ne 'X'. vws_itab-material = itab-matnr. " 0 物料号 vws_itab-ind_sector = itab-mbrsh. " 0 行业领域 vws_itab-matl_type = itab-mtart. " 0 物料类型 append vws_itab. modify itab. else. delete itab. clear dflag. endif. clear out_put. clear vws_itab. endloop. endform. " CHECK_DATA *&---------------------------------------------------------------------* *& Form GET_MARA_DATA *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* form get_mara_data . loop at itab. clear: headdata , bapi_mara , bapi_marax , bapi_marc , bapi_marcx , bapi_mpop , bapi_mpopx , bapi_mpgd , bapi_mpgdx , bapi_mard , bapi_mardx , bapi_mbew , bapi_mbewx , bapi_mlgn , bapi_mlgnx , bapi_mvke , bapi_mvkex , bapi_mlgt , bapi_mlgtx . free: bapi_makt. read table vws_itab with key material = itab-matnr. if sy-subrc = 0. move-corresponding vws_itab to headdata. endif. ******* if headdata-basic_view eq 'X'. if itab-maktx ne '' . bapi_makt-langu = '1'. bapi_makt-langu_iso = 'ZH'. bapi_makt-matl_desc = itab-maktx. append: bapi_makt. clear: bapi_makt. endif. "物料描述繁体**** if itab-maktxf ne '' . bapi_makt-langu = 'M'. bapi_makt-langu_iso = 'ZF'. bapi_makt-matl_desc = itab-maktxf. append: bapi_makt. clear: bapi_makt. endif. "物料描述英文**** if itab-maktxe ne '' . bapi_makt-langu = 'E'. bapi_makt-langu_iso = 'EN'. bapi_makt-matl_desc = itab-maktxe. append: bapi_makt. clear: bapi_makt. endif. "葡萄牙物料长文本**** if itab-maktxp ne '' . bapi_makt-langu = 'P'. bapi_makt-langu_iso = 'PT'. bapi_makt-matl_desc = itab-maktxp. append: bapi_makt. clear: bapi_makt. endif. if itab-text ne '' . bapi_mltx-applobject = 'MATERIAL'. bapi_mltx-text_name = itab-matnr. bapi_mltx-text_id = 'GRUN'. bapi_mltx-langu = 'ZH'. bapi_mltx-text_line = itab-text. append: bapi_mltx. clear: bapi_mltx. endif. endif. **基础视图 bapi_marc-plant = itab-werks. "工厂 **** bapi_marcx-plant = itab-werks. "工厂 **** bapi_mara-base_uom = itab-meins. "基本计量单位**** bapi_mara-matl_group = itab-matkl. "物料组**** bapi_mara-extmatlgrp = itab-ematkl. "外部物料组(18) bapi_mara-dsn_office = itab-labor. "实验室/办公室(18) bapi_mara-old_mat_no = itab-bismt1. "东莞旧物料号码(18) bapi_mara-prod_memo = itab-bismt2. "台湾旧物料号码(18) 生产/检验备忘录 bapi_mara-std_descr = itab-bismt3. "宁波旧物料号码(18) 行业标准描述 bapi_mara-size_dim = itab-groes. "大小/量纲 (32)*** bapi_mara-allowed_wt = itab-brgew. "毛重*** bapi_mara-net_weight = itab-ntgew. "净重*** bapi_mara-unit_of_wt = itab-gewei. "重量单位**** bapi_mara-allwd_vol = itab-volum. "体积**** bapi_mara-pack_vo_un = itab-voleh. "体积单位 (3)**** if not itab-lgort1 is initial. bapi_mard-plant = itab-werks. "工厂 **** bapi_mard-stge_loc = itab-lgort1. "工厂 **** bapi_mardx-plant = itab-werks. "工厂 **** bapi_mardx-stge_loc = itab-lgort1. "工厂 **** endif. if headdata-basic_view eq 'X'. bapi_marax-base_uom = 'X'. "基本计量单位**** bapi_marax-matl_group = 'X'. "物料组**** bapi_marax-extmatlgrp = 'X'. "外部物料组(18) bapi_marax-dsn_office = 'X'. "实验室/办公室(18) bapi_marax-old_mat_no = 'X'. "东莞旧物料号码(18) bapi_marax-prod_memo = 'X'. "台湾旧物料号码(18) 生产/检验备忘录 bapi_marax-std_descr = 'X'. "宁波旧物料号码(18) 行业标准描述 bapi_marax-size_dim = 'X'. "大小/量纲 (32)*** bapi_marax-allowed_wt = 'X'. "毛重*** bapi_marax-net_weight = 'X'. "净重*** bapi_marax-unit_of_wt = 'X'. "重量单位**** bapi_marax-allwd_vol = 'X'. "体积**** bapi_marax-pack_vo_un = 'X'. "体积单位 (3)**** else. if itab-werks = 'T100' and itab-vflag = 'M'. bapi_marax-prod_memo = 'X'. "台湾旧物料号码(18) 生产/检验备忘录 endif. if itab-werks = 'C100' and itab-vflag = 'M'. bapi_marax-std_descr = 'X'. "宁波旧物料号码(18) 行业标准描述 endif. endif. **销售视图 if headdata-sales_view = 'X'. bapi_mvke-sales_org = itab-vkorg. "销售组织**** bapi_mvke-distr_chan = itab-vtweg. "分销渠道**** bapi_mvkex-sales_org = itab-vkorg. "销售组织**** bapi_mvkex-distr_chan = itab-vtweg. "分销渠道**** bapi_mara-pur_status = itab-mstae. "跨工厂物料状态**** bapi_mara-pvalidfrom = itab-mstde. "有效起始期**** bapi_mvke-sales_unit = itab-vrkme. "销售单位**** if itab-vrkme ne ''. bapi_marm-alt_unit = itab-vrkme. bapi_marm-alt_unit_iso = itab-meins. bapi_marm-numerator = itab-umren1. "转换为基本计量单位的分母 (3)**** bapi_marm-denominatr = itab-umrez1. "基本计量单位转换分子**** bapi_marmx-alt_unit = 'X'. bapi_marmx-alt_unit_iso = 'X'. bapi_marmx-numerator = 'X'. "转换为基本计量单位的分母 (3)**** bapi_marmx-denominatr = 'X'. "基本计量单位转换分子**** append: bapi_marm,bapi_marmx. clear: bapi_marm,bapi_marmx. endif. bapi_mara-division = itab-spart. "部门/产品组**** bapi_mvke-delyg_plnt = itab-dwerk. "交货工厂*** bapi_marax-pur_status = 'X'. "跨工厂物料状态**** bapi_marax-pvalidfrom = 'X'. "有效起始期**** bapi_mvkex-sales_unit = 'X'. "销售单位**** bapi_marax-division = 'X'. "部门/产品组**** bapi_mvkex-delyg_plnt = 'X'. "交货工厂*** *itab-TAXKM. "税码*** case itab-vkorg . when 'C100' or 'C200' or 'C300'. move 'CN' to bapi_mlan-depcountry. * MOVE 'CH' TO BAPI_MLAN-DEPCOUNTRY_ISO. move 'MWST' to bapi_mlan-tax_type_1. move itab-taxkm to bapi_mlan-taxclass_1. append: bapi_mlan . clear : bapi_mlan. when 'T100'. move 'TW' to bapi_mlan-depcountry. * MOVE 'TW' TO BAPI_MLAN-DEPCOUNTRY_ISO. move 'MWST' to bapi_mlan-tax_type_1. move itab-taxkm to bapi_mlan-taxclass_1. append: bapi_mlan . clear : bapi_mlan. when 'B100'. move 'BZ' to bapi_mlan-depcountry. * MOVE 'BZ' TO BAPI_MLAN-DEPCOUNTRY_ISO. move 'MWST' to bapi_mlan-tax_type_1. move itab-taxkm to bapi_mlan-taxclass_1. append: bapi_mlan . clear : bapi_mlan. move 'CN' to bapi_mlan-depcountry. * MOVE 'CH' TO BAPI_MLAN-DEPCOUNTRY_ISO. move 'MWST' to bapi_mlan-tax_type_1. move itab-taxkm to bapi_mlan-taxclass_1. append: bapi_mlan . clear : bapi_mlan. when 'N100'. move 'IN' to bapi_mlan-depcountry. * MOVE 'IN' TO BAPI_MLAN-DEPCOUNTRY_ISO. move 'MWST' to bapi_mlan-tax_type_1. move itab-taxkm to bapi_mlan-taxclass_1. append: bapi_mlan . clear : bapi_mlan. endcase . bapi_mvke-matl_stats = itab-versg. "物料统计组**** bapi_mvke-item_cat = itab-mtpos. "项目类别组**** bapi_mvke-acct_assgt = itab-ktgrm. "科目设置组**** bapi_mara-trans_grp = itab-tragr. "运输组**** bapi_marc-availcheck = itab-mtvfp. "可用量检查**** bapi_marc-loadinggrp = itab-ladgr. "装载组**** bapi_marc-profit_ctr = itab-prctr. "利润中心**** bapi_mvkex-matl_stats = 'X'. "物料统计组**** bapi_mvkex-item_cat = 'X'. "项目类别组**** bapi_mvkex-acct_assgt = 'X'. "科目设置组**** bapi_marax-trans_grp = 'X'. "运输组**** bapi_marcx-availcheck = 'X'. "可用量检查**** bapi_marcx-loadinggrp = 'X'. "装载组**** bapi_marcx-profit_ctr = 'X'. "利润中心**** endif. **采购视图 if headdata-purchase_view = 'X'. bapi_mara-po_unit = itab-bstme. "采购单位**** bapi_marax-po_unit = 'X'. "采购单位**** if itab-bstme ne ''. bapi_marm-alt_unit = itab-bstme. bapi_marm-alt_unit_iso = itab-meins. bapi_marm-numerator = itab-umren. "转换为基本计量单位的分母 (3)**** bapi_marm-denominatr = itab-umrez. "基本计量单位转换分子**** bapi_marmx-alt_unit = 'X'. bapi_marmx-alt_unit_iso = 'X'. bapi_marmx-numerator = 'X'. "转换为基本计量单位的分母 (3)**** bapi_marmx-denominatr = 'X'. "基本计量单位转换分子**** append: bapi_marm,bapi_marmx. clear: bapi_marm,bapi_marmx. endif. bapi_marc-pur_group = itab-ekgrp. "采购组 **** bapi_marc-batch_mgmt = itab-xchpf. "批次管理(1) **** bapi_marc-sourcelist = itab-kordb. "货源清单 bapi_mard-stge_bin = itab-lgort. "库存仓位 **** bapi_marcx-pur_group = 'X'. "采购组 **** bapi_marcx-batch_mgmt = 'X'. "批次管理(1) **** bapi_marcx-sourcelist = 'X'. "货源清单 bapi_mardx-stge_bin = 'X'. "库存仓位 **** endif. ***生产视图 if headdata-mrp_view = 'X'. bapi_marc-plant = itab-werks. "工厂 **** bapi_marc-mrp_type = itab-dismm. "MRP 类型 **** bapi_marc-abc_id = itab-maabc. "ABC标识 **** bapi_marc-mrp_ctrler = itab-dispo. "MRP控制员***** bapi_marc-pur_status = itab-mmsta. "特定工厂的物料状态***** bapi_marc-mrp_group = itab-disgr. "MRP组 (3)***** bapi_marc-lotsizekey = itab-disls. "批量 (2)***** bapi_marc-fixed_lot = itab-bstfe. "固定批量 (13,3)***** bapi_marc-round_val = itab-bstrf. "舍人值 (13)***** bapi_marc-proc_type = itab-beskz. "采购类型***** bapi_marc-spproctype = itab-sobsl. "特殊采购类型***** bapi_marc-inhseprodt = itab-dzeit. "自制生产(2)***** bapi_marc-iss_st_loc = itab-lgpro. "生产仓储地点***** bapi_marc-sloc_exprc = itab-lgfsb. "外部采购库存地点 ***** bapi_marc-plnd_delry = itab-plifz. "计划交货时间 (3) ***** bapi_marc-safety_stk = itab-eisbe. "安全库存 (13,3) ***** bapi_marc-sm_key = itab-fhori. "计划边际码 (3) **** bapi_marc-availcheck = itab-mtvfp1. "可用性检查 (2) **** bapi_marc-dep_req_id = itab-sbdkz. "独立/集中 *** if itab-mtart = 'FERT'. "20091022增加周琼花提出 bapi_marc-serno_prof = '0001'. "序列号参数文件 bapi_mara-serialization_level = '1'."序列号上的等级 bapi_marcx-serno_prof = 'X'. bapi_marax-serialization_level = 'X'. endif. bapi_marcx-plant = itab-werks. "工厂 **** bapi_marcx-mrp_type = 'X'. "MRP 类型 **** bapi_marcx-abc_id = 'X'. "ABC标识 **** bapi_marcx-mrp_ctrler = 'X'. "MRP控制员***** bapi_marcx-pur_status = 'X'. "特定工厂的物料状态***** bapi_marcx-mrp_group = 'X'. "MRP组 (3)***** bapi_marcx-lotsizekey = 'X'. "批量 (2)***** bapi_marcx-fixed_lot = 'X'. "固定批量 (13,3)***** bapi_marcx-round_val = 'X'. "舍人值 (13)***** bapi_marcx-proc_type = 'X'. "采购类型***** bapi_marcx-spproctype = 'X'. "特殊采购类型***** bapi_marcx-inhseprodt = 'X'. "自制生产(2)***** bapi_marcx-iss_st_loc = 'X'. "生产仓储地点***** bapi_marcx-sloc_exprc = 'X'. "外部采购库存地点 ***** bapi_marcx-plnd_delry = 'X'. "计划交货时间 (3) ***** bapi_marcx-safety_stk = 'X'. "安全库存 (13,3) ***** bapi_marcx-sm_key = 'X'. "计划边际码 (3) **** bapi_marcx-availcheck = 'X'. "可用性检查 (2) **** bapi_marcx-dep_req_id = 'X'. "独立/集中 *** bapi_marc-comp_scrap = itab-kausf. "部件废品(%) **** bapi_marcx-comp_scrap = 'X'. endif. **质量视图 if headdata-quality_view = 'X'. bapi_mara-catprofile = itab-rbnrm. "类别参数文件 **** bapi_marax-catprofile = 'X'. bapi_marc-insp_int = itab-prfrq. "检验间隔时间（5） * **** bapi_marcx-insp_int = 'X'. clear mara. select single qmpur from mara into mara-qmpur where matnr = itab-matnr. if mara-qmpur is initial. bapi_mara-qm_procmnt = itab-qmpur. "QM采购激活 **** bapi_marax-qm_procmnt = 'X'. "QM采购激活 **** endif. bapi_marc-ctrl_key = itab-ssqss. "QM 控制码 **** bapi_marcx-ctrl_key = 'X'. *BAPI_MARC-QMATV = 'X'. *BAPI_MARCX-QMATV = 'X'. if itab-art_01 ne ''. "检验类型1*** perform bapi1001004 using itab-art_01. endif. if itab-art_02 ne ''. "检验类型2*** perform bapi1001004 using itab-art_02. endif. if itab-art_03 ne ''. "检验类型3*** perform bapi1001004 using itab-art_03. endif. if itab-art_04 ne ''. "检验类型4*** perform bapi1001004 using itab-art_04. endif. if itab-art_05 ne ''. "检验类型5*** perform bapi1001004 using itab-art_05. endif. if itab-art_06 ne ''. "检验类型6*** perform bapi1001004 using itab-art_06. endif. *itab-KZDKZ. "须要纪录文件（1）*** endif. ***财务视图 if headdata-account_view = 'X'. *BAPI_MBEW-VAL_AREA *VAL_TYPE bapi_mbew-val_area = itab-werks." 工厂 bapi_mbewx-val_area = itab-werks." 工厂 if itab-bklas ne ''. bapi_mbew-val_class = itab-bklas. "评估类 (4) **** bapi_mbewx-val_class = 'X'. endif. if itab-vprsv ne ''. bapi_mbew-price_ctrl = itab-vprsv. "价格控制( **** bapi_mbewx-price_ctrl = 'X'. endif. if itab-verpr ne ''. bapi_mbew-moving_pr = itab-verpr. "移动平均价 **** bapi_mbewx-moving_pr = 'X'. endif. if itab-stprs ne ''. bapi_mbew-std_price = itab-stprs. "标准价格 **** bapi_mbewx-std_price = 'X'. endif. if itab-peinh ne ''. bapi_mbew-price_unit = itab-peinh. "价格单位 **** bapi_mbewx-price_unit = 'X'. endif. if itab-losgr ne ''. bapi_marc-lot_size = itab-losgr. "核算批量(13)***** bapi_marcx-lot_size = 'X'. endif. if itab-prctr1 ne ''. bapi_marc-profit_ctr = itab-prctr1. "利润中心 **** bapi_marcx-profit_ctr = 'X'. endif. if itab-ncost ne ''. bapi_marc-no_costing = itab-ncost. "无成本核算(1) **** bapi_marcx-no_costing = 'X'. endif. if itab-ekalr ne ''. bapi_mbew-qty_struct = itab-ekalr. "QS估算(1) **** bapi_mbewx-qty_struct = 'X'. endif. if itab-hkmat ne ''. bapi_mbew-orig_mat = itab-hkmat. "物料相关的源**** bapi_mbewx-orig_mat = 'X'. endif. bapi_marc-variance_key = '000001'."itab-AWSLS. "差异码 **** bapi_marcx-variance_key = 'X'. endif. perform create_matnr_bapi. endloop. endform. " GET_MARA_DATA *&---------------------------------------------------------------------* *& Form CREATE_MATNR_BAPI *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* form create_matnr_bapi . call function 'BAPI_MATERIAL_SAVEDATA' exporting headdata = headdata clientdata = bapi_mara clientdatax = bapi_marax plantdata = bapi_marc plantdatax = bapi_marcx * PLANNINGDATA = * PLANNINGDATAX = storagelocationdata = bapi_mard storagelocationdatax = bapi_mardx valuationdata = bapi_mbew valuationdatax = bapi_mbewx * WAREHOUSENUMBERDATA = * WAREHOUSENUMBERDATAX = salesdata = bapi_mvke salesdatax = bapi_mvkex * STORAGETYPEDATA = * STORAGETYPEDATAX = flag_online = ' ' flag_cad_call = ' ' no_dequeue = ' ' no_rollback_work = ' ' importing return = return tables materialdescription = bapi_makt unitsofmeasure = bapi_marm unitsofmeasurex = bapi_marmx * INTERNATIONALARTNOS = materiallongtext = bapi_mltx taxclassifications = bapi_mlan returnmessages = bapi_matreturn2 * PRTDATA = * PRTDATAX = * EXTENSIONIN = * EXTENSIONINX = . loop at bapi_matreturn2 where type eq 'E'. exit. endloop. if sy-subrc eq 0. call function 'BAPI_TRANSACTION_ROLLBACK'. else. call function 'BAPI_TRANSACTION_COMMIT' exporting wait = 'X'. endif. call function 'BUFFER_REFRESH_ALL'. out_put-bismt = itab-bismt. out_put-maktx1 = itab-maktx1. out_put-vflag = itab-vflag. "模块标志 **** out_put-matnr = itab-matnr. "物料号 **** out_put-maktx = itab-maktx. "物料描述**** out_put-werks = itab-werks." 工厂 out_put-text = return-message. "输出信息 if headdata-quality_view = 'X'. do 1000 times. select single * from marc where matnr = itab-matnr and werks = itab-werks. enddo. call function 'BAPI_MATINSPCTRL_SAVEREPLICA' tables return = return1 inspectionctrl = bapi1001004_qmat. loop at return1 where type eq 'E'. out_put-text = return1-message . append out_put. endloop. if sy-subrc ne 0. out_put-text = 'QM试图扩展成功！' . append out_put. endif. commit work. free: return1,bapi1001004_qmat. clear: bapi1001004_qmat,return1. else. append out_put. endif. clear out_put. free:headdata, bapi_mara, bapi_marax, bapi_marc, bapi_marcx, bapi_mard, bapi_mardx, bapi_mbew, bapi_mbewx, bapi_mvke, bapi_mvkex, bapi_makt, bapi_marm, bapi_marmx, bapi_mltx, bapi_mlan, bapi_matreturn2. clear:headdata, bapi_mara, bapi_marax, bapi_marc, bapi_marcx, bapi_mard, bapi_mardx, bapi_mbew, bapi_mbewx, bapi_mvke, bapi_mvkex, bapi_makt, bapi_marm, bapi_marmx, bapi_mltx, bapi_mlan, return, bapi_matreturn2. endform. " CREATE_MATNR_BAPI *---------------------------------------------------------------------* * Form OUT_PUT *---------------------------------------------------------------------* form out_put . control_title = '数据上传信息'. perform e01_fieldcat_init using : 'BISMT' '旧物料号' 18 '' '' '' '' '' '' '' '', 'MAKTX1' '旧物料描述' 40 '' '' '' '' '' '' '' '', 'VFLAG' '模块标志' 10 '' '' '' '' '' '' '' '', 'MATNR' '物料号' 18 '' '' '' '' '' '' '' '', 'MAKTX' '物料描述' 40 '' '' '' '' '' '' '' '', 'WERKS' ' 工厂' 4 '' '' '' '' '' '' '' '', 'TEXT' '输出信息' 50 '' '' '' '' '' '' '' ''. gs_layout-colwidth_optimize = 'X'. gs_layout-info_fieldname = 'COLOR'. call function 'REUSE_ALV_GRID_DISPLAY' exporting i_callback_program = sy-cprog it_fieldcat = gt_fieldcat[] is_layout = gs_layout i_callback_user_command = 'MYCOMMAND' i_save = 'X' i_grid_title = control_title tables t_outtab = out_put. endform. " OUT_PUT *&---------------------------------------------------------------------* *& Form e01_fieldcat_init *&---------------------------------------------------------------------* form e01_fieldcat_init using field_name type c field_text type c field_lenth type i field_edit type c field_type type c field_key type c field_hotspot type c field_checkbox type c field_no_zero type c field_ref_tabname type c field_emphasize type c. data: ls_fieldcat type slis_fieldcat_alv. clear ls_fieldcat. ls_fieldcat-fieldname = field_name. ls_fieldcat-seltext_l = field_text. ls_fieldcat-seltext_m = field_text. ls_fieldcat-seltext_s = field_text. ls_fieldcat-checkbox = field_checkbox. ls_fieldcat-round = 0. ls_fieldcat-edit = field_edit. ls_fieldcat-datatype = field_type. if field_type = 'Q'. ls_fieldcat-just = 'R'. ls_fieldcat-datatype = 'QUAN'. ls_fieldcat-decimals_out = 0. else. ls_fieldcat-just = 'L'. endif. ls_fieldcat-key = field_key. ls_fieldcat-hotspot = field_hotspot . ls_fieldcat-outputlen = field_lenth. * ls_fieldcat-no_zero = field_no_zero. ls_fieldcat-emphasize = field_emphasize . append ls_fieldcat to gt_fieldcat. endform. " e01_fieldcat_init *&---------------------------------------------------------------------* *& Form BAPI1001004 *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_ITAB_ART_01 text *----------------------------------------------------------------------* form bapi1001004 using p_itab_art_01. clear tq34. select single * from tq34 where art = p_itab_art_01. bapi1001004_qmat-ind_insp_with_tsk_list = tq34-ppl. "有任务清单的检验 bapi1001004_qmat-ind_spec_matspec = tq34-spezueber. "使用物料说明的检验 bapi1001004_qmat-ind_spec_config = tq34-conf. "来自配置的检验规范 bapi1001004_qmat-ind_spec_batch = tq34-tls. "批次确定的检验规范 bapi1001004_qmat-ind_auto_assign = tq34-app. "自动规格分配 bapi1001004_qmat-ind_insp_by_charac = tq34-mer. "按特性检验 bapi1001004_qmat-ind_post_to_insp_stock = tq34-insmk. "过帐到检验库存 bapi1001004_qmat-ind_automatic_ud = tq34-ave. "计划的自动用途决定 bapi1001004_qmat-sampling_procedure = tq34-stichprver. "采样程序 bapi1001004_qmat-dyn_modif_rule = tq34-dynregel. "动态修改规则 bapi1001004_qmat-insp_percentage = tq34-sproz. "检验百分比 bapi1001004_qmat-ind_100_percent_inspection = tq34-hpz. "100% 检验 bapi1001004_qmat-ind_skips_allowed = tq34-dyn. "允许略过 bapi1001004_qmat-ind_manual_sample = tq34-mpb. "手工输入采样 bapi1001004_qmat-ind_manual_sample_calc = tq34-mst. "手动触发采样计算 bapi1001004_qmat-ind_single_units_possible = tq34-ein. "可能的序列号管理 * BAPI1001004_QMAT-AVE_INSP_DURATION = TQ34-MPDAU. "平均检验期 bapi1001004_qmat-contr_insp_lot_create = tq34-chg. "控制检验批创建（批次摘要） bapi1001004_qmat-qual_score_procedure = tq34-qkzverf. "计算质量记分的程序 bapi1001004_qmat-allowed_scrap_share = tq34-qpmat. "检验批中允许的废品份额（百分比） * BAPI1001004_QMAT-FUNCTION = '004'. bapi1001004_qmat-insptype = p_itab_art_01. bapi1001004_qmat-material = itab-matnr. bapi1001004_qmat-plant = itab-werks. bapi1001004_qmat-preferred_insptype = 'X'. bapi1001004_qmat-ind_insptype_mat_active = 'X'. append bapi1001004_qmat. clear bapi1001004_qmat. endform. " BAPI1001004 *---------------------------------------------------------------------* * FORM mycommand * *---------------------------------------------------------------------* * ........ * *---------------------------------------------------------------------* * --> R_UCOMM * * --> RS_SELFIELD * *---------------------------------------------------------------------* form mycommand using r_ucomm like sy-ucomm rs_selfield type slis_selfield. data: carrid type afpo-aufnr. data: myindex like sy-tabix. if r_ucomm = '&IC1'. myindex = rs_selfield-tabindex. read table out_put index myindex. if sy-subrc = 0. set parameter id 'MAT' field out_put-matnr. call transaction 'MM03' and skip first screen. endif. * elseif r_ucomm = '&EB91'. * MYINDEX = RS_SELFIELD-TABINDEX. * READ TABLE ST_AFPO INDEX MYINDEX. * IF SY-SUBRC = 0. * SET PARAMETER ID 'ANR' FIELD ST_AFPO-AUFNR. * CALL TRANSACTION 'CO02' AND SKIP FIRST SCREEN. * ENDIF. endif. endform. "mycommand
本人常年接收SAP运维和远程项目，ECC，S/4HANA，CRM，WDA.
远程人天可谈，终身售后，有活请联系V信:18925782767（问问题免费，欢迎交流！）
！！请关注本人技术分享公众号：SAP翔子（可扫头像二维码）
每天分享新知识，博客文章也会陆续整理并迁移至公众号，与您一起共同学习
浙公网安备 33010602011771号