ct_ybcz.frm

vb不酒店管理系统

        
        t_jsdm = Trim(czxc_r1) & Trim(czxc_r2) & Trim(czxc_r3) & Trim(czxc_r4) & Trim(czxc_r5)
        
        If czxc_ye <> 0 And Trim(czxc_fkmc) <> "现金" And Len(Trim(czxc_fkmc)) <> 0 Then
'????            do zw_zpdj with t_jsdm,czxc_fkmc,czxc_ye,czxc_ye1,czxc_czh," ",czxc_zy,czxc_rq
        End If
    End If
    
    Dim czxc_dfzh As String
    czxc_dfzh = "*"
    
    Call CT_KZGD1(Trim(czxc_lsk), Trim(czxc_czh), Trim(czxc_lbk), Trim(czxc_jsmc), Trim(czxc_fkmc), Trim(czxc_dfzh), Trim(czxc_hzk), Trim(czxc_r2), Trim(czxc_r5), czxc_yjsr, Trim(czxc_yzdh), czxc_rq, czxc_sj, "1")
    
    ct_czxcj = True

End Function


'***************************************************************************************
'*   --  免费早餐卡结算  的  台帐恢复
'***************************************************************************************
Private Function ct_czmfj(czmf_dfzh As String, czmf_fkmc As String, czmf_r5 As String, czmf_mfck As Integer, czmf_yhq As Integer, czmf_jsmc As String, czmf_r2 As String, czmf_lsk As String, czmf_hzk As String, czmf_lbk As String, czmf_hj As Double, czmf_yyxm As String, czmf_r1 As String, czmf_czh As String, czmf_fwf As Double, czmf_fjf As Double, czmf_jsf As Double, czmf_bz As String, czmf_yjsr As Date, czmf_yzdh As String) As Boolean

    ct_czmfj = False
        
    Dim czmf_rq As Date
    Dim czmf_sj As String
    czmf_rq = Date
    czmf_sj = Time()
    
    Dim czmf_mfje1 As Double
    Dim czmf_zckbz As Double
    Dim czmf_zckct As Double
    
    Dim lbk_rec As Recordset    '临时列表记录集
    Set lbk_rec = LOCAL_data.OpenRecordset("SELECT * FROM " & Trim(czmf_lbk), 2, 0, 2)
    If Not lbk_rec.BOF Then
        lbk_rec.MoveLast
    End If
    
    czmf_mfje1 = lbk_rec!mfck_hj
    czmf_zckbz = lbk_rec!mfck_hj
    czmf_zckct = lbk_rec!mfck_ct
    
    lbk_rec.Close
    
    If Abs(czmf_mfck) > 0 Then
        Call MsgBox("原客人应交回免费早餐卡 " & Trim(Str(Abs(czmf_mfck))) & "张 !")
        
        Do While True
            dt_zck.ZH = Trim(czmf_dfzh)
            dt_zck.ZCKBZ = 0
            dt_zck.MAIN "发放", ""
            dt_zck.Show (1)
            czmf_zckbz = dt_zck.ZCKBZ
            
            If czmf_zckbz <> 0 Then
                Exit Do
            End If
            Call MsgBox("应该填写回收数量 !")
        Loop
        
        czmf_r4 = "1"
        
'?        t_xfxm = "免费早餐卡"
'?        do ct_dxcl with t_xfxm,czmf_yyxm,r1,czmf_r2,czmf_r4,'0',czmf_yzdh,czmf_hj,1," ",mfjs_rq
        
        Call CT_KZGD1(Trim(czmf_lsk), Trim(czmf_czh), Trim(czmf_lbk), Trim(czmf_jsmc), Trim(czmf_fkmc), Trim(czmf_dfzh), Trim(czmf_hzk), Trim(czmf_r2), Trim(czmf_r5), pub_yjsr, Trim(czmf_yzdh), czmf_rq, czmf_sj, "1")
        
        ct_czmfj = True
    
    End If

End Function


'***************************************************************************************
'*   --  挂帐结算  的  台帐恢复
'***************************************************************************************
Private Function ct_czgzj(czgz_dfzh As String, czgz_mfck As Integer, czgz_yhq As Integer, czgz_hj As Double, czgz_jsmc As String, czgz_r2 As String, czgz_r1 As String, czgz_fkmc As String, czgz_r5 As String, czgz_lsk As String, czgz_hzk As String, czgz_lbk As String, czgz_yyxm As String, czgz_czh As String, czgz_fwf As Double, czgz_fjf As Double, czgz_jsf As Double, czgz_bz As String, czgz_yjsr As Date, czgz_yzdh As String, czgz_r3 As String, czgz_mc As String) As Boolean
    
    ct_czgzj = False
    
    Dim czgz_rq As Date
    Dim czgz_sj As String
    czgz_rq = Date
    czgz_sj = Time()
    
    Dim temp_zhk As String
    Dim temp_gdk As String
    
    temp_zhk = ""
    temp_gdk = ""
    
    Dim temp_YN As Boolean
    Dim temp_ft As Boolean
    Dim temp_qr As Boolean
    Dim temp_hftz As Boolean
    
    temp_YN = False
    temp_ft = False
    
    temp_qr = ZW_ZHQR(Trim(czgz_dfzh), temp_YN, Trim(temp_zhk), Trim(temp_gdk), temp_ft, czgz_rq)
    temp_hftz = False
    If Not temp_ft Or Not temp_YN Or (Not temp_qr) Then
        If InStr(SYS_SK, Left(Trim(czgz_dfzh), 1)) <> 0 Or InStr(SYS_TD, Left(czgz_dfzh, 1)) <> 0 Then
            Call MsgBox("该客人已离店,只做恢复台帐处理")
            temp_hftz = True
        Else
            If Not temp_ft Then
                Call mgbox("该帐号" + czgz_dfzh + "已不存在")
            End If
            
            If Not temp_YN Then
                Call MsgBox("该帐号" + czgz_dfzh + "已被占用")
            End If
          
'????          if .not. zw_jlkz(czgz_dfzh,(sys_user))
'????             return .f.
'???          End If
        End If
    End If
    
    
    Dim czgz_mfje1 As Double
    Dim czgz_mfje2 As Double
    Dim czgz_ye As Double
    
    Dim czgz_zckbz As Double
    Dim czgz_zckct As Double
    Dim czgz_zckkf As Double
    
    Dim lbk_rec As Recordset    '临时列表记录集
    Set lbk_rec = LOCAL_data.OpenRecordset("SELECT * FROM " & Trim(czgz_lbk), 2, 0, 2)
    If Not lbk_rec.BOF Then
        lbk_rec.MoveLast
    End If
    czgz_mfje1 = lbk_rec!mfck_hj
    czgz_zckbz = lbk_rec!mfck_hj
    czgz_zckct = lbk_rec!mfck_ct
    czgz_zckkf = czgz_zckbz - czgz_zckct
    czgz_mfje2 = czgz_yhq * SYS_YHQBZ
    czgz_ye = czgz_hj - czgz_mfje1 - czgz_mfje2
    lbk_rec.Close
    
    If Abs(czgz_mfje1 + czgz_mfje2) > Abs(czgz_hj) Then
        If Abs(czgz_mfje2) > Abs(czgz_ye) Then
            czgz_mfje2 = czgz_mfje2 + czgz_ye
        Else
            czgz_mfje2 = 0
        End If
        czgz_ye = czgz_hj - czgz_mfje1 - czgz_mfje2
        If czgz_mfje2 = 0 And (Abs(czgz_mfje1) > Abs(czgz_hj)) Then
            czgz_mfje1 = czgz_mfje1 + czgz_ye
            czgz_ye = 0
       End If
    End If
    
    Dim czgz_r4 As String
    Dim czgz_bl As Single
    
    czgz_r4 = "1"
    czgz_bl = 1
    
'?    do ct_fxcl with czgz_hzk,czgz_yyxm,czgz_r1,czgz_r2,czgz_r4,czgz_bl,czgz_czh,czgz_bz,czgz_rq
    
    Dim czgz_xfxm As String
    If Abs(czgz_mfje1) > 0 Then
        czgz_xfxm = "免费早餐卡"
'?       do ct_dxcl with czgz_xfxm,czgz_yyxm,czgz_r1,czgz_r2,czgz_r4,'0', czgz_czh,czgz_mfje1,1,czgz_bz,czgz_rq
    End If
    
    If Abs(czgz_mfje2) > 0 Then
       czgz_xfxm = "优惠券"
'?       do ct_dxcl with czgz_xfxm,czgz_yyxm,czgz_r1,czgz_r2,czgz_r4,'0', czgz_czh,czgz_mfje2,1,czgz_bz,czgz_rq
    End If
    
    czgz_fwje = czgz_fwf + czgz_fjf + czgz_jsf
    
    If Abs(czgz_fwje) > 0 Then
       czgz_xfxm = "服务费"
'?       do ct_dxcl with czgz_xfxm,czgz_yyxm,czgz_r1,czgz_r2,czgz_r4,'0',czgz_czh,czgz_fwje,1,czgz_bz,czgz_rq
    End If
    
    Dim czgz_zy As String
    czgz_zy = "*"
    
    If Abs(czgz_ye) > 0 Then
       czgz_zy = "*"
       czgz_r3 = "00"
       Call CT_YECL1(Trim(czgz_yyxm), Trim(czgz_r1), Trim(czgz_r2), "1", Trim(czgz_dfzh), Trim(czgz_czh), czgz_ye, Trim(czgz_zy), Trim(czgz_mc), Trim(czgz_r3), Trim(czgz_bz), czgz_rq)
    End If
    
    If Not temp_hftz And Abs(czgz_ye) > 0 Then
        Dim temp_jsdm As String
        temp_jsdm = Trim(czgz_r1) & Trim(czgz_r2) & Trim(czgz_r3) & Trim(czgz_r4) & "0"
'????        Call ZW_KZDJ(Trim(temp_jsdm), Trim(czgz_zy), Trim(czgz_dfzh), Date, czgz_ye, Trim(czgz_czh), Trim(czgz_bz), Trim(temp_zhk), "1", "*", 1)
       
        '设置帐页中的该记录的冲正标记 为 真    CZBJ='1'
        PUB_data.Execute "UPDATE W" & Trim(czgz_dfzh) & " SET CZBJ='1' WHERE TRIM(ZY)='" & Trim(czgz_zy) & "' AND FSRQ=#" & czgz_yjsr & "# AND JFFSE=ABS(" & czgz_ye & ")"
       
        Call CT_FLCS(Trim(czgz_hzk), Trim(czgz_dfzh), Trim(czgz_czh), Trim(czgz_yyxm), czgz_fwje, czgz_mfje1, czgz_mfje2, czgz_yjsr, "1")
    End If
    
    If temp_hftz Then
        Call MsgBox("原客人已付 " & Format(Abs(czgz_ye), "#,##0") & "元")
        If Abs(czgz_mfck) > 0 Then
            Call MsgBox("原客人交回免费早餐卡" & Format(Abs(czgz_mfck), "#,##0") & "张")
        End If
        If Abs(czgz_yhq) > 0 Then
            Call MsgBox("原客人交回优惠券" & Format(Abs(czgz_yhq), "#,##0") & "张")
       End If
       Call MsgBox("请通过特种应收款处理或长短款处理功能作处理")
    End If
    Call CT_KZGD1(Trim(czgz_lsk), Trim(czgz_czh), Trim(czgz_lbk), Trim(czgz_jsmc), Trim(czgz_fkmc), Trim(czgz_dfzh), Trim(czgz_hzk), Trim(czgz_r2), Trim(czgz_r5), czgz_yjsr, Trim(czgz_yzdh), czgz_rq, czgz_sj, "1")
    
    ct_czgzj = True

End Function


'***************************************************************************************
'*   --  全部报帐结算  的  台帐恢复  (同 挂帐结算 雷同)
'***************************************************************************************
Private Function ct_czbzj(czbz_dfzh As String, czbz_mfck As Integer, czbz_yhq As Integer, czbz_hj As Double, czbz_jsmc As String, czbz_r2 As String, czbz_r1 As String, czbz_fkmc As String, czbz_r5 As String, czbz_lsk As String, czbz_hzk As String, czbz_lbk As String, czbz_yyxm As String, czbz_czh As String, czbz_fwf As Double, czbz_fjf As Double, czbz_jsf As Double, czbz_bz As String, czbz_yjsr As Date, czbz_yzdh As String, czbz_r3 As String, czbz_mc As String) As Boolean
    
    ct_czbzj = False
    
    Dim czbz_rq As Date
    Dim czbz_sj As String
    czbz_rq = Date
    czbz_sj = Time()
    
    czbz_r5 = "0"
    
    Dim temp_zhk As String
    Dim temp_gdk As String
    
    temp_zhk = ""
    temp_gdk = ""
    
    Dim temp_YN As Boolean
    Dim temp_ft As Boolean
    Dim temp_qr As Boolean
    
    temp_YN = False
    temp_ft = False
    
    temp_qr = ZW_ZHQR(Trim(czbz_dfzh), temp_YN, Trim(temp_zhk), Trim(temp_gdk), temp_ft, czbz_rq)
    
    If Not temp_qr Then
        Exit Function
    End If
    
      If Not temp_ft Then
          Call mgbox("该帐号" + czbz_dfzh + "已不存在")
      End If
      
      If Not temp_YN Then
          Call MsgBox("该帐号" + czbz_dfzh + "已被占用")
      End If
    
'????          if .not. zw_jlkz(czbz_dfzh,(sys_user))
'????             return .f.
'????          End If
    
    
    Dim czbz_mfje1 As Double
    Dim czbz_mfje2 As Double
    Dim czbz_ye As Double
    
    Dim czbz_zckbz As Double
    Dim czbz_zckct As Double
    Dim czbz_zckkf As Double
    
    Dim lbk_rec As Recordset    '临时列表记录集
    Set lbk_rec = LOCAL_data.OpenRecordset("SELECT * FROM " & Trim(czbz_lbk), 2, 0, 2)
    If Not lbk_rec.BOF Then
        lbk_rec.MoveLast
    End If
    czbz_mfje1 = lbk_rec!mfck_hj
    czbz_zckbz = lbk_rec!mfck_hj
    czbz_zckct = lbk_rec!mfck_ct
    czbz_zckkf = czbz_zckbz - czbz_zckct
    czbz_mfje2 = czbz_yhq * SYS_YHQBZ
    czbz_ye = czbz_hj - czbz_mfje1 - czbz_mfje2
    lbk_rec.Close
    
    If Abs(czbz_mfje1 + czbz_mfje2) > Abs(czbz_hj) Then
        If Abs(czbz_mfje2) > Abs(czbz_ye) Then
            czbz_mfje2 = czbz_mfje2 + czbz_ye
        Else
            czbz_mfje2 = 0
        End If
        czbz_ye = czbz_hj - czbz_mfje1 - czbz_mfje2
        If czbz_mfje2 = 0 And (Abs(czbz_mfje1) > Abs(czbz_hj)) Then
            czbz_mfje1 = czbz_mfje1 + czbz_ye
            czbz_ye = 0
       End If
    End If
    
    Dim hzk_rec As Recordset
    Dim czbz_sjf As Double
    Dim czbz_pcf As Double
    
    Set hzk_rec = LOCAL_data.OpenRecordset("SELECT * FROM " & Trim(czbz_hzk) & " WHERE TRIM(LBMC_ZW)='司机费'", 2, 0, 2)
    If Not hzk_rec.BOF Then
        hzk_rec.MoveLast
        czbz_sjf = hzk_rec!SJJE
    Else
        czbz_sjf = 0
    End If
    hzk_rec.Close
    
    Set hzk_rec = LOCAL_data.OpenRecordset("SELECT * FROM " & Trim(czbz_hzk) & " WHERE TRIM(LBMC_ZW)='赔偿费'", 2, 0, 2)
    If Not hzk_rec.BOF Then
        hzk_rec.MoveLast
        czbz_pcf = hzk_rec!SJJE
    Else
        czbz_pcf = 0
    End If
    hzk_rec.Close
    
    Dim czbz_bzje As Double
    czbz_bzje = czbz_ye
    
    
    Dim czbz_r4 As String
    Dim czbz_bl As Single
    
    czbz_r4 = "1"
    czbz_bl = (czbz_bzje - czbz_sjf - czbz_pcf) / (czbz_hj - czbz_sjf - czbz_pcf)
    
'?    do ct_fxcl with czbz_hzk,czbz_yyxm,czbz_r1,czbz_r2,czbz_r4,czbz_bl,czbz_czh,czbz_bz,czbz_rq
    
    Dim czbz_xfxm As String
    If Abs(czbz_mfje1) > 0 Then
        czbz_xfxm = "免费早餐卡"
'?       do ct_dxcl with czbz_xfxm,czbz_yyxm,czbz_r1,czbz_r2,czbz_r4,'0', czbz_czh,czbz_mfje1,1,czbz_bz,czbz_rq
    End If
    
    If Abs(czbz_mfje2) > 0 Then
       czbz_xfxm = "优惠券"
'?       do ct_dxcl with czbz_xfxm,czbz_yyxm,czbz_r1,czbz_r2,czbz_r4,'0', czbz_czh,czbz_mfje2,1,czbz_bz,czbz_rq
    End If
    
    czbz_fwje = czbz_fwf + czbz_fjf + czbz_jsf
    
    If Abs(czbz_fwje) > 0 Then
       czbz_xfxm = "服务费"
'?       do ct_dxcl with czbz_xfxm,czbz_yyxm,czbz_r1,czbz_r2,czbz_r4,'0',czbz_czh,czbz_fwje,1,czbz_bz,czbz_rq
    End If
    
    Dim czbz_zy As String
    czbz_zy = "*"
    
    If Abs(czbz_ye) > 0 Then
        czbz_zy = "*"
        czbz_r3 = "00"
        Call CT_YECL1(Trim(czbz_yyxm), Trim(czbz_r1), Trim(czbz_r2), "1", Trim(czbz_dfzh), Trim(czbz_czh), czbz_ye, Trim(czbz_zy), Trim(czbz_mc), Trim(czbz_r3), Trim(czbz_bz), czbz_rq)
        
        Dim temp_jsdm As String
        temp_jsdm = Trim(czbz_r1) & Trim(czbz_r2) & Trim(czbz_r3) & Trim(czbz_r4) & "0"
'????        Call ZW_KZDJ(Trim(temp_jsdm), Trim(czbz_zy), Trim(czbz_dfzh), Date, czbz_ye, Trim(czbz_czh), Trim(czbz_bz), Trim(temp_zhk), "1", "*", 1)
       
        '设置帐页中的该记录的冲正标记 为 真    CZBJ='1'
        PUB_data.Execute "UPDATE W" & Trim(czbz_dfzh) & " SET CZBJ='1' WHERE TRIM(ZY)='" & Trim(czbz_zy) & "' AND FSRQ=#" & czbz_yjsr & "# AND TRIM(PZH)='" & Trim(czbz_yzdh) & "'"
       
        Call CT_FLCS(Trim(czbz_hzk), Trim(czbz_dfzh), Trim(czbz_czh), Trim(czbz_yyxm), czbz_fwje, czbz_mfje1, czbz_mfje2, czbz_yjsr, "1")
    End If
    
    Call CT_KZGD1(Trim(czbz_lsk), Trim(czbz_czh), Trim(czbz_lbk), Trim(czbz_jsmc), Trim(czbz_fkmc), Trim(czbz_dfzh), Trim(czbz_hzk), Trim(czbz_r2), Trim(czbz_r5), czbz_yjsr, Trim(czbz_yzdh), czbz_rq, czbz_sj, "1")
    
    ct_czbzj = True

End Function