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

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

企业管理

开发平台：

Visual Basic

˪-i㦥：源码内容
  1. VERSION 5.00
  2. Object = "{BEEECC20-4D5F-4F8B-BFDC-5D9B6FBDE09D}#1.0#0"; "vsflex8.ocx"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  4. Begin VB.Form Note_FrmNoteList 
  5.    Caption         =   "应收票据列表"
  6.    ClientHeight    =   8595
  7.    ClientLeft      =   315
  8.    ClientTop       =   390
  9.    ClientWidth     =   11820
  10.    HelpContextID   =   20404
  11.    Icon            =   "应收票据_应收票据查询结果.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form1"
  14.    MDIChild        =   -1  'True
  15.    ScaleHeight     =   8595
  16.    ScaleWidth      =   11820
  17.    WindowState     =   2  'Maximized
  18.    Begin MSComctlLib.Toolbar GsToolbar 
  19.       Height          =   525
  20.       Left            =   9330
  21.       TabIndex        =   3
  22.       Top             =   30
  23.       Width           =   2475
  24.       _ExtentX        =   4366
  25.       _ExtentY        =   926
  26.       ButtonWidth     =   1455
  27.       ButtonHeight    =   926
  28.       Appearance      =   1
  29.       Style           =   1
  30.       ImageList       =   "ImageList2"
  31.       _Version        =   393216
  32.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  33.          NumButtons      =   3
  34.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  35.             Caption         =   "保存格式"
  36.             Key             =   "bcgs"
  37.             ImageKey        =   "bcgs"
  38.          EndProperty
  39.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  40.             Caption         =   "默认列宽"
  41.             Key             =   "hfmrgs"
  42.             ImageKey        =   "mrlk"
  43.          EndProperty
  44.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  45.             Caption         =   "显示项目"
  46.             Key             =   "szxsxm"
  47.             ImageKey        =   "xsxm"
  48.          EndProperty
  49.       EndProperty
  50.    End
  51.    Begin VB.PictureBox Pic_Title 
  52.       BackColor       =   &H00FFFFFF&
  53.       Height          =   825
  54.       Left            =   0
  55.       Picture         =   "应收票据_应收票据查询结果.frx":1042
  56.       ScaleHeight     =   765
  57.       ScaleWidth      =   11715
  58.       TabIndex        =   1
  59.       Top             =   570
  60.       Width           =   11775
  61.       Begin MSComctlLib.ImageList ImageList1 
  62.          Left            =   8370
  63.          Top             =   0
  64.          _ExtentX        =   1005
  65.          _ExtentY        =   1005
  66.          BackColor       =   -2147483643
  67.          ImageWidth      =   16
  68.          ImageHeight     =   16
  69.          MaskColor       =   12632256
  70.          _Version        =   393216
  71.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  72.             NumListImages   =   41
  73.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  74.                Picture         =   "应收票据_应收票据查询结果.frx":1DF82
  75.                Key             =   "sz"
  76.             EndProperty
  77.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  78.                Picture         =   "应收票据_应收票据查询结果.frx":1E31C
  79.                Key             =   "dy"
  80.             EndProperty
  81.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  82.                Picture         =   "应收票据_应收票据查询结果.frx":1E6B6
  83.                Key             =   "yl"
  84.             EndProperty
  85.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  86.                Picture         =   "应收票据_应收票据查询结果.frx":1EA50
  87.                Key             =   "xg"
  88.             EndProperty
  89.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  90.                Picture         =   "应收票据_应收票据查询结果.frx":1EDEA
  91.                Key             =   "zh"
  92.             EndProperty
  93.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  94.                Picture         =   "应收票据_应收票据查询结果.frx":1F184
  95.                Key             =   "sh"
  96.             EndProperty
  97.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  98.                Picture         =   "应收票据_应收票据查询结果.frx":1F51E
  99.                Key             =   "bc"
  100.             EndProperty
  101.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  102.                Picture         =   "应收票据_应收票据查询结果.frx":1F8B8
  103.                Key             =   "fq"
  104.             EndProperty
  105.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  106.                Picture         =   "应收票据_应收票据查询结果.frx":1FC52
  107.                Key             =   "bz"
  108.             EndProperty
  109.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  110.                Picture         =   "应收票据_应收票据查询结果.frx":1FFEC
  111.                Key             =   "tc"
  112.             EndProperty
  113.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  114.                Picture         =   "应收票据_应收票据查询结果.frx":20386
  115.                Key             =   "bcgs"
  116.             EndProperty
  117.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  118.                Picture         =   "应收票据_应收票据查询结果.frx":20720
  119.                Key             =   "mrlk"
  120.             EndProperty
  121.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  122.                Picture         =   "应收票据_应收票据查询结果.frx":20ABA
  123.                Key             =   "xsxm"
  124.             EndProperty
  125.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  126.                Picture         =   "应收票据_应收票据查询结果.frx":20E54
  127.                Key             =   "first"
  128.             EndProperty
  129.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  130.                Picture         =   "应收票据_应收票据查询结果.frx":211EE
  131.                Key             =   "prev"
  132.             EndProperty
  133.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  134.                Picture         =   "应收票据_应收票据查询结果.frx":21588
  135.                Key             =   "next"
  136.             EndProperty
  137.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  138.                Picture         =   "应收票据_应收票据查询结果.frx":21922
  139.                Key             =   "last"
  140.             EndProperty
  141.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  142.                Picture         =   "应收票据_应收票据查询结果.frx":21CBC
  143.                Key             =   "xx"
  144.             EndProperty
  145.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  146.                Picture         =   "应收票据_应收票据查询结果.frx":22056
  147.                Key             =   "define"
  148.             EndProperty
  149.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  150.                Picture         =   "应收票据_应收票据查询结果.frx":223F0
  151.                Key             =   "exec"
  152.             EndProperty
  153.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  154.                Picture         =   "应收票据_应收票据查询结果.frx":2278A
  155.                Key             =   "xz"
  156.             EndProperty
  157.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  158.                Picture         =   "应收票据_应收票据查询结果.frx":22B24
  159.                Key             =   "sc"
  160.             EndProperty
  161.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  162.                Picture         =   "应收票据_应收票据查询结果.frx":22EBE
  163.                Key             =   "sx"
  164.             EndProperty
  165.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  166.                Picture         =   "应收票据_应收票据查询结果.frx":23258
  167.                Key             =   "cx"
  168.             EndProperty
  169.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  170.                Picture         =   "应收票据_应收票据查询结果.frx":235F2
  171.                Key             =   "zd"
  172.             EndProperty
  173.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  174.                Picture         =   "应收票据_应收票据查询结果.frx":2398C
  175.                Key             =   "dz"
  176.             EndProperty
  177.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  178.                Picture         =   "应收票据_应收票据查询结果.frx":23D26
  179.                Key             =   "ph"
  180.             EndProperty
  181.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  182.                Picture         =   "应收票据_应收票据查询结果.frx":240C0
  183.                Key             =   "fz"
  184.             EndProperty
  185.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  186.                Picture         =   "应收票据_应收票据查询结果.frx":2445A
  187.                Key             =   "dw"
  188.             EndProperty
  189.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  190.                Picture         =   "应收票据_应收票据查询结果.frx":247F4
  191.                Key             =   "shsh"
  192.             EndProperty
  193.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  194.                Picture         =   "应收票据_应收票据查询结果.frx":24B8E
  195.                Key             =   "shqs"
  196.             EndProperty
  197.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  198.                Picture         =   "应收票据_应收票据查询结果.frx":24F28
  199.                Key             =   "quanxuan"
  200.             EndProperty
  201.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  202.                Picture         =   "应收票据_应收票据查询结果.frx":252C2
  203.                Key             =   "quanqi"
  204.             EndProperty
  205.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  206.                Picture         =   "应收票据_应收票据查询结果.frx":2565C
  207.                Key             =   "Endorse"
  208.             EndProperty
  209.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  210.                Picture         =   "应收票据_应收票据查询结果.frx":259F6
  211.                Key             =   "Cancel"
  212.             EndProperty
  213.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  214.                Picture         =   "应收票据_应收票据查询结果.frx":25D90
  215.                Key             =   "Discount"
  216.             EndProperty
  217.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  218.                Picture         =   "应收票据_应收票据查询结果.frx":2612A
  219.                Key             =   "Encash"
  220.             EndProperty
  221.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  222.                Picture         =   "应收票据_应收票据查询结果.frx":264C4
  223.                Key             =   "TurnOut"
  224.             EndProperty
  225.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  226.                Picture         =   "应收票据_应收票据查询结果.frx":2685E
  227.                Key             =   "pz"
  228.             EndProperty
  229.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  230.                Picture         =   "应收票据_应收票据查询结果.frx":26BF8
  231.                Key             =   "quansh"
  232.             EndProperty
  233.             BeginProperty ListImage41 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  234.                Picture         =   "应收票据_应收票据查询结果.frx":26F92
  235.                Key             =   "bill"
  236.             EndProperty
  237.          EndProperty
  238.       End
  239.       Begin VB.Label Lab_Color 
  240.          Appearance      =   0  'Flat
  241.          BackColor       =   &H00FFFFFF&
  242.          BorderStyle     =   1  'Fixed Single
  243.          ForeColor       =   &H80000008&
  244.          Height          =   195
  245.          Index           =   0
  246.          Left            =   9540
  247.          TabIndex        =   7
  248.          Top             =   120
  249.          Width           =   195
  250.       End
  251.       Begin VB.Label Label1 
  252.          Appearance      =   0  'Flat
  253.          BackColor       =   &H80000005&
  254.          BackStyle       =   0  'Transparent
  255.          Caption         =   "未审核"
  256.          ForeColor       =   &H80000008&
  257.          Height          =   195
  258.          Index           =   1
  259.          Left            =   9780
  260.          TabIndex        =   6
  261.          Top             =   120
  262.          Width           =   795
  263.       End
  264.       Begin VB.Label Lab_Color 
  265.          Appearance      =   0  'Flat
  266.          BackColor       =   &H00C0E0FF&
  267.          BorderStyle     =   1  'Fixed Single
  268.          ForeColor       =   &H80000008&
  269.          Height          =   195
  270.          Index           =   1
  271.          Left            =   9540
  272.          TabIndex        =   5
  273.          Top             =   450
  274.          Width           =   195
  275.       End
  276.       Begin VB.Label Label1 
  277.          Appearance      =   0  'Flat
  278.          BackColor       =   &H80000005&
  279.          BackStyle       =   0  'Transparent
  280.          Caption         =   "审  核"
  281.          ForeColor       =   &H80000008&
  282.          Height          =   195
  283.          Index           =   3
  284.          Left            =   9780
  285.          TabIndex        =   4
  286.          Top             =   450
  287.          Width           =   795
  288.       End
  289.       Begin VB.Label Lab_Title 
  290.          AutoSize        =   -1  'True
  291.          BackColor       =   &H80000018&
  292.          BackStyle       =   0  'Transparent
  293.          Caption         =   "应收票据列表"
  294.          BeginProperty Font 
  295.             Name            =   "宋体"
  296.             Size            =   12
  297.             Charset         =   134
  298.             Weight          =   700
  299.             Underline       =   0   'False
  300.             Italic          =   0   'False
  301.             Strikethrough   =   0   'False
  302.          EndProperty
  303.          ForeColor       =   &H00000000&
  304.          Height          =   240
  305.          Index           =   4
  306.          Left            =   510
  307.          TabIndex        =   2
  308.          Top             =   210
  309.          Width           =   1530
  310.       End
  311.    End
  312.    Begin VB.Timer Timer1 
  313.       Enabled         =   0   'False
  314.       Interval        =   1
  315.       Left            =   8970
  316.       Top             =   630
  317.    End
  318.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  319.       Height          =   7545
  320.       Left            =   30
  321.       TabIndex        =   0
  322.       Top             =   1470
  323.       Width           =   11775
  324.       _cx             =   5080
  325.       _cy             =   5080
  326.       Appearance      =   1
  327.       BorderStyle     =   1
  328.       Enabled         =   -1  'True
  329.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  330.          Name            =   "宋体"
  331.          Size            =   9
  332.          Charset         =   134
  333.          Weight          =   400
  334.          Underline       =   0   'False
  335.          Italic          =   0   'False
  336.          Strikethrough   =   0   'False
  337.       EndProperty
  338.       MousePointer    =   0
  339.       BackColor       =   16777215
  340.       ForeColor       =   -2147483640
  341.       BackColorFixed  =   13826538
  342.       ForeColorFixed  =   -2147483630
  343.       BackColorSel    =   -2147483635
  344.       ForeColorSel    =   -2147483634
  345.       BackColorBkg    =   -2147483636
  346.       BackColorAlternate=   16777215
  347.       GridColor       =   -2147483633
  348.       GridColorFixed  =   -2147483632
  349.       TreeColor       =   -2147483632
  350.       FloodColor      =   192
  351.       SheetBorder     =   -2147483642
  352.       FocusRect       =   1
  353.       HighLight       =   1
  354.       AllowSelection  =   -1  'True
  355.       AllowBigSelection=   -1  'True
  356.       AllowUserResizing=   0
  357.       SelectionMode   =   0
  358.       GridLines       =   1
  359.       GridLinesFixed  =   2
  360.       GridLineWidth   =   1
  361.       Rows            =   50
  362.       Cols            =   10
  363.       FixedRows       =   1
  364.       FixedCols       =   1
  365.       RowHeightMin    =   0
  366.       RowHeightMax    =   0
  367.       ColWidthMin     =   0
  368.       ColWidthMax     =   0
  369.       ExtendLastCol   =   0   'False
  370.       FormatString    =   ""
  371.       ScrollTrack     =   0   'False
  372.       ScrollBars      =   3
  373.       ScrollTips      =   0   'False
  374.       MergeCells      =   0
  375.       MergeCompare    =   0
  376.       AutoResize      =   -1  'True
  377.       AutoSizeMode    =   0
  378.       AutoSearch      =   0
  379.       AutoSearchDelay =   2
  380.       MultiTotals     =   -1  'True
  381.       SubtotalPosition=   1
  382.       OutlineBar      =   0
  383.       OutlineCol      =   0
  384.       Ellipsis        =   0
  385.       ExplorerBar     =   0
  386.       PicturesOver    =   0   'False
  387.       FillStyle       =   0
  388.       RightToLeft     =   0   'False
  389.       PictureType     =   0
  390.       TabBehavior     =   0
  391.       OwnerDraw       =   0
  392.       Editable        =   0
  393.       ShowComboButton =   1
  394.       WordWrap        =   0   'False
  395.       TextStyle       =   0
  396.       TextStyleFixed  =   0
  397.       OleDragMode     =   0
  398.       OleDropMode     =   0
  399.       DataMode        =   0
  400.       VirtualData     =   -1  'True
  401.       DataMember      =   ""
  402.       ComboSearch     =   3
  403.       AutoSizeMouse   =   -1  'True
  404.       FrozenRows      =   0
  405.       FrozenCols      =   0
  406.       AllowUserFreezing=   0
  407.       BackColorFrozen =   0
  408.       ForeColorFrozen =   0
  409.       WallPaperAlignment=   9
  410.       AccessibleName  =   ""
  411.       AccessibleDescription=   ""
  412.       AccessibleValue =   ""
  413.       AccessibleRole  =   24
  414.       Begin MSComctlLib.ImageList ImageList2 
  415.          Left            =   0
  416.          Top             =   0
  417.          _ExtentX        =   1005
  418.          _ExtentY        =   1005
  419.          BackColor       =   -2147483643
  420.          ImageWidth      =   16
  421.          ImageHeight     =   16
  422.          MaskColor       =   12632256
  423.          _Version        =   393216
  424.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  425.             NumListImages   =   40
  426.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  427.                Picture         =   "应收票据_应收票据查询结果.frx":2732C
  428.                Key             =   "sz"
  429.             EndProperty
  430.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  431.                Picture         =   "应收票据_应收票据查询结果.frx":276C6
  432.                Key             =   "dy"
  433.             EndProperty
  434.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  435.                Picture         =   "应收票据_应收票据查询结果.frx":27A60
  436.                Key             =   "yl"
  437.             EndProperty
  438.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  439.                Picture         =   "应收票据_应收票据查询结果.frx":27DFA
  440.                Key             =   "xg"
  441.             EndProperty
  442.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  443.                Picture         =   "应收票据_应收票据查询结果.frx":28194
  444.                Key             =   "zh"
  445.             EndProperty
  446.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  447.                Picture         =   "应收票据_应收票据查询结果.frx":2852E
  448.                Key             =   "sh"
  449.             EndProperty
  450.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  451.                Picture         =   "应收票据_应收票据查询结果.frx":288C8
  452.                Key             =   "bc"
  453.             EndProperty
  454.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  455.                Picture         =   "应收票据_应收票据查询结果.frx":28C62
  456.                Key             =   "fq"
  457.             EndProperty
  458.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  459.                Picture         =   "应收票据_应收票据查询结果.frx":28FFC
  460.                Key             =   "bz"
  461.             EndProperty
  462.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  463.                Picture         =   "应收票据_应收票据查询结果.frx":29396
  464.                Key             =   "tc"
  465.             EndProperty
  466.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  467.                Picture         =   "应收票据_应收票据查询结果.frx":29730
  468.                Key             =   "bcgs"
  469.             EndProperty
  470.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  471.                Picture         =   "应收票据_应收票据查询结果.frx":29ACA
  472.                Key             =   "mrlk"
  473.             EndProperty
  474.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  475.                Picture         =   "应收票据_应收票据查询结果.frx":29E64
  476.                Key             =   "xsxm"
  477.             EndProperty
  478.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  479.                Picture         =   "应收票据_应收票据查询结果.frx":2A1FE
  480.                Key             =   "first"
  481.             EndProperty
  482.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  483.                Picture         =   "应收票据_应收票据查询结果.frx":2A598
  484.                Key             =   "prev"
  485.             EndProperty
  486.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  487.                Picture         =   "应收票据_应收票据查询结果.frx":2A932
  488.                Key             =   "next"
  489.             EndProperty
  490.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  491.                Picture         =   "应收票据_应收票据查询结果.frx":2ACCC
  492.                Key             =   "last"
  493.             EndProperty
  494.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  495.                Picture         =   "应收票据_应收票据查询结果.frx":2B066
  496.                Key             =   "xx"
  497.             EndProperty
  498.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  499.                Picture         =   "应收票据_应收票据查询结果.frx":2B400
  500.                Key             =   "define"
  501.             EndProperty
  502.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  503.                Picture         =   "应收票据_应收票据查询结果.frx":2B79A
  504.                Key             =   "exec"
  505.             EndProperty
  506.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  507.                Picture         =   "应收票据_应收票据查询结果.frx":2BB34
  508.                Key             =   "xz"
  509.             EndProperty
  510.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  511.                Picture         =   "应收票据_应收票据查询结果.frx":2BECE
  512.                Key             =   "sc"
  513.             EndProperty
  514.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  515.                Picture         =   "应收票据_应收票据查询结果.frx":2C268
  516.                Key             =   "sx"
  517.             EndProperty
  518.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  519.                Picture         =   "应收票据_应收票据查询结果.frx":2C602
  520.                Key             =   "cx"
  521.             EndProperty
  522.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  523.                Picture         =   "应收票据_应收票据查询结果.frx":2C99C
  524.                Key             =   "zd"
  525.             EndProperty
  526.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  527.                Picture         =   "应收票据_应收票据查询结果.frx":2CD36
  528.                Key             =   "dz"
  529.             EndProperty
  530.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  531.                Picture         =   "应收票据_应收票据查询结果.frx":2D0D0
  532.                Key             =   "ph"
  533.             EndProperty
  534.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  535.                Picture         =   "应收票据_应收票据查询结果.frx":2D46A
  536.                Key             =   "fz"
  537.             EndProperty
  538.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  539.                Picture         =   "应收票据_应收票据查询结果.frx":2D804
  540.                Key             =   "dw"
  541.             EndProperty
  542.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  543.                Picture         =   "应收票据_应收票据查询结果.frx":2DB9E
  544.                Key             =   "hf"
  545.             EndProperty
  546.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  547.                Picture         =   "应收票据_应收票据查询结果.frx":2DF38
  548.                Key             =   "pz"
  549.             EndProperty
  550.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  551.                Picture         =   "应收票据_应收票据查询结果.frx":2E2D2
  552.                Key             =   "check"
  553.             EndProperty
  554.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  555.                Picture         =   "应收票据_应收票据查询结果.frx":2E66C
  556.                Key             =   "qs"
  557.             EndProperty
  558.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  559.                Picture         =   "应收票据_应收票据查询结果.frx":2EA06
  560.                Key             =   "fullcheck"
  561.             EndProperty
  562.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  563.                Picture         =   "应收票据_应收票据查询结果.frx":2EDA0
  564.                Key             =   "qq"
  565.             EndProperty
  566.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  567.                Picture         =   "应收票据_应收票据查询结果.frx":2F13A
  568.                Key             =   "bcw"
  569.             EndProperty
  570.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  571.                Picture         =   "应收票据_应收票据查询结果.frx":2F4D4
  572.                Key             =   "ye"
  573.             EndProperty
  574.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  575.                Picture         =   "应收票据_应收票据查询结果.frx":2F86E
  576.                Key             =   ""
  577.             EndProperty
  578.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  579.                Picture         =   "应收票据_应收票据查询结果.frx":2FC08
  580.                Key             =   "frist"
  581.             EndProperty
  582.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  583.                Picture         =   "应收票据_应收票据查询结果.frx":2FFA2
  584.                Key             =   "dj"
  585.             EndProperty
  586.          EndProperty
  587.       End
  588.    End
  589.    Begin MSComctlLib.Toolbar SzToolbar 
  590.       Align           =   1  'Align Top
  591.       Height          =   555
  592.       Left            =   0
  593.       TabIndex        =   8
  594.       Top             =   0
  595.       Width           =   11820
  596.       _ExtentX        =   20849
  597.       _ExtentY        =   979
  598.       ButtonWidth     =   820
  599.       ButtonHeight    =   926
  600.       AllowCustomize  =   0   'False
  601.       Appearance      =   1
  602.       Style           =   1
  603.       ImageList       =   "ImageList1"
  604.       _Version        =   393216
  605.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  606.          NumButtons      =   20
  607.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  608.             Caption         =   "打印"
  609.             Key             =   "dy"
  610.             ImageKey        =   "dy"
  611.          EndProperty
  612.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  613.             Caption         =   "预览"
  614.             Key             =   "yl"
  615.             ImageKey        =   "yl"
  616.          EndProperty
  617.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  618.             Style           =   3
  619.          EndProperty
  620.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  621.             Caption         =   "查询"
  622.             Key             =   "cx"
  623.             ImageKey        =   "cx"
  624.          EndProperty
  625.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  626.             Caption         =   "单据"
  627.             Key             =   "bill"
  628.             ImageKey        =   "bill"
  629.          EndProperty
  630.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  631.             Style           =   3
  632.          EndProperty
  633.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  634.             Caption         =   "新增"
  635.             Key             =   "xz"
  636.             ImageKey        =   "xz"
  637.          EndProperty
  638.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  639.             Caption         =   "删除"
  640.             Key             =   "sc"
  641.             ImageKey        =   "sc"
  642.          EndProperty
  643.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  644.             Style           =   3
  645.          EndProperty
  646.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  647.             Caption         =   "审核"
  648.             Key             =   "shsh"
  649.             ImageKey        =   "shsh"
  650.          EndProperty
  651.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  652.             Style           =   3
  653.          EndProperty
  654.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  655.             Caption         =   "兑现"
  656.             Key             =   "Encash"
  657.             ImageKey        =   "Encash"
  658.          EndProperty
  659.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  660.             Caption         =   "背书"
  661.             Key             =   "Endorse"
  662.             ImageKey        =   "Endorse"
  663.          EndProperty
  664.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  665.             Caption         =   "转出"
  666.             Key             =   "TurnOut"
  667.             ImageKey        =   "TurnOut"
  668.          EndProperty
  669.          BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  670.             Caption         =   "贴现"
  671.             Key             =   "Discount"
  672.             ImageKey        =   "Discount"
  673.          EndProperty
  674.          BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  675.             Style           =   3
  676.          EndProperty
  677.          BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  678.             Object.Visible         =   0   'False
  679.             Caption         =   "凭证"
  680.             Key             =   "Voucher"
  681.             ImageKey        =   "pz"
  682.          EndProperty
  683.          BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  684.             Object.Visible         =   0   'False
  685.             Style           =   3
  686.          EndProperty
  687.          BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  688.             Caption         =   "帮助"
  689.             Key             =   "bz"
  690.             ImageKey        =   "bz"
  691.          EndProperty
  692.          BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  693.             Caption         =   "退出"
  694.             Key             =   "fh"
  695.             ImageKey        =   "tc"
  696.          EndProperty
  697.       EndProperty
  698.       BorderStyle     =   1
  699.    End
  700. End
  701. Attribute VB_Name = "Note_FrmNoteList"
  702. Attribute VB_GlobalNameSpace = False
  703. Attribute VB_Creatable = False
  704. Attribute VB_PredeclaredId = True
  705. Attribute VB_Exposed = False
  706. '**************************************************************************
  707. '*    模 块 名 称 :应收票据列表
  708. '*    功 能 描 述 :
  709. '*    程序员姓名  :姜冬梅
  710. '*    最后修改人  :姜冬梅
  711. '*    最后修改时间:2001/12/16
  712. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  713. '**************************************************************************
  714. Dim ReportTitle As String                '报表主标题
  715. Dim Str_QueryCondi As String             '用户录入查询条件
  716. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  717. Dim YbSsTotal As Double                  '原币应付金额
  718. Dim YbInterest As Double                 '原币票面利息
  719. Dim BbSsTotal As Double                  '本币应付金额
  720. Dim Str_Foreign As String                '币别编码
  723. '以下为固定使用变量
  724. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  725. Dim GridCode As String                   '显示网格网格代码
  726. Dim GridInf() As Variant                 '整个网格设置信息
  727. Dim Tsxx As String                       '系统提示信息
  728. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  729. Dim Sjhgd As Double                      '网格数据行高度
  730. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  731. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  732. Dim GridStr()  As String                 '网格列信息(字符型)
  733. Dim GridInt() As Integer                 '网格列信息(整型)
  734. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  736. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  737.     
  738.     On Error Resume Next
  739.     
  740.     With CxbbGrid
  741.         .Width = Me.Width - 160
  742.         .Height = Me.Height - .Top - 400
  743.     End With
  744.     
  745.     With Pic_Title
  746.         .Width = Me.Width - 160
  747.     End With
  748.     
  749.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  751. End Sub
  753. Private Sub Form_Load()                                                   '窗体装入
  754.   
  755.     '调入打印页面设置窗体
  756.     ReportTitle = "应收票据列表"
  757.     XtReportCode = "Ar_NoteList"
  758.     Load Dyymctbl
  759.   
  760.     '调整标题栏及网格、格式工具条位置(Fixed)
  761.     Pic_Title.Left = 40
  762.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  763.     CxbbGrid.Left = Pic_Title.Left
  764.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  765.  
  766.     '调 入 网 格(Fixed)
  767.     GridCode = "Ar_NoteList"
  768.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  769.   
  770.     Qslz = GridInf(1)
  771.     Sjhgd = GridInf(2)
  772.     Sfxshjwg = GridInf(7)
  773.     Szzls = CxbbGrid.Cols - 1
  775. End Sub
  777. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  779.     '卸载条件窗体
  780.     Note_FrmNoteQuery.UnloadCheck.Value = 1
  781.     Unload Note_FrmNoteQuery
  782.     
  783.     '卸载打印页面设置窗体
  784.     Unload Dyymctbl
  786. End Sub
  788. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  789.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  790. End Sub
  792. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)       '网格格式调整(Fixed)
  793.     
  794.     Select Case Button.Key
  795.         Case "bcgs"                                          '保存表格格式
  796.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  797.         Case "hfmrgs"                                        '恢复默认格式
  798.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  799.         Case "szxsxm"                                        '设置显示项目
  800.             Call Szxsxm(CxbbGrid, GridCode)
  801.     End Select
  803. End Sub
  805. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  806.     
  807.     Select Case Button.Key
  808.         Case "ymsz"                                          '页面设置
  809.             Dyymctbl.Show 1
  810.         Case "yl"                                            '预 览
  811.             Call bbyl(True)
  812.         Case "dy"                                            '打 印
  813.             Call bbyl(False)
  814.         Case "cx"                                            '查 询
  815.             Note_FrmNoteQuery.Show 1
  816.         Case "bill"                                          '单 据
  817.             Call CxbbGrid_DblClick
  818.         Case "xz"                                            '新 增
  819.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  820.             If Not Security_Log("Ar_Note_Edit", Xtczybm, 1, True) Then
  821.                 Exit Sub
  822.             End If
  823.             Call Sub_AddBill
  824.         Case "sc"                                            '删 除
  825.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  826.             If Not Security_Log("Ar_Note_Edit", Xtczybm, 1, True) Then
  827.                 Exit Sub
  828.             End If
  829.             Call Sub_DeleteBill
  830.         Case "bz"                                            '帮 助
  831.             Call F1bz
  832.         Case "fh"                                            '退 出
  833.             Unload Me
  834.         Case "shsh"                                         '审核
  835.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  836.             If Not Security_Log("Ar_Note_Check", Xtczybm, 1, True) Then
  837.                 Exit Sub
  838.             End If
  839.             Call Sub_CheckBill
  840.         Case "Discount"                                      '贴现
  841.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  842.             If Not Security_Log("Ar_Note_Check", Xtczybm, 1, True) Then
  843.                 Exit Sub
  844.             End If
  845.             Call Sub_NoteDiscount
  846.         Case "Encash"                                        '兑现
  847.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  848.             If Not Security_Log("Ar_Note_Check", Xtczybm, 1, True) Then
  849.                 Exit Sub
  850.             End If
  851.             Call Sub_NoteEncash
  852.         Case "Endorse"                                       '背书
  853.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  854.             If Not Security_Log("Ar_Note_Check", Xtczybm, 1, True) Then
  855.                 Exit Sub
  856.             End If
  857.             Call Sub_NoteEndorse
  858.         Case "TurnOut"                                       '转出
  859.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  860.             If Not Security_Log("Ar_Note_Check", Xtczybm, 1, True) Then
  861.                 Exit Sub
  862.             End If
  863.             Call Sub_NoteTurnOut
  864.         Case "Voucher"                                       '凭证
  865.             Call Voucher
  866.     End Select
  867. End Sub
  869. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  870.     
  871.     Timer1.Enabled = False
  872.     Xt_Wait.Show
  873.     Xt_Wait.Refresh
  874.    
  875.     '加快显示速度
  876.     CxbbGrid.Redraw = False
  877.  
  878.     '生成查询结果
  879.     Call Sub_Query(0)
  880.    
  881.     CxbbGrid.Redraw = True
  882.     
  883.     Xt_Wait.Hide
  885. End Sub
  887. Private Sub Sub_Query(Int_QueryType As Integer)                                     '生成查询结果(Define)
  888.     
  889.     '过程参数:Int_QueryType 0-"点确定按钮"查询  1-"刷新"查询
  890.     Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
  891.     Dim Coljsq As Long                          '网格列计数器
  892.     Dim jsqte As Integer                        '临时动态计数器
  893.     Dim State As String                         '票据状态
  894.     
  895.     '重新设置合计金额及币别
  896.     Str_Foreign = ""
  897.     YbSsTotal = 0
  898.     YbInterest = 0
  899.     BbSsTotal = 0
  900.     
  901.     '以下为自定义部分[
  902.  
  903.     If Int_QueryType = 0 Then   '0-"点确定按钮"查询
  904.         With Note_FrmNoteQuery
  905.         
  906.             '设置币别编码
  907.             Str_Foreign = Trim(.LrText(3).Tag & "")
  908.                     
  909.             '生成查询条件
  910.             Str_QueryCondi = " where 1=1 and RpFlag='AR' "
  911.          
  912.             For jsqte = 1 To 12
  913.                 Select Case jsqte
  914.                     Case 1  '单据日期(起,止）
  915.                         If Trim(.LrText(0).Text) <> "" And Trim(.LrText(1).Text) <> "" Then
  916.                             If Trim(.LrText(0).Text) = Trim(.LrText(1)) Then
  917.                                 Str_QueryCondi = Str_QueryCondi & " and BillDate = '" & CDate(.LrText(0).Text) & "'"
  918.                             Else
  919.                                 Str_QueryCondi = Str_QueryCondi & " and BillDate >= '" & CDate(.LrText(0).Text) & "'"
  920.                                 Str_QueryCondi = Str_QueryCondi & " and BillDate <= '" & CDate(.LrText(1).Text) & "'"
  921.                             End If
  922.                         End If
  923.                         If Trim(.LrText(0).Text) <> "" And Trim(.LrText(1).Text) = "" Then
  924.                             Str_QueryCondi = Str_QueryCondi & " and BillDate >= '" & CDate(.LrText(0).Text) & "'"
  925.                         End If
  926.                         If Trim(.LrText(0).Text) = "" And Trim(.LrText(1).Text) <> "" Then
  927.                             Str_QueryCondi = Str_QueryCondi & " and BillDate <= '" & CDate(.LrText(1).Text) & "'"
  928.                         End If
  929.                         
  930.                     Case 2  '签发日期(起,止）
  931.                         If Trim(.LrText(8).Text) <> "" And Trim(.LrText(9).Text) <> "" Then
  932.                             If Trim(.LrText(8).Text) = Trim(.LrText(9)) Then
  933.                                 Str_QueryCondi = Str_QueryCondi & " and SignDate = '" & CDate(.LrText(8).Text) & "'"
  934.                             Else
  935.                                 Str_QueryCondi = Str_QueryCondi & " and SignDate >= '" & CDate(.LrText(8).Text) & "'"
  936.                                 Str_QueryCondi = Str_QueryCondi & " and SignDate <= '" & CDate(.LrText(9).Text) & "'"
  937.                             End If
  938.                         End If
  939.                         If Trim(.LrText(8).Text) <> "" And Trim(.LrText(9).Text) = "" Then
  940.                             Str_QueryCondi = Str_QueryCondi & " and SignDate >= '" & CDate(.LrText(8).Text) & "'"
  941.                         End If
  942.                         If Trim(.LrText(8).Text) = "" And Trim(.LrText(9).Text) <> "" Then
  943.                             Str_QueryCondi = Str_QueryCondi & " and SignDate <= '" & CDate(.LrText(9).Text) & "'"
  944.                         End If
  945.                         
  946.                     Case 3 '到期日期(起,止）
  947.                         If Trim(.LrText(10).Text) <> "" And Trim(.LrText(11).Text) <> "" Then
  948.                             If Trim(.LrText(10).Text) = Trim(.LrText(11)) Then
  949.                                 Str_QueryCondi = Str_QueryCondi & " and ExpireDate = '" & CDate(.LrText(10).Text) & "'"
  950.                             Else
  951.                                 Str_QueryCondi = Str_QueryCondi & " and ExpireDate >= '" & CDate(.LrText(10).Text) & "'"
  952.                                 Str_QueryCondi = Str_QueryCondi & " and ExpireDate <= '" & CDate(.LrText(11).Text) & "'"
  953.                             End If
  954.                         End If
  955.                         If Trim(.LrText(10).Text) <> "" And Trim(.LrText(11).Text) = "" Then
  956.                             Str_QueryCondi = Str_QueryCondi & " and ExpireDate >= '" & CDate(.LrText(10).Text) & "'"
  957.                         End If
  958.                         If Trim(.LrText(10).Text) = "" And Trim(.LrText(11).Text) <> "" Then
  959.                             Str_QueryCondi = Str_QueryCondi & " and ExpireDate <= '" & CDate(.LrText(11).Text) & "'"
  960.                         End If
  961.                         
  962.                     Case 4  '客户
  963.                         If Trim(.LrText(2).Text) <> "" Then
  964.                             Str_QueryCondi = Str_QueryCondi & " and PsCode = '" & Trim(.LrText(2).Tag) & "'"
  965.                         End If
  966.                     Case 5  '币别
  967.                         If Trim(.LrText(3).Text) <> "" Then
  968.                             Str_QueryCondi = Str_QueryCondi & " And ForeignCurrCode='" & Trim(.LrText(3).Tag) & "'"
  969.                         End If
  970.                     
  971.                     Case 6 '审核状态
  972.                         If .Opt_Check0(1).Value = True Then '已审核
  973.                             Str_QueryCondi = Str_QueryCondi & " And Checker<>'' "
  974.                         End If
  975.                         
  976.                         If .Opt_Check0(2).Value = True Then  '未审核
  977.                             Str_QueryCondi = Str_QueryCondi & " And Checker='' "
  978.                         End If
  979.                     Case 7 '票据状态
  980.                         If .Opt_Check1(1).Value = True Then '已变动
  981.                             Str_QueryCondi = Str_QueryCondi & " And Fstatus<>'9' "
  982.                         End If
  983.                         
  984.                         If .Opt_Check1(2).Value = True Then  '未变动
  985.                             Str_QueryCondi = Str_QueryCondi & " And Fstatus='9' "
  986.                         End If
  987.                     
  988.                     Case 8  '票面金额
  989.                         If Val(.LrText(6).Text) <> 0 And Val(.LrText(7).Text) <> 0 Then
  990.                             If Val(.LrText(6).Text) = Val(.LrText(7).Text) Then
  991.                                 Str_QueryCondi = Str_QueryCondi & " and (YbSsJe=" & Val(.LrText(6).Text) & ")"
  992.                             Else
  993.                                 Str_QueryCondi = Str_QueryCondi & " and (YbSsJe>=" & Val(.LrText(6).Text) & ")"
  994.                                 Str_QueryCondi = Str_QueryCondi & " and (YbSsJe<=" & Val(.LrText(7).Text) & ")"
  995.                             End If
  996.                         End If
  997.                         If Trim(.LrText(6).Text) <> "" And Trim(.LrText(7).Text) = "" Then
  998.                             Str_QueryCondi = Str_QueryCondi & " and YbSsJe >= " & Val(.LrText(6).Text)
  999.                         End If
  1000.                         If Trim(.LrText(6).Text) = "" And Trim(.LrText(7).Text) <> "" Then
  1001.                             Str_QueryCondi = Str_QueryCondi & " and YbSsJe <= " & Val(.LrText(7).Text)
  1002.                         End If
  1003.                     Case 9  '部门
  1004.                         If Trim(.LrText(4).Text) <> "" Then
  1005.                             Str_QueryCondi = Str_QueryCondi & " And DeptCode= '" & Trim(.LrText(4).Tag) & "'"
  1006.                         End If
  1007.                     Case 10  '经办人
  1008.                         If Trim(.LrText(5).Text) <> "" Then
  1009.                             Str_QueryCondi = Str_QueryCondi & " And Personcode= '" & Trim(.LrText(5).Tag) & "'"
  1010.                         End If
  1011.                     Case 11  '付款单位
  1012.                         If Trim(.LrText(12).Text) <> "" Then
  1013.                             Str_QueryCondi = Str_QueryCondi & " And Payer= '" & Trim(.LrText(12).Text) & "'"
  1014.                         End If
  1015.                     Case 12  '制单人
  1016.                         If Trim(.Imgcbo_Rygl.Text) <> "" Then
  1017.                             Str_QueryCondi = Str_QueryCondi & " And Maker= '" & Trim(.Imgcbo_Rygl.Text) & "'"
  1018.                         End If
  1019.                 End Select
  1020.             Next jsqte
  1021.         End With
  1022.     Else
  1023.         '1-"刷新"查询
  1024.         If Str_QueryCondi = "" Then
  1025.             Str_QueryCondi = " where 1=2 "
  1026.         End If
  1027.     End If
  1028.     
  1029.     Sqlstr = "SELECT * FROM Ar_v_Note " & Str_QueryCondi & " Order By NoteID"
  1031.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1032.     With Rec_Query
  1033.         CxbbGrid.Rows = CxbbGrid.FixedRows
  1034.         jsqte = CxbbGrid.FixedRows
  1035.         Do While Not .EOF
  1036.             CxbbGrid.AddItem ""
  1037.             
  1038.             '[>>自定义填充内容
  1039.             CxbbGrid.TextMatrix(jsqte, 0) = .Fields("NoteID")                                                      '应收票据ID(主要用来查询定位用)
  1040.             CxbbGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = Format(.Fields("BillDate"), "yyyy-mm-dd")  '单据日期
  1041.             CxbbGrid.TextMatrix(jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("NoteCode") & "")             '单据编号
  1042.             Select Case Trim(.Fields("Fstatus"))
  1043.                 Case 9
  1044.                     If Trim(.Fields("StartFlag") & "") = True Then
  1045.                         State = "期初"
  1046.                     Else
  1047.                         State = ""
  1048.                     End If
  1049.                 Case 1
  1050.                     State = "背书"
  1051.                 Case 2
  1052.                     State = "转出"
  1053.                 Case 3
  1054.                     State = "贴现"
  1055.                 Case 4
  1056.                     State = "兑现"
  1057.             End Select
  1058.             CxbbGrid.TextMatrix(jsqte, Sydz("003", GridStr(), Szzls)) = State                                         '票据状态
  1059.             CxbbGrid.TextMatrix(jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("BillItemName") & "")                 '票据类型
  1060.             CxbbGrid.TextMatrix(jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("CusName") & "")                 '客户名称
  1061.             CxbbGrid.TextMatrix(jsqte, Sydz("006", GridStr(), Szzls)) = Format(.Fields("SignDate"), "yyyy-mm-dd")     '签发日期
  1062.             CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = Format(.Fields("ExpireDate"), "yyyy-mm-dd")   '到期日期
  1063.             CxbbGrid.TextMatrix(jsqte, Sydz("008", GridStr(), Szzls)) = Trim(.Fields("Digest") & "")                  '摘要
  1064.             CxbbGrid.TextMatrix(jsqte, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("ForeignCurrName") & "")         '币别
  1065.             CxbbGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)) = Trim(.Fields("YbSsJe") & "")                  '原币应收金额
  1066.             CxbbGrid.TextMatrix(jsqte, Sydz("011", GridStr(), Szzls)) = IIf(Val(Trim(.Fields("YbInterest") & "")) = 0, "", Trim(.Fields("YbInterest") & "")) '票面利息
  1067.             CxbbGrid.TextMatrix(jsqte, Sydz("012", GridStr(), Szzls)) = Trim(.Fields("AccRate") & "")                 '记帐汇率
  1068.             CxbbGrid.TextMatrix(jsqte, Sydz("013", GridStr(), Szzls)) = Trim(.Fields("BbSsJe") & "")                  '本币应收金额
  1069.             CxbbGrid.TextMatrix(jsqte, Sydz("014", GridStr(), Szzls)) = Trim(.Fields("Payer") & "")                   '付款单位
  1070.             CxbbGrid.TextMatrix(jsqte, Sydz("015", GridStr(), Szzls)) = Trim(.Fields("DeptName") & "")                '部门名称
  1071.             CxbbGrid.TextMatrix(jsqte, Sydz("016", GridStr(), Szzls)) = Trim(.Fields("PersonName") & "")              '经办人
  1072.             CxbbGrid.TextMatrix(jsqte, Sydz("017", GridStr(), Szzls)) = Trim(.Fields("Maker") & "")                   '制单人
  1073.             CxbbGrid.TextMatrix(jsqte, Sydz("018", GridStr(), Szzls)) = Trim(.Fields("Checker") & "")                 '审核
  1074.             '<<]
  1075.             
  1076.             '设置数据行高度(Fixed)
  1077.             CxbbGrid.RowHeight(jsqte) = Sjhgd
  1078.             
  1079.             '汇总应付票据金额
  1080.             YbSsTotal = YbSsTotal + .Fields("YbSsJe")
  1081.             YbInterest = YbInterest + .Fields("YbInterest")
  1082.             BbSsTotal = BbSsTotal + .Fields("BbSsJe")
  1083.             
  1084.             If Trim(.Fields("Checker")) <> "" Then                                                                     '审核单据(红色显示)
  1085.                 CxbbGrid.Cell(flexcpBackColor, jsqte, 0, , CxbbGrid.Cols - 1) = Lab_Color(1).BackColor
  1086.             End If
  1087.             '动态集指针加1,同时将计数器加1(Fixed)
  1088.             .MoveNext
  1089.             jsqte = jsqte + 1
  1090.         Loop
  1091.         
  1092.         '添加合计行
  1093.         If YbSsTotal <> 0 Or BbSsTotal <> 0 Then
  1094.            CxbbGrid.AddItem ""
  1095.            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("005", GridStr(), Szzls)) = "  合  计"
  1096.            If Str_Foreign <> "" Then
  1097.                 CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("010", GridStr(), Szzls)) = YbSsTotal
  1098.                 CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("011", GridStr(), Szzls)) = YbInterest
  1099.            End If
  1100.            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("013", GridStr(), Szzls)) = BbSsTotal
  1101.            CxbbGrid.Cell(flexcpBackColor, CxbbGrid.Rows - 1, 0, CxbbGrid.Rows - 1, CxbbGrid.Cols - 1) = "&H00F7F3EC"
  1102.         End If
  1104.     End With
  1106.     ']以上为用户自定义部分
  1108. End Sub
  1110. Private Sub CxbbGrid_DblClick()                                              '用户双击网格调入相应单据
  1111.     Dim RecTemp As New ADODB.Recordset               '临时使用动态集
  1112.     
  1113.     '记录行总数与固定行数相等则退出
  1114.     If CxbbGrid.Rows = CxbbGrid.FixedRows Then Exit Sub
  1115.     
  1116.     '非数据行退出
  1117.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  1118.         Exit Sub
  1119.     End If
  1121.     Sqlstr = "SELECT NoteId From RP_Note Where NoteId=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1122.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1123.     With RecTemp
  1124.         If .EOF Then
  1125.             Tsxx = "此应收票据已被其他用户删除!"
  1126.             Call Xtxxts(Tsxx, 0, 4)
  1127.             Exit Sub
  1128.         Else
  1129.             '调入单据处理窗体
  1130.             With Note_FrmNoteIn
  1131.                 
  1132.                 '填充查询单据标识
  1133.                 XT_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1134.                 Xtcdcsfz = Str_QueryCondi
  1135.                 If Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("003", GridStr(), Szzls))) = "期初" Then
  1136.                     TranPara = "期初"
  1137.                 Else
  1138.                     TranPara = ""
  1139.                 End If
  1140.                 '设置单据处理为列表查询(修改)状态
  1141.                 Xtcdcs = "2"
  1142.                 .Show 1
  1143.             End With
  1144.             
  1145.             If Xtfhcs = "1" Then
  1146.                 Tsxx = "应收票据发生变化,是否刷新应收票据单列表?"
  1147.                 yhAnswer = Xtxxts(Tsxx, 2, 2)
  1148.                 If yhAnswer = 1 Then
  1149.                     Xt_Wait.Show
  1150.                     Xt_Wait.Refresh
  1151.                     
  1152.                     '加快显示速度
  1153.                     CxbbGrid.Redraw = False
  1154.                     '生成查询结果
  1155.                     Call Sub_Query(1)
  1156.    
  1157.                     CxbbGrid.Redraw = True
  1158.     
  1159.                     Xt_Wait.Hide
  1160.                 End If
  1161.             End If
  1162.         End If
  1163.     End With
  1165. End Sub
  1167. Private Sub Sub_AddBill()                                              '新增单据
  1168.     
  1169.     With Note_FrmNoteIn
  1170.        
  1171.         '设置单据处理为填制单据状态
  1172.         Xtcdcs = "1"
  1173.          
  1174.         .Show 1
  1175.     End With
  1176.        
  1177.     If Xtfhcs = "1" Then
  1178.         Tsxx = "应收票据发生变化,是否刷新应收票据列表?"
  1179.         yhAnswer = Xtxxts(Tsxx, 2, 2)
  1180.         
  1181.         If yhAnswer = 1 Then
  1182.             Xt_Wait.Show
  1183.             Xt_Wait.Refresh
  1184.             
  1185.             '加快显示速度
  1186.             CxbbGrid.Redraw = False
  1187.             
  1188.             '生成查询结果
  1189.             Call Sub_Query(1)
  1190.             
  1191.             CxbbGrid.Redraw = True
  1192.             Xt_Wait.Hide
  1193.         End If
  1194.     End If
  1195.    
  1196. End Sub
  1198. Private Sub Sub_DeleteBill()                                            '删除选中当前单据
  1199.     
  1200.     Dim YAnswer As Integer
  1201.     Dim Lng_BillID As Long           '单据标识
  1202.     
  1203.     '记录行总数与固定行数相等则退出
  1204.     If CxbbGrid.Rows = CxbbGrid.FixedRows Then Exit Sub
  1206.     '非数据行退出
  1207.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  1208.         Exit Sub
  1209.     End If
  1210.   
  1211.     Tsxx = "请确认是否删除当前应收票据?"
  1212.     yhAnswer = Xtxxts(Tsxx, 2, 2)
  1213.   
  1214.     If yhAnswer = 1 Then
  1215.   
  1216.         '1.判断当前单据是否允许删除
  1217.         If Not Fun_AllowDelete Then
  1218.             Exit Sub
  1219.         End If
  1220.   
  1221.         '2.删除单据所有内容
  1222.         Lng_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1223.       
  1224.         On Error GoTo Swcwcl
  1225.     
  1226.         Cw_DataEnvi.DataConnect.BeginTrans
  1227.         Cw_DataEnvi.DataConnect.Execute ("Delete RP_Note Where NoteID=" & Lng_BillID)        '删除单据内容
  1228.         Cw_DataEnvi.DataConnect.CommitTrans
  1229.       
  1230.         '汇总应付票据金额
  1231.         YbSsTotal = YbSsTotal - CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("010", GridStr(), Szzls))
  1232.         YbInterest = YbInterest - CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("011", GridStr(), Szzls))
  1233.         BbSsTotal = BbSsTotal - CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("013", GridStr(), Szzls))
  1234.         
  1235.         '删除网格中单据数据
  1236.         CxbbGrid.RemoveItem (CxbbGrid.Row)
  1237.         
  1238.         
  1239.         
  1240.         '刷新合计行
  1241.         If YbSsTotal <> 0 Or BbSsTotal <> 0 Then
  1242.             CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("005", GridStr(), Szzls)) = "  合  计"
  1243.             If Str_Foreign <> "" Then
  1244.                 CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("010", GridStr(), Szzls)) = YbSsTotal
  1245.                 CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("011", GridStr(), Szzls)) = YbInterest
  1246.             End If
  1247.             CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("013", GridStr(), Szzls)) = BbSsTotal
  1248.         Else
  1249.             CxbbGrid.RemoveItem (CxbbGrid.Rows - 1)
  1250.         End If
  1251.         
  1252.     Else
  1253.         Exit Sub
  1254.     End If
  1255.   
  1256.     Exit Sub
  1257. Swcwcl:
  1258.     Cw_DataEnvi.DataConnect.RollbackTrans
  1259.     Tsxx = "删除单据过程中出现未知错误,程序自动恢复删除前状态!"
  1260.     Call Xtxxts(Tsxx, 0, 1)
  1261.     Exit Sub
  1262.   
  1263. End Sub
  1265. Private Function Fun_AllowDelete() As Boolean                                        '判断当前单据是否允许删除
  1266.   
  1267.     Dim RecTemp As New ADODB.Recordset     '临时使用动态集
  1268.     Dim Sqlstr As String                   '查询字符串
  1269.     Dim Lng_BillID As Long                 '单据ID
  1270.   
  1271.     Lng_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1272.     Sqlstr = "Select Checker,Fstatus From RP_Note Where NoteID=" & Lng_BillID
  1273.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1274.     With RecTemp
  1275.         If Not .EOF Then
  1276.             If Trim(.Fields("Checker") & "") <> "" Then
  1277.                 Tsxx = "该应收票据已审核确认,不能删除!"
  1278.                 Call Xtxxts(Tsxx, 0, 4)
  1279.                 Exit Function
  1280.             End If
  1281.             End If
  1282.     End With
  1283.     If RecTemp.Fields("Fstatus") <> 9 Then
  1284.         Tsxx = "该票据已发生变动，不能删除！"
  1285.         Call Xtxxts(Tsxx, 0, 4)
  1286.         Exit Function
  1287.     End If
  1288.     Fun_AllowDelete = True
  1289. End Function
  1291. '[>>===================以下为根据实际业务需要自定义过程区域=============================<<]
  1293. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1294.     
  1295.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1296.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1297.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1298.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1299.     
  1300.     ReDim Bbxbt(1 To Bbxbtgs)
  1301.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1302.     If Bbbwhgs <> 0 Then
  1303.         ReDim Bbbwh(1 To Bbbwhgs)
  1304.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1305.     End If
  1306.     
  1307.     Bbzbt = ReportTitle
  1308.     Bbxbt(1) = ""
  1309.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1310.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  1311.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1312.     If Not bbylte Then
  1313.         Unload DY_Tybbyldy
  1314.     End If
  1316. End Sub
  1317. Private Function NoteCheck() As Boolean '判断票据是否已经审核并且处于收票状态
  1318.     Dim RecTemp As New ADODB.Recordset     '临时使用动态集
  1319.     Dim Lng_BillID As Integer              '单据ID号
  1320.     
  1321.     '非数据行退出
  1322.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  1323.         Exit Function
  1324.     End If
  1325.     Lng_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1327.     Sqlstr = "Select Fstatus,Checker From Rp_Note Where NoteID='" & Lng_BillID & "'"
  1328.     
  1329.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1330.     '如果票据不是收票状态，不能执行弃审、背书、贴现等操作
  1331.     If RecTemp.Fields("Fstatus") <> 9 Then
  1332.         Tsxx = "该票据已经发生变动，不能执行此操作！"
  1333.         Call Xtxxts(Tsxx, 0, 4)
  1334.         NoteCheck = False
  1335.         Exit Function
  1336.     End If
  1337.     If Trim(RecTemp.Fields("Checker") & "") = "" Then
  1338.         Tsxx = "该单据没有审核，不能执行此操作!"
  1339.         Call Xtxxts(Tsxx, 0, 4)
  1340.         NoteCheck = False
  1341.         Exit Function
  1342.     End If
  1343.     NoteCheck = True
  1344. End Function
  1345. Private Sub Sub_NoteDiscount()  '贴现，'要求票状为收票状态,且单据已审核
  1346.     If NoteCheck = True Then
  1347.         XT_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1348.         Note_FrmNoteDiscount.Show 1
  1349.         If Xtfhcs = "1" Then  '贴现成功'在应收票据中写贴现标志
  1350.             Cw_DataEnvi.DataConnect.Execute ("Update RP_Note set Fstatus=3 where NoteID='" & XT_BillID & "'")
  1351.             CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("003", GridStr(), Szzls)) = "贴现"                                         '票据状态
  1352.         End If
  1353.     End If
  1354. End Sub
  1356. Private Sub Sub_NoteEncash() '兑现,'要求票状为收票状态,且单据已审核
  1357.     If NoteCheck = True Then
  1358.         XT_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1359.         Note_FrmNoteEncash.Show 1
  1360.         If Xtfhcs = "1" Then  '兑现成功'在应收票据中写贴现标志
  1361.             Cw_DataEnvi.DataConnect.Execute ("Update RP_Note set Fstatus=4 where NoteID='" & XT_BillID & "'")
  1362.             CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("003", GridStr(), Szzls)) = "兑现"                                         '票据状态
  1363.         End If
  1364.     End If
  1365. End Sub
  1366. Private Sub Sub_NoteEndorse() '背书，'要求票状为收票状态,且单据已审核
  1367.     If NoteCheck = True Then
  1368.         XT_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1369.         Note_FrmNoteEndorse.Show 1
  1370.         If Xtfhcs = "1" Then  '背书成功'在应收票据中写贴现标志
  1371.             Cw_DataEnvi.DataConnect.Execute ("Update RP_Note set Fstatus=1 where NoteID='" & XT_BillID & "'")
  1372.             CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("003", GridStr(), Szzls)) = "背书"                                         '票据状态
  1373.         End If
  1374.     End If
  1375.     
  1376. End Sub
  1377. Private Sub Sub_NoteTurnOut() '转出，'要求票状为收票状态,且单据已审核
  1378.     If NoteCheck = True Then
  1379.         XT_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1380.         Note_FrmNoteTurnOut.Show 1
  1381.         If Xtfhcs = "1" Then  '转出成功'在应收票据中写转出标志
  1382.             Cw_DataEnvi.DataConnect.Execute ("Update RP_Note set Fstatus=2 where NoteID='" & XT_BillID & "'")
  1383.             CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("003", GridStr(), Szzls)) = "转出"                                         '票据状态
  1384.         End If
  1385.     End If
  1386. End Sub
  1387. Private Sub Sub_CheckBill()             '审 核
  1388.     Dim RecTemp As New ADODB.Recordset
  1389.     
  1390.     '非数据行退出
  1391.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  1392.         Exit Sub
  1393.     End If
  1394.     XT_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1395.     
  1396.     If Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("003", GridStr(), Szzls))) = "期初" Then   '期初应收票据不必登记应收帐
  1397.         Set RecTemp = Cw_DataEnvi.DataConnect.Execute("Select Checker From RP_Note Where NoteID=" & XT_BillID)
  1398.         If Not RecTemp.EOF Then
  1399.             If Trim(RecTemp.Fields("Checker") & "") <> "" Then
  1400.                 Tsxx = "该单据已审核,不需再次审核!"
  1401.                 Call Xtxxts(Tsxx, 0, 4)
  1402.                 Exit Sub
  1403.             Else
  1404.                 '将单据写入审核标识
  1405.                 Cw_DataEnvi.DataConnect.Execute ("Update Rp_Note Set Checker='" & Xtczy & "' Where NoteID='" & XT_BillID & "'")
  1406.                 '显示系统操作员
  1407.                 CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("018", GridStr(), Szzls)) = Xtczy                                        '票据状态
  1408.             End If
  1409.         End If
  1410.     Else
  1411.         '加记帐过程的过程
  1412.         If Fun_CheckNote(XT_BillID) = True Then          '审核过帐
  1413.     
  1414.             '将单据写入审核标识
  1415.             Cw_DataEnvi.DataConnect.Execute ("Update Rp_Note Set Checker='" & Xtczy & "' Where NoteID='" & XT_BillID & "'")
  1416.     
  1417.             '显示系统操作员
  1418.             CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("018", GridStr(), Szzls)) = Xtczy                                        '票据状态
  1419.         End If
  1420.     End If
  1421. End Sub
  1423. Private Sub Voucher()
  1425. End Sub