BOS
单据外部接口调用说明
1
、
BOS
单据外部保存接口
'********************************************
'
功能:
BOS
单据外部保存接口
'
参数:
lClassTypeID-BOS
单据类型
ID
'********************************************
PrivateSubNoUISaveBill(ByVallClassTypeIDAsLong)
DimoDataSrvAsObject
DimoTableInfoAsObject
DimoDataAsObject
DimoSrvAsObject
DimoPage2AsObject
DimiAsLong
DimsDsnAsString
'
连接串
DimlMaxEntryIDAsLong
OnErrorGoToerr_ctr
'
初始化
BOS
单据对象
SetoDataSrv=CreateObject("K3ClassTpl.DataSrv")
oDataSrv.ClassTypeID=lClassTypeID
SetoTableInfo=oDataSrv.TableInfo
'
获取
BOS
单据空的数据包
SetoData=oDataSrv.GetEmptyBill
'
表体分录数
lMaxEntryID=10
Fori=1TolMaxEntryID-1
SetoPage2=oData("Page2")(1).CloneAll
oData("Page2").AddoPage2'
添加到
dcData
oData("Page2")(i+1)("_-0001_FIndex2")("FFLD")=i+1'
更改分录号
Next
'
表头字段赋值
,FInteger
字段名
oData("Page1")(oTableInfo("map")("FInteger"))("FFLD")=10
'
表体字段赋值
Fori=1TolMaxEntryID
'
表体分录数据赋值;以基础资料类型字段物料为例
oData("Page2")(i)(oTableInfo("map")("FBase"))("FFLD")=2374
'
保存值
oData("Page2")(i)(oTableInfo("map")("FBase"))("FFND")="1"
'
查找值
oData("Page2")(i)(oTableInfo("map")("FBase"))("FDSP")="Test"
'
显示值
'
以常用字段数量为例