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

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

企业管理

开发平台：

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 Start_BillChalkitup 
  5.    Caption         =   "单据记帐"
  6.    ClientHeight    =   7950
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   11640
  10.    HelpContextID   =   130203
  11.    Icon            =   "期初_单据记帐.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form1"
  14.    MDIChild        =   -1  'True
  15.    ScaleHeight     =   7950
  16.    ScaleWidth      =   11640
  17.    WindowState     =   2  'Maximized
  18.    Begin VB.PictureBox Pic_Title 
  19.       BackColor       =   &H00FFFFFF&
  20.       Height          =   1095
  21.       Left            =   0
  22.       Picture         =   "期初_单据记帐.frx":1042
  23.       ScaleHeight     =   1035
  24.       ScaleWidth      =   11715
  25.       TabIndex        =   0
  26.       Top             =   570
  27.       Width           =   11775
  28.       Begin VB.Label Lbl_TitleMess 
  29.          AutoSize        =   -1  'True
  30.          BackStyle       =   0  'Transparent
  31.          Caption         =   "月份:"
  32.          Height          =   195
  33.          Index           =   0
  34.          Left            =   900
  35.          TabIndex        =   8
  36.          Top             =   780
  37.          Width           =   405
  38.       End
  39.       Begin VB.Label Lbl_TitleText 
  40.          AutoSize        =   -1  'True
  41.          BackStyle       =   0  'Transparent
  42.          Caption         =   "仓库"
  43.          ForeColor       =   &H00000000&
  44.          Height          =   195
  45.          Index           =   0
  46.          Left            =   1410
  47.          TabIndex        =   7
  48.          Top             =   780
  49.          Width           =   360
  50.       End
  51.       Begin VB.Label Label2 
  52.          AutoSize        =   -1  'True
  53.          BackStyle       =   0  'Transparent
  54.          Caption         =   "不允许记帐单据颜色标记"
  55.          Height          =   195
  56.          Left            =   9270
  57.          TabIndex        =   6
  58.          Top             =   780
  59.          Width           =   1980
  60.       End
  61.       Begin VB.Label Lbl_Color 
  62.          Appearance      =   0  'Flat
  63.          BackColor       =   &H00FFFFC0&
  64.          BorderStyle     =   1  'Fixed Single
  65.          ForeColor       =   &H80000008&
  66.          Height          =   195
  67.          Left            =   8970
  68.          TabIndex        =   5
  69.          Top             =   780
  70.          Width           =   225
  71.       End
  72.       Begin VB.Label Lab_Title 
  73.          AutoSize        =   -1  'True
  74.          BackColor       =   &H80000018&
  75.          BackStyle       =   0  'Transparent
  76.          Caption         =   "期初单据列表"
  77.          BeginProperty Font 
  78.             Name            =   "宋体"
  79.             Size            =   12
  80.             Charset         =   134
  81.             Weight          =   700
  82.             Underline       =   0   'False
  83.             Italic          =   0   'False
  84.             Strikethrough   =   0   'False
  85.          EndProperty
  86.          ForeColor       =   &H00000000&
  87.          Height          =   240
  88.          Index           =   4
  89.          Left            =   480
  90.          TabIndex        =   1
  91.          Top             =   210
  92.          Width           =   1530
  93.       End
  94.    End
  95.    Begin VB.Timer Timer1 
  96.       Enabled         =   0   'False
  97.       Interval        =   1
  98.       Left            =   7620
  99.       Top             =   90
  100.    End
  101.    Begin MSComctlLib.Toolbar GsToolbar 
  102.       Height          =   525
  103.       Left            =   9330
  104.       TabIndex        =   2
  105.       Top             =   30
  106.       Width           =   2475
  107.       _ExtentX        =   4366
  108.       _ExtentY        =   926
  109.       ButtonWidth     =   1455
  110.       ButtonHeight    =   926
  111.       Appearance      =   1
  112.       Style           =   1
  113.       ImageList       =   "ImageList2"
  114.       _Version        =   393216
  115.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  116.          NumButtons      =   3
  117.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  118.             Caption         =   "保存格式"
  119.             Key             =   "bcgs"
  120.             ImageKey        =   "bcgs"
  121.          EndProperty
  122.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  123.             Caption         =   "默认列宽"
  124.             Key             =   "hfmrgs"
  125.             ImageKey        =   "mrlk"
  126.          EndProperty
  127.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  128.             Caption         =   "显示项目"
  129.             Key             =   "szxsxm"
  130.             ImageKey        =   "xsxm"
  131.          EndProperty
  132.       EndProperty
  133.    End
  134.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  135.       Height          =   7275
  136.       Left            =   0
  137.       TabIndex        =   3
  138.       Top             =   1740
  139.       Width           =   11775
  140.       _cx             =   5080
  141.       _cy             =   5080
  142.       Appearance      =   1
  143.       BorderStyle     =   1
  144.       Enabled         =   -1  'True
  145.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  146.          Name            =   "宋体"
  147.          Size            =   9
  148.          Charset         =   134
  149.          Weight          =   400
  150.          Underline       =   0   'False
  151.          Italic          =   0   'False
  152.          Strikethrough   =   0   'False
  153.       EndProperty
  154.       MousePointer    =   0
  155.       BackColor       =   16777215
  156.       ForeColor       =   -2147483640
  157.       BackColorFixed  =   13826538
  158.       ForeColorFixed  =   -2147483630
  159.       BackColorSel    =   -2147483635
  160.       ForeColorSel    =   -2147483634
  161.       BackColorBkg    =   -2147483636
  162.       BackColorAlternate=   16777215
  163.       GridColor       =   -2147483633
  164.       GridColorFixed  =   -2147483632
  165.       TreeColor       =   -2147483632
  166.       FloodColor      =   192
  167.       SheetBorder     =   -2147483642
  168.       FocusRect       =   1
  169.       HighLight       =   1
  170.       AllowSelection  =   -1  'True
  171.       AllowBigSelection=   -1  'True
  172.       AllowUserResizing=   0
  173.       SelectionMode   =   0
  174.       GridLines       =   1
  175.       GridLinesFixed  =   2
  176.       GridLineWidth   =   1
  177.       Rows            =   50
  178.       Cols            =   10
  179.       FixedRows       =   1
  180.       FixedCols       =   1
  181.       RowHeightMin    =   0
  182.       RowHeightMax    =   0
  183.       ColWidthMin     =   0
  184.       ColWidthMax     =   0
  185.       ExtendLastCol   =   0   'False
  186.       FormatString    =   ""
  187.       ScrollTrack     =   0   'False
  188.       ScrollBars      =   3
  189.       ScrollTips      =   0   'False
  190.       MergeCells      =   0
  191.       MergeCompare    =   0
  192.       AutoResize      =   -1  'True
  193.       AutoSizeMode    =   0
  194.       AutoSearch      =   0
  195.       AutoSearchDelay =   2
  196.       MultiTotals     =   -1  'True
  197.       SubtotalPosition=   1
  198.       OutlineBar      =   0
  199.       OutlineCol      =   0
  200.       Ellipsis        =   0
  201.       ExplorerBar     =   0
  202.       PicturesOver    =   0   'False
  203.       FillStyle       =   0
  204.       RightToLeft     =   0   'False
  205.       PictureType     =   0
  206.       TabBehavior     =   0
  207.       OwnerDraw       =   0
  208.       Editable        =   0
  209.       ShowComboButton =   1
  210.       WordWrap        =   0   'False
  211.       TextStyle       =   0
  212.       TextStyleFixed  =   0
  213.       OleDragMode     =   0
  214.       OleDropMode     =   0
  215.       DataMode        =   0
  216.       VirtualData     =   -1  'True
  217.       DataMember      =   ""
  218.       ComboSearch     =   3
  219.       AutoSizeMouse   =   -1  'True
  220.       FrozenRows      =   0
  221.       FrozenCols      =   0
  222.       AllowUserFreezing=   0
  223.       BackColorFrozen =   0
  224.       ForeColorFrozen =   0
  225.       WallPaperAlignment=   9
  226.       AccessibleName  =   ""
  227.       AccessibleDescription=   ""
  228.       AccessibleValue =   ""
  229.       AccessibleRole  =   24
  230.       Begin MSComctlLib.ImageList ImageList2 
  231.          Left            =   0
  232.          Top             =   0
  233.          _ExtentX        =   1005
  234.          _ExtentY        =   1005
  235.          BackColor       =   -2147483643
  236.          ImageWidth      =   16
  237.          ImageHeight     =   16
  238.          MaskColor       =   12632256
  239.          _Version        =   393216
  240.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  241.             NumListImages   =   40
  242.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  243.                Picture         =   "期初_单据记帐.frx":35106
  244.                Key             =   "sz"
  245.             EndProperty
  246.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  247.                Picture         =   "期初_单据记帐.frx":354A0
  248.                Key             =   "dy"
  249.             EndProperty
  250.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  251.                Picture         =   "期初_单据记帐.frx":3583A
  252.                Key             =   "yl"
  253.             EndProperty
  254.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  255.                Picture         =   "期初_单据记帐.frx":35BD4
  256.                Key             =   "xg"
  257.             EndProperty
  258.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  259.                Picture         =   "期初_单据记帐.frx":35F6E
  260.                Key             =   "zh"
  261.             EndProperty
  262.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  263.                Picture         =   "期初_单据记帐.frx":36308
  264.                Key             =   "sh"
  265.             EndProperty
  266.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  267.                Picture         =   "期初_单据记帐.frx":366A2
  268.                Key             =   "bc"
  269.             EndProperty
  270.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  271.                Picture         =   "期初_单据记帐.frx":36A3C
  272.                Key             =   "fq"
  273.             EndProperty
  274.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  275.                Picture         =   "期初_单据记帐.frx":36DD6
  276.                Key             =   "bz"
  277.             EndProperty
  278.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  279.                Picture         =   "期初_单据记帐.frx":37170
  280.                Key             =   "tc"
  281.             EndProperty
  282.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  283.                Picture         =   "期初_单据记帐.frx":3750A
  284.                Key             =   "bcgs"
  285.             EndProperty
  286.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  287.                Picture         =   "期初_单据记帐.frx":378A4
  288.                Key             =   "mrlk"
  289.             EndProperty
  290.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  291.                Picture         =   "期初_单据记帐.frx":37C3E
  292.                Key             =   "xsxm"
  293.             EndProperty
  294.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  295.                Picture         =   "期初_单据记帐.frx":37FD8
  296.                Key             =   "first"
  297.             EndProperty
  298.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  299.                Picture         =   "期初_单据记帐.frx":38372
  300.                Key             =   "prev"
  301.             EndProperty
  302.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  303.                Picture         =   "期初_单据记帐.frx":3870C
  304.                Key             =   "next"
  305.             EndProperty
  306.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  307.                Picture         =   "期初_单据记帐.frx":38AA6
  308.                Key             =   "last"
  309.             EndProperty
  310.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  311.                Picture         =   "期初_单据记帐.frx":38E40
  312.                Key             =   "xx"
  313.             EndProperty
  314.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  315.                Picture         =   "期初_单据记帐.frx":391DA
  316.                Key             =   "define"
  317.             EndProperty
  318.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  319.                Picture         =   "期初_单据记帐.frx":39574
  320.                Key             =   "exec"
  321.             EndProperty
  322.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  323.                Picture         =   "期初_单据记帐.frx":3990E
  324.                Key             =   "xz"
  325.             EndProperty
  326.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  327.                Picture         =   "期初_单据记帐.frx":39CA8
  328.                Key             =   "sc"
  329.             EndProperty
  330.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  331.                Picture         =   "期初_单据记帐.frx":3A042
  332.                Key             =   "sx"
  333.             EndProperty
  334.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  335.                Picture         =   "期初_单据记帐.frx":3A3DC
  336.                Key             =   "cx"
  337.             EndProperty
  338.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  339.                Picture         =   "期初_单据记帐.frx":3A776
  340.                Key             =   "zd"
  341.             EndProperty
  342.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  343.                Picture         =   "期初_单据记帐.frx":3AB10
  344.                Key             =   "dz"
  345.             EndProperty
  346.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  347.                Picture         =   "期初_单据记帐.frx":3AEAA
  348.                Key             =   "ph"
  349.             EndProperty
  350.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  351.                Picture         =   "期初_单据记帐.frx":3B244
  352.                Key             =   "fz"
  353.             EndProperty
  354.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  355.                Picture         =   "期初_单据记帐.frx":3B5DE
  356.                Key             =   "dw"
  357.             EndProperty
  358.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  359.                Picture         =   "期初_单据记帐.frx":3B978
  360.                Key             =   "hf"
  361.             EndProperty
  362.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  363.                Picture         =   "期初_单据记帐.frx":3BD12
  364.                Key             =   "pz"
  365.             EndProperty
  366.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  367.                Picture         =   "期初_单据记帐.frx":3C0AC
  368.                Key             =   "check"
  369.             EndProperty
  370.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  371.                Picture         =   "期初_单据记帐.frx":3C446
  372.                Key             =   "qs"
  373.             EndProperty
  374.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  375.                Picture         =   "期初_单据记帐.frx":3C7E0
  376.                Key             =   "fullcheck"
  377.             EndProperty
  378.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  379.                Picture         =   "期初_单据记帐.frx":3CB7A
  380.                Key             =   "qq"
  381.             EndProperty
  382.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  383.                Picture         =   "期初_单据记帐.frx":3CF14
  384.                Key             =   "bcw"
  385.             EndProperty
  386.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  387.                Picture         =   "期初_单据记帐.frx":3D2AE
  388.                Key             =   "ye"
  389.             EndProperty
  390.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  391.                Picture         =   "期初_单据记帐.frx":3D648
  392.                Key             =   ""
  393.             EndProperty
  394.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  395.                Picture         =   "期初_单据记帐.frx":3D9E2
  396.                Key             =   "frist"
  397.             EndProperty
  398.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  399.                Picture         =   "期初_单据记帐.frx":3DD7C
  400.                Key             =   "dj"
  401.             EndProperty
  402.          EndProperty
  403.       End
  404.    End
  405.    Begin MSComctlLib.Toolbar SzToolbar 
  406.       Align           =   1  'Align Top
  407.       Height          =   555
  408.       Left            =   0
  409.       TabIndex        =   4
  410.       Top             =   0
  411.       Width           =   11640
  412.       _ExtentX        =   20532
  413.       _ExtentY        =   979
  414.       ButtonWidth     =   820
  415.       ButtonHeight    =   926
  416.       AllowCustomize  =   0   'False
  417.       Appearance      =   1
  418.       Style           =   1
  419.       ImageList       =   "ImageList1"
  420.       _Version        =   393216
  421.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  422.          NumButtons      =   15
  423.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  424.             Caption         =   "设置"
  425.             Key             =   "ymsz"
  426.             ImageKey        =   "sz"
  427.          EndProperty
  428.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  429.             Caption         =   "打印"
  430.             Key             =   "dy"
  431.             ImageKey        =   "dy"
  432.          EndProperty
  433.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  434.             Caption         =   "预览"
  435.             Key             =   "yl"
  436.             ImageKey        =   "yl"
  437.          EndProperty
  438.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  439.             Style           =   3
  440.          EndProperty
  441.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  442.             Caption         =   "查询"
  443.             Key             =   "cx"
  444.             ImageKey        =   "cx"
  445.          EndProperty
  446.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  447.             Caption         =   "单据"
  448.             Key             =   "Bill"
  449.             ImageKey        =   "pz"
  450.          EndProperty
  451.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  452.             Style           =   4
  453.          EndProperty
  454.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  455.             Caption         =   "明细"
  456.             Key             =   "mx"
  457.             ImageKey        =   "mx"
  458.          EndProperty
  459.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  460.             Caption         =   "汇总"
  461.             Key             =   "hz"
  462.             ImageKey        =   "hz"
  463.          EndProperty
  464.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  465.             Style           =   3
  466.          EndProperty
  467.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  468.             Caption         =   "记帐"
  469.             Key             =   "jz"
  470.             ImageKey        =   "jz"
  471.          EndProperty
  472.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  473.             Caption         =   "恢复"
  474.             Key             =   "hf"
  475.             ImageKey        =   "hf"
  476.          EndProperty
  477.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  478.             Style           =   3
  479.          EndProperty
  480.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  481.             Caption         =   "帮助"
  482.             Key             =   "bz"
  483.             ImageKey        =   "bz"
  484.          EndProperty
  485.          BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  486.             Caption         =   "退出"
  487.             Key             =   "fh"
  488.             ImageKey        =   "tc"
  489.          EndProperty
  490.       EndProperty
  491.       BorderStyle     =   1
  492.       Begin MSComctlLib.ImageList ImageList1 
  493.          Left            =   6990
  494.          Top             =   30
  495.          _ExtentX        =   1005
  496.          _ExtentY        =   1005
  497.          BackColor       =   -2147483643
  498.          ImageWidth      =   16
  499.          ImageHeight     =   16
  500.          MaskColor       =   12632256
  501.          _Version        =   393216
  502.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  503.             NumListImages   =   35
  504.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  505.                Picture         =   "期初_单据记帐.frx":3E116
  506.                Key             =   "sz"
  507.             EndProperty
  508.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  509.                Picture         =   "期初_单据记帐.frx":3E4B0
  510.                Key             =   "dy"
  511.             EndProperty
  512.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  513.                Picture         =   "期初_单据记帐.frx":3E84A
  514.                Key             =   "yl"
  515.             EndProperty
  516.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  517.                Picture         =   "期初_单据记帐.frx":3EBE4
  518.                Key             =   "xg"
  519.             EndProperty
  520.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  521.                Picture         =   "期初_单据记帐.frx":3EF7E
  522.                Key             =   "zh"
  523.             EndProperty
  524.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  525.                Picture         =   "期初_单据记帐.frx":3F318
  526.                Key             =   "sh"
  527.             EndProperty
  528.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  529.                Picture         =   "期初_单据记帐.frx":3F6B2
  530.                Key             =   "bc"
  531.             EndProperty
  532.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  533.                Picture         =   "期初_单据记帐.frx":3FA4C
  534.                Key             =   "fq"
  535.             EndProperty
  536.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  537.                Picture         =   "期初_单据记帐.frx":3FDE6
  538.                Key             =   "bz"
  539.             EndProperty
  540.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  541.                Picture         =   "期初_单据记帐.frx":40180
  542.                Key             =   "tc"
  543.             EndProperty
  544.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  545.                Picture         =   "期初_单据记帐.frx":4051A
  546.                Key             =   "bcgs"
  547.             EndProperty
  548.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  549.                Picture         =   "期初_单据记帐.frx":408B4
  550.                Key             =   "mrlk"
  551.             EndProperty
  552.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  553.                Picture         =   "期初_单据记帐.frx":40C4E
  554.                Key             =   "xsxm"
  555.             EndProperty
  556.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  557.                Picture         =   "期初_单据记帐.frx":40FE8
  558.                Key             =   "first"
  559.             EndProperty
  560.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  561.                Picture         =   "期初_单据记帐.frx":41382
  562.                Key             =   "prev"
  563.             EndProperty
  564.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  565.                Picture         =   "期初_单据记帐.frx":4171C
  566.                Key             =   "next"
  567.             EndProperty
  568.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  569.                Picture         =   "期初_单据记帐.frx":41AB6
  570.                Key             =   "last"
  571.             EndProperty
  572.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  573.                Picture         =   "期初_单据记帐.frx":41E50
  574.                Key             =   "xx"
  575.             EndProperty
  576.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  577.                Picture         =   "期初_单据记帐.frx":421EA
  578.                Key             =   "define"
  579.             EndProperty
  580.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  581.                Picture         =   "期初_单据记帐.frx":42584
  582.                Key             =   "exec"
  583.             EndProperty
  584.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  585.                Picture         =   "期初_单据记帐.frx":4291E
  586.                Key             =   "xz"
  587.             EndProperty
  588.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  589.                Picture         =   "期初_单据记帐.frx":42CB8
  590.                Key             =   "sc"
  591.             EndProperty
  592.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  593.                Picture         =   "期初_单据记帐.frx":43052
  594.                Key             =   "sx"
  595.             EndProperty
  596.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  597.                Picture         =   "期初_单据记帐.frx":433EC
  598.                Key             =   "cx"
  599.             EndProperty
  600.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  601.                Picture         =   "期初_单据记帐.frx":43786
  602.                Key             =   "zd"
  603.             EndProperty
  604.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  605.                Picture         =   "期初_单据记帐.frx":43B20
  606.                Key             =   "dz"
  607.             EndProperty
  608.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  609.                Picture         =   "期初_单据记帐.frx":43EBA
  610.                Key             =   "ph"
  611.             EndProperty
  612.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  613.                Picture         =   "期初_单据记帐.frx":44254
  614.                Key             =   "fz"
  615.             EndProperty
  616.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  617.                Picture         =   "期初_单据记帐.frx":445EE
  618.                Key             =   "dw"
  619.             EndProperty
  620.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  621.                Picture         =   "期初_单据记帐.frx":44988
  622.                Key             =   "hf"
  623.             EndProperty
  624.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  625.                Picture         =   "期初_单据记帐.frx":44D22
  626.                Key             =   "pz"
  627.             EndProperty
  628.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  629.                Picture         =   "期初_单据记帐.frx":450BC
  630.                Key             =   "check"
  631.             EndProperty
  632.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  633.                Picture         =   "期初_单据记帐.frx":45456
  634.                Key             =   "mx"
  635.             EndProperty
  636.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  637.                Picture         =   "期初_单据记帐.frx":457F0
  638.                Key             =   "jz"
  639.             EndProperty
  640.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  641.                Picture         =   "期初_单据记帐.frx":45B8A
  642.                Key             =   "hz"
  643.             EndProperty
  644.          EndProperty
  645.       End
  646.    End
  647. End
  648. Attribute VB_Name = "Start_BillChalkitup"
  649. Attribute VB_GlobalNameSpace = False
  650. Attribute VB_Creatable = False
  651. Attribute VB_PredeclaredId = True
  652. Attribute VB_Exposed = False
  653. '**************************************************************************
  654. '*    模 块 名 称 :期初记帐单据列表
  655. '*    功 能 描 述 :
  656. '*    程序员姓名  :白凤英
  657. '*    最后修改人  :白凤英
  658. '*    最后修改时间:2001/11/28
  659. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  660. '**************************************************************************
  661. Dim mStr As String                       '暂估条件
  662. Dim GridColHide() As Boolean             '网格列隐藏
  664. Dim ReportTitle As String                '报表主标题
  665. Dim Str_QueryCondi As String             '用户录入查询条件
  666. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  668. '以下为固定使用变量
  669. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  670. Dim GridCode As String                   '显示网格网格代码
  671. Dim GridInf() As Variant                 '整个网格设置信息
  672. Dim Tsxx As String                       '系统提示信息
  673. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  674. Dim Sjhgd As Double                      '网格数据行高度
  675. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  676. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  677. Dim GridStr()  As String                 '网格列信息(字符型)
  678. Dim GridInt() As Integer                 '网格列信息(整型)
  679. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  681. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  682.     On Error Resume Next
  683.     With CxbbGrid
  684.         .Width = Me.Width - 160
  685.         .Height = Me.Height - .Top - 400
  686.     End With
  687.     With Pic_Title
  688.         .Width = Me.Width - 160
  689.     End With
  690.     
  691.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  693. End Sub
  695. Private Sub Form_Load()                                                   '窗体装入
  696.   
  697.     '调入打印页面设置窗体
  698.     ReportTitle = "期初单据列表"
  699.     XtReportCode = "Chhs_StartBillList"
  700.     Load Dyymctbl
  701.       
  702.     '调整标题栏及网格、格式工具条位置(Fixed)
  703.     Pic_Title.Left = 40
  704.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  705.     CxbbGrid.Left = Pic_Title.Left
  706.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  707.      
  708.     '调 入 网 格(Fixed)
  709.     GridCode = "Chhs_StartBillList"
  710.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  711.       
  712.     Qslz = GridInf(1)
  713.     Sjhgd = GridInf(2)
  714.     Sfxshjwg = GridInf(7)
  715.     Szzls = CxbbGrid.Cols - 1
  717.     Lbl_TitleText(0) = CStr(Xtyear) + "." + CStr(StartMon)
  719. End Sub
  721. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  723.     '卸载条件窗体
  724.     Start_BillChalkitupCond.UnloadCheck.Value = 1
  725.     Unload Start_BillChalkitupCond
  726.     
  727.     '卸载打印页面设置窗体
  728.     Unload Dyymctbl
  730. End Sub
  732. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  733.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  734. End Sub
  736. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  737.   
  738.     Select Case Button.Key
  739.         Case "bcgs"                                          '保存表格格式
  740.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  741.         Case "hfmrgs"                                        '恢复默认格式
  742.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  743.         Case "szxsxm"                                        '设置显示项目
  744.             Call Szxsxm(CxbbGrid, GridCode)
  745.     End Select
  747. End Sub
  749. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  750.     
  751.     Select Case Button.Key
  752.         Case "ymsz"                                          '页面设置
  753.             Dyymctbl.Show 1
  754.         Case "yl"                                            '预 览
  755.             Call bbyl(True)
  756.         Case "dy"                                            '打 印
  757.             Call bbyl(False)
  758.         Case "cx"                                            '查 询
  759.             Start_BillChalkitupCond.Show 1
  760.         Case "Bill"                                          '单 据
  761.             Call CxbbGrid_DblClick
  762.         Case "mx"                                            '明 细
  763.             Call Sub_Mx
  764.         Case "hz"                                            '汇 总
  765.             Call Sub_Hz
  766.         Case "jz"                                            '记 帐
  767.             Call Sub_Qcjz
  768.         Case "hf"                                            '恢 复
  769.             Call Sub_Hfjz
  770.         Case "bz"                                            '帮 助
  771.             Call F1bz
  772.         Case "fh"                                            '退 出
  773.            Unload Me
  774.     End Select
  776. End Sub
  778. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  779.     
  780.     Timer1.Enabled = False
  781.     Xt_Wait.Show
  782.     Xt_Wait.Refresh
  783.    
  784.     ReDim GridColHide(CxbbGrid.Cols)
  785.    
  786.     '加快显示速度
  787.     CxbbGrid.Redraw = False
  789.     '生成查询结果
  790.     Call Sub_Mx
  791.     
  792.     CxbbGrid.Redraw = True
  793.     
  794.     Xt_Wait.Hide
  796. End Sub
  798. Private Sub Sub_Query(Int_QueryType As Integer)                                     '生成查询结果(Define)
  799.     
  800.     '过程参数:Int_QueryType 0-"点确定按钮"查询  1-"刷新"查询
  802.     Dim Rec_Query As Recordset                  '查询结果动态集
  803.     Dim Coljsq As Long                          '网格列计数器
  804.     Dim Jsqte As Long                        '临时动态计数器
  805.     Dim Str1 As String
  806.     
  807.     '以下为自定义部分[
  808.  
  809.     If Int_QueryType = 0 Then   '0-"点确定按钮"查询
  810.         With Start_BillChalkitupCond
  811.          
  812.             '生成查询条件
  813.             Str_QueryCondi = " where " + .WhCode + "and a.kjyear=" & Xtyear & " and a.period=" & StartMon
  814.             
  815.             If .Opt_Wjz.Value Then
  816.                 Str_QueryCondi = Str_QueryCondi & " and  chalkitupman=''  "
  817.             Else
  818.                 Str_QueryCondi = Str_QueryCondi & " and  chalkitupman<>''  "
  819.             End If
  820.         End With
  821.     End If
  822.      
  823.     '期初单据
  824.     SqlStr = "SELECT * FROM Chhs_V_StartBill a " & _
  825.              Trim(Str_QueryCondi) & " and a.checker<>'' Order By a.Whcode,a.StartInputMainId,a.StartInputSubId"
  826.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  827.     With Rec_Query
  828.         CxbbGrid.Rows = CxbbGrid.FixedRows
  829.         Jsqte = CxbbGrid.FixedRows
  830.         Do While Not .EOF
  831.     
  832.             CxbbGrid.AddItem ""
  833.             '[>>自定义填充内容
  834.             CxbbGrid.TextMatrix(Jsqte, 0) = .Fields("StartInputMainId")                                            'ID(主要用来查询定位用)
  835.             CxbbGrid.TextMatrix(Jsqte, 1) = .Fields("BillCode")                                            'ID(主要用来查询定位用)
  836.             CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("BillNum") & "")              '单据号
  837.             CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("WhName") & "")               '仓库名称
  838.             CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Format(.Fields("BillDate"), "yyyy-mm-dd")  '入库日期
  839.             CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("SupplierName") & "")         '供应商
  840.             CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("Deptname") & "")             '部门
  841.             CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("InoutClassName") & "")       '收发类别
  842.             CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Trim(.Fields("PersonName") & "")           '业务员
  843.             CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Trim(.Fields("Maker") & "")                '制单人
  844.             CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("Checker") & "")              '审核人
  845.             CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Trim(.Fields("ChalkitupMan") & "")         '记帐人
  846.             CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = Trim(.Fields("Mnumber") & "")              '存货编码
  847.             CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Trim(.Fields("MName") & "")                '存货名称
  848.             CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Trim(.Fields("Model") & "")                '规格型号
  849.             CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Trim(.Fields("PrimaryUnitName") & "")      '主计量单位
  850.             CxbbGrid.TextMatrix(Jsqte, Sydz("020", GridStr(), Szzls)) = Trim(.Fields("kjyear") & "")               '年度
  851.             CxbbGrid.TextMatrix(Jsqte, Sydz("021", GridStr(), Szzls)) = Trim(.Fields("period") & "")               '月份
  852.             If .Fields("Quan") <> 0 Then                                                                           '数量
  853.                 CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = .Fields("Quan")
  854.             End If
  855.             If .Fields("PlanPrice") <> 0 Then                                                                      '计划单价
  856.                 CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = .Fields("PlanPrice")
  857.             End If
  858.             If .Fields("PlanMoney") <> 0 Then                                                                      '计划金额
  859.                 CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = .Fields("PlanMoney")
  860.             End If
  861.             If .Fields("Price") <> 0 Then                                                                          '实际单价
  862.                 CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = .Fields("Price")
  863.             End If
  864.             If .Fields("Emoney") <> 0 Then                                                                         '实际金额
  865.                 CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = .Fields("EMoney")
  866.             Else
  867.                 CxbbGrid.Cell(flexcpBackColor, CxbbGrid.Row, Qslz, CxbbGrid.Row, CxbbGrid.Cols - 1) = &HFFFFC0
  868.             End If
  869.             
  870.             '<<]
  871.             '设置数据行高度(Fixed)
  872.             CxbbGrid.RowHeight(Jsqte) = Sjhgd
  873.      
  874.             '动态集指针加1,同时将计数器加1(Fixed)
  875.             .MoveNext
  876.             Jsqte = Jsqte + 1
  877.         Loop
  878.     End With
  879.     
  880.     '暂估单据
  881.     If Xtclzg Then
  882.     
  883.         '筛选暂估条件
  884.         mStr = ""
  885.         Set Rec_Query = Cw_DataEnvi.DataConnect.Execute("select * from chhs_evalu order by whcode")
  886.         If Not Rec_Query.EOF Then
  887.              For Jsqte = 1 To Rec_Query.RecordCount
  888.                 Str1 = "1=1"
  889.                 If Trim(Rec_Query.Fields("whcode") & "") <> "" Then
  890.                     Str1 = Str1 + " and  a.whcode='" & Trim(Rec_Query.Fields("whcode")) & "'"
  891.                 End If
  892.                 If Trim(Rec_Query.Fields("msort") & "") <> "" Then
  893.                     Str1 = Str1 + " and a.invsortcode like '" & Trim(Rec_Query.Fields("msort")) & "%'"
  894.                 End If
  895.                 If Trim(Rec_Query.Fields("mnumber") & "") <> "" Then
  896.                     Str1 = Str1 + " and a.mnumber='" & Trim(Rec_Query.Fields("mnumber")) & "'"
  897.                 End If
  898.                 If mStr = "" Then
  899.                      mStr = "(" + Str1 + ")"
  900.                 Else
  901.                     mStr = mStr + " or (" + Str1 + ")"
  902.                 End If
  903.                 Rec_Query.MoveNext
  904.             Next
  905.             
  906.             mStr = "(" + mStr + ")"
  907.             '筛选期初暂估单
  908.             SqlStr = "SELECT * FROM Chhs_V_StartEval a " & Trim(Str_QueryCondi) & " and " & Trim(mStr) & _
  909.                       " and a.billcode='1211' and Emoney<>0 Order By a.BillDate,a.InoutMainId,a.InoutSubId"
  910.             Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  911.             With Rec_Query
  912.                 Do While Not .EOF
  913.                     CxbbGrid.AddItem ""
  914.                     Jsqte = CxbbGrid.Rows - 1
  915.                     
  916.                     '[>>自定义填充内容
  917.                     CxbbGrid.TextMatrix(Jsqte, 0) = .Fields("InoutMainId")                                            'ID(主要用来查询定位用)
  918.                     CxbbGrid.TextMatrix(Jsqte, 1) = .Fields("BillCode")                                            'ID(主要用来查询定位用)
  919.                     CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("BillNum") & "")              '单据号
  920.                     CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("WhName") & "")               '仓库名称
  921.                     CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Format(.Fields("BillDate"), "yyyy-mm-dd")  '入库日期
  922.                     CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("SupplierName") & "")         '供应商
  923.                     CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("Deptname") & "")             '部门
  924.                     CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("InoutClassName") & "")       '收发类别
  925.                     CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Trim(.Fields("PersonName") & "")           '业务员
  926.                     CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Trim(.Fields("Maker") & "")                '制单人
  927.                     CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("chhsChecker") & "")              '审核人
  928.                     CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Trim(.Fields("ChalkitupMan") & "")         '记帐人
  929.                     CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = Trim(.Fields("Mnumber") & "")              '存货编码
  930.                     CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Trim(.Fields("MName") & "")                '存货名称
  931.                     CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Trim(.Fields("Model") & "")                '规格型号
  932.                     CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Trim(.Fields("PrimaryUnitName") & "")      '主计量单位
  933.                     CxbbGrid.TextMatrix(Jsqte, Sydz("020", GridStr(), Szzls)) = Trim(.Fields("kjyear") & "")               '年度
  934.                     CxbbGrid.TextMatrix(Jsqte, Sydz("021", GridStr(), Szzls)) = Trim(.Fields("period") & "")               '月份
  935.                     If .Fields("FactReceiptQuan") <> 0 Then                                                                           '数量
  936.                         CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = .Fields("FactReceiptQuan")
  937.                     End If
  938.                     If .Fields("PlanPrice") <> 0 Then                                                                      '计划单价
  939.                         CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = .Fields("PlanPrice")
  940.                     End If
  941.                     If .Fields("PlanMoney") <> 0 Then                                                                      '计划金额
  942.                         CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = .Fields("PlanMoney")
  943.                     End If
  944.                     If .Fields("Price") <> 0 Then                                                                          '实际单价
  945.                         CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = .Fields("Price")
  946.                     End If
  947.                     If .Fields("Emoney") <> 0 Then                                                                         '实际金额
  948.                         CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = .Fields("EMoney")
  949.                     Else
  950.                         CxbbGrid.Cell(flexcpBackColor, CxbbGrid.Row, Qslz, CxbbGrid.Row, CxbbGrid.Cols - 1) = &HFFFFC0
  951.                     End If
  952.                     
  953.                     '<<]
  954.                     '设置数据行高度(Fixed)
  955.                     CxbbGrid.RowHeight(Jsqte) = Sjhgd
  956.                     
  957.                     '动态集指针加1,同时将计数器加1(Fixed)
  958.                     .MoveNext
  959.                     Jsqte = Jsqte + 1
  960.                 Loop
  961.             End With
  962.         End If
  963.     End If
  964.     
  965.     '输入合计
  966.     With CxbbGrid
  967.         If Start_BillChalkitupCond.Chk_Sum.Value <> 0 Then
  968.            .SubtotalPosition = flexSTBelow
  969.            For Jsqte = Qslz To .Cols - 1
  970.                 If GridBoolean(Jsqte, 4) Then
  971.                      .Subtotal flexSTSum, 0, Jsqte, , &HF7F3EC, , , , , True
  972.                 End If
  973.            Next
  974.            
  975.            For Jsqte = .FixedRows To .Rows - 1
  976.                 If .IsSubtotal(Jsqte) Then
  977.                     For Coljsq = Qslz To .Cols - 1
  978.                         If Val(.TextMatrix(Jsqte, Coljsq)) = 0 And GridBoolean(Coljsq, 4) Then
  979.                             .TextMatrix(Jsqte, Coljsq) = ""
  980.                         End If
  981.                     Next
  982.                     .TextMatrix(Jsqte, 0) = .TextMatrix(Jsqte - 1, 0)
  983.                     .TextMatrix(Jsqte, 1) = .TextMatrix(Jsqte - 1, 1)
  984.                     .TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = "    合计 "
  985.                     .RowHeight(Jsqte) = Sjhgd
  986.                 End If
  987.            Next
  988.         End If
  989.     End With
  990.     
  991.     ']以上为用户自定义部分
  992.     
  993.     Set Rec_Query = Nothing
  995. End Sub
  996. Private Sub Sub_QueryHz(Int_QueryType As Integer)                                     '生成查询结果(Define)
  997.     
  998.     '过程参数:Int_QueryType 0-"点确定按钮"查询  1-"刷新"查询
  1000.     Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
  1001.     Dim Coljsq As Long                          '网格列计数器
  1002.     Dim Jsqte As Long                        '临时动态计数器
  1003.     Dim Str As String
  1004.     Dim FindRow As Integer
  1005.     
  1006.     '以下为自定义部分[
  1007.      
  1008.     CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = True
  1009.     CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = True
  1010.     CxbbGrid.ColHidden(Sydz("004", GridStr(), Szzls)) = True
  1011.     CxbbGrid.ColHidden(Sydz("005", GridStr(), Szzls)) = True
  1012.     CxbbGrid.ColHidden(Sydz("006", GridStr(), Szzls)) = True
  1013.     CxbbGrid.ColHidden(Sydz("007", GridStr(), Szzls)) = True
  1014.     CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = True
  1015.     CxbbGrid.ColHidden(Sydz("009", GridStr(), Szzls)) = True
  1016.     CxbbGrid.ColHidden(Sydz("010", GridStr(), Szzls)) = True
  1017.     CxbbGrid.ColHidden(Sydz("020", GridStr(), Szzls)) = True
  1018.     CxbbGrid.ColHidden(Sydz("021", GridStr(), Szzls)) = True
  1019.     
  1020.     SqlStr = "SELECT  a.Whcode, WhName, MNumber, MName, Model, PrimaryUnitName, SUM(Quan) AS SumQuan, " & _
  1021.          " SUM(PlanMoney) AS SumPlanMoney, SUM(EMoney) AS SumEMoney FROM Chhs_V_StartBill a " & _
  1022.          " LEFT OUTER JOIN  Gy_Whlimit ON a.WhCode = Gy_Whlimit.WhCode " & Trim(Str_QueryCondi) & _
  1023.          " and Gy_Whlimit.Czybm = '" & Xtczybm & "' and kjyear=" & Xtyear & " and period=" & StartMon & _
  1024.          " GROUP BY a.WhName, a.MNumber, " & _
  1025.          " a.MName, a.Model, a.PrimaryUnitName, a.WhCode ORDER BY a.WhCode, a.MNumber "
  1026.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1027.     With Rec_Query
  1028.         CxbbGrid.Rows = CxbbGrid.FixedRows
  1029.         Jsqte = CxbbGrid.FixedRows
  1030.         Do While Not .EOF
  1031.             CxbbGrid.AddItem ""
  1032.             '[>>自定义填充内容
  1033.             
  1034.             CxbbGrid.TextMatrix(Jsqte, 1) = Trim(.Fields("WhCode") & "") + Trim(.Fields("Mnumber") & "")                 '仓库+存货
  1035.             CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("WhName") & "")                   '仓库
  1036.             CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = Trim(.Fields("Mnumber") & "")                  '存货编码
  1037.             CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Trim(.Fields("MName") & "")                    '存货名称
  1038.             CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Trim(.Fields("Model") & "")                    '规格型号
  1039.             CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Trim(.Fields("PrimaryUnitName") & "")          '主计量单位
  1040.             If .Fields("SumQuan") <> 0 Then                                                                            '数量
  1041.                 CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = .Fields("SumQuan")
  1042.             End If
  1043.             If .Fields("SumQuan") <> 0 And .Fields("SumPlanMoney") <> 0 Then                                                                           '计划单价
  1044.                 CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = .Fields("SumPlanMoney") / .Fields("SumQuan")
  1045.             End If
  1046.             If .Fields("SumPlanMoney") <> 0 Then                                                                       '计划金额
  1047.                 CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = .Fields("SumPlanMoney")
  1048.             End If
  1049.             If .Fields("SumQuan") <> 0 Then                                                                            '实际金额
  1050.                 CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = .Fields("SumEMoney") / .Fields("SumQuan")
  1051.             End If
  1052.             If .Fields("SumEmoney") <> 0 Then                                                                          '实际金额
  1053.                 CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = .Fields("SumEMoney")
  1054.             End If
  1055.             
  1056.             '<<]
  1057.             '设置数据行高度(Fixed)
  1058.             CxbbGrid.RowHeight(Jsqte) = Sjhgd
  1059.      
  1060.             '动态集指针加1,同时将计数器加1(Fixed)
  1061.             .MoveNext
  1062.             Jsqte = Jsqte + 1
  1063.         Loop
  1064.     End With
  1065.     
  1066.     '期初暂估单
  1067.     If Xtclzg And mStr <> "" Then
  1068.         SqlStr = "SELECT a.Whcode,WhName, MNumber, MName, Model, PrimaryUnitName, SUM(FactReceiptQuan) AS SumQuan, " & _
  1069.              " SUM(PlanMoney) AS SumPlanMoney, SUM(EMoney) AS SumEMoney FROM Chhs_V_StartEval a " & _
  1070.              " LEFT OUTER JOIN  Gy_Whlimit ON a.WhCode = Gy_Whlimit.WhCode " & Trim(Str_QueryCondi) & _
  1071.              " and Gy_Whlimit.Czybm = '" & Xtczybm & "'and kjyear=" & Xtyear & " and period=" & StartMon & _
  1072.              " and " & Trim(mStr) & "GROUP BY a.WhName, a.MNumber, " & _
  1073.              " a.MName, a.Model, a.PrimaryUnitName, a.WhCode ORDER BY a.WhCode, a.MNumber "
  1074.         Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1075.         With Rec_Query
  1076.             Jsqte = CxbbGrid.Rows - 1
  1077.             Do While Not .EOF
  1078.                 '[>>自定义填充内容
  1079.                 FindRow = CxbbGrid.FindRow(Trim(.Fields("WhCode") & "") + Trim(.Fields("Mnumber") & ""), , 1)
  1080.                 If Not FindRow > 0 Then
  1081.                     CxbbGrid.AddItem ""
  1082.                     Jsqte = Jsqte + 1
  1083.                     CxbbGrid.TextMatrix(Jsqte, 1) = Trim(.Fields("WhCode") & "") + Trim(.Fields("Mnumber") & "")               '仓库+存货
  1084.                     CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("WhName") & "")                   '仓库
  1085.                     CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = Trim(.Fields("Mnumber") & "")                  '存货编码
  1086.                     CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Trim(.Fields("MName") & "")                    '存货名称
  1087.                     CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Trim(.Fields("Model") & "")                    '规格型号
  1088.                     CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Trim(.Fields("PrimaryUnitName") & "")          '主计量单位
  1089.                     If .Fields("SumQuan") <> 0 Then                                                                            '数量
  1090.                         CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = .Fields("SumQuan")
  1091.                     End If
  1092.                     If .Fields("SumQuan") <> 0 Then                                                                            '计划单价
  1093.                         CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = .Fields("SumPlanMoney") / .Fields("SumQuan")
  1094.                     End If
  1095.                     If .Fields("SumPlanMoney") <> 0 Then                                                                       '计划金额
  1096.                         CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = .Fields("SumPlanMoney")
  1097.                     End If
  1098.                     If .Fields("SumQuan") <> 0 Then                                                                            '实际金额
  1099.                         CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = .Fields("SumEMoney") / .Fields("SumQuan")
  1100.                     End If
  1101.                     If .Fields("SumEmoney") <> 0 Then                                                                          '实际金额
  1102.                         CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = .Fields("SumEMoney")
  1103.                     End If
  1104.                 
  1105.                 Else
  1106.                     Jsqte = FindRow
  1107.                     If .Fields("SumQuan") <> 0 Then                                                                            '数量
  1108.                         CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = Val(CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls))) + .Fields("SumQuan")
  1109.                     End If
  1110.                     If .Fields("SumQuan") <> 0 Then                                                                            '计划单价
  1111.                         CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = .Fields("SumPlanMoney") / .Fields("SumQuan")
  1112.                     End If
  1113.                     If .Fields("SumPlanMoney") <> 0 Then                                                                       '计划金额
  1114.                         CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = Val(CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls))) + .Fields("SumPlanMoney")
  1115.                     End If
  1116.                     If .Fields("SumQuan") <> 0 Then                                                                            '实际金额
  1117.                         CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = .Fields("SumEMoney") / .Fields("SumQuan")
  1118.                     End If
  1119.                     If .Fields("SumEmoney") <> 0 Then                                                                          '实际金额
  1120.                         CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = Val(CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls))) + .Fields("SumEMoney")
  1121.                     End If
  1122.                 End If
  1123.                 
  1124.                 '<<]
  1125.                 '设置数据行高度(Fixed)
  1126.                 CxbbGrid.RowHeight(Jsqte) = Sjhgd
  1127.                 
  1128.                 '动态集指针加1,同时将计数器加1(Fixed)
  1129.                 .MoveNext
  1130.             Loop
  1131.         End With
  1132.     End If
  1133.     
  1134.     
  1135.     '输入合计
  1136.     With CxbbGrid
  1137.         If Not .Rows = .FixedRows Then
  1138.            .SubtotalPosition = flexSTBelow
  1139.            For Jsqte = Qslz To .Cols - 1
  1140.                 If GridBoolean(Jsqte, 4) Then
  1141.                      .Subtotal flexSTSum, 0, Jsqte, , &HF7F3EC, , , , , True
  1142.                 End If
  1143.            Next
  1144.            .RowHeight(.Rows - 1) = Sjhgd
  1145.            .TextMatrix(.Rows - 1, Sydz("002", GridStr(), Szzls)) = " 合计 "
  1146.         End If
  1147.     End With
  1148.     
  1149.     ']以上为用户自定义部分
  1151. End Sub
  1153. Private Sub CxbbGrid_DblClick()                                              '用户双击网格调入相应单据
  1154.     
  1155.     Dim Rectemp As New ADODB.Recordset               '临时使用动态集
  1157.     If CxbbGrid.Rows = CxbbGrid.FixedRows Then Exit Sub
  1158.     
  1159.     '非数据行退出
  1160.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  1161.         Exit Sub
  1162.     End If
  1164.     If Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, 1)) = "1308" Then
  1165.         SqlStr = "SELECT StartInputMainId From Chhs_StartInputMain Where StartInputMainId=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1166.         Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1167.         With Rectemp
  1168.             If .EOF Then
  1169.                 Tsxx = "此期初单据已被其他用户删除!"
  1170.                 Call Xtxxts(Tsxx, 0, 4)
  1171.                 Exit Sub
  1172.             Else
  1173.                 '填充查询单据标识
  1174.                 XT_BillID = CxbbGrid.TextMatrix(CxbbGrid.Row, 0)
  1175.                 Xtcdcsfz = Str_QueryCondi
  1176.                 
  1177.                 '设置单据处理为列表查询(修改)状态
  1178.                 Xtcdcs = "3"
  1179.                  
  1180.                  '调入单据处理窗体
  1181.                 Start_BillInput.Show 1
  1182.             End If
  1183.         End With
  1184.     Else
  1185.                 '期初暂估单
  1186.         SqlStr = "SELECT InoutMainId From Gy_InoutMain Where InoutMainId=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1187.         Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1188.         With Rectemp
  1189.             If .EOF Then
  1190.                 Tsxx = "此期初单据已被其他用户删除!"
  1191.                 Call Xtxxts(Tsxx, 0, 4)
  1192.                 Exit Sub
  1193.             Else
  1194.                     
  1195.                 XT_BillID = CxbbGrid.TextMatrix(CxbbGrid.Row, 0)
  1196.                 Xtcdcsfz = Str_QueryCondi
  1197.                 
  1198.                 '设置单据处理为列表查询(修改)状态
  1199.                 Xtcdcs = "3"
  1200.                 
  1201.                 '调入单据处理窗体
  1202.                 If Start_BillChalkitupCond.Opt_Wjz Then
  1203.                     Xtcdcsfz = "1211"
  1204.                     Eval_StockInBill.Show 1
  1205.                 Else
  1206.                     Xtcdcsfz = " startflag=1 and kjyear=" & PGKjYear & " and period =" & StartMon
  1207.                     Eval_BlueBill.Show 1
  1208.                 End If
  1209.             End If
  1210.         End With
  1211.     End If
  1213. End Sub
  1215. Private Sub Sub_Mx()                                             '明细
  1216.     
  1217.     '生成查询结果
  1218.     CxbbGrid.Redraw = False
  1219.     Call Sub_Query(0)
  1220.     CxbbGrid.Redraw = True
  1221.     
  1222.     '调整工具条
  1223.     With SzToolbar
  1224.         If CxbbGrid.Rows = CxbbGrid.FixedRows Then
  1225.             .Buttons("Bill").Enabled = False
  1226.             .Buttons("mx").Enabled = False
  1227.             .Buttons("hz").Enabled = False
  1228.             .Buttons("jz").Enabled = False
  1229.             .Buttons("hf").Enabled = False
  1230.         Else
  1231.             .Buttons("cx").Enabled = True
  1232.             .Buttons("Bill").Enabled = True
  1233.             .Buttons("hz").Enabled = True
  1234.             .Buttons("mx").Enabled = False
  1235.             If Start_BillChalkitupCond.Opt_Wjz Then
  1236.                 .Buttons("jz").Enabled = True
  1237.                 .Buttons("hf").Enabled = False
  1238.             Else
  1239.                 .Buttons("jz").Enabled = False
  1240.                 .Buttons("hf").Enabled = True
  1241.             End If
  1242.        End If
  1243.     End With
  1244.    
  1245.     If GsToolbar.Enabled = False Then
  1246.         
  1247.         '显示汇总后隐藏的网格列
  1248.         For Jsqte = Qslz To CxbbGrid.Cols - 1
  1249.             CxbbGrid.ColHidden(Jsqte) = GridColHide(Jsqte)
  1250.         Next
  1251.     End If
  1252.     
  1253.     GsToolbar.Enabled = True
  1254.     
  1255. End Sub
  1257. Private Sub Sub_Hz()                                            '汇总
  1258.     
  1259.     If CxbbGrid.Rows = CxbbGrid.FixedRows Then Exit Sub
  1260.     
  1261.     '生成查询结果
  1262.     CxbbGrid.Redraw = False
  1263.     Call Sub_QueryHz(0)
  1264.     CxbbGrid.Redraw = True
  1265.     
  1266.     With SzToolbar
  1267.         .Buttons("cx").Enabled = False
  1268.         .Buttons("Bill").Enabled = False
  1269.         .Buttons("jz").Enabled = False
  1270.         .Buttons("hf").Enabled = False
  1271.         .Buttons("hz").Enabled = False
  1272.         .Buttons("mx").Enabled = True
  1273.     End With
  1274.     
  1275.     GsToolbar.Enabled = False
  1276.     
  1277.     For Jsqte = Qslz To CxbbGrid.Cols - 1
  1278.         GridColHide(Jsqte) = CxbbGrid.ColHidden(Jsqte)
  1279.     Next
  1280.        
  1281. End Sub
  1283. Private Sub Sub_Qcjz()               '期初记帐
  1284. Dim Rectemp As Recordset
  1285. Dim RecTempFz As New ADODB.Recordset
  1286. Dim RectempMx As New ADODB.Recordset
  1287. Dim RecTempZz As New ADODB.Recordset
  1289.     If CxbbGrid.Rows = CxbbGrid.FixedRows Then Exit Sub
  1290.     
  1291.     
  1292.     '日常单据已记帐期初单据不能记帐
  1293.     SqlStr = "select distinct chalkitupman from chhs_list a " & _
  1294.             Trim(Str_QueryCondi) & " and startflag=0 "
  1295.     Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1296.     If Not Rectemp.EOF Then
  1297.         Tsxx = "日常单据已记帐,期初单据不能记帐!"
  1298.         Call Xtxxts(Tsxx, 0, 1)
  1299.         Exit Sub
  1300.     End If
  1301.     
  1302.     On Error GoTo Cwcl
  1303.     
  1304.     Xt_Wait.Show
  1305.     Xt_Wait.Refresh
  1306.     
  1307.     Cw_DataEnvi.DataConnect.BeginTrans
  1308.     
  1309.     '打开明细帐
  1310.     If RectempMx.State = 1 Then RectempMx.Close
  1311.     RectempMx.Open "select * from Chhs_List", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockBatchOptimistic
  1312.     
  1313.     '期初单据
  1314.     SqlStr = "SELECT * FROM Chhs_V_StartBill a " & _
  1315.              Trim(Str_QueryCondi) & " Order By a.Whcode,a.StartInputMainId,a.StartInputSubId"
  1316.     Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1317.     Do While Not Rectemp.EOF
  1318.                 
  1319.         '入库金额为零，不允许记帐
  1320.         If Rectemp.Fields("emoney") <> 0 Then
  1321.             With RectempMx
  1322.                 .AddNew
  1323.                 .Fields("inoutflag") = 1
  1324.                 .Fields("billnum") = Trim(Rectemp.Fields("billnum"))
  1325.                 .Fields("inoutmainid") = Rectemp.Fields("startinputmainid") + 0
  1326.                 .Fields("inoutsubid") = Rectemp.Fields("startinputsubid") + 0
  1327.                 If Trim(Rectemp.Fields("billdate") & "") <> "" Then
  1328.                     .Fields("billdate") = CDate(Rectemp.Fields("billdate"))
  1329.                 End If
  1330.                 .Fields("chalkdate") = Xtrq
  1331.                 .Fields("kjyear") = Xtyear
  1332.                 .Fields("period") = StartMon
  1333.                 .Fields("billcode") = Trim(Rectemp.Fields("billcode"))
  1334.                 .Fields("whcode") = Trim(Rectemp.Fields("whcode"))
  1335.                 .Fields("mnumber") = Trim(Rectemp.Fields("mnumber"))
  1336.                 .Fields("maker") = Trim(Rectemp.Fields("maker"))
  1337.                 .Fields("checker") = Trim(Rectemp.Fields("checker"))
  1338.                 .Fields("chalkitupman") = Xtczy
  1339.                 .Fields("startflag") = 1
  1340.                 .Fields("remark") = Trim(Rectemp.Fields("remark") & "")
  1341.                 If Not IsNull(Trim(Rectemp.Fields("deptcode"))) Then
  1342.                     .Fields("deptcode") = Trim(Rectemp.Fields("deptcode"))
  1343.                 End If
  1344.                 If Not IsNull(Trim(Rectemp.Fields("suppliercode"))) Then
  1345.                     .Fields("suppliercode") = Trim(Rectemp.Fields("suppliercode"))
  1346.                 End If
  1347.                 If Not IsNull(Trim(Rectemp.Fields("inoutclasscode"))) Then
  1348.                     .Fields("inoutclasscode") = Trim(Rectemp.Fields("inoutclasscode"))
  1349.                 End If
  1350.                 If Not IsNull(Trim(Rectemp.Fields("personcode"))) Then
  1351.                     .Fields("personcode") = Trim(Rectemp.Fields("personcode"))
  1352.                 End If
  1353.                 
  1354.                 '存货科目
  1355.                 Xtfhcs = ""
  1356.                 Xtfhcsfz = ""
  1357.                 Call MaccCode(Trim(Rectemp.Fields("whcode")), Trim(Rectemp.Fields("mnumber")), Trim(Rectemp.Fields("invsortcode")))
  1358.                 .Fields("mateacct") = Xtfhcs
  1359.                 If Qmclcy And Trim(Rectemp.Fields("pricemode")) = "计划价法" Then
  1360.                     .Fields("diffacct") = Xtfhcsfz
  1361.                 End If
  1362.                 
  1363.                 '对方科目
  1364.                 Xtfhcs = ""
  1365.                 Call DfaccCode(Trim(Rectemp.Fields("inoutclasscode") & ""), Trim(Rectemp.Fields("deptcode") & ""), Trim(Rectemp.Fields("invsortcode")), Trim(Rectemp.Fields("mnumber")))
  1366.                 .Fields("dfacct") = Xtfhcs
  1367.                 
  1368.                 .Fields("inquan") = Rectemp.Fields("quan")
  1369.                 Select Case Trim(Rectemp.Fields("pricemode"))
  1370.                     Case "计划价法"
  1371.                         If Qmclcy Then
  1372.                             .Fields("inprice") = Rectemp.Fields("planprice")
  1373.                             .Fields("inmoney") = Rectemp.Fields("planmoney")
  1374.                             If Rectemp.Fields("emoney") - Rectemp.Fields("planmoney") > 0 Then
  1375.                                 .Fields("jfdiff") = Rectemp.Fields("emoney") - Rectemp.Fields("planmoney")
  1376.                             Else
  1377.                                 .Fields("dfdiff") = Rectemp.Fields("planmoney") - Rectemp.Fields("emoney")
  1378.                             End If
  1379.                         Else
  1380.                             .Fields("inprice") = Rectemp.Fields("price")
  1381.                             .Fields("inmoney") = Rectemp.Fields("emoney")
  1382.                         End If
  1383.                     Case "全月平均法", "移动平均法"
  1384.                         .Fields("inprice") = Rectemp.Fields("price")
  1385.                         .Fields("inmoney") = Rectemp.Fields("emoney")
  1386.                         .UpdateBatch
  1387.                     Case "先进先出法", "后进先出法"
  1388.                         .Fields("inprice") = Rectemp.Fields("price")
  1389.                         .Fields("inmoney") = Rectemp.Fields("emoney")
  1390.                         .UpdateBatch
  1391.                         
  1392.                          '入辅助帐
  1393.                         If RecTempFz.State = 1 Then RecTempFz.Close
  1394.                         RecTempFz.Open "select * from Chhs_AssiPrice ", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockBatchOptimistic
  1395.                         RecTempFz.AddNew
  1396.                         RecTempFz.Fields("inbillnum") = Trim(Rectemp.Fields("billnum"))
  1397.                         RecTempFz.Fields("whcode") = Trim(Rectemp.Fields("whcode"))
  1398.                         RecTempFz.Fields("mnumber") = Trim(Rectemp.Fields("mnumber"))
  1399.                         RecTempFz.Fields("inoutmaininid") = Rectemp.Fields("startinputmainid")
  1400.                         RecTempFz.Fields("inoutsubinid") = Rectemp.Fields("startinputsubid")
  1401.                         If Trim(Rectemp.Fields("billdate") & "") <> "" Then
  1402.                             RecTempFz.Fields("indate") = Rectemp.Fields("billdate")
  1403.                         End If
  1404.                         RecTempFz.Fields("inbillcode") = Trim(Rectemp.Fields("billcode"))
  1405.                         RecTempFz.Fields("inquan") = Rectemp.Fields("quan")
  1406.                         RecTempFz.Fields("inprice") = Rectemp.Fields("price")
  1407.                         RecTempFz.Fields("inmoney") = Rectemp.Fields("emoney")
  1408.                         RecTempFz.Fields("inchalkdate") = Xtrq
  1409.                         RecTempFz.Fields("listid") = .Fields("listid")
  1410.                         RecTempFz.UpdateBatch
  1411.                 End Select
  1412.                 .UpdateBatch
  1413.             End With
  1414.         
  1415.             '修改期初单据中的记账人
  1416.             Cw_DataEnvi.DataConnect.Execute ("update chhs_startinputmain set chalkitupman ='" & Xtczy & "'" & _
  1417.                         " where startinputmainid='" & Rectemp.Fields("startinputmainid") & "'")
  1418.         End If
  1419.         Rectemp.MoveNext
  1420.     Loop
  1421.     
  1422.     '期初暂估单
  1423.     If Xtclzg And mStr <> "" Then
  1424.         SqlStr = "SELECT * FROM Chhs_V_StartEval a " & Trim(Str_QueryCondi) & " and " & Trim(mStr) & _
  1425.                   "and a.BillCode='1211' and Emoney<>0 Order By a.BillDate,a.InoutMainId,a.InoutSubId"
  1426.         Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1427.         With RectempMx
  1428.             Do While Not Rectemp.EOF
  1429.             
  1430.                 '入库金额为零，不允许记帐
  1431.                 If Not Rectemp.Fields("emoney") = 0 Then
  1432.                 
  1433.                     '蓝字暂估单
  1434.                     .AddNew
  1435.                     .Fields("inoutflag") = 1
  1436.                     .Fields("billnum") = Trim(Rectemp.Fields("billnum"))
  1437.                     .Fields("inoutmainid") = Trim(Rectemp.Fields("inoutmainid"))
  1438.                     .Fields("inoutsubid") = Trim(Rectemp.Fields("inoutsubid"))
  1439.                     .Fields("billdate") = Xtrq
  1440.                     .Fields("chalkdate") = Xtrq
  1441.                     .Fields("kjyear") = Xtyear
  1442.                     .Fields("period") = StartMon
  1443.                     .Fields("billcode") = "1304"
  1444.                     .Fields("whcode") = Trim(Rectemp.Fields("whcode"))
  1445.                     .Fields("mnumber") = Trim(Rectemp.Fields("mnumber"))
  1446.                     .Fields("maker") = Trim(Rectemp.Fields("maker"))
  1447.                     .Fields("checker") = Xtczy
  1448.                     .Fields("chalkitupman") = Xtczy
  1449.                     .Fields("startflag") = 1
  1450.                     .Fields("remark") = Trim(Rectemp.Fields("remark") & "")
  1451.                     If Not IsNull(Trim(Rectemp.Fields("deptcode"))) Then
  1452.                         .Fields("deptcode") = Trim(Rectemp.Fields("deptcode"))
  1453.                     End If
  1454.                     If Not IsNull(Trim(Rectemp.Fields("suppliercode"))) Then
  1455.                         .Fields("suppliercode") = Trim(Rectemp.Fields("suppliercode"))
  1456.                     End If
  1457.                     If Not IsNull(Trim(Rectemp.Fields("inoutclasscode"))) Then
  1458.                         .Fields("inoutclasscode") = Trim(Rectemp.Fields("inoutclasscode"))
  1459.                     End If
  1460.                     If Not IsNull(Trim(Rectemp.Fields("personcode"))) Then
  1461.                         .Fields("personcode") = Trim(Rectemp.Fields("personcode"))
  1462.                     End If
  1463.                     
  1464.                     '存货科目
  1465.                     Xtcdcs = ""
  1466.                     Xtcdcsfz = ""
  1467.                     Call MaccCode(Trim(Rectemp.Fields("whcode")), Trim(Rectemp.Fields("mnumber")), Trim(Rectemp.Fields("invsortcode")))
  1468.                     .Fields("mateacct") = Xtcdcs
  1469.                     .Fields("diffacct") = Xtcdcsfz
  1470.                     
  1471.                     '对方科目
  1472.                     Xtfhcs = ""
  1473.                     Call DfaccCode(Trim(Rectemp.Fields("inoutclasscode") & ""), Trim(Rectemp.Fields("deptcode") & ""), Trim(Rectemp.Fields("invsortcode")), Trim(Rectemp.Fields("mnumber")))
  1474.                     If Trim(Rectemp.Fields("pricemode")) = "计划价法" And Qmclcy Then
  1475.                         .Fields("diffacct") = Xtcdcsfz
  1476.                     End If
  1477.                     
  1478.                     .Fields("inquan") = Rectemp.Fields("factreceiptquan")
  1479.                     Select Case Trim(Rectemp.Fields("pricemode"))
  1480.                         Case "计划价法"
  1481.                             If Qmclcy Then
  1482.                                 .Fields("inprice") = Rectemp.Fields("planprice")
  1483.                                 .Fields("inmoney") = Rectemp.Fields("planmoney")
  1484.                                 If Rectemp.Fields("emoney") - Rectemp.Fields("planmoney") > 0 Then
  1485.                                     .Fields("jfdiff") = Rectemp.Fields("emoney") - Rectemp.Fields("planmoney")
  1486.                                 Else
  1487.                                     .Fields("dfdiff") = Rectemp.Fields("planmoney") - Rectemp.Fields("emoney")
  1488.                                 End If
  1489.                             Else
  1490.                                 .Fields("inprice") = Rectemp.Fields("price")
  1491.                                 .Fields("inmoney") = Rectemp.Fields("emoney")
  1492.                             End If
  1493.                         Case "全月平均法" ', "移动平均法", "先进先出法", "后进先出法"
  1494.                             .Fields("inprice") = Rectemp.Fields("price")
  1495.                             .Fields("inmoney") = Rectemp.Fields("emoney")
  1496.                     End Select
  1497.                     .UpdateBatch
  1498.                     
  1499.                     '红字回冲单
  1500.                     .AddNew
  1501.                     .Fields("inoutflag") = 1
  1502.                     .Fields("billnum") = Trim(Rectemp.Fields("billnum"))
  1503.                     .Fields("inoutmainid") = Trim(Rectemp.Fields("inoutmainid"))
  1504.                     .Fields("inoutsubid") = Trim(Rectemp.Fields("inoutsubid"))
  1505.                     .Fields("billdate") = Xtrq
  1506.                     .Fields("chalkdate") = Xtrq
  1507.                     .Fields("kjyear") = Xtyear
  1508.                     .Fields("period") = StartMon
  1509.                     .Fields("billcode") = "1305"
  1510.                     .Fields("whcode") = Trim(Rectemp.Fields("whcode"))
  1511.                     .Fields("mnumber") = Trim(Rectemp.Fields("mnumber"))
  1512.                     .Fields("maker") = Trim(Rectemp.Fields("maker"))
  1513.                     .Fields("checker") = Xtczy
  1514.                     .Fields("chalkitupman") = Xtczy
  1515.                     .Fields("remark") = Trim(Rectemp.Fields("remark") & "")
  1516.                     If Not IsNull(Trim(Rectemp.Fields("deptcode"))) Then
  1517.                         .Fields("deptcode") = Trim(Rectemp.Fields("deptcode"))
  1518.                     End If
  1519.                     If Not IsNull(Trim(Rectemp.Fields("suppliercode"))) Then
  1520.                         .Fields("suppliercode") = Trim(Rectemp.Fields("suppliercode"))
  1521.                     End If
  1522.                     If Not IsNull(Trim(Rectemp.Fields("inoutclasscode"))) Then
  1523.                         .Fields("inoutclasscode") = Trim(Rectemp.Fields("inoutclasscode"))
  1524.                     End If
  1525.                     If Not IsNull(Trim(Rectemp.Fields("personcode"))) Then
  1526.                         .Fields("personcode") = Trim(Rectemp.Fields("personcode"))
  1527.                     End If
  1528.                     
  1529.                     '存货科目
  1530.                     Xtcdcs = ""
  1531.                     Xtcdcsfz = ""
  1532.                     Call MaccCode(Trim(Rectemp.Fields("whcode")), Trim(Rectemp.Fields("mnumber")), Trim(Rectemp.Fields("invsortcode")))
  1533.                     .Fields("mateacct") = Xtcdcs
  1534.                     If Trim(Rectemp.Fields("pricemode")) = "计划价法" And Qmclcy Then
  1535.                         .Fields("diffacct") = Xtcdcsfz
  1536.                     End If
  1537.                     
  1538.                     '对方科目
  1539.                     Xtfhcs = ""
  1540.                     Call DfaccCode(Trim(Rectemp.Fields("inoutclasscode") & ""), Trim(Rectemp.Fields("deptcode") & ""), Trim(Rectemp.Fields("invsortcode")), Trim(Rectemp.Fields("mnumber")))
  1541.                     .Fields("dfacct") = Xtfhcs
  1542.                     
  1543.                     .Fields("inquan") = 0 - Rectemp.Fields("factreceiptquan")
  1544.                     Select Case Trim(Rectemp.Fields("pricemode"))
  1545.                         Case "计划价法"
  1546.                             If Qmclcy Then
  1547.                                 .Fields("inprice") = Rectemp.Fields("planprice")
  1548.                                 .Fields("inmoney") = 0 - Rectemp.Fields("planmoney")
  1549.                                 If Rectemp.Fields("emoney") - Rectemp.Fields("planmoney") > 0 Then
  1550.                                     .Fields("dfdiff") = Rectemp.Fields("emoney") - Rectemp.Fields("planmoney")
  1551.                                 Else
  1552.                                     .Fields("jfdiff") = Rectemp.Fields("planmoney") - Rectemp.Fields("emoney")
  1553.                                 End If
  1554.                             Else
  1555.                                 .Fields("inprice") = Rectemp.Fields("price")
  1556.                                 .Fields("inmoney") = 0 - Rectemp.Fields("emoney")
  1557.                             End If
  1558.                         Case "全月平均法" ', "移动平均法", "先进先出法", "后进先出法"
  1559.                             .Fields("inprice") = Rectemp.Fields("price")
  1560.                             .Fields("inmoney") = 0 - Rectemp.Fields("emoney")
  1561.                     End Select
  1562.                     .UpdateBatch
  1563.                 
  1564.                      '修改期初单据中的记帐人
  1565.                     Cw_DataEnvi.DataConnect.Execute ("update Gy_InoutMain set chalkitupman ='" & Xtczy & "'" & _
  1566.                                 " where Inoutmainid='" & Rectemp.Fields("Inoutmainid") & "'")
  1567.                
  1568.                 End If
  1569.                 Rectemp.MoveNext
  1570.             Loop
  1571.         End With
  1572.     End If
  1573.     
  1574.     '调整总帐
  1575.     If RecTempZz.State = 1 Then RecTempZz.Close
  1576.     RecTempZz.Open "select * from chhs_mate ", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockBatchOptimistic
  1577.     With RecTempZz
  1578.     
  1579.         '期初单据包括蓝字暂估单
  1580.         SqlStr = "SELECT WhCode, MNumber,SUM(InQuan) AS SumInQuan,SUM(InMoney) AS SumInMoney, " & _
  1581.                 " SUM(JfDiff) AS SumJfDiff, SUM(DfDiff) AS SumDfDiff From Chhs_List a " & _
  1582.                 " Where KjYear = " & Xtyear & " And Period = " & StartMon & _
  1583.                 " and a.startflag=1 and " & Start_BillChalkitupCond.WhCode & _
  1584.                 " GROUP BY WhCode, MNumber ORDER BY WhCode, MNumber "
  1585.         
  1586.         Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1587.         Do While Not Rectemp.EOF
  1588.             
  1589.             '删除总帐中原有记录
  1590.             Cw_DataEnvi.DataConnect.Execute ("Delete Chhs_Mate where whcode='" & Trim(Rectemp.Fields("whcode")) & "' and mnumber='" & Trim(Rectemp.Fields("mnumber")) & "'")
  1591.             
  1592.             .AddNew
  1593.             .Fields("whcode") = Trim(Rectemp.Fields("whcode"))
  1594.             .Fields("mnumber") = Trim(Rectemp.Fields("mnumber"))
  1595.             .Fields("kjyear") = Xtyear
  1596.             .Fields("period") = StartMon
  1597.             .Fields("startquan") = Rectemp.Fields("suminquan")
  1598.             .Fields("startmoney") = Rectemp.Fields("suminmoney")
  1599.             If .Fields("startquan") <> 0 Then
  1600.                 .Fields("startprice") = .Fields("startmoney") / .Fields("startquan")
  1601.             End If
  1602.             .Fields("startdiff") = Rectemp.Fields("sumjfdiff") - Rectemp.Fields("sumdfdiff")
  1603.             .UpdateBatch
  1604.             Rectemp.MoveNext
  1605.         Loop
  1606.         
  1607.         '红字回冲单
  1608.         SqlStr = "SELECT WhCode, MNumber,SUM(InQuan) AS SumInQuan,SUM(InMoney) AS SumInMoney, " & _
  1609.                 " SUM(JfDiff) AS SumJfDiff, SUM(DfDiff) AS SumDfDiff From Chhs_List a " & _
  1610.                 " Where KjYear = " & Xtyear & " And Period = " & StartMon & _
  1611.                 " and a.startflag=0 and " & Start_BillChalkitupCond.WhCode & _
  1612.                 " GROUP BY WhCode, MNumber ORDER BY WhCode, MNumber "
  1613.         
  1614.         Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1615.         Do While Not Rectemp.EOF
  1616.             
  1617.             '查找仓库+存货是否存在： 存在修改 不存在添加
  1618.             SqlStr = "select * from chhs_mate where KjYear = " & Xtyear & " And Period = " & StartMon & " and whcode='" & Trim(Rectemp.Fields("whcode")) & "' and mnumber='" & Trim(Rectemp.Fields("mnumber")) & "'"
  1619.             If RecTempFz.State = 1 Then RecTempFz.Close
  1620.             RecTempFz.Open SqlStr, Cw_DataEnvi.DataConnect, adOpenDynamic, adLockBatchOptimistic
  1621.             If Not RecTempFz.EOF Then
  1622.                 RecTempFz.Fields("inquan") = Rectemp.Fields("suminquan")
  1623.                 RecTempFz.Fields("inmoney") = Rectemp.Fields("suminmoney")
  1624.                 If RecTempFz.Fields("inquan") <> 0 Then
  1625.                     RecTempFz.Fields("inprice") = RecTempFz.Fields("inmoney") / RecTempFz.Fields("inquan")
  1626.                 End If
  1627.                 RecTempFz.Fields("jfdiff") = Rectemp.Fields("sumjfdiff")
  1628.                 RecTempFz.Fields("dfdiff") = Rectemp.Fields("sumdfdiff")
  1629.                 RecTempFz.UpdateBatch
  1630.             End If
  1631.         
  1632.             Rectemp.MoveNext
  1633.         Loop
  1634.     End With
  1635.     
  1636.     Cw_DataEnvi.DataConnect.CommitTrans
  1637.     
  1638.     Call Sub_Query(1)
  1639.     
  1640.     Xt_Wait.Hide
  1641.     Tsxx = "期初记帐成功!"
  1642.     Call Xtxxts(Tsxx, 0, 4)
  1643.     Exit Sub
  1645. Cwcl:
  1646.     Xt_Wait.Hide
  1647.     Cw_DataEnvi.DataConnect.RollbackTrans
  1648.     Tsxx = "期初记帐失败!"
  1649.     Call Xtxxts(Tsxx, 0, 1)
  1650.     Exit Sub
  1651.     
  1652. End Sub
  1654. Private Sub Sub_Hfjz()               '恢复记帐
  1655. Dim Rectemp As Recordset
  1656. Dim Str_Query As String
  1657.     
  1658.     If CxbbGrid.Rows = CxbbGrid.FixedRows Then Exit Sub
  1659.     
  1660.     '日常单据已记帐期初单据不能记帐
  1661.     SqlStr = "select distinct chalkitupman from Chhs_List a " & _
  1662.             Trim(Str_QueryCondi) & " and StartFlag=0  and billcode<>'1305' "
  1663.     Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1664.     If Not Rectemp.EOF Then
  1665.         Tsxx = "日常单据已记帐,期初单据不允许恢复记帐!"
  1666.         Call Xtxxts(Tsxx, 0, 1)
  1667.         Exit Sub
  1668.     End If
  1669.    
  1670.     On Error GoTo Cwcl
  1671.     
  1672.     Xt_Wait.Show
  1673.     Xt_Wait.Refresh
  1674.     
  1675.     Cw_DataEnvi.DataConnect.BeginTrans
  1676.         
  1677.     '删除明细帐内容
  1678.     SqlStr = "SELECT * FROM Chhs_list a " & Trim(Str_QueryCondi)
  1679.     Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1680.     Do While Not Rectemp.EOF
  1681.         If Trim(Rectemp.Fields("billcode")) = "1308" Then
  1682.             
  1683.             '修改期初单据的记帐人
  1684.             Cw_DataEnvi.DataConnect.Execute ("update chhs_startinputmain set chalkitupman='' where startinputmainid='" & Trim(Rectemp.Fields("inoutmainid")) & "'")
  1685.             
  1686.         Else
  1687.             '修改期初暂估单的记帐人
  1688.             Cw_DataEnvi.DataConnect.Execute ("update Gy_InoutMain set chalkitupman='' where inoutmainid='" & Trim(Rectemp.Fields("inoutmainid")) & "'")
  1689.             
  1690.         End If
  1691.             
  1692.         '删除明细帐内容
  1693.         Cw_DataEnvi.DataConnect.Execute ("delete chhs_list where listid=" & Rectemp.Fields("listid"))
  1694.         
  1695.         Rectemp.MoveNext
  1696.     Loop
  1697.     
  1698.     '删除总帐内容
  1699.     Str_Query = Replace(Trim(Start_BillChalkitupCond.WhCode), "a.", "", 1, , vbTextCompare)
  1700.     SqlStr = "delete chhs_mate where " & Str_Query & " and   kjyear =" & Xtyear & " and period =" & StartMon
  1701.     Cw_DataEnvi.DataConnect.Execute (SqlStr)
  1702.     
  1703.     '删除辅助帐
  1704.     SqlStr = "delete Chhs_AssiPrice where " & Str_Query
  1705.     Cw_DataEnvi.DataConnect.Execute (SqlStr)
  1706.     
  1707.     Cw_DataEnvi.DataConnect.CommitTrans
  1708.     
  1709.     Call Sub_Query(1)
  1710.     
  1711.     Xt_Wait.Hide
  1712.     Tsxx = "恢复记帐成功!"
  1713.     Call Xtxxts(Tsxx, 0, 4)
  1714.     Exit Sub
  1715.     
  1716. Cwcl:
  1717.     Xt_Wait.Hide
  1718.     Cw_DataEnvi.DataConnect.RollbackTrans
  1719.     Tsxx = "恢复记帐失败!"
  1720.     Call Xtxxts(Tsxx, 0, 1)
  1721.     Exit Sub
  1722. End Sub
  1725. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1726.     
  1727.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1728.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1729.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1730.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1731.     ReDim Bbxbt(1 To Bbxbtgs)
  1732.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1733.     If Bbbwhgs <> 0 Then
  1734.         ReDim Bbbwh(1 To Bbbwhgs)
  1735.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1736.     End If
  1737.     Bbzbt = ReportTitle
  1738.     Bbxbt(1) = ""
  1739.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1740.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  1741.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1742.     If Not bbylte Then
  1743.         Unload DY_Tybbyldy
  1744.     End If
  1746. End Sub