新增文章

文章标题分类内容

'【送货单 210001202】【客户端插件】

' 选单后，调用值更新事件：自动填写 物料.默认仓库  物料.库存单位  销售金额=销售数量x销售单价

Private WithEvents m_BillInterface  As BillEvent  '定义 BillEvent 接口. 必须具有的声明, 以此来获得事件
 
Public Sub Show(ByVal oBillInterface As Object)  'BillEvent 接口实现  '注意: 此方法必须存在, 请勿修改
 
    Set m_BillInterface = oBillInterface
End Sub

Private Sub Class_Terminate()  '释放接口对象   '注意: 此方法必须存在, 请勿修改
    
    Set m_BillInterface = Nothing
End Sub

Private Sub m_BillInterface_AfterSelBillBeforeFillData(ByVal dcData As KFO.IDictionary, ByVal dctLink As KFO.IDictionary)   '选单事件 ★
 
    Dim aSelDat As KFO.Vector:  Set aSelDat = dcData("SelDat")
    
    Dim aFClassTypeID As String:    aFClassTypeID = aSelDat(1)("FClassTypeID")   'aSelDat(1) 选中的 第1行 数据，里面只有 4个字段
    Dim aFEntryId As String:        aFEntryId = aSelDat(1)("FEntryID")
    Dim aFID As String:             aFID = aSelDat(1)("FID")
    Dim aFIndex As String:          aFIndex = aSelDat(1)("FIndex")
    
    If aFClassTypeID <> "210001401" Then Exit Sub  '源单 不是 生产任务单，退出
  '------------------------------------------------------------------------------------------------------------------------------------------------
    
    Dim oField As K3ClassEvents.BOSField
    
    For i = 1 To dcData("Page2").UBound '【目标单据体】Page2 行数

'------------------------------------------------------------------------------------------------------------------------------------------------
        aFItemId = dcData("page2")(i)(m_BillInterface.TableInfo("Map")("FItemId"))("FFLD")  '【字段值】 品名 FItemId
        
        aSql = "select a1.FItemID,a1.FName FItemName,a2.FNumber FStockNo,a2.FName FStockName ,a3.FNumber FUnitNo,a3.FName FUnitName from t_ICItem a1 join t_Item a2 on a1.FDefaultLoc = a2.FItemID join t_Item a3 on a1.FStoreUnitID = a3.FItemID  where a1.FItemId = " & aFItemId
        
        Set aRecordset = m_BillInterface.K3Lib.GetData(aSql)
        
        aFStockNo = aRecordset("FStockNo")   '【字段值】 仓库名称 FStockId
        aFUnitNo = aRecordset("FUnitNo")     '【字段值】 库存单位 FUnitStock

'------------------------------------------------------------------------------------------------------------------------
         Set oField = m_BillInterface.BillEntrys(1).BOSFields("FStockId")  '仓库名称 FStockId
        With oField
            .Row = i
            .Number = aFStockNo  '【填写】仓库名称 FStockId
        End With
        
   '------------------------------------------------------------------------------------------------------------------------
         Set oField = m_BillInterface.BillEntrys(1).BOSFields("FUnitStock")  '库存单位 FUnitStock
        With oField
            .Row = i
            .Number = aFUnitNo  '【填写】库存单位 FUnitStock
        End With
        
   '------------------------------------------------------------------------------------------------------------------------
        m_BillInterface.DoAction "FQty", i    '【调用值更新】 FQtySale 销售数量
        
    Next
    
    Set aSelDat = Nothing
    Set oField = Nothing
    Set aRecordset = Nothing

End Sub

'   m_BillInterface.DoAction "FBase3", i  '调用值更新 【物料代码】FBase3
'
'   m_BillInterface.InsertNewRowAndFill 2, i  '插入行 2 = Page2
'
'   m_BillInterface.SetFieldValue "FText3", aValue, i  '【填写数值】 FText2  合同号  FOrderNoCust