SAP 业务 · Small Fire

原文：Small Fire · 批量创建/修改物料主数据 · SAP 业务 子专栏 · Small Fire 技术笔记 程序实例 REPORT ZUPDATE_MATNR. data: headdata type bapimathead, " 表头数据 " clientdata type bapi_mara, " 基本数据 " clientdatax type bapi_marax. " 变更数据标识 " data: materialdescription type table of bapi_makt with header line. data: unitsofmeasure type table of bapi_marm with header line. data: unitsofmeasurex type table of bapi_marmx with header line. data: pr_unit type meins, " 基本单位 " pr_unit2 type meins, " 重量单位 " return type bapiret2. data: begin of msg occurs 0, material type matnr, description type maktx, message(97) type c, end of msg. data:begin of itab occurs 0, head_material type matnr, " 物料号 " head_ind_sector type mbrsh, " 行业领域 " head_matl_type type mtart, " 物料类型 " t_makt_matl_desc type maktx, " 物料描述 " mara_base_uom type meins, " 基本计量单位 " mara_matl_group type matkl, " 物料组 " t_old_mat_no type bismt, " 型号 " mara_division type spart, " 产品组 " t_dsn_office type labor, " 实验室 / 办公室 " mara_item_cat type mtpos_mara, " 普通项目组类别 " t_marm_gross_wt type brgew, " 毛重 " mara_unit_of_wt type gewei, " 重量单位 " mara_net_weight type ntgew, " 净重 " mara_size_dim type groes, " 大小 / 量纲 " end of itab. data itab1 type itab occurs 0 with header line. PERFORM putdata. PERFORM run. FORM run. loop at itab. clear headdata. headdata-material = itab-head_material. headdata-matl_type = itab-head_matl_type. headdata-ind_sector = itab-head_ind_sector. headdata-basic_view = 'X'. " 基本数据视图 " clear pr_unit,pr_unit2. PERFORM frm_unit using itab-mara_base_uom changing pr_unit. " 基本单位 " PERFORM frm_unit using itab-mara_unit_of_wt changing pr_unit2. " 重量单位 " clear clientdata. clientdata-base_uom = pr_unit. " 基本计量单位 " clientdata-matl_group = itab-mara_matl_group. " 物料组 " clientdata-old_mat_no = itab-t_old_mat_no. " 型号 " clientdata-division = itab-mara_division. " 产品组 " clientdata-dsn_office = itab-t_dsn_office. " 实验室 / 办公室 " clientdata-item_cat = itab-mara_item_cat. " 普通项目组类别 " clientdata-unit_of_wt = pr_unit2. " 重量单位 " clientdata-net_weight = itab-mara_net_weight. " 净重 " clientdata-size_dim = itab-mara_size_dim. " 大小 / 量纲 " " bapi_mara 的复选框结构 " clear clientdatax. clientdatax-base_uom = 'X'. clientdatax-matl_group = 'X'. clientdatax-old_mat_no = 'X'. clientdatax-division = 'X'. clientdatax-dsn_office = 'X'. clientdatax-item_cat = 'X'. clientdatax-unit_of_wt = 'X'. clientdatax-net_weight = 'X'. clientdatax-size_dim = 'X'. " 计量单位 unitsofmeasure-alt_unit = pr_unit. " 替换单位 (必须为基本计量单位，否则会报错：没有转换因子) " unitsofmeasure-numerator = 1. " 分子 " unitsofmeasure-denominatr = 1. " 分母 " unitsofmeasure-gross_wt = itab-t_marm_gross_wt. " 毛重 " unitsofmeasure-unit_of_wt = pr_unit2. " 填充毛重时，注意此处需要添加重量单位，否则会提示没有指定单位 " append unitsofmeasure. clear unitsofmeasure. unitsofmeasurex-alt_unit = pr_unit. " 注意此处不是填充 'X' " unitsofmeasurex-numerator = 'X'. unitsofmeasurex-denominatr = 'X'. unitsofmeasurex-gross_wt = 'X'. unitsofmeasurex-unit_of_wt = 'X'. " 此处填充 'X' " if unitsofmeasurex-alt_unit is not initial and unitsofmeasurex-numerator is not initial and unitsofmeasurex-denominatr is not initial. append unitsofmeasurex. endif. clear unitsofmeasurex. " 物料描述 clear materialdescription[]. materialdescription-langu_iso = 'ZH'. materialdescription-matl_desc = itab-t_makt_matl_desc. append materialdescription. clear return. call function 'BAPI_MATERIAL_SAVEDATA' exporting headdata = headdata clientdata = clientdata clientdatax = clientdatax importing return = return tables materialdescription = materialdescription[] unitsofmeasure = unitsofmeasure[] unitsofmeasurex = unitsofmeasurex[]. if return-type ne 'E'. call function 'BAPI_TRANSACTION_COMMIT' exporting wait = 'X' . else. call function 'bapi_transaction_rollback'. endif. endloop. write : return-type,return-message. ENDFORM. FORM putdata. itab-head_material = '10101010105'. itab-head_ind_sector = 'M'. itab-head_matl_type = 'zroh'. " 物料类型 " itab-mara_base_uom = 'EA'. " 基本计量单位 " itab-mara_matl_group = '10235'. " 物料组 " itab-t_old_mat_no = 'testbapi05'. " 型号 " itab-mara_division = '00'. " 产品组 " itab-t_dsn_office = '001'. " 实验室 / 办公室 " itab-mara_item_cat = 'NORM'. " 普通项目组类别 " itab-mara_net_weight = 2. " 净重 " * itab-mara_normt = ''. " 行业标准描述 " itab-mara_size_dim = '2*3'. " 大小 / 量纲 " itab-t_marm_gross_wt = 22 / 10. " 毛重 " itab-mara_unit_of_wt = 'KG'. " 重量单位 " itab-t_makt_matl_desc = 'test mat'. " 物料描述 " call function 'CONVERSION_EXIT_ALPHA_INPUT'" exporting input = itab-head_material importing output = itab-head_material. append itab. ENDFORM. * 获取基本计量单位内码 FORM frm_unit using unit1 changing unit2. call function 'CONVERSION_EXIT_CUNIT_INPUT' exporting input = unit1 language = sy-langu importing output = unit2 exceptions unit_not_found = 1 others = 2. if sy-subrc <> 0. * message id sy-msgid type sy-msgty number sy-msgno * with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. endif. ENDFORM. "frm_unit

原文：Small Fire · FI 会计凭证过账 · SAP 业务 子专栏 · Small Fire 技术笔记 BAPI_ACC_DOCUMENT_POST 该过账 BAPI 需要和模拟过账的 BAPI BAPI_ACC_DOCUMENT_CHECK 搭配使用，这样先执行模拟过账，成功了再执行真正的过账，这样就不会因为执行失败产生废弃的凭证，还要再进行冲销，造成底表数据冗余无用。 模拟过账：BAPI_ACC_DOCUMENT_CHECK DATA: LS_DOCUMENTHEADER LIKE BAPIACHE09, LS_ACCOUNTGL LIKE BAPIACGL09, LS_ACCOUNTRECEIVABLE LIKE BAPIACAR09, LS_ZFIS002 TYPE ZFIS0002, LS_CURRENCYAMOUNT TYPE BAPIACCR09, LS_EXTENSION1 TYPE BAPIACEXTC, LS_EXTENSION2 TYPE BAPIPAREX, LS_RETURN TYPE BAPIRET2, LT_ACCOUNTGL TYPE TABLE OF BAPIACGL09 WITH HEADER LINE, LT_ACCOUNTRECEIVABLE LIKE TABLE OF BAPIACAR09 WITH HEADER LINE, LT_CURRENCYAMOUNT LIKE TABLE OF BAPIACCR09 WITH HEADER LINE, LT_RETURN LIKE TABLE OF BAPIRET2 WITH HEADER LINE, LT_PAYABLE LIKE TABLE OF BAPIACAP09 WITH HEADER LINE, LT_EXTENSION1 LIKE TABLE OF BAPIACEXTC WITH HEADER LINE, LT_EXTENSION2 LIKE TABLE OF BAPIPAREX WITH HEADER LINE. DATA: LV_TYPE LIKE LS_DOCUMENTHEADER-OBJ_TYPE, LV_KEY LIKE LS_DOCUMENTHEADER-OBJ_KEY, LV_SYS LIKE LS_DOCUMENTHEADER-OBJ_SYS. DATA: G_SIMU_ERROR TYPE FLAG, G_POST_ERROR TYPE FLAG. CALL FUNCTION 'BAPI_ACC_DOCUMENT_CHECK' exporting documentheader = LS_DOCUMENTHEADER tables accountgl = LT_ACCOUNTGL accountreceivable = LT_ACCOUNTRECEIVABLE accountpayable = LT_PAYABLE currencyamount = LT_CURRENCYAMOUNT extension1 = LT_EXTENSION1 extension2 = LT_EXTENSION2 return = LT_RETURN. LOOP AT it_return. IF it_return-type eq 'E'. g_simu_error = 'X'. ENDIF. ENDLOOP. IF g_simu_error eq 'X'. WRITE: / 'I 凭证生成错误，实际未生成任何会计凭证'. ELSE. * 当模拟过账成功，就可以执行真正的BAPI过账:BAPI_ACC_DOCUMENT_POST ENDIF. 执行过账：BAPI_ACC_DOCUMENT_POST call function 'BAPI_ACC_DOCUMENT_POST' exporting documentheader = LS_DOCUMENTHEADER * CUSTOMERCPD = * CONTRACTHEADER = importing obj_type = LV_TYPE obj_key = LV_KEY obj_sys = LV_SYS tables accountgl = LT_ACCOUNTGL accountreceivable = LT_ACCOUNTRECEIVABLE accountpayable = LT_PAYABLE currencyamount = LT_CURRENCYAMOUNT extension1 = LT_EXTENSION1 extension2 = LT_EXTENSION2 return = LT_RETURN. loop at lt_return. if lt_return-type = 'E'. g_post_error = 'X'. endif. endloop. if g_post_error eq 'X'. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. else. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING WAIT = 'X'. endif. if lv_key is not initial. if p_flag eq 'X'. clear: p_zsfkdh-d_gjahr, p_zsfkdh-d_belnr. move f_obj_key(10) to p_zsfkdh-d_belnr. move f_obj_key+14(4) to p_zsfkdh-d_gjahr. else. clear: p_zsfkdh-d_gjahr, p_zsfkdh-zkf_belnr. move f_obj_key(10) to p_zsfkdh-zkf_belnr. move f_obj_key+14(4) to p_zsfkdh-d_gjahr. endif. endif.

原文：Small Fire · MM BAPI List · SAP 业务 子专栏 · Small Fire 技术笔记 MM 常用 BAPI 整理 BAPI Description BAPI_MATERIAL_SAVEDATA 创建及更改物料主数据，EXTENSIONIN可以创建自定义字段 BAPI_OBJCL_CREATE 分类视图的创建 BAPI_OBJCL_GETCLASSES 分类视图得到详细信息 BAPI_MATERIAL_SAVEREPLICA 物料视图的扩充 BAPI_GOODSMVT_CREATE 创建物料凭证，注意表T158G可以决定 goodsmvt_code BAPI_GOODSMVT_CANCEL 冲销物料凭证 BAPI_PR_CREATE 创建 Purchase Requisition New BAPI_REQUISITION_CREATE 创建 Purchase Requisition Old BAPI_PO_CREATE1 创建 Purchase Order BAPI_PO_CHANGE 修改 PO 和删除 PO WS_REVERSE_GOODS_ISSUE 冲销交货单的过账发货 BAPI_RESERVATION_CREATE1 创建预留，如果要检查 ATP必须使用 BAPI_RESERVATION_CREATE BAPI_RESERVATION_CHANGE 修改和删除预留 BAPI_BILLINGDOC_CREATEMULTIPLE 创建发票 BAPI_ACC_DOCUMENT_POST 创建会计凭证 BAPI_MATERIAL_AVAILABILITY 可用库存 BAPI_SALESORDER_CREATEFROMDAT2 创建销售订单 BAPI_OUTB_DELIVERY_CREATE_SLS 根据销售订单创建交货单 PRICES_CHANGE & PRICES_POST 更改物料移动平均价或者标准价格，如果要检查 ATP 必须使用第二个

原文：Small Fire · MM BAPI List · SAP 业务 子专栏 · Small Fire 技术笔记 MM BAPI LIST 整理 BAPI Desc BAPI_MATERIAL_SAVEDATA 创建及更改物料主数据 BAPI_OBJCL_CREATE 分类视图的创建 BAPI_OBJCL_GETCLASSES 分类视图得到详细信息 BAPI_MATERIAL_SAVEREPLICA 物料视图的扩充 BAPI_GOODSMVT_CREATE 创建物料凭证 注意表T158G可以决定goodsmvt_code BAPI_GOODSMVT_CANCEL 冲销物料凭证 BAPI_PR_CREATE 创建 PR New BAPI_REQUISITION_CREATE 创建 PR BAPI_PO_CREATE1 创建 PO BAPI_PO_CHANGE 修改 PO 和删除 PO WS_REVERSE_GOODS_ISSUE 冲销交货单的过账发货 BAPI_RESERVATION_CREATE1 创建预留 BAPI_RESERVATION_CHANGE 修改和删除预留 BAPI_BILLINGDOC_CREATEMULTIPLE 创建发票 BAPI_ACC_DOCUMENT_POST 创建会计凭证 BAPI_MATERIAL_AVAILABILITY 可用库存 BAPI_SALESORDER_CREATEFROMDAT2 创建销售订单 BAPI_OUTB_DELIVERY_CREATE_SLS 根据销售订单创建交货单

原文：Small Fire · Output Determination in Inventory Management (IM) · SAP 业务 子专栏 · Small Fire 技术笔记 引用链接：Output Determination in Inventory Management (IM) 1. About this document This document describes the output determination in Inventory Management. Chapter 3 deals with the program logic and is intended to developers. Chapters 4 to 23 describe the single elements of output determination. Some are purely MM-IM, others are general output determination concepts. The chapters may be used as reference when dealing with a special part of the output determination. They contain general explanations as well as technical descriptions. Chapters 24/25 concentrate on troubleshooting . The first part gives a list of important breakpoints and checks. The second part is organized in the major symptoms that arise when dealing with issues about output determination in MM-IM area. Chapter 26 contains a list of all output determination terms in German and English. 2. General information The output determination (also called message control) generates output records (messages) for a material document. The messages can be GR/GI slips (e.g. output type WE01), mails (output type MLFH for missing part mails) or even workflow events (not in standard but can be customized by customer). ...

原文：Small Fire · SAP FI Tables · SAP 业务 子专栏 · Small Fire 技术笔记 SAP FI 表：主数据 总帐科目的 SAP 表 总账科目主记录包含总账确定科目功能所需的数据。 总帐科目主记录控制会计交易到总帐科目的过帐以及过帐数据的处理。 G/L ACCOUNTS TABLES DESCRIPTION IMPORTANT FIELDS SKA1 G/L Accounts (Chart of Accounts) KTOPL /SAKNR SKAT Description G/L Accounts (Chart of Accounts) SKB1 G/L Accounts (Company Code) BUKRS / SAKNR SKM1 Sample G/L accounts SKMT Sample G/L accounts Text SKAS G/L Account Master (Chart of Accounts) SPRAS / KTOPL / SAKNR / SCHLW TSAKR Create G/L account with reference BUKRS / SAKNR SAP 客户主数据表 CUSTOMER TABLES DESCRIPTION IMPORTANT FIELDS KNA1 Customer master KUNNR KNB1 Customer / company KUNNR / BUKRS KNVV Customer sales data KNBK Bank details KUNNR / BANKS / BANKL / BANKN KNVH Customer hierarchy(等级) KNVP Customer partners KNVS Shipment data(出货数据) for customer KNVK Contact persons KNVI Customer master tax indicator KNC1 Customer Master Transaction Figures KUNNR / BUKRS / GJHAR KNC3 Customer Master Special GL Transactions KUNNR / BUKRS / GJAHR / SHBKZ 客户物料信息记录(Info Record)存储在表: KNMT – Customer Material Info Record ...

原文：Small Fire · G/L Account 主要Tcode和tables · SAP 业务 子专栏 · Small Fire 技术笔记 什么是G/L Account 首先，总账科目代表总账。 总帐会计的中心任务是提供外部会计和科目的全面情况。 在与公司所有其他业务领域完全集成的软件系统中记录所有业务交易（主要过帐以及内部会计结算）可确保会计数据始终完整且准确。 SAP 总账科目主要功能 SAP FI 总帐具有以下功能： 自由选择级别：企业集团或公司 自动并同时过账适当总分类帐（对帐帐户）中的所有子分类帐项目 同时更新总帐和成本会计区域 以帐户显示，具有不同财务报表版本的财务报表和其他分析的形式，对当前会计数据进行实时评估和报告。 最重要的 SAP 总账科目代码 SAP 总账科目主数据代码 SAP GL Account Tcode Description 中文描述 FSP0 Creation of G/L Account at Chart of Accounts Level 在科目表级别创建总账科目 FSS0 Creation of G/L Account at Company Code Level 在公司代码级别创建总账科目 FS00 Centrally Creation of G/L Account 集中创建总账科目 FS10N Display G/L Account Balances 显示总账科目余额 FS10NA Display G/L account balances (G/L Account Balance Display) 显示总账科目余额（总账科目余额显示） FBL3N Display G/L Account Balances for Open Item Managed A/cs 显示未清项目托管帐户的总账科目余额 SAP 中的总帐科目交易代码 用于管理过账，配置等的总账账户。 ...

原文：Small Fire · PM&PS BAPI · SAP 业务 子专栏 · Small Fire 技术笔记 PM 模块 BAPI Description BAPI_OBJCL_CREATE 分类 BAPI：创建分配 BAPI_OBJCL_CHANGE 分类 BAPI：更改分配 BAPI_OBJCL_GETDETAIL 分类 BAPI：读取对象的分类信息 MEASUREM_DOCUM_RFC_SINGLE_001 计量凭证创建 PS 模块 BAPI Description BAPI_PS_INITIALIZATION 创建项目定义 BAPI_BUS2001_CREATE 创建项目定义 BAPI_PS_PRECOMMIT 创建项目定义 BAPI_PS_INITIALIZATION 创建WBS BAPI_BUS2054_CREATE_MULTI 创建WBS BAPI_PS_PRECOMMIT 创建WBS，注意参数 wbs_left和 wbs_up，这个是创建有层级的WBS必须要填写的 KBPP_EXTERN_UPDATE_CO 修改项目和WBS的预算

原文：Small Fire · SAP Query 使用介绍 · SAP 业务 子专栏 · Small Fire 技术笔记 SAP Query 简介 ABAP Query 用于创建 SAP 系统中尚不存在的 Report。它是为不了解 ABAP 编程的用户而设计的。 ABAP Query 为用户提供了广泛的方式来定义报告和创建不同类型的报告，例如基本报表，统计信息等。 SQ03、SQ02、SQ01，这三个事务码是按从大到小的顺序依次操作的： SQ03：创建 User Group，为特定 Query 限制用户组以及用户权限控制 SQ02：创建 Infoset，可以关联表、确认字段，可以在 SQ02 的附加中直接定义附加字段或写代码 SQ01：创建 Query，可以确认字段分类勾选（选择屏幕条件与 Report 字段列表），完成后可以分配 T-code ABAP Query由四部分组成 Queries InfoSets User Groups Translation Of Query 创建 Query User Groups - SQ03 创建一个逻辑组的用户组，将向其分配 InfoSet 查询。 在同一应用程序中工作的用户被分配到相同的用户组。实际上，谁在用户组中定义了 Query 都没有关系。分配给用户组的每个用户都可以执行已定义的 Query。 用户组中的用户必须具有必要的权限，才能更改或重新定义 Query。系统中的每个用户都可以分配给多个用户组。 InfoSets - SQ02 InfoSets 是数据源的特殊视图。InfoSets 描述了可以在查询中显示数据源的哪些字段。可以将一个 InfoSet 分配给多个角色或用户组。 ...

原文：Small Fire · BAPI 操作 Purchase Order · SAP 业务 子专栏 · Small Fire 技术笔记 通过 BAPI：BAPI_PO_CREATE1 创建 PO TABLE 中的行项目参数 poitem 的货币字段 poitem-orderpr_un ：行项目的货币类型是根据供应商自动带出，不需要传入。 实际业务中有可能创建 PO 的人员会变换货币的类型，通过设置抬头参数 poheader 的货币字段：poheader-currency = ‘货币’，这样即可实现对新建 PO 的货币类型的强制修改。 FUNCTION zcreate_po. *"---------------------------------------------------------------------- *"*"Local interface: *" IMPORTING *" VALUE(CALLNO) TYPE ZCALLNO *" VALUE(DOC_TYPE) LIKE BAPIMEPOHEADER-DOC_TYPE DEFAULT 'ZIPR' *" VALUE(PURCH_ORG) LIKE BAPIMEPOHEADER-PURCH_ORG DEFAULT 'POIC' *" VALUE(PUR_GROUP) LIKE BAPIMEPOHEADER-PUR_GROUP *" VALUE(VENDOR) LIKE BAPIMEPOHEADER-VENDOR *" VALUE(COMP_CODE) LIKE BAPIMEPOHEADER-COMP_CODE DEFAULT 'GF50' *" VALUE(DZTERM) TYPE DZTERM DEFAULT '0001' *" EXPORTING *" VALUE(PO_NUMBER) LIKE BAPIMEPOHEADER-PO_NUMBER *" VALUE(FLAG) LIKE BAPIRET2-TYPE *" VALUE(MESSAGE) LIKE BAPIRET2-MESSAGE *" TABLES *" POITEM STRUCTURE ZPOITEM *"---------------------------------------------------------------------- DATA: lv_currency TYPE bapimepoheader-currency VALUE 'RMB', "货币码" ls_poitem TYPE zpoitem, lv_message TYPE bapiret2-message, lv_po_item TYPE bapimepoitem-po_item, "行项目号" lv_pckg_no TYPE bapimepoitem-pckg_no. "PCKG_NO" DATA: quantity(18), net_price(37), limit(27), exp_value(27), l_lifnr TYPE lfa1-lifnr, lv_datano TYPE zdatano. DATA: lt_eskl TYPE TABLE OF eskl WITH HEADER LINE. CLEAR:gs_poheader,gs_poheaderx,gv_po_number, gt_return,gs_return,gt_poitem,gs_poitem,gt_poitemx, gs_poitemx,gt_poschedule,gs_poschedule,gt_poschedulex,gs_poschedulex,gt_poaccount,gs_poaccount, gt_poaccountx,gs_poaccountx,gt_polimits,gs_polimits. *数据检查. PERFORM frm_check_data USING doc_type purch_org pur_group vendor comp_code poitem[] CHANGING flag message. *补齐前导零 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = vendor IMPORTING output = l_lifnr. *抬头数据 gs_poheader-doc_type = doc_type. "采购凭证类型 gs_poheader-purch_org = purch_org. "采购组织 gs_poheader-pur_group = pur_group. "采购组 gs_poheader-vendor = l_lifnr. "供应商帐户号 gs_poheader-comp_code = comp_code. "公司代码 gs_poheader-currency = lv_currency. "货币码 gs_poheader-pmnttrms = dzterm. "付款条件 "抬头数据标识" gs_poheaderx-doc_type = g_flag. gs_poheaderx-purch_org = g_flag. gs_poheaderx-pur_group = g_flag. gs_poheaderx-vendor = g_flag. gs_poheaderx-comp_code = g_flag. gs_poheaderx-currency = g_flag. gs_poheaderx-pmnttrms = g_flag. SELECT * INTO TABLE lt_eskl FROM eskl UP TO 500 ROWS WHERE loekz = '' . LOOP AT poitem INTO ls_poitem. *行项目 READ TABLE lt_eskl INDEX sy-tabix. lv_pckg_no = lt_eskl-packno. lv_po_item = lv_po_item + 10. PERFORM frm_poitem USING ls_poitem lv_po_item lv_pckg_no. *计划行 PERFORM frm_poschedule USING ls_poitem lv_po_item. *账户分配 PERFORM frm_poaccount USING ls_poitem lv_po_item. *服务限制 PERFORM frm_polimits USING ls_poitem lv_po_item lv_pckg_no. ENDLOOP. *创建采购订单 CALL FUNCTION 'BAPI_PO_CREATE1' EXPORTING poheader = gs_poheader poheaderx = gs_poheaderx IMPORTING exppurchaseorder = gv_po_number TABLES return = gt_return poitem = gt_poitem poitemx = gt_poitemx poschedule = gt_poschedule poschedulex = gt_poschedulex poaccount = gt_poaccount poaccountx = gt_poaccountx polimits = gt_polimits. READ TABLE gt_return INTO gs_return WITH KEY type = 'E'. IF sy-subrc NE 0. po_number = gv_po_number. flag = 'S'. CONCATENATE '生成PO:' po_number INTO message. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. ELSE. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. LOOP AT gt_return INTO gs_return WHERE type CA 'AEX'. MESSAGE ID gs_return-id TYPE gs_return-type NUMBER gs_return-number WITH gs_return-message_v1 gs_return-message_v2 gs_return-message_v3 gs_return-message_v4 INTO lv_message. CONCATENATE message lv_message INTO message SEPARATED BY '｜'. ENDLOOP. SHIFT message LEFT DELETING LEADING '｜'. flag = 'E'. ENDIF. ENDFUNCTION. 根据 Purchase Request 创建 Purchase Order LOOP AT PRITEM. IF SY-TABIX = 1. LS_POHEADER-DOC_TYPE = 'ZSTL'. CONCATENATE '000000' PRITEM-PLANT INTO LS_POHEADER-VENDOR. IF LS_WERKS = '1020'. LS_POHEADER-PURCH_ORG = '1022'. "pritem-purch_org" ELSEIF LS_WERKS = '1040'. LS_POHEADER-PURCH_ORG = '1042'. ENDIF. LS_POHEADER-COMP_CODE = '1000'. LS_POHEADER-PUR_GROUP = PRITEM-PUR_GROUP. LS_POHEADER-DOC_DATE = SY-DATUM. ENDIF. LT_POITEM-PO_ITEM = PRITEM-PREQ_ITEM. LT_POITEM-MATERIAL = PRITEM-MATERIAL. LT_POITEM-PLANT = '1000'. LT_POITEM-VEND_MAT = PRITEM-VEND_MAT. LT_POITEM-QUANTITY = PRITEM-QUANTITY. LT_POITEM-PO_UNIT = PRITEM-UNIT. IF PRITEM-CURRENCY <> 'HKD'. CLEAR:LT_TCURR,LT_TCURR[],LS_EXCHRATE. SELECT * FROM TCURR INTO TABLE LT_TCURR WHERE KURST = 'M' AND FCURR = PRITEM-CURRENCY AND TCURR = 'HKD'. SORT LT_TCURR BY GDATU ASCENDING. LOOP AT LT_TCURR. LT_TCURR-GDATU = '99999999' - LT_TCURR-GDATU. IF LT_TCURR-GDATU <= SY-DATUM. LS_EXCHRATE = LT_TCURR-UKURS. EXIT. ENDIF. ENDLOOP. IF LS_EXCHRATE IS NOT INITIAL. LT_POITEM-NET_PRICE = PRITEM-PREQ_PRICE * LS_EXCHRATE. ELSE. LT_POITEM-NET_PRICE = PRITEM-PREQ_PRICE. ENDIF. ELSE. LT_POITEM-NET_PRICE = PRITEM-PREQ_PRICE. ENDIF. LT_POITEM-PRICE_UNIT = PRITEM-PRICE_UNIT. LT_POITEM-ACCTASSCAT = 'F'. APPEND LT_POITEM TO LT_POITEM. LT_POCOND-ITM_NUMBER = PRITEM-PREQ_ITEM. LT_POCOND-COND_TYPE = 'PBXX'. LT_POCOND-COND_VALUE = LT_POITEM-NET_PRICE. LT_POCOND-CURRENCY = 'HKD'. LT_POCOND-CHANGE_ID = 'U'. APPEND LT_POCOND TO LT_POCOND. CLEAR:LT_POCOND,LT_POITEM. CLEAR:PRITEM-ACCTASSCAT. MODIFY PRITEM TRANSPORTING ACCTASSCAT. ENDLOOP. LOOP AT PRITEMX. IF SY-TABIX = 1. LS_POHEADERX-DOC_TYPE = 'X'. LS_POHEADERX-VENDOR = 'X'. LS_POHEADERX-PURCH_ORG = 'X'. LS_POHEADERX-PUR_GROUP = 'X'. LS_POHEADERX-DOC_DATE = 'X'. ENDIF. LT_POITEMX-PO_ITEM = PRITEMX-PREQ_ITEM. LT_POITEMX-PO_ITEMX = 'X'. LT_POITEMX-MATERIAL = 'X'. LT_POITEMX-PLANT = 'X'. LT_POITEMX-VEND_MAT = 'X'. LT_POITEMX-QUANTITY = 'X'. LT_POITEMX-NET_PRICE = 'X'. LT_POITEMX-PRICE_UNIT = 'X'. LT_POITEMX-ACCTASSCAT = 'X'. APPEND LT_POITEMX TO LT_POITEMX. CLEAR: LT_POITEMX. LT_POCONDX-ITM_NUMBER = PRITEMX-PREQ_ITEM. LT_POCONDX-COND_TYPE = 'X'. LT_POCONDX-COND_VALUE = 'X'. LT_POCONDX-CURRENCY = 'X'. LT_POCONDX-CHANGE_ID = 'X'. APPEND LT_POCONDX TO LT_POCONDX. CLEAR:LT_POCONDX. CLEAR PRITEMX-ACCTASSCAT. MODIFY PRITEMX TRANSPORTING ACCTASSCAT. ENDLOOP. LOOP AT PRACCOUNT. LT_POACCOUNT-PO_ITEM = PRACCOUNT-PREQ_ITEM. LT_POACCOUNT-SERIAL_NO = PRACCOUNT-SERIAL_NO. LT_POACCOUNT-GL_ACCOUNT = PRACCOUNT-GL_ACCOUNT. LT_POACCOUNT-ORDERID = PRACCOUNT-ORDERID. APPEND LT_POACCOUNT TO LT_POACCOUNT. CLEAR: LT_POACCOUNT. ENDLOOP. LOOP AT PRACCOUNTX. LT_POACCOUNTX-PO_ITEM = PRACCOUNTX-PREQ_ITEM. LT_POACCOUNTX-SERIAL_NO = PRACCOUNTX-SERIAL_NO. LT_POACCOUNTX-PO_ITEMX = 'X'. LT_POACCOUNTX-GL_ACCOUNT = 'X'. LT_POACCOUNTX-ORDERID = 'X'. APPEND LT_POACCOUNTX TO LT_POACCOUNTX. CLEAR: LT_POACCOUNTX. ENDLOOP. CLEAR:PRACCOUNT,PRACCOUNT[],PRACCOUNTX,PRACCOUNTX[]. LOOP AT PRHEADERTEXT. LT_POTEXTHEADER-PO_NUMBER = PRHEADERTEXT-PREQ_NO. LT_POTEXTHEADER-PO_ITEM = PRHEADERTEXT-PREQ_ITEM. LT_POTEXTHEADER-TEXT_ID = PRHEADERTEXT-TEXT_ID. LT_POTEXTHEADER-TEXT_LINE = PRHEADERTEXT-TEXT_LINE. APPEND LT_POTEXTHEADER TO LT_POTEXTHEADER. CLEAR: LT_POTEXTHEADER. ENDLOOP. CALL FUNCTION 'BAPI_PO_CREATE1' EXPORTING POHEADER = LS_POHEADER POHEADERX = LS_POHEADERX POADDRVENDOR = LS_POADDRVENDOR TESTRUN = LS_TESTRUNPO MEMORY_UNCOMPLETE = LS_MEMORY_UNCOMPLETE MEMORY_COMPLETE = LS_MEMORY_COMPLETE POEXPIMPHEADER = LS_POEXPIMPHEADER POEXPIMPHEADERX = LS_POEXPIMPHEADERX VERSIONS = LS_VERSIONS NO_MESSAGING = LS_NO_MESSAGING NO_MESSAGE_REQ = LS_NO_MESSAGE_REQ NO_AUTHORITY = LS_NO_AUTHORITY NO_PRICE_FROM_PO = LS_NO_PRICE_FROM_PO IMPORTING EXPPURCHASEORDER = LS_EXPPURCHASEORDER EXPHEADER = LS_EXPHEADER EXPPOEXPIMPHEADER = LS_EXPPOEXPIMPHEADER TABLES RETURN = LT_RETURNPO POITEM = LT_POITEM POITEMX = LT_POITEMX POADDRDELIVERY = LT_POADDRDELIVERY POSCHEDULE = LT_POSCHEDULE POSCHEDULEX = LT_POSCHEDULEX POACCOUNT = LT_POACCOUNT POACCOUNTPROFITSEGMENT = LT_POACCOUNTPROFITSEGMENT POACCOUNTX = LT_POACCOUNTX POCONDHEADER = LT_POCONDHEADER POCONDHEADERX = LT_POCONDHEADERX POCOND = LT_POCOND POCONDX = LT_POCONDX POLIMITS = LT_POLIMITS POCONTRACTLIMITS = LT_POCONTRACTLIMITS POSERVICES = LT_POSERVICES POSRVACCESSVALUES = LT_POSRVACCESSVALUES POSERVICESTEXT = LT_POSERVICESTEXT EXTENSIONIN = LT_EXTENSIONIN EXTENSIONOUT = LT_EXTENSIONOUT POEXPIMPITEM = LT_POEXPIMPITEM POEXPIMPITEMX = LT_POEXPIMPITEMX POTEXTHEADER = LT_POTEXTHEADER POTEXTITEM = LT_POTEXTITEM ALLVERSIONS = LT_ALLVERSIONS POPARTNER = LT_POPARTNER POCOMPONENTS = LT_POCOMPONENTS POCOMPONENTSX = LT_POCOMPONENTSX POSHIPPING = LT_POSHIPPING POSHIPPINGX = LT_POSHIPPINGX POSHIPPINGEXP = LT_POSHIPPINGEXP. LOOP AT pr_return WHERE type = 'E' OR type = 'A'. ENDLOOP. IF sy-subrc = 0. CLEAR: lv_message. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. LOOP AT pr_return INTO l_return WHERE type = 'E' . CONCATENATE lv_message l_return-message ';' INTO lv_message. ENDLOOP. CONCATENATE gt_data-bednr lv_message INTO gt_out-text. APPEND gt_out. CLEAR gt_out. ELSE. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. CONCATENATE pr_no '创建成功' INTO gt_out-text. APPEND gt_out. CLEAR gt_out. ENDIF. FREE pr_item. FREE pr_account. FREE pr_item_id. FREE pr_return. ENDLOOP. 删除和修改 Purchase Order FUNCTION zchange_po. *"---------------------------------------------------------------------- *"*"Local interface: *" IMPORTING *" VALUE(CALLNO) TYPE ZCALLNO *" VALUE(PO_NUMBER) LIKE BAPIMEPOHEADER-PO_NUMBER *" EXPORTING *" VALUE(FLAG) LIKE BAPIRET2-TYPE *" VALUE(MESSAGE) LIKE BAPIRET2-MESSAGE *" TABLES *" ZPOITEM STRUCTURE ZPOITEM01 *"---------------------------------------------------------------------- DATA: ls_zpoitem TYPE zpoitem01, lv_message TYPE bapiret2-message, lv_datano TYPE zdatano. DATA: gv_po_number LIKE bapimepoheader-po_number, gt_return LIKE TABLE OF bapiret2, gs_return LIKE LINE OF gt_return, gt_poitem LIKE TABLE OF bapimepoitem, gs_poitem LIKE LINE OF gt_poitem, gt_poitemx LIKE TABLE OF bapimepoitemx, gs_poitemx LIKE LINE OF gt_poitemx. CLEAR:gv_po_number,gs_poitemx,gs_poitem,gs_return,gt_poitemx,gt_poitem,gt_return. "准备BAPI数据" gv_po_number = po_number. LOOP AT zpoitem INTO ls_zpoitem. gs_poitem-po_item = ls_zpoitem-po_item. gs_poitem-delete_ind = ls_zpoitem-delete_ind. APPEND gs_poitem TO gt_poitem. gs_poitemx-po_item = ls_zpoitem-po_item. gs_poitemx-po_itemx = g_flag. gs_poitemx-delete_ind = g_flag. APPEND gs_poitemx TO gt_poitemx. CLEAR:gs_poitemx,gs_poitem. ENDLOOP. "执行BAPI BAPI_PO_CHANGE" CALL FUNCTION 'BAPI_PO_CHANGE' EXPORTING purchaseorder = gv_po_number TABLES return = gt_return poitem = gt_poitem poitemx = gt_poitemx. "判断执行结果，并记录错误信息" READ TABLE gt_return INTO gs_return WITH KEY type = 'E'. IF sy-subrc NE 0. flag = 'S'. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. CONCATENATE 'PO：'gv_po_number '处理完成' INTO message . ELSE. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. LOOP AT gt_return INTO gs_return WHERE type CA 'AEX'. MESSAGE ID gs_return-id TYPE gs_return-type NUMBER gs_return-number WITH gs_return-message_v1 gs_return-message_v2 gs_return-message_v3 gs_return-message_v4 INTO lv_message. CONCATENATE message lv_message INTO message SEPARATED BY '｜'. ENDLOOP. SHIFT message LEFT DELETING LEADING '｜'. flag = 'E'. ENDIF. ENDFUNCTION.