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

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

企业管理

开发平台：

Visual Basic

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