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

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

企业管理

开发平台：

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