新增文章

文章标题分类内容

当前行数 = 单据体总行数 且 输入的 物料代码 = 1.01.100-0088-000P  且  数量 > 0 ，在这行的下面插入5行 并 填写 物料，数量

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 sValue As String
    Dim sItemNumber As String
    Dim dbQty As Double

If Row = m_BillInterface.Data("page2").Size Then  '当前行数 = 单据体总行数
    
        sValue = m_BillInterface.Data("page2")(Row)(m_BillInterface.TableInfo("Map")("FBase4"))("FFND")  '当前行 物料.代码
        If Len(sValue) > 0 Then
           sItemNumber = sValue
        Else
            Exit Sub  '退出 Sub 程序
        End If
        
        sValue = m_BillInterface.Data("page2")(Row)(m_BillInterface.TableInfo("Map")("FQty"))("FFLD")  '当前行 数量.值
        If Len(sValue) > 0 And IsNumeric(sValue) Then
            dbQty = CDbl(sValue)
        Else
            Exit Sub
        End If

If sItemNumber = "1.01.100-0088-000P" And dbQty > 0 Then  '物料代码 = 1.01.100-0088-000P  +  数量 > 0
        
            m_BillInterface.InsertNewRowAndFill 2, Row + 1, "FBase4", "1.01.100-0088-001", "FQty", dbQty * 2  '插入新行 填写数据 2, = page2 / Row + 1 行号 / "FBase4", "1.01.100-0088-001" 字段Key 字段值 / "FQty", dbQty * 2  字段Key 字段值
            m_BillInterface.InsertNewRowAndFill 2, Row + 2, "FBase4", "1.01.100-0088-002", "FQty", dbQty * 2
            m_BillInterface.InsertNewRowAndFill 2, Row + 3, "FBase4", "1.01.100-0088-003", "FQty", dbQty * 1
            m_BillInterface.InsertNewRowAndFill 2, Row + 4, "FBase4", "1.01.100-0088-004", "FQty", dbQty * 1
            m_BillInterface.InsertNewRowAndFill 2, Row + 5, "FBase4", "1.01.100-0088-005", "FQty", dbQty * 1
        End If
    End If
End Sub