📄 frmfi_zznew.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0"; "COMCT332.OCX"
Object = "{7802D41A-28B0-43C4-95EA-17B7E32337D1}#1.0#0"; "CellCtrl5.ocx"
Begin VB.Form frmFI_ZzNew
Caption = "转账生成"
ClientHeight = 4785
ClientLeft = 60
ClientTop = 630
ClientWidth = 8220
Icon = "frmFI_ZzNew.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 4785
ScaleWidth = 8220
Begin ComCtl3.CoolBar CoolBar1
Align = 1 'Align Top
Height = 615
Left = 0
TabIndex = 1
Top = 0
Width = 8220
_ExtentX = 14499
_ExtentY = 1085
BandCount = 1
_CBWidth = 8220
_CBHeight = 615
_Version = "6.7.8988"
Child1 = "tbrEdit"
MinHeight1 = 555
Width1 = 8235
NewRow1 = 0 'False
Begin MSComctlLib.Toolbar tbrEdit
Height = 555
Left = 30
TabIndex = 2
Top = 30
Width = 8100
_ExtentX = 14288
_ExtentY = 979
ButtonWidth = 820
ButtonHeight = 926
AllowCustomize = 0 'False
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 6
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "全选"
Key = "doall"
Object.ToolTipText = "全选"
ImageKey = "doall"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "全消"
Key = "undoall"
Object.ToolTipText = "全消"
ImageKey = "undoall"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "制单"
Key = "zd"
Object.ToolTipText = "制单"
ImageKey = "zd"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助"
Key = "help"
Object.ToolTipText = "帮助"
ImageKey = "help"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "quit"
Object.ToolTipText = "退出"
ImageKey = "quit"
EndProperty
EndProperty
BorderStyle = 1
End
End
Begin MSFlexGridLib.MSFlexGrid mfgDisplay
Height = 4185
Left = 0
TabIndex = 0
Top = 600
Width = 8205
_ExtentX = 14473
_ExtentY = 7382
_Version = 393216
Cols = 6
SelectionMode = 1
AllowUserResizing= 1
FormatString = "|转账序号|< 转账说明 |<凭证类别|>上次转账日期|>是否制单"
End
Begin MSComctlLib.ImageList ImageList1
Left = 5610
Top = 390
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 5
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmFI_ZzNew.frx":0442
Key = "quit"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmFI_ZzNew.frx":089E
Key = "help"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmFI_ZzNew.frx":09B2
Key = "doall"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmFI_ZzNew.frx":0CCE
Key = "undoall"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmFI_ZzNew.frx":1126
Key = "zd"
EndProperty
EndProperty
End
Begin CELL50Lib.Cell cllZzNew
Height = 2775
Left = 1200
TabIndex = 3
Top = 1440
Width = 4815
_Version = 65536
_ExtentX = 8493
_ExtentY = 4895
_StockProps = 0
End
Begin VB.Menu mnuOption
Caption = "操作(&O)"
Begin VB.Menu mnuAllSelect
Caption = "全选"
End
Begin VB.Menu mnuUnAllselect
Caption = "全消"
End
Begin VB.Menu mnuZd
Caption = "制单"
End
End
Begin VB.Menu mnuHp
Caption = "帮助(&H)"
Begin VB.Menu mnuHelp
Caption = "帮助"
End
Begin VB.Menu mnuQuit
Caption = "退出"
End
End
End
Attribute VB_Name = "frmFI_ZzNew"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***************************** Updated by Wan
Option Explicit
'转账序号|>摘 要|>科 目|>方 向|>金 额 |> 出 错 提 示
'转账序号|< 转账说明 |<凭证类别|>上次转账日期|>是否制单
Const COL_ID = 1
Const COL_SUMMARY = 2
Const COL_SUBJECT = 3
Const COL_ITEM = 4
Const COL_DEPARTMENT = 5
Const COL_FX = 6
Const COL_DEBITJE = 7
Const COL_CREDITJE = 8
Const COL_TOTALDEBITJE = 9
Const COL_TOTALCREDITJE = 10
Const COL_ERROR = 11
Const MFG_COLID = 1
Const MFG_COLSUMMARY = 2
Const MFG_COLLB = 3
Const MFG_COLDATE = 4
Const MFG_COLFLAG = 5
'' Dim bFormulaErr As Boolean '公式是否出错
Dim CheckUserFormulaErr As String '返回出错信息
Public sKJRQ As String '会计日期
Dim bStart As Boolean
Dim m_sPzType As String
Dim m_oTempVouchers As New AccountExtend.clsVoucherCollentionZz
Dim WithEvents frm As frmVoucher
Attribute frm.VB_VarHelpID = -1
Public Property Let usPzType(ByVal sPzType As String)
m_sPzType = sPzType
End Property
Private Sub cLlZzNew_CalcFunc(ByVal Name As String, ByVal rettype As Long, ByVal paranum As Long)
Dim bVoid As Variant
Dim vArgu As Variant, aryvArgu() As Variant
Dim i As Integer
Dim dTmp As Double
'取得各个参数
ReDim aryvArgu(1 To paranum)
For i = 1 To paranum
aryvArgu(i) = CStr(cllZzNew.GetFuncStringPara(i - 1, paranum))
Next i
Select Case UCase$(Name)
Case "JFHJ"
dTmp = cllZzNew.GetCellDouble(0, 1, 0)
dTmp = Format(dTmp, "##0.00")
cllZzNew.SetFuncResult dTmp, "", 0
Case "DFHJ"
dTmp = cllZzNew.GetCellDouble(0, 2, 0)
dTmp = Format(dTmp, "##0.00")
cllZzNew.SetFuncResult dTmp, "", 0
Case "QC", "QM", "FS", "LFS", "JFS", "QCN", "QMN", "FSN", _
"LFSN", "JFSN", "QCW", "QMW", "FSW", "LFSW", "JFSW" 'KM,QJ,FS
' １步参数判别
If aryvArgu(1) = "" Then
' MsgBox "自定义公式" & UCase$(Name) & "的第一参数不能为空！", vbExclamation, "提示"
Exit Sub
End If
Select Case aryvArgu(2)
Case "年", "月"
Case Else
' MsgBox "自定义公式" & UCase$(Name) & "的第二参数不正确,只能为年或月！", vbExclamation, "提示"
Exit Sub
End Select
Select Case aryvArgu(3)
Case "借", "贷"
Case Else
' MsgBox "自定义公式" & UCase$(Name) & "的第三参数不正确，只能为借或贷！", vbExclamation, "提示"
Exit Sub
End Select
If Not CheckIsCZ("tzw_km" & glo.sOperateYear, "kmdm", aryvArgu(1)) Then
Exit Sub
End If
If Not CheckIsCZ("tUSU_Department" & glo.sOperateYear, "cDepCode", aryvArgu(4)) Then
If aryvArgu(4) <> "" Then Exit Sub
End If
If Not CheckIsCZ("tzw_Item" & glo.sOperateYear, "cCode", aryvArgu(5)) Then
If aryvArgu(5) <> "" Then Exit Sub
End If
'2步---------------------------开始计算
Select Case UCase$(Name) '不需要具体计算值
Case "QC"
dTmp = str(GetMyQC(CStr(aryvArgu(1)), CStr(aryvArgu(2)), CStr(aryvArgu(3)), "", CStr(aryvArgu(4)), CStr(aryvArgu(5))))
dTmp = Format(dTmp, "##0.00")
cllZzNew.SetFuncResult dTmp, "", 0
Case "QM"
dTmp = Val(GetMyQM(CStr(aryvArgu(1)), CStr(aryvArgu(2)), CStr(aryvArgu(3)), "", CStr(aryvArgu(4)), CStr(aryvArgu(5))))
dTmp = Format(dTmp, "##0.00")
cllZzNew.SetFuncResult dTmp, "", 0
Case "FS"
dTmp = Val(GetMyFS(CStr(aryvArgu(1)), CStr(aryvArgu(2)), CStr(aryvArgu(3)), "", CStr(aryvArgu(4)), CStr(aryvArgu(5))))
dTmp = Format(dTmp, "##0.00")
cllZzNew.SetFuncResult dTmp, "", 0
Case "LFS"
dTmp = Val(GetMyLFS(CStr(aryvArgu(1)), CStr(aryvArgu(2)), CStr(aryvArgu(3)), "", CStr(aryvArgu(4)), CStr(aryvArgu(5))))
dTmp = Format(dTmp, "##0.00")
cllZzNew.SetFuncResult dTmp, "", 0
Case "JFS"
dTmp = Val(GetMyJFS(CStr(aryvArgu(1)), CStr(aryvArgu(2)), CStr(aryvArgu(3)), "", CStr(aryvArgu(4)), CStr(aryvArgu(5))))
dTmp = Format(dTmp, "##0.00")
cllZzNew.SetFuncResult dTmp, "", 0
'-------------------------------------------------------------------
Case "QCN"
dTmp = Val(GetMyQC(CStr(aryvArgu(1)), CStr(aryvArgu(2)), CStr(aryvArgu(3)), "SL", CStr(aryvArgu(4)), CStr(aryvArgu(5))))
dTmp = Format(dTmp, "##0.00")
cllZzNew.SetFuncResult dTmp, "", 0
Case "QMN"
dTmp = Val(GetMyQM(CStr(aryvArgu(1)), CStr(aryvArgu(2)), CStr(aryvArgu(3)), "SL", CStr(aryvArgu(4)), CStr(aryvArgu(5))))
dTmp = Format(dTmp, "##0.00")
cllZzNew.SetFuncResult dTmp, "", 0
Case "FSN"
dTmp = Val(GetMyFS(CStr(aryvArgu(1)), CStr(aryvArgu(2)), CStr(aryvArgu(3)), "SL", CStr(aryvArgu(4)), CStr(aryvArgu(5))))
dTmp = Format(dTmp, "##0.00")
cllZzNew.SetFuncResult dTmp, "", 0
Case "LFSN"
dTmp = Val(GetMyLFS(CStr(aryvArgu(1)), CStr(aryvArgu(2)), CStr(aryvArgu(3)), "SL", CStr(aryvArgu(4)), CStr(aryvArgu(5))))
dTmp = Format(dTmp, "##0.00")
cllZzNew.SetFuncResult dTmp, "", 0
Case "JFSN"
dTmp = Val(GetMyJFS(CStr(aryvArgu(1)), CStr(aryvArgu(2)), CStr(aryvArgu(3)), "SL", CStr(aryvArgu(4)), CStr(aryvArgu(5))))
dTmp = Format(dTmp, "##0.00")
cllZzNew.SetFuncResult dTmp, "", 0
'-------------------------------------------------------------------
Case "QCW"
dTmp = Val(GetMyQC(CStr(aryvArgu(1)), CStr(aryvArgu(2)), CStr(aryvArgu(3)), "WB", CStr(aryvArgu(4)), CStr(aryvArgu(5))))
dTmp = Format(dTmp, "##0.00")
cllZzNew.SetFuncResult dTmp, "", 0
Case "QMW"
dTmp = Val(GetMyQM(CStr(aryvArgu(1)), CStr(aryvArgu(2)), CStr(aryvArgu(3)), "WB", CStr(aryvArgu(4)), CStr(aryvArgu(5))))
dTmp = Format(dTmp, "##0.00")
cllZzNew.SetFuncResult dTmp, "", 0
Case "FSW"
dTmp = Val(GetMyFS(CStr(aryvArgu(1)), CStr(aryvArgu(2)), CStr(aryvArgu(3)), "WB", CStr(aryvArgu(4)), CStr(aryvArgu(5))))
dTmp = Format(dTmp, "##0.00")
cllZzNew.SetFuncResult dTmp, "", 0
Case "LFSW"
dTmp = Val(GetMyLFS(CStr(aryvArgu(1)), CStr(aryvArgu(2)), CStr(aryvArgu(3)), "WB", CStr(aryvArgu(4)), CStr(aryvArgu(5))))
dTmp = Format(dTmp, "##0.00")
cllZzNew.SetFuncResult dTmp, "", 0
Case "JFSW"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -