主要业务有:09其他出库单 11:材料出库单 32:销售出库单

主要业务代码:

  1. '材料出库生成XML
  2. Public Function xml_storeout(ds_head As MSHFlexGrid, ds_detail As MSHFlexGrid, as_proc As String) As Boolean
  3. xml_storeout = True
  4. Dim ls_xml As String
  5. Dim ls_data As String
  6.  
  7. '增加文件头相关信息
  8. ls_xml = "<?xml version=""1.0"" encoding=""UTF-8""?>" + vbCrLf
  9.  
  10. ls_xml = ls_xml & "<ufinterface sender=""" & U8_XTM & """ receiver=""u8"" roottag=""storeout"" docid="""" proc=""" & as_proc & """ renewproofno = ""Y"" codeexchanged=""N"" exportneedexch=""N"" display="""" family="""" timestamp="""">" + vbCrLf
  11.  
  12. '增加文件中数据项信息 header
  13. ls_xml = ls_xml & "<storeout>" + vbCrLf
  14. ls_xml = ls_xml & "<header>" + vbCrLf
  15. ls_data = ""
  16. ls_xml = ls_xml & "<receiveflag>" & ls_data & "</receiveflag>" + vbCrLf '收发标志 入库单-收 1,出库单-发 0
  17. ls_data = ""
  18. ls_xml = ls_xml & "<vouchtype>" & ls_data & "</vouchtype>" + vbCrLf '单据类型 09:其他出库单 11:材料出库单 32:销售出库单
  19. ls_data = Trim(ds_head.TextMatrix(, ))
  20. ls_xml = ls_xml & "<businesstype>" & ls_data & "</businesstype>" + vbCrLf '业务类型
  21. ls_data = Trim(ds_head.TextMatrix(, ))
  22. ls_xml = ls_xml & "<source>" & ls_data & "</source>" + vbCrLf '单据来源 采购、销售、库存、存货
  23. ls_data = Trim(ds_head.TextMatrix(, ))
  24. ls_xml = ls_xml & "<businesscode>" & ls_data & "</businesscode>" + vbCrLf '对应业务单号
  25. ls_data = Trim(ds_head.TextMatrix(, ))
  26. ls_xml = ls_xml & "<warehousecode>" & ls_data & "</warehousecode>" + vbCrLf '仓库编码
  27. ls_data = Format(Trim(ds_head.TextMatrix(, )), "0000-00-00")
  28. ls_xml = ls_xml & "<date>" & ls_data & "</date>" + vbCrLf '单据日期
  29. ls_data = Trim(ds_head.TextMatrix(, ))
  30. ls_xml = ls_xml & "<code>" & ls_data & "</code>" + vbCrLf '单据号
  31. ls_data = Trim(ds_head.TextMatrix(, )) '根据出库类别基本档案表
  32. ls_xml = ls_xml & "<receivecode>" & ls_data & "</receivecode>" + vbCrLf '收发类别编码
  33. ls_data = Trim(ds_head.TextMatrix(, ))
  34. ls_xml = ls_xml & "<departmentcode>" & ls_data & "</departmentcode>" + vbCrLf '部门编码
  35. ls_data = Trim(ds_head.TextMatrix(, ))
  36. ls_xml = ls_xml & "<personcode>" & ls_data & "</personcode>" + vbCrLf '职员编码 业务员
  37. ls_data = ""
  38. ls_xml = ls_xml & "<purchasetypecode>" & ls_data & "</purchasetypecode>" + vbCrLf '采购类型编码 采购入库用
  39. ls_data = ""
  40. ls_xml = ls_xml & "<saletypecode>" & ls_data & "</saletypecode>" + vbCrLf '销售类型编码 销售出库用
  41. ls_data = ""
  42. ls_xml = ls_xml & "<customercode>" & ls_data & "</customercode>" + vbCrLf '客户编码 销售出库单、其他出库单用
  43. ls_data = ""
  44. ls_xml = ls_xml & "<customerccode>" & ls_data & "</customerccode>" + vbCrLf '客户分类
  45. ls_data = ""
  46. ls_xml = ls_xml & "<cacauthcode>" & ls_data & "</cacauthcode>" + vbCrLf '不清楚做什么用的
  47. ls_data = ""
  48. ls_xml = ls_xml & "<vendorcode>" & ls_data & "</vendorcode>" + vbCrLf '供应商编码 采购入库单、其他入库单用
  49. ls_data = ""
  50. ls_xml = ls_xml & "<ordercode>" & ls_data & "</ordercode>" + vbCrLf '订单号
  51. ls_data = ""
  52. ls_xml = ls_xml & "<quantity>" & ls_data & "</quantity>" + vbCrLf '产量
  53. ls_data = ""
  54. ls_xml = ls_xml & "<arrivecode>" & ls_data & "</arrivecode>" + vbCrLf '到货单号 采购入库单用
  55. ls_data = ""
  56. ls_xml = ls_xml & "<billcode>" & ls_data & "</billcode>" + vbCrLf '发票号 采购入库单、销售出库单用
  57. ls_data = ""
  58. ls_xml = ls_xml & "<consignmentcode>" & ls_data & "</consignmentcode>" + vbCrLf '发货单号 销售出库单用
  59. ls_data = ""
  60. ls_xml = ls_xml & "<arrivedate>" & ls_data & "</arrivedate>" + vbCrLf '到货日期
  61. ls_data = ""
  62. ls_xml = ls_xml & "<checkcode>" & ls_data & "</checkcode>" + vbCrLf '检验单号
  63. ls_data = ""
  64. ls_xml = ls_xml & "<checkdate>" & ls_data & "</checkdate>" + vbCrLf '检验日期
  65. ls_data = ""
  66. ls_xml = ls_xml & "<checkperson>" & ls_data & "</checkperson>" + vbCrLf '检验员 编码
  67. ls_data = ""
  68. ls_xml = ls_xml & "<templatenumber>" & ls_data & "</templatenumber>" + vbCrLf '模版号
  69. ls_data = ""
  70. ls_xml = ls_xml & "<serial>" & ls_data & "</serial>" + vbCrLf '生产批号 产成品入库单、材料出库单用
  71. ls_data = "demo"
  72. ls_xml = ls_xml & "<handler>" & ls_data & "</handler>" + vbCrLf '经手人 编码
  73. ls_data = ""
  74. ls_xml = ls_xml & "<memory>" & ls_data & "</memory>" + vbCrLf '备注
  75. ls_data = Trim(ds_head.TextMatrix(, ))
  76. ls_xml = ls_xml & "<maker>" & ls_data & "</maker>" + vbCrLf '制单人
  77. ls_data = ""
  78. ls_xml = ls_xml & "<chandler>" & ls_data & "</chandler>" + vbCrLf '审核人
  79. ls_data = ""
  80. ls_xml = ls_xml & "<define1>" & ls_data & "</define1>" + vbCrLf '自定义字段1
  81. ls_data = ""
  82. ls_xml = ls_xml & "<define2>" & ls_data & "</define2>" + vbCrLf '自定义字段2
  83. ls_data = ""
  84. ls_xml = ls_xml & "<define3>" & ls_data & "</define3>" + vbCrLf '自定义字段3
  85. ls_data = ""
  86. ls_xml = ls_xml & "<define4>" & ls_data & "</define4>" + vbCrLf '自定义字段4
  87. ls_data = ""
  88. ls_xml = ls_xml & "<define5>" & ls_data & "</define5>" + vbCrLf '自定义字段5
  89. ls_data = ""
  90. ls_xml = ls_xml & "<define6>" & ls_data & "</define6>" + vbCrLf '自定义字段6
  91. ls_data = ""
  92. ls_xml = ls_xml & "<define7>" & ls_data & "</define7>" + vbCrLf '自定义字段7
  93. ls_data = ""
  94. ls_xml = ls_xml & "<define8>" & ls_data & "</define8>" + vbCrLf '自定义字段8
  95. ls_data = ""
  96. ls_xml = ls_xml & "<define9>" & ls_data & "</define9>" + vbCrLf '自定义字段9
  97. ls_data = ""
  98. ls_xml = ls_xml & "<define10>" & ls_data & "</define10>" + vbCrLf '自定义字段10
  99. ls_data = ""
  100. ls_xml = ls_xml & "<define11>" & ls_data & "</define11>" + vbCrLf '自定义字段11
  101. ls_data = ""
  102. ls_xml = ls_xml & "<define12>" & ls_data & "</define12>" + vbCrLf '自定义字段12
  103. ls_data = ""
  104. ls_xml = ls_xml & "<define13>" & ls_data & "</define13>" + vbCrLf '自定义字段13
  105. ls_data = ""
  106. ls_xml = ls_xml & "<define14>" & ls_data & "</define14>" + vbCrLf '自定义字段14
  107. ls_data = ""
  108. ls_xml = ls_xml & "<define15>" & ls_data & "</define15>" + vbCrLf '自定义字段15
  109. ls_data = ""
  110. ls_xml = ls_xml & "<define16>" & ls_data & "</define16>" + vbCrLf '自定义字段16
  111. ls_data = ""
  112. ls_xml = ls_xml & "<auditdate>" & ls_data & "</auditdate>" + vbCrLf '审核日期
  113. ls_data = ""
  114. ls_xml = ls_xml & "<taxrate>" & ls_data & "</taxrate>" + vbCrLf '税率
  115. ls_data = ""
  116. ls_xml = ls_xml & "<exchname>" & ls_data & "</exchname>" + vbCrLf '币种名称
  117. ls_data = ""
  118. ls_xml = ls_xml & "<exchrate>" & ls_data & "</exchrate>" + vbCrLf '汇率
  119. ls_data = ""
  120. ls_xml = ls_xml & "<discounttaxtype>" & ls_data & "</discounttaxtype>" + vbCrLf '扣税类别
  121. ls_data = ""
  122. ls_xml = ls_xml & "<contact>" & ls_data & "</contact>" + vbCrLf '不清楚XML中含义
  123. ls_data = ""
  124. ls_xml = ls_xml & "<phone>" & ls_data & "</phone>" + vbCrLf '不清楚XML中含义
  125. ls_data = ""
  126. ls_xml = ls_xml & "<mobile>" & ls_data & "</mobile>" + vbCrLf '不清楚XML中含义
  127. ls_data = ""
  128. ls_xml = ls_xml & "<address>" & ls_data & "</address>" + vbCrLf '不清楚XML中含义
  129. ls_data = ""
  130. ls_xml = ls_xml & "<conphone>" & ls_data & "</conphone>" + vbCrLf '不清楚XML中含义
  131. ls_data = ""
  132. ls_xml = ls_xml & "<conmobile>" & ls_data & "</conmobile>" + vbCrLf '不清楚XML中含义
  133. ls_data = ""
  134. ls_xml = ls_xml & "<deliverunit>" & ls_data & "</deliverunit>" + vbCrLf '不清楚XML中含义
  135. ls_data = ""
  136. ls_xml = ls_xml & "<contactname>" & ls_data & "</contactname>" + vbCrLf '不清楚XML中含义
  137. ls_data = ""
  138. ls_xml = ls_xml & "<officephone>" & ls_data & "</officephone>" + vbCrLf '不清楚XML中含义
  139. ls_data = ""
  140. ls_xml = ls_xml & "<mobilephone>" & ls_data & "</mobilephone>" + vbCrLf '不清楚XML中含义
  141. ls_data = ""
  142. ls_xml = ls_xml & "<psnophone>" & ls_data & "</psnophone>" + vbCrLf '不清楚XML中含义
  143. ls_data = ""
  144. ls_xml = ls_xml & "<psnmobilephone>" & ls_data & "</psnmobilephone>" + vbCrLf '不清楚XML中含义
  145. ls_data = ""
  146. ls_xml = ls_xml & "<shipaddress>" & ls_data & "</shipaddress>" + vbCrLf '不清楚XML中含义
  147. ls_data = ""
  148. ls_xml = ls_xml & "<addcode>" & ls_data & "</addcode>" + vbCrLf '不清楚XML中含义
  149. ls_data = ""
  150. ls_xml = ls_xml & "<iscomplement>" & ls_data & "</iscomplement>" + vbCrLf '补料标志
  151. ls_xml = ls_xml & "</header>" + vbCrLf
  152.  
  153. 'body
  154. ls_xml = ls_xml & "<body>" + vbCrLf
  155. For i = To ds_detail.rows -
  156. ls_xml = ls_xml & "<entry>" + vbCrLf
  157. ls_data = ""
  158. ls_xml = ls_xml & "<barcode>" & ls_data & "</barcode>" + vbCrLf '条形码
  159. ls_data = Trim(ds_detail.TextMatrix(i, ))
  160. ls_xml = ls_xml & "<inventorycode>" & ls_data & "</inventorycode>" + vbCrLf '存货编码
  161. ls_data = ""
  162. ls_xml = ls_xml & "<free1>" & ls_data & "</free1>" + vbCrLf '自由项1
  163. ls_data = ""
  164. ls_xml = ls_xml & "<free2>" & ls_data & "</free2>" + vbCrLf '自由项2
  165. ls_data = ""
  166. ls_xml = ls_xml & "<free3>" & ls_data & "</free3>" + vbCrLf '自由项3
  167. ls_data = ""
  168. ls_xml = ls_xml & "<free4>" & ls_data & "</free4>" + vbCrLf '自由项4
  169. ls_data = ""
  170. ls_xml = ls_xml & "<free5>" & ls_data & "</free5>" + vbCrLf '自由项5
  171. ls_data = ""
  172. ls_xml = ls_xml & "<free6>" & ls_data & "</free6>" + vbCrLf '自由项6
  173. ls_data = ""
  174. ls_xml = ls_xml & "<free7>" & ls_data & "</free7>" + vbCrLf '自由项7
  175. ls_data = ""
  176. ls_xml = ls_xml & "<free8>" & ls_data & "</free8>" + vbCrLf '自由项8
  177. ls_data = ""
  178. ls_xml = ls_xml & "<free9>" & ls_data & "</free9>" + vbCrLf '自由项9
  179. ls_data = ""
  180. ls_xml = ls_xml & "<free10>" & ls_data & "</free10>" + vbCrLf '自由项10
  181. ls_data = ""
  182. ls_xml = ls_xml & "<shouldquantity>" & ls_data & "</shouldquantity>" + vbCrLf '应收(发)数量
  183. ls_data = ""
  184. ls_xml = ls_xml & "<shouldnumber>" & ls_data & "</shouldnumber>" + vbCrLf '应收(发)件数
  185. ls_data = Trim(ds_detail.TextMatrix(i, ))
  186. ls_xml = ls_xml & "<quantity>" & ls_data & "</quantity>" + vbCrLf '数量(主记量数量) 应收(发)数量和数量不能同时为空。
  187. ls_data = Trim(ds_detail.TextMatrix(i, ))
  188. ls_xml = ls_xml & "<cmassunitname>" & ls_data & "</cmassunitname>" + vbCrLf '主记量单位名称
  189. ls_data = ""
  190. ls_xml = ls_xml & "<assitantunit>" & ls_data & "</assitantunit>" + vbCrLf '辅记量单位
  191. ls_data = ""
  192. ls_xml = ls_xml & "<assitantunitname>" & ls_data & "</assitantunitname>" + vbCrLf '辅记量单位名称
  193. ls_data = ""
  194. ls_xml = ls_xml & "<irate>" & ls_data & "</irate>" + vbCrLf '换算率?
  195. ls_data = ""
  196. ls_xml = ls_xml & "<number>" & ls_data & "</number>" + vbCrLf '件数
  197. ls_data = ""
  198. ls_xml = ls_xml & "<price>" & ls_data & "</price>" + vbCrLf '单价
  199. ls_data = ""
  200. ls_xml = ls_xml & "<cost>" & ls_data & "</cost>" + vbCrLf '金额
  201. ls_data = ""
  202. ls_xml = ls_xml & "<plancost>" & ls_data & "</plancost>" + vbCrLf '计划单价?
  203. ls_data = ""
  204. ls_xml = ls_xml & "<planprice>" & ls_data & "</planprice>" + vbCrLf '计划金额?
  205. ls_data = ""
  206. ls_xml = ls_xml & "<serial>" & ls_data & "</serial>" + vbCrLf '批号
  207. ls_data = ""
  208. ls_xml = ls_xml & "<makedate>" & ls_data & "</makedate>" + vbCrLf '生产日期
  209. ls_data = ""
  210. ls_xml = ls_xml & "<validdate>" & ls_data & "</validdate>" + vbCrLf '失效日期)
  211. ls_data = ""
  212. ls_xml = ls_xml & "<transitionid>" & ls_data & "</transitionid>" + vbCrLf '调拨单子表ID号
  213. ls_data = ""
  214. ls_xml = ls_xml & "<subbillcode>" & ls_data & "</subbillcode>" + vbCrLf '发票子表ID
  215. ls_data = ""
  216. ls_xml = ls_xml & "<subpurchaseid>" & ls_data & "</subpurchaseid>" + vbCrLf '采购订单子表ID号
  217. ls_data = Trim(ds_detail.TextMatrix(i, ))
  218. ls_xml = ls_xml & "<position>" & ls_data & "</position>" + vbCrLf '货位
  219. ls_data = ""
  220. ls_xml = ls_xml & "<itemclasscode>" & ls_data & "</itemclasscode>" + vbCrLf '项目大类编码
  221. ls_data = ""
  222. ls_xml = ls_xml & "<itemclassname>" & ls_data & "</itemclassname>" + vbCrLf '项目大类名称
  223. ls_data = Trim(ds_detail.TextMatrix(i, ))
  224. ls_xml = ls_xml & "<itemcode>" & ls_data & "</itemcode>" + vbCrLf '项目编码
  225. ls_data = ""
  226. ls_xml = ls_xml & "<itemname>" & ls_data & "</itemname>" + vbCrLf '项目名称
  227. ls_data = ""
  228. ls_xml = ls_xml & "<define22>" & ls_data & "</define22>" + vbCrLf '表体自定义项22
  229. ls_data = ""
  230. ls_xml = ls_xml & "<define23>" & ls_data & "</define23>" + vbCrLf '表体自定义项23
  231. ls_data = ""
  232. ls_xml = ls_xml & "<define24>" & ls_data & "</define24>" + vbCrLf '表体自定义项24
  233. ls_data = ""
  234. ls_xml = ls_xml & "<define25>" & ls_data & "</define25>" + vbCrLf '表体自定义项25
  235. ls_data = ""
  236. ls_xml = ls_xml & "<define26>" & ls_data & "</define26>" + vbCrLf '表体自定义项26
  237. ls_data = ""
  238. ls_xml = ls_xml & "<define27>" & ls_data & "</define27>" + vbCrLf '表体自定义项27
  239. ls_data = ""
  240. ls_xml = ls_xml & "<define28>" & ls_data & "</define28>" + vbCrLf '表体自定义项28
  241. ls_data = ""
  242. ls_xml = ls_xml & "<define29>" & ls_data & "</define29>" + vbCrLf '表体自定义项29
  243. ls_data = ""
  244. ls_xml = ls_xml & "<define30>" & ls_data & "</define30>" + vbCrLf '表体自定义项30
  245. ls_data = ""
  246. ls_xml = ls_xml & "<define31>" & ls_data & "</define31>" + vbCrLf '表体自定义项31
  247. ls_data = ""
  248. ls_xml = ls_xml & "<define32>" & ls_data & "</define32>" + vbCrLf '表体自定义项32
  249. ls_data = ""
  250. ls_xml = ls_xml & "<define33>" & ls_data & "</define33>" + vbCrLf '表体自定义项33
  251. ls_data = ""
  252. ls_xml = ls_xml & "<define34>" & ls_data & "</define34>" + vbCrLf '表体自定义项34
  253. ls_data = ""
  254. ls_xml = ls_xml & "<define35>" & ls_data & "</define35>" + vbCrLf '表体自定义项35
  255. ls_data = ""
  256. ls_xml = ls_xml & "<define36>" & ls_data & "</define36>" + vbCrLf '表体自定义项36
  257. ls_data = ""
  258. ls_xml = ls_xml & "<define37>" & ls_data & "</define37>" + vbCrLf '表体自定义项37
  259. ls_data = ""
  260. ls_xml = ls_xml & "<subconsignmentid>" & ls_data & "</subconsignmentid>" + vbCrLf '发货单子表ID
  261. ls_data = ""
  262. ls_xml = ls_xml & "<delegateconsignmentid>" & ls_data & "</delegateconsignmentid>" + vbCrLf '委托代销发货单子表
  263. ls_data = ""
  264. ls_xml = ls_xml & "<subproducingid>" & ls_data & "</subproducingid>" + vbCrLf '生产订单子表ID
  265. ls_data = ""
  266. ls_xml = ls_xml & "<subcheckid>" & ls_data & "</subcheckid>" + vbCrLf '检验单子表ID
  267. ls_data = ""
  268. ls_xml = ls_xml & "<cRejectCode>" & ls_data & "</cRejectCode>" + vbCrLf '不良品处理单号
  269. ls_data = ""
  270. ls_xml = ls_xml & "<iRejectIds>" & ls_data & "</iRejectIds>" + vbCrLf '不良品处理单ID
  271. ls_data = ""
  272. ls_xml = ls_xml & "<cCheckPersonCode>" & ls_data & "</cCheckPersonCode>" + vbCrLf '检验员
  273. ls_data = ""
  274. ls_xml = ls_xml & "<dCheckDate>" & ls_data & "</dCheckDate>" + vbCrLf '检验日期
  275. ls_data = ""
  276. ls_xml = ls_xml & "<cCheckCode>" & ls_data & "</cCheckCode>" + vbCrLf '检验单号
  277. ls_data = ""
  278. ls_xml = ls_xml & "<iMassDate>" & ls_data & "</iMassDate>" + vbCrLf '保质期天数
  279. ls_data = ""
  280. ls_xml = ls_xml & "<ioritaxcost>" & ls_data & "</ioritaxcost>" + vbCrLf '不清楚XML中具体含义
  281. ls_data = ""
  282. ls_xml = ls_xml & "<ioricost>" & ls_data & "</ioricost>" + vbCrLf '不清楚XML中具体含义
  283. ls_data = ""
  284. ls_xml = ls_xml & "<iorimoney>" & ls_data & "</iorimoney>" + vbCrLf '不清楚XML中具体含义
  285. ls_data = ""
  286. ls_xml = ls_xml & "<ioritaxprice>" & ls_data & "</ioritaxprice>" + vbCrLf '不清楚XML中具体含义
  287. ls_data = ""
  288. ls_xml = ls_xml & "<iorisum>" & ls_data & "</iorisum>" + vbCrLf '不清楚XML中具体含义
  289. ls_data = ""
  290. ls_xml = ls_xml & "<taxrate>" & ls_data & "</taxrate>" + vbCrLf '不清楚XML中具体含义
  291. ls_data = ""
  292. ls_xml = ls_xml & "<taxprice>" & ls_data & "</taxprice>" + vbCrLf '不清楚XML中具体含义
  293. ls_data = ""
  294. ls_xml = ls_xml & "<isum>" & ls_data & "</isum>" + vbCrLf '不清楚XML中具体含义
  295. ls_data = ""
  296. ls_xml = ls_xml & "<massunit>" & ls_data & "</massunit>" + vbCrLf '保质期单位
  297. ls_data = ""
  298. ls_xml = ls_xml & "<vmivencode>" & ls_data & "</vmivencode>" + vbCrLf '代管商编码
  299. ls_data = ""
  300. ls_xml = ls_xml & "<whpersoncode>" & ls_data & "</whpersoncode>" + vbCrLf '库管员编码
  301. ls_data = ""
  302. ls_xml = ls_xml & "<whpersonname>" & ls_data & "</whpersonname>" + vbCrLf '库管员名称
  303. ls_data = ""
  304. ls_xml = ls_xml & "<batchproperty1>" & ls_data & "</batchproperty1>" + vbCrLf '属性1
  305. ls_data = ""
  306. ls_xml = ls_xml & "<batchproperty2>" & ls_data & "</batchproperty2>" + vbCrLf '属性2
  307. ls_data = ""
  308. ls_xml = ls_xml & "<batchproperty3>" & ls_data & "</batchproperty3>" + vbCrLf '属性3
  309. ls_data = ""
  310. ls_xml = ls_xml & "<batchproperty4>" & ls_data & "</batchproperty4>" + vbCrLf '属性4
  311. ls_data = ""
  312. ls_xml = ls_xml & "<batchproperty5>" & ls_data & "</batchproperty5>" + vbCrLf '属性5
  313. ls_data = ""
  314. ls_xml = ls_xml & "<batchproperty6>" & ls_data & "</batchproperty6>" + vbCrLf '属性6
  315. ls_data = ""
  316. ls_xml = ls_xml & "<batchproperty7>" & ls_data & "</batchproperty7>" + vbCrLf '属性7
  317. ls_data = ""
  318. ls_xml = ls_xml & "<batchproperty8>" & ls_data & "</batchproperty8>" + vbCrLf '属性8
  319. ls_data = ""
  320. ls_xml = ls_xml & "<batchproperty9>" & ls_data & "</batchproperty9>" + vbCrLf '属性9
  321. ls_data = ""
  322. ls_xml = ls_xml & "<batchproperty10>" & ls_data & "</batchproperty10>" + vbCrLf '属性10
  323. ls_data = ""
  324. ls_xml = ls_xml & "<iexpiratdatecalcu>" & ls_data & "</iexpiratdatecalcu>" + vbCrLf '有效期推算方式
  325. ls_data = ""
  326. ls_xml = ls_xml & "<dexpirationdate>" & ls_data & "</dexpirationdate>" + vbCrLf '有效期计算项
  327. ls_data = ""
  328. ls_xml = ls_xml & "<cexpirationdate>" & ls_data & "</cexpirationdate>" + vbCrLf '有效期至
  329. ls_data = ""
  330. ls_xml = ls_xml & "<memory>" & ls_data & "</memory>" + vbCrLf '备注
  331. ls_xml = ls_xml & "</entry>" + vbCrLf
  332. Next i
  333. ls_xml = ls_xml & "</body>" + vbCrLf
  334.  
  335. '增加文件尾相关信息
  336. ls_xml = ls_xml & "</storeout>" + vbCrLf
  337. ls_xml = ls_xml & "</ufinterface>" + vbCrLf
  338. ' Dim xml_document As New DOMDocument
  339. ' xml_document.loadXML (ls_xml)
  340. ' fn2 = App.Path & "\u8_code2.xml"
  341. ' xml_document.save (fn2)
  342. Dim ls_temp As String '接收返回消息,如果成功,返回U8中出库单号,如果失败,返回错误信息
  343. If SendToEAI(ls_xml, ls_temp) Then '成功
  344. MsgBox "上传成功" & ls_temp
  345. Else '失败
  346. MsgBox ls_temp
  347. xml_storeout = False
  348. End If
  349. End Function

作者:王春天 2013-11-03

地址:http://www.cnblogs.com/spring_wang/p/3404620.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语言

    采购订单业务,下面是具体代码与参数说明: 下面调用的通用方法在: http://www.cnblogs.com/spring_wang/p/3393147.html 作者:王春天 2013-10-31 ...

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

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

  4. U811.1接口EAI系列之一-通用访问EAI方法--统一调用EAI公共方法--VB语言

    1.现在做的项目是关于业务系统与U811.1的接口项目. 2.那么就需要调整通过EAI调用生成U8业务单据. 3.下面就一个通用的向U8-EAI传递XML的通用方法 4.肯定有人会问怎么还用VB调用呢 ...

  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. U811.1接口EAI系列之四--委外订单生成--VB语言

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

  8. 单元测试系列之五:Mock工具之Mockito实战

    更多原创测试技术文章同步更新到微信公众号 :三国测,敬请扫码关注个人的微信号,感谢! 原文链接:http://www.cnblogs.com/zishi/p/6780719.html 在实际项目中写单 ...

  9. 给Ajax一个漂亮的嫁衣——Ajax系列之五(下)之序列化和反序列化

    给Ajax一个漂亮的嫁衣——Ajax系列之五(下)之序列化和反序列化 标签: ajaxdictionaryjsonobject服务器function 2012-07-25 18:41 2242人阅读  ...

随机推荐

  1. Mysql中使用Group_Concat将列组合进来。

    一.上例子: ) as CityId,group_concat(stationId) ,NameCn from `wd-area` where type='cn3k' and areaId like ...

  2. innosetup完整脚本

    #define MyAppName "Somarto"#define MyAppVersion "1.0.0"#define MyAppPublisher &q ...

  3. HTTP长连接与短链接

    想要充分了解HTTP长连接,需要首先知道一些基本概念: TCP连接 当网络通信时采用TCP协议时,在真正的读写操作之前,server与client之间必须建立一个连接,当读写操作完成后,双方不再需要这 ...

  4. 算法笔记_227:填写乘法算式(Java)

    目录 1 问题描述 2 解决方案   1 问题描述 观察下面的算式: * * × * * = * * * 它表示:两个两位数字相乘,结果是3位数.其中的星号(*)代表任意的数字,可以相同,也可以不同, ...

  5. 【React Native开发】React Native For Android环境配置以及第一个实例(1)

    年9月15日也公布了ReactNative for Android,尽管Android版本号的项目公布比較迟,可是也没有阻挡了广大开发人员的热情.能够这样讲在2015年移动平台市场上有两个方向技术研究 ...

  6. 修改浏览器Cookie

    Firefox:安装 Web Developer 插件,装完重启之后会出现一排新的工具栏,点击 Cookies -> Add Cookie… 即可增加/修改一个Cookie了. Opera:Op ...

  7. 【Thinking in Java】读书笔记

    转载请注明原文地址:http://www.cnblogs.com/ygj0930/p/6480258.html 第三章:操作符 1:基本数据类型的比较用 ==.!=,引用类型的==.!=是针对地址的比 ...

  8. ACE中的参数截断工具-truncate

    变量截断工具是将类型A变量赋予类型B变量时使用,可自行判断变量是否需要截断,并且自动进行类型转换. 其全部为c实现 其入口为: ACE_Utils::truncate_cast<int> ...

  9. 合并果子(NOIP2004)

    合并果子(NOIP2004)[问题描述]在一个果园里,多多已经将所有的果子打了下来,而且按果子的不同种类分成了不同的堆.多多决定把所有的果子合成一堆.每一次合并,多多可以把两堆果子合并到一起,消耗的体 ...

  10. linux c server and client 简单的通信

    server.c #include <stdlib.h> #include <stdio.h> #include <errno.h> #include <st ...