| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 327 人关注过本帖
标题:u8 生产订单API接口
只看楼主 加入收藏
ljb8864
Rank: 2
等 级:论坛游民
帖 子:171
专家分:14
注 册:2023-6-4
结帖率:2.78%
收藏
已结贴  问题点数:20 回复次数:2 
u8 生产订单API接口
PARAMETERS ologin as Object ,cHeader_rsdata as String ,cBody_rsdata as String

*!*    LOCAL oConn AS ADODB.Connection,oRs AS ADODB.RecordSet
*!*    PRIVATE  ologin As Object

u8EnvCtx=createobject("UFIDA.U8.U8APIFramework.U8EnvContext") &&数据语境
u8apiBroker=createobject("UFIDA.U8.U8APIFramework.U8ApiComBroker") &&构造单据与数据关联

u8EnvCtx.U8Login=ologin
u8apiBroker.Connect( "U8API/MOrder/MOrderAdd", u8EnvCtx) &&生产订单地址

*!*    strConn1=ologin.UfDbName  &&本地数据库
*!*    domHead=CREATEOBJECT("MSXML2.DOMDocument")
*!*    domBody=CREATEOBJECT("MSXML2.DOMDocument")
domH=CREATEOBJECT("MSXML2.DOMDocument")
domB=CREATEOBJECT("MSXML2.DOMDocument")
*!*    domH.loadXML(cHeader)
*!*    domB.loadXML(cBody)
*!*    domH.save("domU8rkHead.xml")
*!*    domB.save("domU8rkBody.xml")

*!*    ==================================================事务对象BO======================
extbo = broker.GetExtBoEntity("extbo")
extbo.Item(0).SetValue("MoId","1000000001")
extbo.Item(0).SetValue("MoCode","")
extbo.Item(0).SetValue("CreateUser",{^2023-6-17})
extbo.Item(0).SetValue("CreateDate",{^2023-6-17})
extbo.Item(0).SetValue("ModifyUser","")
extbo.Item(0).SetValue("ModifyDate"","")
extbo.Item(0).SetValue("ModifyTime","")


Mom_OrderDetail = extbo.Item(0).SubEntity("Mom_OrderDetail")

*!*    Mom_OrderDetail[0]["DMoClass"] = list.DMoClass
*!*    Mom_OrderDetail[0]["DInvCode"] = list.DInvCode.Trim
*!*    Mom_OrderDetail[0]["DStartDate"] = list.DStartDate.Trim
*!*    Mom_OrderDetail[0]["DDueDate"] = list.DDueDate.Trim
*!*    Mom_OrderDetail[0]["DQty"] = list.DQty
*!*    Mom_OrderDetail[0]["DSortSeq"] = DSortSeq
*!*     

Mom_MoAllocate = Mom_OrderDetail.Item(0).SubEntity("Mom_MoAllocate")
*!*    Mom_MoAllocate[i]["DSortSeq"] = dataRow["SortSeq"]
*!*    Mom_MoAllocate[i]["DOpSeq"] = dataRow["OpSeq
*!*    Mom_MoAllocate[i]["DInvCode"] = dataRow["子件编码
*!*    Mom_MoAllocate[i]["DBaseQtyN"] = dataRow["基本用量_分子
*!*    Mom_MoAllocate[i]["DBaseQtyD"] = dataRow["基本用量_分母
*!*    Mom_MoAllocate[i]["DStartDemDate"] = list.DStartDate.Trim();
搜索更多相关主题的帖子: Item list Trim 订单 dataRow 
2023-09-16 09:59
laowan001
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:66
帖 子:1091
专家分:2682
注 册:2015-12-30
收藏
得分:20 
是用友U8吗?
发这个接口的意思是什么呢?
2023-09-16 16:07
ljb8864
Rank: 2
等 级:论坛游民
帖 子:171
专家分:14
注 册:2023-6-4
收藏
得分:0 
回复 2楼 laowan001
有木有接口写法
2023-09-17 15:10
快速回复:u8 生产订单API接口
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.037857 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved