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++接口定义及实现举例
    [转]关于模板函数/模板类编译成DLL
    [转]游戏程序员要求
    [转]如何定位Release程序崩溃原因
    [转]对0基础MFC者的一点建议
    [转]链接警告 LNK4098
    动态调用WCF
    动态添加删除WCF服务类包
    将Xaml文档转成XPS文档[转]
  • 原文地址:https://www.cnblogs.com/swallow123/p/5327997.html
Copyright © 2011-2022 走看看