凭证批处理.frm

用友U8财务软件VB源程序, 本版本为2002年版本

VERSION 5.00
Object = "{3733D281-9649-11D2-B757-0080C8883C6B}#1.0#0"; "UFGRIDDB.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{5AD81966-3173-4597-A32E-4F4620DA3B57}#3.4#0"; "U8TBCtl.ocx"
Begin VB.Form frmVouchs 
   Caption         =   "凭证批处理"
   ClientHeight    =   4875
   ClientLeft      =   1770
   ClientTop       =   2205
   ClientWidth     =   7515
   HelpContextID   =   88000054
   Icon            =   "凭证批处理.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   LockControls    =   -1  'True
   MDIChild        =   -1  'True
   ScaleHeight     =   4875
   ScaleWidth      =   7515
   WindowState     =   2  'Maximized
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   2880
      Top             =   3720
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      MaskColor       =   12632256
      _Version        =   393216
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H80000009&
      Height          =   945
      Left            =   0
      ScaleHeight     =   885
      ScaleWidth      =   7455
      TabIndex        =   3
      Top             =   720
      Width           =   7515
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "凭证批处理"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   285
         Left            =   3150
         TabIndex        =   4
         Top             =   300
         Width           =   1515
      End
   End
   Begin MSComctlLib.Toolbar tlbTool 
      Align           =   1  'Align Top
      Height          =   540
      Left            =   0
      TabIndex        =   2
      Top             =   0
      Width           =   7515
      _ExtentX        =   13256
      _ExtentY        =   953
      ButtonWidth     =   820
      ButtonHeight    =   953
      AllowCustomize  =   0   'False
      Wrappable       =   0   'False
      Style           =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   14
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "选择"
            Key             =   "Select"
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "取消"
            Key             =   "Unselect"
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "全选"
            Key             =   "SelectAll"
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "全消"
            Key             =   "UnselectAll"
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "凭证"
            Key             =   "Dovouch"
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "合并"
            Key             =   "combinDo"
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "单据"
            Key             =   "UnionFind"
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "查询"
            Key             =   "find"
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Object.Visible         =   0   'False
            Caption         =   "列表"
            Key             =   "showField"
         EndProperty
         BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "帮助"
            Key             =   "Help"
         EndProperty
         BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "Exit"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.TreeView treStyle 
      Height          =   3135
      Left            =   0
      TabIndex        =   1
      Top             =   1680
      Width           =   2400
      _ExtentX        =   4233
      _ExtentY        =   5530
      _Version        =   393217
      LineStyle       =   1
      Style           =   7
      SingleSel       =   -1  'True
      ImageList       =   "ilsTlb"
      Appearance      =   1
   End
   Begin UFGRIDADOLib.UfGridADO UfGridADO1 
      Height          =   1692
      Left            =   2100
      TabIndex        =   0
      Top             =   1800
      Width           =   2772
      _Version        =   65536
      _ExtentX        =   4890
      _ExtentY        =   2984
      _StockProps     =   253
   End
   Begin MSComctlLib.ImageList ilsTlb 
      Left            =   0
      Top             =   0
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   3
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "凭证批处理.frx":000C
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "凭证批处理.frx":045E
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "凭证批处理.frx":08B0
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin prjTBCtrl.CTBCtrl ocxCtbtool 
      Height          =   660
      Left            =   0
      Top             =   0
      Width           =   1815
      _ExtentX        =   3201
      _ExtentY        =   1164
   End
End
Attribute VB_Name = "frmVouchs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明:凭证批处理
'作者: 赵春立

Option Explicit

Private m_EO As U8FDEso.EntityObject        '当前的数据记录；
Private m_OldEO As U8FDEso.EntityObject        '备份EO；

Public sqlVouchs As String
Public sqlwhere As String
Public showField As String
Public showFieldsCount As Integer

Private rsVouchs As New UfRecordset
Private nFixRows As Long
Private nRows As Long
Private aTemp As clsAllInput
Private m_PzSign As String     '凭证类别 罗涛 2002-07-03
Private NodeKey As Long      '单据类别号
Private DeriverNodeKey As String  '父单据类别号
Private m_Pzpcl As Boolean
Private m_bhbzd As Boolean
Private m_Pzpcl_save As Boolean
'凭证信息
Private Type VouchsInfomation
   oDfMoney As Currency    '贷方金额
   oJfMoney As Currency      '借方金额
   gCode As String         '科目编码
   gEqualCode As String    '对方科目编码 罗涛 2002-07-03
   gCus_id As String       '辅助类
   gDept_id As String      '辅助类
   gItem_Class As String   '辅助类
   gItem_id As String      '辅助类
   gPerson_id As String    '辅助类