📄 pub_ct.bas
字号:
If Trim(zpdj_fkmc) = "" Then
Exit Sub
End If
If MsgBox("确定是否进行支票.信用卡登记 ?", vbOKCancel) = vbOK Then
Select Case Trim(zpdj_fkmc)
Case "支票"
'???? do zw_zpxyk with zpdj_jsdm,zpdj_ye,zpdj_zdh,"支票",12,8,zpdj_zh,zpdj_zy
Case "信用卡"
'???? do zw_zpxyk with zpdj_jsdm,zpdj_ye,zpdj_zdh,"信用卡",12,8,zpdj_zh,zpdj_zy
Case "支票+现金"
'???? do zw_zpxyk with zpdj_jsdm,zpdj_ye1,zpdj_zdh,"支票",12,8,zpdj_zh,zpdj_zy
Case "信用卡+现金"
'???? do zw_zpxyk with zpdj_jsdm,zpdj_ye1,zpdj_zdh,"信用卡",12,8,zpdj_zh,zpdj_zy
Case "支票+信用卡"
'???? do zw_zpxyk with zpdj_jsdm,zpdj_ye1,zpdj_zdh,"支票",12,8,zpdj_zh,zpdj_zy
'???? do zw_zpxyk with zpdj_jsdm,zpdj_ye-zpdj_ye1,zpdj_zdh,"信用卡",12,8,zpdj_zh,zpdj_zy
End Select
Else
Call MsgBox("请用支票.信用卡登记模块进行补充登记 !")
Dim zpxyk_rec As Recordset
Set zpxyk_rec = PUB_data.OpenRecordset("SELECT * FROM ZW_ZPXYK", 2, 0, 2)
If Not zpxyk_rec.BOF Then
zpxyk_rec.MoveLast
End If
Dim zpdj_hj As Double
Dim zpdj_zp_ft As String
Dim out_bs As Integer
Select Case Trim(zpdj_fkmc)
Case "支票"
zpdj_hj = zpdj_ye
zpdj_zp_ft = "1"
out_bs = 1 ' 调用ZW_ZPXYK() 的次数
Case "信用卡"
zpdj_hj = zpdj_ye
zpdj_zp_ft = "0"
out_bs = 1 ' 调用ZW_ZPXYK() 的次数
Case "支票+现金"
zpdj_hj = zpdj_ye1
zpdj_zp_ft = "1"
out_bs = 1 ' 调用ZW_ZPXYK() 的次数
Case "信用卡+现金"
zpdj_hj = zpdj_ye1
zpdj_zp_ft = "0"
out_bs = 1 ' 调用ZW_ZPXYK() 的次数
Case "支票+信用卡"
zpdj_hj = zpdj_ye1
zpdj_zp_ft = "1"
out_bs = 2
End Select
zpxyk_rec.AddNew
zpxyk_rec!FSRQ = zpdj_rq
zpxyk_rec!LOCK_NO = 0
zpxyk_rec!BZ = Trim(zpdj_zy)
zpxyk_rec!jzy = SYS_USER
zpxyk_rec!zdh = Trim(zpdj_zdh)
zpxyk_rec!ZH = Trim(zpdj_zh)
zpxyk_rec!LXR = "*"
zpxyk_rec!LXDH = "*"
zpxyk_rec!KR_ZJHM = "*"
zpxyk_rec!FKDW = "*"
zpxyk_rec!hj = zpdj_hj
zpxyk_rec!ZP_FT = zpdj_zp_ft
zpxyk_rec!QFRQ = Null
zpxyk_rec!FHY = "*"
zpxyk_rec!SDRQ = Null
zpxyk_rec!CNY = "*"
zpxyk_rec!YH_HH = "*"
zpxyk_rec!YH_HM = "*"
zpxyk_rec!SQHM = "*"
zpxyk_rec!XYK_DM = "*"
zpxyk_rec!XYK_HM = "*"
zpxyk_rec!XYK_SX = "*"
zpxyk_rec!HDRQ = Null
zpxyk_rec!HDHM = "*"
zpxyk_rec!ZP_CZBZ = "*"
zpxyk_rec.Update
If out_bs = 2 Then
zpdj_hj = zpdj_ye - zpdj_ye1
zpdj_zp_ft = "0"
zpxyk_rec.AddNew
zpxyk_rec!FSRQ = zpdj_rq
zpxyk_rec!LOCK_NO = 0
zpxyk_rec!BZ = Trim(zpdj_zy)
zpxyk_rec!jzy = SYS_USER
zpxyk_rec!zdh = Trim(zpdj_zdh)
zpxyk_rec!ZH = Trim(zpdj_zh)
zpxyk_rec!LXR = "*"
zpxyk_rec!LXDH = "*"
zpxyk_rec!KR_ZJHM = "*"
zpxyk_rec!FKDW = "*"
zpxyk_rec!hj = zpdj_hj
zpxyk_rec!ZP_FT = zpdj_zp_ft
zpxyk_rec!QFRQ = Null
zpxyk_rec!FHY = "*"
zpxyk_rec!SDRQ = Null
zpxyk_rec!CNY = "*"
zpxyk_rec!YH_HH = "*"
zpxyk_rec!YH_HM = "*"
zpxyk_rec!SQHM = "*"
zpxyk_rec!XYK_DM = "*"
zpxyk_rec!XYK_HM = "*"
zpxyk_rec!XYK_SX = "*"
zpxyk_rec!HDRQ = Null
zpxyk_rec!HDHM = "*"
zpxyk_rec!ZP_CZBZ = "*"
zpxyk_rec.Update
End If
End If
End Sub
'**************************************************************************************************
'* 功 能 : 餐饮余额处理之一
'* 作 者 : 梁卫
'* 作成日期 : 1999.05.05
'* 修改日期 : 1999.05.05
'* 参数说明 : yecl1_yyxm -- 营业项目表名
'* yecl1_r1 -- 结算代码 (r1)
'* yecl1_r2 -- 结算代码 (r2)
'* yecl1_r4 -- 结算代码 (r4)
'* yecl1_dfzh -- 对方帐号
'* yecl1_zdh -- 帐单号
'* yecl1_ye -- 余额
'* yecl1_zy -- 消费项目 (返回值)
'* yecl1_mc -- 名称
'* yecl1_r3 -- 结算代码 (r3) (返回值)
'* yecl1_bz -- 备注
'* yecl1_rq -- 日期
'**************************************************************************************************
Public Sub CT_YECL1(yecl1_YYXM As String, yecl1_R1 As String, yecl1_R2 As String, yecl1_R4 As String, yecl1_DFZH As String, yecl1_ZDH As String, yecl1_YE As Double, yecl1_ZY As String, yecl1_MC As String, yecl1_R3 As String, yecl1_BZ As String, yecl1_RQ As Date)
yecl1_ZY = Trim(yecl1_MC) '&&&& ???
Dim t_xfxm As String
t_xfxm = "余额"
Dim yyxm_rec As Recordset
Set yyxm_rec = PUB_data.OpenRecordset("SELECT * FROM " & Trim(yecl1_YYXM) & " WHERE TRIM(LBMC_ZW)='" & Trim(t_xfxm) & "' AND GWDM='" & SYS_GWDM & "'", 4, 0, 2)
If Not yyxm_rec.BOF Then
yyxm_rec.MoveLast
yecl1_R3 = Trim(yyxm_rec!LBDMA)
'? Dim t_jsdm As String
'? t_jsdm = yecl1_r1 + yecl1_r2 + yecl1_r3 + yecl1_r4 + "0"
'? do pub_hjfl with t_jsdm,yecl1_dfzh,yecl1_r1,yecl1_zy,yecl1_zdh,yecl1_bz,yecl1_ye,0,'',1,yecl1_rq
Else
yecl1_R3 = "*"
Call MsgBox("营业项目库异常出错 !")
End If
yyxm_rec.Close
End Sub
'**************************************************************************************************
'* 功 能 : 餐饮余额处理之一
'* 作 者 : 梁卫
'* 作成日期 : 1999.05.05
'* 修改日期 : 1999.05.05
'* 参数说明 : yecl_R1 -- (返回值)
'* yecl_R2 --
'* yecl_R4 --
'* yecl_R5 --
'* yecl_FKMC -- 付款名称 (返回值)
'* yecl_ZDH -- 帐单号
'* yecl_YE -- 余额
'* yecl_DFZH -- 帐号
'* yecl_BL -- 结算比例
'* yecl_YE1 -- 支票或信用卡 (返回值)
'* yecl_YYXM -- 营业项目库名
'* yecl_ZY -- 消费项目 (返回值)
'* yecl_RQ -- 结算日期
'**************************************************************************************************
Public Sub CT_YECL(yecl_R1, yecl_R2, yecl_R4, yecl_R5, yecl_FKMC, yecl_ZDH, yecl_YE, yecl_DFZH, yecl_BL, yecl_YE1, yecl_YYXM, yecl_ZY, yecl_RQ)
Dim yecl_id As String
Dim tit As String
yecl_YE1 = 0
yecl_ZY = "*"
yecl_FKMC = Trim(yecl_FKMC)
If Not (yecl_FKMC = "信用卡" Or yecl_FKMC = "支票" Or yecl_FKMC = "现金") Then
If yecl_FKMC = "支票+信用卡" Or yecl_FKMC = "支票+现金" Then
yecl_id = " 请输入支票金额:"
tit = "--支票登记"
Else
yecl_id = "请输入信用卡金额:"
tit = "--信用卡登记"
End If
Dim temp_ye1 As Double
temp_ye1 = InputBox(Trim(yecl_id), Trim(tit), 0)
Do While True
If IsNumeric(temp_ye1) Then
If CDec(temp_ye1) >= 0 And CDec(temp_ye1) < Abs(yecl_YE) Then
Exit Do
End If
End If
temp_ye1 = InputBox(Trim(yecl_id), Trim(tit), 0)
Loop
yecl_YE1 = CDec(temp_ye1)
End If
Dim temp_xfxm As String
temp_xfxm = "余额"
Dim yyxm_rec As Recordset
Set yyxm_rec = PUB_data.OpenRecordset("SELECT * FROM " & Trim(yecl_YYXM) & " WHERE GWDM='" & SYS_GWDM & "' AND TRIM(LBMC_ZW)='" & Trim(temp_xfxm) & "'", 4, 0, 2)
If Not yyxm_rec.BOF Then
yyxm_rec.MoveLast
Dim temp_r3 As String
temp_r3 = Trim(yyxm_rec!LBDMA)
Dim ctrl_rec As Recordset
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
yecl_R1 = Trim(ctrl_rec!BMJSDM)
yecl_ZY = Trim(ctrl_rec!XFXM_ZW)
If yecl_YE < 0 Then
yecl_YE1 = -Abs(yecl_YE1)
End If
'? t_jsdm = yecl_R1 + yecl_R2 + r3 + yecl_R4 + yecl_R5
'? do pub_hjfl with t_jsdm,yecl_DFZH,yecl_R1,yecl_ZY,yecl_ZDH,yecl_ZY,yecl_YE,yecl_YE1,'',yecl_BL,yecl_RQ
Else
Call MsgBox("SYS_CTRL.DBF 库异常出错 !")
End If
ctrl_rec.Close
Else
Call MsgBox("营业项目库异常出错 !")
End If
yyxm_rec.Close
End Sub
'**************************************************************************************************
'* 功 能 : 余额显示
'* 作 者 : 梁卫
'* 作成日期 : 1999.04.25
'* 修改日期 : 1999.04.25
'* 参数说明 : t_YE -- 余额
'* t_YE1 -- 余额1
'* t_FKMC -- 付款名称
'* t_XJ -- 现金
'* t_ZP -- 支票
'* t_XYK -- 信用卡
'* 返 回 值 : t_XJ -- 现金
'* t_ZP -- 支票
'* t_XYK -- 信用卡
'**************************************************************************************************
Public Sub CT_YEXS(t_YE As Double, t_ye1 As Double, t_FKMC As String, t_XJ As Double, t_ZP As Double, t_XYK As Double)
fm_yexs.XJ = t_XJ
fm_yexs.ZP = t_ZP
fm_yexs.XYK = t_XYK
Call fm_yexs.MAIN(t_FKMC, t_YE, t_ye1)
fm_yexs.Show (1)
t_XJ = fm_yexs.XJ
t_ZP = fm_yexs.ZP
t_XYK = fm_yexs.XYK
End Sub
'**************************************************************************************************
'* 功 能 : 设置餐厅参数表的冲正标记
'* 作 者 : 梁卫
'* 作成日期 : 1999.04.25
'* 修改日期 : 1999.04.25
'* 参数说明 : tzcz_gwdm -- 岗位代码
'* tzcz_rq -- 日期
'* tzcz_zh -- 帐号
'* tzcz_zdh -- 帐单号
'* tzcz_czbj -- 冲正标记
'**************************************************************************************************
Public Function PUB_TZCZ(tzcz_gwdm As String, tzcz_rq As String, tzcz_zh As String, tzcz_zdh As String, tzcz_czbj As String) As Boolean
PUB_data.Execute "UPDATE CT" & Trim(tzcz_zh) & " SET CZBJ='" & Trim(tzcz_czbj) & "' WHERE GWDM='" & Trim(tzcz_gwdm) & "' AND FSRQ=#" & CDate(tzcz_rq) & "# AND TRIM(ZH)='" & Trim(tzcz_zh) & "' AND TRIM(ZDH)='" & Trim(tzcz_zdh) & "' AND TRIM(CZBJ)='0'"
PUB_TZCZ = True
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -