SAP 业务 · Small Fire

原文：Small Fire · SAP 业务流程 · SAP 业务 子专栏 · Small Fire 技术笔记 PP流程 MM01(Material)->CS01(BOM)->CR01(WORKCENTERY)->CA01(ROUTING)->MD11(PLANNED ORDER)-> COO1(PRODUCTION ORDERS)也可通过CO41/CO40转换计划单得来. COMAC:对生产订单进行可用性检查 COHVOMPRINT:打印订单 MB31:通过单号收货 SD流程 VK11(PRICECONDITION)->VA21(QUOTATIONORDER)->VA01(CREATE SO)->VA41(CREATE CONTRACT) 销售流程： 创建询价单(VA11)->创建报价单(VA21)->创建交货单(VL10)->发货过帐->出具发票->客户余额查询->收款 V.02:检查不完整性订单 VA14L:为交货冻结凭证 VKM1:接触冻结的SO 发票(Billing)： VF01(创建出具发票凭证)->VF04(维护发票到期清单)->VF05(出具发票凭证清单)->VF11(取消出具发票凭证). MRP流程 MD61(独立物料计划)->MD01(MRP总计划)->MD03(单项单层计划)->MD05(显示MRP物料清单)->MD14/MD15(生产计划单转采购需求)->ME57(处理采购申请分配VENDOR)->ME59N(采购申请自动生成采购定单) 物料成本： CK11N:创建物料成本估算 KKPAN:不用数量创建估算 CK24:价格更新标记标准价格 CK40N:编辑成本核算 仓库管理： COOIS:生产订单信息系统 MB52/MMBE:查看库存 VL02N:向外发货 MD04/MD40L:相关MRP

原文：Small Fire · BAPI 销售订单修改 · SAP 业务 子专栏 · Small Fire 技术笔记 VA02：销售订单修改 UPDATEFLAGS：flag 值的三种不同意义 U = change D = delete I = add *&---------------------------------------------------------------------* *& Form FRM_CHANGE_SALESORDER *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_LT_ITEM text * -->P_LT_COND text * -->P_LT_MSG text * -->P_LS_HEAD text * <--P_LV_EIND text *----------------------------------------------------------------------* FORM frm_change_salesorder TABLES tp_item STRUCTURE zrmxsds004 tp_cond STRUCTURE zrmxsds005 tp_message STRUCTURE zifsret01 USING up_head LIKE zrmxsds003 CHANGING cp_eind TYPE c. DATA: ls_item LIKE zrmxsds004, ls_cond LIKE zrmxsds005, ls_msg LIKE zifsret01, ls_vbep LIKE vbep. DATA: wa_header TYPE bapisdh1, "表头" wa_headerx TYPE bapisdh1x, "表头标志" wa_partner TYPE bapiparnr, "业务伙伴" wa_partnerc TYPE bapiparnrc, wa_item TYPE bapisditm, "行项目" wa_itemx TYPE bapisditmx, wa_cond TYPE bapicond, "价格条件" wa_condx TYPE bapicondx, wa_schdl TYPE bapischdl, "交付计划" wa_schdlx TYPE bapischdlx, wa_return TYPE bapiret2, wa_sdls TYPE bapisdls, wa_text TYPE bapisdtext. "文本" DATA: lt_partner TYPE STANDARD TABLE OF bapiparnr, lt_partnerc TYPE STANDARD TABLE OF bapiparnrc, lt_item TYPE STANDARD TABLE OF bapisditm, lt_itemx TYPE STANDARD TABLE OF bapisditmx, lt_schdl TYPE STANDARD TABLE OF bapischdl, lt_schdlx TYPE STANDARD TABLE OF bapischdlx, lt_cond TYPE STANDARD TABLE OF bapicond, lt_condx TYPE STANDARD TABLE OF bapicondx, lt_return TYPE STANDARD TABLE OF bapiret2, lt_text LIKE STANDARD TABLE OF bapisdtext. DATA: lt_sokey TYPE STANDARD TABLE OF zrmxsds015, ls_sokey TYPE zrmxsds015. * Header CLEAR: wa_header,wa_headerx. IF up_head-updateflag = cns_update. wa_header-pmnttrms = up_head-zterm. "付款条件" wa_headerx-pmnttrms = cns_yes. wa_headerx-updateflag = cns_update. "Update" " Header texts：表头文本,若传输空值，则清空该字段 " CLEAR: wa_text,lt_text[]. wa_text-itm_number = space. wa_text-text_id = cns_textid. wa_text-langu = sy-langu. wa_text-format_col = '*'. wa_text-text_line = up_head-tknum. "运输合同号" APPEND wa_text TO lt_text. ENDIF. * Partners IF up_head-kunnr_re IS NOT INITIAL. "收票方" CLEAR: wa_partnerc. wa_partnerc-document = up_head-vbeln. wa_partnerc-itm_number = '000000'. wa_partnerc-updateflag = cns_update. wa_partnerc-partn_role = 'RE'. wa_partnerc-p_numb_new = up_head-kunnr_re. APPEND wa_partnerc TO lt_partnerc. ENDIF. IF up_head-kunnr_rg IS NOT INITIAL. "付款方" CLEAR: wa_partnerc. wa_partnerc-document = up_head-vbeln. wa_partnerc-itm_number = '000000'. wa_partnerc-updateflag = cns_update. wa_partnerc-partn_role = 'RG'. wa_partnerc-p_numb_new = up_head-kunnr_rg. APPEND wa_partnerc TO lt_partnerc. ENDIF. IF up_head-kunnr_we IS NOT INITIAL. "送达方" CLEAR: wa_partnerc. wa_partnerc-document = up_head-vbeln. wa_partnerc-itm_number = '000000'. wa_partnerc-updateflag = cns_update. wa_partnerc-partn_role = 'WE'. wa_partnerc-p_numb_new = up_head-kunnr_we. APPEND wa_partnerc TO lt_partnerc. ENDIF. * Items REFRESH: lt_item, lt_cond, lt_schdl, lt_itemx, lt_condx,lt_schdl. LOOP AT tp_item INTO ls_item. IF ls_item-updateflag = cns_new. "新增行项目" CLEAR wa_item. wa_item-itm_number = ls_item-posnr. wa_item-material = ls_item-mabnr. "物料" wa_item-sales_unit = ls_item-vrkme. "计量单位" wa_item-plant = ls_item-werks. "工厂" wa_item-store_loc = ls_item-lgort. "库存地" APPEND wa_item TO lt_item. "行状态" wa_itemx-itm_number = ls_item-posnr. wa_itemx-updateflag = cns_new. wa_itemx-material = cns_yes. wa_itemx-sales_unit = cns_yes. wa_itemx-plant = cns_yes. wa_itemx-store_loc = cns_yes. APPEND wa_itemx TO lt_itemx. "Schedule lines" CLEAR: wa_schdl,wa_schdlx. wa_schdl-itm_number = ls_item-posnr. wa_schdl-req_qty = ls_item-kwmeng. "数量" APPEND wa_schdl TO lt_schdl. wa_schdlx-itm_number = ls_item-posnr. wa_schdlx-updateflag = cns_new. wa_schdlx-req_qty = cns_yes. APPEND wa_schdlx TO lt_schdlx. "新增行，需要对自动生成的生产订单进行下达" CLEAR ls_sokey. ls_sokey-vbeln = up_head-vbeln. ls_sokey-posnr = ls_item-posnr. APPEND ls_sokey TO lt_sokey. ELSEIF ls_item-updateflag = cns_update. "更新行项目信息" "Schedule line 仅行数量" CLEAR: wa_schdl,wa_schdlx. wa_schdl-itm_number = ls_item-posnr. wa_schdl-sched_line = '0001'. "默认都是第一行" wa_schdl-req_qty = ls_item-kwmeng. "数量" APPEND wa_schdl TO lt_schdl. wa_schdlx-itm_number = ls_item-posnr. wa_schdlx-sched_line = '0001'. wa_schdlx-updateflag = cns_update. wa_schdlx-req_qty = cns_yes. APPEND wa_schdlx TO lt_schdlx. ENDIF. ENDLOOP. * Item Conditions wa_sdls-cond_handl = cns_yes. "价格条件，需要设置该参数，才能够修改价格条件" LOOP AT tp_cond INTO ls_cond. IF ls_cond-updateflag = cns_new. "新增价格条件记录" CLEAR: wa_cond,wa_condx. wa_cond-itm_number = ls_cond-posnr. wa_cond-cond_type = ls_cond-kschl. "定价条件" wa_cond-cond_value = ls_cond-kbetr. "价格" wa_cond-currency = ls_cond-koein. "货币或%" wa_cond-cond_unit = ls_cond-kmein. "条件单位" wa_cond-cond_p_unt = ls_cond-kpein. "条件定价单位" APPEND wa_cond TO lt_cond. wa_condx-itm_number = ls_cond-posnr. wa_condx-cond_type = ls_cond-kschl. "定价条件" wa_condx-updateflag = cns_new. wa_condx-cond_value = cns_yes. "价格" wa_condx-currency = cns_yes. "货币或%" wa_condx-cond_unit = cns_yes. "条件单位" wa_condx-cond_p_unt = cns_yes. "条件定价单位" APPEND wa_condx TO lt_condx. ELSEIF ls_cond-updateflag = cns_update. "更新价格条件记录" CLEAR: wa_cond,wa_condx. "需要读取已经存在行的Key" PERFORM frm_get_cond_key USING up_head-vbeln ls_cond-posnr ls_cond-kschl CHANGING wa_cond-cond_st_no wa_cond-cond_count. wa_cond-itm_number = ls_cond-posnr. * wa_cond-cond_st_no = 040. * wa_cond-cond_count = 01. wa_cond-cond_type = ls_cond-kschl. "定价条件" wa_cond-cond_value = ls_cond-kbetr. "价格" wa_cond-currency = ls_cond-koein. "货币或%" wa_cond-cond_unit = ls_cond-kmein. "条件单位" wa_cond-cond_p_unt = ls_cond-kpein. "条件定价单位" APPEND wa_cond TO lt_cond. wa_condx-itm_number = ls_cond-posnr. wa_condx-cond_st_no = wa_cond-cond_st_no. wa_condx-cond_count = wa_cond-cond_count. wa_condx-cond_type = ls_cond-kschl. wa_condx-updateflag = cns_update. wa_condx-cond_value = cns_yes. wa_condx-currency = cns_yes. wa_condx-cond_unit = cns_yes. wa_condx-cond_p_unt = cns_yes. APPEND wa_condx TO lt_condx. ELSE. "报错" ENDIF. ENDLOOP. * Call BAPI CALL FUNCTION 'BAPI_SALESORDER_CHANGE' EXPORTING salesdocument = up_head-vbeln order_header_in = wa_header order_header_inx = wa_headerx * SIMULATION = * BEHAVE_WHEN_ERROR = ' ' * INT_NUMBER_ASSIGNMENT = ' ' logic_switch = wa_sdls * NO_STATUS_BUF_INIT = ' ' TABLES return = lt_return order_item_in = lt_item order_item_inx = lt_itemx * partners = lt_partner partnerchanges = lt_partnerc * PARTNERADDRESSES = * ORDER_CFGS_REF = * ORDER_CFGS_INST = * ORDER_CFGS_PART_OF = * ORDER_CFGS_VALUE = * ORDER_CFGS_BLOB = * ORDER_CFGS_VK = * ORDER_CFGS_REFINST = schedule_lines = lt_schdl schedule_linesx = lt_schdlx order_text = lt_text * ORDER_KEYS = conditions_in = lt_cond conditions_inx = lt_condx * EXTENSIONIN = . * 处理错误消息:通过判断消息的类型，来判断BAPI是否成功 LOOP AT lt_return INTO wa_return. CLEAR ls_msg. ls_msg-class = 'BUS'. ls_msg-msgtyp = wa_return-type. ls_msg-msgno = wa_return-number. ls_msg-msgtxt = wa_return-message. APPEND ls_msg TO tp_message. IF wa_return-type EQ 'E' OR wa_return-type = 'A' OR wa_return = 'X'. cp_eind = 'X'. "失败" ENDIF. ENDLOOP. IF cp_eind NE 'X'. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. ELSE. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK' . ENDIF. CHECK cp_eind NE 'X' AND lt_sokey[] IS NOT INITIAL. * 销售订单自动产生生产订单，对生产订单进行下达 CALL FUNCTION 'Z_RMXPP_PRDORD_RELEASE' EXPORTING I_WAIT = 3 TABLES t_sokey = lt_sokey EXCEPTIONS no_saleorders = 1 no_valid_saleorders = 2 cannot_find_product_orders = 3 OTHERS = 4. 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_create_salesorder " *&---------------------------------------------------------------------* *& Form FRM_GET_COND_KEY *&---------------------------------------------------------------------* * 读取价格条件记录的Key *----------------------------------------------------------------------* * -->P_UP_HEAD_VBELN text * -->P_LS_COND_POSNR text * -->P_LS_COND_KSCHL text * <--P_WA_COND_COND_ST_NO text * <--P_WA_COND_COND_COUNT text *----------------------------------------------------------------------* FORM frm_get_cond_key USING up_vbeln LIKE vbap-vbeln up_posnr LIKE vbap-posnr up_kschl LIKE konv-kschl CHANGING cp_st_no LIKE konv-stunr cp_count LIKE konv-zaehk. DATA: lv_knumv LIKE vbak-knumv.S " 由于需要多次判断，预先读取聚集表,将订单的所有行读取出来 " IF gt_konv[] IS INITIAL. SELECT SINGLE knumv INTO lv_knumv FROM vbak WHERE vbeln = up_vbeln. SELECT knumv kposn kschl stunr zaehk INTO CORRESPONDING FIELDS OF TABLE gt_konv FROM konv WHERE knumv = lv_knumv. * AND kposn = up_posnr. SORT gt_konv BY kposn kschl. ENDIF. CLEAR gwa_konv. READ TABLE gt_konv INTO gwa_konv WITH KEY kposn = up_posnr kschl = up_kschl BINARY SEARCH. IF sy-subrc EQ 0. cp_st_no = gwa_konv-stunr. cp_count = gwa_konv-zaehk. ENDIF. ENDFORM. " FRM_GET_COND_KEY "

原文：Small Fire · BAPI 创建 Customer · SAP 业务 子专栏 · Small Fire 技术笔记 SD_CUSTOMER_MAINTAIN_ALL TABLE 参数中有很多表，其中 X 开头代表要插入的数据，Y 开头代表要删除的数据。 DATA: TMP TYPE STRING, LEN TYPE I, FLAG TYPE CHAR1, SY_SUBRC(2) TYPE C. CLEAR:E_MESS. *--判断是否存在同名客户 IF I_KNA1-KUNNR IS INITIAL. SELECT SINGLE NAME1 INTO TMP FROM KNA1 WHERE NAME1 = I_KNA1-NAME1 AND NAME2 = I_KNA1-NAME2. IF SY-SUBRC = 0. FLAG = 'X'. E_STATU = 'E'. E_MESS = '存在名称相同的客户'. ENDIF. ENDIF. *--判断邮编的长度 LEN = STRLEN( I_KNA1-PSTLZ ). IF LEN <> 6. FLAG = 'X'. E_STATU = 'E'. E_MESS = '邮编应该是6位数'. ENDIF. IF FLAG = ''. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING INPUT = I_KNA1-KUNNR IMPORTING OUTPUT = I_KNA1-KUNNR. I_KNA1-LAND1 = 'CN'. I_KNA1-SPRAS = 1. **--客户的销售数据 I_KNVV-KUNNR = I_KNA1-KUNNR. * I_KNVV-VKORG = ' ' . "销售组织" I_KNVV-VTWEG = '10' . "分销渠道" I_KNVV-SPART = '00' . "产品组" I_KNVV-BZIRK = ' ' . "销售地区" I_KNVV-VKBUR = ' ' . "销售部门" I_KNVV-WAERS = 'RMB' . "货币" I_KNVV-KALKS = '1' . "定价过程" I_KNVV-VERSG = '1' . "客户统计组" I_KNVV-ANTLF = '9'. "最大部分交货" I_KNVV-VSBED = '01'. "装运条件" I_KNVV-KZAZU = 'X'. "订单组合chk" I_KNVV-ZTERM = '9101'. "付款条件" I_KNVV-KABSS = '0001'. "付款担保过程" I_KNVV-KKBER = '9999'. "信贷控制范围" I_KNVV-KTGRD = '01'. "账户分配组" IF I_KNA1-KTOKD = 'A001'. I_KNVV-KDGRP = '11'. "客户组" I_KNVV-KONDA = '01'. "价格组" I_KNB1-FDGRV = 'E1'. "现金管理组" ELSEIF I_KNA1-KTOKD = 'A002'. I_KNVV-KDGRP = '21'. "客户组" I_KNVV-KONDA = '02'. "价格组" I_KNB1-FDGRV = 'E2'. "现金管理组" ENDIF. **--客户的公司数据 I_KNB1-KUNNR = I_KNA1-KUNNR. I_KNB1-BUKRS = I_KNVV-VKORG. I_KNB1-AKONT = ''. "统驭科目" I_KNB1-ZTERM = '9101'. "付款条件" I_KNB1-XZVER = 'X'. "付款历史记录chk" **--银行 READ TABLE T_XKNBK INDEX 1. IF I_KNA1-KUNNR IS NOT INITIAL. SELECT SINGLE * INTO T_YKNBK FROM KNBK WHERE KUNNR = I_KNA1-KUNNR AND BANKS = 'CN'. IF SY-SUBRC EQ 0. APPEND T_YKNBK. ENDIF. ENDIF. T_XKNBK-KUNNR = I_KNA1-KUNNR. T_XKNBK-BANKS = 'CN'. "银行国家代码" T_XKNBK-BANKL = '20000'. "银行码" MODIFY T_XKNBK INDEX 1 TRANSPORTING KUNNR BANKS BANKL. **--客户联系人 READ TABLE T_XKNVK INDEX 1. IF I_KNA1-KUNNR IS NOT INITIAL. SELECT SINGLE * INTO T_YKNVK FROM KNVK WHERE KUNNR = I_KNA1-KUNNR. IF SY-SUBRC EQ 0. APPEND T_YKNVK. ENDIF. ENDIF. T_XKNVK-KUNNR = I_KNA1-KUNNR. T_XKNVK-NAMEV = '#'. T_XKNVK-ABTNR = '0002'. T_XKNVK-PAFKT = '02'. MODIFY T_XKNVK INDEX 1 TRANSPORTING KUNNR NAMEV ABTNR PAFKT. **--合作伙伴 IF I_KNA1-KUNNR IS NOT INITIAL. SELECT SINGLE * INTO T_YKNVP FROM KNVP WHERE KUNNR = I_KNA1-KUNNR AND VKORG = I_KNVV-VKORG AND VTWEG = '10' AND SPART = '00' AND PARVW = 'VE'. IF SY-SUBRC EQ 0. APPEND T_YKNVP. ENDIF. ENDIF. T_XKNVP-KUNNR = I_KNA1-KUNNR. T_XKNVP-VKORG = I_KNVV-VKORG. "销售组织" T_XKNVP-VTWEG = '10'. "分销渠道" T_XKNVP-SPART = '00'. "产品组" T_XKNVP-PARVW = 'VE '. * T_XKNVP-PERNR = ''. MODIFY T_XKNVP INDEX 1 TRANSPORTING KUNNR VKORG VTWEG SPART PARVW. **--税收 IF I_KNA1-KUNNR IS NOT INITIAL. SELECT SINGLE * INTO T_YKNVI FROM KNVI WHERE KUNNR = I_KNA1-KUNNR AND ALAND = 'CN' AND TATYP = 'MWST'. IF SY-SUBRC EQ 0. APPEND T_YKNVI. ENDIF. ENDIF. T_XKNVI-KUNNR = I_KNA1-KUNNR. T_XKNVI-ALAND = 'CN'. T_XKNVI-TATYP = 'MWST'. T_XKNVI-TAXKD = '1'. APPEND T_XKNVI . CALL FUNCTION 'SD_CUSTOMER_MAINTAIN_ALL' EXPORTING I_KNA1 = I_KNA1 I_KNB1 = I_KNB1 I_KNVV = I_KNVV I_MAINTAIN_ADDRESS_BY_KNA1 = 'X' I_KNB1_REFERENCE = I_KNB1_REFERENCE I_FORCE_EXTERNAL_NUMBER_RANGE = I_FORCE_EXTERNAL_NUMBER_RANGE I_NO_BANK_MASTER_UPDATE = I_NO_BANK_MASTER_UPDATE I_CUSTOMER_IS_CONSUMER = I_CUSTOMER_IS_CONSUMER I_RAISE_NO_BTE = I_RAISE_NO_BTE PI_POSTFLAG = 'X' PI_CAM_CHANGED = PI_CAM_CHANGED PI_ADD_ON_DATA = PI_ADD_ON_DATA I_FROM_CUSTOMERMASTER = 'X' IMPORTING E_KUNNR = E_KUNNR O_KNA1 = O_KNA1 TABLES T_XKNAS = T_XKNAS T_XKNBK = T_XKNBK T_XKNB5 = T_XKNB5 T_XKNEX = T_XKNEX T_XKNVA = T_XKNVA T_XKNVD = T_XKNVD T_XKNVI = T_XKNVI T_XKNVK = T_XKNVK T_XKNVL = T_XKNVL T_XKNVP = T_XKNVP T_XKNZA = T_XKNZA T_YKNAS = T_YKNAS T_YKNBK = T_YKNBK T_YKNB5 = T_YKNB5 T_YKNEX = T_YKNEX T_YKNVA = T_YKNVA T_YKNVD = T_YKNVD T_YKNVI = T_YKNVI T_YKNVK = T_YKNVK T_YKNVL = T_YKNVL T_YKNVP = T_YKNVP T_YKNZA = T_YKNZA T_UPD_TXT = T_UPD_TXT EXCEPTIONS CLIENT_ERROR = 1 KNA1_INCOMPLETE = 2 KNB1_INCOMPLETE = 3 KNB5_INCOMPLETE = 4 KNVV_INCOMPLETE = 5 KUNNR_NOT_UNIQUE = 6 SALES_AREA_NOT_UNIQUE = 7 SALES_AREA_NOT_VALID = 8 INSERT_UPDATE_CONFLICT = 9 NUMBER_ASSIGNMENT_ERROR = 10 NUMBER_NOT_IN_RANGE = 11 NUMBER_RANGE_NOT_EXTERN = 12 NUMBER_RANGE_NOT_INTERN = 13 ACCOUNT_GROUP_NOT_VALID = 14 PARNR_INVALID = 15 BANK_ADDRESS_INVALID = 16 TAX_DATA_NOT_VALID = 17 NO_AUTHORITY = 18 COMPANY_CODE_NOT_UNIQUE = 19 DUNNING_DATA_NOT_VALID = 20 KNB1_REFERENCE_INVALID = 21 CAM_ERROR = 22 OTHERS = 23 . IF SY-SUBRC NE 0. SY_SUBRC = SY-SUBRC. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. E_STATU = 'E'. CONCATENATE '客户更新失败（' SY_SUBRC '）' INTO E_MESS. ELSE. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING WAIT = 'X'. IF SY-SUBRC = 0. E_STATU = 'S'. E_MESS = '客户更新成功'. E_KUNNR = O_KNA1-KUNNR. ELSE. E_STATU = 'E'. CONCATENATE '客户更新失败（' SY_SUBRC '）' INTO E_MESS. ENDIF. ENDIF. ENDIF.

原文：Small Fire · SD Function module · SAP 业务 子专栏 · Small Fire 技术笔记 Function Modules RV_ORDER_FLOW_INFORMATION - Reads sales document flow of sales document after delivery and billing Don’t forget also check direct reference documents for the both starting document # and preceding/following document types that you are searching for (For example, if you search delivery for the given SO, check also LIPS-VGBEL and LIPS-VGPOS, if it’s possible with regard to performance). ...

原文：Small Fire · SD 模块常用BAPI · SAP 业务 子专栏 · Small Fire 技术笔记 SD 常用 BAPI BAPI Description SD_SALESDOCUMENT_CREATE 创建销售订单 SD_SALES_DOCUMENT_SAVE 从复制的文档创建销售订单 BAPI_SALESORDER_CREATEFROMDAT2 创建销售订单 BAPI_SALESORDER_CHANGE 修改或者删除销售订单 BAPI_OUTB_DELIVERY_CREATE_SLS 根据销售订单创建交货单 BAPI_BILLINGDOC_CREATEMULTIPLE 创建发票，注意参数 ref_doc_ca MB_CANCEL_GOODS_MOVEMENT 冲销交货单的过账发货 BAPI_BILLINGDOC_CANCEL1 发票的冲销 BAPI_INB_DELIVERY_SAVEREPLICA 创建 Inbound Delivery GN_DELIVERY_CREATE 单个创建 Outbound Delivery SHP_VL10_DELIVERY_CREATE 创建 Outbound Delivery BAPI_OUTB_DELIVERY_CHANGE 修改外向交货单 SD_DELIVERY_UPDATE_PICKING 修改外向交货单拣配数量 WS_DELIVERY_UPDATE 外向交货单的发货过账 BAPI_OUTB_DELIVERY_CONFIRM_DEC 用于来自分散系统的外向交货验证的 BAPI ，可以使用此方法将外向交货从 WM 系统报告回 (ERP) 系统。 SD_CUSTOMER_MAINTAIN_ALL 创建客户；table 参数中有很多表，其中X开头代表要插入的数据，Y开头代表要删除的数据。 SD_SALES_DOCUMENT_READ 读取销售单据标题和业务数据：tables VBAK, VBKD and VBPA (Sold-to (AG), Payer (RG) and Ship-to (WE) parties) SD_SALES_DOCUMENT_READ_POS 读取销售凭证抬头和物料：表 VBAK、VBAP-MATNR SD_DOCUMENT_PARTNER_READ 合作伙伴信息，包括地址。 调用 SD_PARTNER_READ SD_PARTNER_READ 所有合作伙伴信息和地址 SD_DETERMINE_CONTRACT_TYPE 确定文档是服务合同还是数量合同 SD_SALES_DOCUMENT_COPY 将销售单据复制到具有所需销售单据类型 (VBAK-AUART) 的新单据中，以便进一步创建。 Example：O - 创建后续文档 SD_SALES_DOCUMENT_ENQUEUE 出列使用 DEQUEUE_EVVBAKE SD_PACKING_PRINT_VIEW 用于 Dlv 便笺打印的 SD 数据收集 SD_DELIVERY_VIEW 从 RV_DELIVERY_PRINT_VIEW、SD_PACKING_PRINT_VIEW 调用的打印数据收集 SD_COND_ACCESS 选择条件记录 RV_DELIVERY_CREATE 创建 Delivery RV_BILLING_PRINT_VIEW 用于开票凭证打印的数据提供 RV_DELIVERY_PRINT_VIEW 为交货单打印提供数据 RV_PRICE_PRINT_HEAD 用于打印程序以获取标题 [和行项目] 级别的定价数据。 输入：结构 KOMK（字段 mandt、kalsm、waerk、knumv、vbtyp 取自 VBDKR，kappl=‘V’）。 [和 KOMP（字段 kposn 取自 VBDPR，字段 mglme（数量）可以更改以相应地计算价格]。输出：表 TKOMV [和 TKOMVD] 中的定价数据。 RV_ORDER_FLOW_INFORMATION 在交货和开票后读取销售凭证的销售凭证流，不要忘记检查您正在搜索的起始凭证 # 和前/后凭证类型的直接参考凭证（例如，如果您搜索给定 SO 的交货， 如果在性能方面可能，还请检查 LIPS-VGBEL 和 LIPS-VGPOS）。

原文：Small Fire · MM 委外业务(外发加工) · SAP 业务 子专栏 · Small Fire 技术笔记 委外加工 是指由本公司提供材料（可能是部分）给外包商进行加工，完工后收回成品并向委外加工商支付加工费的业务方式。 创建委外加工订单 订单类型：NB ITEM类别：L 物料最好有 BOM，然后展 BOM，带出原材料需求 MARK：并不是 BOM 中的所有材料都会带出，如果在 BOM item 的 status 中设置了 Mat. Provision indicator 为 L，即由供应商提供，则不会带出 发料给委外加工商 方法一：transfer，t-code MB1B，Movement type 541，指定 PO number 方法二：ME2O（报表） 方法三：MIGO，输入 Material，委外 a 加工商 方法四：从另外的供应商直接提供材料给委外加工商，向供应商下采购订单，在 delivery adress 中勾上 SC vendor，输入委外加工商，然后会自动带出委外加工商的地址，收货时库存也会自动记到委外加工库存（101收货，特殊库存标记为O） 加工完成收货 同时做两个动作 收货 (movement：101) 原材料消耗 (movement：543) MIGO：输入参照 PO number（可以修改原材料消耗的数量）；如果采用的是移动平均价，则成品的价值为为外加工费和材料消耗费之和。 后续调整 参照 PO 进行调整，例如增加物料消耗等。

原文：Small Fire · Purchase Order 增强 · SAP 业务 子专栏 · Small Fire 技术笔记 采购订单(Purchase Order) TCode：ME21N，ME22N，ME23N，ME29N Customer Exit MM06E005 ：EXIT_SAPMM06E_016 Customer fields in purchasing document BADI:ME_PROCESS_PO_CUST PROCESS_HEADER：对 PO 抬头数据进行检查 PROCESS_ITEM：对 PO 行项目做一些输入数据检查(限价检查) POST：点击保存时进行数据更新(底价更新) METHOD： IF_EX_ME_PROCESS_PO_CUST~PROCESS_ITEM. METHOD IF_EX_ME_PROCESS_PO_CUST~PROCESS_ITEM. INCLUDE MM_MESSAGES_MAC. DATA : LW_ITEM TYPE MEPOITEM. DATA : LT_KONV TYPE TABLE OF KOMV . DATA : LW_KONV TYPE KOMV . DATA : LV_KNUMH TYPE A118-KNUMH . DATA : LT_KONP TYPE TABLE OF KONP . DATA : LW_KONP TYPE KONP . DATA : LV_MARKS(1) TYPE C . DATA : LT_KONM TYPE TABLE OF KONM, LW_KONM TYPE KONM. DATA : LO_HEADER TYPE REF TO IF_PURCHASE_ORDER_MM . DATA : LW_HEADER TYPE MEPOHEADER . CLEAR:LT_KONM[],LW_KONM. IF SY-TCODE = 'ME21N' OR SY-TCODE = 'ME22N' OR SY-TCODE = 'ME29N' OR SY-TCODE = 'ME23N' . LO_HEADER = IM_ITEM->GET_HEADER( ). LW_HEADER = LO_HEADER->GET_DATA( ). IF LW_HEADER-BSART = '913' OR LW_HEADER-BSART = '914' OR LW_HEADER-BSART = '915' OR LW_HEADER-BSART = '916' . ELSE . LW_ITEM = IM_ITEM->GET_DATA( ). CHECK LW_ITEM-UMSON = ''. "免费货物不检查" CHECK LW_ITEM-LOEKZ = ''. "删除货物不检查" CHECK LW_ITEM-MATNR <> ''. "无物料号不检查" CALL METHOD IM_ITEM->GET_CONDITIONS IMPORTING EX_CONDITIONS = LT_KONV[]. CLEAR LV_MARKS . CLEAR LW_KONV . READ TABLE LT_KONV INTO LW_KONV WITH KEY KPOSN = LW_ITEM-EBELP KSCHL = 'PB00' . IF SY-SUBRC <> 0 . CLEAR LW_KONV . READ TABLE LT_KONV INTO LW_KONV WITH KEY KPOSN = LW_ITEM-EBELP KSCHL = 'PBXX' . IF SY-SUBRC <> 0 . LV_MARKS = 'X' . ENDIF . ENDIF . CHECK LV_MARKS = '' . SELECT SINGLE KNUMH INTO LV_KNUMH FROM A901 WHERE KSCHL = 'PB00' AND MATNR = LW_ITEM-MATNR AND ZONWA = LW_HEADER-WAERS AND DATBI >= SY-DATUM AND DATAB <= SY-DATUM . IF SY-SUBRC = 0 . CLEAR LT_KONP[] . SELECT * INTO TABLE LT_KONP FROM KONP WHERE KNUMH = LV_KNUMH AND KONWA = LW_HEADER-WAERS . IF SY-SUBRC = 0 . SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_KONM FROM KONM FOR ALL ENTRIES IN LT_KONP WHERE KNUMH = LT_KONP-KNUMH AND KOPOS = LT_KONP-KOPOS." AND KSTBM <= LW_ITEM-MENGE. " CLEAR LW_KONP . READ TABLE LT_KONP INTO LW_KONP INDEX 1 . SORT LT_KONM BY KNUMH KOPOS KSTBM DESCENDING. "按数量倒序" READ TABLE LT_KONM INTO LW_KONM INDEX 1. "取最近最大的值对应的价格" IF LT_KONM[] IS NOT INITIAL. "如果存在，将阶梯价复制过来" LOOP AT LT_KONM INTO LW_KONM WHERE KSTBM >= LW_ITEM-MENGE.. LW_KONP-KBETR = LW_KONM-KBETR. ENDLOOP. ENDIF. IF LW_HEADER-WAERS <> LW_KONV-WAERS . CALL FUNCTION 'CONVERT_TO_FOREIGN_CURRENCY' EXPORTING DATE = SY-DATUM FOREIGN_CURRENCY = LW_HEADER-WAERS LOCAL_AMOUNT = LW_KONV-KBETR LOCAL_CURRENCY = LW_KONV-WAERS IMPORTING FOREIGN_AMOUNT = LW_KONV-KBETR EXCEPTIONS NO_RATE_FOUND = 1 OVERFLOW = 2 NO_FACTORS_FOUND = 3 NO_SPREAD_FOUND = 4 DERIVED_2_TIMES = 5 OTHERS = 6. ENDIF . IF LW_KONP-KMEIN <> LW_KONV-KMEIN ."数量单位转换" DATA : LV_MENGE TYPE EKPO-MENGE . LV_MENGE = LW_KONP-KPEIN . CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT' EXPORTING I_MATNR = LW_ITEM-MATNR I_IN_ME = LW_KONP-KMEIN I_OUT_ME = LW_KONV-KMEIN I_MENGE = LV_MENGE IMPORTING E_MENGE = LV_MENGE EXCEPTIONS ERROR_IN_APPLICATION = 1 ERROR = 2 OTHERS = 3. IF LV_MENGE <> 0 . LW_KONP-KBETR = LW_KONP-KBETR / LV_MENGE * LW_KONV-KPEIN . ELSE . MMPUR_MESSAGE 'E' 'ZMM' '001' '行项目' LW_ITEM-EBELP '限价转换单位太小，程序无法判断'. ENDIF . ELSE . LW_KONP-KBETR = LW_KONP-KBETR / LW_KONP-KPEIN * LW_KONV-KPEIN . ENDIF . IF LW_KONV-KBETR > LW_KONP-KBETR . MMPUR_MESSAGE 'E' 'ZMM' '001' '行项目' LW_ITEM-EBELP '采购价格超出物料最高限价！'. ENDIF . ELSE . CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT' EXPORTING INPUT = LW_ITEM-MATNR IMPORTING OUTPUT = LW_ITEM-MATNR. MMPUR_MESSAGE 'E' 'ZMM' '001' '行项目' LW_ITEM-EBELP '的最高限价货币记录为空！'. ENDIF . ELSE . SELECT SINGLE KNUMH INTO LV_KNUMH FROM A901 WHERE KSCHL = 'PB00' AND MATNR = LW_ITEM-MATNR AND DATBI >= SY-DATUM AND DATAB <= SY-DATUM . IF SY-SUBRC = 0 . CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT' EXPORTING INPUT = LW_ITEM-MATNR IMPORTING OUTPUT = LW_ITEM-MATNR. MMPUR_MESSAGE 'E' 'ZMM' '001' '行项目' LW_ITEM-EBELP '的最高限价货币记录为空！'. ELSE . CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT' EXPORTING INPUT = LW_ITEM-MATNR IMPORTING OUTPUT = LW_ITEM-MATNR. MMPUR_MESSAGE 'W' 'ZMM' '001' '行项目' LW_ITEM-EBELP '的最高限价记录为空，将自动维护.'. ENDIF . ENDIF . ENDIF . ENDIF . ENDMETHOD. METHOD： IF_EX_ME_PROCESS_PO_CUST~POST METHOD IF_EX_ME_PROCESS_PO_CUST~POST. TYPES : BEGIN OF LS_EKPO ,"物料对应" MATNR TYPE EKPO-MATNR, MENGE TYPE EKPO-MENGE, KBETR TYPE KONV-KBETR, WAERS TYPE KONV-WAERS, KMEIN TYPE KONV-KMEIN, KBET2 TYPE KONV-KBETR, KPEIN TYPE KONV-KPEIN, MARKX(1) TYPE C, END OF LS_EKPO . DATA : LW_EKPO TYPE LS_EKPO . DATA : LT_EKPO TYPE TABLE OF LS_EKPO . DATA : LW_ITEM TYPE MEPOITEM. DATA : LW_HEAD TYPE MEPOHEADER. DATA : LT_ITEM TYPE TABLE OF MEPOITEM. DATA : LT_KONV TYPE TABLE OF KOMV . DATA : LT_KONV_01 TYPE TABLE OF KOMV . DATA : LW_KONV TYPE KOMV . DATA : LV_KNUMH TYPE A118-KNUMH . DATA : LT_KONP TYPE TABLE OF KONP . DATA : LW_KONP TYPE KONP . DATA: LT_ITEMS TYPE PURCHASE_ORDER_ITEMS, LW_ITEMS TYPE PURCHASE_ORDER_ITEM. DATA : LM_KONV TYPE REF TO IF_PURCHASE_ORDER_ITEM_MM . DATA:LT_KONM TYPE TABLE OF KONM, LW_KONM TYPE KONM. DATA:LV_FLAG TYPE C. *************************************************** *************************************************** DATA: LT_BAPICONDCT TYPE TABLE OF BAPICONDCT, LW_BAPICONDCT TYPE BAPICONDCT, LT_BAPICONDHD TYPE TABLE OF BAPICONDHD , LW_BAPICONDHD TYPE BAPICONDHD, LT_BAPICONDIT TYPE TABLE OF BAPICONDIT, LW_BAPICONDIT TYPE BAPICONDIT, LT_BAPICONDQS TYPE TABLE OF BAPICONDQS, LW_BAPICONDQS TYPE BAPICONDQS, LT_BAPICONDVS TYPE TABLE OF BAPICONDVS, LW_BAPICONDVS TYPE BAPICONDVS. DATA: LT_BAPIRET2 TYPE TABLE OF BAPIRET2 . DATA: LW_BAPIRET2 TYPE BAPIRET2 . DATA: LT_BAPIKNUMHS TYPE TABLE OF BAPIKNUMHS . DATA: LT_MEM_INITIAL TYPE TABLE OF CND_MEM_INITIAL. DATA : LV_MARKX(1) TYPE C ."需要扩大标识" DATA: H_VARKEY(100), H_COND_UNIT TYPE MEINS . *************************************************** *************************************************** CLEAR : LT_EKPO[] . CLEAR : LT_ITEM[] . CLEAR : LT_KONV[] . CLEAR : LT_KONP[] . IF SY-TCODE = 'ME21N' OR SY-TCODE = 'ME22N' OR SY-TCODE = 'ME23N' OR SY-TCODE = 'ME29N' . LT_ITEMS = IM_HEADER->GET_ITEMS( ). LW_HEAD = IM_HEADER->GET_DATA( ). IF LW_HEAD-BSART = '913' OR LW_HEAD-BSART = '914' OR LW_HEAD-BSART = '915' OR LW_HEAD-BSART = '916' . ELSE . CLEAR LW_ITEMS . LOOP AT LT_ITEMS INTO LW_ITEMS . CLEAR LW_ITEM . LW_ITEM = LW_ITEMS-ITEM->GET_DATA( ). APPEND LW_ITEM TO LT_ITEM . CLEAR LT_KONV_01[] . CALL METHOD LW_ITEMS-ITEM->GET_CONDITIONS IMPORTING EX_CONDITIONS = LT_KONV_01[]. APPEND LINES OF LT_KONV_01 TO LT_KONV . ENDLOOP. CLEAR LW_ITEM . LOOP AT LT_ITEM INTO LW_ITEM . CHECK LW_ITEM-UMSON = '' . "免费货物不检查" CHECK LW_ITEM-LOEKZ = '' . "删除货物不检查" CHECK LW_ITEM-MATNR <> ''. "无物料号不检查" CLEAR LW_KONV . READ TABLE LT_KONV INTO LW_KONV WITH KEY KPOSN = LW_ITEM-EBELP KSCHL = 'PB00' . IF SY-SUBRC = 0 . CLEAR LW_EKPO . LW_EKPO-KBETR = LW_KONV-KBETR . LW_EKPO-MENGE = LW_ITEM-MENGE . LW_EKPO-MATNR = LW_ITEM-MATNR . LW_EKPO-WAERS = LW_KONV-WAERS . LW_EKPO-KMEIN = LW_KONV-KMEIN . LW_EKPO-KBET2 = LW_KONV-KBETR . LW_EKPO-KPEIN = LW_KONV-KPEIN . APPEND LW_EKPO TO LT_EKPO . ELSE . CLEAR LW_KONV . READ TABLE LT_KONV INTO LW_KONV WITH KEY KPOSN = LW_ITEM-EBELP KSCHL = 'PBXX' . IF SY-SUBRC = 0 . CLEAR LW_EKPO . LW_EKPO-MENGE = LW_ITEM-MENGE . LW_EKPO-KBETR = LW_KONV-KBETR . LW_EKPO-MATNR = LW_ITEM-MATNR . LW_EKPO-WAERS = LW_KONV-WAERS . LW_EKPO-KMEIN = LW_KONV-KMEIN . LW_EKPO-KBET2 = LW_KONV-KBETR . LW_EKPO-KPEIN = LW_KONV-KPEIN . APPEND LW_EKPO TO LT_EKPO . ENDIF . ENDIF . CLEAR LW_ITEM . ENDLOOP . "取到唯一的最小值" SORT LT_EKPO BY MATNR KBETR ASCENDING . DELETE ADJACENT DUPLICATES FROM LT_EKPO COMPARING MATNR . IF LT_EKPO[] IS NOT INITIAL . CLEAR LW_EKPO . LOOP AT LT_EKPO INTO LW_EKPO . CLEAR : LT_BAPICONDCT[] , LT_BAPICONDHD[] , LT_BAPICONDIT[] , LT_BAPICONDQS[] , LT_BAPICONDVS[] , LT_BAPIRET2[] , LT_BAPIKNUMHS[] , LT_MEM_INITIAL[] . LW_EKPO-KBETR = LW_EKPO-KBET2 . SELECT SINGLE KNUMH INTO LV_KNUMH FROM A901 WHERE KSCHL = 'PB00' AND MATNR = LW_EKPO-MATNR AND ZONWA = LW_EKPO-WAERS AND DATBI >= SY-DATUM AND DATAB <= SY-DATUM . IF SY-SUBRC = 0 . CLEAR: LT_KONP[],LT_KONM . SELECT * INTO TABLE LT_KONP FROM KONP WHERE KNUMH = LV_KNUMH . IF SY-SUBRC = 0. SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_KONM FROM KONM FOR ALL ENTRIES IN LT_KONP WHERE KNUMH = LT_KONP-KNUMH AND KOPOS = LT_KONP-KOPOS." AND KSTBM <= LW_EKPO-MENGE. " ENDIF. CLEAR LW_KONP . READ TABLE LT_KONP INTO LW_KONP INDEX 1 . SORT LT_KONM BY KNUMH KOPOS KSTBM DESCENDING."先取最大的，然后倒序，小于等于当前数量赋值" READ TABLE LT_KONM INTO LW_KONM INDEX 1. IF LT_KONM[] IS NOT INITIAL. LW_KONP-KBETR = LW_KONM-KBETR. LOOP AT LT_KONM INTO LW_KONM WHERE KSTBM >= LW_EKPO-MENGE. LW_KONP-KBETR = LW_KONM-KBETR. ENDLOOP. ENDIF. IF LW_EKPO-WAERS <> LW_KONP-KONWA . CALL FUNCTION 'CONVERT_TO_FOREIGN_CURRENCY' EXPORTING DATE = SY-DATUM FOREIGN_CURRENCY = LW_KONP-KONWA LOCAL_AMOUNT = LW_EKPO-KBETR LOCAL_CURRENCY = LW_EKPO-WAERS IMPORTING FOREIGN_AMOUNT = LW_EKPO-KBETR EXCEPTIONS NO_RATE_FOUND = 1 OVERFLOW = 2 NO_FACTORS_FOUND = 3 NO_SPREAD_FOUND = 4 DERIVED_2_TIMES = 5 OTHERS = 6. ENDIF . IF LW_EKPO-KMEIN <> LW_KONP-KMEIN ."数量单位转换" DATA : LV_MENGE TYPE EKPO-MENGE . LV_MENGE = LW_KONP-KPEIN . CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT' EXPORTING I_MATNR = LW_ITEM-MATNR I_IN_ME = LW_KONP-KMEIN I_OUT_ME = LW_EKPO-KMEIN I_MENGE = LV_MENGE IMPORTING E_MENGE = LV_MENGE EXCEPTIONS ERROR_IN_APPLICATION = 1 ERROR = 2 OTHERS = 3. LW_KONP-KBETR = LW_KONP-KBETR / LV_MENGE * LW_EKPO-KPEIN . ELSE . LW_KONP-KBETR = LW_KONP-KBETR / LW_KONP-KPEIN * LW_EKPO-KPEIN . ENDIF . IF LW_EKPO-KBETR < LW_KONP-KBETR . " LW_KONP-KBETR = LW_EKPO-KBETR * LW_KONP-KPEIN ." LW_KONP-KBETR = LW_EKPO-KBET2 . CHECK LW_KONP-KBETR <> 0 . H_VARKEY = LW_ITEM-MATNR . LW_BAPICONDCT-OPERATION = '004'. "更改" LW_BAPICONDCT-COND_USAGE = 'A'. "条件表用途 ‘A' 定价" LW_BAPICONDCT-TABLE_NO = '901'. LW_BAPICONDCT-APPLICATIO = LW_KONP-KAPPL. LW_BAPICONDCT-COND_TYPE = LW_KONP-KSCHL. "定价条件" LW_BAPICONDCT-VARKEY = H_VARKEY. LW_BAPICONDCT-VALID_TO = '99991231'. LW_BAPICONDCT-VALID_FROM = SY-DATUM. LW_BAPICONDCT-COND_NO = LV_KNUMH. "更改" APPEND LW_BAPICONDCT TO LT_BAPICONDCT. LW_BAPICONDHD-OPERATION = '004'. LW_BAPICONDHD-COND_NO = LV_KNUMH. LW_BAPICONDHD-COND_USAGE = 'A'. LW_BAPICONDHD-TABLE_NO = '901'. LW_BAPICONDHD-APPLICATIO = LW_KONP-KAPPL. LW_BAPICONDHD-COND_TYPE = LW_KONP-KSCHL. LW_BAPICONDHD-VALID_FROM = SY-DATUM. LW_BAPICONDHD-VALID_TO = '99991231'. APPEND LW_BAPICONDHD TO LT_BAPICONDHD . IF LT_KONM[] IS NOT INITIAL. CLEAR:LV_FLAG. LOOP AT LT_KONM INTO LW_KONM. AT LAST. IF LV_FLAG <> 'E'. LV_FLAG = 'S'. ENDIF. ENDAT. IF LW_KONM-KSTBM > LW_EKPO-MENGE." AND LV_FLAG <> 'E'. 小于等于订单数量的第一个" IF LV_FLAG = 'S'. LV_FLAG = 'X'. ENDIF. ELSEIF LW_KONM-KSTBM = LW_EKPO-MENGE. LV_FLAG = 'X'. ELSEIF LW_KONM-KSTBM < LW_EKPO-MENGE. IF LV_FLAG = ''. LV_FLAG = 'X'. ENDIF. ENDIF. IF LV_FLAG = 'X'. LW_BAPICONDQS-CURRENCY = LW_KONP-KBETR. LV_FLAG = 'E'. ELSE. LW_BAPICONDQS-CURRENCY = LW_KONM-KBETR. ENDIF. LW_BAPICONDQS-OPERATION = '004'. LW_BAPICONDQS-COND_NO = LW_KONM-KNUMH. LW_BAPICONDQS-COND_COUNT = LW_KONM-KOPOS. LW_BAPICONDQS-LINE_NO = LW_KONM-KLFN1. LW_BAPICONDQS-SCALE_QTY = LW_KONM-KSTBM. LW_BAPICONDQS-COND_UNIT = LW_EKPO-KMEIN. LW_BAPICONDQS-CONDCURR = LW_KONP-KONWA. APPEND LW_BAPICONDQS TO LT_BAPICONDQS. ENDLOOP. LW_BAPICONDIT-UNITMEASUR = LW_EKPO-KMEIN. ENDIF. LW_BAPICONDIT-OPERATION = '004'. "修改" LW_BAPICONDIT-COND_NO = LV_KNUMH. LW_BAPICONDIT-COND_COUNT = '01'. "条件序列号" LW_BAPICONDIT-APPLICATIO = LW_KONP-KAPPL. LW_BAPICONDIT-COND_TYPE = LW_KONP-KSCHL. "条件类型" LW_BAPICONDIT-SCALETYPE = 'A'. "STFKZ Staffelsoort" LW_BAPICONDIT-SCALEBASIN = LW_KONP-STFKZ. "KZBZG Teken:rekeneenheid " LW_bapicondit-scalebasin = 'C'. "存在数量等级" LW_BAPICONDIT-SCALE_QTY = LW_KONP-KSTBM. "KSTBM Conditiestaffelbasis hoeveelheid" LW_BAPICONDIT-COND_P_UNT = LW_EKPO-KPEIN . "KPEIN prijseenheid" LW_BAPICONDIT-COND_UNIT = LW_EKPO-KMEIN. "KMEIN Conditie-hoeveelheidseenheid" LW_BAPICONDIT-CALCTYPCON = LW_KONP-KRECH. "KRECH Conditie-rekenregel" LW_BAPICONDIT-COND_VALUE = LW_KONP-KBETR. LW_BAPICONDIT-CONDCURR = LW_KONP-KONWA. APPEND LW_BAPICONDIT TO LT_BAPICONDIT . CALL FUNCTION 'BAPI_PRICES_CONDITIONS' TABLES TI_BAPICONDCT = LT_BAPICONDCT TI_BAPICONDHD = LT_BAPICONDHD TI_BAPICONDIT = LT_BAPICONDIT TI_BAPICONDQS = LT_BAPICONDQS TI_BAPICONDVS = LT_BAPICONDVS TO_BAPIRET2 = LT_BAPIRET2 TO_BAPIKNUMHS = LT_BAPIKNUMHS TO_MEM_INITIAL = LT_MEM_INITIAL EXCEPTIONS UPDATE_ERROR = 1 OTHERS = 2. CLEAR LW_BAPIRET2 . READ TABLE LT_BAPIRET2 INTO LW_BAPIRET2 WITH KEY TYPE = 'E' . IF SY-SUBRC <> 0 . COMMIT WORK AND WAIT . ELSE . ROLLBACK WORK . CALL FUNCTION 'ZMMFM001' EXPORTING EBELN = LW_HEAD-EBELN MATNR = LW_EKPO-MATNR KBETR = LW_KONP-KBETR TABLES BAPIRET2 = LT_BAPIRET2. ENDIF . ENDIF . ELSE . SELECT SINGLE KNUMH INTO LV_KNUMH FROM A901 WHERE KSCHL = 'PB00' AND MATNR = LW_EKPO-MATNR AND DATBI >= SY-DATUM AND DATAB <= SY-DATUM . IF SY-SUBRC <> 0 . * CHECK LW_KONP-KBETR <> 0 . LW_KONP-KAPPL = 'M' . LW_KONP-KSCHL = 'PB00' . LW_KONP-STFKZ = 'A' . LW_KONP-KSTBM = 0 . LW_KONP-KPEIN = LW_EKPO-KPEIN . LW_KONP-KMEIN = LW_EKPO-KMEIN . LW_KONP-KRECH = 'C' . LW_KONP-KBETR = LW_EKPO-KBET2 . LW_KONP-KONWA = LW_EKPO-WAERS . LV_KNUMH = '$000000001' . CONCATENATE LW_EKPO-MATNR LW_KONP-KONWA INTO H_VARKEY. LW_BAPICONDCT-OPERATION = '009'. "更改" LW_BAPICONDCT-COND_USAGE = 'A'. "条件表用途 ‘A' 定价" LW_BAPICONDCT-TABLE_NO = '901'. LW_BAPICONDCT-APPLICATIO = LW_KONP-KAPPL. LW_BAPICONDCT-COND_TYPE = LW_KONP-KSCHL. "定价条件" LW_BAPICONDCT-VARKEY = H_VARKEY. LW_BAPICONDCT-VALID_TO = '99991231'. LW_BAPICONDCT-VALID_FROM = SY-DATUM. LW_BAPICONDCT-COND_NO = LV_KNUMH. "更改" APPEND LW_BAPICONDCT TO LT_BAPICONDCT. LW_BAPICONDHD-OPERATION = '009'. LW_BAPICONDHD-COND_NO = LV_KNUMH. LW_BAPICONDHD-COND_USAGE = 'A'. LW_BAPICONDHD-TABLE_NO = '901'. LW_BAPICONDHD-APPLICATIO = LW_KONP-KAPPL. LW_BAPICONDHD-COND_TYPE = LW_KONP-KSCHL. LW_BAPICONDHD-VARKEY = H_VARKEY. LW_BAPICONDHD-VALID_FROM = SY-DATUM. LW_BAPICONDHD-VALID_TO = '99991231'. APPEND LW_BAPICONDHD TO LT_BAPICONDHD . LW_BAPICONDIT-OPERATION = '009'. "修改" LW_BAPICONDIT-COND_NO = LV_KNUMH. LW_BAPICONDIT-COND_COUNT = '01'. "条件序列号" LW_BAPICONDIT-APPLICATIO = LW_KONP-KAPPL. "LW_BAPICONDIT-MATLSETTL = LW_EKPO-MATNR." LW_BAPICONDIT-COND_TYPE = LW_KONP-KSCHL. "条件类型" LW_BAPICONDIT-SCALETYPE = 'A'. "STFKZ Staffelsoort" LW_BAPICONDIT-SCALEBASIN = LW_KONP-STFKZ. "KZBZG Teken:rekeneenheid " LW_bapicondit-scalebasin = 'C'. "存在数量等级" LW_BAPICONDIT-SCALE_QTY = LW_KONP-KSTBM. "KSTBM Conditiestaffelbasis hoeveelheid" LW_BAPICONDIT-COND_P_UNT = LW_KONP-KPEIN . "KPEIN prijseenheid" LW_BAPICONDIT-COND_UNIT = LW_KONP-KMEIN. "KMEIN Conditie-hoeveelheidseenheid" LW_BAPICONDIT-CALCTYPCON = LW_KONP-KRECH. "KRECH Conditie-rekenregel" LW_BAPICONDIT-COND_VALUE = LW_KONP-KBETR. LW_BAPICONDIT-CONDCURR = LW_KONP-KONWA. APPEND LW_BAPICONDIT TO LT_BAPICONDIT . CALL FUNCTION 'BAPI_PRICES_CONDITIONS' TABLES TI_BAPICONDCT = LT_BAPICONDCT TI_BAPICONDHD = LT_BAPICONDHD TI_BAPICONDIT = LT_BAPICONDIT TI_BAPICONDQS = LT_BAPICONDQS TI_BAPICONDVS = LT_BAPICONDVS TO_BAPIRET2 = LT_BAPIRET2 TO_BAPIKNUMHS = LT_BAPIKNUMHS TO_MEM_INITIAL = LT_MEM_INITIAL EXCEPTIONS UPDATE_ERROR = 1 OTHERS = 2. CLEAR LW_BAPIRET2 . READ TABLE LT_BAPIRET2 INTO LW_BAPIRET2 WITH KEY TYPE = 'E' . IF SY-SUBRC <> 0 . COMMIT WORK AND WAIT . ELSE . ROLLBACK WORK . CALL FUNCTION 'ZMMFM001' EXPORTING EBELN = LW_HEAD-EBELN MATNR = LW_EKPO-MATNR KBETR = LW_KONP-KBETR TABLES BAPIRET2 = LT_BAPIRET2. ENDIF . ENDIF . ENDIF . ENDLOOP . ENDIF . ENDIF . ENDIF . ENDMETHOD.

原文：Small Fire · Purchase Order 增强 · SAP 业务 子专栏 · Small Fire 技术笔记 创建采购订单(Purchase Order)时可以通过增强做一些控制。 BADI:ME_PROCESS_PO_CUST PROCESS_HEADER：对PO抬头数据进行检查 PROCESS_ITEM：对PO行项目做一些输入数据检查(限价检查) POST：点击保存时进行数据更新(底价更新) METHOD： IF_EX_ME_PROCESS_PO_CUST~PROCESS_ITEM. METHOD IF_EX_ME_PROCESS_PO_CUST~PROCESS_ITEM. INCLUDE MM_MESSAGES_MAC. DATA : LW_ITEM TYPE MEPOITEM. DATA : LT_KONV TYPE TABLE OF KOMV . DATA : LW_KONV TYPE KOMV . DATA : LV_KNUMH TYPE A118-KNUMH . DATA : LT_KONP TYPE TABLE OF KONP . DATA : LW_KONP TYPE KONP . DATA : LV_MARKS(1) TYPE C . DATA : LT_KONM TYPE TABLE OF KONM, LW_KONM TYPE KONM. DATA : LO_HEADER TYPE REF TO IF_PURCHASE_ORDER_MM . DATA : LW_HEADER TYPE MEPOHEADER . CLEAR:LT_KONM[],LW_KONM. IF SY-TCODE = 'ME21N' OR SY-TCODE = 'ME22N' OR SY-TCODE = 'ME29N' OR SY-TCODE = 'ME23N' . LO_HEADER = IM_ITEM->GET_HEADER( ). LW_HEADER = LO_HEADER->GET_DATA( ). IF LW_HEADER-BSART = '913' OR LW_HEADER-BSART = '914' OR LW_HEADER-BSART = '915' OR LW_HEADER-BSART = '916' . ELSE . LW_ITEM = IM_ITEM->GET_DATA( ). CHECK LW_ITEM-UMSON = ''. "免费货物不检查" CHECK LW_ITEM-LOEKZ = ''. "删除货物不检查" CHECK LW_ITEM-MATNR <> ''. "无物料号不检查" CALL METHOD IM_ITEM->GET_CONDITIONS IMPORTING EX_CONDITIONS = LT_KONV[]. CLEAR LV_MARKS . CLEAR LW_KONV . READ TABLE LT_KONV INTO LW_KONV WITH KEY KPOSN = LW_ITEM-EBELP KSCHL = 'PB00' . IF SY-SUBRC <> 0 . CLEAR LW_KONV . READ TABLE LT_KONV INTO LW_KONV WITH KEY KPOSN = LW_ITEM-EBELP KSCHL = 'PBXX' . IF SY-SUBRC <> 0 . LV_MARKS = 'X' . ENDIF . ENDIF . CHECK LV_MARKS = '' . SELECT SINGLE KNUMH INTO LV_KNUMH FROM A901 WHERE KSCHL = 'PB00' AND MATNR = LW_ITEM-MATNR AND ZONWA = LW_HEADER-WAERS AND DATBI >= SY-DATUM AND DATAB <= SY-DATUM . IF SY-SUBRC = 0 . CLEAR LT_KONP[] . SELECT * INTO TABLE LT_KONP FROM KONP WHERE KNUMH = LV_KNUMH AND KONWA = LW_HEADER-WAERS . IF SY-SUBRC = 0 . SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_KONM FROM KONM FOR ALL ENTRIES IN LT_KONP WHERE KNUMH = LT_KONP-KNUMH AND KOPOS = LT_KONP-KOPOS." AND KSTBM <= LW_ITEM-MENGE. " CLEAR LW_KONP . READ TABLE LT_KONP INTO LW_KONP INDEX 1 . SORT LT_KONM BY KNUMH KOPOS KSTBM DESCENDING. "按数量倒序" READ TABLE LT_KONM INTO LW_KONM INDEX 1. "取最近最大的值对应的价格" IF LT_KONM[] IS NOT INITIAL. "如果存在，将阶梯价复制过来" LOOP AT LT_KONM INTO LW_KONM WHERE KSTBM >= LW_ITEM-MENGE.. LW_KONP-KBETR = LW_KONM-KBETR. ENDLOOP. ENDIF. IF LW_HEADER-WAERS <> LW_KONV-WAERS . CALL FUNCTION 'CONVERT_TO_FOREIGN_CURRENCY' EXPORTING DATE = SY-DATUM FOREIGN_CURRENCY = LW_HEADER-WAERS LOCAL_AMOUNT = LW_KONV-KBETR LOCAL_CURRENCY = LW_KONV-WAERS IMPORTING FOREIGN_AMOUNT = LW_KONV-KBETR EXCEPTIONS NO_RATE_FOUND = 1 OVERFLOW = 2 NO_FACTORS_FOUND = 3 NO_SPREAD_FOUND = 4 DERIVED_2_TIMES = 5 OTHERS = 6. ENDIF . IF LW_KONP-KMEIN <> LW_KONV-KMEIN ."数量单位转换" DATA : LV_MENGE TYPE EKPO-MENGE . LV_MENGE = LW_KONP-KPEIN . CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT' EXPORTING I_MATNR = LW_ITEM-MATNR I_IN_ME = LW_KONP-KMEIN I_OUT_ME = LW_KONV-KMEIN I_MENGE = LV_MENGE IMPORTING E_MENGE = LV_MENGE EXCEPTIONS ERROR_IN_APPLICATION = 1 ERROR = 2 OTHERS = 3. IF LV_MENGE <> 0 . LW_KONP-KBETR = LW_KONP-KBETR / LV_MENGE * LW_KONV-KPEIN . ELSE . MMPUR_MESSAGE 'E' 'ZMM' '001' '行项目' LW_ITEM-EBELP '限价转换单位太小，程序无法判断'. ENDIF . ELSE . LW_KONP-KBETR = LW_KONP-KBETR / LW_KONP-KPEIN * LW_KONV-KPEIN . ENDIF . IF LW_KONV-KBETR > LW_KONP-KBETR . MMPUR_MESSAGE 'E' 'ZMM' '001' '行项目' LW_ITEM-EBELP '采购价格超出物料最高限价！'. ENDIF . ELSE . CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT' EXPORTING INPUT = LW_ITEM-MATNR IMPORTING OUTPUT = LW_ITEM-MATNR. MMPUR_MESSAGE 'E' 'ZMM' '001' '行项目' LW_ITEM-EBELP '的最高限价货币记录为空！'. ENDIF . ELSE . SELECT SINGLE KNUMH INTO LV_KNUMH FROM A901 WHERE KSCHL = 'PB00' AND MATNR = LW_ITEM-MATNR AND DATBI >= SY-DATUM AND DATAB <= SY-DATUM . IF SY-SUBRC = 0 . CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT' EXPORTING INPUT = LW_ITEM-MATNR IMPORTING OUTPUT = LW_ITEM-MATNR. MMPUR_MESSAGE 'E' 'ZMM' '001' '行项目' LW_ITEM-EBELP '的最高限价货币记录为空！'. ELSE . CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT' EXPORTING INPUT = LW_ITEM-MATNR IMPORTING OUTPUT = LW_ITEM-MATNR. MMPUR_MESSAGE 'W' 'ZMM' '001' '行项目' LW_ITEM-EBELP '的最高限价记录为空，将自动维护.'. ENDIF . ENDIF . ENDIF . ENDIF . ENDMETHOD. METHOD： IF_EX_ME_PROCESS_PO_CUST~POST METHOD IF_EX_ME_PROCESS_PO_CUST~POST. TYPES : BEGIN OF LS_EKPO ,"物料对应" MATNR TYPE EKPO-MATNR, MENGE TYPE EKPO-MENGE, KBETR TYPE KONV-KBETR, WAERS TYPE KONV-WAERS, KMEIN TYPE KONV-KMEIN, KBET2 TYPE KONV-KBETR, KPEIN TYPE KONV-KPEIN, MARKX(1) TYPE C, END OF LS_EKPO . DATA : LW_EKPO TYPE LS_EKPO . DATA : LT_EKPO TYPE TABLE OF LS_EKPO . DATA : LW_ITEM TYPE MEPOITEM. DATA : LW_HEAD TYPE MEPOHEADER. DATA : LT_ITEM TYPE TABLE OF MEPOITEM. DATA : LT_KONV TYPE TABLE OF KOMV . DATA : LT_KONV_01 TYPE TABLE OF KOMV . DATA : LW_KONV TYPE KOMV . DATA : LV_KNUMH TYPE A118-KNUMH . DATA : LT_KONP TYPE TABLE OF KONP . DATA : LW_KONP TYPE KONP . DATA: LT_ITEMS TYPE PURCHASE_ORDER_ITEMS, LW_ITEMS TYPE PURCHASE_ORDER_ITEM. DATA : LM_KONV TYPE REF TO IF_PURCHASE_ORDER_ITEM_MM . DATA:LT_KONM TYPE TABLE OF KONM, LW_KONM TYPE KONM. DATA:LV_FLAG TYPE C. *************************************************** *************************************************** DATA: LT_BAPICONDCT TYPE TABLE OF BAPICONDCT, LW_BAPICONDCT TYPE BAPICONDCT, LT_BAPICONDHD TYPE TABLE OF BAPICONDHD , LW_BAPICONDHD TYPE BAPICONDHD, LT_BAPICONDIT TYPE TABLE OF BAPICONDIT, LW_BAPICONDIT TYPE BAPICONDIT, LT_BAPICONDQS TYPE TABLE OF BAPICONDQS, LW_BAPICONDQS TYPE BAPICONDQS, LT_BAPICONDVS TYPE TABLE OF BAPICONDVS, LW_BAPICONDVS TYPE BAPICONDVS. DATA: LT_BAPIRET2 TYPE TABLE OF BAPIRET2 . DATA: LW_BAPIRET2 TYPE BAPIRET2 . DATA: LT_BAPIKNUMHS TYPE TABLE OF BAPIKNUMHS . DATA: LT_MEM_INITIAL TYPE TABLE OF CND_MEM_INITIAL. DATA : LV_MARKX(1) TYPE C ."需要扩大标识" DATA: H_VARKEY(100), H_COND_UNIT TYPE MEINS . *************************************************** *************************************************** CLEAR : LT_EKPO[] . CLEAR : LT_ITEM[] . CLEAR : LT_KONV[] . CLEAR : LT_KONP[] . IF SY-TCODE = 'ME21N' OR SY-TCODE = 'ME22N' OR SY-TCODE = 'ME23N' OR SY-TCODE = 'ME29N' . LT_ITEMS = IM_HEADER->GET_ITEMS( ). LW_HEAD = IM_HEADER->GET_DATA( ). IF LW_HEAD-BSART = '913' OR LW_HEAD-BSART = '914' OR LW_HEAD-BSART = '915' OR LW_HEAD-BSART = '916' . ELSE . CLEAR LW_ITEMS . LOOP AT LT_ITEMS INTO LW_ITEMS . CLEAR LW_ITEM . LW_ITEM = LW_ITEMS-ITEM->GET_DATA( ). APPEND LW_ITEM TO LT_ITEM . CLEAR LT_KONV_01[] . CALL METHOD LW_ITEMS-ITEM->GET_CONDITIONS IMPORTING EX_CONDITIONS = LT_KONV_01[]. APPEND LINES OF LT_KONV_01 TO LT_KONV . ENDLOOP. CLEAR LW_ITEM . LOOP AT LT_ITEM INTO LW_ITEM . CHECK LW_ITEM-UMSON = '' . "免费货物不检查" CHECK LW_ITEM-LOEKZ = '' . "删除货物不检查" CHECK LW_ITEM-MATNR <> ''. "无物料号不检查" CLEAR LW_KONV . READ TABLE LT_KONV INTO LW_KONV WITH KEY KPOSN = LW_ITEM-EBELP KSCHL = 'PB00' . IF SY-SUBRC = 0 . CLEAR LW_EKPO . LW_EKPO-KBETR = LW_KONV-KBETR . LW_EKPO-MENGE = LW_ITEM-MENGE . LW_EKPO-MATNR = LW_ITEM-MATNR . LW_EKPO-WAERS = LW_KONV-WAERS . LW_EKPO-KMEIN = LW_KONV-KMEIN . LW_EKPO-KBET2 = LW_KONV-KBETR . LW_EKPO-KPEIN = LW_KONV-KPEIN . APPEND LW_EKPO TO LT_EKPO . ELSE . CLEAR LW_KONV . READ TABLE LT_KONV INTO LW_KONV WITH KEY KPOSN = LW_ITEM-EBELP KSCHL = 'PBXX' . IF SY-SUBRC = 0 . CLEAR LW_EKPO . LW_EKPO-MENGE = LW_ITEM-MENGE . LW_EKPO-KBETR = LW_KONV-KBETR . LW_EKPO-MATNR = LW_ITEM-MATNR . LW_EKPO-WAERS = LW_KONV-WAERS . LW_EKPO-KMEIN = LW_KONV-KMEIN . LW_EKPO-KBET2 = LW_KONV-KBETR . LW_EKPO-KPEIN = LW_KONV-KPEIN . APPEND LW_EKPO TO LT_EKPO . ENDIF . ENDIF . CLEAR LW_ITEM . ENDLOOP . "取到唯一的最小值" SORT LT_EKPO BY MATNR KBETR ASCENDING . DELETE ADJACENT DUPLICATES FROM LT_EKPO COMPARING MATNR . IF LT_EKPO[] IS NOT INITIAL . CLEAR LW_EKPO . LOOP AT LT_EKPO INTO LW_EKPO . CLEAR : LT_BAPICONDCT[] , LT_BAPICONDHD[] , LT_BAPICONDIT[] , LT_BAPICONDQS[] , LT_BAPICONDVS[] , LT_BAPIRET2[] , LT_BAPIKNUMHS[] , LT_MEM_INITIAL[] . LW_EKPO-KBETR = LW_EKPO-KBET2 . SELECT SINGLE KNUMH INTO LV_KNUMH FROM A901 WHERE KSCHL = 'PB00' AND MATNR = LW_EKPO-MATNR AND ZONWA = LW_EKPO-WAERS AND DATBI >= SY-DATUM AND DATAB <= SY-DATUM . IF SY-SUBRC = 0 . CLEAR: LT_KONP[],LT_KONM . SELECT * INTO TABLE LT_KONP FROM KONP WHERE KNUMH = LV_KNUMH . IF SY-SUBRC = 0. SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_KONM FROM KONM FOR ALL ENTRIES IN LT_KONP WHERE KNUMH = LT_KONP-KNUMH AND KOPOS = LT_KONP-KOPOS." AND KSTBM <= LW_EKPO-MENGE. " ENDIF. CLEAR LW_KONP . READ TABLE LT_KONP INTO LW_KONP INDEX 1 . SORT LT_KONM BY KNUMH KOPOS KSTBM DESCENDING."先取最大的，然后倒序，小于等于当前数量赋值" READ TABLE LT_KONM INTO LW_KONM INDEX 1. IF LT_KONM[] IS NOT INITIAL. LW_KONP-KBETR = LW_KONM-KBETR. LOOP AT LT_KONM INTO LW_KONM WHERE KSTBM >= LW_EKPO-MENGE. LW_KONP-KBETR = LW_KONM-KBETR. ENDLOOP. ENDIF. IF LW_EKPO-WAERS <> LW_KONP-KONWA . CALL FUNCTION 'CONVERT_TO_FOREIGN_CURRENCY' EXPORTING DATE = SY-DATUM FOREIGN_CURRENCY = LW_KONP-KONWA LOCAL_AMOUNT = LW_EKPO-KBETR LOCAL_CURRENCY = LW_EKPO-WAERS IMPORTING FOREIGN_AMOUNT = LW_EKPO-KBETR EXCEPTIONS NO_RATE_FOUND = 1 OVERFLOW = 2 NO_FACTORS_FOUND = 3 NO_SPREAD_FOUND = 4 DERIVED_2_TIMES = 5 OTHERS = 6. ENDIF . IF LW_EKPO-KMEIN <> LW_KONP-KMEIN ."数量单位转换" DATA : LV_MENGE TYPE EKPO-MENGE . LV_MENGE = LW_KONP-KPEIN . CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT' EXPORTING I_MATNR = LW_ITEM-MATNR I_IN_ME = LW_KONP-KMEIN I_OUT_ME = LW_EKPO-KMEIN I_MENGE = LV_MENGE IMPORTING E_MENGE = LV_MENGE EXCEPTIONS ERROR_IN_APPLICATION = 1 ERROR = 2 OTHERS = 3. LW_KONP-KBETR = LW_KONP-KBETR / LV_MENGE * LW_EKPO-KPEIN . ELSE . LW_KONP-KBETR = LW_KONP-KBETR / LW_KONP-KPEIN * LW_EKPO-KPEIN . ENDIF . IF LW_EKPO-KBETR < LW_KONP-KBETR . " LW_KONP-KBETR = LW_EKPO-KBETR * LW_KONP-KPEIN ." LW_KONP-KBETR = LW_EKPO-KBET2 . CHECK LW_KONP-KBETR <> 0 . H_VARKEY = LW_ITEM-MATNR . LW_BAPICONDCT-OPERATION = '004'. "更改" LW_BAPICONDCT-COND_USAGE = 'A'. "条件表用途 ‘A' 定价" LW_BAPICONDCT-TABLE_NO = '901'. LW_BAPICONDCT-APPLICATIO = LW_KONP-KAPPL. LW_BAPICONDCT-COND_TYPE = LW_KONP-KSCHL. "定价条件" LW_BAPICONDCT-VARKEY = H_VARKEY. LW_BAPICONDCT-VALID_TO = '99991231'. LW_BAPICONDCT-VALID_FROM = SY-DATUM. LW_BAPICONDCT-COND_NO = LV_KNUMH. "更改" APPEND LW_BAPICONDCT TO LT_BAPICONDCT. LW_BAPICONDHD-OPERATION = '004'. LW_BAPICONDHD-COND_NO = LV_KNUMH. LW_BAPICONDHD-COND_USAGE = 'A'. LW_BAPICONDHD-TABLE_NO = '901'. LW_BAPICONDHD-APPLICATIO = LW_KONP-KAPPL. LW_BAPICONDHD-COND_TYPE = LW_KONP-KSCHL. LW_BAPICONDHD-VALID_FROM = SY-DATUM. LW_BAPICONDHD-VALID_TO = '99991231'. APPEND LW_BAPICONDHD TO LT_BAPICONDHD . IF LT_KONM[] IS NOT INITIAL. CLEAR:LV_FLAG. LOOP AT LT_KONM INTO LW_KONM. AT LAST. IF LV_FLAG <> 'E'. LV_FLAG = 'S'. ENDIF. ENDAT. IF LW_KONM-KSTBM > LW_EKPO-MENGE." AND LV_FLAG <> 'E'. 小于等于订单数量的第一个" IF LV_FLAG = 'S'. LV_FLAG = 'X'. ENDIF. ELSEIF LW_KONM-KSTBM = LW_EKPO-MENGE. LV_FLAG = 'X'. ELSEIF LW_KONM-KSTBM < LW_EKPO-MENGE. IF LV_FLAG = ''. LV_FLAG = 'X'. ENDIF. ENDIF. IF LV_FLAG = 'X'. LW_BAPICONDQS-CURRENCY = LW_KONP-KBETR. LV_FLAG = 'E'. ELSE. LW_BAPICONDQS-CURRENCY = LW_KONM-KBETR. ENDIF. LW_BAPICONDQS-OPERATION = '004'. LW_BAPICONDQS-COND_NO = LW_KONM-KNUMH. LW_BAPICONDQS-COND_COUNT = LW_KONM-KOPOS. LW_BAPICONDQS-LINE_NO = LW_KONM-KLFN1. LW_BAPICONDQS-SCALE_QTY = LW_KONM-KSTBM. LW_BAPICONDQS-COND_UNIT = LW_EKPO-KMEIN. LW_BAPICONDQS-CONDCURR = LW_KONP-KONWA. APPEND LW_BAPICONDQS TO LT_BAPICONDQS. ENDLOOP. LW_BAPICONDIT-UNITMEASUR = LW_EKPO-KMEIN. ENDIF. LW_BAPICONDIT-OPERATION = '004'. "修改" LW_BAPICONDIT-COND_NO = LV_KNUMH. LW_BAPICONDIT-COND_COUNT = '01'. "条件序列号" LW_BAPICONDIT-APPLICATIO = LW_KONP-KAPPL. LW_BAPICONDIT-COND_TYPE = LW_KONP-KSCHL. "条件类型" LW_BAPICONDIT-SCALETYPE = 'A'. "STFKZ Staffelsoort" LW_BAPICONDIT-SCALEBASIN = LW_KONP-STFKZ. "KZBZG Teken:rekeneenheid " LW_bapicondit-scalebasin = 'C'. "存在数量等级" LW_BAPICONDIT-SCALE_QTY = LW_KONP-KSTBM. "KSTBM Conditiestaffelbasis hoeveelheid" LW_BAPICONDIT-COND_P_UNT = LW_EKPO-KPEIN . "KPEIN prijseenheid" LW_BAPICONDIT-COND_UNIT = LW_EKPO-KMEIN. "KMEIN Conditie-hoeveelheidseenheid" LW_BAPICONDIT-CALCTYPCON = LW_KONP-KRECH. "KRECH Conditie-rekenregel" LW_BAPICONDIT-COND_VALUE = LW_KONP-KBETR. LW_BAPICONDIT-CONDCURR = LW_KONP-KONWA. APPEND LW_BAPICONDIT TO LT_BAPICONDIT . CALL FUNCTION 'BAPI_PRICES_CONDITIONS' TABLES TI_BAPICONDCT = LT_BAPICONDCT TI_BAPICONDHD = LT_BAPICONDHD TI_BAPICONDIT = LT_BAPICONDIT TI_BAPICONDQS = LT_BAPICONDQS TI_BAPICONDVS = LT_BAPICONDVS TO_BAPIRET2 = LT_BAPIRET2 TO_BAPIKNUMHS = LT_BAPIKNUMHS TO_MEM_INITIAL = LT_MEM_INITIAL EXCEPTIONS UPDATE_ERROR = 1 OTHERS = 2. CLEAR LW_BAPIRET2 . READ TABLE LT_BAPIRET2 INTO LW_BAPIRET2 WITH KEY TYPE = 'E' . IF SY-SUBRC <> 0 . COMMIT WORK AND WAIT . ELSE . ROLLBACK WORK . CALL FUNCTION 'ZMMFM001' EXPORTING EBELN = LW_HEAD-EBELN MATNR = LW_EKPO-MATNR KBETR = LW_KONP-KBETR TABLES BAPIRET2 = LT_BAPIRET2. ENDIF . ENDIF . ELSE . SELECT SINGLE KNUMH INTO LV_KNUMH FROM A901 WHERE KSCHL = 'PB00' AND MATNR = LW_EKPO-MATNR AND DATBI >= SY-DATUM AND DATAB <= SY-DATUM . IF SY-SUBRC <> 0 . * CHECK LW_KONP-KBETR <> 0 . LW_KONP-KAPPL = 'M' . LW_KONP-KSCHL = 'PB00' . LW_KONP-STFKZ = 'A' . LW_KONP-KSTBM = 0 . LW_KONP-KPEIN = LW_EKPO-KPEIN . LW_KONP-KMEIN = LW_EKPO-KMEIN . LW_KONP-KRECH = 'C' . LW_KONP-KBETR = LW_EKPO-KBET2 . LW_KONP-KONWA = LW_EKPO-WAERS . LV_KNUMH = '$000000001' . CONCATENATE LW_EKPO-MATNR LW_KONP-KONWA INTO H_VARKEY. LW_BAPICONDCT-OPERATION = '009'. "更改" LW_BAPICONDCT-COND_USAGE = 'A'. "条件表用途 ‘A' 定价" LW_BAPICONDCT-TABLE_NO = '901'. LW_BAPICONDCT-APPLICATIO = LW_KONP-KAPPL. LW_BAPICONDCT-COND_TYPE = LW_KONP-KSCHL. "定价条件" LW_BAPICONDCT-VARKEY = H_VARKEY. LW_BAPICONDCT-VALID_TO = '99991231'. LW_BAPICONDCT-VALID_FROM = SY-DATUM. LW_BAPICONDCT-COND_NO = LV_KNUMH. "更改" APPEND LW_BAPICONDCT TO LT_BAPICONDCT. LW_BAPICONDHD-OPERATION = '009'. LW_BAPICONDHD-COND_NO = LV_KNUMH. LW_BAPICONDHD-COND_USAGE = 'A'. LW_BAPICONDHD-TABLE_NO = '901'. LW_BAPICONDHD-APPLICATIO = LW_KONP-KAPPL. LW_BAPICONDHD-COND_TYPE = LW_KONP-KSCHL. LW_BAPICONDHD-VARKEY = H_VARKEY. LW_BAPICONDHD-VALID_FROM = SY-DATUM. LW_BAPICONDHD-VALID_TO = '99991231'. APPEND LW_BAPICONDHD TO LT_BAPICONDHD . LW_BAPICONDIT-OPERATION = '009'. "修改" LW_BAPICONDIT-COND_NO = LV_KNUMH. LW_BAPICONDIT-COND_COUNT = '01'. "条件序列号" LW_BAPICONDIT-APPLICATIO = LW_KONP-KAPPL. "LW_BAPICONDIT-MATLSETTL = LW_EKPO-MATNR." LW_BAPICONDIT-COND_TYPE = LW_KONP-KSCHL. "条件类型" LW_BAPICONDIT-SCALETYPE = 'A'. "STFKZ Staffelsoort" LW_BAPICONDIT-SCALEBASIN = LW_KONP-STFKZ. "KZBZG Teken:rekeneenheid " LW_bapicondit-scalebasin = 'C'. "存在数量等级" LW_BAPICONDIT-SCALE_QTY = LW_KONP-KSTBM. "KSTBM Conditiestaffelbasis hoeveelheid" LW_BAPICONDIT-COND_P_UNT = LW_KONP-KPEIN . "KPEIN prijseenheid" LW_BAPICONDIT-COND_UNIT = LW_KONP-KMEIN. "KMEIN Conditie-hoeveelheidseenheid" LW_BAPICONDIT-CALCTYPCON = LW_KONP-KRECH. "KRECH Conditie-rekenregel" LW_BAPICONDIT-COND_VALUE = LW_KONP-KBETR. LW_BAPICONDIT-CONDCURR = LW_KONP-KONWA. APPEND LW_BAPICONDIT TO LT_BAPICONDIT . CALL FUNCTION 'BAPI_PRICES_CONDITIONS' TABLES TI_BAPICONDCT = LT_BAPICONDCT TI_BAPICONDHD = LT_BAPICONDHD TI_BAPICONDIT = LT_BAPICONDIT TI_BAPICONDQS = LT_BAPICONDQS TI_BAPICONDVS = LT_BAPICONDVS TO_BAPIRET2 = LT_BAPIRET2 TO_BAPIKNUMHS = LT_BAPIKNUMHS TO_MEM_INITIAL = LT_MEM_INITIAL EXCEPTIONS UPDATE_ERROR = 1 OTHERS = 2. CLEAR LW_BAPIRET2 . READ TABLE LT_BAPIRET2 INTO LW_BAPIRET2 WITH KEY TYPE = 'E' . IF SY-SUBRC <> 0 . COMMIT WORK AND WAIT . ELSE . ROLLBACK WORK . CALL FUNCTION 'ZMMFM001' EXPORTING EBELN = LW_HEAD-EBELN MATNR = LW_EKPO-MATNR KBETR = LW_KONP-KBETR TABLES BAPIRET2 = LT_BAPIRET2. ENDIF . ENDIF . ENDIF . ENDLOOP . ENDIF . ENDIF . ENDIF . ENDMETHOD.

原文：Small Fire · BAPI 操作生产订单 · SAP 业务 子专栏 · Small Fire 技术笔记 创建Product Order：BAPI_PRODORD_CREATE *---------------------------------------------------------------------* * Form FRM_ORDER_CREATE *---------------------------------------------------------------------* *----------------------------------------------------------------------* * p1 text * p2 text *----------------------------------------------------------------------* FORM frm_order_create . DATA: ls_upload LIKE LINE OF gt_upload, ls_style TYPE lvc_s_styl, lv_index LIKE sy-tabix. DATA: ls_order TYPE bapi_pp_order_create, ls_return TYPE bapiret2, lv_ordnum TYPE bapi_order_key-order_number, lv_ordtyp TYPE bapi_order_copy-order_type. LOOP AT gt_upload INTO ls_upload WHERE ztype EQ space AND box EQ 'X'. lv_index = sy-tabix. CLEAR: ls_order, ls_return, lv_ordnum, lv_ordtyp, ls_style. IF ls_upload-externind EQ 'X'. ls_order-order_number = ls_upload-aufnr. ENDIF. ls_order-material = ls_upload-plnbez. ls_order-plant = ls_upload-dwerk. ls_order-planning_plant = ls_upload-dwerk. ls_order-order_type = ls_upload-dauat. ls_order-quantity = ls_upload-gamng. ls_order-quantity_uom = ls_upload-gmein. ls_order-basic_start_date = ls_upload-gstps. ls_order-basic_start_time = ls_upload-gsuzs. ls_order-basic_end_date = ls_upload-gltps. ls_order-basic_end_time = ls_upload-gluzs. ls_order-unloading_point = ls_upload-ablad. ls_order-sequence_number = ls_upload-cy_seqnr. IF ls_upload-verid NE space. ls_order-prod_version = ls_upload-verid. ENDIF. IF ls_upload-lgort NE space. ls_order-storage_location = ls_upload-lgort. ENDIF. CALL FUNCTION 'BAPI_PRODORD_CREATE' EXPORTING orderdata = ls_order IMPORTING return = ls_return order_number = lv_ordnum order_type = lv_ordtyp. IF lv_ordnum NE space. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. CLEAR: ls_upload-fstyle, ls_upload-fstyle[]. ls_style-style = cl_gui_alv_grid=>mc_style_disabled. INSERT ls_style INTO TABLE ls_upload-fstyle. ls_upload-aufnr = lv_ordnum. ls_upload-ztype = 'S'. ls_upload-message = 'Update successfully'. ELSE. ls_upload-ztype = ls_return-type. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. ENDIF. IF ls_return-type NE space. APPEND ls_return TO ls_upload-retmsg. ENDIF. IF ls_upload-ztype = 'E' . ls_upload-zcol = 'C610' . ENDIF . MODIFY gt_upload FROM ls_upload INDEX lv_index. ENDLOOP. ENDFORM. " FRM_ORDER_CREATE " 修改Product Order：BAPI_PRODORD_CHANGE *&---------------------------------------------------------------------* *& Form frm_order_change *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM frm_order_change. DATA: ls_upload LIKE LINE OF gt_upload, ls_style TYPE lvc_s_styl, lv_index LIKE sy-tabix. DATA: ls_order TYPE bapi_pp_order_change, ls_orderx TYPE bapi_pp_order_changex, ls_return TYPE bapiret2, lv_ordnum TYPE bapi_order_key-order_number, lv_ordtyp TYPE bapi_order_copy-order_type. LOOP AT gt_upload INTO ls_upload WHERE box EQ 'X'. lv_index = sy-tabix. CLEAR: ls_order, ls_return, lv_ordnum, lv_ordtyp, ls_style, ls_orderx. ls_order-quantity = ls_upload-gamng. ls_order-quantity_uom = ls_upload-gmein. ls_order-basic_start_date = ls_upload-gstps. ls_upload-gltps = ls_upload-gstps + ls_upload-nlfzt . ls_order-basic_end_date = ls_upload-gltps . ls_order-unloading_point = ls_upload-ablad. ls_order-sequence_number = ls_upload-cy_seqnr. ls_order-prod_version = ls_upload-verid. ls_order-storage_location = ls_upload-lgort. * ls_order-TERKZ ls_orderx-quantity = 'X'. ls_orderx-basic_start_date = 'X'. ls_orderx-basic_end_date = 'X'. ls_orderx-sequence_number = 'X'. ls_orderx-unloading_point = 'X'. ls_orderx-storage_location = 'X'. ls_orderx-prod_version = 'X'. CALL FUNCTION 'BAPI_PRODORD_CHANGE' EXPORTING number = ls_upload-aufnr orderdata = ls_order orderdatax = ls_orderx IMPORTING return = ls_return. IF ls_return-type EQ 'S' OR ls_return-type EQ space. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. CLEAR: ls_upload-fstyle, ls_upload-fstyle[]. ls_style-style = cl_gui_alv_grid=>mc_style_disabled. INSERT ls_style INTO TABLE ls_upload-fstyle. ls_upload-ztype = 'S'. ls_upload-id = c_green. ls_upload-message = 'Updated successfully'. ELSE. ls_upload-ztype = ls_return-type. ls_upload-id = c_red. ls_upload-message = ls_return-message. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. ENDIF. IF ls_return-type NE space. APPEND ls_return TO ls_upload-retmsg. ENDIF. IF ls_upload-ztype = 'E' . ls_upload-zcol = 'C610' . ENDIF . MODIFY gt_upload FROM ls_upload INDEX lv_index. ENDLOOP. ENDFORM. "frm_order_change" Product Order Release：BAPI_PRODORD_RELEASE *&---------------------------------------------------------------------* *& Form frm_order_RELEASE *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM frm_order_release. DATA: ls_upload LIKE LINE OF gt_upload, ls_style TYPE lvc_s_styl, lv_index LIKE sy-tabix. DATA: lt_orders TYPE TABLE OF bapi_order_key WITH HEADER LINE, ls_return TYPE bapiret2, lt_detail_return TYPE TABLE OF bapi_order_return WITH HEADER LINE. LOOP AT gt_upload INTO ls_upload WHERE ztype EQ 'S' AND box EQ 'X'. lv_index = sy-tabix. CLEAR:lt_orders. lt_orders-order_number = ls_upload-aufnr. APPEND lt_orders . CALL FUNCTION 'BAPI_PRODORD_RELEASE' EXPORTING release_control = '1' * WORK_PROCESS_GROUP = 'COWORK_BAPI' * WORK_PROCESS_MAX = 99 IMPORTING return = ls_return TABLES orders = lt_orders detail_return = lt_detail_return * APPLICATION_LOG = . IF ls_return-number EQ space. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. CLEAR: ls_upload-fstyle, ls_upload-fstyle[]. ls_style-style = cl_gui_alv_grid=>mc_style_disabled. INSERT ls_style INTO TABLE ls_upload-fstyle. ls_upload-aufnr = lt_orders-order_number. ls_upload-xtype = 'S'. ELSE. "if lt_DETAIL_RETURN-NUMBER eq '093'." " ls_upload-xtype = lt_DETAIL_RETURN-MESSAGE." "endif." IF lt_detail_return-number EQ '086'. ls_upload-xtype = lt_detail_return-message. ls_upload-zcol = 'C610' . ENDIF. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. ENDIF. MODIFY gt_upload FROM ls_upload INDEX lv_index. ENDLOOP. ENDFORM. "frm_order_RELEASE"

原文：Small Fire · 生产订单标准BAPI · SAP 业务 子专栏 · Small Fire 技术笔记 创建PO *---------------------------------------------------------------------* * Form FRM_ORDER_CREATE *---------------------------------------------------------------------* *----------------------------------------------------------------------* * p1 text * p2 text *----------------------------------------------------------------------* FORM frm_order_create . DATA: ls_upload LIKE LINE OF gt_upload, ls_style TYPE lvc_s_styl, lv_index LIKE sy-tabix. DATA: ls_order TYPE bapi_pp_order_create, ls_return TYPE bapiret2, lv_ordnum TYPE bapi_order_key-order_number, lv_ordtyp TYPE bapi_order_copy-order_type. LOOP AT gt_upload INTO ls_upload WHERE ztype EQ space AND box EQ 'X'. lv_index = sy-tabix. CLEAR: ls_order, ls_return, lv_ordnum, lv_ordtyp, ls_style. IF ls_upload-externind EQ 'X'. ls_order-order_number = ls_upload-aufnr. ENDIF. ls_order-material = ls_upload-plnbez. ls_order-plant = ls_upload-dwerk. ls_order-planning_plant = ls_upload-dwerk. ls_order-order_type = ls_upload-dauat. ls_order-quantity = ls_upload-gamng. ls_order-quantity_uom = ls_upload-gmein. ls_order-basic_start_date = ls_upload-gstps. ls_order-basic_start_time = ls_upload-gsuzs. ls_order-basic_end_date = ls_upload-gltps. ls_order-basic_end_time = ls_upload-gluzs. ls_order-unloading_point = ls_upload-ablad. ls_order-sequence_number = ls_upload-cy_seqnr. IF ls_upload-verid NE space. ls_order-prod_version = ls_upload-verid. ENDIF. IF ls_upload-lgort NE space. ls_order-storage_location = ls_upload-lgort. ENDIF. CALL FUNCTION 'BAPI_PRODORD_CREATE' EXPORTING orderdata = ls_order IMPORTING return = ls_return order_number = lv_ordnum order_type = lv_ordtyp. IF lv_ordnum NE space. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. CLEAR: ls_upload-fstyle, ls_upload-fstyle[]. ls_style-style = cl_gui_alv_grid=>mc_style_disabled. INSERT ls_style INTO TABLE ls_upload-fstyle. ls_upload-aufnr = lv_ordnum. ls_upload-ztype = 'S'. ls_upload-message = 'Update successfully'. ELSE. ls_upload-ztype = ls_return-type. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. ENDIF. IF ls_return-type NE space. APPEND ls_return TO ls_upload-retmsg. ENDIF. IF ls_upload-ztype = 'E' . ls_upload-zcol = 'C610' . ENDIF . MODIFY gt_upload FROM ls_upload INDEX lv_index. ENDLOOP. ENDFORM. " FRM_ORDER_CREATE 修改PO *&---------------------------------------------------------------------* *& Form frm_order_change *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM frm_order_change. DATA: ls_upload LIKE LINE OF gt_upload, ls_style TYPE lvc_s_styl, lv_index LIKE sy-tabix. DATA: ls_order TYPE bapi_pp_order_change, ls_orderx TYPE bapi_pp_order_changex, ls_return TYPE bapiret2, lv_ordnum TYPE bapi_order_key-order_number, lv_ordtyp TYPE bapi_order_copy-order_type. LOOP AT gt_upload INTO ls_upload WHERE box EQ 'X'. lv_index = sy-tabix. CLEAR: ls_order, ls_return, lv_ordnum, lv_ordtyp, ls_style, ls_orderx. ls_order-quantity = ls_upload-gamng. ls_order-quantity_uom = ls_upload-gmein. ls_order-basic_start_date = ls_upload-gstps. ls_upload-gltps = ls_upload-gstps + ls_upload-nlfzt . ls_order-basic_end_date = ls_upload-gltps . ls_order-unloading_point = ls_upload-ablad. ls_order-sequence_number = ls_upload-cy_seqnr. ls_order-prod_version = ls_upload-verid. ls_order-storage_location = ls_upload-lgort. * ls_order-TERKZ ls_orderx-quantity = 'X'. ls_orderx-basic_start_date = 'X'. ls_orderx-basic_end_date = 'X'. ls_orderx-sequence_number = 'X'. ls_orderx-unloading_point = 'X'. ls_orderx-storage_location = 'X'. ls_orderx-prod_version = 'X'. CALL FUNCTION 'BAPI_PRODORD_CHANGE' EXPORTING number = ls_upload-aufnr orderdata = ls_order orderdatax = ls_orderx IMPORTING return = ls_return. IF ls_return-type EQ 'S' OR ls_return-type EQ space. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. CLEAR: ls_upload-fstyle, ls_upload-fstyle[]. ls_style-style = cl_gui_alv_grid=>mc_style_disabled. INSERT ls_style INTO TABLE ls_upload-fstyle. ls_upload-ztype = 'S'. ls_upload-id = c_green. ls_upload-message = 'Updated successfully'. ELSE. ls_upload-ztype = ls_return-type. ls_upload-id = c_red. ls_upload-message = ls_return-message. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. ENDIF. IF ls_return-type NE space. APPEND ls_return TO ls_upload-retmsg. ENDIF. IF ls_upload-ztype = 'E' . ls_upload-zcol = 'C610' . ENDIF . MODIFY gt_upload FROM ls_upload INDEX lv_index. ENDLOOP. ENDFORM. "frm_order_change" Order Release *&---------------------------------------------------------------------* *& Form frm_order_RELEASE *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM frm_order_release. DATA: ls_upload LIKE LINE OF gt_upload, ls_style TYPE lvc_s_styl, lv_index LIKE sy-tabix. DATA: lt_orders TYPE TABLE OF bapi_order_key WITH HEADER LINE, ls_return TYPE bapiret2, lt_detail_return TYPE TABLE OF bapi_order_return WITH HEADER LINE. LOOP AT gt_upload INTO ls_upload WHERE ztype EQ 'S' AND box EQ 'X'. lv_index = sy-tabix. CLEAR:lt_orders. lt_orders-order_number = ls_upload-aufnr. APPEND lt_orders . CALL FUNCTION 'BAPI_PRODORD_RELEASE' EXPORTING release_control = '1' * WORK_PROCESS_GROUP = 'COWORK_BAPI' * WORK_PROCESS_MAX = 99 IMPORTING return = ls_return TABLES orders = lt_orders detail_return = lt_detail_return * APPLICATION_LOG = . IF ls_return-number EQ space. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. CLEAR: ls_upload-fstyle, ls_upload-fstyle[]. ls_style-style = cl_gui_alv_grid=>mc_style_disabled. INSERT ls_style INTO TABLE ls_upload-fstyle. ls_upload-aufnr = lt_orders-order_number. ls_upload-xtype = 'S'. ELSE. "if lt_DETAIL_RETURN-NUMBER eq '093'." " ls_upload-xtype = lt_DETAIL_RETURN-MESSAGE." "endif." IF lt_detail_return-number EQ '086'. ls_upload-xtype = lt_detail_return-message. ls_upload-zcol = 'C610' . ENDIF. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. ENDIF. MODIFY gt_upload FROM ls_upload INDEX lv_index. ENDLOOP. ENDFORM. "frm_order_RELEASE