新增文章

文章标题分类内容

Private Sub aStock(Row As Long, aType As Long)  '填写【仓库名称】★

aFCustId = m_BillInterface.GetDataFldbyKey("FCustId")("FFLD")    'FCustId  客户名称
    
  '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    aSql = "select a1.F_111,a2.FNumber,a2.FName from t_Item_3001 a1,t_Item a2 where a1.F_111 = a2.FItemID and a1.F_111 > 0 and a1.FItemId = " & aFCustId
    
       Set aRecordset = m_BillInterface.K3Lib.GetData(aSql)
    If Not aRecordset Is Nothing Then
        
        If aType = 1 Then
        
            aFStockId = m_BillInterface.GetDataFldbyKey("FStockId")("FFLD")  'FStockId 仓库名称
            If Len(aFCustId) = 0 Or Len(aFStockId) > 0 Then Exit Sub
            
            m_BillInterface.SetFieldValue "FStockId", aRecordset("FNumber"), i   '【修改值】【核算项目.编码】
        Else
            For i = 1 To m_BillInterface.Data("Page2").UBound                        '【单据体 Page2】行数
                m_BillInterface.SetFieldValue "FStockId", aRecordset("FNumber"), i   '【修改值】【核算项目.编码】
            Next
        End If
    End If
        
    Set aRecordset = Nothing
  '------------------------------------------------------
End Sub

'------------------------------------------------------------------------------------------------------------------------------------------------

Dim oField As K3ClassEvents.BOSField
         Set oField = m_BillInterface.BillEntrys(1).BOSFields("FStockId")  'FStockId 仓库名称
        With oField
            .Row = Row
            .Number = aRecordset("FNumber")  '【修改值】【核算项目.编码】
        End With