企业管理

开发平台：
Visual Basic

：源码内容
							VERSION 5.00
Object = "{BEEECC20-4D5F-4F8B-BFDC-5D9B6FBDE09D}#1.0#0"; "vsflex8.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form PZ_FrmNoteList 
   Caption         =   "单据列表"
   ClientHeight    =   8595
   ClientLeft      =   315
   ClientTop       =   390
   ClientWidth     =   11820
   HelpContextID   =   5001
   Icon            =   "制作凭证_应付票据列表.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   8595
   ScaleWidth      =   11820
   WindowState     =   2  'Maximized
   Begin MSComctlLib.Toolbar GsToolbar 
      Height          =   525
      Left            =   9330
      TabIndex        =   3
      Top             =   30
      Width           =   2475
      _ExtentX        =   4366
      _ExtentY        =   926
      ButtonWidth     =   1455
      ButtonHeight    =   926
      Appearance      =   1
      Style           =   1
      ImageList       =   "ImageList2"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   3
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "保存格式"
            Key             =   "bcgs"
            ImageKey        =   "bcgs"
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "默认列宽"
            Key             =   "hfmrgs"
            ImageKey        =   "mrlk"
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "显示项目"
            Key             =   "szxsxm"
            ImageKey        =   "xsxm"
         EndProperty
      EndProperty
   End
   Begin VB.PictureBox Pic_Title 
      Height          =   1125
      Left            =   0
      Picture         =   "制作凭证_应付票据列表.frx":1042
      ScaleHeight     =   1065
      ScaleWidth      =   11715
      TabIndex        =   1
      Top             =   570
      Width           =   11775
      Begin MSComctlLib.ImageList ImageList1 
         Left            =   8370
         Top             =   0
         _ExtentX        =   1005
         _ExtentY        =   1005
         BackColor       =   -2147483643
         ImageWidth      =   16
         ImageHeight     =   16
         MaskColor       =   12632256
         _Version        =   393216
         BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
            NumListImages   =   10
            BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":35106
               Key             =   "bz"
            EndProperty
            BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":354A0
               Key             =   "tc"
            EndProperty
            BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3583A
               Key             =   "bcgs"
            EndProperty
            BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":35BD4
               Key             =   "mrlk"
            EndProperty
            BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":35F6E
               Key             =   "xsxm"
            EndProperty
            BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":36308
               Key             =   "allcancel"
            EndProperty
            BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":366A2
               Key             =   "unit"
            EndProperty
            BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":36A3C
               Key             =   "allselect"
            EndProperty
            BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":36DD6
               Key             =   "filter"
            EndProperty
            BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":37170
               Key             =   "run"
            EndProperty
         EndProperty
      End
      Begin VB.Label LabDate 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "labdate"
         Height          =   195
         Left            =   1050
         TabIndex        =   6
         Top             =   780
         Width           =   525
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "日期:"
         Height          =   195
         Left            =   510
         TabIndex        =   5
         Top             =   780
         Width           =   765
      End
      Begin VB.Label Lab_Title 
         AutoSize        =   -1  'True
         BackColor       =   &H80000018&
         BackStyle       =   0  'Transparent
         Caption         =   "单据列表"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   240
         Index           =   4
         Left            =   510
         TabIndex        =   2
         Top             =   210
         Width           =   1020
      End
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1
      Left            =   8970
      Top             =   630
   End
   Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
      Height          =   7305
      Left            =   30
      TabIndex        =   0
      Top             =   1710
      Width           =   11775
      _cx             =   5080
      _cy             =   5080
      Appearance      =   1
      BorderStyle     =   1
      Enabled         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      MousePointer    =   0
      BackColor       =   16777215
      ForeColor       =   -2147483640
      BackColorFixed  =   13826538
      ForeColorFixed  =   -2147483630
      BackColorSel    =   -2147483635
      ForeColorSel    =   -2147483634
      BackColorBkg    =   -2147483636
      BackColorAlternate=   16777215
      GridColor       =   -2147483633
      GridColorFixed  =   -2147483632
      TreeColor       =   -2147483632
      FloodColor      =   192
      SheetBorder     =   -2147483642
      FocusRect       =   1
      HighLight       =   1
      AllowSelection  =   -1  'True
      AllowBigSelection=   -1  'True
      AllowUserResizing=   0
      SelectionMode   =   0
      GridLines       =   1
      GridLinesFixed  =   2
      GridLineWidth   =   1
      Rows            =   50
      Cols            =   10
      FixedRows       =   1
      FixedCols       =   1
      RowHeightMin    =   0
      RowHeightMax    =   0
      ColWidthMin     =   0
      ColWidthMax     =   0
      ExtendLastCol   =   0   'False
      FormatString    =   ""
      ScrollTrack     =   0   'False
      ScrollBars      =   3
      ScrollTips      =   0   'False
      MergeCells      =   0
      MergeCompare    =   0
      AutoResize      =   -1  'True
      AutoSizeMode    =   0
      AutoSearch      =   0
      AutoSearchDelay =   2
      MultiTotals     =   -1  'True
      SubtotalPosition=   1
      OutlineBar      =   0
      OutlineCol      =   0
      Ellipsis        =   0
      ExplorerBar     =   0
      PicturesOver    =   0   'False
      FillStyle       =   0
      RightToLeft     =   0   'False
      PictureType     =   0
      TabBehavior     =   0
      OwnerDraw       =   0
      Editable        =   0
      ShowComboButton =   1
      WordWrap        =   0   'False
      TextStyle       =   0
      TextStyleFixed  =   0
      OleDragMode     =   0
      OleDropMode     =   0
      DataMode        =   0
      VirtualData     =   -1  'True
      DataMember      =   ""
      ComboSearch     =   3
      AutoSizeMouse   =   -1  'True
      FrozenRows      =   0
      FrozenCols      =   0
      AllowUserFreezing=   0
      BackColorFrozen =   0
      ForeColorFrozen =   0
      WallPaperAlignment=   9
      AccessibleName  =   ""
      AccessibleDescription=   ""
      AccessibleValue =   ""
      AccessibleRole  =   24
      Begin MSComctlLib.ImageList ImageList2 
         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   =   40
            BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3750A
               Key             =   "sz"
            EndProperty
            BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":378A4
               Key             =   "dy"
            EndProperty
            BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":37C3E
               Key             =   "yl"
            EndProperty
            BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":37FD8
               Key             =   "xg"
            EndProperty
            BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":38372
               Key             =   "zh"
            EndProperty
            BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3870C
               Key             =   "sh"
            EndProperty
            BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":38AA6
               Key             =   "bc"
            EndProperty
            BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":38E40
               Key             =   "fq"
            EndProperty
            BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":391DA
               Key             =   "bz"
            EndProperty
            BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":39574
               Key             =   "tc"
            EndProperty
            BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3990E
               Key             =   "bcgs"
            EndProperty
            BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":39CA8
               Key             =   "mrlk"
            EndProperty
            BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3A042
               Key             =   "xsxm"
            EndProperty
            BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3A3DC
               Key             =   "first"
            EndProperty
            BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3A776
               Key             =   "prev"
            EndProperty
            BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3AB10
               Key             =   "next"
            EndProperty
            BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3AEAA
               Key             =   "last"
            EndProperty
            BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3B244
               Key             =   "xx"
            EndProperty
            BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3B5DE
               Key             =   "define"
            EndProperty
            BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3B978
               Key             =   "exec"
            EndProperty
            BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3BD12
               Key             =   "xz"
            EndProperty
            BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3C0AC
               Key             =   "sc"
            EndProperty
            BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3C446
               Key             =   "sx"
            EndProperty
            BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3C7E0
               Key             =   "cx"
            EndProperty
            BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3CB7A
               Key             =   "zd"
            EndProperty
            BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3CF14
               Key             =   "dz"
            EndProperty
            BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3D2AE
               Key             =   "ph"
            EndProperty
            BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3D648
               Key             =   "fz"
            EndProperty
            BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3D9E2
               Key             =   "dw"
            EndProperty
            BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3DD7C
               Key             =   "hf"
            EndProperty
            BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3E116
               Key             =   "pz"
            EndProperty
            BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3E4B0
               Key             =   "check"
            EndProperty
            BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3E84A
               Key             =   "qs"
            EndProperty
            BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3EBE4
               Key             =   "fullcheck"
            EndProperty
            BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3EF7E
               Key             =   "qq"
            EndProperty
            BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3F318
               Key             =   "bcw"
            EndProperty
            BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3F6B2
               Key             =   "ye"
            EndProperty
            BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3FA4C
               Key             =   ""
            EndProperty
            BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":3FDE6
               Key             =   "frist"
            EndProperty
            BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "制作凭证_应付票据列表.frx":40180
               Key             =   "dj"
            EndProperty
         EndProperty
      End
   End
   Begin MSComctlLib.Toolbar SzToolbar 
      Align           =   1  'Align Top
      Height          =   555
      Left            =   0
      TabIndex        =   4
      Top             =   0
      Width           =   11820
      _ExtentX        =   20849
      _ExtentY        =   979
      ButtonWidth     =   820
      ButtonHeight    =   926
      AllowCustomize  =   0   'False
      Appearance      =   1
      Style           =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   10
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "过滤"
            Key             =   "filter"
            ImageKey        =   "filter"
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "全选"
            Key             =   "allselect"
            ImageKey        =   "allselect"
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "全消"
            Key             =   "allcancel"
            ImageKey        =   "allcancel"
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "合并"
            Key             =   "unit"
            ImageKey        =   "unit"
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "凭证"
            Key             =   "run"
            ImageKey        =   "run"
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "帮助"
            Key             =   "bz"
            ImageKey        =   "bz"
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "fh"
            ImageKey        =   "tc"
         EndProperty
      EndProperty
      BorderStyle     =   1
   End
End
Attribute VB_Name = "PZ_FrmNoteList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**************************************************************************
'*    模 块 名 称 :应付票据制作凭证
'*    功 能 描 述 :
'*    程序员姓名  :姜冬梅
'*    最后修改人  :姜冬梅
'*    最后修改时间:2002/1/17
'*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
'**************************************************************************
Dim ReportTitle As String                '报表主标题
Dim Str_QueryCondi As String             '用户录入查询条件
Dim Jsq_Max As Long                      '网格的最大记录数
Dim OperationNum    As Long              '本次转帐操作批号
Dim TranJsq As Integer                   '本批选择的网格记录个数
Dim FiltListId() As Long                 '需要转帐的明细帐AccListID数组
Dim TranVouchClass() As String           '转帐凭证类别数组
Dim VouchModelType() As String           '转帐凭证模板类型数组
Dim VouchRow As Long                     '每张凭证内分录的ID值
Dim Bln_DeleteFlag As Boolean            '转帐后是否删除临时表
Dim UnitFlag As Boolean                  '合并生成凭证标志
Dim ArApFlag As String                   '应付应付标志
Dim Int_Kjyear As Integer                '会计年
Dim Int_Period As Integer                '会计月
Dim MenuBillCode_Con As String           '转帐单据类型条件
Dim MenuBillCode As String               '菜单选中的单据类型
Dim YbJe As Double                       '原币金额
Dim BbJe As Double                       '本币金额
Dim AccRate As Double                    '记帐汇率
Dim BankBillNo As String                 '银行票号
Dim SsCode As String                     '结算方式
Dim ForeignCurrCode As String            '外币编码
Dim BillDate As Date                     '单据日期
Dim PersonName As String                 '经办人名称
Dim CustName As String                   '客户名称
Dim SuppName As String                   '供应商名称
Dim Rec As String                        '单据数据表名变量
Dim RecBillId As String                  '单据数据表ID
'以下为固定使用变量
Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
Dim GridCode As String                   '显示网格网格代码
Dim GridInf() As Variant                 '整个网格设置信息
Dim Tsxx As String                       '系统提示信息
Dim Qslz As Long                         '网格隐藏(非操作显示)列数
Dim Sjhgd As Double                      '网格数据行高度
Dim Sfxshjwg As Boolean                  '是否显示合计网格
Dim GridBoolean() As Boolean             '网格列信息(布尔型)
Dim GridStr()  As String                 '网格列信息(字符型)
Dim GridInt() As Integer                 '网格列信息(整型)
Dim Szzls As Integer                     '数组总列数(网格列数-1)
Private Sub CxbbGrid_DblClick()
    If CxbbGrid.Row > CxbbGrid.FixedRows - 1 And GridStr(CxbbGrid.Col, 1) = "001" Then
        If CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("001", GridStr(), Szzls)) = "" Then
            If CxbbGrid.TextMatrix(CxbbGrid.Row, 1) = True Then         '转帐凭证模板类型
                 Tsxx = "该单据已制作凭证！"
                 Call Xtxxts(Tsxx, 0, 4)
                 Exit Sub
            End If
            CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("001", GridStr(), Szzls)) = "√"
        Else
            CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("001", GridStr(), Szzls)) = ""
        End If
    End If
End Sub
Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
    
    On Error Resume Next
    
    With CxbbGrid
        .Width = Me.Width - 160
        .Height = Me.Height - .Top - 400
    End With
    
    With Pic_Title
        .Width = Me.Width - 160
    End With
    
    GsToolbar.Left = Me.Width - GsToolbar.Width - 140
End Sub
Private Sub Form_Load()                                                   '窗体装入
  
    '调入打印页面设置窗体
  
    '调整标题栏及网格、格式工具条位置(Fixed)
    Pic_Title.Left = 40
    Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
    CxbbGrid.Left = Pic_Title.Left
    CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
 
    '调 入 网 格(Fixed)
    GridCode = "Ap_VouchNoteList"
    Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  
    Qslz = GridInf(1)
    Sjhgd = GridInf(2)
    Sfxshjwg = GridInf(7)
    Szzls = CxbbGrid.Cols - 1
    
    MenuBillCode = ItemType
    ArApFlag = "AP"         '应付系统
    Call Start              '初始化凭证类型、制单日期
End Sub
Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
    '卸载条件窗体
    PZ_FrmNoteFilter.UnloadCheck.Value = 1
    Unload PZ_FrmNoteFilter
End Sub
Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
    Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
End Sub
Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)       '网格格式调整(Fixed)
    
    Select Case Button.Key
        Case "bcgs"                                          '保存表格格式
            Call Bcwggs(CxbbGrid, GridCode, GridStr())
        Case "hfmrgs"                                        '恢复默认格式
            Call Hfmrgs(CxbbGrid, GridCode, GridStr())
        Case "szxsxm"                                        '设置显示项目
            Call Szxsxm(CxbbGrid, GridCode)
    End Select
End Sub
Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
    
    Select Case Button.Key
        Case "filter"                                        '过滤
            PZ_FrmNoteFilter.Show 1
        Case "bill"                                          '单 据
            Call CxbbGrid_DblClick
        Case "bz"                                            '帮 助
            Call F1bz
        Case "fh"                                            '退 出
            Unload Me
        Case "run"                                           '生成凭证
            Call Sub_Run
        Case "allselect"                                     '全选
            Call Sub_AllSelect
        Case "allcancel"                                     '全弃
            Call Sub_AllCancel
        Case "unit"                                          '合并
            Call Sub_Unit
    End Select
End Sub
Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
    
    Timer1.Enabled = False
    Xt_Wait.Show
    Xt_Wait.Refresh
   
    '加快显示速度
    CxbbGrid.Redraw = False
 
    '生成查询结果
    Call Sub_Query(0)
   
    CxbbGrid.Redraw = True
    
    Xt_Wait.Hide
End Sub
Private Sub Sub_Query(Int_QueryType As Integer)                                     '生成查询结果(Define)
    
    '过程参数:Int_QueryType 0-"点确定按钮"查询  1-"刷新"查询
    Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
    Dim Coljsq As Long                          '网格列计数器
    Dim Jsqte As Long                           '临时动态计数器
    Dim State As String                         '票据状态
    '以下为自定义部分[
 
    If Int_QueryType = 0 Then   '0-"点确定按钮"查询
        With PZ_FrmNoteFilter
         
            '生成查询条件
            Str_QueryCondi = " where 1=1  and " & MenuBillCode_Con
         
            For Jsqte = 1 To 4
                Select Case Jsqte
                    Case 1  '单据日期(起,止）
                        If Trim(.LrText(0).Text) <> "" And Trim(.LrText(1).Text) <> "" Then
                            If Trim(.LrText(0).Text) = Trim(.LrText(1)) Then
                                Str_QueryCondi = Str_QueryCondi & " and BillDate = '" & CDate(.LrText(0).Text) & "'"
                            Else
                                Str_QueryCondi = Str_QueryCondi & " and BillDate >= '" & CDate(.LrText(0).Text) & "'"
                                Str_QueryCondi = Str_QueryCondi & " and BillDate <= '" & CDate(.LrText(1).Text) & "'"
                            End If
                        End If
                        If Trim(.LrText(0).Text) <> "" And Trim(.LrText(1).Text) = "" Then
                            Str_QueryCondi = Str_QueryCondi & " and BillDate >= '" & CDate(.LrText(0).Text) & "'"
                        End If
                        If Trim(.LrText(0).Text) = "" And Trim(.LrText(1).Text) <> "" Then
                            Str_QueryCondi = Str_QueryCondi & " and BillDate <= '" & CDate(.LrText(1).Text) & "'"
                        End If
                    Case 2  '客户
                        If Trim(.LrText(2).Text) <> "" Then
                            Str_QueryCondi = Str_QueryCondi & " and PsCode = '" & Trim(.LrText(2).Tag) & "'"
                        End If
                    Case 3  '币别
                        If Trim(.LrText(3).Text) <> "" Then
                            Str_QueryCondi = Str_QueryCondi & " And ForeignCurrCode='" & Trim(.LrText(3).Tag) & "'"
                        End If
                    Case 4 '凭证状态
                        If .Opt_Check(1).Value = True Then '已制凭证
                            Str_QueryCondi = Str_QueryCondi & " And  IfBuildVouch='1' "
                        End If
                        If .Opt_Check(2).Value = True Then  '未制凭证
                            Str_QueryCondi = Str_QueryCondi & " And IfBuildVouch='0' "
                        End If
                        
                End Select
            Next Jsqte
        End With
    Else
        '1-"刷新"查询
        If Str_QueryCondi = "" Then
            Str_QueryCondi = " where 1=2 "
        End If
    End If
    
    Sqlstr = "SELECT * FROM Ap_v_Note " & Str_QueryCondi & "  Order By NoteID"
    
    Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
    With Rec_Query
        CxbbGrid.Rows = CxbbGrid.FixedRows
        Jsqte = CxbbGrid.FixedRows
        Do While Not .EOF
            CxbbGrid.AddItem ""
            
            '[>>自定义填充内容
            CxbbGrid.TextMatrix(Jsqte, 0) = .Fields("NoteID")                       '应付票据ID
            CxbbGrid.TextMatrix(Jsqte, 1) = Trim(.Fields("IfBuildVouch") & "")      '是否已经生成凭证
            CxbbGrid.TextMatrix(Jsqte, 2) = Trim(.Fields("VouchModel") & "")        '转帐凭证模板类型
            
            CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Format(.Fields("BillDate"), "yyyy-mm-dd")     '单据日期
            CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("BillItemCode") & "")            '票据类型编码
            CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("BillItemName") & "")            '票据类型
            CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("NoteCode") & "")                '单据编号
            CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("SupplierName") & "")            '供应商名称
            CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Trim(.Fields("ForeignCurrName") & "")         '币别名称
            CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Val(Trim(.Fields("YbSsje") & ""))             '原币金额
            CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Val(Trim(.Fields("BbSsje") & ""))             '本币金额
            CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Val(Trim(.Fields("AccRate") & ""))            '记帐汇率
            CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Trim(.Fields("DeptName") & "")                '部门名称
            CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Trim(.Fields("PersonName") & "")              '经办人
            CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Trim(.Fields("Digest") & "")                  '摘要
            
            If Trim(.Fields("VouchNo") & "") = "" Or Trim(.Fields("IfBuildVouch") & "") = False Then                                                               '已生成的凭证类别和凭证号
                CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = ""
            Else
                CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = Trim(.Fields("VouchClassCode") & "") & "-" & Trim(.Fields("VouchNo") & "")
            End If
            CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = Trim(.Fields("TranVouchClassCode") & "")      '模板所属凭证类型
            CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = Val(Trim(.Fields("YbInterest") & ""))         '原币利息
            CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = Val(Trim(.Fields("BbInterest") & ""))         '本币利息
            
            
            '<<]
            
            '设置数据行高度(Fixed)
            CxbbGrid.RowHeight(Jsqte) = Sjhgd
            
            '动态集指针加1,同时将计数器加1(Fixed)
            .MoveNext
            Jsqte = Jsqte + 1
        Loop
        Jsq_Max = Jsqte - 1
    End With
    
    ']以上为用户自定义部分
End Sub
Private Function Tran_Pd() As Boolean            '转帐之前的判断
    Dim jsq As Long             '临时计数器
    
    Tran_Pd = False
    
    '非数据行退出
    If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
        Exit Function
    End If
    
    '会计期间
    '判断用户所选业务日期与当前会计期间是否一致
    Sqlstr = "Select Top 1 * FROM Gy_Kjrlb Where ArJzbz=0 Order By Kjyear,Period"
    Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
    With RecTemp
        If Not .EOF Then
            If Not (Xtrq >= .Fields("Qsrq") And Xtrq <= .Fields("Zzrq")) Then
                Tsxx = "业务日期应在当前会计期间范围内!"
                Call Xtxxts(Tsxx, 0, 4)
                Exit Function
            Else
                Int_Kjyear = .Fields("Kjyear")
                Int_Period = .Fields("Period")
            End If
        Else
            Tsxx = "业务日期会计期间已结帐完毕!"
            Call Xtxxts(Tsxx, 0, 4)
            Exit Function
        End If
    End With
    
    '将每个转帐过程编号赋值到FiltListId（）数组中，
    ReDim FiltListId(1)         '明细帐ID
    ReDim TranVouchClass(1)     '转帐凭证类别
    ReDim VouchModelType(1)     '转帐凭证模板
    
    TranJsq = 0
        
    '将需要制作凭证的记录的AccListId保存到FiltListId中。
    '将产生的凭证张数，保存在TranJsq中。
    
    For jsq = CxbbGrid.FixedRows To Jsq_Max
        If CxbbGrid.TextMatrix(jsq, Sydz("001", GridStr(), Szzls)) <> "" Then
            If CxbbGrid.TextMatrix(jsq, Sydz("001", GridStr(), Szzls)) = "1" Then   '若生成的凭证需要合并
                UnitFlag = True
            Else
                UnitFlag = False
            End If
            If TranJsq = 0 Then
                TranJsq = TranJsq + 1
            Else
                If TranJsq > 1 Then
                    ReDim Preserve FiltListId(UBound(FiltListId) + 1)
                    ReDim Preserve TranVouchClass(UBound(TranVouchClass) + 1)
                    ReDim Preserve VouchModelType(UBound(VouchModelType) + 1)
                End If
            End If
            FiltListId(TranJsq) = CxbbGrid.TextMatrix(jsq, 0)
            TranVouchClass(TranJsq) = CxbbGrid.TextMatrix(jsq, Sydz("015", GridStr(), Szzls)) '明细帐ID
            VouchModelType(TranJsq) = CxbbGrid.TextMatrix(jsq, 2)
            TranJsq = TranJsq + 1
        End If
    Next jsq
    
    '本次需要制作凭证的有效记录个数
    TranJsq = TranJsq - 1
    If TranJsq <= 0 Then
        Tsxx = "请选择单据!"
        Call Xtxxts(Tsxx, 0, 4)
        Exit Function
    End If
    
    '将每个转帐过程的凭证类别放到数组TranVouchClass中
    OperationNum = CreatBillID("0102")                     '本次制作凭证的操作批号
    Tran_Pd = True
End Function
Private Sub Sub_Run() '生成凭证
    Dim jsq As Long                         '临时计数器
    Dim lng_OperationNum As Long            '临时凭证ID
    Bln_DeleteFlag = True
    
    '判断有效性
    If Tran_Pd = False Then
        Exit Sub
    End If
    
   '【写临时凭证
    On Error GoTo ERR1
    Cw_DataEnvi.DataConnect.BeginTrans
    Select Case UnitFlag
        Case True           '合并为1张凭证
             lng_OperationNum = CreatBillID("0102")                      '临时凭证ID号
             
             '写临时凭证主表
             VouchRow = 0
             Call Save_TempPz_Main(TranVouchClass(1), OperationNum, OperationNum, lng_OperationNum)  '参数是凭证类别，行号，批号，凭证ID，对合并生成凭证时，行号没有意义
             
             '根据应付明细帐记录，写临时凭证子表
             For jsq = 1 To TranJsq
                 Call Save_TempPz_Ass_Pre(lng_OperationNum, FiltListId(jsq), VouchModelType(jsq), jsq)
             Next jsq
        Case False           '不合并
             For jsq = 1 To TranJsq
                 lng_OperationNum = CreatBillID("0102")                  '临时凭证ID号
             
                 '写临时凭证主表
                 VouchRow = 0
                 Call Save_TempPz_Main(TranVouchClass(jsq), FiltListId(jsq), OperationNum, lng_OperationNum)  '参数是凭证类别，行号，批号，凭证ID
             
                 '根据应付明细帐记录，写临时凭证子表
                 Call Save_TempPz_Ass_Pre(lng_OperationNum, FiltListId(jsq), VouchModelType(jsq), jsq)
             Next jsq
    End Select
    Cw_DataEnvi.DataConnect.CommitTrans
    '记录此次转帐的批号，做为凭证窗体调用的参数
    
    '】以上是写临时凭证记录
    
    AutoTran_PzFrm.OperationNumPz = OperationNum       '传递此次转帐批号
    
    AutoTran_PzFrm.Show 1  '临时转帐凭证窗体
    
    
    Call WriteVouchId
    Call Clean
    Call Sub_Query(1)
    Exit Sub
ERR1:
    Cw_DataEnvi.DataConnect.RollbackTrans
    Tsxx = Err.Description
    'Tsxx = "转帐过程中出现未知错误，程序自动恢复保存前状态！"
    Call Xtxxts(Tsxx, 0, 1)
    Exit Sub
End Sub
Private Sub Save_TempPz_Ass_Pre(VouchTemp_Id As Long, AccList_Id As Long, VouchModel As String, serial As Long)
    'VouchTemp_Id 表示临时凭证的ID号，AccList_Id 表示选择的需要生成凭证的明细帐记录的ID，VouchModel 表示凭证的模板，serial 表示临时凭证子表中的记录顺序号
    Dim RecTemp As New ADODB.Recordset      '临时记录集
    
    Dim Digest As String                    '摘要
    Dim AccCode As String                   '业务科目编码
    Dim AccCodeNote As String               '应付票据科目编码
    Dim AccCodeInterest As String           '利息科目编码
    Dim AccCodeArAp As String               '应付科目
    
    Dim DeptCode As String                  '部门编码
    Dim PersonCode As String                '经办人编码
    Dim CusCode As String                   '客户编码
    Dim SupplierCode As String              '供应商编码
    Dim ItemCode As String                  '项目编码
    
    Dim YbInterest As Double                 '原币利息
    Dim BbInterest As Double                 '本币利息
    Dim YbPmJe As Double                     '原币票面金额
    Dim BbPmJe As Double                     '本币票面金额
    
    
    Sqlstr = "SELECT * FROM Ap_v_Note  WHERE NoteId='" & AccList_Id & "' AND RPFLAG='AP' "
    Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
        
    '取明细帐记录
    Digest = Trim(RecTemp.Fields("Digest") & "") & Trim(RecTemp.Fields("NoteCode") & "") '摘要
    AccCode = Trim(RecTemp.Fields("AccCode") & "")                      '单据科目
    AccCodeArAp = Trim(RecTemp.Fields("AccCodeArAp") & "")              '应付科目
    AccCodeInterest = Trim(RecTemp.Fields("AccCodeInterest") & "")      '利息科目
    DeptCode = Trim(RecTemp.Fields("DeptCode") & "")                    '部门
    PersonCode = Trim(RecTemp.Fields("PersonCode") & "")                '经办人编码
    SupplierCode = Trim(RecTemp.Fields("PsCode") & "")                  '供应商
    CusCode = ""                                                        '客户
    ItemCode = ""                                                       '项目
    AccRate = Trim(RecTemp.Fields("AccRate") & "")                      '记帐汇率
    BankBillNo = ""                                                     '银行票号
    SsCode = ""                        '结算方式编码
    ForeignCurrCode = Trim(RecTemp.Fields("ForeignCurrCode") & "")      '外币编码
    BillDate = CDate(Trim(RecTemp.Fields("BillDate") & ""))             '单据日期
    PersonName = Trim(RecTemp.Fields("PersonName") & "")                '经办人姓名
    CustName = ""                                                       '客户名称
    SuppName = Trim(RecTemp.Fields("SupplierName") & "")                '供应商名称
    YbPmJe = Val(Trim(RecTemp.Fields("YbSsJe") & ""))                   '原币票面金额
    BbPmJe = Val(Trim(RecTemp.Fields("BbSsJe") & ""))                   '本币票面金额
    YbInterest = Val(Trim(RecTemp.Fields("YbInterest") & ""))           '原币票面利息
    BbInterest = Val(Trim(RecTemp.Fields("BbInterest") & ""))           '本币票面利息
    Select Case VouchModel
        Case "P9"                '借应付，贷其它科目
            '借应付票据
            YbJe = YbPmJe + YbInterest
            BbJe = BbPmJe + BbInterest
            VouchRow = VouchRow + 1
            Call Save_TempPz_Ass(VouchTemp_Id, VouchRow, Digest, AccCode, DeptCode, PersonCode, CusCode, SupplierCode, ItemCode, "借")
                            
            '贷财务费用利息
            If YbInterest <> 0 Then
                YbJe = YbInterest
                BbJe = BbInterest
                VouchRow = VouchRow + 1
                Call Save_TempPz_Ass(VouchTemp_Id, VouchRow, Digest, AccCodeInterest, DeptCode, PersonCode, CusCode, SupplierCode, ItemCode, "贷")
            End If
            
            '贷应付帐款
            YbJe = YbPmJe      '应付金额
            BbJe = BbPmJe      '应付金额
            VouchRow = VouchRow + 1
            Call Save_TempPz_Ass(VouchTemp_Id, VouchRow, Digest, AccCodeArAp, DeptCode, PersonCode, CusCode, SupplierCode, ItemCode, "贷")
    End Select
End Sub
Private Sub Save_TempPz_Main(TranVouchClass1 As String, TranNo As Long, OperationNum1 As Long, VouchIdTemp_Id As Long)    '将有效数据写入临时凭证主表
    Dim Rec_VouchMainTemp As New ADODB.Recordset            '临时凭证主表记录集
    
    '打开临时凭证主表，存放有效凭证的凭证号等主信息
    If Rec_VouchMainTemp.State = 1 Then Rec_VouchMainTemp.Close
    Rec_VouchMainTemp.Open "select * from Cwzz_AccVouchMainTemp Where 1=2", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
    With Rec_VouchMainTemp
        .AddNew
        .Fields("VouchSource") = "应付系统"                  '凭证来源
        .Fields("OperationNo") = OperationNum1               '存放批号
        .Fields("VouchId") = VouchIdTemp_Id                  '临时凭证ID
        .Fields("Year") = Int_Kjyear                         '取选中的年份
        .Fields("period") = Int_Period                       '取选中的会计期间
        .Fields("Ddate") = Xtrq                              '取系统日期
        .Fields("VouchClassCode") = TranVouchClass1          '单据的凭证类别
        .Fields("Doc") = 0
        .Fields("Bill") = Xtczy
        .Fields("OperationClass") = ""                       '业务类型
        .Fields("BillType") = ""
        .Fields("BillNo") = Str(TranNo)                      '存放行号
        .Fields("DeleteFlag") = IIf(Bln_DeleteFlag, 1, 0)
        
        .Update
    End With
End Sub
Private Sub Save_TempPz_Ass(VouchIdTemp_Id As Long, serialnum As Long, Str_Digest As String, Str_Kmh As String, str_Dept As String, Str_Per As String, Str_Cus As String, Str_Sup As String, Str_Item As String, str_TranOri As String) '写临时凭证辅表
    'VouchIdTemp_Id临时凭证主表、辅表对应关系Id号
    Dim Rec_VouchTemp As New ADODB.Recordset            '临时凭证辅表记录集
    Dim RecTemp As New ADODB.Recordset
    
    '打开临时凭证辅表,用于存放转帐凭证内容
    Rec_VouchTemp.Open "select * from Cwzz_AccVouchsubTemp where 1=2", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
    Set RecTemp = Cw_DataEnvi.DataConnect.Execute("Select * from Cwzz_AccCode where Ccode='" & Str_Kmh & "'")
    With Rec_VouchTemp
        .AddNew
        
        '[公共信息
        If str_TranOri = "贷" Then                               '
            .Fields("WbDfje") = YbJe                             '贷方金额
            .Fields("Dfje") = BbJe
        Else
            .Fields("WbJfje") = YbJe                             '借方金额
            .Fields("Jfje") = BbJe
        End If
        .Fields("Digest") = Str_Digest                           '摘要
        If RecTemp.EOF = True Then
           .Fields("Ccode") = Null
        Else
            .Fields("Ccode") = Str_Kmh                               '转帐科目号
        End If
        .Fields("VouchId") = VouchIdTemp_Id                      '与主表的对应ID
        .Fields("serialID") = serialnum                          '序号ID
        
        
        '[辅助信息
        If RecTemp.EOF = False Then
            If RecTemp.Fields("PersonFlag") = True Then
                .Fields("PersonCode") = Str_Per                  '个人
            End If
            If RecTemp.Fields("DeptFlag") = True Then
                .Fields("DeptCode") = str_Dept                   '部门
            End If
            If RecTemp.Fields("CusFlag") = True Then
                .Fields("CusCode") = Str_Cus                     '客户
            End If
            If RecTemp.Fields("SupplierFlag") = True Then
                .Fields("Suppliercode") = Str_Sup                '供应商
            End If
        End If
        '[币别信息
        .Fields("ForeignCurrCode") = ForeignCurrCode
        .Fields("AccRate") = AccRate
        
        '[银行结算信息
        If RecTemp.EOF = False Then
            If Trim(RecTemp.Fields("Cproperty")) = "银行" Then
                .Fields("SScode") = SsCode
                .Fields("BillNo") = BankBillNo
                .Fields("Digest") = Str_Digest & CustName & SuppName   '摘要
            End If
            .Fields("BillDate") = BillDate
        End If
        ']银行结算信息
        
        .Fields("TranPerson") = PersonName
        .Update
    End With
End Sub
Private Sub Sub_AllSelect() '全部选中
    Dim jsq As Long
    '非数据行退出
    If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
        Exit Sub
    End If
    For jsq = CxbbGrid.FixedRows To Jsq_Max
        CxbbGrid.TextMatrix(jsq, Sydz("001", GridStr(), Szzls)) = "√"
       If CxbbGrid.TextMatrix(Jsqte, 1) = True Then              '若该单据已经制作凭证，不再被自动选择。
          CxbbGrid.TextMatrix(jsq, Sydz("001", GridStr(), Szzls)) = ""
       End If
    Next jsq
End Sub
Private Sub Sub_AllCancel() '全部取消
    '非数据行退出
    If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
        Exit Sub
    End If
    For jsq = CxbbGrid.FixedRows To Jsq_Max
       CxbbGrid.TextMatrix(jsq, Sydz("001", GridStr(), Szzls)) = ""
    Next jsq
End Sub
Private Sub Sub_Unit() '合并
    '非数据行退出
    If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
        Exit Sub
    End If
    For jsq = CxbbGrid.FixedRows To Jsq_Max
       If CxbbGrid.TextMatrix(jsq, Sydz("001", GridStr(), Szzls)) = "√" Then
            CxbbGrid.TextMatrix(jsq, Sydz("001", GridStr(), Szzls)) = "1"
       End If
    Next jsq
End Sub
Private Sub Start()  '初始化表单界面,填充凭证类型
    Dim RecTemp As New ADODB.Recordset
    Dim I As Integer
    
    MenuBillCode_Con = " BillItemCode Like '" & MenuBillCode & "%' and RPFlag='" & ArApFlag & "' "
    
    '填充表单上的日期和凭证类别
    LabDate.Caption = Xtrq                                        '生成凭证日期
    Rec = "RP_Note"
    RecBillId = "NoteId"
End Sub
Private Sub WriteVouchId()                      '回写正式凭证ID到单据表和明细帐表中
    Dim Rec_VouchMain As New ADODB.Recordset    '临时主凭证记录
    Dim Rec_Bill As New ADODB.Recordset         '单据记录集
    
    Dim EffectVouchId As Long                   '生成正式凭证的凭证ID
    Dim NoteBillId As Long                      '应付票据的ID
    Dim CloseBillId As Long                     '由应付票据形成的结算单ID
        
    Sqlstr = "SELECT * FROM Cwzz_AccVouchMainTemp WHERE SureVouchId>0 and OperationNo='" & OperationNum & "' order by BillNo"
    Set Rec_VouchMain = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
    If Rec_VouchMain.EOF = False Then
        Select Case UnitFlag
            Case True           '如果凭证合并生成，则按网格中记录的AccListId(jsq)来回写数据，因为这种情况下，临时凭证主表中存放的是批号。
                For jsq = 1 To TranJsq
                
                    '将生成的凭证记录到应付票据中
                    EffectVouchId = Rec_VouchMain.Fields("SureVouchId")      '已生成的正式凭证的ID
                    NoteBillId = FiltListId(jsq)                             '已经生成凭证的应付票据ID
                    Cw_DataEnvi.DataConnect.Execute ("Update " & Rec & " set VouchId='" & EffectVouchId & "',IfBuildVouch='1' where " & RecBillId & "='" & NoteBillId & "'")
                   
                   '将应付票据对应的结算单的凭证信息记录到结算单和明细帐中
                    Sqlstr = "SELECT CloseBillId FROM RP_Note WHERE NoteId='" & NoteBillId & "'"
                    Set Rec_Bill = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
                    If Rec_Bill.EOF = False Then
                        CloseBillId = Rec_Bill.Fields("CloseBillId")               '付款结算单ID
                        
                        '结算单中
                        Cw_DataEnvi.DataConnect.Execute ("Update RP_CloseBill set VouchId='" & EffectVouchId & "',IfBuildVouch='1' where CloseBillId='" & CloseBillId & "'")
                        
                        '明细帐中
                        
                        Cw_DataEnvi.DataConnect.Execute ("Update RP_AccList set VouchId='" & EffectVouchId & "',IfBuildVouch='1' where BillId='" & CloseBillId & "' and BillItemCode like '9%'")
                    End If
                Next jsq
            Case False          '如果凭证单张生成，则按临时凭证主表中记录的AccListId(jsq)回写数据。
                Do While Rec_VouchMain.EOF = False
                
                    '写入应付票据内
                    EffectVouchId = Rec_VouchMain.Fields("SureVouchId")   '已生成的正式凭证的ID
                    NoteBillId = Rec_VouchMain.Fields("BillNo")           '已经生成凭证的应付票据Id
                    Cw_DataEnvi.DataConnect.Execute ("Update " & Rec & " set VouchId='" & EffectVouchId & "',IfBuildVouch='1' where " & RecBillId & "='" & NoteBillId & "'")
                
                   '将应付票据对应的结算单的凭证信息记录到结算单和明细帐中
                    Sqlstr = "SELECT CloseBillId FROM RP_Note WHERE NoteId='" & NoteBillId & "'"
                    Set Rec_Bill = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
                    If Rec_Bill.EOF = False Then
                        CloseBillId = Rec_Bill.Fields("CloseBillId")               '结算单ID
                        
                        '结算单中
                        Cw_DataEnvi.DataConnect.Execute ("Update RP_CloseBill set VouchId='" & EffectVouchId & "',IfBuildVouch='1' where CloseBillId='" & CloseBillId & "'")
                        
                        '明细帐中
                        Cw_DataEnvi.DataConnect.Execute ("Update RP_AccList set VouchId='" & EffectVouchId & "',IfBuildVouch='1' where BillID='" & CloseBillId & "' and BillItemCode like '9%'") '防止ID号相同的应收系统的单据数据被改写
                    End If
                    Rec_VouchMain.MoveNext
                Loop
        End Select
    End If
End Sub
Private Sub Clean()               '删除临时数据表数据
        '删除临时凭证主从表
        Cw_DataEnvi.DataConnect.Execute "Delete From Cwzz_AccVouchSubTemp Where VouchId in (select VouchId from Cwzz_AccVouchMainTemp where OperationNo='" & OperationNum & "')"
        Cw_DataEnvi.DataConnect.Execute "Delete From Cwzz_AccVouchMainTemp Where OperationNo='" & OperationNum & "'"
End Sub

						