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

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

企业管理

开发平台：

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