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

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

企业管理

开发平台：

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 CL_BillChalkitup 
  5.    Caption         =   "单据记帐"
  6.    ClientHeight    =   6660
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   11580
  10.    HelpContextID   =   130401
  11.    Icon            =   "处理_单据记帐.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form2"
  14.    MDIChild        =   -1  'True
  15.    ScaleHeight     =   6660
  16.    ScaleWidth      =   11580
  17.    WindowState     =   2  'Maximized
  18.    Begin VB.Timer Timer1 
  19.       Enabled         =   0   'False
  20.       Interval        =   1
  21.       Left            =   7620
  22.       Top             =   90
  23.    End
  24.    Begin VB.PictureBox Pic_Title 
  25.       BackColor       =   &H00FFFFFF&
  26.       Height          =   1125
  27.       Left            =   0
  28.       Picture         =   "处理_单据记帐.frx":1042
  29.       ScaleHeight     =   1065
  30.       ScaleWidth      =   11715
  31.       TabIndex        =   0
  32.       Top             =   570
  33.       Width           =   11775
  34.       Begin VB.Label Lbl_TitleText 
  35.          AutoSize        =   -1  'True
  36.          BackStyle       =   0  'Transparent
  37.          Caption         =   "仓库"
  38.          ForeColor       =   &H00000000&
  39.          Height          =   195
  40.          Index           =   0
  41.          Left            =   1260
  42.          TabIndex        =   8
  43.          Top             =   780
  44.          Width           =   360
  45.       End
  46.       Begin VB.Label Lbl_TitleMess 
  47.          AutoSize        =   -1  'True
  48.          BackStyle       =   0  'Transparent
  49.          Caption         =   "月份:"
  50.          Height          =   195
  51.          Index           =   0
  52.          Left            =   750
  53.          TabIndex        =   7
  54.          Top             =   780
  55.          Width           =   405
  56.       End
  57.       Begin VB.Label Lab_Title 
  58.          AutoSize        =   -1  'True
  59.          BackColor       =   &H80000018&
  60.          BackStyle       =   0  'Transparent
  61.          Caption         =   "单据列表"
  62.          BeginProperty Font 
  63.             Name            =   "宋体"
  64.             Size            =   12
  65.             Charset         =   134
  66.             Weight          =   700
  67.             Underline       =   0   'False
  68.             Italic          =   0   'False
  69.             Strikethrough   =   0   'False
  70.          EndProperty
  71.          ForeColor       =   &H00000000&
  72.          Height          =   240
  73.          Index           =   4
  74.          Left            =   480
  75.          TabIndex        =   3
  76.          Top             =   210
  77.          Width           =   1020
  78.       End
  79.       Begin VB.Label Lbl_Color 
  80.          Appearance      =   0  'Flat
  81.          BackColor       =   &H00FFFFC0&
  82.          BorderStyle     =   1  'Fixed Single
  83.          ForeColor       =   &H80000008&
  84.          Height          =   195
  85.          Left            =   8970
  86.          TabIndex        =   2
  87.          Top             =   780
  88.          Width           =   225
  89.       End
  90.       Begin VB.Label Label2 
  91.          AutoSize        =   -1  'True
  92.          BackStyle       =   0  'Transparent
  93.          Caption         =   "不允许记帐单据颜色标记"
  94.          Height          =   195
  95.          Left            =   9270
  96.          TabIndex        =   1
  97.          Top             =   780
  98.          Width           =   1980
  99.       End
  100.    End
  101.    Begin MSComctlLib.Toolbar GsToolbar 
  102.       Height          =   525
  103.       Left            =   9330
  104.       TabIndex        =   4
  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          =   7245
  136.       Left            =   0
  137.       TabIndex        =   5
  138.       Top             =   1770
  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   =   41
  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.             BeginProperty ListImage41 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  403.                Picture         =   "处理_单据记帐.frx":3E116
  404.                Key             =   "tz"
  405.             EndProperty
  406.          EndProperty
  407.       End
  408.    End
  409.    Begin MSComctlLib.Toolbar SzToolbar 
  410.       Align           =   1  'Align Top
  411.       Height          =   555
  412.       Left            =   0
  413.       TabIndex        =   6
  414.       Top             =   0
  415.       Width           =   11580
  416.       _ExtentX        =   20426
  417.       _ExtentY        =   979
  418.       ButtonWidth     =   820
  419.       ButtonHeight    =   926
  420.       AllowCustomize  =   0   'False
  421.       Appearance      =   1
  422.       Style           =   1
  423.       ImageList       =   "ImageList1"
  424.       _Version        =   393216
  425.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  426.          NumButtons      =   15
  427.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  428.             Caption         =   "设置"
  429.             Key             =   "ymsz"
  430.             ImageKey        =   "sz"
  431.          EndProperty
  432.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  433.             Caption         =   "打印"
  434.             Key             =   "dy"
  435.             ImageKey        =   "dy"
  436.          EndProperty
  437.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  438.             Caption         =   "预览"
  439.             Key             =   "yl"
  440.             ImageKey        =   "yl"
  441.          EndProperty
  442.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  443.             Style           =   3
  444.          EndProperty
  445.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  446.             Caption         =   "查询"
  447.             Key             =   "cx"
  448.             ImageKey        =   "cx"
  449.          EndProperty
  450.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  451.             Caption         =   "单据"
  452.             Key             =   "Bill"
  453.             ImageKey        =   "pz"
  454.          EndProperty
  455.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  456.             Style           =   4
  457.          EndProperty
  458.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  459.             Caption         =   "明细"
  460.             Key             =   "mx"
  461.             ImageKey        =   "mx"
  462.          EndProperty
  463.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  464.             Caption         =   "汇总"
  465.             Key             =   "hz"
  466.             ImageKey        =   "hz"
  467.          EndProperty
  468.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  469.             Style           =   3
  470.          EndProperty
  471.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  472.             Caption         =   "记帐"
  473.             Key             =   "jz"
  474.             ImageKey        =   "jz"
  475.          EndProperty
  476.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  477.             Caption         =   "恢复"
  478.             Key             =   "hf"
  479.             ImageKey        =   "hf"
  480.          EndProperty
  481.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  482.             Style           =   3
  483.          EndProperty
  484.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  485.             Caption         =   "帮助"
  486.             Key             =   "bz"
  487.             ImageKey        =   "bz"
  488.          EndProperty
  489.          BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  490.             Caption         =   "退出"
  491.             Key             =   "fh"
  492.             ImageKey        =   "tc"
  493.          EndProperty
  494.       EndProperty
  495.       BorderStyle     =   1
  496.       Begin MSComctlLib.ImageList ImageList1 
  497.          Left            =   6990
  498.          Top             =   30
  499.          _ExtentX        =   1005
  500.          _ExtentY        =   1005
  501.          BackColor       =   -2147483643
  502.          ImageWidth      =   16
  503.          ImageHeight     =   16
  504.          MaskColor       =   12632256
  505.          _Version        =   393216
  506.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  507.             NumListImages   =   36
  508.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  509.                Picture         =   "处理_单据记帐.frx":3F168
  510.                Key             =   "sz"
  511.             EndProperty
  512.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  513.                Picture         =   "处理_单据记帐.frx":3F502
  514.                Key             =   "dy"
  515.             EndProperty
  516.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  517.                Picture         =   "处理_单据记帐.frx":3F89C
  518.                Key             =   "yl"
  519.             EndProperty
  520.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  521.                Picture         =   "处理_单据记帐.frx":3FC36
  522.                Key             =   "xg"
  523.             EndProperty
  524.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  525.                Picture         =   "处理_单据记帐.frx":3FFD0
  526.                Key             =   "zh"
  527.             EndProperty
  528.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  529.                Picture         =   "处理_单据记帐.frx":4036A
  530.                Key             =   "sh"
  531.             EndProperty
  532.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  533.                Picture         =   "处理_单据记帐.frx":40704
  534.                Key             =   "bc"
  535.             EndProperty
  536.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  537.                Picture         =   "处理_单据记帐.frx":40A9E
  538.                Key             =   "fq"
  539.             EndProperty
  540.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  541.                Picture         =   "处理_单据记帐.frx":40E38
  542.                Key             =   "bz"
  543.             EndProperty
  544.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  545.                Picture         =   "处理_单据记帐.frx":411D2
  546.                Key             =   "tc"
  547.             EndProperty
  548.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  549.                Picture         =   "处理_单据记帐.frx":4156C
  550.                Key             =   "bcgs"
  551.             EndProperty
  552.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  553.                Picture         =   "处理_单据记帐.frx":41906
  554.                Key             =   "mrlk"
  555.             EndProperty
  556.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  557.                Picture         =   "处理_单据记帐.frx":41CA0
  558.                Key             =   "xsxm"
  559.             EndProperty
  560.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  561.                Picture         =   "处理_单据记帐.frx":4203A
  562.                Key             =   "first"
  563.             EndProperty
  564.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  565.                Picture         =   "处理_单据记帐.frx":423D4
  566.                Key             =   "prev"
  567.             EndProperty
  568.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  569.                Picture         =   "处理_单据记帐.frx":4276E
  570.                Key             =   "next"
  571.             EndProperty
  572.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  573.                Picture         =   "处理_单据记帐.frx":42B08
  574.                Key             =   "last"
  575.             EndProperty
  576.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  577.                Picture         =   "处理_单据记帐.frx":42EA2
  578.                Key             =   "xx"
  579.             EndProperty
  580.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  581.                Picture         =   "处理_单据记帐.frx":4323C
  582.                Key             =   "define"
  583.             EndProperty
  584.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  585.                Picture         =   "处理_单据记帐.frx":435D6
  586.                Key             =   "exec"
  587.             EndProperty
  588.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  589.                Picture         =   "处理_单据记帐.frx":43970
  590.                Key             =   "xz"
  591.             EndProperty
  592.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  593.                Picture         =   "处理_单据记帐.frx":43D0A
  594.                Key             =   "sc"
  595.             EndProperty
  596.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  597.                Picture         =   "处理_单据记帐.frx":440A4
  598.                Key             =   "sx"
  599.             EndProperty
  600.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  601.                Picture         =   "处理_单据记帐.frx":4443E
  602.                Key             =   "cx"
  603.             EndProperty
  604.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  605.                Picture         =   "处理_单据记帐.frx":447D8
  606.                Key             =   "zd"
  607.             EndProperty
  608.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  609.                Picture         =   "处理_单据记帐.frx":44B72
  610.                Key             =   "dz"
  611.             EndProperty
  612.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  613.                Picture         =   "处理_单据记帐.frx":44F0C
  614.                Key             =   "ph"
  615.             EndProperty
  616.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  617.                Picture         =   "处理_单据记帐.frx":452A6
  618.                Key             =   "fz"
  619.             EndProperty
  620.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  621.                Picture         =   "处理_单据记帐.frx":45640
  622.                Key             =   "dw"
  623.             EndProperty
  624.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  625.                Picture         =   "处理_单据记帐.frx":459DA
  626.                Key             =   "hf"
  627.             EndProperty
  628.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  629.                Picture         =   "处理_单据记帐.frx":45D74
  630.                Key             =   "pz"
  631.             EndProperty
  632.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  633.                Picture         =   "处理_单据记帐.frx":4610E
  634.                Key             =   "check"
  635.             EndProperty
  636.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  637.                Picture         =   "处理_单据记帐.frx":464A8
  638.                Key             =   "mx"
  639.             EndProperty
  640.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  641.                Picture         =   "处理_单据记帐.frx":46842
  642.                Key             =   "jz"
  643.             EndProperty
  644.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  645.                Picture         =   "处理_单据记帐.frx":46BDC
  646.                Key             =   "hz"
  647.             EndProperty
  648.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  649.                Picture         =   "处理_单据记帐.frx":46F76
  650.                Key             =   "tz"
  651.             EndProperty
  652.          EndProperty
  653.       End
  654.    End
  655. End
  656. Attribute VB_Name = "CL_BillChalkitup"
  657. Attribute VB_GlobalNameSpace = False
  658. Attribute VB_Creatable = False
  659. Attribute VB_PredeclaredId = True
  660. Attribute VB_Exposed = False
  661. '**************************************************************************
  662. '*    模 块 名 称 :单据记帐
  663. '*    功 能 描 述 :日常单据入明细帐、总帐
  664. '*    程序员姓名  :白凤英
  665. '*    最后修改人  :白凤英
  666. '*    最后修改时间:2001/11/30
  667. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  668. '**************************************************************************
  669. Dim mStr As String                       '暂估条件
  670. Dim GridColHide() As Boolean             '网格列隐藏
  672. Dim ReportTitle As String                '报表主标题
  673. Dim Str_QueryCondi As String             '用户录入查询条件
  674. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  676. '以下为固定使用变量
  677. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  678. Dim GridCode As String                   '显示网格网格代码
  679. Dim GridInf() As Variant                 '整个网格设置信息
  680. Dim Tsxx As String                       '系统提示信息
  681. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  682. Dim Sjhgd As Double                      '网格数据行高度
  683. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  684. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  685. Dim GridStr()  As String                 '网格列信息(字符型)
  686. Dim GridInt() As Integer                 '网格列信息(整型)
  687. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  689. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  690.     On Error Resume Next
  691.     With CxbbGrid
  692.         .Width = Me.Width - 160
  693.         .Height = Me.Height - .Top - 400
  694.     End With
  695.     With Pic_Title
  696.         .Width = Me.Width - 160
  697.     End With
  698.     
  699.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  701. End Sub
  703. Private Sub Form_Load()                                                   '窗体装入
  704.   
  705.     '调入打印页面设置窗体
  706.     ReportTitle = "单据列表"
  707.     XtReportCode = "Chhs_BillChalkList"
  708.     Load Dyymctbl
  709.       
  710.     '调整标题栏及网格、格式工具条位置(Fixed)
  711.     Pic_Title.Left = 40
  712.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  713.     CxbbGrid.Left = Pic_Title.Left
  714.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  715.      
  716.     '调 入 网 格(Fixed)
  717.     GridCode = "Chhs_BillChalkList"
  718.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  719.       
  720.     Qslz = GridInf(1)
  721.     Sjhgd = GridInf(2)
  722.     Sfxshjwg = GridInf(7)
  723.     Szzls = CxbbGrid.Cols - 1
  724.     
  725.     Lbl_TitleText(0) = CStr(Xtyear) + "." + CStr(PGNowmon)
  727. End Sub
  729. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  731.     '卸载条件窗体
  732.     CL_BillChalkitupCond.UnloadCheck.Value = 1
  733.     Unload CL_BillChalkitupCond
  734.     
  735.     '卸载打印页面设置窗体
  736.     Unload Dyymctbl
  738. End Sub
  740. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  741.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  742. End Sub
  744. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  745.   
  746.     Select Case Button.Key
  747.         Case "bcgs"                                          '保存表格格式
  748.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  749.         Case "hfmrgs"                                        '恢复默认格式
  750.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  751.         Case "szxsxm"                                        '设置显示项目
  752.             Call Szxsxm(CxbbGrid, GridCode)
  753.     End Select
  755. End Sub
  757. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  758.     
  759.     Select Case Button.Key
  760.         Case "ymsz"                                          '页面设置
  761.             Dyymctbl.Show 1
  762.         Case "yl"                                            '预 览
  763.             Call bbyl(True)
  764.         Case "dy"                                            '打 印
  765.             Call bbyl(False)
  766.         Case "cx"                                            '查 询
  767.             CL_BillChalkitupCond.Show 1
  768.         Case "Bill"                                          '单 据
  769.             Call CxbbGrid_DblClick
  770.         Case "mx"                                            '明 细
  771.             Call Sub_Mx
  772.         Case "hz"                                            '汇 总
  773.             Call Sub_Hz
  774.         Case "tz"                                            '调 整
  775.             
  776.         Case "jz"                                            '记 帐
  777.             Call Sub_Chalkitup
  778.         Case "hf"                                            '恢 复
  779.             Call Sub_CancelChalkitup
  780.         Case "bz"                                            '帮 助
  781.             Call F1bz
  782.         Case "fh"                                            '退 出
  783.            Unload Me
  784.     End Select
  786. End Sub
  788. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  789.     
  790.     Timer1.Enabled = False
  791.     Xt_Wait.Show
  792.     Xt_Wait.Refresh
  793.    
  794.     ReDim GridColHide(CxbbGrid.Cols)
  795.     For Jsqte = Qslz To CxbbGrid.Cols - 1
  796.         GridColHide(Jsqte) = CxbbGrid.ColHidden(Jsqte)
  797.     Next Jsqte
  798.    
  799.     '加快显示速度
  800.     CxbbGrid.Redraw = False
  802.     '生成查询结果
  803.     Call Sub_Mx
  804.    
  805.     CxbbGrid.Redraw = True
  806.     
  807.     Xt_Wait.Hide
  809. End Sub
  811. Private Sub Sub_Query(Int_QueryType As Integer)                              '生成查询结果(Define)  未记帐单据
  812.     
  813.     '过程参数:Int_QueryType 0-"点确定按钮"查询  1-"刷新"查询
  815.     Dim Rec_Query As Recordset                  '查询结果动态集
  816.     Dim Coljsq As Long                          '网格列计数器
  817.     Dim Jsqte As Long                        '临时动态计数器
  818.     Dim Str1 As String
  819.     
  820.     '以下为自定义部分[
  821.  
  822.     If Int_QueryType = 0 Then   '0-"点确定按钮"查询
  823.         With CL_BillChalkitupCond
  824.          
  825.             '生成查询条件
  826.             Str_QueryCondi = " where a.kjyear=" & PGKjYear & " and a.period=" & PGNowmon & " and " & .WhCode
  827.             
  828.             Str_QueryCondi = Str_QueryCondi & " and  chalkitupman='' "
  829.             If .LrText <> "" Then
  830.                 Str_QueryCondi = Str_QueryCondi & " and billdate <= '" & Trim(.LrText.Text) & "'"
  831.             End If
  832.         End With
  833.     End If
  834.      
  835.     SqlStr = "SELECT * FROM Chhs_V_InOut a " & _
  836.              Trim(Str_QueryCondi) & " and chhschecker<>'' Order By a.whcode,a.BillDate,a.InOutFlag desc,a.InoutMainId,a.InOutSubId"
  837.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  838.     With Rec_Query
  839.         CxbbGrid.Rows = CxbbGrid.FixedRows
  840.         Jsqte = CxbbGrid.FixedRows
  841.         Do While Not .EOF
  842.     
  843.             CxbbGrid.AddItem ""
  844.             '[>>自定义填充内容
  845.             CxbbGrid.TextMatrix(Jsqte, 0) = .Fields("InoutMainId")                                            'ID(主要用来查询定位用)
  846.             CxbbGrid.TextMatrix(Jsqte, 1) = .Fields("BillCode")                                                    '单据编码
  847.             CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("BillNum") & "")              '单据号
  848.             CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("WhName") & "")               '仓库名称
  849.             CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Format(.Fields("BillDate"), "yyyy-mm-dd")  '入库日期
  850.             If Trim(.Fields("SupplierName") & "") <> "" Then
  851.                 CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("SupplierName") & "")         '供应商
  852.             End If
  853.             If Trim(.Fields("Cusname") & "") <> "" Then
  854.                 CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("Cusname") & "")              '客户
  855.             End If
  856.             CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("Deptname") & "")             '部门
  857.             CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("InoutClassName") & "")       '收发类别
  858.             CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Trim(.Fields("PersonName") & "")           '业务员
  859.             CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Trim(.Fields("Maker") & "")                '制单人
  860.             CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("ChhsChecker") & "")              '审核人
  861.             CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Trim(.Fields("ChalkitupMan") & "")         '记帐人
  862.             CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = Trim(.Fields("Mnumber") & "")              '存货编码
  863.             CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Trim(.Fields("MName") & "")                '存货名称
  864.             CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Trim(.Fields("Model") & "")                '规格型号
  865.             CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Trim(.Fields("PrimaryUnitName") & "")      '主计量单位
  866.             CxbbGrid.TextMatrix(Jsqte, Sydz("020", GridStr(), Szzls)) = Trim(.Fields("kjyear") & "")               '年度
  867.             CxbbGrid.TextMatrix(Jsqte, Sydz("021", GridStr(), Szzls)) = Trim(.Fields("period") & "")               '月份
  868.             CxbbGrid.TextMatrix(Jsqte, Sydz("025", GridStr(), Szzls)) = Trim(.Fields("billname") & "")               '备注
  869.             CxbbGrid.TextMatrix(Jsqte, Sydz("026", GridStr(), Szzls)) = Trim(.Fields("remark") & "")               '备注
  870.             If .Fields("inoutFlag") Then
  871.                 If .Fields("FactReceiptQuan") <> 0 Then                                                                           '数量
  872.                     CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = .Fields("FactReceiptQuan")
  873.                 End If
  874.                 If Trim(.Fields("pricemode")) = "计划价法" Then
  875.                     If .Fields("PlanPrice") <> 0 Then                                                                      '计划单价
  876.                         CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = .Fields("PlanPrice")
  877.                     End If
  878.                     If .Fields("PlanMoney") <> 0 Then                                                                      '计划金额
  879.                         CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = .Fields("PlanMoney")
  880.                     End If
  881.                 End If
  882.                 If .Fields("Price") <> 0 Then                                                                          '实际单价
  883.                     CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = .Fields("Price")
  884.                 End If
  885.                 If .Fields("Emoney") <> 0 Then                                                                         '实际金额
  886.                     CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = .Fields("EMoney")
  887.                 Else
  888.                     CxbbGrid.Cell(flexcpBackColor, Jsqte, Qslz, Jsqte, CxbbGrid.Cols - 1) = &HFFFFC0
  889.                 End If
  890.             Else
  891.                 If .Fields("FactIssueQuan") <> 0 Then                                                                           '数量
  892.                     CxbbGrid.TextMatrix(Jsqte, Sydz("022", GridStr(), Szzls)) = .Fields("FactIssueQuan")
  893.                     
  894.                     If .Fields("FactIssueQuan") < 0 And .Fields("IssueMoney") = 0 Then
  895.                         CxbbGrid.Cell(flexcpBackColor, Jsqte, Qslz, Jsqte, CxbbGrid.Cols - 1) = &HFFFFC0
  896.                     End If
  897.                 End If
  898.                 If .Fields("Price") <> 0 Then                                                                          '实际单价
  899.                     CxbbGrid.TextMatrix(Jsqte, Sydz("023", GridStr(), Szzls)) = .Fields("Price")
  900.                 End If
  901.                 If .Fields("IssueMoney") <> 0 Then                                                                         '实际金额
  902.                     CxbbGrid.TextMatrix(Jsqte, Sydz("024", GridStr(), Szzls)) = .Fields("IssueMoney")
  903.                 End If
  904.             End If
  905.             
  906.             If .Fields("redblueflag") And (Trim(.Fields("pricemode")) = "先进先出法" Or Trim(.Fields("pricemode")) = "后进先出法") Then
  907.                 CxbbGrid.Cell(flexcpBackColor, Jsqte, Qslz, Jsqte, CxbbGrid.Cols - 1) = &HFFFFC0
  908.             End If
  909.             
  910.             '<<]
  911.             '设置数据行高度(Fixed)
  912.             CxbbGrid.RowHeight(Jsqte) = Sjhgd
  913.      
  914.             '动态集指针加1,同时将计数器加1(Fixed)
  915.             .MoveNext
  916.             Jsqte = Jsqte + 1
  917.         Loop
  918.     End With
  919.     
  920.     
  921.     '输入合计
  922.     With CxbbGrid
  923.         If CL_BillChalkitupCond.Chk_Sum.Value <> 0 Then
  924.            .SubtotalPosition = flexSTBelow
  925.            For Jsqte = Qslz To .Cols - 1
  926.                 If GridBoolean(Jsqte, 4) Then
  927.                      .Subtotal flexSTSum, 0, Jsqte, , &HF7F3EC, , , , , True
  928.                 End If
  929.            Next
  930.            
  931.            For Jsqte = .FixedRows To .Rows - 1
  932.                 If .IsSubtotal(Jsqte) Then
  933.                     For Coljsq = Qslz To .Cols - 1
  934.                         If Val(.TextMatrix(Jsqte, Coljsq)) = 0 And GridBoolean(Coljsq, 4) Then
  935.                             .TextMatrix(Jsqte, Coljsq) = ""
  936.                         End If
  937.                     Next
  938.                     .TextMatrix(Jsqte, 0) = .TextMatrix(Jsqte - 1, 0)
  939.                     .TextMatrix(Jsqte, 1) = .TextMatrix(Jsqte - 1, 1)
  940.                     .TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = "    合计 "
  941.                     .RowHeight(Jsqte) = Sjhgd
  942.                 End If
  943.            Next
  944.         End If
  945.     End With
  946.     
  947.     ']以上为用户自定义部分
  948.     
  949.     Set Rec_Query = Nothing
  951. End Sub
  952. Private Sub Sub_QueryJz(Int_QueryType As Integer)                            '生成查询结果(Define)  已记帐单据
  953.     
  954.     '过程参数:Int_QueryType 0-"点确定按钮"查询  1-"刷新"查询
  956.     Dim Rec_Query As Recordset                  '查询结果动态集
  957.     Dim Coljsq As Long                          '网格列计数器
  958.     Dim Jsqte As Long                        '临时动态计数器
  959.     Dim Str1 As String
  960.     
  961.     '以下为自定义部分[
  962.  
  963.     If Int_QueryType = 0 Then   '0-"点确定按钮"查询
  964.         With CL_BillChalkitupCond
  965.          
  966.             '生成查询条件
  967.             Str_QueryCondi = " where a.kjyear=" & PGKjYear & " and a.period=" & PGNowmon & " and " & .WhCode & " and a.Billcode in('1202','1203','1204','1205','1206','1212','1301','1302','1303')"
  968.             
  969.             If .LrText <> "" Then
  970.                 Str_QueryCondi = Str_QueryCondi & " and billdate >='" & Trim(.LrText.Text) & "'"
  971.             End If
  972.         End With
  973.     End If
  974.      
  975.     SqlStr = "SELECT * FROM Chhs_V_List a " & Trim(Str_QueryCondi) & _
  976.              "and StartFlag=0  Order By a.whcode,a.BillDate,a.InOutFlag desc,a.InoutMainId,a.InOutSubId"
  977.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  978.     With Rec_Query
  979.         CxbbGrid.Rows = CxbbGrid.FixedRows
  980.         Jsqte = CxbbGrid.FixedRows
  981.         Do While Not .EOF
  982.     
  983.             CxbbGrid.AddItem ""
  984.             '[>>自定义填充内容
  985.             If .Fields("inoutmainid") <> 0 Then
  986.                 CxbbGrid.TextMatrix(Jsqte, 0) = .Fields("InoutMainId")                                            'ID(主要用来查询定位用)
  987.             Else
  988.                 CxbbGrid.TextMatrix(Jsqte, 0) = .Fields("InOutAdjustMainId")                                            'ID(主要用来查询定位用)
  989.             End If
  990.             CxbbGrid.TextMatrix(Jsqte, 1) = Trim(.Fields("BillCode"))                                                    '单据编码
  991.             CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("BillNum") & "")              '单据号
  992.             CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("WhName") & "")               '仓库名称
  993.             CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Format(.Fields("BillDate"), "yyyy-mm-dd")  '入库日期
  994.             If Trim(.Fields("SupplierName") & "") <> "" Then
  995.                 CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("SupplierName") & "")         '供应商
  996.             End If
  997.             If Trim(.Fields("Cusname") & "") <> "" Then
  998.                 CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("Cusname") & "")              '客户
  999.             End If
  1000.             CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("Deptname") & "")             '部门
  1001.             CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("InoutClassName") & "")       '收发类别
  1002.             CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Trim(.Fields("PersonName") & "")           '业务员
  1003.             CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Trim(.Fields("Maker") & "")                '制单人
  1004.             CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("Checker") & "")              '审核人
  1005.             CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Trim(.Fields("ChalkitupMan") & "")         '记帐人
  1006.             CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = Trim(.Fields("Mnumber") & "")              '存货编码
  1007.             CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Trim(.Fields("MName") & "")                '存货名称
  1008.             CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Trim(.Fields("Model") & "")                '规格型号
  1009.             CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Trim(.Fields("PrimaryUnitName") & "")      '主计量单位
  1010.             CxbbGrid.TextMatrix(Jsqte, Sydz("020", GridStr(), Szzls)) = Trim(.Fields("kjyear") & "")               '年度
  1011.             CxbbGrid.TextMatrix(Jsqte, Sydz("021", GridStr(), Szzls)) = Trim(.Fields("period") & "")               '月份
  1012.             CxbbGrid.TextMatrix(Jsqte, Sydz("025", GridStr(), Szzls)) = Trim(.Fields("billname") & "")               '备注
  1013.             CxbbGrid.TextMatrix(Jsqte, Sydz("026", GridStr(), Szzls)) = Trim(.Fields("remark") & "")               '备注
  1014.             If .Fields("inoutFlag") Then
  1015.                 If .Fields("InQuan") <> 0 Then                                                                           '数量
  1016.                     CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = .Fields("InQuan")
  1017.                 End If
  1018.                 If Trim(.Fields("pricemode")) = "计划价法" Then
  1019.                     If .Fields("InPrice") <> 0 Then                                                                      '计划单价
  1020.                         CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = .Fields("InPrice")
  1021.                     End If
  1022.                     If .Fields("InMoney") <> 0 Then                                                                      '计划金额
  1023.                         CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = .Fields("InMoney")
  1024.                     End If
  1025.                     If .Fields("InQuan") <> 0 Then                                                                        '实际单价
  1026.                         CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = (.Fields("InMoney") + .Fields("JfDiff") - .Fields("DfDiff")) / .Fields("InQuan")
  1027.                     End If
  1028.                     If (.Fields("InMoney") + .Fields("JfDiff") - .Fields("DfDiff")) <> 0 Then                                '实际金额
  1029.                         CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = .Fields("InMoney") + .Fields("JfDiff") - .Fields("DfDiff")
  1030.                     End If
  1031.                 Else
  1032.                     If .Fields("InPrice") <> 0 Then                                                                      '计划单价
  1033.                         CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = .Fields("InPrice")
  1034.                     End If
  1035.                     If .Fields("InMoney") <> 0 Then                                                                      '计划金额
  1036.                         CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = .Fields("InMoney")
  1037.                     End If
  1038.                 End If
  1039.             Else
  1040.                 If .Fields("OutQuan") <> 0 Then                                                                           '数量
  1041.                     CxbbGrid.TextMatrix(Jsqte, Sydz("022", GridStr(), Szzls)) = .Fields("OutQuan")
  1042.                 End If
  1043.                 If .Fields("OutPrice") <> 0 Then                                                                          '实际单价
  1044.                     CxbbGrid.TextMatrix(Jsqte, Sydz("023", GridStr(), Szzls)) = .Fields("OutPrice")
  1045.                 End If
  1046.                 If .Fields("OutMoney") <> 0 Then                                                                         '实际金额
  1047.                     CxbbGrid.TextMatrix(Jsqte, Sydz("024", GridStr(), Szzls)) = .Fields("OutMoney")
  1048.                 End If
  1049.             End If
  1050.             
  1051.             '<<]
  1052.             '设置数据行高度(Fixed)
  1053.             CxbbGrid.RowHeight(Jsqte) = Sjhgd
  1054.      
  1055.             '动态集指针加1,同时将计数器加1(Fixed)
  1056.             .MoveNext
  1057.             Jsqte = Jsqte + 1
  1058.         Loop
  1059.     End With
  1060.     
  1061.     
  1062.     '输入合计
  1063.     With CxbbGrid
  1064.         If CL_BillChalkitupCond.Chk_Sum.Value <> 0 Then
  1065.            .SubtotalPosition = flexSTBelow
  1066.            For Jsqte = Qslz To .Cols - 1
  1067.                 If GridBoolean(Jsqte, 4) Then
  1068.                      .Subtotal flexSTSum, 0, Jsqte, , &HF7F3EC, , , , , True
  1069.                 End If
  1070.            Next
  1071.            
  1072.            For Jsqte = .FixedRows To .Rows - 1
  1073.                 If .IsSubtotal(Jsqte) Then
  1074.                     For Coljsq = Qslz To .Cols - 1
  1075.                         If Val(.TextMatrix(Jsqte, Coljsq)) = 0 And GridBoolean(Coljsq, 4) Then
  1076.                             .TextMatrix(Jsqte, Coljsq) = ""
  1077.                         End If
  1078.                     Next
  1079.                     .TextMatrix(Jsqte, 0) = .TextMatrix(Jsqte - 1, 0)
  1080.                     .TextMatrix(Jsqte, 1) = .TextMatrix(Jsqte - 1, 1)
  1081.                     .TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = "    合计 "
  1082.                     .RowHeight(Jsqte) = Sjhgd
  1083.                 End If
  1084.            Next
  1085.         End If
  1086.     End With
  1087.     
  1088.     ']以上为用户自定义部分
  1089.     
  1090.     Set Rec_Query = Nothing
  1092. End Sub
  1093. Private Sub Sub_QueryHz(Int_QueryType As Integer)                                     '生成查询结果(Define)
  1094.     
  1095.     '过程参数:Int_QueryType 0-"点确定按钮"查询  1-"刷新"查询
  1097.     Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
  1098.     Dim Coljsq As Long                          '网格列计数器
  1099.     Dim Jsqte As Long                        '临时动态计数器
  1100.     Dim Str As String
  1101.     Dim FindRow As Integer
  1102.     
  1103.     '以下为自定义部分[
  1104.      
  1105.     CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = True
  1106.     CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = True
  1107.     CxbbGrid.ColHidden(Sydz("004", GridStr(), Szzls)) = True
  1108.     CxbbGrid.ColHidden(Sydz("005", GridStr(), Szzls)) = True
  1109.     CxbbGrid.ColHidden(Sydz("006", GridStr(), Szzls)) = True
  1110.     CxbbGrid.ColHidden(Sydz("007", GridStr(), Szzls)) = True
  1111.     CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = True
  1112.     CxbbGrid.ColHidden(Sydz("009", GridStr(), Szzls)) = True
  1113.     CxbbGrid.ColHidden(Sydz("010", GridStr(), Szzls)) = True
  1114.     CxbbGrid.ColHidden(Sydz("020", GridStr(), Szzls)) = True
  1115.     CxbbGrid.ColHidden(Sydz("021", GridStr(), Szzls)) = True
  1116.     CxbbGrid.ColHidden(Sydz("025", GridStr(), Szzls)) = True
  1117.     CxbbGrid.ColHidden(Sydz("026", GridStr(), Szzls)) = True
  1118.     
  1119.     If CL_BillChalkitupCond.Opt_Wjz Then
  1120.         SqlStr = "SELECT a.Whcode, WhName, MNumber, MName, Model, PrimaryUnitName," & _
  1121.                 " SUM(FactReceiptQuan) AS SumInQuan, SUM(PlanMoney) AS SumPlanMoney, " & _
  1122.                 " SUM(EMoney) AS SumEMoney,SUM(FactIssueQuan) AS SumOutQuan, " & _
  1123.                 " SUM(IssueMoney) AS SumOutMoney FROM Chhs_V_InOut a " & Trim(Str_QueryCondi) & _
  1124.                 " and a.chhschecker<>'' GROUP BY a.WhName, a.MNumber, " & _
  1125.                 " a.MName, a.Model, a.PrimaryUnitName, a.WhCode ORDER BY  a.WhCode, a.MNumber "
  1126.     Else
  1127.         CxbbGrid.ColHidden(Sydz("015", GridStr(), Szzls)) = True
  1128.         CxbbGrid.ColHidden(Sydz("016", GridStr(), Szzls)) = True
  1129.         SqlStr = "SELECT a.Whcode, WhName, MNumber, MName, Model, PrimaryUnitName," & _
  1130.                 " SUM(InQuan) AS SumInQuan, 1 AS SumPlanMoney, " & _
  1131.                 " SUM(InMoney) AS SumEMoney,SUM(OutQuan) AS SumOutQuan, " & _
  1132.                 " SUM(OutMoney) AS SumOutMoney FROM Chhs_V_List a " & Trim(Str_QueryCondi) & _
  1133.                 " GROUP BY a.WhName, a.MNumber, " & _
  1134.                 " a.MName, a.Model, a.PrimaryUnitName, a.WhCode ORDER BY a.WhCode, a.MNumber"
  1135.     End If
  1136.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1137.     With Rec_Query
  1138.         CxbbGrid.Rows = CxbbGrid.FixedRows
  1139.         Jsqte = CxbbGrid.FixedRows
  1140.         Do While Not .EOF
  1141.             CxbbGrid.AddItem ""
  1142.             '[>>自定义填充内容
  1143.             
  1144.             CxbbGrid.TextMatrix(Jsqte, 1) = Trim(.Fields("WhCode") & "") + Trim(.Fields("Mnumber") & "")                 '仓库+存货
  1145.             CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("WhName") & "")                   '仓库
  1146.             CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = Trim(.Fields("Mnumber") & "")                  '存货编码
  1147.             CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Trim(.Fields("MName") & "")                    '存货名称
  1148.             CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Trim(.Fields("Model") & "")                    '规格型号
  1149.             CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Trim(.Fields("PrimaryUnitName") & "")          '主计量单位
  1150.             If .Fields("SumInQuan") <> 0 Then                                                                            '数量
  1151.                 CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = .Fields("SumInQuan")
  1152.             End If
  1153.             If .Fields("SumInQuan") <> 0 Then                                                                            '计划单价
  1154.                 CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = .Fields("SumPlanMoney") / .Fields("SumInQuan")
  1155.             End If
  1156.             If .Fields("SumPlanMoney") <> 0 Then                                                                       '计划金额
  1157.                 CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = .Fields("SumPlanMoney")
  1158.             End If
  1159.             If .Fields("SumInQuan") <> 0 Then                                                                            '实际金额
  1160.                 CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = .Fields("SumEMoney") / .Fields("SumInQuan")
  1161.             End If
  1162.             If .Fields("SumEmoney") <> 0 Then                                                                          '实际金额
  1163.                 CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = .Fields("SumEMoney")
  1164.             End If
  1165.             If .Fields("SumOutQuan") <> 0 Then                                                                       '计划金额
  1166.                 CxbbGrid.TextMatrix(Jsqte, Sydz("022", GridStr(), Szzls)) = .Fields("SumOutQuan")
  1167.             End If
  1168.             If .Fields("SumOutQuan") <> 0 And .Fields("SumOutMoney") <> 0 Then                                                                            '实际金额
  1169.                 CxbbGrid.TextMatrix(Jsqte, Sydz("023", GridStr(), Szzls)) = .Fields("SumOutMoney") / .Fields("SumOutQuan")
  1170.             End If
  1171.             If .Fields("SumOutMoney") <> 0 Then                                                                          '实际金额
  1172.                 CxbbGrid.TextMatrix(Jsqte, Sydz("024", GridStr(), Szzls)) = .Fields("SumOutMoney")
  1173.             End If
  1174.             '<<]
  1175.             '设置数据行高度(Fixed)
  1176.             CxbbGrid.RowHeight(Jsqte) = Sjhgd
  1177.      
  1178.             '动态集指针加1,同时将计数器加1(Fixed)
  1179.             .MoveNext
  1180.             Jsqte = Jsqte + 1
  1181.         Loop
  1182.     End With
  1183.     
  1184.     '输入合计
  1185.     With CxbbGrid
  1186.         If Not .Rows = .FixedRows Then
  1187.            .SubtotalPosition = flexSTBelow
  1188.            For Jsqte = Qslz To .Cols - 1
  1189.                 If GridBoolean(Jsqte, 4) Then
  1190.                      .Subtotal flexSTSum, 0, Jsqte, , &HF7F3EC, , , , , True
  1191.                      If Val(.TextMatrix(.Rows - 1, Jsqte)) = 0 Then
  1192.                         .TextMatrix(.Rows - 1, Jsqte) = ""
  1193.                      End If
  1194.                 End If
  1195.            Next
  1196.            .RowHeight(.Rows - 1) = Sjhgd
  1197.            .TextMatrix(.Rows - 1, Sydz("002", GridStr(), Szzls)) = " 合计 "
  1198.         End If
  1199.     End With
  1200.     
  1201.     ']以上为用户自定义部分
  1203. End Sub
  1205. Private Sub CxbbGrid_DblClick()                                              '用户双击网格调入相应单据
  1206.     
  1207.     Dim Rectemp As New ADODB.Recordset               '临时使用动态集
  1209.     If CxbbGrid.Rows = CxbbGrid.FixedRows Then Exit Sub
  1210.     
  1211.     '非数据行退出
  1212.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  1213.         Exit Sub
  1214.     End If
  1215.     
  1216.     If Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, 1)) = "1301" Or Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, 1)) = "1302" Then
  1217.         SqlStr = "SELECT InOutAdjustMainId From Chhs_InOutAdjustMain Where InOutAdjustMainId=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) + 0
  1218.     ElseIf Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, 1)) = "1303" Then
  1219.         SqlStr = "SELECT PlanAdjustMainId From Chhs_PlanAdjustMain Where PlanAdjustMainId=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) + 0
  1220.     Else
  1221.         SqlStr = "SELECT InOutMainId From Gy_InOutMain Where InOutMainId=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) + 0
  1222.     End If
  1223.     Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1224.     With Rectemp
  1225.         If .EOF Then
  1226.             Tsxx = "此单据已被其他用户删除!"
  1227.             Call Xtxxts(Tsxx, 0, 4)
  1228.             Exit Sub
  1229.         Else
  1230.             
  1231.              '填充查询单据标识
  1232.             XT_BillID = CxbbGrid.TextMatrix(CxbbGrid.Row, 0)
  1233.             Xtcdcsfz = Str_QueryCondi
  1234.             
  1235.             '设置单据处理为列表查询(修改)状态
  1236.             Xtcdcs = "3"
  1237.             
  1238.            '调入单据处理窗体
  1239.             Select Case Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, 1))
  1240.                 Case "1202"
  1241.                     DJ_ProdInBill.Show 1
  1242.                 Case "1203"
  1243.                     DJ_OtherInBill.Show 1
  1244.                 Case "1204"
  1245.                     DJ_MateOutBill.Show 1
  1246.                 Case "1205"
  1247.                     DJ_SellOutBill.Show 1
  1248.                 Case "1206"
  1249.                     DJ_OtherOutBill.Show 1
  1250.                 Case "1212"
  1251.                     DJ_MateInBill.Show 1
  1252.                 Case "1301"
  1253.                     DJ_AdjustInbill.Show 1
  1254.                 Case "1302"
  1255.                     DJ_AdjustOutBill.Show 1
  1256.                 Case "1303"
  1257.                     Xtcdcs = "0"
  1258.                     Xtcdcsfz = XT_BillID
  1259.                     DJ_AdjustPlan.Show 1
  1260.             End Select
  1261.         End If
  1262.     End With
  1264. End Sub
  1267. Private Sub Sub_Mx()                                             '明细
  1268.     
  1269.     '生成查询结果
  1270.     If CL_BillChalkitupCond.Opt_Wjz Then         '未记帐
  1271.         Call Sub_Query(0)
  1272.     Else
  1273.         Call Sub_QueryJz(0)
  1274.     End If
  1275.      '调整工具条
  1276.     With SzToolbar
  1277.         If CxbbGrid.Rows = CxbbGrid.FixedRows Then
  1278.             .Buttons("Bill").Enabled = False
  1279.             .Buttons("mx").Enabled = False
  1280.             .Buttons("hz").Enabled = False
  1281.             .Buttons("jz").Enabled = False
  1282.             .Buttons("hf").Enabled = False
  1283.         Else
  1284.             .Buttons("cx").Enabled = True
  1285.             .Buttons("Bill").Enabled = True
  1286.             .Buttons("hz").Enabled = True
  1287.             .Buttons("mx").Enabled = False
  1288.             If CL_BillChalkitupCond.Opt_Wjz Then
  1289.                 .Buttons("jz").Enabled = True
  1290.                 .Buttons("hf").Enabled = False
  1291.             Else
  1292.                 .Buttons("jz").Enabled = False
  1293.                 .Buttons("hf").Enabled = True
  1294.             End If
  1295.        End If
  1296.         If CL_BillChalkitupCond.Opt_Wjz Then
  1297.             Lbl_Color.Visible = True
  1298.             Label2.Visible = True
  1299.         Else
  1300.             Lbl_Color.Visible = False
  1301.             Label2.Visible = False
  1302.         End If
  1303.     End With
  1304.    
  1305.    If GsToolbar.Enabled = False Then
  1306.         
  1307.         '显示汇总后隐藏的网格列
  1308.         For Jsqte = Qslz To CxbbGrid.Cols - 1
  1309.             CxbbGrid.ColHidden(Jsqte) = GridColHide(Jsqte)
  1310.         Next
  1311.     End If
  1312.     
  1313.     GsToolbar.Enabled = True
  1314.     
  1315. End Sub
  1317. Private Sub Sub_Hz()                                            '汇总
  1318.     
  1319.     If CxbbGrid.Rows = CxbbGrid.FixedRows Then Exit Sub
  1320.     
  1321.        '生成查询结果
  1322.     Call Sub_QueryHz(0)
  1323.     
  1324.     With SzToolbar
  1325.         .Buttons("cx").Enabled = False
  1326.         .Buttons("Bill").Enabled = False
  1327.         .Buttons("jz").Enabled = False
  1328.         .Buttons("hf").Enabled = False
  1329.         .Buttons("hz").Enabled = False
  1330.         .Buttons("mx").Enabled = True
  1331.     End With
  1332.     
  1333.     GsToolbar.Enabled = False
  1334.       
  1335. End Sub
  1337. Private Sub Sub_Chalkitup()               '单据记帐
  1338. Dim Rectemp As Recordset
  1339. Dim RectempId As Recordset
  1340. Dim RecTempFz As New ADODB.Recordset
  1341. Dim RecQuery As New ADODB.Recordset
  1342. Dim RectempMx As New ADODB.Recordset
  1343. Dim RecTempZz As New ADODB.Recordset
  1344. Dim MovePrice As Double                 '移动平均单价  （移动平均）
  1345. Dim SumQuan As Double                   '数量合计      （移动平均）
  1346. Dim SumMoney As Double                  '金额合计      （移动平均）
  1347. Dim OutQuan As Double                   '出库数量  （先进先出 后进先出）
  1348. Dim InQuan As Double                    '入库数量  （先进先出 后进先出）
  1349. Dim OutPrice As Double                  '出库单价  （先进先出 后进先出）
  1350. Dim OutMoney As Double                  '出库总金额（先进先出 后进先出）
  1351. Dim mPeriod As Integer                  '当前会计期间
  1353.     If CxbbGrid.Rows = CxbbGrid.FixedRows Then Exit Sub
  1355.     mPeriod = PGNowmon
  1356.     
  1357.     '系统操作日期不在当前会计年度
  1358.     If Not Xtyear = PGKjYear Then
  1359.         Tsxx = "操作日期不在当前会计年度(" + Trim(Str(PGKjYear)) + ")之内,请重新登录!"
  1360.         Call Xtxxts(Tsxx, 0, 1)
  1361.         Exit Sub
  1362.     End If
  1363.     
  1364.     '系统操作日期是否在当前会计期间
  1365.     If Not Xtmm = mPeriod Then
  1366.         Tsxx = "操作日期不在当前会计期间(" + Trim(Str(PGKjYear)) + "." + Trim(Str(mPeriod)) + ")之内,请重新登录!"
  1367.         Call Xtxxts(Tsxx, 0, 1)
  1368.         Exit Sub
  1369.     End If
  1370.    
  1371.     '期初单据未记帐日常单据不能记帐
  1372.     SqlStr = "select chalkitupman from Chhs_StartInputMain a " & _
  1373.             Trim(Str_QueryCondi) & "and chalkitupman='' "
  1374.     Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1375.     If Not Rectemp.EOF Then
  1376.         Tsxx = "期初单据未记帐，日常单据不允许记帐!"
  1377.         Call Xtxxts(Tsxx, 0, 1)
  1378.         Exit Sub
  1379.     End If
  1380.     
  1381.     '操作日期大于等于单据录入的最大日期
  1382.     SqlStr = "select max(billdate) as maxdate from Gy_InoutMain a " & Trim(Str_QueryCondi) & " and kjyear=" & Xtyear & " and period=" & Xtmm & " and chhschecker<>''"
  1383.     Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1384.     If Not Rectemp.EOF Then
  1385.         If Xtrq < Rectemp.Fields("maxdate") Then
  1386.             Tsxx = "操作日期必须>=单据录入日期 " + Format(CStr(Rectemp.Fields("maxdate")), "yyyy-mm-dd")
  1387.             Call Xtxxts(Tsxx, 0, 4)
  1388.             Exit Sub
  1389.         End If
  1390.     End If
  1391.     
  1392.     On Error GoTo Cwcl
  1393.     
  1394.     Tsxx = ""
  1395.     
  1396.     Xt_Wait.Show
  1397.     Xt_Wait.Refresh
  1398.     
  1399.     Cw_DataEnvi.DataConnect.BeginTrans
  1400.     
  1401.     '打开明细帐
  1402.     If RectempMx.State = 1 Then RectempMx.Close
  1403.     RectempMx.Open "select * from Chhs_List where 1=2 ", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockBatchOptimistic
  1404.     
  1405.     SqlStr = "SELECT * FROM Chhs_V_InOut a " & Trim(Str_QueryCondi) & _
  1406.              " and chhschecker<>'' Order By a.BillDate,a.whcode,a.InOutFlag desc,a.InoutMainId,a.InOutSubId"
  1407.     Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1408.     
  1409.     '零成本入库单
  1410.     Set RectempId = Cw_DataEnvi.DataConnect.Execute("select distinct inoutmainid from Chhs_V_InOut a " & Trim(Str_QueryCondi) & " and inoutflag=1 and emoney=0")
  1411.     Do While Not Rectemp.EOF
  1412.                 
  1413.         '入库金额为零不允许记帐
  1414.         If Not RectempId.EOF Then
  1415.             RectempId.MoveFirst
  1416.             RectempId.Find "inoutmainid=" & Rectemp.Fields("inoutmainid")
  1417.             If Not RectempId.EOF Then
  1418.                 GoTo MoveNext
  1419.             Else
  1420.                 RectempId.MoveFirst
  1421.             End If
  1422.         End If
  1423.         
  1424.         '以先进先出和后进先出核算的红字入库单不允许记帐
  1425.         If (Trim(Rectemp.Fields("pricemode")) = "先进先出法" Or Trim(Rectemp.Fields("pricemode")) = "后进先出法") And Rectemp.Fields("factreceiptquan") < 0 Then
  1426.             GoTo MoveNext
  1427.         End If
  1428.         
  1429.         '红字出库单金额为零 不允许记帐
  1430.         If Rectemp.Fields("factissuequan") < 0 And Rectemp.Fields("issuemoney") = 0 Then
  1431.             GoTo MoveNext
  1432.         End If
  1433.         
  1434.         With RectempMx
  1435.             .AddNew
  1436.             .Fields("inoutflag") = Rectemp.Fields("inoutflag")
  1437.             .Fields("opertype") = Trim(Rectemp.Fields("opertype"))
  1438.             If Not IsNull(Trim(Rectemp.Fields("operbillnum"))) Then
  1439.                 .Fields("operbillnum") = Trim(Rectemp.Fields("operbillnum"))
  1440.             End If
  1441.             .Fields("billnum") = Trim(Rectemp.Fields("billnum"))
  1442.             .Fields("inoutmainid") = Trim(Rectemp.Fields("inoutmainid"))
  1443.             .Fields("inoutsubid") = Trim(Rectemp.Fields("inoutsubid"))
  1444.             .Fields("billdate") = Trim(Rectemp.Fields("billdate"))
  1445.             .Fields("chalkdate") = Xtrq
  1446.             .Fields("kjyear") = Xtyear
  1447.             .Fields("period") = mPeriod
  1448.             .Fields("billcode") = Trim(Rectemp.Fields("billcode"))
  1449.             If Not IsNull(Trim(Rectemp.Fields("purtypecode"))) Then
  1450.                 .Fields("purtypecode") = Trim(Rectemp.Fields("purtypecode"))
  1451.             End If
  1452.             .Fields("whcode") = Trim(Rectemp.Fields("whcode"))
  1453.             .Fields("mnumber") = Trim(Rectemp.Fields("mnumber"))
  1454.             .Fields("maker") = Trim(Rectemp.Fields("maker"))
  1455.             .Fields("checker") = Trim(Rectemp.Fields("chhschecker"))
  1456.             .Fields("chalkitupman") = Xtczy
  1457.             .Fields("remark") = Trim(Rectemp.Fields("remark") & "")
  1458.             If Not IsNull(Trim(Rectemp.Fields("receiptnum"))) Then
  1459.                 .Fields("receiptnum") = Trim(Rectemp.Fields("receiptnum"))
  1460.             End If
  1461.             If Not IsNull(Trim(Rectemp.Fields("costobjectcode"))) Then
  1462.                 .Fields("CostObjectCode") = Trim(Rectemp.Fields("costobjectcode"))
  1463.             End If
  1464.             If Not IsNull(Trim(Rectemp.Fields("projectcode"))) Then
  1465.                 .Fields("projectcode") = Trim(Rectemp.Fields("projectcode"))
  1466.             End If
  1467.             If Not IsNull(Trim(Rectemp.Fields("deptcode"))) Then
  1468.                 .Fields("deptcode") = Trim(Rectemp.Fields("deptcode"))
  1469.             End If
  1470.             If Not IsNull(Trim(Rectemp.Fields("suppliercode"))) Then
  1471.                 .Fields("suppliercode") = Trim(Rectemp.Fields("suppliercode"))
  1472.             End If
  1473.             If Not IsNull(Trim(Rectemp.Fields("cuscode"))) Then
  1474.                 .Fields("cuscode") = Trim(Rectemp.Fields("cuscode"))
  1475.             End If
  1476.             If Not IsNull(Trim(Rectemp.Fields("inoutclasscode"))) Then
  1477.                 .Fields("inoutclasscode") = Trim(Rectemp.Fields("inoutclasscode"))
  1478.             End If
  1479.             If Not IsNull(Trim(Rectemp.Fields("personcode"))) Then
  1480.                 .Fields("personcode") = Trim(Rectemp.Fields("personcode"))
  1481.             End If
  1482.             
  1483.             '存货科目
  1484.             Xtfhcs = ""
  1485.             Xtfhcsfz = ""
  1486.             Call MaccCode(Trim(Rectemp.Fields("whcode")), Trim(Rectemp.Fields("mnumber")), Trim(Rectemp.Fields("invsortcode")))
  1487.             .Fields("mateacct") = Xtfhcs
  1488.             If Qmclcy And Rectemp.Fields("inoutflag") And Trim(Rectemp.Fields("pricemode")) = "计划价法" Then
  1489.                 .Fields("diffacct") = Xtfhcsfz
  1490.             End If
  1491.             
  1492.             '对方科目
  1493.             Xtfhcs = ""
  1494.             Call DfaccCode(Trim(Rectemp.Fields("inoutclasscode") & ""), Trim(Rectemp.Fields("deptcode") & ""), Trim(Rectemp.Fields("invsortcode")), Trim(Rectemp.Fields("mnumber")))
  1495.             .Fields("dfacct") = Xtfhcs
  1496.             
  1497.              '入库单
  1498.             If Rectemp.Fields("inoutflag") Then
  1499.                 .Fields("inquan") = Rectemp.Fields("factreceiptquan")
  1500.                 Select Case Trim(Rectemp.Fields("pricemode"))
  1501.                     Case "计划价法"
  1502.                         If Qmclcy Then
  1503.                             .Fields("inprice") = Rectemp.Fields("planprice")
  1504.                             .Fields("inmoney") = Rectemp.Fields("planmoney")
  1505.                             If Rectemp.Fields("emoney") - Rectemp.Fields("planmoney") > 0 Then
  1506.                                 .Fields("jfdiff") = Rectemp.Fields("emoney") - Rectemp.Fields("planmoney")
  1507.                             Else
  1508.                                 .Fields("dfdiff") = Rectemp.Fields("planmoney") - Rectemp.Fields("emoney")
  1509.                             End If
  1510.                         Else
  1511.                             .Fields("inprice") = Rectemp.Fields("price")
  1512.                             .Fields("inmoney") = Rectemp.Fields("emoney")
  1513.                         End If
  1514.                         .UpdateBatch
  1516.                     Case "全月平均法"
  1517.                         .Fields("inprice") = Rectemp.Fields("price")
  1518.                         .Fields("inmoney") = Rectemp.Fields("emoney")
  1519.                         .UpdateBatch
  1520.                         
  1521.                     Case "移动平均法"
  1522.                         .Fields("inprice") = Rectemp.Fields("price")
  1523.                         .Fields("inmoney") = Rectemp.Fields("emoney")
  1524.                         .UpdateBatch
  1525.                         
  1526.                     Case "先进先出法", "后进先出法"
  1527.                         .Fields("inprice") = Rectemp.Fields("price")
  1528.                         .Fields("inmoney") = Rectemp.Fields("emoney")
  1529.                         .UpdateBatch
  1530.                         
  1531.                         '入辅助帐
  1532.                         If RecTempFz.State = 1 Then RecTempFz.Close
  1533.                         RecTempFz.Open "select * from Chhs_AssiPrice ", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockBatchOptimistic
  1534.                         RecTempFz.AddNew
  1535.                         RecTempFz.Fields("inbillnum") = Trim(Rectemp.Fields("billnum"))
  1536.                         RecTempFz.Fields("whcode") = Trim(Rectemp.Fields("whcode"))
  1537.                         RecTempFz.Fields("mnumber") = Trim(Rectemp.Fields("mnumber"))
  1538.                         RecTempFz.Fields("inoutmaininid") = Rectemp.Fields("inoutmainid")
  1539.                         RecTempFz.Fields("inoutsubinid") = Rectemp.Fields("inoutsubid")
  1540.                         RecTempFz.Fields("indate") = Rectemp.Fields("billdate")
  1541.                         RecTempFz.Fields("inbillcode") = Trim(Rectemp.Fields("billcode"))
  1542.                         RecTempFz.Fields("inquan") = Rectemp.Fields("factreceiptquan")
  1543.                         RecTempFz.Fields("inprice") = Rectemp.Fields("price")
  1544.                         RecTempFz.Fields("inmoney") = Rectemp.Fields("emoney")
  1545.                         RecTempFz.Fields("listid") = .Fields("listid")
  1546.                         RecTempFz.Fields("inchalkdate") = Xtrq
  1547.                         RecTempFz.UpdateBatch
  1548.                 End Select
  1549.             Else
  1550.                 '出库单
  1551.                 .Fields("outquan") = Rectemp.Fields("factissuequan")
  1552.                 Select Case Trim(Rectemp.Fields("pricemode"))
  1553.                     Case "计划价法"
  1554.                         .Fields("outprice") = Rectemp.Fields("planprice")
  1555.                         .Fields("outmoney") = Rectemp.Fields("planmoney")
  1556.                     Case "全月平均法"
  1557.                         If Rectemp.Fields("issuemoney") <> 0 And SFjezt Then
  1558.                             .Fields("sfjeztflag") = 1
  1559.                             .Fields("outprice") = Rectemp.Fields("price")
  1560.                             .Fields("outmoney") = Rectemp.Fields("issuemoney")
  1561.                         Else
  1562.                             .Fields("outprice") = 0
  1563.                             .Fields("outmoney") = 0
  1564.                         End If
  1565.                    Case "移动平均法"
  1566.                         
  1567.                         If Rectemp.Fields("issuemoney") <> 0 And SFjezt Then
  1568.                             .Fields("sfjeztflag") = 1
  1569.                             .Fields("outprice") = Rectemp.Fields("price")
  1570.                             .Fields("outmoney") = Rectemp.Fields("issuemoney")
  1571.                         Else
  1572.                             '入库金额汇总
  1573.                             SumQuan = 0
  1574.                             SumMoney = 0
  1575.                             SqlStr = "SELECT StartQuan,StartMoney from Chhs_Mate a where kjyear=" & Xtyear & _
  1576.                                     " and period=" & mPeriod & _
  1577.                                     " and a.whcode='" & Trim(Rectemp.Fields("whcode")) & "'" & _
  1578.                                     " and a.mnumber='" & Trim(Rectemp.Fields("mnumber")) & "' "
  1579.                             Set RecTempFz = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1580.                             If Not RecTempFz.EOF Then
  1581.                                 SumQuan = RecTempFz.Fields("StartQuan")
  1582.                                 SumMoney = RecTempFz.Fields("StartMoney")
  1583.                             End If
  1584.                             SqlStr = "SELECT SUM(InQuan)-SUM(OutQuan) AS SumQuan,SUM(InMoney)- SUM(OutMoney) AS SumMoney  " & _
  1585.                                     " FROM Chhs_List a where a.startflag=0 and kjyear=" & Xtyear & _
  1586.                                     " and period=" & mPeriod & " and inoutmainid<>" & Rectemp.Fields("inoutmainid") & _
  1587.                                     " and a.whcode='" & Trim(Rectemp.Fields("whcode")) & "'" & _
  1588.                                     " and a.mnumber='" & Trim(Rectemp.Fields("mnumber")) & "' "
  1589.                             Set RecTempFz = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1590.                             If Not RecTempFz.EOF Then
  1591.                                 If Not IsNull(RecTempFz.Fields("SumQuan")) Then
  1592.                                     SumQuan = SumQuan + RecTempFz.Fields("SumQuan")
  1593.                                 End If
  1594.                                 If Not IsNull(RecTempFz.Fields("SumMoney")) Then
  1595.                                     SumMoney = SumMoney + RecTempFz.Fields("SumMoney")
  1596.                                 End If
  1597.                             End If
  1598.                             
  1599.                             MovePrice = 0
  1600.                             If SumQuan <> 0 Then
  1601.                                 MovePrice = Format(SumMoney / SumQuan, "####0." + String(Xtdjxsws, "0"))
  1602.                             End If
  1603.                                 
  1604.                             '移动平均单价<=0时，手工输入单价
  1605.                             If MovePrice <= 0 Then
  1606.                                 Xtcdcs = Rectemp.Fields("factissuequan")
  1607.                                 Xtcdcsfz = Trim(Rectemp.Fields("mnumber"))
  1608.                                 CL_BillChalkPrice.Show 1
  1609.                                 MovePrice = CDbl(Xtcdcs)
  1610.                                 If MovePrice <= 0 Then
  1611.                                     Tsxx = "移动平均单价<=0,不允许记帐!"
  1612.                                     GoTo Cwcl
  1613.                                 End If
  1614.                             End If
  1615.                             .Fields("outprice") = MovePrice
  1616.                             .Fields("outmoney") = Format(Rectemp.Fields("factissuequan") * MovePrice, "###0." + String(Xtjexsws, "0"))
  1617.                         End If
  1618.                     Case "先进先出法", "后进先出法"
  1619.                         If Rectemp.Fields("issuemoney") <> 0 And SFjezt Then
  1620.                             .Fields("sfjeztflag") = 1
  1621.                             .Fields("outprice") = Rectemp.Fields("price")
  1622.                             .Fields("outmoney") = Rectemp.Fields("issuemoney")
  1623.                         Else
  1624.                             OutQuan = Rectemp.Fields("factissuequan")
  1625.                             OutMoney = 0
  1626.                             
  1627.                             '辅助帐
  1628.                             If Trim(Rectemp.Fields("pricemode")) = "先进先出法" Then
  1629.                                 SqlStr = "select * from chhs_assiprice where whcode='" & Trim(Rectemp.Fields("whcode")) & "'" & _
  1630.                                         " and mnumber='" & Trim(Rectemp.Fields("mnumber")) & "' and flag=0 " & _
  1631.                                         " order by inoutmaininid,inoutsubinid,assipriceid"
  1632.                             Else
  1633.                                 SqlStr = "select * from chhs_assiprice where whcode='" & Trim(Rectemp.Fields("whcode")) & "'" & _
  1634.                                         " and mnumber='" & Trim(Rectemp.Fields("mnumber")) & "' and flag=0 " & _
  1635.                                         " order by inoutmaininid desc,inoutsubinid desc,assipriceid desc"
  1636.                             End If
  1637.                             If RecQuery.State = 1 Then RecQuery.Close
  1638.                             RecQuery.Open SqlStr, Cw_DataEnvi.DataConnect, adOpenDynamic, adLockBatchOptimistic
  1639.                             Do While Not RecQuery.EOF
  1640.                                 If OutQuan = RecQuery.Fields("inquan") Then
  1641.                                 
  1642.                                     '填写入库单对应的出库数量、金额及其它内容
  1643.                                     RecQuery.Fields("outquan") = OutQuan
  1644.                                     RecQuery.Fields("outprice") = RecQuery.Fields("inprice")
  1645.                                     RecQuery.Fields("outmoney") = OutQuan * RecQuery.Fields("inprice")
  1646.                                     OutMoney = OutMoney + RecQuery.Fields("outmoney")
  1647.                                     RecQuery.Fields("outbillnum") = Trim(Rectemp.Fields("billnum"))
  1648.                                     RecQuery.Fields("outdate") = Rectemp.Fields("billdate")
  1649.                                     RecQuery.Fields("inoutmainoutid") = Rectemp.Fields("inoutmainid")
  1650.                                     RecQuery.Fields("inoutsuboutid") = Rectemp.Fields("inoutsubid")
  1651.                                     RecQuery.Fields("outchalkdate") = Xtrq
  1652.                                     RecQuery.Fields("flag") = 1
  1653.                                     RecQuery.UpdateBatch
  1654.                                     Exit Do
  1655.                                 ElseIf OutQuan < RecQuery.Fields("inquan") Then
  1656.                                     
  1657.                                     '保留入库数量
  1658.                                     InQuan = RecQuery.Fields("inquan")
  1659.                                     
  1660.                                     '修改入库数量、金额与出库数量、金额相同 ，填写入库单对应的出库数量、金额及其它内容
  1661.                                     RecQuery.Fields("inquan") = OutQuan
  1662.                                     RecQuery.Fields("inmoney") = OutQuan * RecQuery.Fields("inprice")
  1663.                                     RecQuery.Fields("outquan") = OutQuan
  1664.                                     RecQuery.Fields("outprice") = RecQuery.Fields("inprice")
  1665.                                     RecQuery.Fields("outmoney") = OutQuan * RecQuery.Fields("inprice")
  1666.                                     OutMoney = OutMoney + RecQuery.Fields("outmoney")
  1667.                                     RecQuery.Fields("outbillnum") = Trim(Rectemp.Fields("billnum"))
  1668.                                     RecQuery.Fields("outdate") = Rectemp.Fields("billdate")
  1669.                                     RecQuery.Fields("inoutmainoutid") = Rectemp.Fields("inoutmainid")
  1670.                                     RecQuery.Fields("inoutsuboutid") = Rectemp.Fields("inoutsubid")
  1671.                                     RecQuery.Fields("outchalkdate") = Xtrq
  1672.                                     RecQuery.Fields("flag") = 1
  1673.                                     RecQuery.UpdateBatch
  1674.                                     
  1675.                                     '保留入库单的剩余数量
  1676.                                     If RecTempFz.State = 1 Then RecTempFz.Close
  1677.                                     RecTempFz.Open "select * from Chhs_AssiPrice ", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockBatchOptimistic
  1678.                                     RecTempFz.AddNew
  1679.                                     RecTempFz.Fields("inbillnum") = Trim(RecQuery.Fields("inbillnum"))
  1680.                                     RecTempFz.Fields("whcode") = Trim(RecQuery.Fields("whcode"))
  1681.                                     RecTempFz.Fields("mnumber") = Trim(RecQuery.Fields("mnumber"))
  1682.                                     RecTempFz.Fields("inoutmaininid") = Trim(RecQuery.Fields("inoutmaininid"))
  1683.                                     RecTempFz.Fields("inoutsubinid") = Trim(RecQuery.Fields("inoutsubinid"))
  1684.                                     RecTempFz.Fields("indate") = RecQuery.Fields("indate")
  1685.                                     RecTempFz.Fields("inbillcode") = Trim(RecQuery.Fields("inbillcode"))
  1686.                                     RecTempFz.Fields("inchalkdate") = Trim(RecQuery.Fields("inchalkdate"))
  1687.                                     RecTempFz.Fields("inquan") = InQuan - OutQuan
  1688.                                     RecTempFz.Fields("inprice") = RecQuery.Fields("inprice")
  1689.                                     RecTempFz.Fields("inmoney") = RecQuery.Fields("inquan") * RecQuery.Fields("inprice")
  1690.                                     RecTempFz.Fields("listid") = Trim(RecQuery.Fields("listid"))
  1691.                                     RecTempFz.UpdateBatch
  1692.                                     Exit Do
  1693.                                 Else
  1694.                                     
  1695.                                     '填写入库单对应的出库数量、金额及其它内容
  1696.                                     OutQuan = Rectemp.Fields("factissuequan") - RecQuery.Fields("inquan")
  1697.                                     
  1698.                                     RecQuery.Fields("outquan") = RecQuery.Fields("inquan")
  1699.                                     RecQuery.Fields("outprice") = RecQuery.Fields("inprice")
  1700.                                     RecQuery.Fields("outmoney") = RecQuery.Fields("inquan") * RecQuery.Fields("inprice")
  1701.                                     OutMoney = OutMoney + RecQuery.Fields("outmoney")
  1702.                                     RecQuery.Fields("outbillnum") = Trim(Rectemp.Fields("billnum"))
  1703.                                     RecQuery.Fields("outdate") = Rectemp.Fields("billdate")
  1704.                                     RecQuery.Fields("inoutmainoutid") = Rectemp.Fields("inoutmainid")
  1705.                                     RecQuery.Fields("inoutsuboutid") = Rectemp.Fields("inoutsubid")
  1706.                                     RecQuery.Fields("outchalkdate") = Xtrq
  1707.                                     RecQuery.Fields("flag") = 1
  1708.                                     RecQuery.UpdateBatch
  1709.                                     
  1710.                                 End If
  1711.                                 
  1712.                                 RecQuery.MoveNext
  1713.                             Loop
  1714.                             
  1715.                             OutPrice = OutMoney / Rectemp.Fields("factissuequan")
  1716.                             If OutPrice <= 0 Then
  1717.                                 
  1718.                                 '根据出库方式设置出库成本
  1719.                                 OutPrice = mOutPrice(Trim(Rectemp.Fields("whcode")), Trim(Rectemp.Fields("mnumber")), Trim(Rectemp.Fields("mname")), Rectemp.Fields("factissuequan"))
  1720.                                 If OutPrice = 0 Then
  1721.                                     Tsxx = Trim(Rectemp.Fields("mname")) + "(" + Trim(Rectemp.Fields("mnumber")) + ")" + "的出库单价<=0,不允许记帐!"
  1722.                                     GoTo Cwcl
  1723.                                 End If
  1724.                                 
  1725.                             End If
  1726.                             
  1727.                             .Fields("outprice") = OutPrice
  1728.                             If OutMoney = 0 Then
  1729.                                 .Fields("outmoney") = .Fields("outquan") * OutPrice
  1730.                             Else
  1731.                                 .Fields("outmoney") = OutMoney
  1732.                             End If
  1733.                         End If
  1734.                 End Select
  1735.                 .UpdateBatch
  1736.                 
  1737.                 '回填出库金额、单价
  1738.                 Cw_DataEnvi.DataConnect.Execute ("update Gy_inoutsub  " & _
  1739.                             " set price =" & .Fields("outprice") & "," & _
  1740.                             " issuemoney =" & .Fields("outmoney") & _
  1741.                             " where inoutmainid='" & Rectemp.Fields("inoutmainid") & "'" & _
  1742.                             " and inoutsubid='" & Rectemp.Fields("inoutsubid") & "'")
  1743.                
  1744.             End If
  1745.         End With
  1746.     
  1747.         '修改单据中的记帐人
  1748.         Cw_DataEnvi.DataConnect.Execute ("update Gy_inoutmain set chalkitupman ='" & Xtczy & "'" & _
  1749.                     " where inoutmainid='" & Rectemp.Fields("inoutmainid") & "'")
  1751. MoveNext:         Rectemp.MoveNext
  1752.     Loop
  1753.     
  1754.     '调整总帐
  1755.     
  1756.     '单据汇总
  1757.     SqlStr = "SELECT WhCode, MNumber,SUM(InQuan) AS SumInQuan,SUM(InMoney) AS SumInMoney, " & _
  1758.             " SUM(JfDiff) AS SumJfDiff, SUM(DfDiff) AS SumDfDiff, SUM(OutQuan) AS SumOutQuan, " & _
  1759.             " SUM(OutMoney) AS SumOutMoney From Chhs_List a " & _
  1760.             " Where KjYear = " & Xtyear & " And Period = " & mPeriod & _
  1761.             " and a.startflag=0 and " & CL_BillChalkitupCond.WhCode & _
  1762.             " GROUP BY WhCode, MNumber ORDER BY WhCode, MNumber "
  1763.     
  1764.     Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1765.     Do While Not Rectemp.EOF
  1766.                     
  1767.         '打开总帐
  1768.         If RecTempZz.State = 1 Then RecTempZz.Close
  1769.         SqlStr = "select * from chhs_mate where whcode='" & Trim(Rectemp.Fields("whcode")) & "' " & _
  1770.                 " and mnumber='" & Trim(Rectemp.Fields("mnumber")) & "' " & _
  1771.                 " and KjYear = " & Xtyear & " And Period = " & mPeriod
  1772.         RecTempZz.Open SqlStr, Cw_DataEnvi.DataConnect, adOpenDynamic, adLockBatchOptimistic
  1773.         With RecTempZz
  1774.             If Not .EOF Then       '修改已存在的仓库+存货
  1775.                 .Fields("inquan") = Rectemp.Fields("suminquan")
  1776.                 .Fields("inmoney") = Rectemp.Fields("suminmoney")
  1777.                 If .Fields("inquan") <> 0 Then
  1778.                     .Fields("inprice") = .Fields("inmoney") / .Fields("inquan")
  1779.                 End If
  1780.                 .Fields("outquan") = Rectemp.Fields("sumoutquan")
  1781.                 .Fields("outmoney") = Rectemp.Fields("sumoutmoney")
  1782.                 If .Fields("outquan") <> 0 Then
  1783.                     .Fields("outprice") = .Fields("outmoney") / .Fields("outquan")
  1784.                 End If
  1785.                 .Fields("jfdiff") = Rectemp.Fields("sumjfdiff")
  1786.                 .Fields("dfdiff") = Rectemp.Fields("sumdfdiff")
  1787.             Else                    '新增仓库+存货
  1788.                 .AddNew
  1789.                 .Fields("whcode") = Trim(Rectemp.Fields("whcode"))
  1790.                 .Fields("mnumber") = Trim(Rectemp.Fields("mnumber"))
  1791.                 .Fields("kjyear") = Xtyear
  1792.                 .Fields("period") = mPeriod
  1793.                 .Fields("inquan") = Rectemp.Fields("suminquan")
  1794.                 .Fields("inmoney") = Rectemp.Fields("suminmoney")
  1795.                 If .Fields("inquan") <> 0 Then
  1796.                     .Fields("inprice") = .Fields("inmoney") / .Fields("inquan")
  1797.                 End If
  1798.                 .Fields("outquan") = Rectemp.Fields("sumoutquan")
  1799.                 .Fields("outmoney") = Rectemp.Fields("sumoutmoney")
  1800.                 If .Fields("outquan") <> 0 Then
  1801.                     .Fields("outprice") = .Fields("outmoney") / .Fields("outquan")
  1802.                 End If
  1803.                 .Fields("jfdiff") = Rectemp.Fields("sumjfdiff")
  1804.                 .Fields("dfdiff") = Rectemp.Fields("sumdfdiff")
  1805.             End If
  1806.             .UpdateBatch
  1807.         End With
  1808.         Rectemp.MoveNext
  1809.     Loop
  1810.     
  1811.     Cw_DataEnvi.DataConnect.CommitTrans
  1812.     
  1813.     Call Sub_Query(1)
  1814.     
  1815.     Xt_Wait.Hide
  1816.     Tsxx = "记帐成功!"
  1817.     Call Xtxxts(Tsxx, 0, 4)
  1818.     Exit Sub
  1820. Cwcl:
  1821.     Xt_Wait.Hide
  1822.     Cw_DataEnvi.DataConnect.RollbackTrans
  1823.     If Tsxx = "" Then Tsxx = "记帐过程中出现未知错误,程序自动恢复记帐前状态！"
  1824.     Call Xtxxts(Tsxx, 0, 1)
  1825.     Exit Sub
  1826.     
  1827. End Sub
  1829. Private Sub Sub_CancelChalkitup()               '恢复记帐
  1830. Dim Rectemp As Recordset
  1831. Dim RecQuery As New ADODB.Recordset
  1832. Dim RecTempFz As New ADODB.Recordset
  1833. Dim RectempMx As New ADODB.Recordset
  1834. Dim RecTempZz As New ADODB.Recordset
  1835. Dim Str_Query As String
  1836. Dim SqlStr As String
  1837. Dim AssiId As Integer                         '辅助表ID
  1838. Dim DiffE As Double
  1839. Dim mPeriod As Integer                       '当前会计期间
  1841.     If CxbbGrid.Rows = CxbbGrid.FixedRows Then Exit Sub
  1843.     mPeriod = PGNowmon
  1845.     '系统操作日期不在当前会计年度
  1846.     If Not Xtyear = PGKjYear Then
  1847.         Tsxx = "系统操作日期不在当前会计年度,请重新注册!"
  1848.         Call Xtxxts(Tsxx, 0, 1)
  1849.         Exit Sub
  1850.     End If
  1851.     
  1852.     '系统操作日期是否在当前会计期间
  1853.     If Not Xtmm = mPeriod Then
  1854.         Tsxx = "系统操作日期不在当前会计期间,请重新注册!"
  1855.         Call Xtxxts(Tsxx, 0, 1)
  1856.         Exit Sub
  1857.     End If
  1858.     
  1859.     SqlStr = "SELECT distinct Vouchid FROM Chhs_V_List a " & _
  1860.              Trim(Str_QueryCondi) & " and Vouchid<>0 "
  1861.     Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1862.     If Not Rectemp.EOF Then
  1863.         Tsxx = "记帐单据已生成凭证,不允许恢复记帐!"
  1864.         Call Xtxxts(Tsxx, 0, 1)
  1865.         Exit Sub
  1866.     End If
  1867.     
  1868.     On Error GoTo Cwcl
  1869.     
  1870.     Xt_Wait.Show
  1871.     Xt_Wait.Refresh
  1872.     
  1873.     Cw_DataEnvi.DataConnect.BeginTrans
  1874.         
  1875.     '删除明细帐内容
  1876.     SqlStr = "SELECT * FROM Chhs_list a " & Trim(Str_QueryCondi) & _
  1877.             " and a.startflag=0 and a.billcode<>'1305' order by listid desc "
  1878.     Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1879.     Do While Not Rectemp.EOF
  1881.         If Rectemp.Fields("inoutflag") Or Rectemp.Fields("sfjeztflag") Then
  1882.         
  1883.             If Rectemp.Fields("InOutAdjustMainId") <> 0 And Trim(Rectemp.Fields("billcode")) <> "1303" Then
  1884.                 
  1885.                 '删除调整单据内容
  1886.                 SqlStr = "Select * from chhs_inoutAdjustsub where InOutAdjustMainId=" & Rectemp.Fields("InOutAdjustMainId") & " and adjustmainid<>0 "
  1887.                 Set RecTempFz = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1888.                 Do While Not RecTempFz.EOF
  1889.                     DiffE = 0
  1890.                     SqlStr = "SELECT * FROM Chhs_list a " & Trim(Str_QueryCondi) & _
  1891.                                 " and inoutmainid=" & RecTempFz.Fields("adjustmainid") & _
  1892.                                 " and inoutsubid=" & RecTempFz.Fields("adjustsubid")
  1893.                     Set RectempMx = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1894.                     If RectempMx.EOF Then
  1895.                         '调整对应的收发记录表
  1896.                         If RecQuery.State = 1 Then RecQuery.Close
  1897.                         SqlStr = "select factreceiptquan,price, emoney,planmoney from Gy_Inoutsub where inoutmainid=" & RecTempFz.Fields("adjustmainid") & " and inoutsubid=" & RecTempFz.Fields("adjustsubid")
  1898.                         RecQuery.Open SqlStr, Cw_DataEnvi.DataConnect, adOpenDynamic, adLockBatchOptimistic
  1899.                         If Not RecQuery.EOF Then
  1900.                             RecQuery.Fields("emoney") = RecQuery.Fields("emoney") - RecTempFz.Fields("emoney")
  1901.                             RecQuery.Fields("price") = RecQuery.Fields("emoney") / RecQuery.Fields("factreceiptquan")
  1902.                             DiffE = RecQuery.Fields("emoney") - RecQuery.Fields("planmoney")
  1903.                             RecQuery.UpdateBatch
  1904.                         End If
  1905.                         
  1906.                         '调整对应的明细帐
  1907.                         If RecQuery.State = 1 Then RecQuery.Close
  1908.                         SqlStr = "select inquan,inprice,inmoney,jfdiff,dfdiff from chhs_list where inoutmainid=" & RecTempFz.Fields("adjustmainid") & " and inoutsubid=" & RecTempFz.Fields("adjustsubid")
  1909.                         RecQuery.Open SqlStr, Cw_DataEnvi.DataConnect, adOpenDynamic, adLockBatchOptimistic
  1910.                         If Not RecQuery.EOF Then
  1911.                             If Qmclcy Then
  1912.                                 If DiffE > 0 Then
  1913.                                     RecQuery.Fields("jfdiff") = DiffE
  1914.                                     RecQuery.Fields("dfdiff") = 0
  1915.                                 Else
  1916.                                     RecQuery.Fields("jfdiff") = 0
  1917.                                     RecQuery.Fields("dfdiff") = Abs(DiffE)
  1918.                                 End If
  1919.                             Else
  1920.                                 RecQuery.Fields("inmoney") = RecQuery.Fields("inmoney") - RecTempFz.Fields("emoney")
  1921.                                 RecQuery.Fields("inprice") = RecQuery.Fields("inmoney") / RecQuery.Fields("inquan")
  1922.                             End If
  1923.                             RecQuery.UpdateBatch
  1924.                         End If
  1925.                     End If
  1926.                     RecTempFz.MoveNext
  1927.                 Loop
  1928.                 
  1929.                 '删除入库调整单子表内容
  1930.                 Cw_DataEnvi.DataConnect.Execute ("delete chhs_inoutadjustsub where InOutAdjustMainId=" & Rectemp.Fields("InOutAdjustMainId") & " and InOutAdjustSubId=" & Rectemp.Fields("InOutAdjustSubId"))
  1931.                 
  1932.                 '删除入库调整单主表内容
  1933.                 Cw_DataEnvi.DataConnect.Execute ("delete chhs_inoutadjustmain where InOutAdjustMainId=" & Rectemp.Fields("InOutAdjustMainId"))
  1934.             ElseIf Rectemp.Fields("InOutAdjustMainId") <> 0 And Trim(Rectemp.Fields("billcode")) = "1303" Then
  1935.                 
  1936.                 Set RecTempFz = Cw_DataEnvi.DataConnect.Execute("select * from Chhs_PlanAdjustMain where planadjustmainid=" & Rectemp.Fields("InOutAdjustMainId"))
  1937.                 If Not RecTempFz.EOF Then
  1938.                     
  1939.                     '恢复收发记录表中未记帐存货的的计划单价
  1940.                     SqlStr = "SELECT Gy_InOutMain.InoutFlag,Gy_InOutMain.InOutMainId, Gy_InOutSub.InOutSubId," & _
  1941.                         "Gy_InOutSub.FactReceiptQuan,Gy_InOutSub.FactIssueQuan, Gy_InOutSub.PlanPrice, " & _
  1942.                         "Gy_InOutSub.PlanMoney,Gy_InOutMain.ChalkitupMan , Gy_InOutMain.KjYear,  " & _
  1943.                         "Gy_InOutMain.Period FROM Gy_InOutMain INNER JOIN Gy_InOutSub ON " & _
  1944.                         "Gy_InOutMain.InOutMainId = Gy_InOutSub.InOutMainId LEFT OUTER JOIN " & _
  1945.                         "Gy_Warehouse ON Gy_InOutMain.WhCode = Gy_Warehouse.WhCode " & _
  1946.                         "WHERE (Gy_Warehouse.PriceMode = '计划价法') " & _
  1947.                         "AND Gy_InOutMain.BillCode<>'1211' AND kjYear=" & Xtyear & " and Period>=" & mPeriod & _
  1948.                         "AND Gy_InOutSub.MNumber = '" & Trim(Rectemp.Fields("mnumber")) & "'"
  1949.                     Set RecQuery = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1950.                     Do While Not RecQuery.EOF
  1951.                         If RecQuery.Fields("InoutFlag") Then
  1952.                             SqlStr = "Update Gy_InOutSub set PlanPrice=" & RecTempFz.Fields("AdjustBeforePrice") & ",PlanMoney=" & Val(RecQuery.Fields("FactReceiptQuan")) * RecTempFz.Fields("AdjustBeforePrice") & " where InOutMainId=" & RecQuery.Fields("InOutMainId") & " and InOutSubId=" & RecQuery.Fields("InOutSubId")
  1953.                         Else
  1954.                             SqlStr = "Update Gy_InOutSub set PlanPrice=" & RecTempFz.Fields("AdjustBeforePrice") & ",PlanMoney=" & Val(RecQuery.Fields("FactIssueQuan")) * RecTempFz.Fields("AdjustBeforePrice") & " where InOutMainId=" & RecQuery.Fields("InOutMainId") & " and InOutSubId=" & RecQuery.Fields("InOutSubId")
  1955.                         End If
  1956.                         Cw_DataEnvi.DataConnect.Execute (SqlStr)
  1957.                         RecQuery.MoveNext
  1958.                     Loop
  1959.                 End If
  1960.                 
  1961.                 '恢复存货档案中的计划单价
  1962.                 Cw_DataEnvi.DataConnect.Execute ("update Gy_Material set planprice=" & RecTempFz.Fields("AdjustBeforePrice") & " where Mnumber='" & Rectemp.Fields("Mnumber") & "'")
  1963.                 
  1964.                 '删除计划价调整单子表内容
  1965.                 Cw_DataEnvi.DataConnect.Execute ("delete chhs_Planadjustsub where planAdjustMainId=" & Rectemp.Fields("InOutAdjustMainId") & " and PlanAdjustSubId=" & Rectemp.Fields("InOutAdjustSubId"))
  1966.                 
  1967.                 '删除计划价调整单主表内容
  1968.                 Set RecTempFz = Cw_DataEnvi.DataConnect.Execute("select * from Chhs_PlanAdjustSub where planadjustmainid=" & Rectemp.Fields("InOutAdjustMainId"))
  1969.                 If RecTempFz.EOF Then
  1970.                     Cw_DataEnvi.DataConnect.Execute ("delete chhs_planadjustmain where planAdjustMainId=" & Rectemp.Fields("InOutAdjustMainId"))
  1971.                 End If
  1972.                 
  1973.             Else
  1974.                 '修改单据的记帐人
  1975.                 Cw_DataEnvi.DataConnect.Execute ("update Gy_InoutMain set chalkitupman='' where inoutmainid='" & Trim(Rectemp.Fields("inoutmainid")) & "'")
  1976.                  
  1977.                 '删除辅助帐内容
  1978.                 Cw_DataEnvi.DataConnect.Execute ("delete chhs_assiprice where listid=" & Rectemp.Fields("listid"))
  1979.             End If
  1980.         Else
  1981.             
  1982.             If Rectemp.Fields("InOutAdjustMainId") <> 0 And Trim(Rectemp.Fields("billcode")) <> "1303" Then
  1983.                 
  1984.                 '删除出库调整单子表内容
  1985.                 Cw_DataEnvi.DataConnect.Execute ("delete chhs_inoutadjustsub where InOutAdjustMainId=" & Rectemp.Fields("InOutAdjustMainId") & " and InOutAdjustSubId=" & Rectemp.Fields("InOutAdjustSubId"))
  1986.                 
  1987.                 '删除出库调整单主表内容
  1988.                 Cw_DataEnvi.DataConnect.Execute ("delete chhs_inoutadjustmain where InOutAdjustMainId=" & Rectemp.Fields("InOutAdjustMainId"))
  1989.             ElseIf Rectemp.Fields("InOutAdjustMainId") <> 0 And Trim(Rectemp.Fields("billcode")) = "1303" Then
  1990.                 
  1991.                 Set RecTempFz = Cw_DataEnvi.DataConnect.Execute("select * from Chhs_PlanAdjustMain where planadjustmainid=" & Rectemp.Fields("InOutAdjustMainId"))
  1992.                 If Not RecTempFz.EOF Then
  1993.                     
  1994.                     '恢复收发记录表中未记帐存货的的计划单价
  1995.                     SqlStr = "SELECT Gy_InOutMain.InoutFlag,Gy_InOutMain.InOutMainId, Gy_InOutSub.InOutSubId," & _
  1996.                         "Gy_InOutSub.FactReceiptQuan,Gy_InOutSub.FactIssueQuan, Gy_InOutSub.PlanPrice, " & _
  1997.                         "Gy_InOutSub.PlanMoney,Gy_InOutMain.ChalkitupMan , Gy_InOutMain.KjYear,  " & _
  1998.                         "Gy_InOutMain.Period FROM Gy_InOutMain INNER JOIN Gy_InOutSub ON " & _
  1999.                         "Gy_InOutMain.InOutMainId = Gy_InOutSub.InOutMainId LEFT OUTER JOIN " & _
  2000.                         "Gy_Warehouse ON Gy_InOutMain.WhCode = Gy_Warehouse.WhCode " & _
  2001.                         "WHERE (Gy_Warehouse.PriceMode = '计划价法')  " & _
  2002.                         "AND Gy_InOutMain.BillCode<>'1211' AND kjYear=" & Xtyear & " and Period>=" & mPeriod & _
  2003.                         "AND Gy_InOutSub.MNumber = '" & Trim(Rectemp.Fields("mnumber")) & "'"
  2004.                     Set RecQuery = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  2005.                     Do While Not RecQuery.EOF
  2006.                         If RecQuery.Fields("InoutFlag") Then
  2007.                             SqlStr = "Update Gy_InOutSub set PlanPrice=" & RecTempFz.Fields("AdjustBeforePrice") & ",PlanMoney=" & Val(RecQuery.Fields("FactReceiptQuan")) * RecTempFz.Fields("AdjustBeforePrice") & " where InOutMainId=" & RecQuery.Fields("InOutMainId") & " and InOutSubId=" & RecQuery.Fields("InOutSubId")
  2008.                         Else
  2009.                             SqlStr = "Update Gy_InOutSub set PlanPrice=" & RecTempFz.Fields("AdjustBeforePrice") & ",PlanMoney=" & Val(RecQuery.Fields("FactIssueQuan")) * RecTempFz.Fields("AdjustBeforePrice") & " where InOutMainId=" & RecQuery.Fields("InOutMainId") & " and InOutSubId=" & RecQuery.Fields("InOutSubId")
  2010.                         End If
  2011.                         Cw_DataEnvi.DataConnect.Execute (SqlStr)
  2012.                         RecQuery.MoveNext
  2013.                     Loop
  2014.                 End If
  2015.                 
  2016.                 '恢复存货档案中的计划单价
  2017.                 Cw_DataEnvi.DataConnect.Execute ("update Gy_Material set planprice=" & RecTempFz.Fields("AdjustBeforePrice") & " where Mnumber='" & Trim(Rectemp.Fields("Mnumber")) & "'")
  2018.                 
  2019.                 '删除计划价调整单子表内容
  2020.                 Cw_DataEnvi.DataConnect.Execute ("delete chhs_Planadjustsub where planAdjustMainId=" & Rectemp.Fields("InOutAdjustMainId") & " and PlanAdjustSubId=" & Rectemp.Fields("InOutAdjustSubId"))
  2021.                 
  2022.                 '删除计划价调整单主表内容
  2023.                 Set RecTempFz = Cw_DataEnvi.DataConnect.Execute("select * from Chhs_PlanAdjustSub where planadjustmainid=" & Rectemp.Fields("InOutAdjustMainId"))
  2024.                 If RecTempFz.EOF Then
  2025.                     Cw_DataEnvi.DataConnect.Execute ("delete chhs_planadjustmain where planAdjustMainId=" & Rectemp.Fields("InOutAdjustMainId"))
  2026.                 End If
  2027.             Else
  2028.                 '修改单据的记帐人
  2029.                 Cw_DataEnvi.DataConnect.Execute ("update Gy_InoutMain set chalkitupman='' where inoutmainid='" & Trim(Rectemp.Fields("inoutmainid")) & "'")
  2030.                 
  2031.                 If Rectemp.Fields("outmoney") > 0 Then
  2032.                     '清除出库成本
  2033.                     Cw_DataEnvi.DataConnect.Execute ("update Gy_InoutSub set price=0, issuemoney=0 where inoutmainid='" & Trim(Rectemp.Fields("inoutmainid")) & "' and inoutsubid='" & Trim(Rectemp.Fields("inoutsubid")) & "'")
  2034.                 End If
  2035.                 
  2036.                 '清除辅助帐出库内容
  2037.                 Cw_DataEnvi.DataConnect.Execute ("update chhs_assiprice set outbillnum=null,outdate=null,inoutmainoutid=0,inoutsuboutid=0,outbillcode=null,outchalkdate=null,outquan=0,outprice=0,outmoney=0,flag=0 where inoutmainoutid=" & Rectemp.Fields("inoutmainid") & " and inoutsuboutid='" & Rectemp.Fields("inoutsubid") & "'")
  2038.             End If
  2039.         End If
  2040.         
  2041.         '删除明细帐内容
  2042.         Cw_DataEnvi.DataConnect.Execute ("delete chhs_list where listid=" & Rectemp.Fields("listid"))
  2043.         
  2044.         Rectemp.MoveNext
  2045.     Loop
  2046.     
  2047.     '删除调整单据的入库调整单
  2048.     SqlStr = "SELECT * FROM chhs_inoutadjustmain a " & Trim(Str_QueryCondi) & _
  2049.              " order by inoutadjustmainid  "
  2050.     Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  2051.     Do While Not Rectemp.EOF
  2052.         Cw_DataEnvi.DataConnect.Execute ("delete chhs_inoutadjustsub where inoutadjustmainid=" & Rectemp.Fields("inoutadjustmainid"))
  2053.         Cw_DataEnvi.DataConnect.Execute ("delete chhs_inoutadjustmain where  inoutadjustmainid=" & Rectemp.Fields("inoutadjustmainid"))
  2054.         Rectemp.MoveNext
  2055.     Loop
  2056.     
  2057.     '调整辅助帐（合并拆分的入库单）
  2058.     SqlStr = "SELECT InoutMainInId, InoutSubInId, InBillCode, " & _
  2059.             " SUM(InQuan) AS SumInQuan, SUM(InMoney) AS SumInMoney " & _
  2060.             " From Chhs_AssiPrice a where " & Trim(CL_BillChalkitupCond.WhCode) & _
  2061.             " and flag=0 GROUP BY InoutMainInId, InoutSubInId, InBillCode"
  2062.     Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  2063.     Do While Not Rectemp.EOF
  2064.         If RecTempFz.State = 1 Then RecTempFz.Close
  2065.         RecTempFz.Open "select * from chhs_assiprice where inoutmaininid='" & Trim(Rectemp.Fields("inoutmaininid")) & "' and inoutsubinid='" & Trim(Rectemp.Fields("inoutsubinid")) & "'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockBatchOptimistic
  2066.         If Not Rectemp.Fields("SumInQuan") = RecTempFz.Fields("inquan") Then
  2067.             
  2068.             '合并入库单
  2069.             RecTempFz.MoveFirst
  2070.             AssiId = RecTempFz.Fields("assipriceid")
  2071.             RecTempFz.Fields("inquan") = Rectemp.Fields("SumInQuan")
  2072.             RecTempFz.Fields("inmoney") = Rectemp.Fields("SumInMoney")
  2073.             RecTempFz.UpdateBatch
  2074.             
  2075.             '删除拆分的入库单
  2076.             Cw_DataEnvi.DataConnect.Execute ("delete chhs_assiprice where inoutmaininid=" & Trim(Rectemp.Fields("inoutmaininid")) & " and inoutsubinid=" & Trim(Rectemp.Fields("inoutsubinid")) & " and assipriceid<> " & AssiId)
  2077.             
  2078.         End If
  2079.         Rectemp.MoveNext
  2080.     Loop
  2081.     
  2082.     '删除总帐中无期初数据的仓库
  2083.     Str_Query = Replace(Trim(CL_BillChalkitupCond.WhCode), "a.", "", 1, , vbTextCompare)
  2084.     SqlStr = "delete chhs_mate where " & Str_Query & " and   kjyear =" & Xtyear & " and period =" & mPeriod & " and startquan=0"
  2085.     Cw_DataEnvi.DataConnect.Execute (SqlStr)
  2087.     '重新调整总帐内容
  2088.     SqlStr = "SELECT WhCode, MNumber,SUM(InQuan) AS SumInQuan,SUM(InMoney) AS SumInMoney, " & _
  2089.             " SUM(JfDiff) AS SumJfDiff, SUM(DfDiff) AS SumDfDiff, SUM(OutQuan) AS SumOutQuan, " & _
  2090.             " SUM(OutMoney) AS SumOutMoney From Chhs_List a " & _
  2091.             " Where KjYear = " & Xtyear & " And Period = " & mPeriod & _
  2092.             " and a.startflag=0 and " & CL_BillChalkitupCond.WhCode & _
  2093.             " GROUP BY WhCode, MNumber ORDER BY WhCode, MNumber "            '单据汇总
  2094.     
  2095.     Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  2096.     If Rectemp.EOF Then
  2097.         If RecTempZz.State = 1 Then RecTempZz.Close
  2098.         SqlStr = "select * from chhs_mate a where KjYear = " & Xtyear & " And Period = " & mPeriod & " and " & CL_BillChalkitupCond.WhCode
  2099.         RecTempZz.Open SqlStr, Cw_DataEnvi.DataConnect, adOpenDynamic, adLockBatchOptimistic
  2100.         Do While Not RecTempZz.EOF
  2101.             If RecTempZz.Fields("startquan") <> 0 Then
  2102.                 RecTempZz.Fields("inquan") = 0
  2103.                 RecTempZz.Fields("inprice") = 0
  2104.                 RecTempZz.Fields("inmoney") = 0
  2105.                 RecTempZz.Fields("outquan") = 0
  2106.                 RecTempZz.Fields("outprice") = 0
  2107.                 RecTempZz.Fields("outmoney") = 0
  2108.                 RecTempZz.Fields("jfdiff") = 0
  2109.                 RecTempZz.Fields("dfdiff") = 0
  2110.             Else
  2111.                 RecTempZz.Delete
  2112.             End If
  2113.             RecTempZz.UpdateBatch
  2114.             RecTempZz.MoveNext
  2115.         Loop
  2116.     End If
  2117.     Do While Not Rectemp.EOF
  2118.                     
  2119.         '打开总帐
  2120.         If RecTempZz.State = 1 Then RecTempZz.Close
  2121.         SqlStr = "select * from chhs_mate where whcode='" & Trim(Rectemp.Fields("whcode")) & "' " & _
  2122.                 " and mnumber='" & Trim(Rectemp.Fields("mnumber")) & "' " & _
  2123.                 " and KjYear = " & Xtyear & " And Period = " & mPeriod
  2124.         RecTempZz.Open SqlStr, Cw_DataEnvi.DataConnect, adOpenDynamic, adLockBatchOptimistic
  2125.         With RecTempZz
  2126.             If Not .EOF Then       '修改已存在的仓库+存货
  2127.                 .Fields("inquan") = Rectemp.Fields("suminquan")
  2128.                 .Fields("inmoney") = Rectemp.Fields("suminmoney")
  2129.                 If .Fields("inquan") <> 0 Then
  2130.                     .Fields("inprice") = .Fields("inmoney") / .Fields("inquan")
  2131.                 End If
  2132.                 .Fields("outquan") = Rectemp.Fields("sumoutquan")
  2133.                 .Fields("outmoney") = Rectemp.Fields("sumoutmoney")
  2134.                 If .Fields("outquan") <> 0 Then
  2135.                     .Fields("outprice") = .Fields("outmoney") / .Fields("outquan")
  2136.                 End If
  2137.                 .Fields("jfdiff") = Rectemp.Fields("sumjfdiff")
  2138.                 .Fields("dfdiff") = Rectemp.Fields("sumdfdiff")
  2139.             Else                    '新增仓库+存货
  2140.                 .AddNew
  2141.                 .Fields("whcode") = Trim(Rectemp.Fields("whcode"))
  2142.                 .Fields("mnumber") = Trim(Rectemp.Fields("mnumber"))
  2143.                 .Fields("kjyear") = Xtyear
  2144.                 .Fields("period") = mPeriod
  2145.                 .Fields("inquan") = Rectemp.Fields("suminquan")
  2146.                 .Fields("inmoney") = Rectemp.Fields("suminmoney")
  2147.                 If .Fields("inquan") <> 0 Then
  2148.                     .Fields("inprice") = .Fields("inmoney") / .Fields("inquan")
  2149.                 End If
  2150.                 .Fields("outquan") = Rectemp.Fields("sumoutquan")
  2151.                 .Fields("outmoney") = Rectemp.Fields("sumoutmoney")
  2152.                 If .Fields("outquan") <> 0 Then
  2153.                     .Fields("outprice") = .Fields("outmoney") / .Fields("outquan")
  2154.                 End If
  2155.                 .Fields("jfdiff") = Rectemp.Fields("sumjfdiff")
  2156.                 .Fields("dfdiff") = Rectemp.Fields("sumdfdiff")
  2157.             End If
  2158.             .UpdateBatch
  2159.         End With
  2160.         Rectemp.MoveNext
  2161.     Loop
  2162.    
  2163.     Cw_DataEnvi.DataConnect.CommitTrans
  2164.     
  2165.     Call Sub_QueryJz(1)
  2166.     
  2167.     Xt_Wait.Hide
  2168.     Tsxx = "恢复记帐成功!"
  2169.     Call Xtxxts(Tsxx, 0, 4)
  2170.     Exit Sub
  2171.     
  2172. Cwcl:
  2173.     Xt_Wait.Hide
  2174.     Cw_DataEnvi.DataConnect.RollbackTrans
  2175.     Tsxx = "恢复记帐失败!"
  2176.     Call Xtxxts(Tsxx, 0, 1)
  2177.     Exit Sub
  2178. End Sub
  2181. Private Function mOutPrice(WhCode As String, Mnumber As String, Mname As String, OutQuan As Double) As Double            '零成本出库方式
  2182.                             '仓库              '存货编码        '存货名称           '出库数量
  2183. Dim Rectemp As Recordset
  2184.     
  2185.     OutPrice = 0
  2186.     Select Case LcbckFs
  2187.         Case 1          '上次入库成本
  2188.             Set Rectemp = Cw_DataEnvi.DataConnect.Execute("select * from chhs_list where whcode='" & WhCode & "' and mnumber='" & Mnumber & "' and inoutflag=0 and kjyear=" & Xtyear & " and period=" & mPeriod & " order by listid desc")
  2189.             If Not Rectemp.EOF Then
  2190.                 mOutPrice = Rectemp.Fields("inprice")
  2191.             End If
  2192.         Case 2          '上次出库成本
  2193.             Set Rectemp = Cw_DataEnvi.DataConnect.Execute("select * from chhs_list where whcode='" & WhCode & "' and mnumber='" & Mnumber & "' and inoutflag=0 and kjyear=" & Xtyear & " and  period=" & mPeriod & " order by listid desc")
  2194.             If Not Rectemp.EOF Then
  2195.                 mOutPrice = Rectemp.Fields("outprice")
  2196.             End If
  2197.         Case 3          '参考成本
  2198.             Set Rectemp = Cw_DataEnvi.DataConnect.Execute("select consultcost from gy_material where mnumber='" & Mnumber & "' ")
  2199.             If Not Rectemp.EOF Then
  2200.                 mOutPrice = Rectemp.Fields("consultcost")
  2201.             End If
  2202.         Case 4          '结存成本
  2203.             Set Rectemp = Cw_DataEnvi.DataConnect.Execute("select StartQuan + InQuan - OutQuan AS Quan,  StartMoney + InMoney - OutMoney AS Money from chhs_mate where whcode='" & WhCode & "' and mnumber='" & Mnumber & "' and kjyear=" & Xtyear & " and period=" & mPeriod)
  2204.             If Not Rectemp.EOF Then
  2205.                 If Rectemp.Fields("quan") <> 0 Then
  2206.                     mOutPrice = Rectemp.Fields("money") / Rectemp.Fields("quan")
  2207.                 End If
  2208.             End If
  2209.         Case 5          '手工输入
  2210.             Xtcdcs = OutQuan
  2211.             Xtcdcsfz = Mnumber
  2212.             CL_BillChalkPrice.Show 1
  2213.             
  2214.             mOutPrice = CDbl(Xtcdcs)
  2215.             
  2216.     End Select
  2217.     
  2218. End Function
  2220. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  2221.     
  2222.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  2223.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  2224.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  2225.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  2226.     ReDim Bbxbt(1 To Bbxbtgs)
  2227.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  2228.     If Bbbwhgs <> 0 Then
  2229.         ReDim Bbbwh(1 To Bbbwhgs)
  2230.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  2231.     End If
  2232.     Bbzbt = ReportTitle
  2233.     Bbxbt(1) = Fun_FormatOutPut("月份:" + Lbl_TitleText(0), 30)
  2234.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  2235.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  2236.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  2237.     If Not bbylte Then
  2238.         Unload DY_Tybbyldy
  2239.     End If
  2241. End Sub