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 Boolean

    xml_omorder = True

    Dim ls_xml As String

    Dim ls_sender As String

    Dim ls_code As String

    Dim ls_date As String

    Dim ls_vendorcode As String

    Dim ls_deptcode As String

    Dim ls_personcode As String

    Dim ls_purchase_type_code As String

    Dim ls_operation_type_code As String

    Dim ls_address As String

    Dim ls_recsend_type As String

    Dim ls_idiscounttaxtype As String

    Dim ls_currency_name As String

    Dim ls_currency_rate As String

    Dim ls_tax_rate As String

    Dim ls_paycondition_code As String

    Dim ls_traffic_money As String

    Dim ls_bargain As String

    Dim ls_remark As String

    Dim ls_period As String

    Dim ls_maker As String

    Dim i As Long

    Dim j As Long

    Dim ls_data As String

    ls_code = "ddd000312" '订单编号

    ls_date = "2013-10-14" '订单日期

    ls_vendorcode = "" '供应商编号

    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 = "" '汇率

    ls_tax_rate = "" '税率

    ls_paycondition_code = "" '付款条件

    ls_traffic_money = "" '运费

    ls_bargain = "" '定金

    ls_remark = "" '备注

    ls_period = "" '采购计划期间

    ls_maker = "肖雨" '制单人

    '增加文件头相关信息

    ls_xml = "<?xml version=""1.0"" encoding=""UTF-8""?>" + vbCrLf

    ls_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

    '增加文件中数据项信息 header

    ls_xml = ls_xml & "<omorder>" + vbCrLf

    ls_xml = ls_xml & "<header>" + vbCrLf

    ls_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

     'body

    ls_xml = ls_xml & "<body>" + vbCrLf

    For i =  To  'ds_data.RecordCount

        ls_xml = ls_xml & "<entry>" + vbCrLf

        ls_data = "A0001"

        ls_xml = ls_xml & "<inventorycode>" & ls_data & "</inventorycode>" + vbCrLf '母件存货编码

        ls_data = ""

        ls_xml = ls_xml & "<checkflag>" & ls_data & "</checkflag>" + vbCrLf '是否检验

        ls_data = ""

        ls_xml = ls_xml & "<unitcode>" & ls_data & "</unitcode>" + vbCrLf '物料单位编码

        ls_data = ""

        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 = ""

        ls_xml = ls_xml & "<price>" & ls_data & "</price>" + vbCrLf '单价（原币，无税）

        ls_data = ""

        ls_xml = ls_xml & "<taxprice>" & ls_data & "</taxprice>" + vbCrLf '含税单价（原币，无税）

        ls_data = ""

        ls_xml = ls_xml & "<money>" & ls_data & "</money>" + vbCrLf '金额（原币，无税）

        ls_data = ""

        ls_xml = ls_xml & "<tax>" & ls_data & "</tax>" + vbCrLf '税额（原币）

        ls_data = ""

        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 = ""

        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 = ""

        ls_xml = ls_xml & "<bomid>" & ls_data & "</bomid>" + vbCrLf 'BOMID

        ls_data = ""

        ls_xml = ls_xml & "<fparentscrp>" & ls_data & "</fparentscrp>" + vbCrLf '母件损耗率

        ls_data = ""

        ls_xml = ls_xml & "<btaxcost>" & ls_data & "</btaxcost>" + vbCrLf '价格标准(0无税,1含税）

        ls_xml = ls_xml & "<details ivouchrowno = """ & Trim(Str(i)) & """>" + vbCrLf

        For j =  To

            ls_xml = ls_xml & "<entrys>" + vbCrLf

            ls_data = "Z00" & Trim(Str(j))

            ls_xml = ls_xml & "<inventorycode>" & ls_data & "</inventorycode>" + vbCrLf '子件存货编码

            ls_data = Trim(Str(j * ))

            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 = ""

            ls_xml = ls_xml & "<baseqtyn>" & ls_data & "</baseqtyn>" + vbCrLf '基本用量(分子)

            ls_data = ""

            ls_xml = ls_xml & "<baseqtyd>" & ls_data & "</baseqtyd>" + vbCrLf '基本用量(分母)

            ls_data = ""

            ls_xml = ls_xml & "<basenumn>" & ls_data & "</basenumn>" + vbCrLf '辅助基本用量

            ls_data = ""

            ls_xml = ls_xml & "<unitnum>" & ls_data & "</unitnum>" + vbCrLf '辅助使用数量

            ls_data = ""

            ls_xml = ls_xml & "<num>" & ls_data & "</num>" + vbCrLf '应领辅助数量

            ls_data = ""

            ls_xml = ls_xml & "<compscrp>" & ls_data & "</compscrp>" + vbCrLf '子件耗损率

            ls_data = ""

            ls_xml = ls_xml & "<fvgty>" & ls_data & "</fvgty>" + vbCrLf 'F/V(0:否/1:是)

            ls_data = ""

            ls_xml = ls_xml & "<wiptype>" & ls_data & "</wiptype>" + vbCrLf '供应类型(1:倒冲/3:领用)

            ls_data = ""

            ls_xml = ls_xml & "<opcomponentid>" & ls_data & "</opcomponentid>" + vbCrLf '子件BOM子表ID

            ls_data = ""

            ls_xml = ls_xml & "<sendtype>" & ls_data & "</sendtype>" + vbCrLf '领料方式

            ls_data = Trim(Str(i))

            ls_xml = ls_xml & "<usequantity>" & ls_data & "</usequantity>" + vbCrLf

            ls_xml = ls_xml & "</entrys>" + vbCrLf

        Next j

        ls_xml = ls_xml & "</details>" + vbCrLf

        ls_xml = ls_xml & "</entry>" + vbCrLf

    Next i

    ls_xml = ls_xml & "</body>" + vbCrLf

    '增加文件尾相关信息

    ls_xml = ls_xml & "</omorder>" + vbCrLf

    ls_xml = ls_xml & "</ufinterface>" + vbCrLf

    Dim xml_document As New DOMDocument

    xml_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_temp

    Else '失败

        MsgBox ls_temp

        xml_omorder = False

    End 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	否
领料方式	否

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系列之一-通用访问EAI方法--统一调用EAI公共方法--VB语言
1.现在做的项目是关于业务系统与U811.1的接口项目. 2.那么就需要调整通过EAI调用生成U8业务单据. 3.下面就一个通用的向U8-EAI传递XML的通用方法 4.肯定有人会问怎么还用VB调用呢 ...
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 ...
U811.1接口EAI系列之三--采购订单生成--VB语言
采购订单业务,下面是具体代码与参数说明: 下面调用的通用方法在: http://www.cnblogs.com/spring_wang/p/3393147.html 作者:王春天 2013-10-31 ...
【MM系列】SAP MM模块-委外采购订单把Warning转换成Error信息提示
公众号:SAP Technical 本文作者:matinal 原文出处:http://www.cnblogs.com/SAPmatinal/ 原文链接:[MM系列]SAP MM模块-委外采购订单把W ...
餐厅随评系列之四：Umu日本料理（米其林二星）
文章目录在过去的几个月,工作和生活都极其忙碌,因此博客短暂停更了一阵子.慢慢积累下了很多素材,从近期开始恢复博客更新,不过很多内容估计得靠回忆了. 索性采取"倒叙"的方法,先从最 ...

随机推荐

升级华为s2016
Part 1 升级Bootrom 概述:启动启动菜单,用xmodem协议升级BootRom 升级的文件如下: wnm2.2.3-0004.zip :web网管zip压缩包文件. S2008_16-VR ...
ReactNative踩坑日志——使用async/await语法解决网络请求的异步导致的指令执行顺序错乱问题
转载请注明原文地址: ReactNative的fetch是天然的异步请求,因此,如果你在一个代码块中使用了fetch,那么在执行的时候程序不会等待网络响应结束才执行下一条代码,而是会直接按顺序执行完整 ...
Guava的Supplier实现单例
1.函数式编程: 2.第一次get时才会初始化: 3.可以实现单例或缓存. package suppliers; import com.google.common.base.Supplier; imp ...
Android 百度地图开发（一）
在自己的Android项目中增加百度地图的功能. 一申请API key 在使用百度地图之前,我们必须去申请一个百度地图的API key,申请地址http://lbsyun.baidu.com/api ...
css 如何使图片与文字在div中居中展示？
1.情景展示如何将图片与文字在div中一起居中展示? HTML片段 <div style="background: #fff;padding-top: 5px;border:1p ...
loadrunner 脚本开发-参数化之将内容保存为参数、参数数组及参数值获取
转自:http://blog.sina.com.cn/s/blog_13cc013b50102v49c.html(查看原文) 在VuGen中默认使用{}的字符串称为参数注意:参数必须在双引号中才能用 ...
PHP执行insert语句报错“Data too long for column”解决办法
PHP执行mysql 插入语句, insert语句在Navicat for mysql(或任意的mysql管理工具) 中可以正确执行,但是用mysql_query()函数执行却报错. 错误 : “Da ...
Ubuntu 12.04安装VMware Workstation8.0.3
2012-06-18 12:52 Ubuntu安装VMware Workstation8.0.3 由于使用Ubuntu的人比较少,网上关于Ubuntu的资料也很少,笔者在安装VMware Wo ...
清除li内a标签的float=left实现a标签在li内居中显示(ul内li不居中显示)
写在前面: 修改cnblogs主页面菜单显示问题. 问题描述:在给主菜单添加hover样式后发现菜单内容并未居中.见图1. 网上搜索到资料其中一篇讲的可以说简明扼要了,也是伸手党的福利(点我查看原文) ...
Python的多线程技巧
使用多线程可以加快程序运行速度. 遍历占用cpu不高,单线程跑程序占用的CPU很少. 多线程则是CPU占用多,内存占用少了. [一个实例]:multi_process.py ### multi_pro ...

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

U811.1接口EAI系列之四--委外订单生成--VB语言的更多相关文章

随机推荐

热门专题