老单打开指定BOS单
nobliay
1,026次浏览
编辑于2016年11月20日 16:29:39
Set oDataSrv = CreateObject("K3ClassTpl.DataSrv")
oDataSrv.ClassTypeID = 200000014
Set obj = CreateObject("K3SingleClassBill.ClassInfoManager")
With obj
.DataSrv = oDataSrv
.ISNetControl = False
.ISCheckRight = False
.Show , , , dctdata
bOK = .IsOK
oDataSrv.ClassTypeID = 200000014
Set obj = CreateObject("K3SingleClassBill.ClassInfoManager")
With obj
.DataSrv = oDataSrv
.ISNetControl = False
.ISCheckRight = False
.Show , , , dctdata
bOK = .IsOK
推荐阅读