开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
资源名称：ERPSYS.zip　[点击查看]
上传用户：zhpu1995
上传日期：2013-09-06
资源大小：61151k
文件大小：187k
源码类别：

企业管理

开发平台：

Visual Basic

：源码内容
  1. VERSION 5.00
  2. Object = "{C5DE3F80-3376-11D2-BAA4-04F205C10000}#1.0#0"; "Vsflex6d.ocx"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  4. Begin VB.Form Jz_FrmPzFrm 
  5.    BackColor       =   &H00E9F4FA&
  6.    BorderStyle     =   1  'Fixed Single
  7.    Caption         =   "记帐凭证"
  8.    ClientHeight    =   6720
  9.    ClientLeft      =   675
  10.    ClientTop       =   720
  11.    ClientWidth     =   10515
  12.    BeginProperty Font 
  13.       Name            =   "宋体"
  14.       Size            =   14.25
  15.       Charset         =   134
  16.       Weight          =   700
  17.       Underline       =   0   'False
  18.       Italic          =   0   'False
  19.       Strikethrough   =   0   'False
  20.    EndProperty
  21.    HelpContextID   =   705003
  22.    Icon            =   "结转凭证_凭证处理.frx":0000
  23.    KeyPreview      =   -1  'True
  24.    LinkTopic       =   "Form4"
  25.    MaxButton       =   0   'False
  26.    MinButton       =   0   'False
  27.    ScaleHeight     =   6720
  28.    ScaleWidth      =   10515
  29.    StartUpPosition =   1  '所有者中心
  30.    Begin VB.CommandButton Ydcommand1 
  31.       BeginProperty Font 
  32.          Name            =   "宋体"
  33.          Size            =   9
  34.          Charset         =   134
  35.          Weight          =   400
  36.          Underline       =   0   'False
  37.          Italic          =   0   'False
  38.          Strikethrough   =   0   'False
  39.       EndProperty
  40.       Height          =   300
  41.       Left            =   6930
  42.       Picture         =   "结转凭证_凭证处理.frx":1042
  43.       Style           =   1  'Graphical
  44.       TabIndex        =   21
  45.       Top             =   1110
  46.       Visible         =   0   'False
  47.       Width           =   300
  48.    End
  49.    Begin VB.CommandButton Ydcommand 
  50.       BeginProperty Font 
  51.          Name            =   "宋体"
  52.          Size            =   9
  53.          Charset         =   134
  54.          Weight          =   400
  55.          Underline       =   0   'False
  56.          Italic          =   0   'False
  57.          Strikethrough   =   0   'False
  58.       EndProperty
  59.       Height          =   300
  60.       Left            =   6600
  61.       Picture         =   "结转凭证_凭证处理.frx":13CC
  62.       Style           =   1  'Graphical
  63.       TabIndex        =   7
  64.       Top             =   1110
  65.       Visible         =   0   'False
  66.       Width           =   300
  67.    End
  68.    Begin VB.Timer Timer1 
  69.       Interval        =   1
  70.       Left            =   7200
  71.       Top             =   840
  72.    End
  73.    Begin VB.TextBox Ydtext 
  74.       BackColor       =   &H00C0FFFF&
  75.       BorderStyle     =   0  'None
  76.       BeginProperty Font 
  77.          Name            =   "宋体"
  78.          Size            =   9
  79.          Charset         =   134
  80.          Weight          =   400
  81.          Underline       =   0   'False
  82.          Italic          =   0   'False
  83.          Strikethrough   =   0   'False
  84.       EndProperty
  85.       Height          =   270
  86.       Left            =   7800
  87.       MultiLine       =   -1  'True
  88.       TabIndex        =   5
  89.       Top             =   540
  90.       Visible         =   0   'False
  91.       Width           =   1185
  92.    End
  93.    Begin VB.CheckBox Chk_DeleteMess 
  94.       BackColor       =   &H00C9ECFE&
  95.       Caption         =   "删除会计分录是否提示"
  96.       BeginProperty Font 
  97.          Name            =   "宋体"
  98.          Size            =   9
  99.          Charset         =   134
  100.          Weight          =   400
  101.          Underline       =   0   'False
  102.          Italic          =   0   'False
  103.          Strikethrough   =   0   'False
  104.       EndProperty
  105.       Height          =   285
  106.       Left            =   6330
  107.       TabIndex        =   32
  108.       Top             =   3030
  109.       Value           =   1  'Checked
  110.       Visible         =   0   'False
  111.       Width           =   2685
  112.    End
  113.    Begin VB.CheckBox Chk_Quantity 
  114.       BackColor       =   &H00C9ECFE&
  115.       Caption         =   "科目数量核算则数量不能为零"
  116.       BeginProperty Font 
  117.          Name            =   "宋体"
  118.          Size            =   9
  119.          Charset         =   134
  120.          Weight          =   400
  121.          Underline       =   0   'False
  122.          Italic          =   0   'False
  123.          Strikethrough   =   0   'False
  124.       EndProperty
  125.       Height          =   285
  126.       Left            =   6330
  127.       TabIndex        =   28
  128.       Top             =   3330
  129.       Value           =   1  'Checked
  130.       Visible         =   0   'False
  131.       Width           =   2685
  132.    End
  133.    Begin VB.TextBox LrText 
  134.       Appearance      =   0  'Flat
  135.       BeginProperty Font 
  136.          Name            =   "宋体"
  137.          Size            =   9
  138.          Charset         =   134
  139.          Weight          =   400
  140.          Underline       =   0   'False
  141.          Italic          =   0   'False
  142.          Strikethrough   =   0   'False
  143.       EndProperty
  144.       ForeColor       =   &H00FF0000&
  145.       Height          =   300
  146.       Index           =   3
  147.       Left            =   2250
  148.       TabIndex        =   24
  149.       Text            =   "3"
  150.       Top             =   1320
  151.       Visible         =   0   'False
  152.       Width           =   795
  153.    End
  154.    Begin VB.ComboBox Combo_Kjqj 
  155.       BeginProperty Font 
  156.          Name            =   "宋体"
  157.          Size            =   9
  158.          Charset         =   134
  159.          Weight          =   400
  160.          Underline       =   0   'False
  161.          Italic          =   0   'False
  162.          Strikethrough   =   0   'False
  163.       EndProperty
  164.       ForeColor       =   &H00FF0000&
  165.       Height          =   300
  166.       Left            =   8670
  167.       Style           =   2  'Dropdown List
  168.       TabIndex        =   22
  169.       Top             =   1020
  170.       Width           =   1095
  171.    End
  172.    Begin VB.TextBox LrText 
  173.       Appearance      =   0  'Flat
  174.       BeginProperty Font 
  175.          Name            =   "宋体"
  176.          Size            =   9
  177.          Charset         =   134
  178.          Weight          =   400
  179.          Underline       =   0   'False
  180.          Italic          =   0   'False
  181.          Strikethrough   =   0   'False
  182.       EndProperty
  183.       ForeColor       =   &H00FF0000&
  184.       Height          =   300
  185.       Index           =   2
  186.       Left            =   8670
  187.       TabIndex        =   2
  188.       Text            =   "2"
  189.       Top             =   1320
  190.       Width           =   1095
  191.    End
  192.    Begin VB.TextBox LrText 
  193.       Appearance      =   0  'Flat
  194.       BeginProperty Font 
  195.          Name            =   "宋体"
  196.          Size            =   9
  197.          Charset         =   134
  198.          Weight          =   400
  199.          Underline       =   0   'False
  200.          Italic          =   0   'False
  201.          Strikethrough   =   0   'False
  202.       EndProperty
  203.       ForeColor       =   &H00FF0000&
  204.       Height          =   300
  205.       Index           =   0
  206.       Left            =   1530
  207.       TabIndex        =   0
  208.       Text            =   "0"
  209.       Top             =   1320
  210.       Width           =   450
  211.    End
  212.    Begin VB.TextBox LrText 
  213.       Appearance      =   0  'Flat
  214.       BeginProperty Font 
  215.          Name            =   "宋体"
  216.          Size            =   9
  217.          Charset         =   134
  218.          Weight          =   400
  219.          Underline       =   0   'False
  220.          Italic          =   0   'False
  221.          Strikethrough   =   0   'False
  222.       EndProperty
  223.       ForeColor       =   &H00FF0000&
  224.       Height          =   300
  225.       Index           =   1
  226.       Left            =   5280
  227.       TabIndex        =   1
  228.       Text            =   "1"
  229.       Top             =   1320
  230.       Width           =   1155
  231.    End
  232.    Begin VB.ComboBox YdCombo 
  233.       BeginProperty Font 
  234.          Name            =   "宋体"
  235.          Size            =   9
  236.          Charset         =   134
  237.          Weight          =   400
  238.          Underline       =   0   'False
  239.          Italic          =   0   'False
  240.          Strikethrough   =   0   'False
  241.       EndProperty
  242.       Height          =   300
  243.       Left            =   6570
  244.       Style           =   2  'Dropdown List
  245.       TabIndex        =   6
  246.       Top             =   540
  247.       Visible         =   0   'False
  248.       Width           =   1155
  249.    End
  250.    Begin VSFlex6DAOCtl.vsFlexGrid WglrGrid 
  251.       Height          =   3795
  252.       Left            =   135
  253.       TabIndex        =   3
  254.       Top             =   1680
  255.       Width           =   10260
  256.       _ExtentX        =   18098
  257.       _ExtentY        =   6694
  258.       _ConvInfo       =   1
  259.       Appearance      =   1
  260.       BorderStyle     =   1
  261.       Enabled         =   -1  'True
  262.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  263.          Name            =   "宋体"
  264.          Size            =   9
  265.          Charset         =   134
  266.          Weight          =   400
  267.          Underline       =   0   'False
  268.          Italic          =   0   'False
  269.          Strikethrough   =   0   'False
  270.       EndProperty
  271.       MousePointer    =   0
  272.       BackColor       =   -2147483643
  273.       ForeColor       =   -2147483640
  274.       BackColorFixed  =   12640511
  275.       ForeColorFixed  =   -2147483630
  276.       BackColorSel    =   -2147483643
  277.       ForeColorSel    =   -2147483640
  278.       BackColorBkg    =   16777215
  279.       BackColorAlternate=   -2147483643
  280.       GridColor       =   -2147483633
  281.       GridColorFixed  =   -2147483632
  282.       TreeColor       =   -2147483632
  283.       FloodColor      =   192
  284.       SheetBorder     =   -2147483642
  285.       FocusRect       =   1
  286.       HighLight       =   1
  287.       AllowSelection  =   0   'False
  288.       AllowBigSelection=   0   'False
  289.       AllowUserResizing=   0
  290.       SelectionMode   =   0
  291.       GridLines       =   1
  292.       GridLinesFixed  =   2
  293.       GridLineWidth   =   1
  294.       Rows            =   5000
  295.       Cols            =   10
  296.       FixedRows       =   1
  297.       FixedCols       =   0
  298.       RowHeightMin    =   0
  299.       RowHeightMax    =   0
  300.       ColWidthMin     =   0
  301.       ColWidthMax     =   0
  302.       ExtendLastCol   =   0   'False
  303.       FormatString    =   ""
  304.       ScrollTrack     =   0   'False
  305.       ScrollBars      =   2
  306.       ScrollTips      =   0   'False
  307.       MergeCells      =   0
  308.       MergeCompare    =   0
  309.       AutoResize      =   -1  'True
  310.       AutoSizeMode    =   0
  311.       AutoSearch      =   0
  312.       MultiTotals     =   -1  'True
  313.       SubtotalPosition=   1
  314.       OutlineBar      =   0
  315.       OutlineCol      =   0
  316.       Ellipsis        =   0
  317.       ExplorerBar     =   0
  318.       PicturesOver    =   0   'False
  319.       FillStyle       =   0
  320.       RightToLeft     =   0   'False
  321.       PictureType     =   0
  322.       TabBehavior     =   0
  323.       OwnerDraw       =   0
  324.       Editable        =   0   'False
  325.       ShowComboButton =   -1  'True
  326.       WordWrap        =   -1  'True
  327.       TextStyle       =   0
  328.       TextStyleFixed  =   0
  329.       OleDragMode     =   0
  330.       OleDropMode     =   0
  331.       DataMode        =   0
  332.       VirtualData     =   -1  'True
  333.       Begin VB.CheckBox Chk_CodeOutput 
  334.          BackColor       =   &H00C9ECFE&
  335.          Caption         =   "打印凭证是否输出科目编码"
  336.          BeginProperty Font 
  337.             Name            =   "宋体"
  338.             Size            =   9
  339.             Charset         =   134
  340.             Weight          =   400
  341.             Underline       =   0   'False
  342.             Italic          =   0   'False
  343.             Strikethrough   =   0   'False
  344.          EndProperty
  345.          Height          =   255
  346.          Left            =   6060
  347.          TabIndex        =   36
  348.          Top             =   1740
  349.          Visible         =   0   'False
  350.          Width           =   2685
  351.       End
  352.       Begin VSFlex6DAOCtl.vsFlexGrid HjGrid 
  353.          Height          =   555
  354.          Left            =   0
  355.          TabIndex        =   8
  356.          Top             =   3270
  357.          Width           =   7545
  358.          _ExtentX        =   13309
  359.          _ExtentY        =   979
  360.          _ConvInfo       =   1
  361.          Appearance      =   1
  362.          BorderStyle     =   0
  363.          Enabled         =   -1  'True
  364.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  365.             Name            =   "宋体"
  366.             Size            =   9
  367.             Charset         =   134
  368.             Weight          =   400
  369.             Underline       =   0   'False
  370.             Italic          =   0   'False
  371.             Strikethrough   =   0   'False
  372.          EndProperty
  373.          MousePointer    =   0
  374.          BackColor       =   15332602
  375.          ForeColor       =   -2147483640
  376.          BackColorFixed  =   -2147483633
  377.          ForeColorFixed  =   -2147483630
  378.          BackColorSel    =   -2147483643
  379.          ForeColorSel    =   -2147483640
  380.          BackColorBkg    =   16777215
  381.          BackColorAlternate=   15332602
  382.          GridColor       =   -2147483633
  383.          GridColorFixed  =   -2147483632
  384.          TreeColor       =   -2147483632
  385.          FloodColor      =   192
  386.          SheetBorder     =   -2147483642
  387.          FocusRect       =   1
  388.          HighLight       =   1
  389.          AllowSelection  =   0   'False
  390.          AllowBigSelection=   0   'False
  391.          AllowUserResizing=   0
  392.          SelectionMode   =   0
  393.          GridLines       =   1
  394.          GridLinesFixed  =   2
  395.          GridLineWidth   =   1
  396.          Rows            =   5000
  397.          Cols            =   10
  398.          FixedRows       =   1
  399.          FixedCols       =   0
  400.          RowHeightMin    =   0
  401.          RowHeightMax    =   0
  402.          ColWidthMin     =   0
  403.          ColWidthMax     =   0
  404.          ExtendLastCol   =   0   'False
  405.          FormatString    =   ""
  406.          ScrollTrack     =   0   'False
  407.          ScrollBars      =   3
  408.          ScrollTips      =   0   'False
  409.          MergeCells      =   0
  410.          MergeCompare    =   0
  411.          AutoResize      =   -1  'True
  412.          AutoSizeMode    =   0
  413.          AutoSearch      =   0
  414.          MultiTotals     =   -1  'True
  415.          SubtotalPosition=   1
  416.          OutlineBar      =   0
  417.          OutlineCol      =   0
  418.          Ellipsis        =   0
  419.          ExplorerBar     =   0
  420.          PicturesOver    =   0   'False
  421.          FillStyle       =   0
  422.          RightToLeft     =   0   'False
  423.          PictureType     =   0
  424.          TabBehavior     =   0
  425.          OwnerDraw       =   0
  426.          Editable        =   0   'False
  427.          ShowComboButton =   -1  'True
  428.          WordWrap        =   -1  'True
  429.          TextStyle       =   0
  430.          TextStyleFixed  =   0
  431.          OleDragMode     =   0
  432.          OleDropMode     =   0
  433.          DataMode        =   0
  434.          VirtualData     =   -1  'True
  435.       End
  436.    End
  437.    Begin VB.Frame Frame1 
  438.       BackColor       =   &H00E9F4FA&
  439.       BeginProperty Font 
  440.          Name            =   "宋体"
  441.          Size            =   9
  442.          Charset         =   134
  443.          Weight          =   400
  444.          Underline       =   0   'False
  445.          Italic          =   0   'False
  446.          Strikethrough   =   0   'False
  447.       EndProperty
  448.       Height          =   855
  449.       Left            =   150
  450.       TabIndex        =   12
  451.       Top             =   5400
  452.       Width           =   10215
  453.       Begin VB.Label Lab_Memo 
  454.          Appearance      =   0  'Flat
  455.          BackColor       =   &H00E9F4FA&
  456.          BorderStyle     =   1  'Fixed Single
  457.          BeginProperty Font 
  458.             Name            =   "宋体"
  459.             Size            =   9
  460.             Charset         =   134
  461.             Weight          =   400
  462.             Underline       =   0   'False
  463.             Italic          =   0   'False
  464.             Strikethrough   =   0   'False
  465.          EndProperty
  466.          ForeColor       =   &H00FF0000&
  467.          Height          =   675
  468.          Index           =   0
  469.          Left            =   330
  470.          TabIndex        =   13
  471.          Top             =   120
  472.          Width           =   9825
  473.       End
  474.       Begin VB.Label Lab_Memo 
  475.          Alignment       =   2  'Center
  476.          Appearance      =   0  'Flat
  477.          BackColor       =   &H00E9F4FA&
  478.          BorderStyle     =   1  'Fixed Single
  479.          Caption         =   "备 注"
  480.          BeginProperty Font 
  481.             Name            =   "宋体"
  482.             Size            =   9
  483.             Charset         =   134
  484.             Weight          =   400
  485.             Underline       =   0   'False
  486.             Italic          =   0   'False
  487.             Strikethrough   =   0   'False
  488.          EndProperty
  489.          ForeColor       =   &H80000008&
  490.          Height          =   675
  491.          Index           =   1
  492.          Left            =   30
  493.          TabIndex        =   14
  494.          Top             =   120
  495.          Width           =   285
  496.          WordWrap        =   -1  'True
  497.       End
  498.    End
  499.    Begin MSComctlLib.ImageList ImageList1 
  500.       Left            =   9780
  501.       Top             =   1320
  502.       _ExtentX        =   1005
  503.       _ExtentY        =   1005
  504.       BackColor       =   -2147483643
  505.       ImageWidth      =   16
  506.       ImageHeight     =   16
  507.       MaskColor       =   12632256
  508.       _Version        =   393216
  509.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  510.          NumListImages   =   18
  511.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  512.             Picture         =   "结转凭证_凭证处理.frx":1756
  513.             Key             =   "sz"
  514.          EndProperty
  515.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  516.             Picture         =   "结转凭证_凭证处理.frx":1AF0
  517.             Key             =   "dy"
  518.          EndProperty
  519.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  520.             Picture         =   "结转凭证_凭证处理.frx":1E8A
  521.             Key             =   "yl"
  522.          EndProperty
  523.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  524.             Picture         =   "结转凭证_凭证处理.frx":2224
  525.             Key             =   "xg"
  526.          EndProperty
  527.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  528.             Picture         =   "结转凭证_凭证处理.frx":25BE
  529.             Key             =   "zh"
  530.          EndProperty
  531.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  532.             Picture         =   "结转凭证_凭证处理.frx":2958
  533.             Key             =   "sh"
  534.          EndProperty
  535.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  536.             Picture         =   "结转凭证_凭证处理.frx":2CF2
  537.             Key             =   "bc"
  538.          EndProperty
  539.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  540.             Picture         =   "结转凭证_凭证处理.frx":308C
  541.             Key             =   "fq"
  542.          EndProperty
  543.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  544.             Picture         =   "结转凭证_凭证处理.frx":3426
  545.             Key             =   "bz"
  546.          EndProperty
  547.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  548.             Picture         =   "结转凭证_凭证处理.frx":37C0
  549.             Key             =   "tc"
  550.          EndProperty
  551.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  552.             Picture         =   "结转凭证_凭证处理.frx":3B5A
  553.             Key             =   "bcgs"
  554.          EndProperty
  555.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  556.             Picture         =   "结转凭证_凭证处理.frx":3EF4
  557.             Key             =   "mrlk"
  558.          EndProperty
  559.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  560.             Picture         =   "结转凭证_凭证处理.frx":428E
  561.             Key             =   "xsxm"
  562.          EndProperty
  563.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  564.             Picture         =   "结转凭证_凭证处理.frx":4628
  565.             Key             =   "first"
  566.          EndProperty
  567.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  568.             Picture         =   "结转凭证_凭证处理.frx":49C2
  569.             Key             =   "prev"
  570.          EndProperty
  571.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  572.             Picture         =   "结转凭证_凭证处理.frx":4D5C
  573.             Key             =   "next"
  574.          EndProperty
  575.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  576.             Picture         =   "结转凭证_凭证处理.frx":50F6
  577.             Key             =   "last"
  578.          EndProperty
  579.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  580.             Picture         =   "结转凭证_凭证处理.frx":5490
  581.             Key             =   "xx"
  582.          EndProperty
  583.       EndProperty
  584.    End
  585.    Begin MSComctlLib.Toolbar Tlb_Action 
  586.       Align           =   1  'Align Top
  587.       Height          =   570
  588.       Left            =   0
  589.       TabIndex        =   49
  590.       Top             =   0
  591.       Width           =   10515
  592.       _ExtentX        =   18547
  593.       _ExtentY        =   1005
  594.       ButtonWidth     =   820
  595.       ButtonHeight    =   953
  596.       AllowCustomize  =   0   'False
  597.       Wrappable       =   0   'False
  598.       Appearance      =   1
  599.       Style           =   1
  600.       ImageList       =   "ImageList1"
  601.       _Version        =   393216
  602.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  603.          NumButtons      =   19
  604.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  605.             Caption         =   "设置"
  606.             Key             =   "ymsz"
  607.             Object.ToolTipText     =   "打印页面设置"
  608.             ImageIndex      =   1
  609.          EndProperty
  610.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  611.             Caption         =   "打印"
  612.             Key             =   "dy"
  613.             Object.ToolTipText     =   "打印当前单据或Ctrl+P"
  614.             ImageIndex      =   2
  615.          EndProperty
  616.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  617.             Caption         =   "预览"
  618.             Key             =   "yl"
  619.             ImageIndex      =   3
  620.          EndProperty
  621.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  622.             Style           =   3
  623.          EndProperty
  624.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  625.             Caption         =   "增行"
  626.             Key             =   "zh"
  627.             Object.ToolTipText     =   "插入一行或Insert"
  628.             ImageIndex      =   5
  629.          EndProperty
  630.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  631.             Caption         =   "删行"
  632.             Key             =   "sh"
  633.             Object.ToolTipText     =   "删除当前记录行或Delete"
  634.             ImageIndex      =   6
  635.          EndProperty
  636.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  637.             Key             =   "fgh1"
  638.             Style           =   3
  639.          EndProperty
  640.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  641.             Caption         =   "保存"
  642.             Key             =   "bc"
  643.             Object.ToolTipText     =   "保存单据或F6"
  644.             ImageIndex      =   7
  645.          EndProperty
  646.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  647.             Caption         =   "放弃"
  648.             Key             =   "fq"
  649.             Object.ToolTipText     =   "放弃此次操作"
  650.             ImageIndex      =   8
  651.          EndProperty
  652.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  653.             Key             =   "fgh2"
  654.             Style           =   3
  655.          EndProperty
  656.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  657.             Caption         =   "首张"
  658.             Key             =   "first"
  659.             ImageIndex      =   14
  660.          EndProperty
  661.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  662.             Caption         =   "上张"
  663.             Key             =   "prev"
  664.             ImageIndex      =   15
  665.          EndProperty
  666.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  667.             Caption         =   "下张"
  668.             Key             =   "next"
  669.             ImageIndex      =   16
  670.          EndProperty
  671.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  672.             Caption         =   "末张"
  673.             Key             =   "last"
  674.             ImageIndex      =   17
  675.          EndProperty
  676.          BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  677.             Key             =   "fgh5"
  678.             ImageIndex      =   18
  679.             Style           =   3
  680.          EndProperty
  681.          BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  682.             Caption         =   "选项"
  683.             Key             =   "xx"
  684.             ImageIndex      =   18
  685.          EndProperty
  686.          BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  687.             Style           =   3
  688.          EndProperty
  689.          BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  690.             Caption         =   "帮助"
  691.             Key             =   "bz"
  692.             ImageIndex      =   9
  693.          EndProperty
  694.          BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  695.             Caption         =   "退出"
  696.             Key             =   "fh"
  697.             ImageIndex      =   10
  698.          EndProperty
  699.       EndProperty
  700.       BorderStyle     =   1
  701.    End
  702.    Begin VB.Label TsLabel 
  703.       BackStyle       =   0  'Transparent
  704.       Caption         =   "制单:"
  705.       BeginProperty Font 
  706.          Name            =   "宋体"
  707.          Size            =   9
  708.          Charset         =   134
  709.          Weight          =   400
  710.          Underline       =   0   'False
  711.          Italic          =   0   'False
  712.          Strikethrough   =   0   'False
  713.       EndProperty
  714.       Height          =   225
  715.       Index           =   23
  716.       Left            =   8520
  717.       TabIndex        =   48
  718.       Top             =   6390
  719.       Width           =   525
  720.    End
  721.    Begin VB.Label TsLabel 
  722.       BackStyle       =   0  'Transparent
  723.       Caption         =   "审核:"
  724.       BeginProperty Font 
  725.          Name            =   "宋体"
  726.          Size            =   9
  727.          Charset         =   134
  728.          Weight          =   400
  729.          Underline       =   0   'False
  730.          Italic          =   0   'False
  731.          Strikethrough   =   0   'False
  732.       EndProperty
  733.       Height          =   225
  734.       Index           =   22
  735.       Left            =   6645
  736.       TabIndex        =   47
  737.       Top             =   6390
  738.       Width           =   495
  739.    End
  740.    Begin VB.Label TsLabel 
  741.       BackStyle       =   0  'Transparent
  742.       Caption         =   "记帐:"
  743.       BeginProperty Font 
  744.          Name            =   "宋体"
  745.          Size            =   9
  746.          Charset         =   134
  747.          Weight          =   400
  748.          Underline       =   0   'False
  749.          Italic          =   0   'False
  750.          Strikethrough   =   0   'False
  751.       EndProperty
  752.       Height          =   225
  753.       Index           =   21
  754.       Left            =   2595
  755.       TabIndex        =   46
  756.       Top             =   6390
  757.       Width           =   495
  758.    End
  759.    Begin VB.Label TsLabel 
  760.       BackStyle       =   0  'Transparent
  761.       Caption         =   "会计主管:"
  762.       BeginProperty Font 
  763.          Name            =   "宋体"
  764.          Size            =   9
  765.          Charset         =   134
  766.          Weight          =   400
  767.          Underline       =   0   'False
  768.          Italic          =   0   'False
  769.          Strikethrough   =   0   'False
  770.       EndProperty
  771.       Height          =   225
  772.       Index           =   20
  773.       Left            =   360
  774.       TabIndex        =   45
  775.       Top             =   6390
  776.       Width           =   915
  777.    End
  778.    Begin VB.Label TsLabel 
  779.       BackStyle       =   0  'Transparent
  780.       Caption         =   "出纳:"
  781.       BeginProperty Font 
  782.          Name            =   "宋体"
  783.          Size            =   9
  784.          Charset         =   134
  785.          Weight          =   400
  786.          Underline       =   0   'False
  787.          Italic          =   0   'False
  788.          Strikethrough   =   0   'False
  789.       EndProperty
  790.       Height          =   225
  791.       Index           =   19
  792.       Left            =   4620
  793.       TabIndex        =   44
  794.       Top             =   6390
  795.       Width           =   645
  796.    End
  797.    Begin VB.Label Label5 
  798.       Appearance      =   0  'Flat
  799.       BackColor       =   &H80000005&
  800.       BackStyle       =   0  'Transparent
  801.       BeginProperty Font 
  802.          Name            =   "宋体"
  803.          Size            =   9
  804.          Charset         =   134
  805.          Weight          =   400
  806.          Underline       =   0   'False
  807.          Italic          =   0   'False
  808.          Strikethrough   =   0   'False
  809.       EndProperty
  810.       ForeColor       =   &H00000000&
  811.       Height          =   225
  812.       Left            =   2790
  813.       TabIndex        =   43
  814.       Top             =   30
  815.       Width           =   735
  816.    End
  817.    Begin VB.Label Label2 
  818.       Appearance      =   0  'Flat
  819.       BackColor       =   &H80000005&
  820.       BackStyle       =   0  'Transparent
  821.       BeginProperty Font 
  822.          Name            =   "宋体"
  823.          Size            =   9
  824.          Charset         =   134
  825.          Weight          =   400
  826.          Underline       =   0   'False
  827.          Italic          =   0   'False
  828.          Strikethrough   =   0   'False
  829.       EndProperty
  830.       ForeColor       =   &H00000000&
  831.       Height          =   225
  832.       Left            =   5730
  833.       TabIndex        =   42
  834.       Top             =   6390
  835.       Width           =   735
  836.    End
  837.    Begin VB.Label Lab_VouchSource 
  838.       Caption         =   "Lab_VouchSource"
  839.       BeginProperty Font 
  840.          Name            =   "宋体"
  841.          Size            =   9
  842.          Charset         =   134
  843.          Weight          =   400
  844.          Underline       =   0   'False
  845.          Italic          =   0   'False
  846.          Strikethrough   =   0   'False
  847.       EndProperty
  848.       Height          =   285
  849.       Left            =   1260
  850.       TabIndex        =   41
  851.       Top             =   660
  852.       Visible         =   0   'False
  853.       Width           =   1095
  854.    End
  855.    Begin VB.Label Lab_OperNum 
  856.       Caption         =   "Lab_OperNum"
  857.       BeginProperty Font 
  858.          Name            =   "宋体"
  859.          Size            =   9
  860.          Charset         =   134
  861.          Weight          =   400
  862.          Underline       =   0   'False
  863.          Italic          =   0   'False
  864.          Strikethrough   =   0   'False
  865.       EndProperty
  866.       Height          =   285
  867.       Left            =   2370
  868.       TabIndex        =   40
  869.       Top             =   660
  870.       Visible         =   0   'False
  871.       Width           =   1065
  872.    End
  873.    Begin VB.Label Lab_Error 
  874.       Appearance      =   0  'Flat
  875.       BackColor       =   &H80000005&
  876.       BackStyle       =   0  'Transparent
  877.       BorderStyle     =   1  'Fixed Single
  878.       Caption         =   "有错"
  879.       BeginProperty Font 
  880.          Name            =   "宋体"
  881.          Size            =   15.75
  882.          Charset         =   134
  883.          Weight          =   400
  884.          Underline       =   0   'False
  885.          Italic          =   0   'False
  886.          Strikethrough   =   0   'False
  887.       EndProperty
  888.       ForeColor       =   &H000000FF&
  889.       Height          =   390
  890.       Left            =   120
  891.       TabIndex        =   39
  892.       Top             =   720
  893.       Visible         =   0   'False
  894.       Width           =   825
  895.    End
  896.    Begin VB.Label Lab_Succeed 
  897.       Appearance      =   0  'Flat
  898.       BackColor       =   &H80000005&
  899.       BackStyle       =   0  'Transparent
  900.       BorderStyle     =   1  'Fixed Single
  901.       Caption         =   "已生成"
  902.       BeginProperty Font 
  903.          Name            =   "宋体"
  904.          Size            =   15
  905.          Charset         =   134
  906.          Weight          =   400
  907.          Underline       =   0   'False
  908.          Italic          =   0   'False
  909.          Strikethrough   =   0   'False
  910.       EndProperty
  911.       ForeColor       =   &H000000FF&
  912.       Height          =   405
  913.       Left            =   120
  914.       TabIndex        =   38
  915.       Top             =   660
  916.       Visible         =   0   'False
  917.       Width           =   1005
  918.    End
  919.    Begin VB.Label Lab_VouchId 
  920.       AutoSize        =   -1  'True
  921.       BackColor       =   &H00C0C0C0&
  922.       Caption         =   "Lab_VouchId"
  923.       BeginProperty Font 
  924.          Name            =   "宋体"
  925.          Size            =   9
  926.          Charset         =   134
  927.          Weight          =   400
  928.          Underline       =   0   'False
  929.          Italic          =   0   'False
  930.          Strikethrough   =   0   'False
  931.       EndProperty
  932.       Height          =   180
  933.       Left            =   3060
  934.       TabIndex        =   37
  935.       Top             =   1380
  936.       Visible         =   0   'False
  937.       Width           =   990
  938.    End
  939.    Begin VB.Label TsLabel 
  940.       BackStyle       =   0  'Transparent
  941.       Caption         =   "出纳:"
  942.       BeginProperty Font 
  943.          Name            =   "宋体"
  944.          Size            =   9
  945.          Charset         =   134
  946.          Weight          =   400
  947.          Underline       =   0   'False
  948.          Italic          =   0   'False
  949.          Strikethrough   =   0   'False
  950.       EndProperty
  951.       Height          =   225
  952.       Index           =   14
  953.       Left            =   4680
  954.       TabIndex        =   35
  955.       Top             =   6900
  956.       Width           =   645
  957.    End
  958.    Begin VB.Label TsLabel 
  959.       BackStyle       =   0  'Transparent
  960.       Caption         =   "会计主管:"
  961.       BeginProperty Font 
  962.          Name            =   "宋体"
  963.          Size            =   9
  964.          Charset         =   134
  965.          Weight          =   400
  966.          Underline       =   0   'False
  967.          Italic          =   0   'False
  968.          Strikethrough   =   0   'False
  969.       EndProperty
  970.       Height          =   225
  971.       Index           =   3
  972.       Left            =   420
  973.       TabIndex        =   34
  974.       Top             =   6900
  975.       Width           =   855
  976.    End
  977.    Begin VB.Label TsLabel 
  978.       BackStyle       =   0  'Transparent
  979.       Caption         =   "当前记录"
  980.       BeginProperty Font 
  981.          Name            =   "宋体"
  982.          Size            =   9
  983.          Charset         =   134
  984.          Weight          =   400
  985.          Underline       =   0   'False
  986.          Italic          =   0   'False
  987.          Strikethrough   =   0   'False
  988.       EndProperty
  989.       Height          =   255
  990.       Index           =   13
  991.       Left            =   7860
  992.       TabIndex        =   33
  993.       Top             =   810
  994.       Width           =   825
  995.    End
  996.    Begin VB.Label Lab_Pzclzt 
  997.       BackColor       =   &H0000FFFF&
  998.       Caption         =   "1"
  999.       BeginProperty Font 
  1000.          Name            =   "宋体"
  1001.          Size            =   9
  1002.          Charset         =   134
  1003.          Weight          =   400
  1004.          Underline       =   0   'False
  1005.          Italic          =   0   'False
  1006.          Strikethrough   =   0   'False
  1007.       EndProperty
  1008.       ForeColor       =   &H00808080&
  1009.       Height          =   255
  1010.       Left            =   6600
  1011.       TabIndex        =   31
  1012.       Top             =   840
  1013.       Visible         =   0   'False
  1014.       Width           =   285
  1015.    End
  1016.    Begin VB.Label TsLabel 
  1017.       BackStyle       =   0  'Transparent
  1018.       Caption         =   "行)"
  1019.       BeginProperty Font 
  1020.          Name            =   "宋体"
  1021.          Size            =   9
  1022.          Charset         =   134
  1023.          Weight          =   400
  1024.          Underline       =   0   'False
  1025.          Italic          =   0   'False
  1026.          Strikethrough   =   0   'False
  1027.       EndProperty
  1028.       Height          =   255
  1029.       Index           =   12
  1030.       Left            =   9330
  1031.       TabIndex        =   30
  1032.       Top             =   810
  1033.       Width           =   405
  1034.    End
  1035.    Begin VB.Label TsLabel 
  1036.       BackStyle       =   0  'Transparent
  1037.       Caption         =   "(第"
  1038.       BeginProperty Font 
  1039.          Name            =   "宋体"
  1040.          Size            =   9
  1041.          Charset         =   134
  1042.          Weight          =   400
  1043.          Underline       =   0   'False
  1044.          Italic          =   0   'False
  1045.          Strikethrough   =   0   'False
  1046.       EndProperty
  1047.       Height          =   255
  1048.       Index           =   11
  1049.       Left            =   8700
  1050.       TabIndex        =   29
  1051.       Top             =   810
  1052.       Width           =   315
  1053.    End
  1054.    Begin VB.Label Lab_Row 
  1055.       Alignment       =   2  'Center
  1056.       Appearance      =   0  'Flat
  1057.       BackColor       =   &H80000005&
  1058.       BackStyle       =   0  'Transparent
  1059.       BeginProperty Font 
  1060.          Name            =   "宋体"
  1061.          Size            =   9
  1062.          Charset         =   134
  1063.          Weight          =   400
  1064.          Underline       =   0   'False
  1065.          Italic          =   0   'False
  1066.          Strikethrough   =   0   'False
  1067.       EndProperty
  1068.       ForeColor       =   &H00FF0000&
  1069.       Height          =   225
  1070.       Left            =   9000
  1071.       TabIndex        =   27
  1072.       Top             =   810
  1073.       Width           =   315
  1074.    End
  1075.    Begin VB.Label Lab_OperStatus 
  1076.       BackColor       =   &H000080FF&
  1077.       Caption         =   "2"
  1078.       BeginProperty Font 
  1079.          Name            =   "宋体"
  1080.          Size            =   9
  1081.          Charset         =   134
  1082.          Weight          =   400
  1083.          Underline       =   0   'False
  1084.          Italic          =   0   'False
  1085.          Strikethrough   =   0   'False
  1086.       EndProperty
  1087.       Height          =   225
  1088.       Left            =   6930
  1089.       TabIndex        =   26
  1090.       Top             =   840
  1091.       Visible         =   0   'False
  1092.       Width           =   195
  1093.    End
  1094.    Begin VB.Label TsLabel 
  1095.       BackStyle       =   0  'Transparent
  1096.       Caption         =   "字"
  1097.       BeginProperty Font 
  1098.          Name            =   "宋体"
  1099.          Size            =   9
  1100.          Charset         =   134
  1101.          Weight          =   400
  1102.          Underline       =   0   'False
  1103.          Italic          =   0   'False
  1104.          Strikethrough   =   0   'False
  1105.       EndProperty
  1106.       Height          =   195
  1107.       Index           =   10
  1108.       Left            =   2040
  1109.       TabIndex        =   25
  1110.       Top             =   1380
  1111.       Visible         =   0   'False
  1112.       Width           =   255
  1113.    End
  1114.    Begin VB.Label TsLabel 
  1115.       BackStyle       =   0  'Transparent
  1116.       Caption         =   "会计期间"
  1117.       BeginProperty Font 
  1118.          Name            =   "宋体"
  1119.          Size            =   9
  1120.          Charset         =   134
  1121.          Weight          =   400
  1122.          Underline       =   0   'False
  1123.          Italic          =   0   'False
  1124.          Strikethrough   =   0   'False
  1125.       EndProperty
  1126.       Height          =   255
  1127.       Index           =   9
  1128.       Left            =   7860
  1129.       TabIndex        =   23
  1130.       Top             =   1080
  1131.       Width           =   825
  1132.    End
  1133.    Begin VB.Label Lab_Bill 
  1134.       Appearance      =   0  'Flat
  1135.       AutoSize        =   -1  'True
  1136.       BackColor       =   &H80000005&
  1137.       BackStyle       =   0  'Transparent
  1138.       BeginProperty Font 
  1139.          Name            =   "宋体"
  1140.          Size            =   9
  1141.          Charset         =   134
  1142.          Weight          =   400
  1143.          Underline       =   0   'False
  1144.          Italic          =   0   'False
  1145.          Strikethrough   =   0   'False
  1146.       EndProperty
  1147.       ForeColor       =   &H00000000&
  1148.       Height          =   180
  1149.       Left            =   9150
  1150.       TabIndex        =   20
  1151.       Top             =   6390
  1152.       Width           =   540
  1153.    End
  1154.    Begin VB.Label Lab_Checker 
  1155.       Appearance      =   0  'Flat
  1156.       AutoSize        =   -1  'True
  1157.       BackColor       =   &H80000005&
  1158.       BackStyle       =   0  'Transparent
  1159.       BeginProperty Font 
  1160.          Name            =   "宋体"
  1161.          Size            =   9
  1162.          Charset         =   134
  1163.          Weight          =   400
  1164.          Underline       =   0   'False
  1165.          Italic          =   0   'False
  1166.          Strikethrough   =   0   'False
  1167.       EndProperty
  1168.       ForeColor       =   &H00000000&
  1169.       Height          =   180
  1170.       Left            =   7260
  1171.       TabIndex        =   19
  1172.       Top             =   6390
  1173.       Width           =   90
  1174.    End
  1175.    Begin VB.Label Lab_Book 
  1176.       Appearance      =   0  'Flat
  1177.       AutoSize        =   -1  'True
  1178.       BackColor       =   &H80000005&
  1179.       BackStyle       =   0  'Transparent
  1180.       BeginProperty Font 
  1181.          Name            =   "宋体"
  1182.          Size            =   9
  1183.          Charset         =   134
  1184.          Weight          =   400
  1185.          Underline       =   0   'False
  1186.          Italic          =   0   'False
  1187.          Strikethrough   =   0   'False
  1188.       EndProperty
  1189.       ForeColor       =   &H00000000&
  1190.       Height          =   180
  1191.       Left            =   3210
  1192.       TabIndex        =   18
  1193.       Top             =   6390
  1194.       Width           =   90
  1195.    End
  1196.    Begin VB.Label TsLabel 
  1197.       BackStyle       =   0  'Transparent
  1198.       Caption         =   "记帐:"
  1199.       BeginProperty Font 
  1200.          Name            =   "宋体"
  1201.          Size            =   9
  1202.          Charset         =   134
  1203.          Weight          =   400
  1204.          Underline       =   0   'False
  1205.          Italic          =   0   'False
  1206.          Strikethrough   =   0   'False
  1207.       EndProperty
  1208.       Height          =   225
  1209.       Index           =   8
  1210.       Left            =   2655
  1211.       TabIndex        =   17
  1212.       Top             =   6900
  1213.       Width           =   645
  1214.    End
  1215.    Begin VB.Label TsLabel 
  1216.       BackStyle       =   0  'Transparent
  1217.       Caption         =   "审核:"
  1218.       BeginProperty Font 
  1219.          Name            =   "宋体"
  1220.          Size            =   9
  1221.          Charset         =   134
  1222.          Weight          =   400
  1223.          Underline       =   0   'False
  1224.          Italic          =   0   'False
  1225.          Strikethrough   =   0   'False
  1226.       EndProperty
  1227.       Height          =   225
  1228.       Index           =   7
  1229.       Left            =   6705
  1230.       TabIndex        =   16
  1231.       Top             =   6900
  1232.       Width           =   495
  1233.    End
  1234.    Begin VB.Label TsLabel 
  1235.       BackStyle       =   0  'Transparent
  1236.       Caption         =   "制单:"
  1237.       BeginProperty Font 
  1238.          Name            =   "宋体"
  1239.          Size            =   9
  1240.          Charset         =   134
  1241.          Weight          =   400
  1242.          Underline       =   0   'False
  1243.          Italic          =   0   'False
  1244.          Strikethrough   =   0   'False
  1245.       EndProperty
  1246.       Height          =   225
  1247.       Index           =   5
  1248.       Left            =   8580
  1249.       TabIndex        =   15
  1250.       Top             =   6900
  1251.       Width           =   525
  1252.    End
  1253.    Begin VB.Label TsLabel 
  1254.       BackStyle       =   0  'Transparent
  1255.       Caption         =   "附单据数"
  1256.       BeginProperty Font 
  1257.          Name            =   "宋体"
  1258.          Size            =   9
  1259.          Charset         =   134
  1260.          Weight          =   400
  1261.          Underline       =   0   'False
  1262.          Italic          =   0   'False
  1263.          Strikethrough   =   0   'False
  1264.       EndProperty
  1265.       Height          =   255
  1266.       Index           =   2
  1267.       Left            =   7860
  1268.       TabIndex        =   11
  1269.       Top             =   1380
  1270.       Width           =   825
  1271.    End
  1272.    Begin VB.Label TsLabel 
  1273.       BackStyle       =   0  'Transparent
  1274.       Caption         =   "类别字号"
  1275.       BeginProperty Font 
  1276.          Name            =   "宋体"
  1277.          Size            =   9
  1278.          Charset         =   134
  1279.          Weight          =   400
  1280.          Underline       =   0   'False
  1281.          Italic          =   0   'False
  1282.          Strikethrough   =   0   'False
  1283.       EndProperty
  1284.       Height          =   225
  1285.       Index           =   0
  1286.       Left            =   750
  1287.       TabIndex        =   10
  1288.       Top             =   1380
  1289.       Width           =   825
  1290.    End
  1291.    Begin VB.Label TsLabel 
  1292.       BackStyle       =   0  'Transparent
  1293.       Caption         =   "制单日期"
  1294.       BeginProperty Font 
  1295.          Name            =   "宋体"
  1296.          Size            =   9
  1297.          Charset         =   134
  1298.          Weight          =   400
  1299.          Underline       =   0   'False
  1300.          Italic          =   0   'False
  1301.          Strikethrough   =   0   'False
  1302.       EndProperty
  1303.       Height          =   255
  1304.       Index           =   1
  1305.       Left            =   4470
  1306.       TabIndex        =   9
  1307.       Top             =   1380
  1308.       Width           =   825
  1309.    End
  1310.    Begin VB.Line Line1 
  1311.       BorderColor     =   &H00000000&
  1312.       Index           =   0
  1313.       X1              =   3945
  1314.       X2              =   6270
  1315.       Y1              =   1035
  1316.       Y2              =   1035
  1317.    End
  1318.    Begin VB.Line Line1 
  1319.       BorderColor     =   &H00000000&
  1320.       Index           =   1
  1321.       X1              =   3930
  1322.       X2              =   6270
  1323.       Y1              =   1080
  1324.       Y2              =   1080
  1325.    End
  1326.    Begin VB.Label TsLabel 
  1327.       BackColor       =   &H80000018&
  1328.       BackStyle       =   0  'Transparent
  1329.       Caption         =   "记 帐 凭 证"
  1330.       ForeColor       =   &H00000000&
  1331.       Height          =   330
  1332.       Index           =   4
  1333.       Left            =   4290
  1334.       TabIndex        =   4
  1335.       Top             =   720
  1336.       Width           =   2115
  1337.    End
  1338. End
  1339. Attribute VB_Name = "Jz_FrmPzFrm"
  1340. Attribute VB_GlobalNameSpace = False
  1341. Attribute VB_Creatable = False
  1342. Attribute VB_PredeclaredId = True
  1343. Attribute VB_Exposed = False
  1344. '***********************************************************************************************************
  1345. '*    模 块 名 称 :自动转帐凭证处理
  1346. '*    功 能 描 述 :此功能模块主要完成凭证自动生成功能。对外接口为本次"工作批号"
  1347. '*    程序员姓名  :姜冬梅
  1348. '*    最后修改人  :魏永生
  1349. '*    最后修改时间:2002/01/03
  1350. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  1351. '*
  1352. '*    1.每次调入外部功能窗体，均要加锁ChangeLock=True,窗体关闭后解锁ChangeLock=false
  1353. '*    2.网格列存储内容注解
  1354. '*      0-行有效标识 1-结算方式编码 2-结算方式名称 3-票号 4-发生日期 5-数量 6-用户录入单价(显示时自动计算)
  1355. '*      7-计量单位 8-外币编码 9-外币名称 10-外币金额 11-汇率 12-部门编码 13-部门名称
  1356. '*      14-客户编码 15-客户名称  16-职员编码 17-职员名称 18-项目大类编码 19-项目大类名称
  1357. '*      20-项目编码 21-项目名称  22-项目数量 23-项目计量单位 24-经办人 25-供应商编码 26-供应商名称
  1358. '*      索引对照:001-摘要  002-科目编码 003-科目名称 004-借方金额 005-贷方金额
  1359. '*    3.Lab_OperStatus 用此标签来标识单据录入状态(默认值为1) "1"-浏览 "2"-编辑
  1360. '*    4.Lab_Pzclzt 用此标签来标识凭证处理状态(默认值为1) "1"-编辑凭证                                                       "4"-明细帐联查凭证
  1361. '*    5.原则:只要单据能够存盘(无论修改或新增)则其必须接受完整性及有效性规则检查
  1362. '*    6.当执行“下张、上张、首张、末张”，写临时凭证；当“保存”时，则保存到正式凭证中，同时写临时凭证。
  1363. '*
  1364. '***********************************************************************************************************
  1365.  
  1366.  '[以下为根据实际情况设置变量
  1367.     Dim Int_AssCount As Integer                     '辅助核算项目总数
  1368.     Dim Bln_AssShow() As Boolean                    '辅助核算项目是否显示
  1369.     Dim Bln_AssHelp() As Boolean                    '辅助核算项目是否有帮助
  1370.     Dim Str_Digest As String                        '最后录入的一条凭证分录的摘要内容
  1371.     Dim Bln_BillChange As Boolean                   '标识单据是否发生改动
  1372.     Dim Int_Year As Integer     '年份
  1373.     Dim Int_Period As Integer   '会计期间
  1375.     Dim Rec_VouchMainTemp As New ADODB.Recordset    '临时凭证主表
  1376.     Dim Rec_VouchTemp As New ADODB.Recordset        '临时凭证辅表
  1377.     Dim rectemp As New ADODB.Recordset              '临时数据表
  1378.     Dim SqlStr As String                            '临时查询字符串
  1379.     Dim Rec_TranMainTemp  As New ADODB.Recordset    '本批结转的所有凭证记录集
  1380.     Dim Max_VouchIdTemp As Integer                  '本批凭证中最大的VouchIdTemp值
  1381.     Dim Min_VouchIdTemp As Integer                  '本批凭证中最小的VouchIdTemp值
  1382.     
  1383.     Dim Pub_VouchSource As String
  1384.     
  1385.  ']
  1386.  
  1387.  '以下为固定使用变量(网格)
  1388.     Dim Cxnrrec As New ADODB.Recordset              '显示查询内容动态集
  1389.     Dim Dyymctbl As New DY_Dyymsz                   '打印页面窗体变量
  1390.     Dim GridCode As String                          '显示网格网格代码
  1391.     Dim GridInf() As Variant                        '整个网格设置信息
  1392.     Dim ReportTitle As String                       '报表主标题
  1393.     Dim Tsxx As String                              '系统提示信息
  1394.     Dim Pmbcsjhs As Long                            '屏幕网格保持数据行数(大于等于1)
  1395.     Dim Fzxwghs As Integer                          '辅助项网格行数(包括合计行)
  1396.     Dim Sfxshjwg As Boolean                         '是否显示合计网格
  1397.     Dim Qslz As Long                                '网格隐藏(非操作显示)列数
  1398.     Dim Sjhgd As Double                             '网格数据行高度
  1399.     Dim GridBoolean() As Boolean                    '网格列信息(布尔型)
  1400.     Dim GridStr()  As String                        '网格列信息(字符型)
  1401.     Dim GridInt() As Integer                        '网格列信息(整型)
  1402.     Dim Sfblbzkd As Boolean                         '是否保留帮助宽度(字段提供帮助时,是否为按钮保留空间)
  1403.     Dim Dqlrwgh As Long                             '当前录入数据网格行
  1404.     Dim Dqlrwgl As Long                             '当前录入数据网格列
  1405.     Dim Dqlkwgh As Long                             '刚刚离开网格行(不一定为录入行)
  1406.     Dim Dqlkwgl As Long                             '刚刚离开网格列
  1407.     Dim Dqtoprow As Long                            '当前录入状态时最上端可视行
  1408.     Dim Dqleftcol As Long                           '当前录入状态时最左端可视列
  1409.     Dim Zdlrqnr As String                           '字段录入修改前内容(用来判断内容是否修改)
  1410.     Dim Wbkbhlock As Boolean                        '文本框改变值锁
  1411.     Dim changelock As Boolean                       '网格行列改变控制锁(用来区别用户改变.程序改变)
  1412.     Dim Gdtlock As Boolean                          '滚动条滚动控制(用来区别用户改变.程序改变)
  1413.     Dim Yxxpdlock As Boolean                        '字段有效性判断锁(内容不修改不需进行字段有效性判断)
  1414.     Dim Hyxxpdlock As Boolean                       '行有效性判断锁(字段内容不修改不需进行行有效性判断)
  1415.     Dim Valilock As Boolean                         '文本框失去焦点是否进行有效性控制(TRUE 为锁定*限用网格录入)
  1416.     Dim Shsfts As Boolean                           '删除记录行是否提示
  1417.     Dim Szzls As Integer                            '网格信息数组最大下标值(网格列数-1)
  1418.     
  1419.  '以下为固定使用变量(文本框)
  1420.     Dim Textvar() As Variant                        '存储变体型文本框信息
  1421.     Dim Textboolean() As Boolean                    '存储布尔型文本框信息
  1422.     Dim Textint() As Integer                        '存储整型文本框信息
  1423.     Dim Textstr() As String                         '存储字符型文本框信息
  1424.     Dim Max_Text_Index As Integer                   '最大录入文本框索引值
  1425.     Dim TextGroupCode As String                     '文本框录入分组编码
  1426.     Dim TextValiLock As Boolean                     '文本框失去焦点是否进行有效性控制判断
  1427.     Dim TextValiJudgeLock() As Boolean              '文本框录入有效性判断控制锁
  1428.     Dim TextChangeLock As Boolean                   '文本框内容变换控制锁
  1429.     Dim Bln_Cancel As Boolean                       '取消按钮信息传递
  1430. Private Sub Form_KeyPress(KeyAscii As Integer)       '控 制 焦 点 转 移
  1431.     Dim jdzygs As Integer
  1432.     jdzygs = 3
  1433.     Select Case KeyAscii
  1434.     Case vbKeyReturn
  1435.         If Kjjdzy(jdzygs) Then
  1436.             KeyAscii = 0
  1437.         End If
  1438.     Case 39           '屏蔽字符"'"
  1439.         KeyAscii = 0
  1440.     End Select
  1441. End Sub
  1443. Private Sub Form_Load()                              '窗 体 装 入
  1444.        
  1445.     '初始化各种锁值
  1446.     changelock = False             '网格行列改变控制锁
  1447.     Gdtlock = False                '滚动条滚动控制
  1448.     Yxxpdlock = True               '字段有效性判断锁
  1449.     Hyxxpdlock = True              '行有效性判断锁
  1450.     Wbkbhlock = False              '文本框内容改变锁
  1451.         
  1452.     '[>>开始 设置辅助核算项目属性
  1453.     Int_AssCount = 14
  1454.     ReDim Bln_AssShow(Int_AssCount - 1)
  1455.     ReDim Bln_AssHelp(Int_AssCount - 1)
  1456.     Bln_AssHelp(0) = True         '结算方式
  1457.     Bln_AssHelp(2) = True         '发生日期
  1458.     Bln_AssHelp(7) = True         '部门
  1459.     Bln_AssHelp(8) = True         '往来客户
  1460.     Bln_AssHelp(9) = True         '个人
  1461.     Bln_AssHelp(10) = True        '项目
  1462.     Bln_AssHelp(12) = True        '供应商
  1463.     Bln_AssHelp(13) = True        '经办人
  1464.      
  1465.     '整理凭证临时表,清除非法字段
  1466.     'Cw_DataEnvi.DataConnect.Execute "Exec Cwzz_Sp_ValidPz"
  1468.     '报表主标题及报表编码
  1469.     ReportTitle = "记 帐 凭 证"
  1470.     XtReportCode = "Cwzz_jzpzcl"
  1471.     Load Dyymctbl
  1472.     
  1473.     '以下为文本框处理程序
  1474.     TextGroupCode = "Cwzz_jzpzcl"
  1475.     
  1476.     Call Drwbkxx(TextGroupCode, Textvar(), Textboolean(), Textint(), Textstr())  '读入文本框录入信息
  1477.     Call Wbkcsh
  1478.     
  1479.     '调 入 网 格
  1480.     GridCode = "Cwzz_jzpzcl"          '网格属性编码
  1481.     Call BzWgcsh(WglrGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  1482.     
  1483.     Qslz = GridInf(1)
  1484.     Sjhgd = GridInf(2)
  1485.     Pmbcsjhs = GridInf(3)
  1486.     Fzxwghs = GridInf(4)
  1487.     Sfblbzkd = GridInf(5)
  1488.     Shsfts = GridInf(6)
  1489.     Sfxshjwg = GridInf(7)
  1490.     Szzls = WglrGrid.Cols - 1
  1491.     
  1492.     For jsqte = WglrGrid.FixedRows To WglrGrid.Rows - 1
  1493.         WglrGrid.RowHeight(jsqte) = Sjhgd
  1494.     Next jsqte
  1495.     
  1496.     
  1497.     '[>>置删行是否提示状态
  1498.     If Shsfts Then
  1499.         Chk_DeleteMess.Value = 1
  1500.     Else
  1501.         Chk_DeleteMess.Value = 0
  1502.     End If
  1503.     '<<]
  1504.     
  1505.     '初始化合计网格
  1506.     
  1507.     Call Cshhjwg
  1508.     
  1509.     '单据变动置为False
  1510.     Bln_BillChange = False
  1511.     
  1512.     '装入会计科目编码帮助窗体(为加快参照速度)PZ_FrmKjkmcz
  1513.     Load PZ_FrmKjkmcz
  1514.     Lab_Succeed.Caption = ""
  1515.     
  1516. End Sub
  1518. Private Sub Form_Unload(Cancel As Integer)           '窗体卸载
  1519.     
  1520.     '卸载打印页面窗体
  1521.     Unload Dyymctbl
  1522.     
  1523.     '卸载会计科目编码参照窗体
  1524.     PZ_FrmKjkmcz.UnloadCheck.Value = 1
  1525.     Unload PZ_FrmKjkmcz
  1526.     
  1527.     '判断凭证是否发生变化
  1528.     If Bln_BillChange Then
  1529.         Xtfhcs = "1"
  1530.     Else
  1531.         Xtfhcs = "0"
  1532.     End If
  1533.     Set Rec_VouchMainTemp = Nothing
  1534.     Set Rec_VouchTemp = Nothing
  1535.     Set rectemp = Nothing
  1536.     Set Rec_TranMainTemp = Nothing
  1537.     Set Rs_TranMainTemp = Nothing
  1538. End Sub
  1540. Private Sub Timer1_Timer()                           '根据不同凭证或单据状态处理不同的数据初始化
  1541.     
  1542.     '关闭定时器
  1543.     Timer1.Enabled = False
  1544.     
  1545.     '调入数据初始化模块
  1546.     Call Read_Data
  1547.     Call Sjcsh(Trim(Lab_Pzclzt.Caption))
  1548.     
  1549.     '填充会计期间列表框(年度默认为用户选择年度)
  1550.     Call Sub_FillPeriTran
  1551.     Int_Year = Val(Mid(Combo_Kjqj.Text, 1, 4))
  1552.     Int_Period = Val(Mid(Combo_Kjqj.Text, 6, 2))
  1553. End Sub
  1555. Private Sub Sjcsh(Str_Pzclzt As String)              '数据初始化模块(根据实际情况)
  1556.     Dim SqlStr As String       '查询凭证列表条件
  1557.     
  1558.     '[>>根据实际情况初始化
  1559.     Select Case Str_Pzclzt
  1560.     Case "1"   '编辑凭证
  1561.         Me.Caption = Lab_VouchSource.Caption
  1562.         
  1563.         '日期默认值为用户选择日期
  1564.         LrText(1).Text = Xtrq
  1565.         
  1566.         '设置操作状态为修改
  1567.         Lab_OperStatus = "2"         '编辑状态
  1568.         Call Sub_OperStatus("30")
  1569.         Call Sub_ShowBill
  1570.     End Select
  1571.     
  1572.     '<<]
  1573.     '重 置 网 格
  1574.     Call Sub_AdjustGrid
  1575. End Sub
  1577. Private Sub Sub_ShowBill()                                          '根据当前单据号显示整张单据内容
  1578.     Dim jsqte As Long                       '临时计数器
  1579.     SqlStr = "select * from Cwzz_V_AccVouchTempCh where OperationNo='" & Lab_OperNum.Caption & "' and VouchId='" & Val(Trim(Lab_VouchId.Caption)) & "' Order by VouchId,SerialId"
  1580.     Set rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1581.     '若该临时凭证没有保存为正式凭证，可以编辑
  1582.     If rectemp.EOF = True Then
  1583.         Exit Sub
  1584.     End If
  1585.     If Trim(rectemp.Fields("VouchNo") & "") = "" Or Trim(rectemp.Fields("VouchNo") & "") = 0 Then
  1586.         Lab_Succeed.Visible = False
  1587.         Lab_Succeed.Caption = ""
  1588.         Lab_OperStatus = "2"
  1589.         Call Sub_OperStatus("30")
  1590.     Else
  1591.         Lab_Succeed.Visible = True
  1592.         Lab_Succeed.Caption = "已生成"
  1593.         Lab_OperStatus = "1"
  1594.         Call Sub_OperStatus("11")
  1595.     End If
  1596.     With rectemp
  1597.         WglrGrid.Clear 1
  1598.         If .EOF Then
  1599.             Exit Sub
  1600.         Else
  1601.             WglrGrid.Rows = .RecordCount + WglrGrid.FixedRows
  1602.             
  1603.             '[>>显示单据头
  1604.             TextChangeLock = True
  1605.             LrText(0).Text = Trim(.Fields("VouchClassCode"))                                        '凭证类别
  1606.             If Lab_Succeed.Caption = "已生成" Then
  1607.                 LrText(3).Text = Mid(Trim(Str(10000 + .Fields("VouchNo"))), 2, 4)                    '凭证号
  1608.             End If
  1609.             LrText(3).Text = Lab_VouchId.Caption                                                    '在主表中取到的ID号
  1610.             If IsDate(.Fields("DDate")) Then
  1611.                 LrText(1).Text = Format(.Fields("Ddate"), "yyyy-mm-dd")                              '制单日期
  1612.             End If
  1613.             LrText(2).Text = Trim(Str(.Fields("Doc")))                                              '附单据数
  1614.             Lab_Bill.Caption = Trim(.Fields("Bill") & "")                                           '制单人
  1615.             Lab_Checker.Caption = ""                                                                '审核人
  1616.             Lab_Book.Caption = ""                                                                   '记帐人
  1617.             Lab_Error.Visible = False                                                               '标错
  1618.             TextChangeLock = False
  1619.             '<<]
  1620.         End If
  1621.         jsqte = WglrGrid.FixedRows
  1622.         Do While Not .EOF
  1623.             If jsqte >= WglrGrid.Rows Then
  1624.                 WglrGrid.AddItem ""
  1625.             End If
  1626.             
  1627.             '[>>显示单据分录
  1628.             WglrGrid.TextMatrix(jsqte, 0) = "*"                                                     '行标识
  1629.             '结算方式编码
  1630.             WglrGrid.TextMatrix(jsqte, 1) = Trim(IIf(IsNull(.Fields("SScode")), "", .Fields("SScode")))
  1631.             WglrGrid.TextMatrix(jsqte, 2) = Trim(IIf(IsNull(.Fields("SSName")), "", .Fields("SSName")))   '结算方式名称
  1632.             WglrGrid.TextMatrix(jsqte, 3) = Trim(IIf(IsNull(.Fields("billno")), "", .Fields("billno")))                  '票号
  1633.             If IsDate(.Fields("BillDate") & "") Then
  1634.                 WglrGrid.TextMatrix(jsqte, 4) = Format(.Fields("BillDate"), "yyyy-mm-dd")            '发生日期
  1635.             End If
  1636.             If .Fields("Jfsl") <> 0 Then
  1637.                 WglrGrid.TextMatrix(jsqte, 5) = Trim(Str(.Fields("Jfsl")))                           '数量
  1638.             End If
  1639.             If .Fields("Dfsl") <> 0 Then
  1640.                 WglrGrid.TextMatrix(jsqte, 5) = Trim(Str(.Fields("Dfsl")))                           '数量
  1641.             End If
  1642.             WglrGrid.TextMatrix(jsqte, 7) = ""                                                      '计量单位
  1643.             '币种为外币时填充网格
  1644.             If Trim(.Fields("ForeignCurrCode") & "") <> XtSCurrCode Then
  1645.                 WglrGrid.TextMatrix(jsqte, 8) = Trim(.Fields("ForeignCurrCode") & "")                         '原币编码
  1646.                 WglrGrid.TextMatrix(jsqte, 9) = Trim(.Fields("ForeignCurrName") & "")                         '原币名称
  1647.                 If .Fields("Wbjfje") <> 0 Then
  1648.                     WglrGrid.TextMatrix(jsqte, 10) = Trim(Str(.Fields("Wbjfje")))                              '原币金额
  1649.                 End If
  1650.                 If .Fields("Wbdfje") <> 0 Then
  1651.                     WglrGrid.TextMatrix(jsqte, 10) = Trim(Str(.Fields("Wbdfje")))                              '原币金额
  1652.                 End If
  1653.                 If .Fields("AccRate") <> 0 Then
  1654.                     WglrGrid.TextMatrix(jsqte, 11) = Trim(Str(.Fields("AccRate")))                             '记帐汇率
  1655.                 End If
  1656.             End If
  1657.             WglrGrid.TextMatrix(jsqte, 12) = Trim(.Fields("DeptCode") & "")                         '部门编码
  1658.             WglrGrid.TextMatrix(jsqte, 13) = Trim(.Fields("DeptName") & "")                         '部门名称
  1659.             WglrGrid.TextMatrix(jsqte, 14) = Trim(.Fields("CusCode") & "")                          '客户编码
  1660.             WglrGrid.TextMatrix(jsqte, 15) = Trim(.Fields("CusName") & "")                          '客户名称
  1661.             WglrGrid.TextMatrix(jsqte, 25) = Trim(.Fields("Suppliercode") & "")                    '供应商编码
  1662.             WglrGrid.TextMatrix(jsqte, 26) = Trim(.Fields("Suppliername") & "")                    '供应商名称
  1663.             WglrGrid.TextMatrix(jsqte, 16) = Trim(.Fields("PersonCode") & "")                       '职员编码
  1664.             WglrGrid.TextMatrix(jsqte, 17) = Trim(.Fields("PersonName") & "")                       '职员名称
  1665.             WglrGrid.TextMatrix(jsqte, 18) = Trim(.Fields("ItemClassCode") & "")                    '项目类别编码
  1666.             WglrGrid.TextMatrix(jsqte, 19) = Trim(.Fields("ItemClassName") & "")                    '项目类别名称
  1667.             WglrGrid.TextMatrix(jsqte, 20) = Trim(.Fields("ItemCode") & "")                         '项目编码
  1668.             WglrGrid.TextMatrix(jsqte, 21) = Trim(.Fields("ItemName") & "")                         '项目名称
  1669.             If Val(Trim(.Fields("ItemJfsl") & "")) <> 0 Then
  1670.                 WglrGrid.TextMatrix(jsqte, 22) = Trim(Str(.Fields("ItemJfsl")))                     '项目数量
  1671.             End If
  1672.             If Val(Trim(.Fields("ItemDfsl") & "")) <> 0 Then
  1673.                 WglrGrid.TextMatrix(jsqte, 22) = Trim(Str(.Fields("ItemDfsl")))                      '项目数量
  1674.             End If
  1675.             WglrGrid.TextMatrix(jsqte, 24) = Trim(.Fields("TranPerson") & "")                       '经办人
  1676.             WglrGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("Digest"))     '摘 要
  1677.             WglrGrid.TextMatrix(jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("Ccode") & "")       '科目编码
  1678.             WglrGrid.TextMatrix(jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("Cname") & "")   '科目名称
  1679.             If .Fields("Jfje") <> 0 Then
  1680.                 WglrGrid.TextMatrix(jsqte, Sydz("004", GridStr(), Szzls)) = Trim(Str(.Fields("Jfje"))) '借方金额
  1681.             Else
  1682.                 WglrGrid.TextMatrix(jsqte, Sydz("005", GridStr(), Szzls)) = Trim(Str(.Fields("Dfje"))) '贷方金额
  1683.             End If
  1684.             
  1685.             Pub_VouchSource = .Fields("VouchSource") & ""
  1686.             '<<]
  1687.             
  1688.             WglrGrid.RowHeight(jsqte) = Sjhgd
  1689.             .MoveNext
  1690.             jsqte = jsqte + 1
  1691.         Loop
  1692.     End With
  1693.     
  1694.     '调整网格
  1695.     Call Sub_AdjustGrid
  1696.     
  1697.     '显示备注信息
  1698.     Call Sub_ShowMemo(WglrGrid.Row)
  1699.     
  1700.     '计算合计数据
  1701.     For jsqte = Qslz To WglrGrid.Cols - 1
  1702.         Call Sjhj(jsqte)
  1703.     Next jsqte
  1704.     
  1705. End Sub
  1707. Private Sub Tlb_Action_ButtonClick(ByVal Button As MSComctlLib.Button)             '用户点击工具条
  1708.     
  1709.     '屏蔽文本框,下拉组合框有效性判断
  1710.     
  1711.     Valilock = True
  1712.     
  1713.     '屏蔽网格失去焦点产生的有效性判断
  1714.     
  1715.     changelock = True
  1716.     
  1717.     Select Case Button.Key
  1718.     Case "ymsz"                                          '页面设置
  1719.         Dyymctbl.Show 1
  1720.     Case "yl"                                            '预 览
  1721.         If Fun_Drfrmyxxpd Then
  1722.             Call bbyl(True)
  1723.         End If
  1724.     Case "dy"                                            '打 印
  1725.         If Fun_Drfrmyxxpd Then
  1726.             Call bbyl(False)
  1727.         End If
  1728.     Case "zh"                                            '增 行
  1729.         If Lab_Succeed.Caption = "已生成" Then
  1730.             Tsxx = "已生成凭证，不能执行此操作"
  1731.             Call Xtxxts(Tsxx, 0, 1)
  1732.             Exit Sub
  1733.         End If
  1734.         Call zjlrfl
  1735.     Case "sh"                                            '删 行
  1736.         If Lab_Succeed.Caption = "已生成" Then
  1737.             Tsxx = "已生成凭证，不能执行此操作"
  1738.             Call Xtxxts(Tsxx, 0, 1)
  1739.             Exit Sub
  1740.         End If
  1741.         Call Scdqfl
  1742.     Case "xx"                                            '选 项
  1743.         Call Sub_Option
  1744.     Case "bc"                                            '保 存 即生成正式凭证
  1745.         Call Sub_SaveBill
  1746.     Case "fq"                                            '放 弃
  1747.         Call Sub_AbandonBill
  1748.     Case "first"                                         '首 张
  1749.         Call Sub_First
  1750.     Case "prev"                                          '上 张
  1751.         Call Sub_Prev
  1752.     Case "next"                                          '下 张
  1753.         Call Sub_next
  1754.     Case "last"                                          '末 张
  1755.         Call Sub_Last
  1756.     Case "bz"                                            '帮 助
  1757.         Call F1bz
  1758.     Case "fh"                                            '退 出
  1759.         Call Quit
  1760.     End Select
  1761.     
  1762.     '解 锁
  1763.     Valilock = False
  1764.     changelock = False
  1765.     
  1766. End Sub
  1768. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)     '支持热键操作
  1769.     Select Case KeyCode
  1770.     Case vbKeyF6                                                 '保存凭证
  1771.         If Tlb_Action.Buttons("bc").Enabled Then
  1772.             Call Sub_SaveBill
  1773.         End If
  1774.     End Select
  1775. End Sub
  1777. Private Sub Sub_Option()                             '调用填制凭证选项
  1778.     With AutoTran_OptFrm
  1779.         
  1780.         '删行是否提示
  1781.         .Chk_DeleteMess.Value = Me.Chk_DeleteMess.Value
  1782.         
  1783.         '科目数量核算数量项是否可以为零
  1784.         .Chk_Quantity.Value = Me.Chk_Quantity.Value
  1785.         
  1786.         '打印凭证是否输出科目编码
  1787.         .Chk_CodeOutput.Value = Me.Chk_CodeOutput.Value
  1788.         
  1789.         .Show 1
  1790.         
  1791.     End With
  1792.     
  1793. End Sub
  1795. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)       '支持热键操作
  1796.     If Shift = 2 Then
  1797.         Select Case UCase(Chr(KeyCode))
  1798.         Case "P"                   'Ctrl+P 打印
  1799.             If Tlb_Action.Buttons("dy").Enabled Then
  1800.                 Call bbyl(False)
  1801.             End If
  1802.         End Select
  1803.     End If
  1804. End Sub
  1806. Private Sub Sub_OperStatus(Str_Status As String)                 '工具条依据不同状态所进行的变化
  1807.     With Tlb_Action
  1808.         Select Case Str_Status
  1809.         Case "11"   '浏览(放弃修改单据,查询单据,明细帐联查凭证)
  1810.             '工具条
  1811.             .Buttons("dy").Enabled = True      '打印
  1812.             .Buttons("yl").Enabled = True      '预览
  1813.             .Buttons("zh").Enabled = False     '增行
  1814.             .Buttons("sh").Enabled = False     '删行
  1815.             .Buttons("bc").Enabled = False     '保存
  1816.             .Buttons("fq").Enabled = False     '放弃
  1817.             If Val(Lab_VouchId.Caption) = Min_VouchIdTemp Then
  1818.                 .Buttons("first").Enabled = False   '首张
  1819.                 .Buttons("prev").Enabled = False    '上张
  1820.             Else
  1821.                 .Buttons("first").Enabled = True    '首张
  1822.                 .Buttons("prev").Enabled = True     '上张
  1823.             End If
  1824.             If Val(Lab_VouchId.Caption) = Max_VouchIdTemp Then
  1825.                 .Buttons("next").Enabled = False    '下张
  1826.                 .Buttons("last").Enabled = False    '末张
  1827.             Else
  1828.                 .Buttons("next").Enabled = True     '下张
  1829.                 .Buttons("last").Enabled = True     '末张
  1830.             End If
  1831.             '录入文本框
  1832.             For jsqte = Max_Text_Index To 0 Step -1
  1833.                 LrText(jsqte).Enabled = False
  1834.             Next jsqte
  1835.             Ydcommand.Visible = False
  1836.             Combo_Kjqj.Enabled = False
  1837.             
  1838.             '合计金额大写显示
  1839.             HjGrid.TextMatrix(0, Sydz("003", GridStr(), Szzls)) = Fun_Jezh(Val(HjGrid.TextMatrix(0, Sydz("004", GridStr(), Szzls))))
  1840.             
  1841.         Case "30"   '修改
  1842.             
  1843.             '工具条
  1844.             If Lab_Succeed.Caption = "已生成" Then
  1845.                 .Buttons("dy").Enabled = True                   '打印
  1846.                 .Buttons("yl").Enabled = True                   '预览
  1847.             Else
  1848.                 .Buttons("dy").Enabled = False                  '打印
  1849.                 .Buttons("yl").Enabled = False                  '预览
  1850.             End If
  1851.             .Buttons("zh").Enabled = True                       '增行
  1852.             .Buttons("sh").Enabled = True                       '删行
  1853.             .Buttons("bc").Enabled = True                       '保存
  1854.             .Buttons("fq").Enabled = True                       '放弃
  1855.             If Val(Lab_VouchId.Caption) = Min_VouchIdTemp Then
  1856.                 .Buttons("first").Enabled = False               '首张
  1857.                 .Buttons("prev").Enabled = False                '上张
  1858.             Else
  1859.                 .Buttons("first").Enabled = True                '首张
  1860.                 .Buttons("prev").Enabled = True                 '上张
  1861.             End If
  1862.             If Val(Lab_VouchId.Caption) = Max_VouchIdTemp Then
  1863.                 .Buttons("next").Enabled = False                '下张
  1864.                 .Buttons("last").Enabled = False                '末张
  1865.             Else
  1866.                 .Buttons("next").Enabled = True                 '下张
  1867.                 .Buttons("last").Enabled = True                 '末张
  1868.             End If
  1869.             
  1870.             '录入文本框
  1871.             For jsqte = 0 To Max_Text_Index
  1872.                 LrText(jsqte).Enabled = True
  1873.             Next jsqte
  1874.             
  1875.             LrText(0).Enabled = False
  1876.             LrText(3).Enabled = False
  1877.             Ydcommand.Visible = False
  1878.             Combo_Kjqj.Enabled = True
  1879.             
  1880.             '清空合计大写
  1881.             HjGrid.TextMatrix(0, Sydz("003", GridStr(), Szzls)) = ""
  1882.             
  1883.         End Select
  1884.     End With
  1885. End Sub
  1887. Private Sub Wbkcl()                                                 '文本框录入之前处理(根据实际情况)
  1888.     Dim xswbrr As String
  1889.     With WglrGrid
  1890.         Zdlrqnr = Trim(.Text)
  1891.         xswbrr = Trim(.Text)
  1892.         
  1893.         If GridBoolean(.Col, 3) Then   '列表框录入
  1894.             
  1895.             '填充列表框程序
  1896.             Call FillCombo(YdCombo, GridStr(.Col, 5), xswbrr, 0)
  1897.         Else
  1898.             Wbkbhlock = True
  1899.             
  1900.             '====以下为用户自定义
  1901.             Ydtext.Text = xswbrr
  1902.             '====以上为用户自定义
  1903.             
  1904.             Wbkbhlock = False
  1905.             Ydtext.SelStart = Len(Ydtext.Text)
  1906.         End If
  1907.     End With
  1908. End Sub
  1910. Private Function sjzdyxxpd(Dqpdwgh As Long, Dqpdwgl As Long)        '录入数据字段有效性判断,同时进行字段录入事后处理
  1911.     Dim Str_JudgeText As String            '临时有效性判断字段内容
  1912.     Dim Coljsq As Long                     '临时列计数器
  1913.     Dim rectemp As New ADODB.Recordset     '临时使用动态集
  1914.     
  1915.     With WglrGrid
  1916.         
  1917.         '非录入状态有效性为合法
  1918.         If Yxxpdlock Or .Row < .FixedRows Then
  1919.             sjzdyxxpd = True
  1920.             Exit Function
  1921.         End If
  1922.         
  1923.         Str_JudgeText = Trim(.TextMatrix(Dqpdwgh, Dqpdwgl))
  1924.         Select Case GridStr(Dqpdwgl, 1)
  1925.             
  1926.             '以下为自定义部分[
  1927.         Case "001"          '凭证摘要(如用户录入编码正确,则自动调入摘要内容)
  1928.             If Len(Str_JudgeText) <> 0 Then
  1929.                 SqlStr = "SELECT * FROM Cwzz_Digest Where DigestCode='" & Str_JudgeText & "'"
  1930.                 Set rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1931.                 If Not rectemp.EOF Then
  1932.                     .TextMatrix(Dqpdwgh, Sydz("001", GridStr(), Szzls)) = Trim(rectemp.Fields("DigestText"))
  1933.                 End If
  1934.                 
  1935.                 '保存最后录入的一条凭证分录的摘要内容
  1936.                 Str_Digest = .TextMatrix(Dqpdwgh, Sydz("001", GridStr(), Szzls))
  1937.             End If
  1938.         Case "002"          '会计科目(如有效则调入科目名称,如有辅助核算则调入辅助核算项录入窗体)
  1939.             If Len(Str_JudgeText) <> 0 Then
  1940.                 SqlStr = "Select Cwzz_AccCode.* ,ItemClassName,ForeignCurrName,AccRate FROM  Cwzz_AccCode " & _
  1941.                 " LEFT OUTER JOIN Cwzz_ItemClass ON Cwzz_AccCode.ItemClassCode = Cwzz_ItemClass.ItemClassCode " & _
  1942.                 " LEFT OUTER JOIN Gy_ForeignCurrency ON Cwzz_AccCode.ForeignCurrCode= Gy_ForeignCurrency.ForeignCurrCode " & _
  1943.                 " Where Ccode='" & Str_JudgeText & "' OR AssCode='" & Str_JudgeText & "'"
  1944.                 Set rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1945.                 With rectemp
  1946.                     If .EOF Then
  1947.                         Tsxx = "此科目不存在!"
  1948.                         GoTo Lrcwcl
  1949.                     Else
  1950.                         If Not .Fields("EndFlag") Then
  1951.                             Tsxx = "此科目非末级科目!"
  1952.                             GoTo Lrcwcl
  1953.                         End If
  1954.                         If .Fields("StopFlag") Then
  1955.                             Tsxx = "此科目已停用"
  1956.                             GoTo Lrcwcl
  1957.                         End If
  1958.                         
  1959.                         '如果此科目存在且改变过则执行下列操作
  1960.                         
  1961.                         '1.显示科目编码,改变科目名称
  1962.                         WglrGrid.TextMatrix(Dqpdwgh, Sydz("002", GridStr(), Szzls)) = Trim(rectemp.Fields("Ccode"))
  1963.                         WglrGrid.TextMatrix(Dqpdwgh, Sydz("003", GridStr(), Szzls)) = Trim(rectemp.Fields("Cname"))
  1964.                         
  1965.                         '2.判断科目进行哪些辅助核算
  1966.                         '读入外币汇率
  1967.                         If Not IsNull(rectemp.Fields("AccRate")) Then
  1968.                             WglrGrid.TextMatrix(Dqpdwgh, 11) = rectemp.Fields("AccRate")
  1969.                         Else
  1970.                             WglrGrid.TextMatrix(Dqpdwgh, 11) = ""
  1971.                         End If
  1972.                         Call Sub_Drfzhsx(Dqpdwgh, Str_JudgeText)
  1973.                     End If
  1974.                 End With
  1975.             Else
  1976.                 '清除所有辅助核算内容
  1977.                 For jsqte = 1 To 23
  1978.                     WglrGrid.TextMatrix(Dqpdwgh, jsqte) = ""
  1979.                 Next jsqte
  1980.                 .TextMatrix(Dqpdwgh, Sydz("003", GridStr(), Szzls)) = ""
  1981.                 
  1982.             End If
  1983.         Case "004"                                              '借方金额
  1984.             '用户如录入借方金额,系统则自动清除贷方金额
  1985.             If Val(WglrGrid.TextMatrix(Dqpdwgh, Dqpdwgl)) <> 0 Then
  1986.                 WglrGrid.TextMatrix(Dqpdwgh, Sydz("005", GridStr(), Szzls)) = ""
  1987.             End If
  1988.         Case "005"                                              '贷方金额
  1989.             '用户如录入贷方金额,系统则自动清除借方金额
  1990.             If Val(WglrGrid.TextMatrix(Dqpdwgh, Dqpdwgl)) <> 0 Then
  1991.                 WglrGrid.TextMatrix(Dqpdwgh, Sydz("004", GridStr(), Szzls)) = ""
  1992.             End If
  1993.             
  1994.             '2.放置字段事后处理程序
  1995.             '以上为自定义部分]
  1996.         End Select
  1997.         
  1998.         '字段录入正确后为零字段清空
  1999.         Call Qkwlzd(Dqpdwgh, Dqpdwgl)
  2000.         
  2001.         '字段录入正确后进行数据合计
  2002.         For Coljsq = Qslz To .Cols - 1
  2003.             Call Sjhj(Coljsq)
  2004.         Next Coljsq
  2005.         sjzdyxxpd = True
  2006.         Yxxpdlock = True
  2007.         Exit Function
  2008.     End With
  2009. Lrcwcl:    '录入错误处理
  2010.     With WglrGrid
  2011.         Call Xtxxts(Tsxx, 0, 1)
  2012.         changelock = True
  2013.         .Select Dqpdwgh, Dqpdwgl
  2014.         changelock = False
  2015.         Call xswbk
  2016.         sjzdyxxpd = False
  2017.         Exit Function
  2018.     End With
  2019. End Function
  2021. Private Function Sjhzyxxpd(ByVal Yxxpdh As Long) As Boolean                  '录入数据行有效性判断,同时进行行处理
  2022.     Dim Lrywlz As Long
  2023.     Dim rectemp As New ADODB.Recordset     '临时使用动态集
  2024.     Dim Bln_AssVali As Boolean             '辅助核算错误
  2025.     Dim jsqte As Long                      '临时计数器
  2026.     
  2027.     With WglrGrid
  2028.         
  2029.         '判断行为空和无效数据行则清除当前行
  2030.         If Yxxpdh > (.Rows - .FixedRows) Then Exit Function
  2031.         If .TextMatrix(Yxxpdh, 0) <> "*" Then
  2032.             Sjhzyxxpd = True
  2033.             Exit Function
  2034.         Else
  2035.             If pdhwk(Yxxpdh) And Yxxpdh + 1 <= .Rows - 1 Then
  2036.                 If .TextMatrix(Yxxpdh + 1, 0) <> "*" Then
  2037.                     changelock = True
  2038.                     .RemoveItem Yxxpdh
  2039.                     If .Rows < Pmbcsjhs + .FixedRows + Fzxwghs + 1 Then
  2040.                         .AddItem ""
  2041.                         .RowHeight(.Rows - 1) = Sjhgd
  2042.                     End If
  2043.                     changelock = False
  2044.                     Sjhzyxxpd = True
  2045.                     Exit Function
  2046.                 End If
  2047.             End If
  2048.         End If
  2049.         
  2050.         '行没有发生变化则不进行有效性判断
  2051.         If Hyxxpdlock Then
  2052.             Sjhzyxxpd = True
  2053.             Exit Function
  2054.         End If
  2055.         
  2056.         '以下为自定义部分[
  2057.         
  2058.         '1.放置行有效性判断程序
  2059.         
  2060.         '首先进行为空判断(固定不变)
  2061.         For jsqte = Qslz To .Cols - 1
  2062.             If (GridInt(jsqte, 5) = 1 And Len(Trim(.TextMatrix(Yxxpdh, jsqte))) = 0) Or (GridInt(jsqte, 5) = 2 And Val(Trim(.TextMatrix(Yxxpdh, jsqte))) = 0) Then
  2063.                 Tsxx = GridStr(jsqte, 2)
  2064.                 Lrywlz = jsqte
  2065.                 GoTo Lrcwcl
  2066.                 Exit For
  2067.             End If
  2068.         Next jsqte
  2069.         
  2070.         '2.[自定义判断(补丁)
  2071.         If Val(Trim(.TextMatrix(Yxxpdh, Sydz("004", GridStr(), Szzls)))) = 0 And Val(Trim(.TextMatrix(Yxxpdh, Sydz("005", GridStr(), Szzls)))) = 0 Then
  2072.             Tsxx = "借方和贷方金额不能同时为零!"
  2073.             Lrywlz = Sydz("004", GridStr(), Szzls)
  2074.             GoTo Lrcwcl
  2075.         End If
  2076.         
  2077.         If Val(Trim(.TextMatrix(Yxxpdh, Sydz("004", GridStr(), Szzls)))) <> 0 And Val(Trim(.TextMatrix(Yxxpdh, Sydz("005", GridStr(), Szzls)))) <> 0 Then
  2078.             Tsxx = "借方和贷方金额不能同时不为零!"
  2079.             Lrywlz = Sydz("004", GridStr(), Szzls)
  2080.             GoTo Lrcwcl
  2081.         End If
  2082.         
  2083.         '判断辅助核算项目是否填写
  2084.         SqlStr = "Select * FROM Cwzz_AccCode Where Ccode='" & Trim(.TextMatrix(Yxxpdh, Sydz("002", GridStr(), Szzls))) & "'"
  2085.         Set rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  2086.         With rectemp
  2087.             If Not .EOF Then
  2088.                 
  2089.                 '如有数量核算且用户选择数量不能为零则数量项不能为零
  2090.                 If rectemp.Fields("QuantityFlag") And Chk_Quantity.Value = 1 And Val(WglrGrid.TextMatrix(Yxxpdh, 5)) = 0 Then
  2091.                     Tsxx = "此科目需要数量核算,数量项不能为零!"
  2092.                     Lrywlz = Sydz("002", GridStr(), Szzls)
  2093.                     Bln_AssVali = True
  2094.                     GoTo Lrcwcl
  2095.                 End If
  2096.                 
  2097.                 '部门核算则部门不能为空
  2098.                 If rectemp.Fields("DeptFlag") And Len(Trim(WglrGrid.TextMatrix(Yxxpdh, 12))) = 0 Then
  2099.                     Tsxx = "此科目需要部门核算,部门项不能为空!"
  2100.                     Lrywlz = Sydz("002", GridStr(), Szzls)
  2101.                     Bln_AssVali = True
  2102.                     GoTo Lrcwcl
  2103.                 End If
  2104.                 
  2105.                 '往来客户核算则往来单位不能为空
  2106.                 If rectemp.Fields("CusFlag") And Len(Trim(WglrGrid.TextMatrix(Yxxpdh, 14))) = 0 Then
  2107.                     Tsxx = "此科目需要往来客户核算,往来客户项不能为空!"
  2108.                     Lrywlz = Sydz("002", GridStr(), Szzls)
  2109.                     Bln_AssVali = True
  2110.                     GoTo Lrcwcl
  2111.                 End If
  2112.                 
  2113.                 '往来供应商核算则往来供应商不能为空
  2114.                 If rectemp.Fields("SupplierFlag") And Len(Trim(WglrGrid.TextMatrix(Yxxpdh, 25))) = 0 Then
  2115.                     Tsxx = "此科目需要往来供应商核算,往来供应商项不能为空!"
  2116.                     Lrywlz = Sydz("002", GridStr(), Szzls)
  2117.                     Bln_AssVali = True
  2118.                     GoTo Lrcwcl
  2119.                 End If
  2120.                 
  2121.                 '个人往来核算则个人项不能为空
  2122.                 If rectemp.Fields("PersonFlag") And Len(Trim(WglrGrid.TextMatrix(Yxxpdh, 16))) = 0 Then
  2123.                     Tsxx = "此科目需要个人往来核算,个人项不能为空!"
  2124.                     Lrywlz = Sydz("002", GridStr(), Szzls)
  2125.                     Bln_AssVali = True
  2126.                     GoTo Lrcwcl
  2127.                 End If
  2128.                 
  2129.                 '项目核算则项目不能为空
  2130.                 If rectemp.Fields("ItemFlag") And Len(Trim(WglrGrid.TextMatrix(Yxxpdh, 20))) = 0 Then
  2131.                     Tsxx = "此科目需要项目核算,核算项目不能为空!"
  2132.                     Lrywlz = Sydz("002", GridStr(), Szzls)
  2133.                     Bln_AssVali = True
  2134.                     GoTo Lrcwcl
  2135.                 End If
  2136.             End If
  2137.         End With
  2138.         
  2139.         '2.放置行处理程序
  2140.         '以上为自定义部分]
  2141.     End With
  2142.     Sjhzyxxpd = True
  2143.     Hyxxpdlock = True
  2144.     Exit Function
  2145.     
  2146. Lrcwcl:      '录入错误处理
  2147.     With WglrGrid
  2148.         Call Xtxxts(Tsxx, 0, 1)
  2149.         changelock = True
  2150.         .Select Yxxpdh, Lrywlz
  2151.         changelock = False
  2152.         
  2153.         '[>>如果辅助核算出现错误则调用辅助核算功能
  2154.         If Bln_AssVali Then
  2155.             Call Sub_Drfzhsx(Yxxpdh, Trim(.TextMatrix(Yxxpdh, Sydz("002", GridStr(), Szzls))))
  2156.             
  2157.             '解决鼠标点击取消造成的换行
  2158.             changelock = True
  2159.             .Select Yxxpdh, Lrywlz
  2160.             changelock = False
  2161.             
  2162.             '<<]
  2163.         Else
  2164.             Call xswbk
  2165.         End If
  2166.         Sjhzyxxpd = False
  2167.         Exit Function
  2168.     End With
  2169. End Function
  2171. Private Sub Lab_Memo_DblClick(Index As Integer)            '点击辅助核算信息列
  2172.     
  2173.     '如果单据操作状态为浏览状态则不能显示录入载体
  2174.     If Trim(Lab_OperStatus.Caption) = "1" Then
  2175.         Exit Sub
  2176.     End If
  2177.     
  2178.     '当科目编码处于录入状态时不能调入辅助核算项目
  2179.     If Ydtext.Visible And GridStr(WglrGrid.Col, 1) = "002" Then
  2180.         Exit Sub
  2181.     End If
  2182.     
  2183.     '当焦点处于非录入区域时也不能调入辅助核算项目
  2184.     If WglrGrid.Row < WglrGrid.FixedRows Then
  2185.         Exit Sub
  2186.     End If
  2187.     
  2188.     '屏蔽文本框,下拉组合框有效性判断
  2189.     Valilock = True
  2190.     Call Sub_Drfzhsx(WglrGrid.Row, Trim(WglrGrid.TextMatrix(WglrGrid.Row, Sydz("002", GridStr(), Szzls))))
  2191.     Valilock = False
  2192. End Sub
  2194. Private Sub Sub_Drfzhsx(Dqpdwgh As Long, Str_JudgeText As String)   '判断科目是否有辅助核算,如有则调入辅助核算窗体
  2195.     '函数参数：当前判断网格行，判断科目
  2196.     
  2197.     Dim Coljsq As Long           '临时列计数器
  2198.     Dim rectemp As New ADODB.Recordset     '临时使用动态集
  2199.     
  2200.     If Len(Str_JudgeText) <> 0 Then
  2201.         SqlStr = "Select Cwzz_AccCode.* ,ItemClassName,ForeignCurrName,ConVertFlag FROM  Cwzz_AccCode " & _
  2202.         " LEFT OUTER JOIN Cwzz_ItemClass ON Cwzz_AccCode.ItemClassCode = Cwzz_ItemClass.ItemClassCode " & _
  2203.         " LEFT OUTER JOIN Gy_ForeignCurrency ON Cwzz_AccCode.ForeignCurrCode= Gy_ForeignCurrency.ForeignCurrCode " & _
  2204.         " Where Ccode='" + Str_JudgeText + "' and EndFlag=1 and StopFlag=0"
  2205.         Set rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  2206.         With rectemp
  2207.             If .EOF Then
  2208.                 Exit Sub
  2209.             Else
  2210.                 '判断科目进行哪些辅助核算
  2211.                 
  2212.                 '清空辅助核算标识
  2213.                 For jsqte = 0 To Int_AssCount - 1
  2214.                     Bln_AssShow(jsqte) = False
  2215.                 Next jsqte
  2216.                 '客户往来，供应商往来，银行科目需录入经办人
  2217.                 If Trim(rectemp.Fields("Cproperty")) = "银行" Or rectemp.Fields("CusFlag") Or rectemp.Fields("SupplierFlag") Then
  2218.                     Bln_AssShow(13) = True '经办人
  2219.                 Else
  2220.                     WglrGrid.TextMatrix(Dqpdwgh, 24) = ""
  2221.                 End If
  2222.                 
  2223.                 '银行科目--结算方式、票号、日期
  2224.                 If Trim(rectemp.Fields("Cproperty")) = "银行" Then
  2225.                     Bln_AssShow(0) = True  '结算方式
  2226.                     Bln_AssShow(1) = True  '票号
  2227.                     Bln_AssShow(2) = True  '日期
  2228.                     Bln_AssShow(13) = True '经办人
  2229.                 Else
  2230.                     WglrGrid.TextMatrix(Dqpdwgh, 1) = ""
  2231.                     WglrGrid.TextMatrix(Dqpdwgh, 2) = ""
  2232.                     WglrGrid.TextMatrix(Dqpdwgh, 3) = ""
  2233.                     WglrGrid.TextMatrix(Dqpdwgh, 4) = ""
  2234.                 End If
  2235.                 
  2236.                 '数量核算--数量,单价
  2237.                 If rectemp.Fields("QuantityFlag") Then
  2238.                     Bln_AssShow(3) = True  '数量
  2239.                     Bln_AssShow(4) = True  '单价
  2240.                     WglrGrid.TextMatrix(Dqpdwgh, 6) = ""
  2241.                     WglrGrid.TextMatrix(Dqpdwgh, 7) = Trim(.Fields("measure")) '单位
  2242.                 Else
  2243.                     WglrGrid.TextMatrix(Dqpdwgh, 5) = ""
  2244.                     WglrGrid.TextMatrix(Dqpdwgh, 6) = ""
  2245.                     WglrGrid.TextMatrix(Dqpdwgh, 7) = ""
  2246.                 End If
  2247.                 
  2248.                 '外币核算--外币,汇率
  2249.                 If rectemp.Fields("ForeignFlag") Then
  2250.                     WglrGrid.TextMatrix(Dqpdwgh, 8) = Trim(.Fields("ForeignCurrCode"))
  2251.                     WglrGrid.TextMatrix(Dqpdwgh, 9) = Trim(.Fields("ForeignCurrName"))
  2252.                     Bln_AssShow(5) = True  '外币金额
  2253.                     Bln_AssShow(6) = True  '汇率
  2254.                 Else
  2255.                     WglrGrid.TextMatrix(Dqpdwgh, 8) = ""
  2256.                     WglrGrid.TextMatrix(Dqpdwgh, 9) = ""
  2257.                     WglrGrid.TextMatrix(Dqpdwgh, 10) = ""
  2258.                     WglrGrid.TextMatrix(Dqpdwgh, 11) = ""
  2259.                 End If
  2260.                 
  2261.                 '部门核算
  2262.                 If rectemp.Fields("DeptFlag") Then
  2263.                     Bln_AssShow(7) = True  '部门
  2264.                 Else
  2265.                     WglrGrid.TextMatrix(Dqpdwgh, 12) = ""
  2266.                     WglrGrid.TextMatrix(Dqpdwgh, 13) = ""
  2267.                 End If
  2268.                 
  2269.                 '客户核算
  2270.                 If rectemp.Fields("CusFlag") Then
  2271.                     Bln_AssShow(8) = True  '客户
  2272.                 Else
  2273.                     WglrGrid.TextMatrix(Dqpdwgh, 14) = ""
  2274.                     WglrGrid.TextMatrix(Dqpdwgh, 15) = ""
  2275.                 End If
  2276.                 
  2277.                 '供应商核算
  2278.                 If rectemp.Fields("SupplierFlag") Then
  2279.                     Bln_AssShow(12) = True  '供应商
  2280.                 Else
  2281.                     WglrGrid.TextMatrix(Dqpdwgh, 25) = ""
  2282.                     WglrGrid.TextMatrix(Dqpdwgh, 26) = ""
  2283.                 End If
  2284.                 
  2285.                 '个人核算
  2286.                 If rectemp.Fields("PersonFlag") Then
  2287.                     Bln_AssShow(9) = True  '个人
  2288.                 Else
  2289.                     WglrGrid.TextMatrix(Dqpdwgh, 16) = ""
  2290.                     WglrGrid.TextMatrix(Dqpdwgh, 17) = ""
  2291.                 End If
  2292.                 
  2293.                 '项目核算
  2294.                 If rectemp.Fields("ItemFlag") Then
  2295.                     If WglrGrid.TextMatrix(Dqpdwgh, 18) <> Trim(.Fields("ItemClassCode")) Then
  2296.                         WglrGrid.TextMatrix(Dqpdwgh, 20) = ""
  2297.                         WglrGrid.TextMatrix(Dqpdwgh, 21) = ""
  2298.                         WglrGrid.TextMatrix(Dqpdwgh, 22) = ""
  2299.                         WglrGrid.TextMatrix(Dqpdwgh, 23) = ""
  2300.                     End If
  2301.                     
  2302.                     WglrGrid.TextMatrix(Dqpdwgh, 18) = Trim(.Fields("ItemClassCode")) '项目类别编码
  2303.                     WglrGrid.TextMatrix(Dqpdwgh, 19) = Trim(.Fields("ItemClassName")) '项目类别名称
  2304.                     
  2305.                     Bln_AssShow(10) = True  '项目
  2306.                     Bln_AssShow(11) = True  '项目数量
  2307.                 Else
  2308.                     WglrGrid.TextMatrix(Dqpdwgh, 18) = ""
  2309.                     WglrGrid.TextMatrix(Dqpdwgh, 19) = ""
  2310.                     WglrGrid.TextMatrix(Dqpdwgh, 20) = ""
  2311.                     WglrGrid.TextMatrix(Dqpdwgh, 21) = ""
  2312.                     WglrGrid.TextMatrix(Dqpdwgh, 22) = ""
  2313.                     WglrGrid.TextMatrix(Dqpdwgh, 23) = ""
  2314.                     
  2315.                 End If
  2316.                 
  2317.                 '调入科目辅助核算项目
  2318.                 For jsqte = 0 To Int_AssCount - 1
  2319.                     If Bln_AssShow(jsqte) Then
  2320.                         AutoTran_PzAss.lab_GridRow = Dqpdwgh
  2321.                         Call Kmfzhsx(Dqpdwgh)
  2322.                         
  2323.                         '判断用户录入数量单价是否为零，如不为零则由数量*单价=金额
  2324.                         '(考虑销售收入主要为贷方则借贷金额均为零时,金额自动填入贷方)
  2325.                         If Val(WglrGrid.TextMatrix(Dqpdwgh, 5)) <> 0 And Val(WglrGrid.TextMatrix(Dqpdwgh, 6)) <> 0 Then
  2326.                             If Val(Trim(WglrGrid.TextMatrix(Dqpdwgh, Sydz("004", GridStr(), Szzls)))) <> 0 Then
  2327.                                 WglrGrid.TextMatrix(Dqpdwgh, Sydz("004", GridStr(), Szzls)) = Format(Val(WglrGrid.TextMatrix(Dqpdwgh, 5)) * Val(WglrGrid.TextMatrix(Dqpdwgh, 6)), "##." + String(Xtjexsws, "0"))
  2328.                             Else
  2329.                                 WglrGrid.TextMatrix(Dqpdwgh, Sydz("005", GridStr(), Szzls)) = Format(Val(WglrGrid.TextMatrix(Dqpdwgh, 5)) * Val(WglrGrid.TextMatrix(Dqpdwgh, 6)), "##." + String(Xtjexsws, "0"))
  2330.                             End If
  2331.                         End If
  2332.                         
  2333.                         '判断用户录入外币汇率是否为零，如不为零则由外币*汇率=金额
  2334.                         '(借贷金额均为零时,金额自动填入借方)
  2335.                         If Val(WglrGrid.TextMatrix(Dqpdwgh, 10)) <> 0 And Val(WglrGrid.TextMatrix(Dqpdwgh, 11)) <> 0 Then
  2336.                             If Val(Trim(WglrGrid.TextMatrix(Dqpdwgh, Sydz("005", GridStr(), Szzls)))) <> 0 Then
  2337.                                 
  2338.                                 '判断外币折算方式
  2339.                                 If rectemp.Fields("ConVertFlag") Then
  2340.                                     WglrGrid.TextMatrix(Dqpdwgh, Sydz("005", GridStr(), Szzls)) = Format(Val(WglrGrid.TextMatrix(Dqpdwgh, 10)) / Val(WglrGrid.TextMatrix(Dqpdwgh, 11)), "##." + String(Xtjexsws, "0"))
  2341.                                 Else
  2342.                                     WglrGrid.TextMatrix(Dqpdwgh, Sydz("005", GridStr(), Szzls)) = Format(Val(WglrGrid.TextMatrix(Dqpdwgh, 10)) * Val(WglrGrid.TextMatrix(Dqpdwgh, 11)), "##." + String(Xtjexsws, "0"))
  2343.                                 End If
  2344.                             Else
  2345.                                 
  2346.                                 '判断外币折算方式
  2347.                                 If rectemp.Fields("ConVertFlag") Then
  2348.                                     WglrGrid.TextMatrix(Dqpdwgh, Sydz("004", GridStr(), Szzls)) = Format(Val(WglrGrid.TextMatrix(Dqpdwgh, 10)) / Val(WglrGrid.TextMatrix(Dqpdwgh, 11)), "##." + String(Xtjexsws, "0"))
  2349.                                 Else
  2350.                                     WglrGrid.TextMatrix(Dqpdwgh, Sydz("004", GridStr(), Szzls)) = Format(Val(WglrGrid.TextMatrix(Dqpdwgh, 10)) * Val(WglrGrid.TextMatrix(Dqpdwgh, 11)), "##." + String(Xtjexsws, "0"))
  2351.                                 End If
  2352.                             End If
  2353.                         End If
  2354.                         
  2355.                         Exit For
  2356.                     End If
  2357.                 Next jsqte
  2358.             End If
  2359.         End With
  2360.         
  2361.         '计算合计数据