通过K3 BOS 新单插件调用老单单据的插件代码能正确新增工业单据

《通过K3 BOS 新单插件调用老单单据的插件代码能正确新增工业单据》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、通过K3BOS新单插件调用老单单据的插件代码能正确新增工业单据，但如何在调用的时候往单据中符值呢？2009-04-1614:57通过K3BOS新单插件调用老单单据的插件代码能正确新增工业单据，但如何在调用的时候往单据中符值呢？下面是新单插件调用老单单据的插件，你可以参照此方法，在老单插件中调用。'CallmdlCallIndustryBill.CallBills(5,1804,1,1)'////////////////////////////单据调用///////////////////////////////////////'参数说明'nTranType:事务

2、类型'nInterID:单据ID'nShowType:查看模式（0：新建；1：EDIT;2:View)'nBillType:单据调用模式(0:普通；1：单据调单据)'StateParm:其他参数，目前主要为BOM使用'sNewBillType:'nSaleMode:内销or外销Privatem_BillInterfaceAsBillEventPublicDeclareFunctionGetCurrentProcessId_Lib"kernel32"()AsLongPublicUserNameAsStringPublicUserIdAsLongPublicFunc

3、tionCallBills(ByValnTranTypeAsLong,_OptionalByValnInterIDAsLong=0,_OptionalByValnShowTypeAsLong=2,_OptionalByValnBillTypeAsLong=0,_OptionalStateParmAsObject,_OptionalByValsNewBillTypeAsString="",_OptionalByValnSaleModeAsLong=0)AsBooleanDimobjBillAsObjectDimnBillClsAsLong'事务类别（ICTrans

4、actiontype.FType）OnErrorGoTolError'得到单据事务类型的TypeIDIfnBillCls=0ThennBillCls=GetBillClsID(nTranType)IfnBillCls=0ThenMsgBox"单据系统模板错误"GoTolErrorEndIf'-----------------注意：此处参数有改动--------------------'IfnBillType=0ThenSetobjBill=CreateObject("K3Bills.Bills")ElseSetobjBill=CreateObject("K3Bi

5、llsEx.Bills")EndIf'-------------------------------------------------------'DimdlgAsObjectSetdlg=CreateObject("CSystemDlg.Sys")DimLocalCnStrAsStringDimsSubIDAsStringDimsSubNameAsStringDimlModelAsLongDimlModelDetailAsLongLocalCnStr=dlg.LocalCnnSetdlg=NothingWithobjBill.LocalCnn=LocalCn

6、Str.SystemName=sSubName.SetOptUserId,UserNameIfNot.SaveVect(1).Lookup("sDsn")Then.SaveVect(1)("sDsn")=GetConnEndIfIfnInterID<>0Then.ListRecordset=SetBillRec(nInterID,nTranType).ListRSFieldVect=SetBillVectEndIfIfLen(sNewBillType)>0Then.NewBillTransType=sNewBillTypeElse.NewBil

7、lTransType=VBA.CStr(nTranType)EndIf.ShownBillCls,nShowType''AddByChenLianli用于判断是否单据改变了'bBillValueChaged=.BillValueChangedEndWith'SetobjReturn=objBill.BillReturnSetobjBill=NothingCallBills=TrueExitFunctionlError:IfErr.Number<>0ThenMsgBox"单据调用出现异常错误。"CallBills=FalseSetobjBill=Not

8、hingEndFunct