📄 frmitemtaxlistcard.frm
字号:
VERSION 5.00
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Object = "{E0B099CD-729C-11D2-840D-444553540000}#2.0#0"; "LISTTEXT.OCX"
Begin VB.Form frmItemTaxListCard
BorderStyle = 1 'Fixed Single
Caption = "新增商品税率"
ClientHeight = 2625
ClientLeft = 45
ClientTop = 330
ClientWidth = 6825
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 2625
ScaleWidth = 6825
ShowInTaskbar = 0 'False
Begin ListRefer.ListText lstTxtItemTax
Height = 285
Index = 0
Left = 1560
TabIndex = 7
Top = 1530
Width = 3435
_ExtentX = 6059
_ExtentY = 529
BackColor = -2147483643
MaxLenth = 40
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.TextBox txtItemTax
Height = 285
Index = 2
Left = 3960
TabIndex = 5
Top = 990
Width = 1005
End
Begin VB.TextBox txtItemTax
Height = 285
Index = 1
Left = 1560
TabIndex = 3
Top = 990
Width = 975
End
Begin VB.TextBox txtItemTax
Height = 285
Index = 0
Left = 1560
TabIndex = 1
Top = 480
Width = 3435
End
Begin VB.CommandButton cmdItemTax
Height = 345
Index = 2
Left = 5370
Style = 1 'Graphical
TabIndex = 13
Tag = "1009"
Top = 1110
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdItemTax
Cancel = -1 'True
Height = 350
Index = 1
Left = 5370
Style = 1 'Graphical
TabIndex = 12
Tag = "1002"
Top = 720
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdItemTax
Default = -1 'True
Height = 350
Index = 0
Left = 5370
Style = 1 'Graphical
TabIndex = 11
Tag = "1001"
Top = 330
UseMaskColor = -1 'True
Width = 1215
End
Begin ListRefer.ListText lstTxtItemTax
Height = 285
Index = 1
Left = 1560
TabIndex = 9
Top = 2040
Width = 3435
_ExtentX = 6059
_ExtentY = 529
BackColor = -2147483643
MaxLenth = 40
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label lblItemTax
Caption = "销项税科目(&C)"
Height = 195
Index = 4
Left = 330
TabIndex = 8
Top = 2070
Width = 1185
End
Begin VB.Label lblItemTax
Caption = "进项税科目(&A)"
Height = 195
Index = 3
Left = 330
TabIndex = 6
Top = 1590
Width = 1185
End
Begin VB.Label lblItemTax
Caption = "销项税率%(&S)"
Height = 195
Index = 2
Left = 2730
TabIndex = 4
Top = 1050
Width = 1095
End
Begin VB.Label lblItemTax
Caption = "进项税率%(&P)"
Height = 195
Index = 1
Left = 330
TabIndex = 2
Top = 1050
Width = 1095
End
Begin VB.Label lblItemTax
Caption = "税率名称(&N)"
Height = 195
Index = 0
Left = 330
TabIndex = 0
Top = 510
Width = 1005
End
Begin MSForms.CheckBox chkStop
Height = 315
Left = 5400
TabIndex = 10
Top = 2040
Width = 735
BackColor = -2147483633
ForeColor = -2147483630
DisplayStyle = 4
Size = "1296;556"
Value = "0"
Caption = "停用"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
End
Attribute VB_Name = "frmItemTaxListCard"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'作者： 郑权
'日期：98.07.25
'功能: 完成商品税率的增、删、改。
'接口： AddCard 增加商品税率记录。
' 参数：intModal 显示模式，strName 用户输入值
' EditCard 修改商品税率记录。
' 参数： lngID 被修改的记录的ID，intModal 显示模式
' DelCard 删除商品税率记录。
' 参数： lngID 被删除的记录的ID
'
Option Explicit
Private mblnIsChanged As Boolean
Private mlngTaxID As Long
Private mstrTaxName As String
Private mstrLastTaxName As String
Private mdblPurchaseTaxRate As Double
Private mdblLastPurchaseTaxRate As Double
Private mblnIsInActive As Boolean
Private mblnLastIsInActive As Boolean
Private mdblSaleTaxRate As Double
Private mdblLastSaleTaxRate As Double
Private mlngPurchaseTaxAccountID As Long
Private mlngLastPurchaseTaxAccountID As Long
Private mlngSaleTaxAccountID As Long
Private mlngLastSaleTaxAccountID As Long
Private WithEvents mclsMainControl As MainControl
Attribute mclsMainControl.VB_VarHelpID = -1
Private Enum lstStation
Add = 1
Edit = 2
None = 3
End Enum
Private station(1) As lstStation
Private ID As Long
Private mblnIsEditAdd As Boolean
Private mblnChangeIsFirst As Boolean
Private mblnIsCancel As Boolean '是否是敲了CANCEL键
Public Sub EditCard(ByVal lngID As Long, Optional intModal As Integer = 0)
Dim lngResult As Integer
If mblnIsChanged = True Then
If mlngTaxID > 0 Then
lngResult = ShowMsg(0, "上一次修改的商品税率还未保存，是否继续修改它？", _
vbYesNoCancel + vbQuestion + MB_TASKMODAL, "修改商品税率")
If lngResult = vbYes Then '继续编辑上一次的固定资产类别
Me.Refresh
Me.ZOrder 0
Me.Show
Exit Sub
ElseIf lngResult = vbNo Then
Unload Me
If mlngTaxID = lngID Then Exit Sub
Else
Me.Hide
Exit Sub
End If
End If
End If
mlngTaxID = lngID
If mlngTaxID = 0 Then
ShowMsg 0, "税率不存在，不能修改！", vbExclamation + MB_TASKMODAL, "修改商品税率"
Unload Me
Exit Sub
End If
If Not InitCard Then Exit Sub
cmdItemTax(2).Default = False
cmdItemTax(0).Default = True
' If mlngTaxID <> 1 Then txtItemTax(0).SetFocus
If Me.WindowState = 1 Then Me.WindowState = 0
Show intModal
If intModal <> vbModal Then ZOrder 0
End Sub
Public Function AddCard(Optional strName As String = "", Optional intModal As Integer = 0) As Long
Dim lngResult As Integer
If mblnIsChanged Then
If mlngTaxID > 0 Then
lngResult = ShowMsg(0, "上一次修改的商品税率还未保存，是否继续修改它？", _
vbYesNoCancel + vbQuestion + MB_TASKMODAL, "新增商品税率")
If lngResult = vbYes Then '继续编辑上一次的固定资产类别
Me.Show
Exit Function
ElseIf lngResult = vbNo Then
Unload Me
Else
Me.Hide
Exit Function
End If
End If
End If
mlngTaxID = 0
Me.Caption = "新增商品税率"
InitCard (strName)
If Me.WindowState = 1 Then Me.WindowState = 0
cmdItemTax(0).Default = False
cmdItemTax(2).Default = True
Show intModal
AddCard = ID
If intModal <> vbModal Then ZOrder 0
End Function
'判断税率是否已经使用并且商品性质是计划价或实际差价率
Private Function TaxIsPlan(ByVal lngTaxID As Long) As Boolean
Dim strSql As String
Dim recTax As rdoResultset
TaxIsPlan = False
If Not TaxIsUsed(lngTaxID) Then Exit Function
strSql = "select * from itemnature where lngTaxID=" & lngTaxID
Set recTax = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
If recTax.EOF Then Exit Function
Do While Not recTax.EOF
If Trim(recTax!strCostMethod) = "6" Or Trim(recTax!strCostMethod) = 7 Then
TaxIsPlan = True
Exit Function
End If
recTax.MoveNext
Loop
End Function
Private Function InitCard(Optional ByVal strName As String = "") As Boolean
Dim strSql As String
Dim recTax As rdoResultset
Dim rectemp As rdoResultset
Dim i As Integer
InitCard = True
mblnIsChanged = False
mblnChangeIsFirst = True
If mlngTaxID > 0 Then
Caption = "修改商品税率"
cmdItemTax(2).Visible = False
strSql = "SELECT * FROM Tax WHERE lngTaxID=" & mlngTaxID
Set recTax = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
If recTax.EOF = True Then
Unload Me
InitCard = False
Exit Function
Else
mstrLastTaxName = recTax!strTaxName
txtItemTax(0).Text = mstrLastTaxName
mdblLastPurchaseTaxRate = recTax!dblPurchaseTaxRate
If mdblLastPurchaseTaxRate > 0 And mdblLastPurchaseTaxRate < 1 Then
txtItemTax(1).Text = "0" & CStr(mdblLastPurchaseTaxRate)
Else
txtItemTax(1).Text = CStr(mdblLastPurchaseTaxRate)
End If
mdblLastSaleTaxRate = recTax!dblSaleTaxRate
If mdblLastSaleTaxRate > 0 And mdblLastSaleTaxRate < 1 Then
txtItemTax(2).Text = "0" & CStr(mdblLastSaleTaxRate)
Else
txtItemTax(2).Text = CStr(mdblLastSaleTaxRate)
End If
mblnLastIsInActive = recTax!blnIsInActive
chkStop.Value = IIf(mblnLastIsInActive, 1, 0)
mlngPurchaseTaxAccountID = recTax!lngPurchaseTaxAccountID
mlngSaleTaxAccountID = recTax!lngSaleTaxAccountID
If mlngTaxID = 1 Then
For i = 0 To 2
'txtItemTax(i).Text = 0
txtItemTax(i).Enabled = False
txtItemTax(i).BackColor = &H80000004
Next
For i = 0 To 1
' lstTxtItemTax(i).SeekId -1
lstTxtItemTax(i).Text = ""
lstTxtItemTax(i).Enabled = False
lstTxtItemTax(i).BackColor = &H80000004
Next
For i = 1 To 4
lblItemTax(i).Enabled = False
Next
chkStop.Enabled = False
Exit Function
End If
mlngLastPurchaseTaxAccountID = recTax!lngPurchaseTaxAccountID
mlngLastSaleTaxAccountID = recTax!lngSaleTaxAccountID
strSql = "SELECT strAccountName FROM Account WHERE lngAccountID=" & mlngLastPurchaseTaxAccountID
Set rectemp = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -