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

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