mdlpzcl.bas

不处的管理软件包

Attribute VB_Name = "mdlPzcl"

'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金计息8.0
'功能说明: 凭证处理模块
'作者: 赵春立

Option Explicit

Global Const pzZhID2 = "****"
'生成凭证标志
'Global Const bFlag = "√" 'cuidong 2001.06.13
Global Const bFlag = "Y"   'cuidong 2001.06.13

'单据生成凭证时的必须信息
Public Type pzInfomation
   pYwID As String         '单据编号
   pMoney As Currency      '金额
   pDjrq As Date           '业务日期
   pZhID1 As String        '账户号1
   pZhID2 As String        '账户号2
   pHl As Double           '汇率
   pDigest As String       '摘要
   blnFind As Boolean      'True-查询
End Type
Public pzInfo As pzInfomation

'生成凭证的附加信息
Private Type pzOtherInformation
   pzLb As String
   pzHh As Long
   pzJf As Double
   pzDf As Double
   pzWbJf As Double
   pzWbDf As Double
End Type
Public pzOtherInfo As pzOtherInformation

Public mDbTemp    As dao.Database
'栏目信息  罗涛 2002-07-03
Public Type FieldInfomation
    fshow As Boolean        '是否显示
    fName As String         '字段名
    fcaption As String      '中文字段名
End Type
Public mField()            As FieldInfomation
Type mfieldsInfo
    fshow As Boolean
    fcaption As String
    ffield As String
    fWidth As Integer
End Type
Public m_fields() As mfieldsInfo
Public show_count As Integer

'***************************************************************
'函数： DoVouch                                                *
'功能： 生成与传送凭证                                          *
'参数：                                                        *
'返回：                                                        *
'***************************************************************
Public Sub DoVouch(Optional DeriveBIType As Integer)
   Dim mVouch As New clsPzcl
   
   mVouch.InitPz
   If IsEmpty(DeriveBIType) Then
        mVouch.DoVouch
   Else
        mVouch.DoVouch DeriveBIType
   End If
   Set mVouch = Nothing
End Sub

Public Sub DeleteGLVouchOther()
   Dim sqlGl   As String
   
   sqlGl = "DELETE  FROM  " + aClsPub.WbTableName + ""
   dbsZJ.Execute sqlGl
End Sub

Public Sub initVouchField()
    Dim i As Integer
    ReDim mField(4)
    For i = 0 To 4
        mField(i).fshow = True
    Next
    mField(0).fName = "BillDate"
    mField(0).fcaption = "业务日期"
    mField(1).fName = "BillID"
    mField(1).fcaption = "业务类型"
    mField(2).fName = "BillID"
    mField(2).fcaption = "业务编号"
    mField(3).fName = "BillMoney"
    mField(3).fcaption = "金额"
    mField(4).fName = "BillDigest"
    mField(4).fcaption = "摘要"
End Sub