demo bapi创建采购订单demo
bapi_salesorder_createfromdat2用法
BAPI_SALESORDER_CREATEFROMDAT2BAPI_SALESORDER_CREATEFROMDAT2 是SAP 中用于创建销售订单的功能模块。
该BAPI 基于销售订单的数据，如物料描述、数量、价格等，创建一个销售订单。
它通常用于将外部数据（如电子商务伙伴或客户的数据）导入到SAP 中，以便创建销售订单。
使用BAPI_SALESORDER_CREATEFROMDAT2 的基本步骤如下：1. 初始化数据：首先，需要准备一个包含销售订单数据的数据文件。
该文件通常是一个文本文件或CSV 文件，包含销售订单的所有必要信息，如物料描述、数量、价格等。
2. 创建数据记录：在SAP 中，需要使用transaction code SE11 或SE80 来创建数据记录。
数据记录是一个包含特定数据结构的文本文件，用于将外部数据导入到SAP 中。
3. 调用BAPI：使用transaction code BAPI_SALESORDER_CREATEFROMDAT2，选择“调用”选项，然后输入数据记录的名称。
系统将根据数据记录中的信息调用BAPI。
4. 检查输出：调用BAPI 后，系统将生成一个输出文件，其中包含销售订单的创建结果。
需要检查输出文件，以确保销售订单已正确创建。
如果存在任何错误，需要根据错误消息进行相应的调整。
5. 处理结果：如果销售订单成功创建，可以继续处理后续的任务，如发货、发票等。
如果销售订单创建失败，需要根据消息进行调整，并重新尝试创建销售订单。
使用BAPI_SALESORDER_CREATEFROMDAT2 时需要注意以下几点：- 确保数据文件中的数据格式与BAPI 要求的格式一致。
如果数据文件中的列顺序与BAPI 要求的列顺序不同，需要使用数据记录中的“映射”功能进行调整。
- 在调用BAPI 前，需要确保已经正确设置销售订单的销售组织、分销渠道、销售区域等参数。
这些参数通常在销售订单的创建界面中设置。
创建订单操作手册
采购订单信息点击“订单管理”，点击“订单执行”，点击“新建采购订单”，打开<新建采购订单>页面。
1.填写信息，其中红色字为必填项。
其中订单类型为”采购订单”的订单需关联框架合同.2.查询库存。
若选择的采购类别为:设备类,则需要进行库存查询.为了保证库存物资的利用，通过LIS系统库存查询确认某物资是否有库存，可通过本功能窗口进行查询。
3.全部填写操作完毕，点击【保存】按钮，保存采购订单。
保存完毕，该页面下面出现添加采购订单产品信息的功能。
可以进行采购产品的添加。
注意：1)无关联的采购订单必须要上传需求函文件。
需求函文件即需求部门通过OA提交的请购申请文件，作为订单下达的依据,供审批人查看，不发送至供应商。
2)需发布给供应商的其他订单附加信息可通过附件形式上传，但合同清单不得以附件形式发送。
3)"采购订单信息"保存之后，"采购订单产品信息"才可以操作。
新建采购订单界面字段字填入规则1.1.1.1.1采购订单产品信息1．保存了订单表头之后，将会在下方位置出现集采产品/自采产品的产品清单列表、项目费用信息列表。
采购订单总金额=产品金额+费用金额。
2．添加产品信息。
1)添加：自采产品：点击【添加】按钮，打开<供应商产品选择对话框>页面。
选择供应商产品，点击【确认】按钮。
2)查看/编辑：选中已添加的产品,点击【查看/编辑】按钮，打开<产品信息>页面。
填写必填项，点击【保存并关闭】按钮，保存信息并关闭页面。
✓自采产品信息中可填写订购数量和单价，也可以在添加产品界面直接填写。
添加自采产品界面输入单价后，金额合计根据公式自动计算显示。
公式为金额合计=订购数量*单价。
3)导入/导出：点击【导出】按钮，导出产品数据。
点击【导入】按钮，导入产品数据。
点击【导出模版】按钮，下载对应的采购订单行的导入导出模板文件。
模板下载界面4)可批量设置属性：勾选多个记录，点击【批量设置属性】按钮，可以批量设置属性。
SAP_-_集中采购业务的实现
在集团公司会出现这样一种情况，有一个采购组织通过一个公司集中采购，然后在分别调拨给每个不同的公司；调拨有两种情况：1、平价调拨2、加价调拨；今天要说的是第一种情况，也有人这种情况叫做“代购”，不是帮客户代购，而是帮集团内部代购；这种集中采购模式两个注意点：1.平价调拨2，税。
业务场景:1000公司，3000公司，代沟一台笔记本10000元1.创建集中采购订单（ME21N）2.对采购订单收货(MIGO)3.1000公司做发票校验（MIRO）4.公司间的补充记账（程序：RFBUST10）,sm35运行后台作业；1.创建集中采购订单（ME21N）；采购公司1000，工厂3000（属于3000公司）注：如果系统提示信息，直接修改信息类型即可。
我当时测试的时候是有错误提示的；2.对采购订单收货(MIGO)由于我这个系统是配的是无价值的收货，所以在采购收货时没有产生FI凭证；如果是采购的是物料，产生的凭证是DR:库存商品CR:GR/IR+ 差异3.1000公司做发票校验（MIRO）注：系统可能会提示一个错误消息M8393，直接修改消息类型就可以了；这个时候FI凭证很有意义了：一笔发票校验产生两个公司的凭证；1000公司凭证：3000公司凭证：这两个凭证和一般凭证不同的地方在于，在凭证抬头都关联一个跨公司的凭证；跨公司凭证的编号规则：公司1000FI凭证+公司代码1000+记账年度的后两位按道理来说业务其实已经做完了，前面也说了这个方案最大的问题在于税的问题；如果直接这样记账3000公司其实根本不涉及税的问题，如果1000公司和3000公司都属于一个地税管理，我觉得上面的业务就够了，就是集团所谓的合并纳税；但是如果1000公司和3000公司不隶属于一个地税局管理，因为利益原因，合并纳税是很难达成的；虽然在业务上没有体现买和卖的关系，但是必须从财务角度补上财务的凭证；其实SAP对这一块也是有标准解决方案的，如下：4、公司间的补充记账（程序：RFBUST10）SM35运行后台作业后也会产生两个凭证：1000公司补充凭证：3000公司补充凭证看看后台配置：1.采购组织只分配给工厂，不要分配给公司2.公司间清帐科目配置3、配置跨公司交易税类型。
abap me59n bapi函数
ABAP ME59N BAPI函数是针对采购订单和采购申请中的未清项的处理函数。
采购订单中未清项是指尚未生成凭证或尚未校准的项。
通过使用ME59N BAPI函数，可以有效地处理未清项，对采购订单进行合理的处理。
本文将详细介绍ABAP ME59N BAPI函数的相关内容，包括其功能、使用方法、常见问题及解决方案等。
希望能够通过本文的介绍，帮助读者更加深入地了解和掌握ABAP ME59N BAPI函数的相关知识。
一、ABAP ME59N BAPI函数的功能ABAP ME59N BAPI函数主要用于处理采购订单和采购申请中的未清项。
其主要功能包括：1. 生成凭证：对于已经完成的采购订单或者采购申请，可以使用ME59N BAPI函数生成相应的凭证，方便后续的财务处理。
2. 校准项：对于未能及时校准的项，可以使用ME59N BAPI函数进行校准，确保采购订单的准确性和完整性。
3. 自动处理：ME59N BAPI函数可以实现对未清项的自动处理，提高工作效率并减少手工操作的繁琐性。
二、ABAP ME59N BAPI函数的使用方法使用ABAP ME59N BAPI函数的方法如下所示：1. 调用BAPI函数：在ABAP程序中，通过调用BAPI函数的方式来使用ME59N BAPI函数。
具体调用方法可参考相关的开发文档或者示例代码。
2. 传入参数：在调用ME59N BAPI函数时，需要传入相关的参数，包括采购订单号、采购申请号等信息，以便函数能够准确地处理相应的未清项。
3. 处理结果：ME59N BAPI函数处理完成后，会返回相应的处理结果，包括成功或者失败等信息。
根据返回的结果，可以进一步处理相应的业务逻辑。
三、ABAP ME59N BAPI函数的常见问题及解决方案在实际使用ABAP ME59N BAPI函数时，可能会遇到一些常见的问题，以下是一些可能的问题及相应的解决方案：1. 参数传递错误：在调用ME59N BAPI函数时，可能会因为参数传递错误而导致处理失败。
SAPMM物料管理创建采购订单51SAP教育中心
目的:采购订单是向指定供应商发出的采购要求的文件。
订单可以通过“采购申请的分配和处理”进行创建，亦可以单独进行创建•SAP事务代码和菜单路径：事务代码：ME21路径：后勤系统物料管理采购采购单建立已知供应商•前提条件：相关采购资讯已在系统创建•执行人采购员栏目选择用途供应商必填输入供应商的编号，可从下拉菜单中选择订单类型默认系统默认为：NB 标准采购订单订单日期默认系统默认为当天采购组织必填输入相关的采购组织，在晋原应输入CY01 采购群组必填按物料的分类选择，具体可点击其箭头查看工厂必填输入该订单所属的工厂编号储存位置必填输入收货地点操作结果ENTER进入下一屏幕栏目选择用途物料必填输入采购物料的编码采购单数量必填填入订单数量净价必填填入每一个采购单位的净价（不含税价）操作结果ENTER 进入下一屏幕操作结果系统会根据采购资讯带出交货日期，或默认为当天系统提示“或以满足交货期限吧？”ENTER 进入下一屏幕操作结果双击每一项目进入下一屏幕栏目选择用途不足交货容差可选输入允许的少交数量的百分比超量交货容差可选输入允许的超交数量的百分比税码必填填入每一个采购物料的税率（点击箭头可查看）操作结果ENTER 返回总览屏幕操作结果选择项目，并按<合作伙伴>钮进入下一屏幕栏目选择用途业务往来功能标识可选如果此采购定单的发票提供方与供货方不同,则应在’伙伴’表中加入以PI(发票提供者)为功能标识的行.号可选如已增加PI行, 则应填入发票提供方供应商的编号注:如没此供应商主数据,则必须先行建立操作结果按<返回>键完合作伙伴修改，回到项目总览。
操作结果按<保存>键保存建立结果，进入下一屏幕操作结果屏幕左下方显示：标准采购单已建立（本资料素材和资料部分来自网络，仅供参考。
请预览后才下载，期待您的好评与关注！）。
采购订单创建、修改、审批增强ME21NME22NME28ME29N
采购订单创建、修改、审批增强 ME21NME22NME28ME29N
一、采购订单创建修改增强 BADI：ME_PROCESS_PO_CUST
通过POST方法中的参数im_header，获取对应的数据 订单头
*Get header CALL METHOD im_header->get_data RECEIVING re_data = header.
EXPORTING
i_ekko
= E_EKKO.
ENDENHANCEMENT.
*获取长文本 REFRESH ex_textlines. CALL METHOD im_header->if_longtexts_mm~get_text EXPORTING im_tdid = im_tdid IMPORTING ex_textlines = ex_textlines.
订单行
"获取行 *Get Item
"获取行字段值 CALL METHOD item_obj->get_data RECEIVING re_data = item.
"获取行长文本 REFRESH ex_textlines. CALL METHOD item_obj->if_longtexts_mm~get_text EXPORTING im_tdid = im_tdid IMPORTING ex_textlines = ex_textlines.
ENDLOOP.
二、采购订单审批同步外围系统增强
函数：ME_PURCHASE_DOCUMENT_DATA_SAVE
调用接口同步数据到外围系统
ENHANCEMENT 1 ZME28. "active version
采购申请相关bapi
P_BNFPO FOR EBANBNFPO,
P_MATNR FOR EBANMATNR,
P_DISPO FOR EBANDISPO,
P_EKGRP FOR EBANEKGRP,
P_LFDAT FOR EBANLFDAT,
P_FIXKZ FOR EBANFIXKZ. SELECTIO N-SCREEN END OF BLOCK BLK01. SELECTIO N-SCREEN BEGIN OF BLOCK BLK02 WITH FRAME TITLE TEXTT02. PARAMETE RS:RB_1 RADIOB39;X',
EPSTP LIKE T163YEPSTP,
END OF IT_EBAN. DATA IT_EBAN1 LIKE TABLE OF IT_EBAN WITH HEADER LINE.
DATA : BEGIN OF WA_ITAB,
WERKS LIKE EBANWERKS , "工厂
BSART LIKE EBANBSART, "凭证类 别
AND EBAKZ = ''
AND LOEKZ NE 'X'.
ENDIF.
IF IT_EBAN[ ] IS NOT INITIAL.
DATA:I_N AME1 LIKE LFA1NAME1,
I_NAME2 LIKE LFA1NAME2,
I_NAME3 LIKE LFA1NAME3,
I_NAME4 LIKE LFA1NAME4.
* --> p1 text * <-p2 text *--------------------------------------------------------------* FORM GET_DATA .
BAPI修改采购订单描述
BAPI修改采购订单描述*&---------------------------------------------------------------------**& Report ZGER_1910LK_030505*&---------------------------------------------------------------------**&*&---------------------------------------------------------------------*REPORT ZGER_1910LK_030505.*&---------------------------------------------------------------------**& Report ZBAPI_NZF_CGSQ1*&---------------------------------------------------------------------**&*&---------------------------------------------------------------------*TABLES:EBAN,EBKN. "EBAN采购申请数据 EBKN采购申请账户设置DATA: LT_ITEMS_OLD LIKE TABLE OF BAPIEBANV WITH HEADER LINE."旧数据DATA: LT_ITEMS_NEW LIKE TABLE OF BAPIEBANV WITH HEADER LINE."采购申请创建好后，从系统表EBAN取出新数据，放这DATA: LT_ACCOUNT_OLD LIKE TABLE OF BAPIEBKNV WITH HEADER LINE."旧数据DATA: LT_ACCOUNT_NEW LIKE TABLE OF BAPIEBKNV WITH HEADER LINE."采购申请创建好后，从系统表EBKN取出新数据，放这DATA: LT_ITEMS LIKE TABLE OF BAPIEBAN WITH HEADER LINE."传输结构:显⽰/内部需求条⽬DATA: LT_ACCOUNT LIKE TABLE OF BAPIEBKN WITH HEADER LINE.DATA: LT_BAPIRETURN LIKE TABLE OF BAPIRETURN WITH HEADER LINE."返回参数DATA: T_EBAN LIKE TABLE OF EBAN WITH HEADER LINE.DATA: T_EBKN LIKE TABLE OF EBKN WITH HEADER LINE.
SAP基本操作命令
创建物料：MM01创建成品物料BOM：CS01创建工艺路线: CA01创建生产订单: CO01生产投料: MB1A完工确认: CO11N查看已确认的工单: CO14成品入库: MIGO取消完工确认: CO13二、订单创建采购订单：ME21N(已知供应商/供应工厂)ME25(未知供应商)更改订单：ME25N查看订单：ME23N维护补充订单：ME24三、收货订单收货：MB01查看退回所产生的物料凭证信息: MIGO物料凭证查看：MB03物料凭证更改：MB02显示物料凭证：MIGO库存概览（总览）：MMBE转移库存：MB1B查询库存：LS24五、SAP（WM）创建库位：OX09将库位分配给仓库编码：spro-企业结构-分配-后勤执行-给工厂/存储地点分配仓库编码创建入库转储单: LT01创建仓位：LS01确认转储单: LT12查看该转储单是否已被确认: LT21六、SAP（SD）创建销售订单: V-01(12152)创建外向交货单：VL01N（80015251）创建交货单所用的转储单: LT03确认创建的转储单: LT12交货过账: VL02N取消发货过账: VL09删除交货单: VL02nSapAdapter:BAPI浏览器：BAPI所需函数的查询：SE37SAP中有创建及修改生产订单(非采购订单)的函数：创建：BAPI_PRODORD_CREATE修改：BAPI_PRODORD_CHANGESAP中查看物料凭证的函数：BAPI_GOODSMVT_GETITEMS 创建采购订单的函数：BAPI_PO_CREATE录制SAP Transaction:读取SAP表或视图的内容: SE16N查看SAP 表或视图结构: SE11录制:SM35。
SAPBAPI生产工单创建及修改
SAPBAPI生产工单创建及修改SAP标准工单创建bapi: BAPI_PRODORD_CREATE但是使用此bapi 有如下缺点:1.后台另起线程更新数据库,即使BAPI_TRANSACTION_COMMIT(加上wait参数也无法保证当前时点已更新到数据库)即,当需要工单创建后,后续操作时,此bapi无法满足需要(比如创建工单之后,调用下达function自动下达)2.此BAPI 输入参数很有限.当需要额外参数时,就无法满足需求(比如创建样件,试制工单不限制收货数量),创建工单时,外部输入组件信息也无法满足.-----------------------------------------------------------------------------示例: 通过接口创建工单(并传入工单组件信息).*当创建工单的同时,可以使用如下方式:不提交数据库CALL FUNCTION 'COXT_BAPI_ORDER_CREATE'EXPORTINGIS_HEADER = LS_ORDERDATAI_ORDER_CATEGORY = '10'* IV_RESET = 'X'IV_ORDER_POST = ' 'IV_COMMIT = ' 'IMPORTINGES_RETURN = LS_RETURNE_ORDER_NUMBER = LV_ORDER_NUMBERE_ORDER_TYPE = LV_ORDER_TYPE*提交数据库且会等待直到工单完成*****************************************************CO_ZV_ORDER_POST是个比较有趣的function , 提交之前,会读取(SAPLCOBH)AFPO_BT等数据,即,可以使用fs修改抬头或者组件数据.比如需要在创建订单时,设置无限制收货(可添加如下代码).ASSIGN ('(SAPLCOBH)AFPO_BT[]') TO .LOOP AT ASSIGNING .-UEBTK = 'X'.ENDLOOP.设置组件反冲可使用如下代码:ASSIGN ('(SAPLCOBC)RESB_BT[]') TO .LOOP AT ASSIGNING .-RGEKZ = 'X'.ENDLOOP.*当然,也可以在CO_ZV_ORDER_POST函数中增强去实现以上功能.**************************************************CALL FUNCTION 'CO_ZV_ORDER_POST'EXPORTINGCOMMIT_FLAG = SPACEEXT_FLG = 'X'TRANS_TYP = 'H'NO_GUI_MESSAGE = 'X'NO_DIALOG = 'X'IMPORTINGfirst_aufnr = LV_ORDER_NUMBER** TABLES** CAUFVD_NUM_EXP = ET_ORD_KEY_MAPEXCEPTIONSNO_CHANGE = 1UPDATE_REJECT = 2BUDGET_REJECT = 3OTHERS = 4.IF SY-SUBRC = 0.CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGWAIT = 'X'.endif.*删除原工单组件信息.可使用:BAPI_NETWORK_COMP_REMOVE 或者:CO_XT_COMPONENTS_DELETE*新增工单组件可使用:CO_XT_COMPONENT_ADDCALL FUNCTION 'CO_XT_COMPONENT_ADD'EXPORTINGIS_ORDER_KEY = LV_ORDER_NUMBERI_MATERIAL = LV_MATERIALIS_REQU_QUAN = LS_REQU_QUANI_OPERATION = LV_OPERATIONI_SEQUENCE = LV_SEQUENCEIS_STORAGE_LOCATION = LS_STORAGE_LOCATIONIS_STORAGE_LOCATIONX = LS_STORAGE_LOCATIONX I_BATCH = LV_BATCHI_BATCHX = LV_BATCHXI_POSTP = LV_POSTPI_POSNO = LV_POSITIONNOIMPORTINGES_BAPIRETURN = LS_RETURNE_ERROR_OCCURRED = LV_ERROR.ASSIGN ('(SAPLCOBC)RESB_BT[]') TO .LOOP AT ASSIGNING .LV_NUMC = SY-TABIX * 10.-POSNR = LV_NUMC.-RGEKZ = ''."设置反冲标识CLEAR LV_NUMC.ENDLOOP.CALL FUNCTION 'CO_ZV_ORDER_POST' EXPORTINGCOMMIT_FLAG = SPACEEXT_FLG = 'X'TRANS_TYP = 'V'NO_DIALOG = 'X'commit work and wait.。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
FUNCTION zbapi_po_create1. *"---------------------------------------------------------------------- *"*"本地接口： *" IMPORTING *" VALUE(POHEADER) LIKE BAPIMEPOHEADER STRUCTURE BAPIMEPOHEADER *" VALUE(ZMMS_USER) TYPE ZMMS_USER OPTIONAL *" EXPORTING *" VALUE(EXPPURCHASEORDER) LIKE BAPIMEPOHEADER-PO_NUMBER *" TABLES *" POITEM STRUCTURE BAPIMEPOITEM *" RETURN STRUCTURE BAPIRET2 OPTIONAL *" POACCOUNT STRUCTURE BAPIMEPOACCOUNT OPTIONAL *" POACCOUNTX STRUCTURE BAPIMEPOACCOUNTX OPTIONAL *"---------------------------------------------------------------------- DATA:poheaderx LIKE bapimepoheaderx, poitemx LIKE TABLE OF bapimepoitemx WITH HEADER LINE, poschedule LIKE TABLE OF bapimeposchedule WITH HEADER LINE, poschedulex LIKE TABLE OF bapimeposchedulx WITH HEADER LINE. * DATA:poaccount LIKE TABLE OF bapimepoaccount WITH HEADER LINE, * poaccountx LIKE TABLE OF bapimepoaccountx WITH HEADER LINE.
*写外挂的用户 * DATA: F_WA_EXTENSIONIN LIKE BAPIPAREX. "BAPI 参数 ExtensionIn/ExtensionOut 的参考结构 * DATA: F_IT_EXTENSIONIN LIKE TABLE OF F_WA_EXTENSIONIN. DATA:bapi_te_mepoheader TYPE bapi_te_mepoheader, bapi_te_mepoheaderx TYPE bapi_te_meoutheaderx, lwk_extensionin TYPE bapiparex, litab_extensionin LIKE TABLE OF bapiparex WITH HEADER LINE. REFRESH:litab_extensionin. CLEAR:bapi_te_mepoheader,bapi_te_mepoheaderx,lwk_extensionin,litab_extensionin.
bapi_te_mepoheader-userid = zmms_user-userid. bapi_te_mepoheader-username = zmms_user-username. lwk_extensionin-STRUCTURE = 'BAPI_TE_MEPOHEADER'. lwk_extensionin-valuepart1 = bapi_te_mepoheader. APPEND lwk_extensionin TO litab_extensionin.
bapi_te_mepoheaderx-userid = 'X'. bapi_te_mepoheaderx-username = 'X'. lwk_extensionin-STRUCTURE = 'BAPI_TE_MEPOHEADERX'. lwk_extensionin-valuepart1 = bapi_te_mepoheaderx. APPEND lwk_extensionin TO litab_extensionin.
* lwk_extensionin-STRUCTURE = 'BAPI_TE_MEPOITEMX'. ** lwk_extensionin-valuepart1 = bapi_te_mepoheaderx. * APPEND lwk_extensionin TO litab_extensionin.
* 转换供应商 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING INPUT = poheader-vendor IMPORTING OUTPUT = poheader-vendor.
MOVE 'X' TO poheaderx-doc_type. "采购凭证类型 MOVE 'X' TO poheaderx-comp_code. MOVE 'X' TO poheaderx-creat_date. MOVE 'X' TO poheaderx-created_by. MOVE 'X' TO poheaderx-vendor. MOVE 'X' TO poheaderx-purch_org. MOVE 'X' TO poheaderx-pur_group. MOVE 'X' TO poheaderx-ref_1.
LOOP AT poitem. IF poitem-material IS INITIAL OR poitem-quantity IS INITIAL . DELETE poitem. CONTINUE."如果物料号为空或数量为0则不处理，忽略此行 ENDIF. poitem-po_unit = ''. poitem-po_item = sy-tabix * 10. * 采购价格以输入的为准 poitem-po_price = '2' . poitem-calctype = 'B'. * 转换物料 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING INPUT = poitem-material IMPORTING OUTPUT = poitem-material. MODIFY poitem.
poitemx-po_item = poitem-po_item. MOVE 'X' TO poitemx-material. * poitemx-SHORT_TEXT = 'X'. * poitemx-MATL_GROUP = 'X'. "非自营物料组 * poitemx-PO_UNIT = 'X'. "非自营物料组 * poitemx-acctasscat = 'X'. MOVE 'X' TO poitemx-plant. MOVE 'X' TO poitemx-quantity. * MOVE 'X' TO poitemx-price_date. MOVE 'X' TO poitemx-net_price. MOVE 'X' TO poitemx-price_unit . MOVE 'X' TO poitemx-tax_code. poitemx-ref_doc = 'X'. "物料凭证号 poitemx-ref_item = 'X'."物料凭证行项目
poitemx-po_price = 'X'. poitemx-calctype = 'X'. * poitemx-preq_no = 'X'. "采购凭证号 * poitemx-preq_no = 'X'. "采购申请凭证号 * poitemx-preq_item = 'X'.“参考的采购申请行项目 poitemx-ref_doc = 'X'."参考凭证 poitemx-ref_item = 'X'."参考凭证项目 * poitemx-preq_item = 'X'."采购凭证行项目 MOVE 'X' TO poitemx-gr_to_date. IF poitem-ret_item IS NOT INITIAL. poitemx-ret_item = 'X'. ENDIF. IF poitem-batch IS NOT INITIAL. poitemx-batch = 'X'. ENDIF. IF poitem-acctasscat IS NOT INITIAL. poitemx-acctasscat = 'X'. ENDIF. APPEND poitemx. CLEAR poitemx.
*交货日期处理 poschedule-po_item = poitem-po_item. "采购凭证的项目编号 * poschedule-sched_line = poitem-po_item. "采购凭证的项目编号 poschedule-del_datcat_ext = 'D'."交货日期的类别 poschedule-delivery_date = poitem-gr_to_date."交货日期 poschedule-quantity = poitem-quantity."采购订单数量 APPEND poschedule. CLEAR poschedule.
poschedulex-po_item = poitem-po_item. "采购凭证的项目编号 poschedulex-sched_line = poitem-po_item. "采购凭证的项目编号 poschedulex-del_datcat_ext = 'X'."交货日期的类别 poschedulex-delivery_date = 'X'."交货日期 poschedulex-quantity = 'X'."采购订单数量 APPEND poschedulex. CLEAR poschedulex.
ENDLOOP.