可以批导创建及修改信息记录的主数据。而且可以对条件中的时间段及其数量等级中的金额进行批导及修改。可以根据自己的实际需求进行修改。这就很棒，就很nice！！！
*********************代码功能************************************* *(1) 批量创建信息记录 *(2) 批量修改信息记录及创建信息记录的有效期间和数量等级 ********************************************************************** REPORT zmmr_me11_12 NO STANDARD PAGE HEADING. TYPE-POOLS:truxs,icon. TABLES:eina,sscrfields. DATA:BEGIN OF it_fname OCCURS 0, name TYPE char255, END OF it_fname. DATA:bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE. "用来存储屏幕字段参数值,传递录屏参数 DATA:messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE. "记录执行BDC过程中产生的消息 DATA:result_mesg TYPE TABLE OF string WITH HEADER LINE. "结果信息 DATA: ti_bapicondct LIKE STANDARD TABLE OF bapicondct WITH HEADER LINE , ti_bapicondhd LIKE STANDARD TABLE OF bapicondhd WITH HEADER LINE , ti_bapicondit LIKE STANDARD TABLE OF bapicondit WITH HEADER LINE , ti_bapicondqs LIKE STANDARD TABLE OF bapicondqs WITH HEADER LINE , ti_bapicondvs LIKE STANDARD TABLE OF bapicondvs WITH HEADER LINE, bapiret2 LIKE STANDARD TABLE OF bapiret2 WITH HEADER LINE, to_bapiknumhs LIKE STANDARD TABLE OF bapiknumhs WITH HEADER LINE, to_mem_initial LIKE STANDARD TABLE OF cnd_mem_initial WITH HEADER LINE, ls_a017 TYPE a017. DATA text2 TYPE text1_007s. "附加税值名 DATA p TYPE i. TYPES:BEGIN OF ty_tab1, flag TYPE c, "记录标识 wx TYPE c, "是否外协 eina_mahn1 TYPE mahn1, "CLX eina_urztp TYPE urztp, "价格执行方式 eina_urzzt TYPE urzzt, "编号 eine_norbm TYPE norbm, "标准数量 eine_mwskz TYPE mwskz, "税代码 eine_netpr TYPE iprei, "净价、含税价 eine_peinh TYPE epein, "价格单位 eine_waers TYPE waers, "净价货币 eine_angnr TYPE angnr, "报价/目标价 * rm06i_ltex1 TYPE ltext, "记录信息文本 rv13a_datab TYPE kodatab, "有效时间从 rv13a_datbi TYPE kodatbi, "有效时间到 * konp_konwa TYPE konwa, "PB00比率单位(货币或百分数) konp_kschl2 TYPE kscha, "条件类型2 konm_kbetr2 TYPE konp-kbetr, "条件金额2 konp_konwa2 TYPE konwa, "ZVA1比率单位(货币或百分数) eina_lifnr TYPE elifn, "供应商 eina_matnr TYPE matnr, "材料 eine_ekorg TYPE ekorg, "采购组织 eine_werks TYPE ewerk, "工厂 konm_kstbm TYPE kstbm, "条件等级数量 konm_kbetr TYPE konp-kbetr, "条件金额 END OF ty_tab1. DATA:gt_tab1 TYPE TABLE OF ty_tab1, wa_tab1 TYPE ty_tab1. DATA:gt_tab2 TYPE TABLE OF ty_tab1, wa_tab2 TYPE ty_tab1, temp_tab TYPE TABLE OF ty_tab1 WITH HEADER LINE. TYPES:BEGIN OF numb_levels, flag TYPE c, "记录标识 eina_lifnr TYPE elifn, "供应商 eina_matnr TYPE matnr, "材料 eine_ekorg TYPE ekorg, "采购组织 eine_werks TYPE ewerk, "工厂 konm_kstbm TYPE kstbm, "条件等级数量 konm_kbetr TYPE kbetr, "条件金额 rv13a_datab TYPE kodatab, "有效时间从 rv13a_datbi TYPE kodatbi, "有效时间到 END OF numb_levels. DATA:gt_nl TYPE TABLE OF numb_levels, wa_nl TYPE numb_levels, gt_nl2 TYPE TABLE OF numb_levels, wa_nl2 TYPE numb_levels. DATA: aplfzc(3) TYPE c, "计划交货天数 normbc(16) TYPE c , "标准数量 netprcx(14) TYPE c, "净价 GYP netprc TYPE iprei, "净价 peinhc(5) TYPE c, "条件定价单位 lv_bprme TYPE bprme. "条件单位 SELECTION-SCREEN BEGIN OF BLOCK blk_001 WITH FRAME TITLE text-001 . PARAMETERS:p_file LIKE rlgrap-filename. SELECTION-SCREEN END OF BLOCK blk_001. SELECTION-SCREEN FUNCTION KEY 1. "应用工具栏增加按钮 INITIALIZATION. WRITE icon_change_text AS ICON TO sscrfields-functxt_01+0(4). sscrfields-functxt_01+4(*) = \'下载模板\'."分配字符位置 AT SELECTION-SCREEN. PERFORM dl_template. "模板下载 AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file . PERFORM open. START-OF-SELECTION. PERFORM upload_file1. PERFORM process_file. IF NOT gt_tab1 IS INITIAL. PERFORM create_me11. ENDIF. IF NOT gt_tab2 IS INITIAL. PERFORM update_me12. ENDIF. END-OF-SELECTION. PERFORM result_message. "显示执行结果 *&---------------------------------------------------------------------* *& Form PROCESS_FILE1 *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM process_file. LOOP AT gt_tab1 INTO wa_tab1 WHERE flag = \'X\'. CALL FUNCTION \'CONVERSION_EXIT_ALPHA_INPUT\' EXPORTING input = wa_tab1-eina_matnr IMPORTING output = wa_tab1-eina_matnr. CALL FUNCTION \'CONVERSION_EXIT_ALPHA_INPUT\' EXPORTING input = wa_tab1-eina_lifnr IMPORTING output = wa_tab1-eina_lifnr. SELECT SINGLE eina~infnr INTO eina-infnr FROM eina INNER JOIN eine ON eina~infnr = eine~infnr WHERE eina~matnr = wa_tab1-eina_matnr AND eina~lifnr = wa_tab1-eina_lifnr AND eine~werks = wa_tab1-eine_werks AND eine~ekorg = wa_tab1-eine_ekorg. "判断该数据是否已近创建 IF sy-subrc <> 0. MOVE-CORRESPONDING wa_tab1 TO wa_nl. APPEND wa_nl TO gt_nl. ELSE. MOVE-CORRESPONDING wa_tab1 TO wa_nl2. APPEND wa_nl2 TO gt_nl2. ENDIF. ENDLOOP. MOVE gt_tab1 TO temp_tab[]. CLEAR:gt_tab1[],gt_tab1. LOOP AT gt_nl INTO wa_nl. CALL FUNCTION \'CONVERSION_EXIT_ALPHA_OUTPUT\' EXPORTING input = wa_nl-eina_matnr IMPORTING output = wa_nl-eina_matnr. CALL FUNCTION \'CONVERSION_EXIT_ALPHA_OUTPUT\' EXPORTING input = wa_nl-eina_lifnr IMPORTING output = wa_nl-eina_lifnr. LOOP AT temp_tab WHERE eina_matnr = wa_nl-eina_matnr AND eina_lifnr = wa_nl-eina_lifnr AND eine_werks = wa_nl-eine_werks AND eine_ekorg = wa_nl-eine_ekorg. MOVE-CORRESPONDING temp_tab TO wa_tab1. APPEND wa_tab1 TO gt_tab1. ENDLOOP. ENDLOOP. LOOP AT gt_nl2 INTO wa_nl2. CALL FUNCTION \'CONVERSION_EXIT_ALPHA_OUTPUT\' EXPORTING input = wa_nl2-eina_matnr IMPORTING output = wa_nl2-eina_matnr. CALL FUNCTION \'CONVERSION_EXIT_ALPHA_OUTPUT\' EXPORTING input = wa_nl2-eina_lifnr IMPORTING output = wa_nl2-eina_lifnr. LOOP AT temp_tab WHERE eina_matnr = wa_nl2-eina_matnr AND eina_lifnr = wa_nl2-eina_lifnr AND eine_werks = wa_nl2-eine_werks AND eine_ekorg = wa_nl2-eine_ekorg. MOVE-CORRESPONDING temp_tab TO wa_tab2. APPEND wa_tab2 TO gt_tab2. ENDLOOP. ENDLOOP. CLEAR:temp_tab[],temp_tab. ENDFORM. " PROCESS_FILE1 *&---------------------------------------------------------------------* *& Form create_me11 *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM create_me11. LOOP AT gt_tab1 INTO wa_tab1 WHERE flag = \'X\'. CLEAR: aplfzc,normbc,netprc,netprcx,peinhc. aplfzc = wa_tab1-eina_mahn1. normbc = wa_tab1-eine_norbm. netprc = wa_tab1-eine_netpr. "净价 peinhc = wa_tab1-eine_peinh. CONDENSE aplfzc NO-GAPS. CONDENSE normbc NO-GAPS. CONDENSE netprcx NO-GAPS. "GYP CONDENSE peinhc NO-GAPS. CALL FUNCTION \'CONVERSION_EXIT_ALPHA_INPUT\' EXPORTING input = wa_tab1-eina_matnr IMPORTING output = wa_tab1-eina_matnr. CALL FUNCTION \'CONVERSION_EXIT_ALPHA_INPUT\' EXPORTING input = wa_tab1-eina_lifnr IMPORTING output = wa_tab1-eina_lifnr. SELECT SINGLE waers FROM lfm1 INTO wa_tab1-eine_waers WHERE lifnr = wa_tab1-eina_lifnr AND ekorg = wa_tab1-eine_ekorg. IF wa_tab1-eine_waers = \'USD\'. wa_tab1-eine_mwskz = \'J0\'. ELSEIF wa_tab1-eine_waers = \'CNY\'. wa_tab1-eine_mwskz = \'J6\'. ENDIF. SELECT SINGLE t007s~text1 INTO text2 FROM t007s WHERE t007s~mwskz = wa_tab1-eine_mwskz AND t007s~spras = sy-langu AND t007s~kalsm = \'TAXCN\'. "附加税值名 IF text2+1(1) = \'%\'. p = text2+0(1). ELSE. p = text2+0(2). ENDIF. netprc = netprc / ( 1 + ( p / 100 ) ). "增值税 netprcx = netprc. * netprc = netprc * ( 1 + ( p / 100 ) ). "增值税 GYP CONDENSE netprcx NO-GAPS. "gyp CLEAR: bdcdata,bdcdata[] . PERFORM bdc_dynpro USING \'SAPMM06I\' \'0100\'. PERFORM bdc_field USING \'BDC_CURSOR\' \'EINE-WERKS\'. PERFORM bdc_field USING \'BDC_OKCODE\' \'/00\'. PERFORM bdc_field USING \'EINA-LIFNR\' wa_tab1-eina_lifnr."供应商 PERFORM bdc_field USING \'EINA-MATNR\' wa_tab1-eina_matnr. "材料 PERFORM bdc_field USING \'EINE-EKORG\' wa_tab1-eine_ekorg. "采购组织 PERFORM bdc_field USING \'EINE-WERKS\' wa_tab1-eine_werks. "工厂 IF wa_tab1-wx = \'X\'. PERFORM bdc_field USING \'RM06I-LOHNB\' \'X\'. ELSE. PERFORM bdc_field USING \'RM06I-NORMB\' \'X\'. ENDIF. PERFORM bdc_dynpro USING \'SAPMM06I\' \'0101\'. PERFORM bdc_field USING \'BDC_CURSOR\' \'EINA-URZZT\'. PERFORM bdc_field USING \'BDC_OKCODE\' \'/00\'. PERFORM bdc_field USING \'EINA-MAHN1\' aplfzc. "CLX PERFORM bdc_field USING \'EINA-URZTP\' wa_tab1-eina_urztp. "价格执行方式 PERFORM bdc_field USING \'EINA-URZZT\' wa_tab1-eina_urzzt. "编号 PERFORM bdc_dynpro USING \'SAPMM06I\' \'0102\'. PERFORM bdc_field USING \'BDC_CURSOR\' \'EINE-MWSKZ\'. PERFORM bdc_field USING \'BDC_OKCODE\' \'=KO\'. "/00 PERFORM bdc_field USING \'EINE-NORBM\' normbc. "标准数量 PERFORM bdc_field USING \'EINE-MWSKZ\' wa_tab1-eine_mwskz. "税代码 PERFORM bdc_field USING \'EINE-NETPR\' netprcx. "净价 PERFORM bdc_field USING \'EINE-WAERS\' wa_tab1-eine_waers. "净价货币 PERFORM bdc_dynpro USING \'SAPMV13A\' \'0201\'. PERFORM bdc_field USING \'BDC_CURSOR\' \'RV13A-DATBI\'. PERFORM bdc_field USING \'BDC_OKCODE\' \'=BACK\'. PERFORM bdc_field USING \'RV13A-DATAB\' wa_tab1-rv13a_datab. "开始时间 PERFORM bdc_field USING \'RV13A-DATBI\' wa_tab1-rv13a_datbi. "结束时间 PERFORM bdc_field USING \'KONP-KPEIN(01)\' peinhc. "单位 PERFORM bdc_dynpro USING \'SAPMM06I\' \'0102\'. PERFORM bdc_field USING \'BDC_CURSOR\' \'EINE-APLFZ\'. PERFORM bdc_field USING \'BDC_OKCODE\' \'/00\'. "/00 PERFORM bdc_field USING \'EINE-NORBM\' normbc. "标准数量 PERFORM bdc_field USING \'EINE-MWSKZ\' wa_tab1-eine_mwskz. "税代码 PERFORM bdc_field USING \'EINE-NETPR\' netprcx. "净价 PERFORM bdc_dynpro USING \'SAPMM06I\' \'0105\'. PERFORM bdc_field USING \'BDC_CURSOR\' \'EINE-ANGNR\'. PERFORM bdc_field USING \'BDC_OKCODE\' \'/00\'. PERFORM bdc_field USING \'EINE-ANGNR\' wa_tab1-eine_angnr. "报价 PERFORM bdc_dynpro USING \'SAPMM06I\' \'0103\'. PERFORM bdc_field USING \'BDC_CURSOR\' \'RM06I-LTEX1(01)\'. PERFORM bdc_field USING \'BDC_OKCODE\' \'=BU\'. * PERFORM bdc_field USING \'RM06I-LTEX1(01)\' wa_tab1-rm06i_ltex1. "记录信息 CALL TRANSACTION \'ME11\' USING bdcdata MODE \'A\' UPDATE \'S\' MESSAGES INTO messtab. READ TABLE messtab WITH KEY msgtyp = \'E\'. IF sy-subrc = 0. LOOP AT messtab WHERE msgtyp = \'E\'. CALL FUNCTION \'MESSAGE_TEXT_BUILD\' "消息编号及变量使用函数转换为消息内容输出 EXPORTING msgid = messtab-msgid msgnr = messtab-msgnr msgv1 = messtab-msgv1 msgv2 = messtab-msgv2 msgv3 = messtab-msgv3 msgv4 = messtab-msgv4 IMPORTING message_text_output = result_mesg. ENDLOOP. CONCATENATE \'物料\' wa_tab1-eina_matnr \'：\' result_mesg INTO result_mesg. APPEND result_mesg. CLEAR result_mesg. ELSE. PERFORM condition USING wa_tab1. ENDIF. ENDLOOP. ENDFORM. "create_me11 *&---------------------------------------------------------------------* *& Form CONDITION *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_wa_tab1 text *----------------------------------------------------------------------* FORM condition USING value(lt_tab) TYPE ty_tab1. DATA num TYPE n LENGTH 4. "数量等级行号 CLEAR:ti_bapicondct[],ti_bapicondct,ti_bapicondhd[],ti_bapicondhd,ti_bapicondit[],ti_bapicondit,ti_bapicondqs[],ti_bapicondqs,lv_bprme. DATA esokzc TYPE c. IF lt_tab-wx = \'X\'. esokzc = \'3\'. ELSE. esokzc = \'0\'. ENDIF. SELECT SINGLE * INTO CORRESPONDING FIELDS OF ls_a017 FROM a017 WHERE kschl = \'PB00\' "条件类型 "kappl = \'M\' "应用：M采购 AND lifnr = lt_tab-eina_lifnr "供应商帐户号 AND matnr = lt_tab-eina_matnr "物料 AND ekorg = lt_tab-eine_ekorg "采购组织 AND werks = lt_tab-eine_werks "工厂 AND esokz = esokzc. "采购信息记录分类-(0:标准 3:分包合同) CLEAR esokzc. SELECT SINGLE kmein INTO lv_bprme FROM konp WHERE knumh = ls_a017-knumh. "konp:条件（项目） kmein:条件单位 ti_bapicondct-operation = \'004\' . "004修改 _009创建 ti_bapicondct-cond_usage = \'A\'. "条件表用途：定价 ti_bapicondct-table_no = \'017\' . "条件表 ti_bapicondct-applicatio = \'M\' . ti_bapicondct-cond_type = \'PB00\' . ti_bapicondct-valid_to = lt_tab-rv13a_datbi. "条件记录有效截止日期 ti_bapicondct-valid_from = lt_tab-rv13a_datab. "条件记录有效起始日 ti_bapicondct-cond_no = ls_a017-knumh . "条件记录号 APPEND ti_bapicondct . CLEAR ti_bapicondct . *KONH的BAPI结构----条件( 抬头 ) ti_bapicondhd-operation = \'004\' . ti_bapicondhd-cond_no = ls_a017-knumh . "条件记录号 ti_bapicondhd-created_by = sy-uname. "创建对象的人员名称 ti_bapicondhd-creat_date = sy-datum. "记录的创建日期 ti_bapicondhd-cond_usage = \'A\' . ti_bapicondhd-table_no = \' 017\' . ti_bapicondhd-applicatio = \'M\' . ti_bapicondhd-cond_type = \' PB00\' . ti_bapicondhd-valid_from = lt_tab-rv13a_datbi. ti_bapicondhd-valid_to = lt_tab-rv13a_datab. APPEND ti_bapicondhd. CLEAR ti_bapicondhd. *KONP的BAPI结构 ti_bapicondit-operation = \'004\' . ti_bapicondit-cond_no = ls_a017-knumh. ti_bapicondit-cond_count = \'01\' . "条件的序列号 ti_bapicondit-applicatio = \'M\' . ti_bapicondit-cond_type = \'PB00\' . ti_bapicondit-scaletype = \'A\' . ti_bapicondit-scalebasin = \'C\' . "等级基值指示符,数量规模 ti_bapicondit-scale_qty = 1 . "条件等级数量 ti_bapicondit-calctypcon = \'C\' . "条件计算类型--- C:数量 A:百分比 ti_bapicondit-cond_value = lt_tab-eine_netpr. "BAPIs 的货币金额（带有 9 个小数位）-净价 ti_bapicondit-condcurr = lt_tab-eine_waers. "比率单位(货币或百分数):CNY ti_bapicondit-cond_p_unt = peinhc. "条件定价单位(单位=1) ti_bapicondit-cond_unit = lv_bprme. "条件单位(EA) ti_bapicondit-condcurren = lt_tab-eine_waers. ti_bapicondit-unitmeasur = lv_bprme. "条件等级计量单位 APPEND ti_bapicondit. CLEAR ti_bapicondit. CALL FUNCTION \'CONVERSION_EXIT_ALPHA_OUTPUT\' EXPORTING input = lt_tab-eina_lifnr IMPORTING output = lt_tab-eina_lifnr. CALL FUNCTION \'CONVERSION_EXIT_ALPHA_OUTPUT\' EXPORTING input = lt_tab-eina_matnr IMPORTING output = lt_tab-eina_matnr. *PB00--->设置等级数量 CALL FUNCTION \'CONVERSION_EXIT_ALPHA_OUTPUT\' EXPORTING input = lt_tab-eina_matnr IMPORTING output = lt_tab-eina_matnr. CALL FUNCTION \'CONVERSION_EXIT_ALPHA_OUTPUT\' EXPORTING input = lt_tab-eina_lifnr IMPORTING output = lt_tab-eina_lifnr. LOOP AT gt_tab1 INTO wa_tab1 WHERE konm_kbetr > 0 AND eina_lifnr = lt_tab-eina_lifnr AND eina_matnr = lt_tab-eina_matnr AND eine_ekorg = lt_tab-eine_ekorg AND eine_werks = lt_tab-eine_werks. "数量等级金额>0 num = num + 1. ti_bapicondqs-operation = \'004\' . ti_bapicondqs-cond_no = ls_a017-knumh. ti_bapicondqs-cond_count = \'01\' . ti_bapicondqs-line_no = num. ti_bapicondqs-scale_qty = wa_tab1-konm_kstbm. "条件等级数量 ti_bapicondqs-cond_unit = lv_bprme. "条件单位 ti_bapicondqs-currency = wa_tab1-konm_kbetr. "BAPIs 的货币金额（带有 9 个小数位） ti_bapicondqs-condcurr = lt_tab-eine_waers. "比率单位(货币或百分数) APPEND ti_bapicondqs . CLEAR ti_bapicondqs . ENDLOOP. CLEAR num. IF lt_tab-eine_waers = \'CNY\'. *如果货币单位为CNY，添加ZVA1类型 ti_bapicondit-operation = \'004\' . ti_bapicondit-cond_no = ls_a017-knumh. ti_bapicondit-cond_count = \'02\'. "条件的序列号 ti_bapicondit-applicatio = \'M\'. ti_bapicondit-cond_type = \'ZVA1\'. "类型2：ZVA1 ti_bapicondit-scaletype = \'A\'. "A基础等级 ti_bapicondit-scalebasin = \'C\' . "等级基值指示符,数量规模 ti_bapicondit-scale_qty = \'2\'. "条件等级数量 ti_bapicondit-calctypcon = \'A\' . "条件计算类型--- C:数量 A:百分比 IF lt_tab-konm_kbetr2 <> 0 OR lt_tab-konm_kbetr2 <> \'\'. ti_bapicondit-cond_value = lt_tab-konm_kbetr2. "BAPIs 的货币金额（带有 9 个小数位）-（-5%）konm_kbetr2 ENDIF. ti_bapicondit-condcurr = lt_tab-konp_konwa2. "比率单位(货币或百分数):CNY ti_bapicondit-cond_unit = lt_tab-konp_konwa2. "条件单位 ti_bapicondit-cond_unit = lv_bprme. ti_bapicondit-unitmeasur = lv_bprme. "条件等级计量单位 APPEND ti_bapicondit. CLEAR ti_bapicondit. *ZVA1--->设置等级数量 LOOP AT gt_tab1 INTO wa_tab1 WHERE konm_kbetr > 0 AND eina_lifnr = lt_tab-eina_lifnr AND eina_matnr = lt_tab-eina_matnr AND eine_ekorg = lt_tab-eine_ekorg AND eine_werks = lt_tab-eine_werks. "数量等级金额>0 num = num + 1. ti_bapicondqs-operation = \'004\' . ti_bapicondqs-cond_no = ls_a017-knumh. ti_bapicondqs-cond_count = \'02\' . ti_bapicondqs-line_no = num. ti_bapicondqs-scale_qty = wa_tab1-konm_kstbm. "条件等级数量 ti_bapicondqs-cond_unit = lv_bprme. "条件单位 ti_bapicondqs-currency = wa_tab1-konm_kbetr. "BAPIs 的货币金额（带有 9 个小数位） ti_bapicondqs-condcurr = lt_tab-konp_konwa2. "比率单位(货币或百分数) APPEND ti_bapicondqs . CLEAR ti_bapicondqs . ENDLOOP. CLEAR num. ENDIF. CALL FUNCTION \'BAPI_PRICES_CONDITIONS\' TABLES ti_bapicondct = ti_bapicondct ti_bapicondhd = ti_bapicondhd ti_bapicondit = ti_bapicondit ti_bapicondqs = ti_bapicondqs ti_bapicondvs = ti_bapicondvs to_bapiret2 = bapiret2 to_bapiknumhs = to_bapiknumhs to_mem_initial = to_mem_initial EXCEPTIONS update_error = 1 OTHERS = 2. IF sy-subrc = 0. DATA gv_infnr TYPE infnr. CALL FUNCTION \'CONVERSION_EXIT_ALPHA_INPUT\' EXPORTING input = lt_tab-eina_lifnr IMPORTING output = lt_tab-eina_lifnr. CALL FUNCTION \'CONVERSION_EXIT_ALPHA_INPUT\' EXPORTING input = lt_tab-eina_matnr IMPORTING output = lt_tab-eina_matnr. SELECT SINGLE infnr INTO gv_infnr FROM eina WHERE matnr = lt_tab-eina_matnr AND lifnr = lt_tab-eina_lifnr. CONCATENATE gv_infnr \' 信息记录已创建！\' INTO result_mesg. APPEND result_mesg. CLEAR result_mesg. ELSE. CALL FUNCTION \'BAPI_TRANSACTION_ROLLBACK\'. CONCATENATE lt_tab-eina_matnr \'操作错误！\' INTO result_mesg. APPEND result_mesg. CLEAR:gv_infnr,result_mesg. ENDIF. ENDFORM. " CONDITION *&---------------------------------------------------------------------* *& Form UPDATE_ME12 *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM update_me12. LOOP AT gt_tab2 INTO wa_tab2 WHERE flag = \'X\'. CLEAR: aplfzc,normbc,netprc,netprcx,peinhc. peinhc = wa_tab2-eine_peinh. CONDENSE peinhc NO-GAPS. CALL FUNCTION \'CONVERSION_EXIT_ALPHA_INPUT\' EXPORTING input = wa_tab2-eina_matnr IMPORTING output = wa_tab2-eina_matnr. CALL FUNCTION \'CONVERSION_EXIT_ALPHA_INPUT\' EXPORTING input = wa_tab2-eina_lifnr IMPORTING output = wa_tab2-eina_lifnr. netprc = wa_tab2-eine_netpr. netprcx = netprc. CONDENSE netprcx NO-GAPS. "GYP CLEAR bdcdata[]. PERFORM bdc_dynpro USING \'SAPMM06I\' \'0100\'. PERFORM bdc_field USING \'BDC_CURSOR\' \'EINE-WERKS\'. PERFORM bdc_field USING \'BDC_OKCODE\' \'/00\'. PERFORM bdc_field USING \'EINA-LIFNR\' wa_tab2-eina_lifnr. PERFORM bdc_field USING \'EINA-MATNR\' wa_tab2-eina_matnr. PERFORM bdc_field USING \'EINE-EKORG\' wa_tab2-eine_ekorg. PERFORM bdc_field USING \'EINE-WERKS\' wa_tab2-eine_werks. IF wa_tab2-wx = \'X\'. PERFORM bdc_field USING \'RM06I-LOHNB\' \'X\'. ELSE. PERFORM bdc_field USING \'RM06I-NORMB\' \'X\'. ENDIF. PERFORM bdc_dynpro USING \'SAPMM06I\' \'0101\'. PERFORM bdc_field USING \'BDC_CURSOR\' \'EINA-URZTP\'. PERFORM bdc_field USING \'BDC_OKCODE\' \'/00\'. PERFORM bdc_field USING \'EINA-URZTP\' \'\'. PERFORM bdc_field USING \'EINA-URZTP\' wa_tab2-eina_urztp. PERFORM bdc_dynpro USING \'SAPMM06I\' \'0102\'. PERFORM bdc_field USING \'BDC_CURSOR\' \'EINE-MWSKZ\'. PERFORM bdc_field USING \'BDC_OKCODE\' \'/00\'. PERFORM bdc_field USING \'EINE-MWSKZ\' wa_tab2-eine_mwskz. PERFORM bdc_dynpro USING \'SAPMM06I\' \'0105\'. PERFORM bdc_field USING \'BDC_CURSOR\' \'EINE-ANGNR\'. PERFORM bdc_field USING \'BDC_OKCODE\' \'=KO\'. PERFORM bdc_field USING \'EINE-ANGNR\' wa_tab2-eine_angnr. PERFORM bdc_dynpro USING \'SAPLV14A\' \'0102\'. PERFORM bdc_field USING \'BDC_CURSOR\' \'VAKE-DATAB(01)\'. PERFORM bdc_field USING \'BDC_OKCODE\' \'=NEWD\'. PERFORM bdc_dynpro USING \'SAPMV13A\' \'0201\'. PERFORM bdc_field USING \'BDC_CURSOR\' \'KONP-KBETR(01)\'. PERFORM bdc_field USING \'BDC_OKCODE\' \'=SICH\'. PERFORM bdc_field USING \'RV13A-DATAB\' wa_tab2-rv13a_datab. PERFORM bdc_field USING \'RV13A-DATBI\' wa_tab2-rv13a_datbi. PERFORM bdc_field USING \'KONP-KBETR(01)\' netprcx. CALL TRANSACTION \'ME12\' USING bdcdata MODE \'N\' UPDATE \'S\' MESSAGES INTO messtab. READ TABLE messtab WITH KEY msgtyp = \'E\'. IF sy-subrc = 0. LOOP AT messtab WHERE msgtyp = \'E\'. CALL FUNCTION \'MESSAGE_TEXT_BUILD\' "消息编号及变量使用函数转换为消息内容输出 EXPORTING msgid = messtab-msgid msgnr = messtab-msgnr msgv1 = messtab-msgv1 msgv2 = messtab-msgv2 msgv3 = messtab-msgv3 msgv4 = messtab-msgv4 IMPORTING message_text_output = result_mesg. ENDLOOP. CONCATENATE \'物料\' wa_tab2-eina_matnr \':\' result_mesg INTO result_mesg. APPEND result_mesg. CLEAR result_mesg. ELSE. PERFORM condition2 USING wa_tab2. "更新数量等级 ENDIF. ENDLOOP. ENDFORM. "UPDATE_ME12 *&---------------------------------------------------------------------* *& Form condition2 *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->LT_TAB text *----------------------------------------------------------------------* FORM condition2 USING value(lt_tab) TYPE ty_tab1. DATA num TYPE n LENGTH 4. "数量等级行号 CLEAR:ti_bapicondct[],ti_bapicondct,ti_bapicondhd[],ti_bapicondhd,ti_bapicondit[],ti_bapicondit,ti_bapicondqs[],ti_bapicondqs,lv_bprme,num. DATA esokzc TYPE c. IF lt_tab-wx = \'X\'. esokzc = \'3\'. ELSE. esokzc = \'0\'. ENDIF. CALL FUNCTION \'CONVERSION_EXIT_ALPHA_INPUT\' EXPORTING input = lt_tab-eina_matnr IMPORTING output = lt_tab-eina_matnr. CALL FUNCTION \'CONVERSION_EXIT_ALPHA_INPUT\' EXPORTING input = lt_tab-eina_lifnr IMPORTING output = lt_tab-eina_lifnr. SELECT SINGLE * INTO CORRESPONDING FIELDS OF ls_a017 FROM a017 WHERE kschl = \'PB00\' "条件类型 AND lifnr = lt_tab-eina_lifnr "供应商帐户号 AND matnr = lt_tab-eina_matnr "物料 AND ekorg = lt_tab-eine_ekorg "采购组织 AND werks = lt_tab-eine_werks "工厂 AND datab = lt_tab-rv13a_datab "起始时间 AND datbi = lt_tab-rv13a_datbi "截止时间 AND esokz = esokzc. "采购信息记录分类-(0:标准 3:分包合同) CLEAR esokzc. SELECT SINGLE kmein INTO lv_bprme FROM konp WHERE knumh = ls_a017-knumh. "konp:条件（项目） kmein: ti_bapicondct-operation = \'004\' . "004修改 _009创建 ti_bapicondct-cond_usage = \'A\'. "条件表用途：定价 ti_bapicondct-table_no = \'017\' . "条件表 ti_bapicondct-applicatio = \'M\' . ti_bapicondct-cond_type = \'PB00\' . ti_bapicondct-valid_from = lt_tab-rv13a_datab. "条件记录有效起始日 ti_bapicondct-valid_to = lt_tab-rv13a_datbi. "条件记录有效截止日期 ti_bapicondct-cond_no = ls_a017-knumh . "条件记录号 APPEND ti_bapicondct . CLEAR ti_bapicondct . *KONH的BAPI结构----条件( 抬头 ) ti_bapicondhd-operation = \'004\' . ti_bapicondhd-cond_no = ls_a017-knumh . "条件记录号 ti_bapicondhd-created_by = sy-uname. "创建对象的人员名称 ti_bapicondhd-creat_date = sy-datum. "记录的创建日期 ti_bapicondhd-cond_usage = \'A\' . ti_bapicondhd-table_no = \' 017\' . ti_bapicondhd-applicatio = \'M\' . ti_bapicondhd-cond_type = \' PB00\' . ti_bapicondhd-valid_from = lt_tab-rv13a_datab. ti_bapicondhd-valid_to = lt_tab-rv13a_datbi. APPEND ti_bapicondhd . CLEAR ti_bapicondhd . *KONP的BAPI结构 ti_bapicondit-operation = \'004\' . ti_bapicondit-cond_no = ls_a017-knumh. ti_bapicondit-cond_count = \'01\' . "条件的序列号 ti_bapicondit-applicatio = \'M\' . ti_bapicondit-cond_type = \'PB00\' . ti_bapicondit-scaletype = \'A\' . ti_bapicondit-scalebasin = \'C\' . "等级基值指示符,数量规模 ti_bapicondit-scale_qty = 1 . "条件等级数量 ti_bapicondit-calctypcon = \'C\' . "条件计算类型--- C:数量 A:百分比 ti_bapicondit-cond_value = netprcx. "BAPIs 的货币金额（带有 9 个小数位）-净价 ti_bapicondit-condcurr = lt_tab-eine_waers. "比率单位(货币或百分数):CNY ti_bapicondit-cond_p_unt = peinhc. "条件定价单位(单位=1) ti_bapicondit-cond_unit = lv_bprme. "条件单位 ti_bapicondit-condcurren = lt_tab-eine_waers. ti_bapicondit-unitmeasur = lv_bprme. "条件等级计量单位 APPEND ti_bapicondit. CLEAR ti_bapicondit. *PB00--->设置等级数量 CALL FUNCTION \'CONVERSION_EXIT_ALPHA_OUTPUT\' EXPORTING input = lt_tab-eina_matnr IMPORTING output = lt_tab-eina_matnr. CALL FUNCTION \'CONVERSION_EXIT_ALPHA_OUTPUT\' EXPORTING input = lt_tab-eina_lifnr IMPORTING output = lt_tab-eina_lifnr. LOOP AT gt_tab2 INTO wa_tab2 WHERE konm_kbetr > 0 AND eina_lifnr = lt_tab-eina_lifnr AND eina_matnr = lt_tab-eina_matnr AND eine_ekorg = lt_tab-eine_ekorg AND eine_werks = lt_tab-eine_werks. "数量等级金额>0 num = num + 1. ti_bapicondqs-operation = \'004\' . ti_bapicondqs-cond_no = ls_a017-knumh. ti_bapicondqs-cond_count = \'01\' . ti_bapicondqs-line_no = num. ti_bapicondqs-scale_qty = wa_tab2-konm_kstbm. "条件等级数量 ti_bapicondqs-cond_unit = lv_bprme. "条件单位 ti_bapicondqs-currency = wa_tab2-konm_kbetr. "BAPIs 的货币金额（带有 9 个小数位） ti_bapicondqs-condcurr = lt_tab-eine_waers. "比率单位(货币或百分数) APPEND ti_bapicondqs . CLEAR ti_bapicondqs . ENDLOOP. CLEAR num. IF lt_tab-eine_waers = \'CNY\'. *如果货币单位为CNY，添加ZVA1类型 ti_bapicondit-operation = \'004\' . ti_bapicondit-cond_no = ls_a017-knumh. ti_bapicondit-cond_count = \'02\'. "条件的序列号 ti_bapicondit-applicatio = \'M\'. ti_bapicondit-cond_type = lt_tab-konp_kschl2. "进项税扣除ZVA1 ti_bapicondit-scaletype = \'A\'. "A基础等级 ti_bapicondit-scalebasin = \'C\' . "等级基值指示符,数量规模 ti_bapicondit-scale_qty = \'2\'. "条件等级数量 ti_bapicondit-calctypcon = \'A\' . "条件计算类型--- C:数量 A:百分比 IF lt_tab-konm_kbetr2 <> 0 OR lt_tab-konm_kbetr2 <> \'\'. ti_bapicondit-cond_value = lt_tab-konm_kbetr2. "BAPIs 的货币金额（带有 9 个小数位）-（-5%）konm_kbetr2 ENDIF. ti_bapicondit-condcurr = lt_tab-konp_konwa2. "比率单位(货币或百分数):CNY ti_bapicondit-cond_unit = lt_tab-konp_konwa2. "条件单位 ti_bapicondit-cond_unit = lv_bprme. ti_bapicondit-unitmeasur = lv_bprme. "条件等级计量单位 APPEND ti_bapicondit. CLEAR ti_bapicondit. *ZVA1--->设置等级数量 LOOP AT gt_tab2 INTO wa_tab2 WHERE konm_kbetr > 0 AND eina_lifnr = lt_tab-eina_lifnr AND eina_matnr = lt_tab-eina_matnr AND eine_ekorg = lt_tab-eine_ekorg AND eine_werks = lt_tab-eine_werks. "数量等级金额>0 num = num + 1. ti_bapicondqs-operation = \'004\' . ti_bapicondqs-cond_no = ls_a017-knumh. ti_bapicondqs-cond_count = \'02\' . ti_bapicondqs-line_no = num. ti_bapicondqs-scale_qty = wa_tab2-konm_kstbm. "条件等级数量 ti_bapicondqs-cond_unit = lv_bprme. "条件单位 ti_bapicondqs-currency = wa_tab2-konm_kbetr. "BAPIs 的货币金额（带有 9 个小数位） ti_bapicondqs-condcurr = lt_tab-konp_konwa2. "比率单位(货币或百分数) APPEND ti_bapicondqs . CLEAR ti_bapicondqs . ENDLOOP. CLEAR num. ENDIF. CALL FUNCTION \'BAPI_PRICES_CONDITIONS\' TABLES ti_bapicondct = ti_bapicondct ti_bapicondhd = ti_bapicondhd ti_bapicondit = ti_bapicondit ti_bapicondqs = ti_bapicondqs ti_bapicondvs = ti_bapicondvs to_bapiret2 = bapiret2 to_bapiknumhs = to_bapiknumhs to_mem_initial = to_mem_initial EXCEPTIONS update_error = 1 OTHERS = 2. IF sy-subrc = 0. CALL FUNCTION \'MESSAGE_TEXT_BUILD\' "消息编号及变量使用函数转换为消息内容输出 EXPORTING msgid = messtab-msgid msgnr = messtab-msgnr msgv1 = messtab-msgv1 msgv2 = messtab-msgv2 msgv3 = messtab-msgv3 msgv4 = messtab-msgv4 IMPORTING message_text_output = result_mesg. CONCATENATE \'物料\' lt_tab-eina_matnr \' 更改并创建有效期 \' lt_tab-rv13a_datab \'-\' lt_tab-rv13a_datbi INTO result_mesg. APPEND result_mesg. CLEAR result_mesg. ELSE. CALL FUNCTION \'BAPI_TRANSACTION_ROLLBACK\'. CONCATENATE \'物料\' lt_tab-eina_matnr \'操作错误！\' INTO result_mesg. APPEND result_mesg. CLEAR result_mesg. ENDIF. ENDFORM. " CONDITION *&---------------------------------------------------------------------* *& Form bdc_dynpro *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->VALUE(PROGRAM) text * -->VALUE(DYNPRO) text *----------------------------------------------------------------------* FORM bdc_dynpro USING value(program) value(dynpro). CLEAR bdcdata. bdcdata-program = program. bdcdata-dynpro = dynpro. bdcdata-dynbegin = \'X\'. APPEND bdcdata. ENDFORM. "BDC_DYNPRO *&---------------------------------------------------------------------* *& Form bdc_field *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->VALUE(FNAM) text * -->VALUE(FVAL) text *----------------------------------------------------------------------* FORM bdc_field USING value(fnam) value(fval). CLEAR bdcdata. bdcdata-fnam = fnam. bdcdata-fval = fval. APPEND bdcdata. ENDFORM. "bdc_field *&---------------------------------------------------------------------* *& Form OPEN *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM open . CALL FUNCTION \'KD_GET_FILENAME_ON_F4\' EXPORTING program_name = syst-repid dynpro_number = syst-dynnr mask = \'*.xlsx,*.xls\' static = \'X\' CHANGING file_name = p_file. ENDFORM. " OPEN *&---------------------------------------------------------------------* *& Form upload_file *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM upload_file1. DATA: it_raw_data TYPE truxs_t_text_data. FIELD-SYMBOLS <fs> TYPE ty_tab1. FIELD-SYMBOLS:<fw>. DATA: i_excel TYPE TABLE OF zalsmex_tabline,"表格结构。" w_excel TYPE zalsmex_tabline. DATA:num_col TYPE i. REFRESH: gt_tab1. "调用此函数，将Excel中的内容以类似坐标的形式存储到I_excel内表中。" CALL FUNCTION \'ZZALSM_EXCEL_TO_INTERNAL_TABLE\' EXPORTING filename = p_file i_begin_col = 1 i_begin_row = 1 i_end_col = 30 "控制传入字段个数 i_end_row = 5000 TABLES intern = i_excel EXCEPTIONS inconsistent_parameters = 1 upload_ole = 2 OTHERS = 3. DELETE i_excel WHERE row = 1. "删除第一行文本抬头。 IF i_excel IS INITIAL. CALL FUNCTION \'POPUP_TO_CONFIRM_WITH_MESSAGE\' EXPORTING diagnosetext1 = \'数据错误\' textline1 = \'Excel表格中没有内容！\' titel = \'提示\'. RETURN. ENDIF. SORT i_excel BY row col. LOOP AT i_excel INTO w_excel. num_col = w_excel-col. ASSIGN COMPONENT num_col OF STRUCTURE wa_tab1 TO <fw>. <fw> = w_excel-value. AT END OF row. APPEND wa_tab1 TO gt_tab1. CLEAR:wa_tab1. ENDAT. CLEAR:w_excel. ENDLOOP. ENDFORM. " UPLOAD_FILE *&---------------------------------------------------------------------* *& Form result_message *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM result_message. CLEAR: aplfzc,normbc,netprc,netprcx,peinhc. CLEAR:ti_bapicondct[],ti_bapicondct,ti_bapicondhd[],ti_bapicondhd,ti_bapicondit[],ti_bapicondit,ti_bapicondqs[],ti_bapicondqs,lv_bprme. LOOP AT result_mesg. WRITE: / result_mesg. ENDLOOP. ENDFORM. "sub_output_result *&---------------------------------------------------------------------* *& Form DOWNLOAD_TEMPLATE *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM dl_template. CASE sscrfields-ucomm. WHEN \'FC01\'. PERFORM download_template. "创建 ENDCASE. ENDFORM. " DOWNLOAD_TEMPLATE *&---------------------------------------------------------------------* *& Form DOWNLOAD_TEMPLATE1 *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM download_template. DATA lv_file LIKE rlgrap-filename. DATA lv_string TYPE string. CALL FUNCTION \'KD_GET_FILENAME_ON_F4\' EXPORTING * PROGRAM_NAME = SYST-REPID * DYNPRO_NUMBER = SYST-DYNNR * field_name = lv_string static = \'X\' mask = \',EXCEL,*.xls.\' * FILEOPERATION = \'R\' * PATH = CHANGING file_name = lv_file. CLEAR wa_tab1. wa_tab1-flag = \'X\'. "记录标识 wa_tab1-wx = \'\'. "是否外协 wa_tab1-eina_mahn1 = \'20\'. "CLX wa_tab1-eina_urztp = \'1\'. "价格执行方式 wa_tab1-eina_urzzt = \'111\'. "编号 wa_tab1-eine_norbm = \'10\'. "标准数量 wa_tab1-eine_mwskz = \'J6\'. "税代码 wa_tab1-eine_netpr = \'10\'. "净价 wa_tab1-eine_waers = \'CNY\'. "净价货币 wa_tab1-eine_angnr = \'10\'. "报价 wa_tab1-eine_peinh = \'1\'. "价格单位 * wa_tab1-rm06i_ltex1 = \'信息文本\'. "记录信息文本 wa_tab1-rv13a_datab = \'20190901\'. "有效时间从 wa_tab1-rv13a_datbi = \'20190910\'. "有效时间到 * wa_tab1-konp_konwa = \'CNY\'. "PB00比率单位(货币或百分数) wa_tab1-konp_kschl2 = \'ZVA1\'. "条件类型2 wa_tab1-konm_kbetr2 = \'-5\'. "条件金额2 wa_tab1-konp_konwa2 = \'%\'. "ZVA1比率单位(货币或百分数) wa_tab1-eina_lifnr = \'101472\'. "供应商 wa_tab1-eina_matnr = \'YCL*\'. "材料 wa_tab1-eine_ekorg = \'1000\'. "采购组织 wa_tab1-eine_werks = \'7888\'. "工厂 wa_tab1-konm_kstbm = \'1000\'. "条件等级数量 wa_tab1-konm_kbetr = \'10\'. "条件金额 APPEND wa_tab1 TO gt_tab1. CLEAR wa_tab1. wa_tab1-eina_lifnr = \'101472\'. "供应商 wa_tab1-eina_matnr = \'YCL*\'. "材料 wa_tab1-eine_ekorg = \'1000\'. "采购组织 wa_tab1-eine_werks = \'7888\'. "工厂 wa_tab1-konm_kstbm = \'2000\'. "条件等级数量 wa_tab1-konm_kbetr = \'9\'. "条件金额 APPEND wa_tab1 TO gt_tab1. CLEAR wa_tab1. wa_tab1-eina_lifnr = \'101472\'. "供应商 wa_tab1-eina_matnr = \'YCL*\'. "材料 wa_tab1-eine_ekorg = \'1000\'. "采购组织 wa_tab1-eine_werks = \'7888\'. "工厂 wa_tab1-konm_kstbm = \'1000\'. "条件等级数量 wa_tab1-konm_kbetr = \'-5\'. "条件金额 APPEND wa_tab1 TO gt_tab1. CLEAR wa_tab1. wa_tab1-eina_lifnr = \'101472\'. "供应商 wa_tab1-eina_matnr = \'YCL*\'. "材料 wa_tab1-eine_ekorg = \'1000\'. "采购组织 wa_tab1-eine_werks = \'7888\'. "工厂 wa_tab1-konm_kstbm = \'2000\'. "条件等级数量 wa_tab1-konm_kbetr = \'-4\'. "条件金额 APPEND wa_tab1 TO gt_tab1. CLEAR wa_tab1. IF it_fname IS INITIAL. PERFORM append_filename USING:\'新记录标识\', \'是否外协\', \'CLX\', \'价格执行方式\', \'编号\', \'标准数量\', \'税代码\', \'含税价\', \'价格单位\', \'货币\', \'目标价\', "报价 * \'记录信息文本\', \'开始时间(8位数字)\', \'结束时间(8位数字)\', * \'PB00单位\', \'条件类型2\', \'金额2\', \'单位2\', \'供应商\', \'物料\', \'采购组织\', \'工厂\', \'条件等级数量\', \'条件金额\'. ENDIF. lv_string = lv_file. CALL FUNCTION \'GUI_DOWNLOAD\' EXPORTING * BIN_FILESIZE = filename = lv_string * filetype = \'DBF\' filetype = \'DAT\' append = \'X\' write_field_separator = \'X\' * codepage = \'8400\' "指定写文件时用的字符集 TABLES data_tab = gt_tab1 fieldnames = it_fname[]. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno INTO result_mesg WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. APPEND result_mesg. CLEAR result_mesg. ENDIF. CLEAR: wa_tab1,gt_tab1,it_fname[]. ENDFORM. " DOWNLOAD_TEMPLATE1 *&---------------------------------------------------------------------* *& Form append_filename *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_NAME text *----------------------------------------------------------------------* FORM append_filename USING p_name . it_fname-name = p_name. APPEND it_fname. CLEAR it_fname. ENDFORM. "append_filename
对于时间段及其数量等级的创建及修改也是在网上各种找资料，不过对于这个BAPI_PRICES_CONDITIONS函数还是没有很好的理解。