📄 frmbillno.frm
字号:
VERSION 5.00
Object = "{D252F124-F62C-11D1-9ABD-444553540000}#1.0#0"; "GADATE.DLL"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmBillNo
BorderStyle = 4 'Fixed ToolWindow
Caption = "单据查询"
ClientHeight = 4185
ClientLeft = 30
ClientTop = 255
ClientWidth = 6465
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4185
ScaleWidth = 6465
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
WhatsThisButton = -1 'True
WhatsThisHelp = -1 'True
Begin VB.CommandButton cmdOK
Caption = "编号整理(&S)"
Default = -1 'True
Height = 345
Index = 1
Left = 5220
Style = 1 'Graphical
TabIndex = 5
Tag = "1022"
Top = 960
UseMaskColor = -1 'True
Width = 1185
End
Begin GACALENDARLibCtl.SpinEdit spinMonth
Height = 285
Left = 2430
OleObjectBlob = "frmBillNo.frx":0000
TabIndex = 3
Top = 120
Width = 615
End
Begin GACALENDARLibCtl.SpinEdit spinYear
Height = 285
Left = 870
OleObjectBlob = "frmBillNo.frx":009F
TabIndex = 1
Top = 120
Width = 765
End
Begin VB.CommandButton cmdOK
Height = 345
Index = 0
Left = 5220
Style = 1 'Graphical
TabIndex = 4
Tag = "1022"
Top = 480
UseMaskColor = -1 'True
Width = 1185
End
Begin VB.ListBox Lstcha
Height = 3300
Left = 120
TabIndex = 6
Top = 480
Width = 4965
End
Begin MSComctlLib.StatusBar stbButton
Align = 2 'Align Bottom
Height = 315
Left = 0
TabIndex = 7
Top = 3870
Width = 6465
_ExtentX = 11404
_ExtentY = 556
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 2
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 8784
EndProperty
EndProperty
End
Begin VB.Label lab2
Caption = "期间(&M)"
Height = 195
Left = 1755
TabIndex = 2
Top = 150
Width = 675
End
Begin VB.Label lab1
Caption = "年度(&Y)"
Height = 195
Left = 165
TabIndex = 0
Top = 150
Width = 675
End
End
Attribute VB_Name = "frmBillNo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'缺号查询
'作者:诸涛
'方法:ShowTypeID(lngReceiptIDq)
' 入口参数:lngReceiptIDq,单列ID
Option Explicit
Dim lngReceiptTypeID1 As Long
Dim Year1 As Integer, Month1 As Integer
Dim bz As Boolean
Dim sDate As Date, eDate As Date
Dim blnDate As Boolean '是否为期初单或是不受年度和期间限制的单据标志
Dim dtmStartDate As Date, dtmEndDate As Date, PeriodNum As Integer
Dim lngZds As Integer, lngQhs As Integer, lngZfs As Integer
Dim blnIsCanDo As Boolean
'lngZds '总单数、lngQhs 缺号数 lngZfs 作废数
'lngReceiptIDq:单列ID
Public Sub ShowTypeID(ByVal lngReceiptTypeID As Integer)
lngReceiptTypeID1 = lngReceiptTypeID
If Not Me.Visible Then
Me.Show vbModal
End If
End Sub
Private Sub cmdOK_Click(index As Integer)
If index = 0 Then
Unload Me
ElseIf index = 1 Then
ReCode
End If
End Sub
Private Sub Form_Activate()
SetHelpID C2lng(Me.HelpContextID)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyEscape Then
Unload Me
End If
End Sub
Private Sub Form_Load()
Dim str As String
Me.HelpContextID = 10202
Set Me.Icon = Utility.GetFormResPicture(139, vbResIcon)
cmdOK(0).Picture = Utility.GetFormResPicture(1022, 0)
bz = True
blnDate = False
'----------------------------------
Select Case lngReceiptTypeID1
Case 1
str = "单据号查询_采购订单"
Case 2 '采购单
#If conVersionType = 16 Then
str = "单据号查询_采购发票"
#Else
str = "单据号查询_商品采购"
#End If
Case 3
str = "单据号查询_直运采购"
Case 4
str = "单据号查询_受托入库"
Case 5
str = "单据号查询_受托结算"
Case 6
str = "单据号查询_加工入库"
Case 7
str = "单据号查询_加工费用"
Case 8
str = "单据号查询_采购发票"
Case 9
str = "单据号查询_自制入库"
Case 10
str = "单据号查询_盘盈入库"
Case 11
str = "单据号查询_其他入库"
Case 12
str = "单据号查询_销售订单"
Case 13
#If conVersionType = 16 Then
str = "单据号查询_销售发票"
#Else
str = "单据号查询_商品销售"
#End If
Case 14
str = "单据号查询_直运销售"
Case 15
str = "单据号查询_委托出库"
Case 16
str = "单据号查询_委托结算"
Case 17
str = "单据号查询_加工出库"
Case 18
str = "单据号查询_分期出库"
Case 19
str = "单据号查询_分期结算"
Case 20
str = "单据号查询_销售发票"
Case 21
str = "单据号查询_领用出库单"
Case 22
str = "单据号查询_成本调整单"
Case 23
str = "单据号查询_盘亏出库单"
Case 24
str = "单据号查询_其他出库单"
Case 25
str = "单据号查询_受托调价单"
Case 26
str = "单据号查询_代销调拨单"
Case 27
str = "单据号查询_代销调价单"
Case 28
str = "单据号查询_商品调拨单"
Case 29
str = "单据号查询_商品调价单"
Case 30
str = "单据号查询_商品组装单"
Case 31
str = "单据号查询_商品拆卸单"
Case 32
str = "单据号查询_入库成本单"
Case 33
str = "单据号查询_商品盘点单"
Case 34
str = "单据号查询_应付贷项"
Case 35
str = "单据号查询_应付借项"
Case 36
str = "单据号查询_应收借项"
Case 37
str = "单据号查询_应收贷项"
Case 38
str = "单据号查询_财务费用"
Case 39
str = "单据号查询_付款单"
Case 40
str = "单据号查询_收款单"
Case 41
str = "单据号查询_记帐凭证"
Case 42
str = "单据号查询_库存商品期初"
blnDate = True
Case 43
str = "单据号查询_受托代销期初"
blnDate = True
Case 44
str = "单据号查询_委托代销期初"
blnDate = True
Case 45
str = "单据号查询_分期商品期初"
blnDate = True
Case 46
str = "单据号查询_直运商品期初"
blnDate = True
Case 47
str = "单据号查询_委托加工期初"
blnDate = True
Case 48
str = "单据号查询_固资增加"
blnDate = True
Case 49
str = "单据号查询_固资减少"
blnDate = True
Case 50
str = "单据号查询_其它变动"
blnDate = True
Case 51
str = "单据号查询_固资卡片"
blnDate = True
Case 52
str = "单据号查询_暂估期初"
blnDate = True
Case 53
str = "单据号查询_采购发票"
blnDate = True
Case 56
str = "单据号查询_汇缴书"
Case 57
str = "单据号查询_费用结算"
Case 58
str = "单据号查询_补缴书"
Case 59
str = "单据号查询_职工开户"
Case 60
str = "单据号查询_职工销户"
Case 61
str = "单据号查询_调入调出"
Case 62
str = "单据号查询_职工封存"
Case 63
str = "单据号查询_职工启封"
Case 64
str = "单据号查询_利息单据"
End Select
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -