📄 ct_zdjs.frm
字号:
EndProperty
Height = 315
Left = 5040
MaxLength = 15
TabIndex = 1
Text = "Text1"
Top = 330
Width = 1815
End
Begin VB.TextBox tx_th
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1320
MaxLength = 2
TabIndex = 0
Text = "Text1"
Top = 330
Width = 525
End
Begin VB.Label lb_dfzh
Caption = "对方帐号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 4140
TabIndex = 21
Top = 870
Width = 855
End
Begin VB.Label lb_fkfs
Caption = "付款方式"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 390
TabIndex = 19
Top = 1320
Width = 855
End
Begin VB.Label lb_fkmc
Caption = "付款方式"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 1920
TabIndex = 18
Top = 1320
Width = 1575
End
Begin VB.Label lb_jsmc
Caption = "结算方式"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 1920
TabIndex = 17
Top = 870
Width = 1995
End
Begin VB.Label Label4
Caption = "结算方式"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 390
TabIndex = 16
Top = 870
Width = 855
End
Begin VB.Label Label2
Caption = "帐 单 号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 4140
TabIndex = 15
Top = 390
Width = 855
End
Begin VB.Label Label1
Caption = "台 号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 390
TabIndex = 14
Top = 390
Width = 855
End
End
Begin VB.Label frm_msg
Alignment = 1 'Right Justify
Caption = "Label1"
ForeColor = &H8000000D&
Height = 195
Left = 3840
TabIndex = 23
Top = 330
Width = 3615
End
Begin VB.Label lb_title
Alignment = 2 'Center
Caption = "餐厅客帐结算"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 0
Left = 390
TabIndex = 12
Top = 270
Width = 2595
End
End
Begin VB.Timer XT_Timer
Interval = 1000
Left = 60
Top = 5220
End
End
Attribute VB_Name = "ct_zdjs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim t_tools As New HOTEL_TOOL.HOTEL_TOOLS
Dim CS_th As String
Dim t_czlsh As String
'结算用的参数
Dim zdjs_XFHJ As Double '消费合计
Dim zdjs_SJHJ As Double '实际金额合计
Dim zdjs_FWF As Double '服务费
Dim zdjs_FJF As Double '送餐服务附加费
Dim zdjs_SJF As Double '司机费
Dim zdjs_JSF As Double '加收金额
Dim zdjs_ZKL As Single '折扣率
Dim zdjs_BZJE As Double '报帐金额
Dim zdjs_YE As Double '余额
Dim zdjs_R1 As String '结算代码 (第1位)
Dim zdjs_R2 As String '结算代码 (第2位)
Dim zdjs_R3 As String '结算代码 (第3,4位)
Dim zdjs_R4 As String '结算代码 (第5位)
Dim zdjs_R5 As String '结算代码 (第6位)
Dim zdjs_MC As String '餐厅消费项目名称
Dim zdjs_JSMC As String '结算名称
Dim zdjs_FKMC As String '付款名称
Dim zdjs_ZH As String '帐号
Dim zdjs_ZHK As String '帐号库
Dim zdjs_GDK As String '归档库
Dim zdjs_HZK As String '汇总库
Dim zdjs_ZHXZ As String '帐号性质
Dim zdjs_SPR As String '审批人
Dim zdjs_NAME As String '记操作流水时的名称
Dim t_bt As String '存储列表显示的表头
Dim t_fields As Variant '存储列表显示的字段名
Dim t_fdxs As Variant '显示列是否有特殊处理 0 无, 1 有
Dim t_fdcounts As Integer '表示列表所显示的字段的个数
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.18
'* 修改日期 : 1999.03.18
'**************************************************************************************************
Private Sub CMD_EXIT_Click()
Call Pub_czle(PUB_data, t_czlsh, zdjs_NAME, Time(), pub_code)
Call MsgBox(zdjs_NAME)
Unload Me
End Sub
'**************************************************************************************************
Private Sub CMD_JS_Click()
Dim temp_ft As Boolean
temp_ft = False
Select Case zdjs_JSMC
Case "现场结算"
temp_ft = ct_xcjs(Trim(tx_th.Text), Trim(tx_zdh.Text), "CT_TZLB", "CT_TZK", "CT_HZK", zdjs_R1, zdjs_R2, zdjs_R4, zdjs_R5, Trim(zdjs_JSMC), Trim(zdjs_FKMC), zdjs_SJHJ, zdjs_FWF, zdjs_FJF, zdjs_JSF, CInt(tx_yhqsl.Text))
If temp_ft Then
Call tPzck_Save("回收")
Call CT_YHQ("回收", CInt(tx_yhqsl.Text))
End If
Case "挂帐"
temp_ft = ct_gzjs(Trim(tx_th.Text), Trim(tx_zdh.Text), "CT_TZLB", "CT_TZK", "CT_HZK", Trim(zdjs_ZHK), zdjs_R1, zdjs_R2, zdjs_R3, zdjs_R4, zdjs_R5, Trim(zdjs_JSMC), Trim(zdjs_FKMC), zdjs_SJHJ, zdjs_FWF, zdjs_FJF, zdjs_JSF, CInt(tx_yhqsl.Text), zdjs_ZKL, Trim(zdjs_SPR), Trim(zdjs_MC))
If temp_ft Then
Call tPzck_Save("回收")
Call CT_YHQ("回收", CInt(tx_yhqsl.Text))
End If
Case "全部报帐"
temp_ft = ct_bzjs(Trim(tx_th.Text), Trim(tx_zdh.Text), "CT_TZLB", "CT_TZK", "CT_HZK", Trim(zdjs_ZHK), zdjs_R1, zdjs_R2, zdjs_R3, zdjs_R4, zdjs_R5, Trim(zdjs_JSMC), Trim(zdjs_FKMC), zdjs_SJHJ, zdjs_FWF, zdjs_FJF, zdjs_JSF, CInt(tx_yhqsl.Text), zdjs_ZKL, Trim(zdjs_MC))
If temp_ft Then
Call tPzck_Save("回收")
Call CT_YHQ("回收", CInt(tx_yhqsl.Text))
End If
Case "转特殊内部帐"
temp_ft = ct_tsjs(Trim(tx_th.Text), Trim(tx_zdh.Text), "CT_TZLB", "CT_TZK", "CT_HZK", Trim(zdjs_ZHK), zdjs_R1, zdjs_R2, zdjs_R3, zdjs_R4, zdjs_R5, Trim(zdjs_JSMC), Trim(zdjs_FKMC), zdjs_SJHJ, zdjs_FWF, zdjs_FJF, zdjs_SJF, zdjs_JSF, CInt(tx_yhqsl.Text), zdjs_ZKL, Trim(zdjs_MC))
If temp_ft Then
Call tPzck_Save("回收")
Call CT_YHQ("回收", CInt(tx_yhqsl.Text))
End If
Case "免费早餐卡"
temp_ft = ct_mfjs(Trim(m_dfzh.Text), Trim(tx_th.Text), Trim(tx_zdh.Text), "CT_TZLB", "CT_TZK", "CT_HZK", zdjs_R2, Trim(zdjs_JSMC), zdjs_SJHJ)
If temp_ft Then
Call tPzck_Save("回收")
End If
End Select
If temp_ft Then
zdjs_NAME = SYS_GWMC & "-" & zdjs_JSMC & "结算完成"
Else
zdjs_NAME = SYS_GWMC & "-" & zdjs_JSMC & "结算未完成"
End If
Call CMD_EXIT_Click
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.18
'* 修改日期 : 1999.03.18
'**************************************************************************************************
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
Call CMD_EXIT_Click
End If
End Sub
'**************************************************************************************************
Sub MAIN(t_TH As String)
CS_th = Trim(t_TH)
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.18
'* 修改日期 : 1999.03.18
'**************************************************************************************************
Private Sub Form_Load()
pub_code = Left(Pub_getcode(PUB_data, "CT_ZDJS"), 5)
KeyPreview = True
frm_msg.Visible = True
frm_msg.Caption = ""
tx_sl.Visible = False
tx_bz.Visible = False
tx_th.Text = ""
tx_zdh.Text = ""
tx_jsfs.Text = ""
lb_jsmc.Caption = ""
tx_fkfs.Text = ""
lb_fkmc.Caption = ""
tx_dfzh.Text = ""
tx_yhqsl.Text = 0
'变量初始化
zdjs_XFHJ = 0
zdjs_SJHJ = 0
zdjs_FWF = 0
zdjs_FJF = 0
zdjs_SJF = 0
zdjs_JSF = 0
zdjs_ZKL = 0
zdjs_BZJE = 0
zdjs_YE = 0
zdjs_R1 = "0"
zdjs_R2 = "0"
zdjs_R3 = "00"
zdjs_R4 = "1"
zdjs_R5 = "0"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -