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

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

企业管理

开发平台：

Visual Basic

˪-i：源码内容
  1. VERSION 5.00
  2. Object = "{C5DE3F80-3376-11D2-BAA4-04F205C10000}#1.0#0"; "Vsflex6d.ocx"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  4. Begin VB.Form ApNote_FrmFpgzCxjg 
  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          =   540
  20.       Left            =   9330
  21.       TabIndex        =   3
  22.       Top             =   30
  23.       Width           =   2475
  24.       _ExtentX        =   4366
  25.       _ExtentY        =   953
  26.       ButtonWidth     =   1455
  27.       ButtonHeight    =   953
  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.       Height          =   780
  53.       Left            =   0
  54.       Picture         =   "应收单据_发票过帐查询结果.frx":1042
  55.       ScaleHeight     =   720
  56.       ScaleWidth      =   11715
  57.       TabIndex        =   2
  58.       Top             =   570
  59.       Width           =   11775
  60.       Begin VB.Label tsLabel 
  61.          BackColor       =   &H80000018&
  62.          BackStyle       =   0  'Transparent
  63.          Caption         =   "采购发票过帐"
  64.          BeginProperty Font 
  65.             Name            =   "宋体"
  66.             Size            =   12
  67.             Charset         =   134
  68.             Weight          =   700
  69.             Underline       =   0   'False
  70.             Italic          =   0   'False
  71.             Strikethrough   =   0   'False
  72.          EndProperty
  73.          ForeColor       =   &H00000000&
  74.          Height          =   360
  75.          Index           =   4
  76.          Left            =   510
  77.          TabIndex        =   4
  78.          Top             =   210
  79.          Width           =   1605
  80.       End
  81.    End
  82.    Begin VB.Timer Timer1 
  83.       Enabled         =   0   'False
  84.       Interval        =   1
  85.       Left            =   8190
  86.       Top             =   90
  87.    End
  88.    Begin VSFlex6DAOCtl.vsFlexGrid CxbbGrid 
  89.       Height          =   7260
  90.       Left            =   30
  91.       TabIndex        =   0
  92.       Top             =   1380
  93.       Width           =   11775
  94.       _ExtentX        =   20770
  95.       _ExtentY        =   12806
  96.       _ConvInfo       =   1
  97.       Appearance      =   1
  98.       BorderStyle     =   1
  99.       Enabled         =   -1  'True
  100.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  101.          Name            =   "宋体"
  102.          Size            =   9
  103.          Charset         =   134
  104.          Weight          =   400
  105.          Underline       =   0   'False
  106.          Italic          =   0   'False
  107.          Strikethrough   =   0   'False
  108.       EndProperty
  109.       MousePointer    =   0
  110.       BackColor       =   16777215
  111.       ForeColor       =   -2147483640
  112.       BackColorFixed  =   13826538
  113.       ForeColorFixed  =   -2147483630
  114.       BackColorSel    =   -2147483635
  115.       ForeColorSel    =   -2147483634
  116.       BackColorBkg    =   -2147483636
  117.       BackColorAlternate=   16777215
  118.       GridColor       =   -2147483633
  119.       GridColorFixed  =   -2147483632
  120.       TreeColor       =   -2147483632
  121.       FloodColor      =   192
  122.       SheetBorder     =   -2147483642
  123.       FocusRect       =   1
  124.       HighLight       =   1
  125.       AllowSelection  =   -1  'True
  126.       AllowBigSelection=   -1  'True
  127.       AllowUserResizing=   0
  128.       SelectionMode   =   0
  129.       GridLines       =   1
  130.       GridLinesFixed  =   2
  131.       GridLineWidth   =   1
  132.       Rows            =   50
  133.       Cols            =   10
  134.       FixedRows       =   1
  135.       FixedCols       =   1
  136.       RowHeightMin    =   0
  137.       RowHeightMax    =   0
  138.       ColWidthMin     =   0
  139.       ColWidthMax     =   0
  140.       ExtendLastCol   =   0   'False
  141.       FormatString    =   ""
  142.       ScrollTrack     =   0   'False
  143.       ScrollBars      =   3
  144.       ScrollTips      =   0   'False
  145.       MergeCells      =   0
  146.       MergeCompare    =   0
  147.       AutoResize      =   -1  'True
  148.       AutoSizeMode    =   0
  149.       AutoSearch      =   0
  150.       MultiTotals     =   -1  'True
  151.       SubtotalPosition=   1
  152.       OutlineBar      =   0
  153.       OutlineCol      =   0
  154.       Ellipsis        =   0
  155.       ExplorerBar     =   0
  156.       PicturesOver    =   0   'False
  157.       FillStyle       =   0
  158.       RightToLeft     =   0   'False
  159.       PictureType     =   0
  160.       TabBehavior     =   0
  161.       OwnerDraw       =   0
  162.       Editable        =   0   'False
  163.       ShowComboButton =   -1  'True
  164.       WordWrap        =   0   'False
  165.       TextStyle       =   0
  166.       TextStyleFixed  =   0
  167.       OleDragMode     =   0
  168.       OleDropMode     =   0
  169.       DataMode        =   0
  170.       VirtualData     =   -1  'True
  171.       Begin MSComctlLib.ImageList ImageList2 
  172.          Left            =   0
  173.          Top             =   0
  174.          _ExtentX        =   1005
  175.          _ExtentY        =   1005
  176.          BackColor       =   -2147483643
  177.          ImageWidth      =   16
  178.          ImageHeight     =   16
  179.          MaskColor       =   12632256
  180.          _Version        =   393216
  181.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  182.             NumListImages   =   44
  183.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  184.                Picture         =   "应收单据_发票过帐查询结果.frx":35106
  185.                Key             =   "sz"
  186.             EndProperty
  187.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  188.                Picture         =   "应收单据_发票过帐查询结果.frx":354A0
  189.                Key             =   "dy"
  190.             EndProperty
  191.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  192.                Picture         =   "应收单据_发票过帐查询结果.frx":3583A
  193.                Key             =   "yl"
  194.             EndProperty
  195.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  196.                Picture         =   "应收单据_发票过帐查询结果.frx":35BD4
  197.                Key             =   "xg"
  198.             EndProperty
  199.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  200.                Picture         =   "应收单据_发票过帐查询结果.frx":35F6E
  201.                Key             =   "zh"
  202.             EndProperty
  203.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  204.                Picture         =   "应收单据_发票过帐查询结果.frx":36308
  205.                Key             =   "sh"
  206.             EndProperty
  207.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  208.                Picture         =   "应收单据_发票过帐查询结果.frx":366A2
  209.                Key             =   "bc"
  210.             EndProperty
  211.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  212.                Picture         =   "应收单据_发票过帐查询结果.frx":36A3C
  213.                Key             =   "fq"
  214.             EndProperty
  215.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  216.                Picture         =   "应收单据_发票过帐查询结果.frx":36DD6
  217.                Key             =   "bz"
  218.             EndProperty
  219.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  220.                Picture         =   "应收单据_发票过帐查询结果.frx":37170
  221.                Key             =   "tc"
  222.             EndProperty
  223.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  224.                Picture         =   "应收单据_发票过帐查询结果.frx":3750A
  225.                Key             =   "bcgs"
  226.             EndProperty
  227.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  228.                Picture         =   "应收单据_发票过帐查询结果.frx":378A4
  229.                Key             =   "mrlk"
  230.             EndProperty
  231.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  232.                Picture         =   "应收单据_发票过帐查询结果.frx":37C3E
  233.                Key             =   "xsxm"
  234.             EndProperty
  235.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  236.                Picture         =   "应收单据_发票过帐查询结果.frx":37FD8
  237.                Key             =   "first"
  238.             EndProperty
  239.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  240.                Picture         =   "应收单据_发票过帐查询结果.frx":38372
  241.                Key             =   "prev"
  242.             EndProperty
  243.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  244.                Picture         =   "应收单据_发票过帐查询结果.frx":3870C
  245.                Key             =   "next"
  246.             EndProperty
  247.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  248.                Picture         =   "应收单据_发票过帐查询结果.frx":38AA6
  249.                Key             =   "last"
  250.             EndProperty
  251.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  252.                Picture         =   "应收单据_发票过帐查询结果.frx":38E40
  253.                Key             =   "xx"
  254.             EndProperty
  255.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  256.                Picture         =   "应收单据_发票过帐查询结果.frx":391DA
  257.                Key             =   "define"
  258.             EndProperty
  259.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  260.                Picture         =   "应收单据_发票过帐查询结果.frx":39574
  261.                Key             =   "exec"
  262.             EndProperty
  263.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  264.                Picture         =   "应收单据_发票过帐查询结果.frx":3990E
  265.                Key             =   "xz"
  266.             EndProperty
  267.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  268.                Picture         =   "应收单据_发票过帐查询结果.frx":39CA8
  269.                Key             =   "sc"
  270.             EndProperty
  271.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  272.                Picture         =   "应收单据_发票过帐查询结果.frx":3A042
  273.                Key             =   "sx"
  274.             EndProperty
  275.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  276.                Picture         =   "应收单据_发票过帐查询结果.frx":3A3DC
  277.                Key             =   "cx"
  278.             EndProperty
  279.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  280.                Picture         =   "应收单据_发票过帐查询结果.frx":3A776
  281.                Key             =   "zd"
  282.             EndProperty
  283.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  284.                Picture         =   "应收单据_发票过帐查询结果.frx":3AB10
  285.                Key             =   "dz"
  286.             EndProperty
  287.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  288.                Picture         =   "应收单据_发票过帐查询结果.frx":3AEAA
  289.                Key             =   "ph"
  290.             EndProperty
  291.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  292.                Picture         =   "应收单据_发票过帐查询结果.frx":3B244
  293.                Key             =   "fz"
  294.             EndProperty
  295.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  296.                Picture         =   "应收单据_发票过帐查询结果.frx":3B5DE
  297.                Key             =   "dw"
  298.             EndProperty
  299.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  300.                Picture         =   "应收单据_发票过帐查询结果.frx":3B978
  301.                Key             =   "hf"
  302.             EndProperty
  303.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  304.                Picture         =   "应收单据_发票过帐查询结果.frx":3BD12
  305.                Key             =   "pz"
  306.             EndProperty
  307.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  308.                Picture         =   "应收单据_发票过帐查询结果.frx":3C0AC
  309.                Key             =   "check"
  310.             EndProperty
  311.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  312.                Picture         =   "应收单据_发票过帐查询结果.frx":3C446
  313.                Key             =   "qs"
  314.             EndProperty
  315.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  316.                Picture         =   "应收单据_发票过帐查询结果.frx":3C7E0
  317.                Key             =   "fullcheck"
  318.             EndProperty
  319.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  320.                Picture         =   "应收单据_发票过帐查询结果.frx":3CB7A
  321.                Key             =   "qq"
  322.             EndProperty
  323.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  324.                Picture         =   "应收单据_发票过帐查询结果.frx":3CF14
  325.                Key             =   "bcw"
  326.             EndProperty
  327.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  328.                Picture         =   "应收单据_发票过帐查询结果.frx":3D2AE
  329.                Key             =   "ye"
  330.             EndProperty
  331.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  332.                Picture         =   "应收单据_发票过帐查询结果.frx":3D648
  333.                Key             =   ""
  334.             EndProperty
  335.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  336.                Picture         =   "应收单据_发票过帐查询结果.frx":3D9E2
  337.                Key             =   "frist"
  338.             EndProperty
  339.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  340.                Picture         =   "应收单据_发票过帐查询结果.frx":3DD7C
  341.                Key             =   "dj"
  342.             EndProperty
  343.             BeginProperty ListImage41 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  344.                Picture         =   "应收单据_发票过帐查询结果.frx":3E116
  345.                Key             =   "xj"
  346.             EndProperty
  347.             BeginProperty ListImage42 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  348.                Picture         =   "应收单据_发票过帐查询结果.frx":3E4B0
  349.                Key             =   "qx"
  350.             EndProperty
  351.             BeginProperty ListImage43 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  352.                Picture         =   "应收单据_发票过帐查询结果.frx":3E84A
  353.                Key             =   "qx1"
  354.             EndProperty
  355.             BeginProperty ListImage44 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  356.                Picture         =   "应收单据_发票过帐查询结果.frx":3EBE4
  357.                Key             =   "gz"
  358.             EndProperty
  359.          EndProperty
  360.       End
  361.    End
  362.    Begin MSComctlLib.Toolbar SzToolbar 
  363.       Align           =   1  'Align Top
  364.       Height          =   570
  365.       Left            =   0
  366.       TabIndex        =   1
  367.       Top             =   0
  368.       Width           =   11820
  369.       _ExtentX        =   20849
  370.       _ExtentY        =   1005
  371.       ButtonWidth     =   820
  372.       ButtonHeight    =   953
  373.       AllowCustomize  =   0   'False
  374.       Appearance      =   1
  375.       Style           =   1
  376.       ImageList       =   "ImageList2"
  377.       _Version        =   393216
  378.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  379.          NumButtons      =   14
  380.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  381.             Caption         =   "设置"
  382.             Key             =   "ymsz"
  383.             ImageKey        =   "sz"
  384.          EndProperty
  385.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  386.             Caption         =   "打印"
  387.             Key             =   "dy"
  388.             ImageKey        =   "dy"
  389.          EndProperty
  390.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  391.             Caption         =   "预览"
  392.             Key             =   "yl"
  393.             ImageKey        =   "yl"
  394.          EndProperty
  395.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  396.             ImageKey        =   "dj"
  397.             Style           =   3
  398.          EndProperty
  399.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  400.             Caption         =   "单据"
  401.             Key             =   "dj"
  402.             ImageKey        =   "pz"
  403.          EndProperty
  404.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  405.             Caption         =   "查询"
  406.             Key             =   "cx"
  407.             ImageKey        =   "cx"
  408.          EndProperty
  409.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  410.             Style           =   3
  411.          EndProperty
  412.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  413.             Caption         =   "全选"
  414.             Key             =   "qbxz"
  415.             ImageKey        =   "qx1"
  416.          EndProperty
  417.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  418.             Caption         =   "全消"
  419.             Key             =   "qbqx"
  420.             ImageKey        =   "qx"
  421.          EndProperty
  422.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  423.             Style           =   3
  424.          EndProperty
  425.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  426.             Caption         =   "过帐"
  427.             Key             =   "jz"
  428.             ImageKey        =   "gz"
  429.          EndProperty
  430.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  431.             Style           =   3
  432.          EndProperty
  433.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  434.             Caption         =   "帮助"
  435.             Key             =   "bz"
  436.             ImageKey        =   "bz"
  437.          EndProperty
  438.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  439.             Caption         =   "退出"
  440.             Key             =   "fh"
  441.             ImageKey        =   "tc"
  442.          EndProperty
  443.       EndProperty
  444.       BorderStyle     =   1
  445.    End
  446. End
  447. Attribute VB_Name = "ApNote_FrmFpgzCxjg"
  448. Attribute VB_GlobalNameSpace = False
  449. Attribute VB_Creatable = False
  450. Attribute VB_PredeclaredId = True
  451. Attribute VB_Exposed = False
  452. '*******************************************************************************
  453. '*    模 块 名 称 :采购发票过帐
  454. '*    功 能 描 述 :将采购已审核但未过帐赊销发票进行形成应付明细帐操作。因为
  455. '*                 发票有跨会计期间过帐情况 , 所以过帐业务日期必须处于当前会
  456. '*                 计期间且应序时.
  457. '*    程序员姓名  :张建忠
  458. '*    最后修改人  :张建忠
  459. '*    最后修改时间:2001/12/29
  460. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  461. '*******************************************************************************
  462. Dim ReportTitle As String                '报表主标题
  463. Dim Str_QueryCondi As String             '用户录入查询条件
  465. '以下为固定使用变量
  466. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  467. Dim GridCode As String                   '显示网格网格代码
  468. Dim GridInf() As Variant                 '整个网格设置信息
  469. Dim Tsxx As String                       '系统提示信息
  470. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  471. Dim Sjhgd As Double                      '网格数据行高度
  472. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  473. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  474. Dim GridStr()  As String                 '网格列信息(字符型)
  475. Dim GridInt() As Integer                 '网格列信息(整型)
  476. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  478. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小
  479.     On Error Resume Next
  480.     With CxbbGrid
  481.       .Width = Me.Width - 160
  482.       .Height = Me.Height - .Top - 400
  483.     End With
  484.     With Pic_Title
  485.       .Width = Me.Width - 160
  486.     End With
  487.     
  488.     GsToolbar.Left = Me.Width - GsToolbar.Width - 160
  489. End Sub
  491. Private Sub Form_Load()                                                   '窗体装入
  492.     
  493.   '调入打印页面设置窗体
  494.   
  495.   XtReportCode = "Ap_InvPostAcc"
  496.   Load Dyymctbl
  497.   ReportTitle = "采购发票过帐列表"
  498.   
  499.  '调整标题栏及网格、格式工具条位置
  500.   Pic_Title.Left = 40
  501.   Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  502.   CxbbGrid.Left = Pic_Title.Left
  503.   CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  504.  
  505.  '调 入 网 格
  506.   GridCode = "Ap_InvPostAcc"
  507.   Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  508.   
  509.   Qslz = GridInf(1)
  510.   Sjhgd = GridInf(2)
  511.   Sfxshjwg = GridInf(7)
  512.   Szzls = CxbbGrid.Cols - 1
  513.    
  514. End Sub
  516. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  518.     '卸载条件窗体
  519.     ApNote_FrmFpgzcxtj.UnloadCheck.Value = 1
  520.     Unload ApNote_FrmFpgzcxtj
  521.     
  522.     '卸载打印页面设置窗体
  523.     Unload Dyymctbl
  525. End Sub
  527. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  528.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  529. End Sub
  531. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)       '网格格式调整(Fixed)
  532.     
  533.     Select Case Button.Key
  534.         Case "bcgs"                                          '保存表格格式
  535.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  536.         Case "hfmrgs"                                        '恢复默认格式
  537.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  538.         Case "szxsxm"                                        '设置显示项目
  539.             Call Szxsxm(CxbbGrid, GridCode)
  540.     End Select
  542. End Sub
  544. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  545.   Select Case Button.Key
  546.       Case "ymsz"                                          '页面设置
  547.           Dyymctbl.Show 1
  548.       Case "yl"                                            '预 览
  549.          Call bbyl(True)
  550.       Case "dy"                                            '打 印
  551.         Call bbyl(False)
  552.       Case "qbxz"                                          '全 选
  553.         Call Sub_SelectAll
  554.       Case "qbqx"                                          '全 消
  555.         Call Sub_AbandonAll
  556.       Case "dj"                                            '单 据
  557.           MsgBox "显示单据详细信息(调用采购发票处理窗体)!"
  558.       Case "jz"                                            '过 帐
  559.         Call Sub_Sxfpgz
  560.       Case "cx"                                            '查询
  561.         ApNote_FrmFpgzcxtj.Show
  562.       Case "bz"                                            '帮 助
  563.         Call F1bz
  564.       Case "fh"                                            '退 出
  565.        Unload Me
  566.    End Select
  567. End Sub
  569. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  570.     
  571.     Timer1.Enabled = False
  572.     Xt_Wait.Show
  573.     Xt_Wait.Refresh
  574.    
  575.     '加快显示速度
  576.     CxbbGrid.Redraw = False
  577.  
  578.     '生成查询结果
  579.     Call Sub_Query(0)
  580.    
  581.     CxbbGrid.Redraw = True
  582.     
  583.     Xt_Wait.Hide
  585. End Sub
  587. Private Sub Sub_Query(Int_QueryType As Integer)                                     '生成查询结果(Define)
  589.     '过程参数:Int_QueryType 0-"点确定按钮"查询  1-"刷新"查询
  590.     
  591.     Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
  592.     Dim Coljsq As Long                          '网格列计数器
  593.     Dim Jsqte As Long                           '临时动态计数器
  594.     
  595.     '以下为自定义部分[
  596.     
  597.     If Int_QueryType = 0 Then   '0-"点确定按钮"查询
  598.     
  599.         With ApNote_FrmFpgzcxtj
  600.             
  601.             '生成查询条件
  602.             Str_QueryCondi = " Where 1=1 "
  603.             
  604.             For Jsqte = 1 To 3
  605.                 Select Case Jsqte
  606.                     Case 1  '查询日期范围(起始)
  607.                         If Trim(.LrText(0).Text) <> "" Then
  608.                             Str_QueryCondi = Str_QueryCondi & " And a.InvoiceDate>=' " & Trim(.LrText(0).Text) & "'"
  609.                         End If
  610.                     Case 2  '查询日期范围(终止)
  611.                         If Trim(.LrText(1).Text) <> "" Then
  612.                             Str_QueryCondi = Str_QueryCondi & " And a.InvoiceDate<= ' " & Trim(.LrText(1).Text) & "'"
  613.                         End If
  614.                     Case 3  '供应商
  615.                         If Trim(.LrText(2).Text) <> "" Then
  616.                             Str_QueryCondi = Str_QueryCondi & " and a.SupplierCode = '" & Trim(.LrText(2).Tag) & "'"
  617.                         End If
  618.                 End Select
  619.             Next Jsqte
  620.          End With
  621.     Else
  622.          '1-"刷新"查询
  623.         If Str_QueryCondi = "" Then
  624.             Str_QueryCondi = " where 1=2 "
  625.         End If
  626.     End If
  627.         
  628.     Sqlstr = "SELECT a.*,Gy_Person.PersonName,Gy_Supplier.SupplierName,Gy_ForeignCurrency.ForeignCurrName" & _
  629.              " FROM Cg_InvoiceMain a LEFT OUTER JOIN " & _
  630.              " Gy_Supplier ON a.SupplierCode = Gy_Supplier.SupplierCode LEFT OUTER JOIN " & _
  631.              " Gy_Person ON a.PersonCode = Gy_Person.PersonCode LEFT OUTER JOIN " & _
  632.              " Gy_ForeignCurrency ON a.ForeignCurrCode = Gy_ForeignCurrency.ForeignCurrCode " & Str_QueryCondi & " And InvoiceFlag=1 And ApBookFlag=0 And Checker<>''  Order By InvoiceDate,InvoiceNum"
  633.     
  634.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  635.     With Rec_Query
  636.         CxbbGrid.Rows = CxbbGrid.FixedRows
  637.         Jsqte = CxbbGrid.FixedRows
  638.         Do While Not .EOF
  639.             CxbbGrid.AddItem ""
  640.             
  641.             '[>>自定义填充内容
  642.             CxbbGrid.TextMatrix(Jsqte, 0) = .Fields("InvoiceMainID")                                                 '发票主表ID
  643.             CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = False                                        '选中
  644.             CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Format(.Fields("InvoiceDate"), "yyyy-mm-dd") '单据日期
  645.             If Trim(.Fields("InvoiceSort") & "") = 0 Then
  646.                 CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "普通发票"                               '普通发票
  647.             Else
  648.                 CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "专用发票"                               '专用发票
  649.             End If
  650.             CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("InvoiceNum") & "")             '发票号
  651.             CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("SupplierName") & "")           '供应商
  652.             CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("ForeignCurrName") & "")        '币别
  653.             If .Fields("NowValueFor") <> 0 Then                                                                      '原币金额
  654.                CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = .Fields("NowValueFor")
  655.             End If
  656.             If .Fields("NowValue") <> 0 Then                                                                         '本币金额
  657.                CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = .Fields("NowValue")
  658.             End If
  659.             CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("PersonName") & "")             '业务员
  660.             CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Trim(.Fields("Maker") & "")                  '制单人
  661.             CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Trim(.Fields("Checker") & "")                '审核人
  662.             
  663.             
  664.             '设置数据行高度(Fixed)
  665.             CxbbGrid.RowHeight(Jsqte) = Sjhgd
  666.             
  667.             '动态集指针加1,同时将计数器加1(Fixed)
  668.             .MoveNext
  669.             Jsqte = Jsqte + 1
  670.             
  671.         Loop
  672.         
  673.         '<<]
  674.             
  675.             
  676.     End With
  677.     
  678.     ']以上为用户自定义部分
  679.     
  680. End Sub
  682. '====================================以下为单据选中操作======================================'
  683. Private Sub CxbbGrid_DblClick()                         '双击切换
  684.    With CxbbGrid
  685.      If .Row < .FixedRows Then
  686.        Exit Sub
  687.      End If
  688.      If CxbbGrid.TextMatrix(.Row, Sydz("001", GridStr(), Szzls)) Then
  689.         CxbbGrid.TextMatrix(.Row, Sydz("001", GridStr(), Szzls)) = False
  690.      Else
  691.         CxbbGrid.TextMatrix(.Row, Sydz("001", GridStr(), Szzls)) = True
  692.      End If
  693.   End With
  694. End Sub
  695. Private Sub CxbbGrid_KeyPress(KeyAscii As Integer)      '用户按空格表示切换,按回车表示选中
  696.    With CxbbGrid
  697.      If Chr(KeyAscii) = " " Then
  698.         For Jsqte = .Row To .RowSel
  699.           If CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) Then
  700.              CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = False
  701.           Else
  702.              CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = True
  703.           End If
  704.         Next Jsqte
  705.      End If
  706.      
  707.      If KeyAscii = vbKeyReturn Then
  708.         For Jsqte = .Row To .RowSel
  709.             CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = True
  710.         Next Jsqte
  711.      End If
  712.      
  713.    End With
  714. End Sub
  715. Private Sub Sub_SelectAll()                             '全选
  716.   With CxbbGrid
  717.     For Jsqte = .FixedRows To .Rows - 1
  718.         CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = True
  719.     Next Jsqte
  720.   End With
  721. End Sub
  722. Private Sub Sub_AbandonAll()                            '全消
  723.   With CxbbGrid
  724.     For Jsqte = .FixedRows To .Rows - 1
  725.         CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = False
  726.     Next Jsqte
  727.   End With
  728. End Sub
  729. '====================================以上为单据选中操作======================================'
  731. Private Sub Sub_Sxfpgz()                                '赊销发票过帐
  732.   Dim RecTemp As New ADODB.Recordset      '临时使用动态集
  733.   Dim Jsqte As Long
  734.   Dim Lng_Fpjsq As Long        '选中发票计数器
  735.   Dim Int_Dqyear As Integer    '用户选择会计年度
  736.   Dim Int_DqPeriod As Integer  '用户选择会计期间
  737.   Dim Lng_BillID As Long       '单据标识
  738.   Dim yhAnswer As Integer      '回答是否确认
  739.   
  740.   '判断用户选中发票张数
  741.   Lng_Fpjsq = 0
  742.   For Jsqte = CxbbGrid.FixedRows To CxbbGrid.Rows - 1
  743.     If CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) Then
  744.        Lng_Fpjsq = Lng_Fpjsq + 1
  745.     End If
  746.   Next Jsqte
  747.    
  748.   If Lng_Fpjsq = 0 Then
  749.      Tsxx = "请先选中过帐发票!"
  750.      Call Xtxxts(Tsxx, 0, 4)
  751.      Exit Sub
  752.   End If
  753.      
  754.      
  755.   '判断用户所选业务日期与当前会计期间是否一致
  756.   Sqlstr = "Select Top 1 * FROM Gy_Kjrlb Where ApJzbz=0 Order By Kjyear,Period"
  758.   Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  760.   With RecTemp
  761.     If Not .EOF Then
  762.        If Not (Xtrq >= .Fields("Qsrq") And Xtrq <= .Fields("Zzrq")) Then
  763.           Tsxx = "业务日期应在当前会计期间范围内!"
  764.           Call Xtxxts(Tsxx, 0, 4)
  765.           Exit Sub
  766.        Else
  767.           Int_Dqyear = .Fields("Kjyear")
  768.           Int_DqPeriod = .Fields("Period")
  769.        End If
  770.     Else
  771.        Tsxx = "所有会计期间已结帐完毕!"
  772.        Call Xtxxts(Tsxx, 0, 4)
  773.        Exit Sub
  774.     End If
  775.   End With
  777.   '让用户确认是否过帐选中发票
  778.   
  779.   Tsxx = "请确认是否将选中发票过帐到" & Mid(Trim(Str(10000 + Int_Dqyear)), 2, 4) & "." & Mid(Trim(Str(100 + Int_DqPeriod)), 2, 2) & "会计期间?"
  780.   yhAnswer = Xtxxts(Tsxx, 2, 2)
  781.   If yhAnswer = 2 Then
  782.      Exit Sub
  783.   End If
  784.   
  785.   '采购发票过帐
  786.   For Jsqte = CxbbGrid.FixedRows To CxbbGrid.Rows - 1
  787.     If CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) Then
  788.        Lng_BillID = Val(CxbbGrid.TextMatrix(Jsqte, 0))
  789.        If Not Fun_AccInvoiceBill(Lng_BillID, Int_Dqyear, Int_DqPeriod) Then
  790.           Exit Sub
  791.        End If
  792.     End If
  793.   Next Jsqte
  794.   
  795.   '过帐完毕,刷新网格
  796.   Xt_Wait.Show
  797.   Xt_Wait.Refresh
  798.    
  799.   '加快显示速度
  800.   CxbbGrid.Redraw = False
  801.  
  802.   '生成查询结果
  803.   Call Sub_Query(1)
  804.    
  805.   CxbbGrid.Redraw = True
  806.     
  807.   Xt_Wait.Hide
  808.   
  809.   Tsxx = "采购发票过帐完毕!"
  810.   Call Xtxxts(Tsxx, 0, 4)
  811.   
  812. End Sub
  814. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  815.   Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  816.   Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  817.   Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  818.   Bbbwhgs = 0                                          '报 表 表 尾 行 数
  819.   ReDim Bbxbt(1 To Bbxbtgs)
  820.   ReDim bbxbtzzxs(1 To Bbxbtgs)
  821.   If Bbbwhgs <> 0 Then
  822.      ReDim Bbbwh(1 To Bbbwhgs)
  823.      ReDim Bbbwhzzxs(1 To Bbbwhgs)
  824.   End If
  825.   Bbzbt = ReportTitle
  826.   Bbxbt(1) = " "
  827.   bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  828.   Call Scyxsjb(CxbbGrid)                               '生成报表数据
  829.   Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  830.   If Not bbylte Then
  831.      Unload DY_Tybbyldy
  832.   End If
  833. End Sub