K3.BOS外掛開發記錄

慕容奇櫻發表於2016-08-26

獲取單據值

String= m_BillInterface.GetFieldValue("欄位名", -1, Enu_ValueType_FFLD)

–這裡的-1為表索引,-1是表頭,一個單據體一個索引
設定單據值

m_BillInterface.SetFieldValue "FText", strICMONumber(填寫的值)

–這裡的“FText” 並不是欄位名,而是是這裡的名稱字尾 FText
儲存資料集

strSql = "EXEC STKD_P_Position"\\sql語句
rsTemp.CursorLocation = adUseClient
Set rsTemp = m_BillInterface.K3Lib.GetData(strSql)
        If rsTemp("FID") = 1000 Then
            MsgBox rsTemp("FID").Value, vbCritical, "金蝶提示"
            rsTemp.Close
            Exit Sub
        End If

\\rsTemp("FID") 列值

遍歷資料集,然後逐行插入

rsTemp.MoveFirst
            For i = 1 To rsTemp.RecordCount
                m_BillInterface.InsertNewRowAndFill 4, i, "FText2", rsTemp("FName").Value
                //這裡來的4 是索引第四個單據體,i 暫時未知何意
                rsTemp.MoveNext
                Next i
        rsTemp.Close  //完畢後需要關閉資料集

找不到外掛錯誤:
這裡寫圖片描述
或者是外掛沒註冊:
處理方法:cmd-regsvr32 外掛絕對地址

相關文章