mdlkmcheck.bas

一个用VB写的财务软件源码

Attribute VB_Name = "mdlKmCheck"
Option Explicit
Public Type KmNodeStatus         '所选科目的状态信息
    iXgbzFlag As Integer          '记账标志
    iKmjc As Integer              '科目级次
    sKmdm As String               '科目代码
    sKmmc As String               '科目名称
    sYefx As String               '余额方向
    iIsEndkm As Integer           '末级科目标志
    iNodeIndex As Integer         '节点序号
    iNodeGrand As Integer         '节点所属科目大类(科目代码第一位)
    iAppendModifyFlag As Integer  '添加1/修改0标志
    sParentKmdm As String         '父节点科目代码
    sSonKmdm As String            '子节点科目代码
    iSonNum As Integer            '子节点个数
    iMaxlen As Integer            '一级科目限长
    bUniteUpdate As Boolean       '联动更改是否成功
    bUniteAlow As Boolean         '是否允许联动更改
    iQcyeXj As Double             '期初余额类别1
    iQcyeWb As Double             '期初余额类别2
    iQcyeSl As Double              '期初余额类别3
    iQcyelb As Integer            '期初余额类别 1 ljj,ljd  2 ljjs,ljds 3 ljjwb,ljdwb
    bUsed  As Integer             '是否使用 集成帐务,固定资产,工资核算,财务报表,财务分析,现金流量,合并报表,应收应付,领导查询,辅助核算
End Type

Public Type FormInputInfo  '输入窗体信息
    sKmdm As String         '科目代码
    sKmmc As String         '科目名称
    sKmmcEn As String       '英文科目名称
    sKmlx As String         '科目类型
    sKmzj As String         '科目简记
    sZygs As String         '账页格式
    sYefx As String         '余额方向
    sSldw As String         '数量单位
    iSldw As Integer        '数量核算标志  不参加更新
    sWbdw As String         '外币单位
    iWbdw As Integer        '外币单位标志  不参加更新
    iIsXjllkm As Integer    '现金流量标志
    sXjlllb  As String      '现金流量类别
    iIsGrwlhs As Integer    '个人往来核算
    iIsKhwlhs As Integer    '客户往来核算
    iIsGyswlhs As Integer   '供应商往来核算
    iIsBmhs As Integer      '部门核算
    iIsXmhs As Integer      '项目核算
    iIsRjz  As Integer      '日记账标志
    iIsYhz As Integer       '银行账标志
End Type

Public Type UsedFlagInfo
    bPzUsed As Boolean      '凭证是否使用
    bThmbUsed As Boolean    '调汇模板是否使用
    bPzmbUsed As Boolean    '凭证模板是否使用
    bYhdzdUsed As Boolean   '银行对账单是否使用
    bFfdykm   As Boolean    '非法对应科目是否使用
    bPzlb     As Boolean    '凭证类别是否使用
    bZpUsed  As Boolean     '支票是否使用
    bZzpzmbUsed As Boolean  '转账凭证模板是否使用
    iPzlb As Integer        '凭证类别号
    bKmUsed As String       '是否科目使用
    bXmUsed As Boolean      '是否项目使用
    bBmUsed As Boolean      '是否部门使用
    bGrUsed As Boolean      '是否个人使用
    bKhUsed As Boolean      '是否客户使用
    bGysUsed As Boolean     '是否供应商使用
End Type
    
    
Public ThisNodeInfo As KmNodeStatus
Public NodeInputInfo As FormInputInfo