对帐单.frm

财务信息管理系统,适合做毕业论文的人使用

         Width           =   450
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "第"
         Height          =   180
         Index           =   4
         Left            =   7260
         TabIndex        =   8
         Top             =   540
         Width           =   180
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "页"
         Height          =   180
         Index           =   5
         Left            =   7950
         TabIndex        =   7
         Top             =   540
         Width           =   180
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Height          =   180
         Index           =   0
         Left            =   930
         TabIndex        =   6
         Top             =   540
         Width           =   90
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Height          =   180
         Index           =   1
         Left            =   930
         TabIndex        =   5
         Top             =   780
         Width           =   90
      End
      Begin VB.Label Label2 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Height          =   180
         Index           =   2
         Left            =   6870
         TabIndex        =   4
         Top             =   540
         Width           =   360
      End
      Begin VB.Label Label0 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   -1  'True
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H8000000D&
         Height          =   285
         Left            =   3960
         TabIndex        =   2
         Top             =   360
         Width           =   150
      End
   End
   Begin ComctlLib.ImageList ImageList1 
      Left            =   3690
      Top             =   3270
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      MaskColor       =   12632256
      _Version        =   327682
   End
End
Attribute VB_Name = "frmRdzd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金计息8.0
'功能说明: 对账单
'作者: 赵春立

Option Explicit

'***对账单查询结果中的账户号，月份，起始页
Public strAccID As String
Public lngMonth As Long
Public lngYear As Long
Public lngPageFrom As Long
Public lngPageTo As Long

'***月份 lngMonth 的月初及月末时间
Private datFrom As Date
Private datTo As Date
   
'***显示及打印结果集
Private rsDisplay As New UfRecordset
Private rsPrint As New UfRecordset

'***每页显示的行数
Private LinesPerPage As Long

'***数据来源：0-资金；1-账务
Private iDataSource  As Integer
Private ZhDir        As Long

'***余额
Private dzdMb As Double
Private dzdMb_f As Double 'cuidong 对账单+外币 2001.12.04

'***批打印或打印的账户
Private prnAccID() As String

Private aTemp As clsAllInput

Public sqlBillFind As String
Public sqlBillFindPg As String
Public iFindtype As Long

'***最大显示行，MSFLXGRD容量受限
Private nMaxRows As Long

'***标题行数
Private nFixRows As Long
'联查外部凭证
Private pzDzd As LcwbPzInfo

'打印与批打
Private WithEvents mPrns As frmRdzdPrns
Attribute mPrns.VB_VarHelpID = -1
Private WithEvents mPrn As frmRdzdPrn
Attribute mPrn.VB_VarHelpID = -1
Private blnPrn As Boolean
Private blnMend As Boolean
Private blnCont As Boolean 'cuidong 2001.09.18

Private blnSinglePrn As Boolean
Private lngPrnPf As Long
Private lngPrnPt As Long

'********************************************************************
'*函数说明: 内部账户的SQL语句                                         *
'*参    数:                                                          *
'*                                                                   *
'*返回值  : 内部账户 SQL 语句                                         *
'*********************************************************************
Private Function Nbzh_sql(dqjszh As String) As String
   Dim sqlItem As String
   
   'cuidong DZD 2001.11.02
   '---------------------------------------------------------
   
'   sqlItem = "SELECT transactions_id, Year([dbill_date]) AS Field0, Month([dbill_date]) " & _
'         "AS Field1, Day([dbill_date]) AS Field2, [cCreID] AS Field3, " & _
'         "[cDigest] AS Field4, [mmoney] AS Field5, 0 AS Field6 FROM " & _
'         "FD_Cred WHERE [cAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cRetID], [cDigest], 0, [mmoney] FROM " & _
'         "FD_Return WHERE [cAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cCraID], [cDigest], 0, [mmoney] FROM " & _
'         "FD_CreAcrRcp WHERE [cAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cUnwID], [cDigest], [mmoney], 0 FROM " & _
'         "FD_UnwDeb WHERE [cGAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cUnwID], [cDigest], 0, [mmoney] FROM " & _
'         "FD_UnwDeb WHERE [cPAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cRetID], [cDigest], [mmoney], 0 FROM " & _
'         "FD_UnwRet WHERE [cGAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cRetID], [cDigest], 0, [mmoney] FROM " & _
'         "FD_UnwRet WHERE [cPAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cUnaID], [cDigest], [mmoney], 0 FROM " & _
'         "FD_UnwAcrRcp WHERE [cGAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cUnaID], [cDigest], 0, [mmoney] FROM " & _
'         "FD_UnwAcrRcp WHERE [cPAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cSetID], [cDigest], [mmoney], 0 FROM " & _
'         "FD_SettAcc WHERE [cGAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & _
'         "' AND [cBookCode] IS NOT NULL AND Left([cSetID],2)='15' "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cSetID], [cDigest], 0, [mmoney] FROM " & _
'         "FD_SettAcc WHERE [cPAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & _
'         "' AND [cBookCode] IS NOT NULL AND Left([cSetID],2)='15' "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cSetID], [cDigest], (case when [igp_flag]=0 then [mmoney] else 0 end), (case when [igp_flag]=0 then 0 else [mmoney] end) FROM " & _
'         "FD_SettAcc WHERE [cGAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & _
'         "' AND [cBookCode] IS NOT NULL AND Left([cSetID],2)='14' "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cSetID], [cDigest], (case when [igp_flag]=0 then [mmoney] else 0 end), (case when [igp_flag]=0 then  0 else [mmoney] end) FROM " & _
'         "FD_SettAcc WHERE [cPAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & _
'         "' AND [cBookCode] IS NOT NULL AND Left([cSetID],2)='14' "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cCarID], [cDigest], [mmoney], 0 FROM " & _
'         "FD_CadAcr WHERE [cGAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [iDanType]=0 AND [cBookCode] IS NOT NULL "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cCarID], [cDigest], 0, [mmoney] FROM " & _
'         "FD_CadAcr WHERE [cPAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [iDanType]=0 AND [cBookCode] IS NOT NULL "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cSavID], [cDigest], [mmoney], 0 FROM " & _
'         "FD_Sav WHERE [cAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cFetID], [cDigest], 0, [mmoney] FROM " & _
'         "FD_Fetch WHERE [cAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
'   sqlItem = sqlItem & "ORDER BY Field0, Field1, Field2"
   
   'cuidong 2001.12.06
   '---------------------------------------------
'   sqlItem = "SELECT transactions_id, Year([dbill_date]) AS Field0, Month([dbill_date]) " & _
'         "AS Field1, Day([dbill_date]) AS Field2, [cCreID] AS Field3, " & _
'         "[cDigest] AS Field4, [mmoney] AS Field5, 0 AS Field6 FROM " & _
'         "FD_Cred WHERE [cAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cRetID], [cDigest], 0, [mmoney] FROM " & _
'         "FD_Return WHERE [cAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cCraID], [cDigest], 0, [mmoney] FROM " & _
'         "FD_CreAcrRcp WHERE [cAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cUnwID], [cDigest], [mmoney], 0 FROM " & _
'         "FD_UnwDeb WHERE [cGAccID]='" & dqjszh & "' AND [dbill_date]>='" & _
'         FormatDate(datFrom) & "' AND [dbill_date]<='" & FormatDate(datTo) & "' AND [cBookCode] IS NOT NULL "
'   sqlItem = sqlItem & "UNION ALL SELECT transactions_id, Year([dbill_date]), Month([dbill_date]), " & _
'         "Day([dbill_date]), [cUnwID], [cDigest], 0, [mmoney] FROM " & _
'         "FD_UnwDeb WHERE [cPAccID]='" & dqjszh & "' AND [dbill_date]>='" & _