通過K3BOS新單插件調(diào)用老單單據(jù)的插件代碼能正確新增工業(yè)單據(jù)

1、通過 K3 BOS 新單插件調(diào)用老單單據(jù)的插件代碼能正確新增工業(yè)單據(jù)通過 K3 BOS 新單插件調(diào)用老單單據(jù)的插件代碼能正 確新增工業(yè)單據(jù)，但如何在調(diào)用的時候往單據(jù)中符值呢？下面是新單插件調(diào)用老單單據(jù)的插件，你可以參照此方法， 在老單插件中調(diào)用。 Call mdlCallIndustryBill.CallBills（5, 1804, 1, 1）/ 單據(jù)調(diào)用 / 參數(shù)說明 nTranType :事務(wù)類型nInterID : 單據(jù) ID nShowType :查看模式 （0：新建； 1：EDIT; 2:View） nBillType :單據(jù)調(diào)用模式 （0: 普通； 1：單據(jù)調(diào)單據(jù) ） StateP

2、arm :其他參數(shù)，目前主要為 BOM 使用sNewBillType : nSaleMode :內(nèi)銷 or 外銷Private m_BillInterface As BillEvent Public DeclareFunction GetCurrentProcessId _Lib kernel32 () As Long Public UserName As String Public UserId As Long Public Function CallBills(ByVal nTranType As Long, _Optional ByVal nInterID As Long = 0, _O

3、ptional ByVal nShowType As Long = 2, _Optional ByVal nBillType As Long = 0, _Optional StateParm As Object, _Optional ByVal sNewBillType As String = , _Optional ByVal nSaleMode As Long = 0) As BooleanDim objBill As ObjectDim nBillCls As Long 事務(wù)類別 ( ICTransactiontype.FType )On Error GoTo lError 得到單據(jù)事務(wù)

4、類型的 TypeIDIf nBillCls = 0 Then nBillCls = GetBillClsID(nTranType)If nBillCls = 0 ThenMsgBox 單據(jù)系統(tǒng)模板錯誤 GoTo lErrorEnd If 注意：此處參數(shù)有改動 If nBillType = 0 ThenSet objBill = CreateObject(K3Bills.Bills)ElseSet objBill = CreateObject(K3BillsEx.Bills)End If Dim dlg As ObjectSet dlg = CreateObject(CSystemDlg.Sys

5、)Dim LocalCnStr As StringDim sSubID As StringDim sSubName As StringDim lModel As LongDim lModelDetail As Long LocalCnStr = dlg.LocalCnn Set dlg = Nothing With objBill .LocalCnn = LocalCnStr .SystemName = sSubName .SetOpt UserId, UserName If Not .SaveVect(1).Lookup(sDsn) Then .SaveVect(1)(sDsn) = Get

6、Conn End If If nInterID <> 0 Then .ListRecordset = SetBillRec(nInterID, nTranType) .ListRSFieldVect = SetBillVectEnd If If Len(sNewBillType) > 0 Then .NewBillTransType = sNewBillType Else.NewBillTransType = VBA.CStr(nTranType) End If .Show nBillCls, nShowType Add By ChenLianli 用

7、于判斷是否單據(jù)改變了 bBillValueChaged = .BillValueChangedEnd With Set objReturn = objBill.BillReturnSet objBill = NothingCallBills = TrueExit FunctionlError: If Err.Number <> 0 Then MsgBox 據(jù)調(diào)用出現(xiàn)異常錯誤。 CallBills = FalseSet objBill = NothingEnd Function取工業(yè)單據(jù)類型 IDPrivate Function GetBillClsID(ByVal

8、lTranType As Long)As LongDim rs As ADODB.RecordsetDim objTemp As ObjectDim strSql As StringOn Error GoTo lErrorstrSql = select FType From ICTransactiontype where fid = & VBA.CStr(lTranType)Set rs = GetBillClsID = rs.Fields(FType).ValueSet rs = NothingSet objTemp = NothingExit FunctionlError:

9、Set rs = NothingSet objTemp = NothingGetBillClsID = 0End Function Private Function SetBillVect() As KFO.Vector Dim tVect As KFO.VectorSet tVect = New KFO.VectorDim tDict As KFO.Dictionary Set tDict = New KFO.Dictionary tDict(FColName) = FInterID tDict(FISPrimary) = 1 tVect.Add tDictSet tDict = New K

10、FO.Dictionary tDict(FColName) = FTranType tDict(FISPrimary) = 3 tVect.Add tDictSet tDict = NothingSet SetBillVect = tVectEnd Function 取當(dāng)前數(shù)據(jù)庫連接Public Function GetConn() As StringDim lProc As LonglProc = GetCurrentProcessId()Set spmMgr = CreateObject(PropsMgr.ShareProps) If IsObject(spmMgr.GetProperty

11、(lProc, PropsString) Then GetConn = spmMgr.GetProperty(lProc, PropsString) ElseGetConn = spmMgr.GetProperty(lProc, PropsString) End If Set spmMgr = NothingExit FunctionEnd Function / 設(shè)置選擇單據(jù)信息 /Private Function SetBillRec(ByVal aInterID As Long, _ ByVal aTranType As Long) As ADODB.Recordset Dim tRec As ADODB.Recordset Set tRec = = aInterID tRec!FTran