📄 ct_zdjs.frm
字号:
frm_msg.Visible = False
frm_msg.Caption = ""
If Trim(tx_dfzh.Text) = "" Then
frm_msg.Visible = True
frm_msg.Caption = "请输入适当的对方帐号!"
tx_dfzh.SetFocus
Else
tx_dfzh.Text = UCase(Trim(tx_dfzh.Text))
Select Case Trim(zdjs_JSMC)
Case "挂帐"
Set ctrl_rec = PUB_data.OpenRecordset("SELECT * FROM SYS_CTRL WHERE TRIM(GWDM)='" & SYS_GWDM & "'", 4, 0, 2)
If Not ctrl_rec.BOF Then
ctrl_rec.MoveLast
End If
temp_zhsw = ctrl_rec!ZH_SW
ctrl_rec.Close
If Left(tx_dfzh.Text, 1) <> temp_zhsw Then
Call MsgBox("您输入的街帐帐号, 不属于" & SYS_GWMC & "!", vbOKOnly, Trim(SYS_GWMC) & "客帐结算")
Call CMD_EXIT_Click
ElseIf Left(tx_dfzh.Text, 1) = SYS_TZYSK Then
Call MsgBox("该帐号为特种应收款帐号, 不能挂帐!", vbOKOnly, Trim(SYS_GWMC) & "客帐结算")
Call CMD_EXIT_Click
ElseIf Left(tx_dfzh.Text, 1) = SYS_NB Or Left(tx_dfzh.Text, 1) = SYS_TSNB Then
Call MsgBox("该帐号不应作挂帐处理!", vbOKOnly, Trim(SYS_GWMC) & "客帐结算")
Call CMD_EXIT_Click
Else
temp_yn = False
temp_ft = False
If Not ZW_ZHQR(tx_dfzh.Text, temp_yn, zdjs_ZHK, zdjs_GDK, temp_ft, Date) Then
Call MsgBox("请输入适当的帐号!", vbOKOnly, Trim(SYS_GWMC) & "客帐结算")
Call CMD_EXIT_Click
Else
If temp_yn And InStr(SYS_SK, Left(tx_dfzh.Text, 1)) <> 0 Then
Dim zhk_rec As Recordset
Set zhk_rec = PUB_data.OpenRecordset("", 4, 0, 2)
If Not zhk_rec.BOF Then
zhk_rec.MoveLast
If zhk_rec!QD_FT = "0" Then
If MsgBox("该客人不能签单, 请与前台联系." & Chr(13) & Chr(10) & "是否继续结算?", vbOKCancel + vbDefaultButton2, Trim(SYS_GWMC) & "客帐结算") = vbOK Then
If Not temp_yn And temp_ft Then
frm_msg.Visible = True
frm_msg.Caption = "输入帐号不正确!"
tx_dfzh.SetFocus
ElseIf Not temp_ft And (InStr(SYS_SK, Left(tx_dfzh.Text, 1)) <> 0 Or Left(tx_dfzh.Text, 1) = SYS_TD) Then
Call MsgBox("没有该住店客人, 不能挂帐!", vbOKOnly, Trim(SYS_GWMC) & "客帐结算")
Call CMD_EXIT_Click
ElseIf Not temp_ft And Not (InStr(SYS_SK, Left(tx_dfzh.Text, 1)) <> 0 Or Left(tx_dfzh.Text, 1) = SYS_TD) Then
If MsgBox("该帐号不存在." & Chr(13) & Chr(10) & "是否建立新帐户?", vbOKCancel + vbDefaultButton2, Trim(SYS_GWMC) & "客帐结算") = vbOK Then
'???? 建立街帐
Else
Call CMD_EXIT_Click
End If
End If
If Not (InStr(1, SYS_SK, Left(Trim(tx_dfzh.Text), 1)) <> 0 Or Left(Trim(tx_dfzh.Text), 1) = SYS_TD) Then
zdjs_SPR = InputBox("请输入审批人: ")
If Trim(zdjs_SPR) = "" Then
zdjs_SPR = "*"
End If
End If
Else
Call CMD_EXIT_Click
End If
End If
Else
Call MsgBox(Trim(zdjs_ZHK) & "表不存在, 请与微机室联系!")
Call CMD_EXIT_Click
End If
zhk_rec.Close
End If
End If
End If
Case "全部报帐", "转特殊内部帐"
If Left(tx_dfzh.Text, 1) <> IIf(Trim(zdjs_JSMC) = "全部报帐", SYS_NB, SYS_TSNB) Then
Call MsgBox("该帐号不应作报帐处理 !")
Call CMD_EXIT_Click
Else
temp_yn = False
temp_ft = False
temp_qr = ZW_ZHQR(Trim(tx_dfzh.Text), temp_yn, zdjs_ZHK, zdjs_GDK, temp_ft, Date)
If (temp_ft = True And temp_yn = False) Or (Not temp_qr) Then
frm_msg.Visible = True
frm_msg.Caption = "输入帐号不正确!"
tx_dfzh.SetFocus
ElseIf temp_ft = False Then
If MsgBox("该帐号不存在." & Chr(13) & Chr(10) & "是否建立新帐户?", vbOKCancel + vbDefaultButton2, Trim(SYS_GWMC) & "客帐结算") = vbOK Then
'???? 建立街帐
Else
Call CMD_EXIT_Click
End If
End If
End If
End Select
End If
End Sub
'**************************************************************************************************
Private Sub tx_fkfs_GotFocus()
tx_fkfs.Text = t_tools.ZW_FKFS(PUB_data, "1", pub_code)
End Sub
'**************************************************************************************************
Private Sub tx_fkfs_LostFocus()
If Trim(tx_fkfs.Text) = "" Then
zdjs_FKMC = ""
Call CMD_EXIT_Click
Else
zdjs_R5 = Trim(tx_fkfs.Text)
Dim fkfs_rec As Recordset
Set fkfs_rec = PUB_data.OpenRecordset("SELECT * FROM ZW_FKFS WHERE TRIM(FK_DM)='" & Trim(zdjs_R5) & "'", 4, 0, 2)
If Not fkfs_rec.BOF Then
fkfs_rec.MoveLast
zdjs_FKMC = Trim(fkfs_rec!FK_MC)
lb_fkmc.Caption = zdjs_FKMC
Else
zdjs_FKMC = ""
Call CMD_EXIT_Click
End If
End If
End Sub
'**************************************************************************************************
Private Sub tx_jsfs_GotFocus()
lb_dfzh.Enabled = False
tx_dfzh.Enabled = False
lb_fkmc.Enabled = False
lb_fkfs.Enabled = False
tx_fkfs.Enabled = False
fm_zck.Enabled = False
fm_zckbz.Enabled = False
fm_yhq.Enabled = False
tx_jsfs.Text = t_tools.ZW_JSFS(PUB_data, zdjs_R4, pub_code)
End Sub
'**************************************************************************************************
Private Sub tx_jsfs_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
' Call tx_jsfs_LostFocus
End If
End Sub
'**************************************************************************************************
Private Sub tx_jsfs_LostFocus()
If Trim(tx_jsfs.Text) = "" Then
zdjs_JSMC = ""
Call CMD_EXIT_Click
Else
tx_jsfs.Text = UCase(Trim(tx_jsfs.Text))
zdjs_R2 = Trim(tx_jsfs.Text)
Dim jsfs_rec As Recordset
Set jsfs_rec = PUB_data.OpenRecordset("SELECT * FROM ZW_JSFS WHERE TRIM(JS_FS)='" & Trim(zdjs_R2) & "'", 4, 0, 2)
If Not jsfs_rec.BOF Then
jsfs_rec.MoveLast
zdjs_JSMC = Trim(jsfs_rec!JS_MC)
lb_jsmc.Caption = zdjs_JSMC
Select Case zdjs_JSMC
Case "现场结算"
'控件可用性设置
'对方帐号
lb_dfzh.Enabled = False
tx_dfzh.Enabled = False
'免费早餐卡
If SYS_GWDM <> "KL" Or SYS_GWDM <> "JB" Then
fm_zck.Enabled = True
Else
fm_zck.Enabled = False
End If
fm_zckbz.Enabled = False
'优惠券
fm_yhq.Enabled = True
'付款方式
lb_fkfs.Enabled = True
tx_fkfs.Enabled = True
lb_fkmc.Enabled = True
tx_fkfs.SetFocus
Case "挂帐"
'对方帐号
lb_dfzh.Enabled = True
tx_dfzh.Enabled = True
'免费早餐卡
If SYS_GWDM <> "KL" Or SYS_GWDM <> "JB" Then
fm_zck.Enabled = True
Else
fm_zck.Enabled = False
End If
fm_zckbz.Enabled = False
'优惠券
fm_yhq.Enabled = True
'付款方式
lb_fkfs.Enabled = False
tx_fkfs.Enabled = False
lb_fkmc.Enabled = False
tx_dfzh.SetFocus
Case "全部报帐"
'对方帐号
lb_dfzh.Enabled = True
tx_dfzh.Enabled = True
'免费早餐卡
If SYS_GWDM <> "KL" Or SYS_GWDM <> "JB" Then
fm_zck.Enabled = True
Else
fm_zck.Enabled = False
End If
fm_zckbz.Enabled = False
'优惠券
fm_yhq.Enabled = True
'付款方式
lb_fkfs.Enabled = False
tx_fkfs.Enabled = False
lb_fkmc.Enabled = False
Dim temp_sjf As Double
Dim hzk_rec As Recordset
Set hzk_rec = LOCAL_data.OpenRecordset("SELECT * FROM " & Trim(zdjs_HZK) & " WHERE TRIM(LBMC_ZW)='司机费'", 4, 0, 2)
If Not hzk_rec.BOF Then
hzk_rec.MoveLast
temp_sjf = hzk_rec!SJJE
Else
temp_sjf = 0
End If
hzk_rec.Close
If temp_sjf <> 0 Then
Call MsgBox("本次结算包含司机费, 请作分台处理后在作报帐处理 !")
Call CMD_EXIT_Click
End If
tx_dfzh.SetFocus
Case "转特殊内部帐"
If zdjs_ZKL < 1 Then
If MsgBox("转特殊内部帐一般不打折扣" & (Chr(13) & Chr(10)) & "您是否要修改折扣率 ?", vbOKCancel, Trim(SYS_GWMC) & "客帐结算") = vbOK Then
Call MsgBox("请重新打印帐单", vbOKOnly, Trim(SYS_GWMC) & "客帐结算")
Call CMD_EXIT_Click
End If
End If
'对方帐号
lb_dfzh.Enabled = True
tx_dfzh.Enabled = True
'免费早餐卡
If SYS_GWDM <> "KL" Or SYS_GWDM <> "JB" Then
fm_zck.Enabled = True
Else
fm_zck.Enabled = False
End If
fm_zckbz.Enabled = False
'优惠券
fm_yhq.Enabled = True
'付款方式
lb_fkfs.Enabled = False
tx_fkfs.Enabled = False
lb_fkmc.Enabled = False
tx_dfzh.SetFocus
Case "免费早餐卡"
'付款方式
lb_fkfs.Enabled = False
tx_fkfs.Enabled = False
'对方帐号
lb_dfzh.Enabled = False
tx_dfzh.Enabled = False
'优惠券
fm_yhq.Enabled = False
'免费早餐卡
If SYS_GWDM <> "KL" And SYS_GWDM <> "JB" Then
fm_zck.Enabled = True
If op_mfck(0).Value Then
op_mfck(0).SetFocus
Else
op_mfck(1).SetFocus
End If
Else
Call MsgBox("本部门不能使用免费早餐卡")
zdjs_JSMC = ""
Call CMD_EXIT_Click
End If
End Select
Else
zdjs_JSMC = ""
Call CMD_EXIT_Click
End If
End If
End Sub
'**************************************************************************************************
Private Sub tx_sl_GotFocus()
tx_sl.SelStart = 0
tx_sl.SelLength = Len(Trim(tx_sl.Text))
End Sub
'**************************************************************************************************
'校验台号的正确性
Private Sub tx_th_LostFocus()
Dim temp_i As Integer
Dim temp_char As String
Dim temp_ft As Boolean
frm_msg.Visible = False
frm_msg.Caption = ""
temp_ft = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -