zoukankan      html  css  js  c++  java
  • 工业单据

    工业单据如何执行sql 语句(三种方法):

      1.Set rs = SQLHelper.ExecuteSQL(strSQL, "")

      2.   

    Private obj   As New K3ClassEvents.BillEvent
    Set rs = obj.K3Lib.GetData(sql)
    

     3.

    rs.Open sql, m_BillTransfer.Cnnstring, 1, 1
    

    工业单据获取最大行:

    '*****************************************
    '获取分录行数
    '*****************************************
    Public Function GetEntryMax() As Long
    Dim k As Long
    Dim iFItemID As Long
    Dim oEntryCtl As Variant
    Dim maxrow As Long '最大行'
    
    For k = LBound(m_BillTransfer.EntryCtl) To UBound(m_BillTransfer.EntryCtl)
       If UCase(m_BillTransfer.EntryCtl(k).FieldName) = UCase("FItemID") Then '物料代码所在列
         iFItemID = k
         Exit For
       End If
    Next k
    
    oEntryCtl = m_BillTransfer.EntryCtl
    maxrow = UBound(oEntryCtl(iFItemID).DInterID) '获取表体最大行
    GetEntryMax = maxrow
    End Function
    
    工业单据 获取某个字段所在的序号
    '获取工序汇报单单据头上 生产任务单号 工序计划单号 工序号 物料内码
           
            '获取工序汇报单单据头上 生产任务单号 工序计划单号 工序号 物料内码
            Dim i As Integer
            For i = LBound(m_BillTransfer.HeadCtl) To UBound(m_BillTransfer.HeadCtl)
            
                 '生产任务单单号
                If (m_BillTransfer.HeadCtl(i).FieldName = "FICMONO") Then
                
                    FICMONO = m_BillTransfer.GetHeadText(i)
                   
                End If
                '工序计划单号
                If (m_BillTransfer.HeadCtl(i).FieldName = "FWBNO") Then
                   
                   FWBNO = m_BillTransfer.GetHeadText(i)
                  
                End If
                '工序号
                If (m_BillTransfer.HeadCtl(i).FieldName = "FOperID") Then
                   FOPERNO = m_BillTransfer.GetHeadText(i)
                End If
                
                 '物料代码
                If (m_BillTransfer.HeadCtl(i).FieldName = "FItemID") Then
                   FNumber = m_BillTransfer.GetHeadNumber(i)
                End If
            Next
            '获取当前单据体上的合计数量
            Dim iFItemID As Integer
            For k = LBound(m_BillTransfer.EntryCtl) To UBound(m_BillTransfer.EntryCtl)
                If UCase(m_BillTransfer.EntryCtl(k).FieldName) = UCase("FAuxQtyfinish") Then '物料代码所在列
                    iFItemID = k
                    Exit For
                End If
            Next k
    
              
  • 相关阅读:
    C++ malloc 和 new 的函数说明
    C++ const 和static的总结以及使用
    动态库与静态库的区别
    C++引用和指针的区别
    gdb的调试常用命令
    FFMPEG的函数翻译文档
    STL在数组算法的使用
    iOS开发 给Label加下划线、中划线
    更改字符串颜色(长度不确定,有服务器返回)
    iOS 获取键盘高度
  • 原文地址:https://www.cnblogs.com/swallow123/p/5327997.html
Copyright © 2011-2022 走看看