U811.1接口EAI系列之四--委外订单生成--VB语言
委外订单主细表、子个构成需求。具体代码与参数说明。
下面调用的通用方法在: http://www.cnblogs.com/spring_wang/p/3393147.html
作者:王春天 2013-10-31
地址:http://www.cnblogs.com/spring_wang/p/3399331.html
1.具体代码:
'委外订单生成XML Public Function xml_omorder(ds_data As ADODB.Recordset, as_proc As String) As Booleanxml_omorder = 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 j As LongDim ls_data As Stringls_code = "ddd000312" '订单编号ls_date = "2013-10-14" '订单日期ls_vendorcode = "00001" '供应商编号ls_deptcode = "" '"101" '部门编号ls_personcode = "koutao" '业务员ls_purchase_type_code = "" '采购类型编码ls_operation_type_code = "委外加工" '业务类型ls_address = "" '到货地址ls_recsend_type = "" '运输方式 ' ls_idiscounttaxtype = "0" '扣税类别 (0应税外加,1应税内含)ls_currency_name = "美元" '外币名称ls_currency_rate = "8" '汇率ls_tax_rate = "17" '税率ls_paycondition_code = "" '付款条件ls_traffic_money = "0" '运费ls_bargain = "0" '定金ls_remark = "" '备注ls_period = "" '采购计划期间ls_maker = "肖雨" '制单人'增加文件头相关信息ls_xml = "<?xml version=""1.0"" encoding=""UTF-8""?>" + vbCrLfls_xml = ls_xml & "<ufinterface sender=""" & u8_xtm & """ receiver=""u8"" roottag=""omorder"" docid="""" proc=""" & as_proc & """ renewproofno = ""Y"" codeexchanged=""N"" exportneedexch=""N"" display="""" family="""" timestamp="""">" + vbCrLf'增加文件中数据项信息 headerls_xml = ls_xml & "<omorder>" + 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 & "<ordertype>0</ordertype>" + 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 & "<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 & "<maker>" & ls_maker & "</maker>" + vbCrLf '制单人 ls_xml = ls_xml & "</header>" + vbCrLf'bodyls_xml = ls_xml & "<body>" + vbCrLfFor i = 1 To 1 'ds_data.RecordCountls_xml = ls_xml & "<entry>" + vbCrLfls_data = "A0001"ls_xml = ls_xml & "<inventorycode>" & ls_data & "</inventorycode>" + vbCrLf '母件存货编码ls_data = "0"ls_xml = ls_xml & "<checkflag>" & ls_data & "</checkflag>" + vbCrLf '是否检验ls_data = "002002"ls_xml = ls_xml & "<unitcode>" & ls_data & "</unitcode>" + vbCrLf '物料单位编码ls_data = "10"ls_xml = ls_xml & "<quantity>" & ls_data & "</quantity>" + vbCrLf '主计量数量ls_data = "0"ls_xml = ls_xml & "<num>" & ls_data & "</num>" + vbCrLf '辅计量数量ls_data = ""ls_xml = ls_xml & "<quotedprice>" & ls_data & "</quotedprice>" + vbCrLf '报价ls_data = "1000"ls_xml = ls_xml & "<price>" & ls_data & "</price>" + vbCrLf '单价(原币,无税)ls_data = "1170"ls_xml = ls_xml & "<taxprice>" & ls_data & "</taxprice>" + vbCrLf '含税单价(原币,无税)ls_data = "10000"ls_xml = ls_xml & "<money>" & ls_data & "</money>" + vbCrLf '金额(原币,无税)ls_data = "1700"ls_xml = ls_xml & "<tax>" & ls_data & "</tax>" + vbCrLf '税额(原币)ls_data = "11700"ls_xml = ls_xml & "<sum>" & ls_data & "</sum>" + vbCrLf '价税合计(原币)ls_data = "" '"1000"ls_xml = ls_xml & "<natprice>" & ls_data & "</natprice>" + vbCrLf '单价(本币,无税)ls_data = "" '"10000"ls_xml = ls_xml & "<natmoney>" & ls_data & "</natmoney>" + vbCrLf '金额(本币,无税)ls_data = "" '"1700"ls_xml = ls_xml & "<nattax>" & ls_data & "</nattax>" + vbCrLf '税额(本币)ls_data = "" '"11700"ls_xml = ls_xml & "<natsum>" & ls_data & "</natsum>" + vbCrLf '价税合计(本币)ls_data = ""ls_xml = ls_xml & "<natdiscount>" & ls_data & "</natdiscount>" + vbCrLf '折扣额(本币)ls_data = "17"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 = "2013-11-24"ls_xml = ls_xml & "<arrivedate>" & ls_data & "</arrivedate>" + vbCrLf '计划到货日期ls_data = "2013-11-24"ls_xml = ls_xml & "<startdate>" & ls_data & "</startdate>" + vbCrLf '计划下达日期ls_data = "1000000001"ls_xml = ls_xml & "<bomid>" & ls_data & "</bomid>" + vbCrLf 'BOMIDls_data = "0"ls_xml = ls_xml & "<fparentscrp>" & ls_data & "</fparentscrp>" + vbCrLf '母件损耗率ls_data = "1"ls_xml = ls_xml & "<btaxcost>" & ls_data & "</btaxcost>" + vbCrLf '价格标准(0无税,1含税) ls_xml = ls_xml & "<details ivouchrowno = """ & Trim(Str(i)) & """>" + vbCrLfFor j = 1 To 3ls_xml = ls_xml & "<entrys>" + vbCrLfls_data = "Z00" & Trim(Str(j))ls_xml = ls_xml & "<inventorycode>" & ls_data & "</inventorycode>" + vbCrLf '子件存货编码ls_data = Trim(Str(j * 10))ls_xml = ls_xml & "<quantity>" & ls_data & "</quantity>" + vbCrLf '数量ls_data = "2013-10-20"ls_xml = ls_xml & "<requireddate>" & ls_data & "</requireddate>" + vbCrLf '需求日期ls_data = "1"ls_xml = ls_xml & "<baseqtyn>" & ls_data & "</baseqtyn>" + vbCrLf '基本用量(分子)ls_data = "1"ls_xml = ls_xml & "<baseqtyd>" & ls_data & "</baseqtyd>" + vbCrLf '基本用量(分母)ls_data = "0"ls_xml = ls_xml & "<basenumn>" & ls_data & "</basenumn>" + vbCrLf '辅助基本用量ls_data = "0"ls_xml = ls_xml & "<unitnum>" & ls_data & "</unitnum>" + vbCrLf '辅助使用数量ls_data = "0"ls_xml = ls_xml & "<num>" & ls_data & "</num>" + vbCrLf '应领辅助数量ls_data = "0"ls_xml = ls_xml & "<compscrp>" & ls_data & "</compscrp>" + vbCrLf '子件耗损率ls_data = "0"ls_xml = ls_xml & "<fvgty>" & ls_data & "</fvgty>" + vbCrLf 'F/V(0:否/1:是)ls_data = "3"ls_xml = ls_xml & "<wiptype>" & ls_data & "</wiptype>" + vbCrLf '供应类型(1:倒冲/3:领用)ls_data = "3"ls_xml = ls_xml & "<opcomponentid>" & ls_data & "</opcomponentid>" + vbCrLf '子件BOM子表IDls_data = "0"ls_xml = ls_xml & "<sendtype>" & ls_data & "</sendtype>" + vbCrLf '领料方式ls_data = Trim(Str(i))ls_xml = ls_xml & "<usequantity>" & ls_data & "</usequantity>" + vbCrLfls_xml = ls_xml & "</entrys>" + vbCrLfNext jls_xml = ls_xml & "</details>" + vbCrLfls_xml = ls_xml & "</entry>" + vbCrLfNext ils_xml = ls_xml & "</body>" + vbCrLf'增加文件尾相关信息ls_xml = ls_xml & "</omorder>" + vbCrLfls_xml = ls_xml & "</ufinterface>" + vbCrLfDim xml_document As New DOMDocumentxml_document.loadXML (ls_xml)fn2 = App.Path & "\u8_temp.xml"xml_document.save (fn2)Dim ls_temp As String '接收返回消息,如果成功,返回U8中委外订单编号,如果失败,返回错误信息If SendToEAI(ls_xml, ls_temp) Then '成功MsgBox "上传成功" & ls_tempElse '失败 MsgBox ls_tempxml_omorder = FalseEnd If End Function
2.参数说明
主表: | |||
项目 | 是否必传 | 对应业务系统字段 | 描述 |
订单编号 | 是 | 将在U8中自动生成一个新编号,但注意:不能获取到U8新生成的编号 | |
订单日期 | 是 | YYYY-MM-DD | |
供应商编号 | 是 | ||
部门编号 | 否 | ||
业务员编号 | 否 | ||
采购类型编码 | 否 | ||
业务类型 | 是 | 委外加工 | |
到货地址 | 否 | ||
运输方式 | 否 | ||
外币名称 | 是 | 人民币、美元、日元 | |
汇率 | 是 | ||
税率 | 是 | 如:17 | |
付款条件 | 否 | ||
运费 | 否 | ||
定金 | 否 | ||
备注 | 否 | ||
采购计划期间 | 否 | ||
制单人名称 | 否 | 如果需要上传,传入名称 | |
母件信息: | |||
项目 | 是否必传 | 对应业务系统字段 | 描述 |
母件编码 | 是 | ||
是否检验 | 是 | 1 or 0,在U8直接做时默认为0 | |
物料单位编码 | 是 | ||
主计量数量 | 是 | ||
辅计量数量 | 否 | 如果是浮动转换率不传,如果是固定转换率必传 | |
报价 | 否 | ||
单价(原币,无税) | 否 | 不传在话,在U8的委外订单中为空 | |
含税单价(原币,无税) | 否 | 不传在话,在U8的委外订单中为空 | |
金额(原币,无税) | 否 | 不传在话,在U8的委外订单中为空 | |
税额(原币) | 否 | 不传在话,在U8的委外订单中为空 | |
价税合计(原币) | 否 | 不传在话,在U8的委外订单中为空 | |
单价(本币,无税) | 否 | 不传在话,在U8的委外订单中为空 | |
金额(本币,无税) | 否 | 不传在话,在U8的委外订单中为空 | |
税额(本币) | 否 | 不传在话,在U8的委外订单中为空 | |
价税合计(本币) | 否 | 不传在话,在U8的委外订单中为空 | |
折扣额(本币) | 否 | 不传在话,在U8的委外订单中为空 | |
税率 | 是 | 如17 | |
项目大类 | 否 | ||
项目 | 否 | ||
项目名 | 否 | ||
到货日期 | 是 | YYYY-MM-DD | |
计划下达日期 | 是 | YYYY-MM-DD | |
BOMID | 是 | 母件委外BOMID | |
母件损耗率 | 否 | ||
价格标准 | 否 | 0无税,1含税,不知道和后续有什么关系 | |
子件信息: | |||
项目 | 是否必传 | 对应业务系统字段 | 描述 |
子件编码 | 是 | ||
数量 | 是 | ||
需求日期 | 否 | 注意:以下字段都可以不传,但不传,在U8中数据为空,不知道后续是否有影响 | |
基本用量(分子) | 否 | ||
基本用量(分母) | 否 | ||
辅助基本用量 | 否 | ||
辅助使用数量 | 否 | ||
应领辅助数量 | 否 | ||
子件耗损率 | 否 | ||
F/V | 否 | (0:否/1:是),默认0 | |
供应类型 | 否 | (1:倒冲/3:领用),默认3 | |
子件BOM子表ID | 否 | ||
领料方式 | 否 | ||
转载于:https://www.cnblogs.com/spring_wang/p/3399331.html
U811.1接口EAI系列之四--委外订单生成--VB语言相关推荐
- U811.1接口EAI系列之二-BOM构成-委外BOM构成--VB语言
1.下面代码实现了VB6.0中调用U8EAI-BOM构成服务,以下代码均为项目实际代码,可直接复制应用. 2.在u811.1版本中委外BOM构成与正常的BOM构成是同系列表,不单独存储. 3.是以存货 ...
- U811.1接口EAI系列之六--物料上传--VB语言
1. 业务系统同步U811.1存货档案通用方法. 2.具体代码处理如下: 作者:王春天 2013-11-06 地址:http://www.cnblogs.com/spring_wang/p/34098 ...
- U811.1接口EAI系列之二--生成销售出库单调用U8的EAI通用处理方法--PowerBuilder语言...
1.销售系统销售出库,更新U811.1材料库存的EAI的XML生成. 2.主要根据U8配置会生成出库单和同时是否更新库存量,还是更新现存量等等. 3.具体参考代码如下: 作者:王春天 2013-11- ...
- U811.1接口EAI系列之一--通用把XML传送给EAI处理方法--PowerBuilder语言
1.前面配置参考:http://www.cnblogs.com/spring_wang/p/3393147.html 2.pb通用调EAI方法代码如下: //===================== ...
- U811.1接口EAI系列之五--材料出库--VB语言
主要业务有:09其他出库单 11:材料出库单 32:销售出库单 主要业务代码: '材料出库生成XML Public Function xml_storeout(ds_head As MSHFlexGr ...
- 委外订单_听听晚报-英特尔扩大芯片委外订单、苹果秋季或举行两场发布会
英特尔扩大芯片委外订单 据外媒报道称,美国半导体厂商英特尔已与中国台湾芯片制造厂商台积电达成协议,明年开始采用后者7nm的优化版本6nm制程量产处理器或显卡,预估投片量将达到18万片.该消息发出后,资 ...
- 委外订单_ERP软件教程:金蝶ERP的委外加工业务流程(一)
ERP软件教程:金蝶ERP的委外加工业务流程 关注我,我将定期分享更多的ERP解决方案 转发关注并私信我,了解更多的解决方案及操作方法哦 欢迎大家随时咨询关于金蝶ERP的任何问题! 一.应用软件版本: ...
- 委外采购申请或委外订单收货完成后,造成的MRP异常处理
由于SAP系统的委外倒冲,有时候会多冲(1PCS),造成MRP运算后异常,如图: 分析原因: 由于委外申请或委外订单所对应的预留单(表RESB)中提货数量大于需求数量造成的. 处理方法: (1)当委外 ...
- 金蝶委外订单后台代码
委外订单属于新单,在专门查老单的ICTemplate表是查不到的 SELECT * FROM ICSubContract --委外订单表头 SELECT * FROM ICSubContractEnt ...
最新文章
- jquery 临时存值
- python相同程序执行结果不同_原理相同只是精简了的python代码,运行结果不同是为什么...
- 强势回归!比 Python 快 20% 的 Pyston v2.0 来了!
- HDU 2546(01背包)
- Gtk-WARNING : cannot open display----这个问题在NVIDIA TX2上碰到过就是DISPLAY=“:0“
- tableView cell 中如果有文本框点击自动滚动不被键盘挡住
- Java多线程学习九:如何正确关闭线程池?shutdown 和 shutdownNow 的区别
- php面试题汇总一(基础篇附答案)
- jinja Extends Blocks Include
- 统计学习三要素的思考
- linux设备模型之tty驱动架构分析,linux设备模型之uart驱动架构分析
- 如何给论文添加参考文献
- JQuery解析Json数据填充到表格
- 前端人脸识别框架tracking.js,解决ios浏览器调摄像头黑屏的问题,兼容pc、安卓、ios。
- Android闪闪发光字体
- Unity-两张图片叠加合成一张图片
- 【jzoj5335】早苗
- 九爷带你了解 zabbix 报警机制
- 计算机设计辅助 CAD 试题汇编,计算机辅助设计试题汇编-第二单元
- 实现“附近的人”的方式原理
热门文章
- 【C++】【python】【kafka】使用C++调用python函数向kafka发送消息
- 计算机保存的游戏,电脑游戏录屏软件哪个好?游戏视频自动保存方法
- python编写小程序实例_python小程序开发实例
- 【两个正态分布随机变量】独立与相关的关系
- AP 计算机 从忐忑不安到轻松满分---多伦多学生如何从零腾飞!
- 7 Billion Humans通关攻略二
- 野火串口调试助手Linux,野火串口调试助手 支持在线安装方式,永远保持最新版本
持常用的110-1152 联合开发网 - pudn.com...
- 字节跳动张一鸣身价594亿美元超马化腾
- STM32F429操作两片AD7689
- 2017年搜狐内推 面试题——谈谈面试中的算法