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

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

企业管理

开发平台：

Visual Basic

˪：源码内容
  1. VERSION 5.00
  2. Object = "{BEEECC20-4D5F-4F8B-BFDC-5D9B6FBDE09D}#1.0#0"; "vsflex8.ocx"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  4. Begin VB.Form FK_FrmNoteList 
  5.    Caption         =   "应付票据列表"
  6.    ClientHeight    =   8595
  7.    ClientLeft      =   315
  8.    ClientTop       =   390
  9.    ClientWidth     =   11820
  10.    HelpContextID   =   5001
  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      =   21
  607.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  608.             Caption         =   "设置"
  609.             Key             =   "ymsz"
  610.             ImageKey        =   "sz"
  611.          EndProperty
  612.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  613.             Caption         =   "打印"
  614.             Key             =   "dy"
  615.             ImageKey        =   "dy"
  616.          EndProperty
  617.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  618.             Caption         =   "预览"
  619.             Key             =   "yl"
  620.             ImageKey        =   "yl"
  621.          EndProperty
  622.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  623.             Style           =   3
  624.          EndProperty
  625.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  626.             Caption         =   "查询"
  627.             Key             =   "cx"
  628.             ImageKey        =   "cx"
  629.          EndProperty
  630.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  631.             Caption         =   "单据"
  632.             Key             =   "bill"
  633.             ImageKey        =   "bill"
  634.          EndProperty
  635.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  636.             Style           =   3
  637.          EndProperty
  638.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  639.             Caption         =   "新增"
  640.             Key             =   "xz"
  641.             ImageKey        =   "xz"
  642.          EndProperty
  643.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  644.             Caption         =   "删除"
  645.             Key             =   "sc"
  646.             ImageKey        =   "sc"
  647.          EndProperty
  648.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  649.             Style           =   3
  650.          EndProperty
  651.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  652.             Caption         =   "审核"
  653.             Key             =   "shsh"
  654.             ImageKey        =   "shsh"
  655.          EndProperty
  656.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  657.             Style           =   3
  658.          EndProperty
  659.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  660.             Caption         =   "付款"
  661.             Key             =   "Encash"
  662.             ImageKey        =   "Encash"
  663.          EndProperty
  664.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  665.             Object.Visible         =   0   'False
  666.             Caption         =   "背书"
  667.             Key             =   "Endorse"
  668.             ImageKey        =   "Endorse"
  669.          EndProperty
  670.          BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  671.             Object.Visible         =   0   'False
  672.             Caption         =   "转出"
  673.             Key             =   "TurnOut"
  674.             ImageKey        =   "TurnOut"
  675.          EndProperty
  676.          BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  677.             Object.Visible         =   0   'False
  678.             Caption         =   "贴现"
  679.             Key             =   "Discount"
  680.             ImageKey        =   "Discount"
  681.          EndProperty
  682.          BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  683.             Style           =   3
  684.          EndProperty
  685.          BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  686.             Object.Visible         =   0   'False
  687.             Caption         =   "凭证"
  688.             Key             =   "Voucher"
  689.             ImageKey        =   "pz"
  690.          EndProperty
  691.          BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  692.             Object.Visible         =   0   'False
  693.             Style           =   3
  694.          EndProperty
  695.          BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  696.             Caption         =   "帮助"
  697.             Key             =   "bz"
  698.             ImageKey        =   "bz"
  699.          EndProperty
  700.          BeginProperty Button21 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  701.             Caption         =   "退出"
  702.             Key             =   "fh"
  703.             ImageKey        =   "tc"
  704.          EndProperty
  705.       EndProperty
  706.       BorderStyle     =   1
  707.    End
  708. End
  709. Attribute VB_Name = "FK_FrmNoteList"
  710. Attribute VB_GlobalNameSpace = False
  711. Attribute VB_Creatable = False
  712. Attribute VB_PredeclaredId = True
  713. Attribute VB_Exposed = False
  714. '**************************************************************************
  715. '*    模 块 名 称 :应付票据列表
  716. '*    功 能 描 述 :
  717. '*    程序员姓名  :姜冬梅
  718. '*    最后修改人  :姜冬梅
  719. '*    最后修改时间:2001/1/16
  720. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  721. '**************************************************************************
  722. Dim ReportTitle As String                '报表主标题
  723. Dim Str_QueryCondi As String             '用户录入查询条件
  724. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  725. Dim YbSsTotal As Double                  '原币应付金额
  726. Dim YbInterest As Double                 '原币票面利息
  727. Dim BbSsTotal As Double                  '本币应付金额
  728. Dim Str_Foreign As String                '币别编码
  731. '以下为固定使用变量
  732. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  733. Dim GridCode As String                   '显示网格网格代码
  734. Dim GridInf() As Variant                 '整个网格设置信息
  735. Dim Tsxx As String                       '系统提示信息
  736. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  737. Dim Sjhgd As Double                      '网格数据行高度
  738. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  739. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  740. Dim GridStr()  As String                 '网格列信息(字符型)
  741. Dim GridInt() As Integer                 '网格列信息(整型)
  742. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  744. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  745.     
  746.     On Error Resume Next
  747.     
  748.     With CxbbGrid
  749.         .Width = Me.Width - 160
  750.         .Height = Me.Height - .Top - 400
  751.     End With
  752.     
  753.     With Pic_Title
  754.         .Width = Me.Width - 160
  755.     End With
  756.     
  757.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  759. End Sub
  761. Private Sub Form_Load()                                                   '窗体装入
  762.   
  763.     '调入打印页面设置窗体
  764.     ReportTitle = "应付票据列表"
  765.     XtReportCode = "Ap_NoteList"
  766.     Load Dyymctbl
  767.   
  768.     '调整标题栏及网格、格式工具条位置(Fixed)
  769.     Pic_Title.Left = 40
  770.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  771.     CxbbGrid.Left = Pic_Title.Left
  772.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  773.  
  774.     '调 入 网 格(Fixed)
  775.     GridCode = "Ap_NoteList"
  776.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  777.   
  778.     Qslz = GridInf(1)
  779.     Sjhgd = GridInf(2)
  780.     Sfxshjwg = GridInf(7)
  781.     Szzls = CxbbGrid.Cols - 1
  783. End Sub
  785. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  787.     '卸载条件窗体
  788.     FK_FrmNoteQuery.UnloadCheck.Value = 1
  789.     Unload FK_FrmNoteQuery
  790.     
  791.     '卸载打印页面设置窗体
  792.     Unload Dyymctbl
  794. End Sub
  796. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  797.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  798. End Sub
  800. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)       '网格格式调整(Fixed)
  801.     
  802.     Select Case Button.Key
  803.         Case "bcgs"                                          '保存表格格式
  804.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  805.         Case "hfmrgs"                                        '恢复默认格式
  806.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  807.         Case "szxsxm"                                        '设置显示项目
  808.             Call Szxsxm(CxbbGrid, GridCode)
  809.     End Select
  811. End Sub
  813. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  814.     
  815.     Select Case Button.Key
  816.         Case "ymsz"                                          '页面设置
  817.             Dyymctbl.Show 1
  818.         Case "yl"                                            '预 览
  819.             Call bbyl(True)
  820.         Case "dy"                                            '打 印
  821.             Call bbyl(False)
  822.         Case "cx"                                            '查 询
  823.             FK_FrmNoteQuery.Show 1
  824.         Case "bill"                                          '单 据
  825.             Call CxbbGrid_DblClick
  826.         Case "xz"                                            '新 增
  827.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  828.             If Not Security_Log("Ap_Note_Edit", Xtczybm, 1, True) Then
  829.                 Exit Sub
  830.             End If
  831.             Call Sub_AddBill
  832.         Case "sc"                                            '删 除
  833.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  834.             If Not Security_Log("Ap_Note_Edit", Xtczybm, 1, True) Then
  835.                 Exit Sub
  836.             End If
  837.             Call Sub_DeleteBill
  838.         Case "bz"                                            '帮 助
  839.             Call F1bz
  840.         Case "fh"                                            '退 出
  841.             Unload Me
  842.         Case "shsh"                                          '审 核
  843.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  844.             If Not Security_Log("Ap_Note_Check", Xtczybm, 1, True) Then
  845.                 Exit Sub
  846.             End If
  847.             Call Sub_CheckBill
  848.         Case "Encash"                                        '付款
  849.             Call Sub_NoteEncash
  850.     End Select
  851. End Sub
  853. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  854.     
  855.     Timer1.Enabled = False
  856.     Xt_Wait.Show
  857.     Xt_Wait.Refresh
  858.    
  859.     '加快显示速度
  860.     CxbbGrid.Redraw = False
  861.  
  862.     '生成查询结果
  863.     Call Sub_Query(0)
  864.    
  865.     CxbbGrid.Redraw = True
  866.     
  867.     Xt_Wait.Hide
  869. End Sub
  871. Private Sub Sub_Query(Int_QueryType As Integer)                                     '生成查询结果(Define)
  872.      
  873.     '过程参数:Int_QueryType 0-"点确定按钮"查询  1-"刷新"查询
  874.     Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
  875.     Dim Coljsq As Long                          '网格列计数器
  876.     Dim Jsqte As Integer                        '临时动态计数器
  877.     Dim State As String                         '票据状态
  878.     
  879.     '重新设置合计金额及币别
  880.     Str_Foreign = ""
  881.     YbSsTotal = 0
  882.     YbInterest = 0
  883.     BbSsTotal = 0
  884.     
  885.     '以下为自定义部分[
  886.  
  887.     If Int_QueryType = 0 Then   '0-"点确定按钮"查询
  888.         With FK_FrmNoteQuery
  889.             
  890.             '设置币别编码
  891.             Str_Foreign = Trim(.LrText(3).Tag & "")
  892.             
  893.             '生成查询条件
  894.             Str_QueryCondi = " where 1=1 and RPFlag='Ap' "
  895.          
  896.             For Jsqte = 1 To 12
  897.                 Select Case Jsqte
  898.                     Case 1  '单据日期(起,止）
  899.                         If Trim(.LrText(0).Text) <> "" And Trim(.LrText(1).Text) <> "" Then
  900.                             If Trim(.LrText(0).Text) = Trim(.LrText(1)) Then
  901.                                 Str_QueryCondi = Str_QueryCondi & " and BillDate = '" & CDate(.LrText(0).Text) & "'"
  902.                             Else
  903.                                 Str_QueryCondi = Str_QueryCondi & " and BillDate >= '" & CDate(.LrText(0).Text) & "'"
  904.                                 Str_QueryCondi = Str_QueryCondi & " and BillDate <= '" & CDate(.LrText(1).Text) & "'"
  905.                             End If
  906.                         End If
  907.                         If Trim(.LrText(0).Text) <> "" And Trim(.LrText(1).Text) = "" Then
  908.                             Str_QueryCondi = Str_QueryCondi & " and BillDate >= '" & CDate(.LrText(0).Text) & "'"
  909.                         End If
  910.                         If Trim(.LrText(0).Text) = "" And Trim(.LrText(1).Text) <> "" Then
  911.                             Str_QueryCondi = Str_QueryCondi & " and BillDate <= '" & CDate(.LrText(1).Text) & "'"
  912.                         End If
  913.                         
  914.                     Case 2  '签发日期(起,止）
  915.                         If Trim(.LrText(8).Text) <> "" And Trim(.LrText(9).Text) <> "" Then
  916.                             If Trim(.LrText(8).Text) = Trim(.LrText(9)) Then
  917.                                 Str_QueryCondi = Str_QueryCondi & " and SignDate = '" & CDate(.LrText(8).Text) & "'"
  918.                             Else
  919.                                 Str_QueryCondi = Str_QueryCondi & " and SignDate >= '" & CDate(.LrText(8).Text) & "'"
  920.                                 Str_QueryCondi = Str_QueryCondi & " and SignDate <= '" & CDate(.LrText(9).Text) & "'"
  921.                             End If
  922.                         End If
  923.                         If Trim(.LrText(8).Text) <> "" And Trim(.LrText(9).Text) = "" Then
  924.                             Str_QueryCondi = Str_QueryCondi & " and SignDate >= '" & CDate(.LrText(8).Text) & "'"
  925.                         End If
  926.                         If Trim(.LrText(8).Text) = "" And Trim(.LrText(9).Text) <> "" Then
  927.                             Str_QueryCondi = Str_QueryCondi & " and SignDate <= '" & CDate(.LrText(9).Text) & "'"
  928.                         End If
  929.                         
  930.                     Case 3 '到期日期(起,止）
  931.                         If Trim(.LrText(10).Text) <> "" And Trim(.LrText(11).Text) <> "" Then
  932.                             If Trim(.LrText(10).Text) = Trim(.LrText(11)) Then
  933.                                 Str_QueryCondi = Str_QueryCondi & " and ExpireDate = '" & CDate(.LrText(10).Text) & "'"
  934.                             Else
  935.                                 Str_QueryCondi = Str_QueryCondi & " and ExpireDate >= '" & CDate(.LrText(10).Text) & "'"
  936.                                 Str_QueryCondi = Str_QueryCondi & " and ExpireDate <= '" & CDate(.LrText(11).Text) & "'"
  937.                             End If
  938.                         End If
  939.                         If Trim(.LrText(10).Text) <> "" And Trim(.LrText(11).Text) = "" Then
  940.                             Str_QueryCondi = Str_QueryCondi & " and ExpireDate >= '" & CDate(.LrText(10).Text) & "'"
  941.                         End If
  942.                         If Trim(.LrText(10).Text) = "" And Trim(.LrText(11).Text) <> "" Then
  943.                             Str_QueryCondi = Str_QueryCondi & " and ExpireDate <= '" & CDate(.LrText(11).Text) & "'"
  944.                         End If
  945.                         
  946.                     Case 4  '供应商
  947.                         If Trim(.LrText(2).Text) <> "" Then
  948.                             Str_QueryCondi = Str_QueryCondi & " and PsCode = '" & Trim(.LrText(2).Tag) & "'"
  949.                         End If
  950.                     Case 5  '币别
  951.                         If Trim(.LrText(3).Text) <> "" Then
  952.                             Str_QueryCondi = Str_QueryCondi & " And ForeignCurrCode='" & Trim(.LrText(3).Tag) & "'"
  953.                         End If
  954.                     
  955.                     Case 6 '审核状态
  956.                         If .Opt_Check0(1).Value = True Then '已审核
  957.                             Str_QueryCondi = Str_QueryCondi & " And Checker<>'' "
  958.                         End If
  959.                         
  960.                         If .Opt_Check0(2).Value = True Then  '未审核
  961.                             Str_QueryCondi = Str_QueryCondi & " And Checker='' "
  962.                         End If
  963.                     Case 7 '票据状态
  964.                         If .Opt_Check1(1).Value = True Then '已变动
  965.                             Str_QueryCondi = Str_QueryCondi & " And Fstatus<>'9' "
  966.                         End If
  967.                         
  968.                         If .Opt_Check1(2).Value = True Then  '未变动
  969.                             Str_QueryCondi = Str_QueryCondi & " And Fstatus='9' "
  970.                         End If
  971.                     
  972.                     Case 8  '票面金额
  973.                         If Val(.LrText(6).Text) <> 0 And Val(.LrText(7).Text) <> 0 Then
  974.                             If Val(.LrText(6).Text) = Val(.LrText(7).Text) Then
  975.                                 Str_QueryCondi = Str_QueryCondi & " and (YbSsJe=" & Val(.LrText(6).Text) & ")"
  976.                             Else
  977.                                 Str_QueryCondi = Str_QueryCondi & " and (YbSsJe>=" & Val(.LrText(6).Text) & ")"
  978.                                 Str_QueryCondi = Str_QueryCondi & " and (YbSsJe<=" & Val(.LrText(7).Text) & ")"
  979.                             End If
  980.                         End If
  981.                         If Trim(.LrText(6).Text) <> "" And Trim(.LrText(7).Text) = "" Then
  982.                             Str_QueryCondi = Str_QueryCondi & " and YbSsJe >=" & Val(.LrText(6).Text)
  983.                         End If
  984.                         If Trim(.LrText(6).Text) = "" And Trim(.LrText(7).Text) <> "" Then
  985.                             Str_QueryCondi = Str_QueryCondi & " and YbSsJe <=" & Val(.LrText(7).Text)
  986.                         End If
  987.                     Case 9  '部门
  988.                         If Trim(.LrText(4).Text) <> "" Then
  989.                             Str_QueryCondi = Str_QueryCondi & " And DeptCode= '" & Trim(.LrText(4).Tag) & "'"
  990.                         End If
  991.                     Case 10  '经办人
  992.                         If Trim(.LrText(5).Text) <> "" Then
  993.                             Str_QueryCondi = Str_QueryCondi & " And Personcode= '" & Trim(.LrText(5).Tag) & "'"
  994.                         End If
  995.                     Case 11  '付款单位
  996.                         If Trim(.LrText(12).Text) <> "" Then
  997.                             Str_QueryCondi = Str_QueryCondi & " And Payer= '" & Trim(.LrText(12).Text) & "'"
  998.                         End If
  999.                     Case 12  '制单人
  1000.                         If Trim(.Imgcbo_Rygl.Text) <> "" Then
  1001.                             Str_QueryCondi = Str_QueryCondi & " And Maker= '" & Trim(.Imgcbo_Rygl.Text) & "'"
  1002.                         End If
  1003.                 End Select
  1004.             Next Jsqte
  1005.         End With
  1006.     Else
  1007.         '1-"刷新"查询
  1008.         If Str_QueryCondi = "" Then
  1009.             Str_QueryCondi = " where 1=2 "
  1010.         End If
  1011.     End If
  1012.     
  1013.     Sqlstr = "SELECT * FROM Ap_v_Note " & Str_QueryCondi & " Order By NoteID"
  1015.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1016.     With Rec_Query
  1017.         CxbbGrid.Rows = CxbbGrid.FixedRows
  1018.         Jsqte = CxbbGrid.FixedRows
  1019.         Do While Not .EOF
  1020.             CxbbGrid.AddItem ""
  1021.             
  1022.             '[>>自定义填充内容
  1023.             CxbbGrid.TextMatrix(Jsqte, 0) = .Fields("NoteID")                                                      '应付票据ID(主要用来查询定位用)
  1024.             CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Format(.Fields("BillDate"), "yyyy-mm-dd")  '单据日期
  1025.             CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("NoteCode") & "")             '单据编号
  1026.             Select Case Trim(.Fields("Fstatus"))
  1027.                 Case 9
  1028.                     If Trim(.Fields("StartFlag") & "") = True Then
  1029.                         State = "期初"
  1030.                     Else
  1031.                         State = ""
  1032.                     End If
  1033.                 Case 4
  1034.                     State = "付款"
  1035.             End Select
  1036.             CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = State                                         '票据状态
  1037.             CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("BillItemName") & "")                 '票据类型
  1038.             CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("SupplierName") & "")            '客户名称
  1039.             CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Format(.Fields("SignDate"), "yyyy-mm-dd")     '签发日期
  1040.             CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Format(.Fields("ExpireDate"), "yyyy-mm-dd")   '到期日期
  1041.             CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Trim(.Fields("Digest") & "")                  '摘要
  1042.             CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("ForeignCurrName") & "")         '币别
  1043.             CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Trim(.Fields("YbSsJe") & "")                  '原币应付金额
  1044.             CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = IIf(Val(Trim(.Fields("YbInterest") & "")) = 0, "", Trim(.Fields("YbInterest") & "")) '票面利息
  1045.             CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Trim(.Fields("AccRate") & "")                 '记帐汇率
  1046.             CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Trim(.Fields("BbSsJe") & "")                  '本币应付金额
  1047.             CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = Trim(.Fields("Payer") & "")                   '付款单位
  1048.             CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = Trim(.Fields("DeptName") & "")                '部门名称
  1049.             CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = Trim(.Fields("PersonName") & "")              '经办人
  1050.             CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = Trim(.Fields("Maker") & "")                   '制单人
  1051.             CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = Trim(.Fields("Checker") & "")                 '审核
  1052.             '<<]
  1053.             
  1054.             '设置数据行高度(Fixed)
  1055.             CxbbGrid.RowHeight(Jsqte) = Sjhgd
  1056.             
  1057.             '汇总应付票据金额
  1058.             YbSsTotal = YbSsTotal + .Fields("YbSsJe")
  1059.             YbInterest = YbInterest + .Fields("YbInterest")
  1060.             BbSsTotal = BbSsTotal + .Fields("BbSsJe")
  1061.             
  1062.             
  1063.             If Trim(.Fields("Checker")) <> "" Then                                                                    '审核单据(红色显示)
  1064.                 CxbbGrid.Cell(flexcpBackColor, Jsqte, 0, , CxbbGrid.Cols - 1) = Lab_Color(1).BackColor
  1065.             End If
  1066.             '动态集指针加1,同时将计数器加1(Fixed)
  1067.             .MoveNext
  1068.             Jsqte = Jsqte + 1
  1069.         Loop
  1070.         
  1071.         '添加合计行
  1072.         If YbSsTotal <> 0 Or BbSsTotal <> 0 Then
  1073.            CxbbGrid.AddItem ""
  1074.            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("005", GridStr(), Szzls)) = "  合  计"
  1075.            If Str_Foreign <> "" Then
  1076.                 CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("010", GridStr(), Szzls)) = YbSsTotal
  1077.                 CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("011", GridStr(), Szzls)) = YbInterest
  1078.            End If
  1079.            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("013", GridStr(), Szzls)) = BbSsTotal
  1080.            CxbbGrid.Cell(flexcpBackColor, CxbbGrid.Rows - 1, 0, CxbbGrid.Rows - 1, CxbbGrid.Cols - 1) = "&H00F7F3EC"
  1081.         End If
  1083.     End With
  1085.     ']以上为用户自定义部分
  1087. End Sub
  1089. Private Sub CxbbGrid_DblClick()                                              '用户双击网格调入相应单据
  1090.     Dim RecTemp As New ADODB.Recordset               '临时使用动态集
  1091.     
  1092.     '记录行总数与固定行数相等则退出
  1093.     If CxbbGrid.Rows = CxbbGrid.FixedRows Then Exit Sub
  1094.     
  1095.     '非数据行退出
  1096.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  1097.         Exit Sub
  1098.     End If
  1100.     Sqlstr = "SELECT NoteId From RP_Note Where NoteId=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1101.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1102.     With RecTemp
  1103.         If .EOF Then
  1104.             Tsxx = "此应付票据已被其他用户删除!"
  1105.             Call Xtxxts(Tsxx, 0, 4)
  1106.             Exit Sub
  1107.         Else
  1108.             '调入单据处理窗体
  1109.             With FK_FrmNoteIn
  1110.                 
  1111.                 '填充查询单据标识
  1112.                 XT_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1113.                 Xtcdcsfz = Str_QueryCondi
  1114.                 If Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("003", GridStr(), Szzls))) = "期初" Then
  1115.                     TranPara = "期初"
  1116.                 Else
  1117.                     TranPara = ""
  1118.                 End If
  1119.                 '设置单据处理为列表查询(修改)状态
  1120.                 Xtcdcs = "2"
  1121.                 .Show 1
  1122.             End With
  1123.             
  1124.             If Xtfhcs = "1" Then
  1125.                 Tsxx = "应付票据发生变化,是否刷新应付票据单列表?"
  1126.                 yhAnswer = Xtxxts(Tsxx, 2, 2)
  1127.                 If yhAnswer = 1 Then
  1128.                     Xt_Wait.Show
  1129.                     Xt_Wait.Refresh
  1130.                     
  1131.                     '加快显示速度
  1132.                     CxbbGrid.Redraw = False
  1133.                     '生成查询结果
  1134.                     Call Sub_Query(1)
  1135.    
  1136.                     CxbbGrid.Redraw = True
  1137.     
  1138.                     Xt_Wait.Hide
  1139.                 End If
  1140.             End If
  1141.         End If
  1142.     End With
  1144. End Sub
  1146. Private Sub Sub_AddBill()                                              '新增单据
  1147.     
  1148.     With FK_FrmNoteIn
  1149.        
  1150.         '设置单据处理为填制单据状态
  1151.         Xtcdcs = "1"
  1152.          
  1153.         .Show 1
  1154.     End With
  1155.        
  1156.     If Xtfhcs = "1" Then
  1157.         Tsxx = "应付票据发生变化,是否刷新应付票据列表?"
  1158.         yhAnswer = Xtxxts(Tsxx, 2, 2)
  1159.         
  1160.         If yhAnswer = 1 Then
  1161.             Xt_Wait.Show
  1162.             Xt_Wait.Refresh
  1163.             
  1164.             '加快显示速度
  1165.             CxbbGrid.Redraw = False
  1166.             
  1167.             '生成查询结果
  1168.             Call Sub_Query(1)
  1169.             
  1170.             CxbbGrid.Redraw = True
  1171.             Xt_Wait.Hide
  1172.         End If
  1173.     End If
  1174.    
  1175. End Sub
  1177. Private Sub Sub_DeleteBill()                                            '删除选中当前单据
  1178.     
  1179.     Dim YAnswer As Integer
  1180.     Dim Lng_BillID As Long           '单据标识
  1181.     
  1182.     '记录行总数与固定行数相等则退出
  1183.     If CxbbGrid.Rows = CxbbGrid.FixedRows Then Exit Sub
  1185.     '非数据行退出
  1186.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  1187.         Exit Sub
  1188.     End If
  1189.   
  1190.     Tsxx = "请确认是否删除当前应付票据?"
  1191.     yhAnswer = Xtxxts(Tsxx, 2, 2)
  1192.   
  1193.     If yhAnswer = 1 Then
  1194.   
  1195.         '1.判断当前单据是否允许删除
  1196.         If Not Fun_AllowDelete Then
  1197.             Exit Sub
  1198.         End If
  1199.   
  1200.         '2.删除单据所有内容
  1201.         Lng_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1202.       
  1203.         On Error GoTo Swcwcl
  1204.     
  1205.         Cw_DataEnvi.DataConnect.BeginTrans
  1206.         Cw_DataEnvi.DataConnect.Execute ("Delete RP_Note Where NoteID=" & Lng_BillID)        '删除单据内容
  1207.         Cw_DataEnvi.DataConnect.CommitTrans
  1208.         
  1209.         '汇总应付票据金额
  1210.         YbSsTotal = YbSsTotal - CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls))
  1211.         YbInterest = YbInterest - CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls))
  1212.         BbSsTotal = BbSsTotal - CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls))
  1213.       
  1214.         '删除网格中单据数据
  1215.         CxbbGrid.RemoveItem (CxbbGrid.Row)
  1216.         
  1217.         '刷新合计行
  1218.         If YbSsTotal <> 0 Or BbSsTotal <> 0 Then
  1219.             CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("005", GridStr(), Szzls)) = "  合  计"
  1220.             If Str_Foreign <> "" Then
  1221.                 CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("010", GridStr(), Szzls)) = YbSsTotal
  1222.                 CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("011", GridStr(), Szzls)) = YbInterest
  1223.             End If
  1224.             CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("013", GridStr(), Szzls)) = BbSsTotal
  1225.         Else
  1226.             CxbbGrid.RemoveItem (CxbbGrid.Rows - 1)
  1227.         End If
  1228.         
  1229.     Else
  1230.         Exit Sub
  1231.     End If
  1232.   
  1233.     Exit Sub
  1234. Swcwcl:
  1235.     Cw_DataEnvi.DataConnect.RollbackTrans
  1236.     Tsxx = "删除单据过程中出现未知错误,程序自动恢复删除前状态!"
  1237.     Call Xtxxts(Tsxx, 0, 1)
  1238.     Exit Sub
  1239.   
  1240. End Sub
  1242. Private Function Fun_AllowDelete() As Boolean                                        '判断当前单据是否允许删除
  1243.   
  1244.     Dim RecTemp As New ADODB.Recordset     '临时使用动态集
  1245.     Dim Sqlstr As String                   '查询字符串
  1246.     Dim Lng_BillID As Long                 '单据ID
  1247.   
  1248.     Lng_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1249.     Sqlstr = "Select Checker,Fstatus From RP_Note Where NoteID=" & Lng_BillID
  1250.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1251.     With RecTemp
  1252.         If Not .EOF Then
  1253.             If Trim(.Fields("Checker") & "") <> "" Then
  1254.                 Tsxx = "该应付票据已审核确认,不能删除!"
  1255.                 Call Xtxxts(Tsxx, 0, 4)
  1256.                 Exit Function
  1257.             End If
  1258.             End If
  1259.     End With
  1260.     If RecTemp.Fields("Fstatus") <> 9 Then
  1261.         Tsxx = "该票据已发生变动，不能删除！"
  1262.         Call Xtxxts(Tsxx, 0, 4)
  1263.         Exit Function
  1264.     End If
  1265.     Fun_AllowDelete = True
  1266. End Function
  1268. '[>>===================以下为根据实际业务需要自定义过程区域=============================<<]
  1270. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1271.     
  1272.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1273.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1274.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1275.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1276.     
  1277.     ReDim Bbxbt(1 To Bbxbtgs)
  1278.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1279.     If Bbbwhgs <> 0 Then
  1280.         ReDim Bbbwh(1 To Bbbwhgs)
  1281.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1282.     End If
  1283.     
  1284.     Bbzbt = ReportTitle
  1285.     Bbxbt(1) = ""
  1286.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1287.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  1288.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1289.     If Not bbylte Then
  1290.         Unload DY_Tybbyldy
  1291.     End If
  1293. End Sub
  1294. Private Function NoteCheck() As Boolean '判断票据是否已经审核并且处于收票状态
  1295.     Dim RecTemp As New ADODB.Recordset     '临时使用动态集
  1296.     Dim Lng_BillID As Integer              '单据ID号
  1297.     
  1298.     '非数据行退出
  1299.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  1300.         Exit Function
  1301.     End If
  1302.     Lng_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1304.     Sqlstr = "Select Fstatus,Checker From Rp_Note Where NoteID='" & Lng_BillID & "'"
  1305.     
  1306.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1307.     '如果票据不是收票状态，不能执行弃审、背书、贴现等操作
  1308.     If RecTemp.Fields("Fstatus") <> 9 Then
  1309.         Tsxx = "该票据已经发生变动，不能执行此操作！"
  1310.         Call Xtxxts(Tsxx, 0, 4)
  1311.         NoteCheck = False
  1312.         Exit Function
  1313.     End If
  1314.     If Trim(RecTemp.Fields("Checker") & "") = "" Then
  1315.         Tsxx = "该单据没有审核，不能执行此操作!"
  1316.         Call Xtxxts(Tsxx, 0, 4)
  1317.         NoteCheck = False
  1318.         Exit Function
  1319.     End If
  1320.     NoteCheck = True
  1321. End Function
  1322. Private Sub Sub_NoteDiscount()  '贴现，'要求票状为收票状态,且单据已审核
  1323.     If NoteCheck = True Then
  1324.         XT_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1325.         Note_FrmNoteDiscount.Show 1
  1326.         If Xtfhcs = "1" Then  '贴现成功'在应付票据中写贴现标志
  1327.             Cw_DataEnvi.DataConnect.Execute ("Update RP_Note set Fstatus=3 where NoteID='" & XT_BillID & "'")
  1328.             CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("003", GridStr(), Szzls)) = "贴现"                                         '票据状态
  1329.         End If
  1330.     End If
  1331. End Sub
  1333. Private Sub Sub_NoteEncash() '兑现,'要求票状为收票状态,且单据已审核
  1334.     If NoteCheck = True Then
  1335.         XT_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1336.         FK_FrmNoteEncash.Show 1
  1337.         If Xtfhcs = "1" Then  '付款成功'在应付票据中写付款标志
  1338.             Cw_DataEnvi.DataConnect.Execute ("Update RP_Note set Fstatus=4 where NoteID='" & XT_BillID & "'")
  1339.             CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("003", GridStr(), Szzls)) = "付款"                                         '票据状态
  1340.         End If
  1341.     End If
  1342. End Sub
  1343. Private Sub Sub_CheckBill()             '审 核
  1344.     Dim RecTemp As New ADODB.Recordset
  1345.     
  1346.     '非数据行退出
  1347.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  1348.         Exit Sub
  1349.     End If
  1350.     XT_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1351.     
  1352.     If Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("003", GridStr(), Szzls))) = "期初" Then   '期初应付票据不必登记应付帐
  1353.         Set RecTemp = Cw_DataEnvi.DataConnect.Execute("Select Checker From RP_Note Where NoteID=" & XT_BillID)
  1354.         If Not RecTemp.EOF Then
  1355.             If Trim(RecTemp.Fields("Checker") & "") <> "" Then
  1356.                 Tsxx = "该单据已审核,不需再次审核!"
  1357.                 Call Xtxxts(Tsxx, 0, 4)
  1358.                 Exit Sub
  1359.             Else
  1360.                 '将单据写入审核标识
  1361.                 Cw_DataEnvi.DataConnect.Execute ("Update Rp_Note Set Checker='" & Xtczy & "' Where NoteID='" & XT_BillID & "'")
  1362.                 '显示系统操作员
  1363.                 CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("018", GridStr(), Szzls)) = Xtczy                                        '票据状态
  1364.             End If
  1365.         End If
  1366.     Else
  1367.         '加记帐过程的过程
  1368.         If Fun_CheckNote(XT_BillID) = True Then          '审核过帐
  1369.     
  1370.             '将单据写入审核标识
  1371.             Cw_DataEnvi.DataConnect.Execute ("Update Rp_Note Set Checker='" & Xtczy & "' Where NoteID='" & XT_BillID & "'")
  1372.     
  1373.             '显示系统操作员
  1374.             CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("018", GridStr(), Szzls)) = Xtczy                                        '票据状态
  1375.         End If
  1376.     End If
  1377. End Sub