通過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 mdlCalllndustryBill. CallBills (5, 1804, 1, 1)/ 單據(jù)調(diào)用/參數(shù)說明事務(wù)類型rrrrnlnterlD :單據(jù) ID_ 查看模式(0：新建；1： EDIT;單據(jù)調(diào)用模式(0：普通；1:單據(jù)調(diào)nRi 1 1 Tvna A4，口 、StatPP :其他參數(shù)，目前主要為B0M使用 sNewBillType :內(nèi)

2、銷or外銷Private m_Bi11Interface As BillEvent Public DeclareFunction GetCurrentProcessId _Lib z/kernel32zz () As Long Public UserName As String PublicUserid As Long Public Function CallBills (ByVai nTranTypeAs Long, _Optional ByVai nlnterlD As Long = 0, _Optional ByVai nShowType As Long = 2, _Optional B

3、yVal 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ù)類型的TypelDIf nBillCls = 0 Then nBillCls 二 GetBill

4、ClsID(nTranType)If nBillCls = 0 ThenMsgBox 單據(jù)系統(tǒng)模板錯誤GoTo lErrorEnd If 注意：此處參數(shù)有改動 If nBillType = 0 ThenSet objBill = CreateObject (/zK3Bills. Bills，z)ElseSet objBill = CreateObject (KSBillsEx. Billsz/)End If Dim dig As ObjectSet dig = CreateObject (/zCSystemDlg. Sys/Z)Dim LocalCnStr As StringDim sSubl

5、D As StringDim sSubName As StringDim IModel As LongDim IModelDetail As Long LocalCnStr = dig. LocalCnn Set dig = Nothing With objBill . LocalCnn = LocalCnStr . SystemName =sSubName . SetOpt Userid, UserName IfNot . SaveVect (1). Lookup (/zsDsn/z) Then . SaveVect (1) (sDsn)= GetConn End If If nlnterl

6、D &It;> 0Then . ListRecordset = SetBillRec (nlnterlD, nTranType) . ListRSFieldVect = SetBillVectEnd If If Len(sNewBi1IType) > 0Then . NewBillTransType = sNewBi1IType Else.NewBillTransType = VBA. CStr(nTranType) End If . Show nBillCls, nShowType Add By ChenLianli 用于判斷是否單 據(jù)改變了 bBi 1

7、IValueChaged 二.BillValueChangedEnd With Set objReturn = objBill. BillReturnSet objBill = NothingCallBills = TrueExit Function lError: If Err. Number &It;> 0 Then MsgBox 據(jù) 調(diào)用出現(xiàn)異常錯誤。 CallBills = FalseSet objBill = NothingEnd Function，取工業(yè)單據(jù)類型IDPrivate Function GetBillClsID(ByVai ITranType As

8、 Long)As LongDim rs As ADODB. RecordsetDim objTemp As ObjectDim strSql As StringOn Error GoTo lErrorstrSql = select FType From ICTra.nsa.ctiontype where fid = & VBA. CStr (ITranType)Set rs = m_BillInterface. K3Lib. GetData(strSql) GetBillClsID = rs. Fields (，F(xiàn)Type，/). ValueSet rs = NothingSe

9、t objTemp = NothingExit FunctionlError: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

10、(/zFISPrimaryz,)二 1 tVect. Add tDictSet tDict = New KFO. Dictionary tDict (/zFColName/z)= FTranType tDict (，F(xiàn)ISPrimary,，)二 3 tVect. Add tDict Set tDict = NothingSet SetBillVect = tVectEnd Function取當(dāng)前數(shù)據(jù)庫連接Public Function GetConnO As StringDim IProc As LongIProc = GetCurrentProcessId()Set spmMgr = Cre

11、ateOb ject (/zPropsMgr. ShareProps/z) If IsObject(spmMgr. GetProperty(IProc, PropsString) Then GetConn = spmMgr. GetProperty (IProc, /zPropsStringz/) Else GetConn = spmMgr. GetProperty (IProc, z/PropsString/z) End If Set spmMgr = Nothing Exit FunctionEnd Function J /III H III III H III III H III III / 設(shè)置選擇單據(jù)信息Private Function SetBillRec (ByVai alnterlD As Long, _ByVai aTranType As Long) As ADODB. Recordset Dim tRec AsADODB. Recordset Set tRec = New ADODB. RecordsettRec. Fields. Append FInterID，adlntegertRec. Fields. Append FTranType, adlnteger tRec. OpentRec. AddNew tRec!Finterid = alnterlD