voucherbas.bas

来自「用友软件部分代码」· BAS 代码 · 共 40 行

Attribute VB_Name = "voucherBas"
Option Explicit
Public oV As New CVoucher
Public oVd As New Dictionary
Public oUniFind As New Us_ZJPz.clsBill
Public Type CopyInfo
   blnCopy As Boolean
   strYhmc As String
   strYhzh As String
   dblJkje As Double
   strBib As String
   dblHl As Double
   dblBje As Double
   dHkrq As Date
   strLldm As String
   strDbje As String
   strEnter As String
   strJsr As String
   strCad As String
   strDigest As String
   intArtype As Integer
End Type


Public Sub FindFirst(adoRst As adodb.Recordset, sFilter As String)
      Dim Rst As adodb.Recordset
      If Not (adoRst.EOF And adoRst.BOF) Then
            adoRst.MoveFirst
            Set Rst = adoRst.Clone
            Rst.Filter = sFilter
            If Not Rst.EOF Then
                  adoRst.Bookmark = Rst.Bookmark
            Else
                  adoRst.MoveLast
                  adoRst.MoveNext
            End If
      End If
End Sub