采购订单业务，下面是具体代码与参数说明：

下面调用的通用方法在: http://www.cnblogs.com/spring_wang/p/3393147.html

作者：王春天 2013-10-31

地址：http://www.cnblogs.com/spring_wang/p/3399316.html

1.下面是具体代码：

'采购订单生成XML
Public Function xml_purchaseorder(ls_sql1 As String, ls_sql2 As String) As Booleanxml_purchaseorder = TrueDim ls_xml As StringDim ls_sender As StringDim ls_code As StringDim ls_date As StringDim ls_vendorcode As StringDim ls_deptcode As StringDim ls_personcode As StringDim ls_purchase_type_code As StringDim ls_operation_type_code As StringDim ls_address As StringDim ls_recsend_type As StringDim ls_idiscounttaxtype As StringDim ls_currency_name As StringDim ls_currency_rate As StringDim ls_tax_rate As StringDim ls_paycondition_code As StringDim ls_traffic_money As StringDim ls_bargain As StringDim ls_remark As StringDim ls_period As StringDim ls_maker As StringDim i As LongDim ls_data As StringDim ll_count As LongDim ds_head As ADODB.Recordset '主表Dim ds_detail As ADODB.Recordset '细表
    Set ds_head = CWBQuery(ls_sql1, ls_return)If ds_head.RecordCount = 0 ThenMsgBox "未检索到主表数据！"Exit FunctionEnd IfSet ds_detail = CWBQuery(ls_sql2, ls_return)ll_count = ds_detail.RecordCountIf ll_count = 0 ThenMsgBox "未检索到细表数据！"Exit FunctionEnd Ifls_code = ds_head(0) '订单编号ls_date = Format(ds_head(1), "0000-00-00") '订单日期ls_vendorcode = ds_head(2) '供应商编号ls_deptcode = "" '部门编号ls_personcode = ds_head(3) '业务员ls_purchase_type_code = "" '采购类型编码ls_operation_type_code = ds_head(4) '业务类型ls_address = "" '到货地址ls_recsend_type = "" '运输方式ls_idiscounttaxtype = ds_head(5) '扣税类别 (0应税外加,1应税内含)ls_currency_name = ds_head(6) '外币名称ls_currency_rate = ds_head(7) '汇率ls_tax_rate = "" '税率ls_paycondition_code = ds_head(8) '付款条件ls_traffic_money = "0" '运费ls_bargain = "0" '定金ls_remark = "" '备注ls_period = "" '采购计划期间ls_maker = ds_head(9) '制单人'增加文件头相关信息ls_xml = "<?xml version=""1.0"" encoding=""UTF-8""?>" + vbCrLfls_xml = ls_xml & "<ufinterface sender=""" & u8_xtm & """ receiver=""u8"" roottag=""purchaseorder"" docid="""" proc=""Add"" renewproofno = ""Y"" codeexchanged=""N"" exportneedexch=""N"" display="""" family="""" timestamp="""">" + vbCrLf'增加文件中数据项信息 headerls_xml = ls_xml & "<purchaseorder>" + vbCrLfls_xml = ls_xml & "<header>" + vbCrLfls_xml = ls_xml & "<code>" & ls_code & "</code>" + vbCrLf '订单编号ls_xml = ls_xml & "<date>" & ls_date & "</date>" + vbCrLf '订单日期ls_xml = ls_xml & "<vendorcode>" & ls_vendorcode & "</vendorcode>" + vbCrLf '供应商编号ls_xml = ls_xml & "<deptcode>" & ls_deptcode & "</deptcode>" + vbCrLf '部门编号ls_xml = ls_xml & "<personcode>" & ls_personcode & "</personcode>" + vbCrLf '业务员ls_xml = ls_xml & "<purchase_type_code>" & ls_purchase_type_code & "</purchase_type_code>" + vbCrLf '采购类型编码ls_xml = ls_xml & "<operation_type_code>" & ls_operation_type_code & "</operation_type_code>" + vbCrLf '业务类型ls_xml = ls_xml & "<address>" & ls_address & "</address>" + vbCrLf '到货地址ls_xml = ls_xml & "<recsend_type>" & ls_recsend_type & "</recsend_type>" + vbCrLf '运输方式ls_xml = ls_xml & "<idiscounttaxtype>" & ls_idiscounttaxtype & "</idiscounttaxtype>" + vbCrLf '扣税类别 (0应税外加,1应税内含)ls_xml = ls_xml & "<currency_name>" & ls_currency_name & "</currency_name>" + vbCrLf '外币名称ls_xml = ls_xml & "<currency_rate>" & ls_currency_rate & "</currency_rate>" + vbCrLf '汇率ls_xml = ls_xml & "<tax_rate>" & ls_tax_rate & "</tax_rate>" + vbCrLf '税率ls_xml = ls_xml & "<paycondition_code>" & ls_paycondition_code & "</paycondition_code>" + vbCrLf '付款条件ls_xml = ls_xml & "<traffic_money>" & ls_traffic_money & "</traffic_money>" + vbCrLf '运费ls_xml = ls_xml & "<bargain>" & ls_bargain & "</bargain>" + vbCrLf '定金ls_xml = ls_xml & "<remark>" & ls_remark & "</remark>" + vbCrLf '备注ls_xml = ls_xml & "<period>" & ls_period & "</period>" + vbCrLf '采购计划期间ls_xml = ls_xml & "<maker>" & ls_maker & "</maker>" + vbCrLf '制单人ls_xml = ls_xml & "</header>" + vbCrLf'bodyls_xml = ls_xml & "<body>" + vbCrLfFor i = 1 To ll_countls_xml = ls_xml & "<entry>" + vbCrLfls_data = ds_detail(0)ls_xml = ls_xml & "<inventorycode>" & ls_data & "</inventorycode>" + vbCrLf '存货编码ls_data = ds_detail(1)ls_xml = ls_xml & "<checkflag>" & ls_data & "</checkflag>" + vbCrLf '是否检验ls_data = ds_detail(2)ls_xml = ls_xml & "<unitcode>" & ls_data & "</unitcode>" + vbCrLf '物料单位编码ls_data = Str(ds_detail(3))ls_xml = ls_xml & "<quantity>" & ls_data & "</quantity>" + vbCrLf '主计量数量ls_data = ""ls_xml = ls_xml & "<num>" & ls_data & "</num>" + vbCrLf '辅计量数量ls_data = ""ls_xml = ls_xml & "<quotedprice>" & ls_data & "</quotedprice>" + vbCrLf '报价ls_data = Str(ds_detail(4))ls_xml = ls_xml & "<price>" & ls_data & "</price>" + vbCrLf '单价（原币，无税）ls_data = Str(ds_detail(4))ls_xml = ls_xml & "<taxprice>" & ls_data & "</taxprice>" + vbCrLf '含税单价（原币，无税）ls_data = Str(ds_detail(5))ls_xml = ls_xml & "<money>" & ls_data & "</money>" + vbCrLf '金额（原币，无税）ls_data = ""ls_xml = ls_xml & "<tax>" & ls_data & "</tax>" + vbCrLf '税额（原币）ls_data = Str(ds_detail(5))ls_xml = ls_xml & "<sum>" & ls_data & "</sum>" + vbCrLf '价税合计（原币）ls_data = ""ls_xml = ls_xml & "<natprice>" & ls_data & "</natprice>" + vbCrLf '单价（本币，无税）ls_data = ""ls_xml = ls_xml & "<natmoney>" & ls_data & "</natmoney>" + vbCrLf '金额（本币，无税）ls_data = ""ls_xml = ls_xml & "<nattax>" & ls_data & "</nattax>" + vbCrLf '税额（本币）ls_data = ""ls_xml = ls_xml & "<natsum>" & ls_data & "</natsum>" + vbCrLf '价税合计（本币）ls_data = ""ls_xml = ls_xml & "<natdiscount>" & ls_data & "</natdiscount>" + vbCrLf '折扣额（本币）ls_data = ""ls_xml = ls_xml & "<taxrate>" & ls_data & "</taxrate>" + vbCrLf '税率ls_data = ""ls_xml = ls_xml & "<item_class>" & ls_data & "</item_class>" + vbCrLf '项目大类ls_data = ""ls_xml = ls_xml & "<item_code>" & ls_data & "</item_code>" + vbCrLf '项目ls_data = ""ls_xml = ls_xml & "<item_name>" & ls_data & "</item_name>" + vbCrLf '项目名ls_data = Format(ds_detail(6), "0000-00-00")ls_xml = ls_xml & "<arrivedate>" & ls_data & "</arrivedate>" + vbCrLf '到货日期ls_data = ""ls_xml = ls_xml & "<btaxcost>" & ls_data & "</btaxcost>" + vbCrLf '价格标准(0无税,1含税）ls_xml = ls_xml & "</entry>" + vbCrLfNext ils_xml = ls_xml & "</body>" + vbCrLf'增加文件尾相关信息ls_xml = ls_xml & "</purchaseorder>" + vbCrLfls_xml = ls_xml & "</ufinterface>" + vbCrLfDim ls_temp As String '接收返回消息，如果成功，返回U8中采购订单编号，如果失败，返回错误信息If SendToEAI(ls_xml, ls_temp) Then '成功MsgBox "上传成功" & ls_tempElse '失败
        MsgBox ls_tempxml_purchaseorder = FalseEnd If
End Function

2.参数说明：

订单主表：cgt04      
项目 是否必传 对应业务系统字段 描述
订单编号 是 CGDDHM 如果在U8中不重复，使用U8中使用此编号，如果重复，U8中自动生成一个新编号，但注意：不能获取到U8新生成的编号
订单日期 是 CGDDRQ(数值8位) YYYY-MM-DD
供应商编号 是 CGGYDM 　
部门编号 否 无 　
业务员编号 否 CGCGDM 　
采购类型编码 否 无 　
业务类型 是 普通采购 普通采购、直运采购、固定资产，使用普通采购即可
到货地址 否 无 　
运输方式 否 无 　
扣税类别 是 1 (0应税外加,1应税内含)
外币名称 是 XTHBDM，需要转换成名称 人民币、美元、日元
汇率 是 CGDHHL，7位小数位 　
税率 是 无 如：17
付款条件 否 可用付款期限？XTQXDM 　
运费 否 无 　
定金 否 无 　
备注 否 无 　
采购计划期间 否 无 　
制单人名称 否 CGLRYH

如果需要上传，传入名称
       
订单细表：cgt05      
项目 是否必传 对应业务系统字段 描述
存货编码 是 KCWPDM 　
是否检验 是 0，不需要检验 1   or 0，在U8直接做时默认为0
物料单位编码 是 XTJLDW 　
主计量数量 是 CGCGSL 　
辅计量数量 否 无 如果是浮动转换率不传，如果是固定转换率必传
报价 否 无 　
单价（原币，无税） 否 CGDWJG 不传的话，在U8的采购订单中为空
含税单价（原币，无税） 否 无 不传的话，在U8的采购订单中为空
金额（原币，无税） 否 CGWPJE 不传的话，在U8的采购订单中为空
税额（原币） 否 无 不传的话，在U8的采购订单中为空
价税合计（原币） 否 无 不传的话，在U8的采购订单中为空
单价（本币，无税） 否 无 不传的话，在U8的采购订单中为空
金额（本币，无税） 否 无 不传的话，在U8的采购订单中为空
税额（本币） 否 无 不传的话，在U8的采购订单中为空
价税合计（本币） 否 无 不传的话，在U8的采购订单中为空
折扣额（本币） 否 无 不传的话，在U8的采购订单中为空
税率 是 无 如17
项目大类 否 无 　
项目 否 无 　
项目名 否 无 　
到货日期 是 CGJHRQ(数值8位) YYYY-MM-DD
价格标准 否 无 0无税,1含税，不知道和后续有什么关系

转载于:https://www.cnblogs.com/spring_wang/p/3399316.html

U811.1接口EAI系列之三--采购订单生成--VB语言相关推荐

  1. U811.1接口EAI系列之六--物料上传--VB语言

    1. 业务系统同步U811.1存货档案通用方法. 2.具体代码处理如下: 作者:王春天 2013-11-06 地址:http://www.cnblogs.com/spring_wang/p/34098 ...

  2. U811.1接口EAI系列之五--材料出库--VB语言

    主要业务有:09其他出库单 11:材料出库单 32:销售出库单 主要业务代码: '材料出库生成XML Public Function xml_storeout(ds_head As MSHFlexGr ...

  3. U811.1接口EAI系列之四--委外订单生成--VB语言

    委外订单主细表.子个构成需求.具体代码与参数说明. 下面调用的通用方法在: http://www.cnblogs.com/spring_wang/p/3393147.html 作者:王春天 2013- ...

  4. U811.1接口EAI系列之二--生成销售出库单调用U8的EAI通用处理方法--PowerBuilder语言...

    1.销售系统销售出库,更新U811.1材料库存的EAI的XML生成. 2.主要根据U8配置会生成出库单和同时是否更新库存量,还是更新现存量等等. 3.具体参考代码如下: 作者:王春天 2013-11- ...

  5. U811.1接口EAI系列之二-BOM构成-委外BOM构成--VB语言

    1.下面代码实现了VB6.0中调用U8EAI-BOM构成服务,以下代码均为项目实际代码,可直接复制应用. 2.在u811.1版本中委外BOM构成与正常的BOM构成是同系列表,不单独存储. 3.是以存货 ...

  6. U811.1接口EAI系列之一--通用把XML传送给EAI处理方法--PowerBuilder语言

    1.前面配置参考:http://www.cnblogs.com/spring_wang/p/3393147.html 2.pb通用调EAI方法代码如下: //===================== ...

  7. 【OCR技术系列之三】大批量生成文字训练集

    放假了,终于可以继续可以静下心写一写OCR方面的东西.上次谈到文字的切割,今天打算总结一下我们怎么得到用于训练的文字数据集.如果是想训练一个手写体识别的模型,用一些前人收集好的手写文字集就好了,比如中 ...

  8. SAP中采购订单状态与MRP的关系

    采购订单的四种状态:     采购订单创建过程中,若出现问题,采购订单可以暂存:     采购订单生成后,当后续不再执行时,则应该删除:     由于某些原因需要临时冻结,则执行冻结操作:     当 ...

  9. 详解EBS接口开发之采购订单导入

    https://www.cnblogs.com/wanghang/p/6299558.html 采购订单常用标准表简介 1.1   常用标准表 如下表中列出了与采购订单导入相关的表和说明: 表名 说明 ...

  10. oracle po订单变更,Oracle EBS PO 采购订单接口 创建后 点击发运后 未修改任何数据 需要保存...

    Oracle EBS PO 采购订单接口 创建后 点击发运后 未修改任何数据 需要保存 现象: Oracle EBS PO 采购订单接口创建的订单 点击发运后 未修改任何数据 需要保存 测试环境: O ...

最新文章

  1. Mybatis自定义排序
  2. ftp协议是一种用于_______的协议_网络安全常见协议解析：TCP、UDP、HTTP、FTP、SMTP等之间的区别...
  3. table 的 id 属性不被 document.getElementById支持
  4. Nonebot部署机器人常见问题
  5. window.open的小问题
  6. html中语音聊天怎么实现,微信小程序语音聊天功能怎么实现？
  7. linux启动和grub修复
  8. Python爬取必应搜索首页图片
  9. 如何帮助空降经理人成功？
  10. flashfxp连接后文件名乱码问题
  11. STM32——用PWM控制电机
  12. c语言中flash文件系统,适宜于嵌入式多媒体应用的Flash文件系统
  13. 超大玉螺旋丸 -A的个数 蓝桥杯练习题
  14. 分析加工贸易企业三帐难以平衡的根本原因
  15. 【教学类-17-02】20221125《世界杯七巧板A4整页-随机参考图七巧板 3份一页》（大班)
  16. echarts图表的内边距_echarts - 条形图grid设置距离绘图区域的距离
  17. python写炒股软件_使用Python写一个量化股票提醒系统
  18. 聚会-朋友圈（贪心法）
  19. 新疯狂英语口语241句
  20. 谈科技发展对我们生活的影响

热门文章

  1. docker pull命令入门
  2. sprk sql自定义UDF函数
  3. pandas.DataFrame.rank
  4. urllib urllib2 自己用
  5. red hat linux 6.4 DNS配置(怎么不让发表？)
  6. 用 c 写 CGI 程序简要指南
  7. FtpWebRequest(转)---关于C/S中文件的上传，下载，获得文件列表
  8. GEO-Slope产品
  9. 人生最重要的三种能力，不是读书能学来的
  10. Java经典编程题50道之四十二