BOS插件中实现根据对应代码携带出产品编码的示例

栏目:k3wise知识作者:金蝶来源:金蝶云社区发布:2024-09-22浏览:1

BOS插件中实现根据对应代码携带出产品编码的示例

'Chang事件是在每个字段录入值发生变化回车之后触发

'参数@dct发生变化的字段模板,@dctFld发生变化的字段值对象

Private Sub m_BillInterface_Change(ByVal dct As KFO.IDictionary, ByVal dctFld As KFO.IDictionary, ByVal Col As Long, ByVal Row As Long, Cancel As Boolean)

    Dim rs As ADODB.Recordset

    'FMapID为对应代码关键字

    '对对应代码字段录入发生变化做处理

    If dct("FKey") = "FMapID" Then

        '根据对应代码的值查询出相应的产品编号FNumber 


        '注意:实际情况可能获取单据上输入的客户或者供应商ID来组合查询过滤

        Set rs = m_BillInterface.K3Lib.GetData("SELECT t2.FNumber FROM ICItemMapping t1 INNER JOIN t_ICItem t2 ON t1.FItemID=t2.FItemID WHERE FMapNumber='" & dctFld("FFND") & "'")

        If Not rs.EOF Then

            '将查出的产品编码赋值到界面上去(FItemID为产品编号字段关键字)

            m_BillInterface.SetFieldValue "FItemID", rs("FNumber"), Row

        End If

        Set rs = Nothing

    End If

End Sub


BOS插件中实现根据对应代码携带出产品编码的示例

'Chang事件是在每个字段录入值发生变化回车之后触发'参数@dct发生变化的字段模板,@dctFld发生变化的字段值对象Private Sub m_BillInterf...
点击下载文档
确认删除?
回到顶部
客服QQ
  • 客服QQ点击这里给我发消息