K3.BOS插件开发记录

获取单据值

String= m_BillInterface.GetFieldValue("字段名", -1, Enu_ValueType_FFLD)

–这里的-1为表索引,-1是表头,一个单据体一个索引
设置单据值

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

–这里的“FText” 并不是字段名,而是K3.BOS插件开发记录_第1张图片
存储数据集

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  //完毕后需要关闭数据集

找不到插件错误:
K3.BOS插件开发记录_第2张图片
或者是插件没注册:
处理方法:cmd-regsvr32 插件绝对地址

你可能感兴趣的:(BOS插件)