public.bas

金算盘软件代码

Attribute VB_Name = "Public"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
'  全局模块
'  作者：黄涛
'  日期：1998.02.21
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit

Public Enum VersionType
   vtStandard = 1     '标准版
   vtAdmin = 2        '行政事业版
   vtStar = 4         '实达专用版
   vtTrade = 8        '商务版
   vtAccount = 16     '财务版
End Enum

' 消息类型
Public Enum Message
    msgAccount = 1                              '科目
    msgCustomer = 2                             '单位
    msgCustomerType = 201                       '单位类型
    msgDepartment = 3                           '部门
    msgEmployee = 4                             '员工
    msgClass = 5                                '统计
    msgJob = 6                                  '工程
    msgJobType = 7                              '工程类型
    msgJobStatus = 8                            '工程状态
    msgItem = 9                                 '商品
    msgItemArea = 901                           '商品产地
    msgItemType = 10                            '商品类别
    msgPosition = 11                            '货位
    msgPaymentMethod = 12                       '付款方式
    msgTerm = 13                                '付款条件
    msgVoucherType = 14                         '凭证类别
    msgcurrency = 15                            '币种
    msgRemark = 16                              '摘要
    msglog = 17                                 '上机日志
    msgCustom1 = 18                             '自定项目1
    msgCustom2 = 19                             '自定项目2
    msgCustom3 = 20                             '自定项目3
    msgCustom4 = 21                             '自定项目4
    msgCustom5 = 22                             '自定项目5
    msgCustom6 = 23                             '自定项目6
    msgCustom7 = 24                             '自定项目7
    msgCustom8 = 25                             '自定项目8
    msgTemplate = 26                            '模板设计
    msgFixed = 27                               '固定资产
    msgFixedMethod = 202                        '固定资产变动方式
    msgPersonTax = 28                           '个人所得税
    msgTax = 29                                 '商品税率
    msgnote = 30                                '备忘录

    msgReceipt1 = 31                            '采购订单
    msgReceipt2 = 32                            '商品采购
    msgReceipt3 = 33                            '直运采购
    msgReceipt4 = 34                            '受托入库
    msgReceipt5 = 35                            '受托结算
    msgReceipt6 = 36                            '加工入库
    msgReceipt7 = 37                            '加工费用
    msgReceipt8 = 38                            '采购发票
    msgReceipt9 = 39                            '自制入库
    msgReceipt10 = 40                            '盘盈入库
    msgReceipt11 = 41                            '其他入库
    msgReceipt12 = 42                            '销售订单
    msgReceipt13 = 43                            '商品销售
    msgReceipt14 = 44                            '直运销售
    msgReceipt15 = 45                            '委托出库
    msgReceipt16 = 46                            '委托结算
    msgReceipt17 = 47                            '加工出库
    msgReceipt18 = 48                            '分期出库
    msgReceipt19 = 49                            '分期结算
    msgReceipt20 = 50                            '销售发票
    msgReceipt21 = 51                            '领用出库
    msgReceipt22 = 52                            '成本调整
    msgReceipt23 = 53                            '盘亏出库
    msgReceipt24 = 54                            '其他出库
    msgReceipt25 = 55                            '受托调价
    msgReceipt26 = 56                            '代销调拨
    msgReceipt27 = 57                            '代销调价
    msgReceipt28 = 58                            '商品调拨
    msgReceipt29 = 59                            '商品调价
    msgReceipt30 = 60                            '商品组装
    msgReceipt31 = 61                            '商品拆卸
    msgReceipt32 = 62                            '入库成本
    msgReceipt33 = 63                            '商品盘点
    msgReceipt34 = 64                            '应付贷项
    msgReceipt35 = 65                            '应付借项
    msgReceipt36 = 66                            '应收借项
    msgReceipt37 = 67                            '应收贷项
    msgReceipt38 = 68                            '财务费用
    msgReceipt39 = 69                            '付款单
    msgReceipt40 = 70                            '收款单
    msgReceipt41 = 71                            '记帐凭证
    msgReceipt42 = 72                            '库存商品
    msgReceipt43 = 73                            '受托代销
    msgReceipt44 = 74                            '委托代销
    msgReceipt45 = 75                            '分期商品
    msgReceipt46 = 76                            '直运商品
    msgReceipt47 = 77                            '委托加工
    msgReceipt48 = 78                            '固资增加
    msgReceipt49 = 79                            '固资减少
    msgReceipt50 = 80                            '其它变动
    msgReceipt51 = 81                            '固资卡片

    msgReminder = 100                            '报警消息
    msgTrans = 101                               '通用转帐消息
    msgClass2 = 102                              '项目
    msgItemUnit = 103                            '商品单位
    msgright = 104                               '权限
    msgCustomerAddress = 105                     '单位发货地址
    msgCustomerBank = 106                        '单位开户银行
    msgBusinessAddress = 107                     '企业发货地址
    msgBusinessBank = 108                        '企业开户银行

    msgTitle = 109                               '职务
    msgArea = 110                                '地区
    msgItemNature = 111                          '商品性质
    msgAccountInit = 112                         '科目期初
    msgBudget = 113                              '计划预算
    msgCustomerInit = 114                        '单位期初
    msgReport = 118                              '报表
    msgBudgetPlan = 119                              '预算方案
    msgDefinedSetTittle = 120                        '自定义项目设置标题
    msgTaxType = 121
    msgCashFlow = 122                                '现金流量
    
    msgPayCustomer = 123                         '付款方（邮电）
    msgProjectOrder = 124                        '工程合同（邮电）
    msgProject = 125                             '工程项目（邮电）
    msgRCheckBuy = 126                           '支票购买（邮电）
    msgRCheckUser = 127                          '支票领用（邮电）
End Enum

Public Enum SysColor
   clrWindowBackground = &H80000005
End Enum

' 全局变量
Public gclsEniv As Eniv                         '环境对象
Public gclsSys As Sys                           '系统对象
Public gclsBase As Base                          '帐套对象
Public grecLog As rdoResultset                     '上机日志表
Public gclsRes As Res

Public gVersionType As VersionType              '当前版本信息
Public gcolDogInfo As New Collection            '加密狗信息
Public gblnCancel As Boolean                    '窗体放弃Unload

Public gdtmEndDate As Date                      '对帐截止日期
Public gintDiff As Integer                      '相差天数
Public gblnBySum As Boolean                     '按金额对帐