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

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

企业管理

开发平台：

Visual Basic

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