pub_dt.bas

vb不酒店管理系统

    If Trim(tydj_yddh) = "" Then
        t_msg.Visible = True
        t_msg.Caption = "无效的预订单号 !"
    Else
        If Trim(tydj_yddh) <> "" Then
            Set ydd_rec = PUB_data.OpenRecordset("SELECT * FROM YD_YDDK WHERE TRIM(YDD_H)='" & Trim(tydj_yddh) & "'", 2, 0, 2)
            If Not ydd_rec.BOF Then
                ydd_rec.MoveLast
                
                If ydd_rec.Fields("LDRQ") < Date Then
                    t_msg.Visible = True
                    t_msg.Caption = "预订单的预离店日期为" & CStr(ydd_rec.Fields("LDRQ")) & "比今日日期早, 请作为无预订团队处理!"
                ElseIf ydd_rec.Fields("RZRQ") > Date Then
                    t_msg.Visible = True
                    t_msg.Caption = "客人的入住日期比预来店日期提前, 请作为无预订团队处理!"
                Else
                    
                    Do
                        yddk_lock = Pub_lock("PUBLIC", "YD_YDDK", ydd_rec)
                    Loop Until yddk_lock <> 0
                    
                    Select Case yddk_lock
                    Case 1
                        t_czlsh = Pub_czls(PUB_data, "DT_TYDJ", Time(), t_pub_code)
                        Dim tdqd_rec As Recordset  'DT_TDQD
                        Dim zy_rec As Recordset
                        Dim temp_lsh As Integer
                        Dim temp_fls As Variant
                        Dim temp_zh As String
                        
                        Dim temp_ok As Boolean
                        Dim LOCK_REC As Recordset
                        
                        ReDim temp_fls(SYS_LXN + 1) As Integer
                        For temp_i = 1 To SYS_LXN
                            temp_fls(temp_i) = 0
                        Next
                        
                        Set LOCK_REC = PUB_data.OpenRecordset("select * from SYS_LOCK", 2, 0, 2)
                        If Not LOCK_REC.BOF Then
                           LOCK_REC.MoveLast
                           LOCK_REC.MoveFirst
                        End If
                        LOCK_REC.FindFirst "TRIM(TABLENAME)='DT_TDQD'"
                        Do While LOCK_REC!CZY <> SYS_USER
                           If LOCK_REC!CZY = "***" Then
                              LOCK_REC.Edit
                                LOCK_REC!CZY = SYS_USER
                              LOCK_REC.Update
                           Else
                              Call t_tools.pub_msg("团队清单正被其他人使用，请稍后")
                              LOCK_REC.Requery
                              If Not LOCK_REC.BOF Then
                                   LOCK_REC.MoveLast
                                   LOCK_REC.MoveFirst
                              End If
                              LOCK_REC.FindFirst "TRIM(TABLENAME)='DT_TDQD'"
                           End If
                        Loop
                
                        temp_lsh = 1001
                        temp_ok = False
                        Set tdqd_rec = PUB_data.OpenRecordset("SELECT * FROM DT_TDQD", 2, 0, 2)
                        If Not tdqd_rec.BOF Then
                            tdqd_rec.MoveLast
                            
                            '生成团队号
                            Do While True
                                tdqd_rec.FindFirst "TRIM(ZH)='" & SYS_TD & Mid(Trim(Str(temp_lsh)), 2, 3) & "'"
                                If Not tdqd_rec.NoMatch Then
                                    temp_lsh = temp_lsh + 1
                                    If temp_lsh > 1999 Then
                                        temp_ok = False
                                        Exit Do
                                    End If
                                Else
                                    temp_ok = True
                                    Exit Do
                                End If
                            Loop
                        Else
                            temp_ok = True
                        End If
                        
                        If Not temp_ok Then
                            LOCK_REC.Edit
                            LOCK_REC!CZY = "***"
                            LOCK_REC.Update
                            LOCK_REC.Close
                            Call MsgBox("团队号已经超出系统所能承受的范围, 请与微机室人员联系!")
                        Else
                            t_czlsh = Pub_czls(PUB_data, "DT_TFDJ", Time(), pub_code)
                            tdqd_rec.AddNew
                                temp_zh = Trim(SYS_TD & Mid(Trim(Str(temp_lsh)), 2, 3))
                                tdqd_rec.Fields("ZH") = temp_zh
                                tdqd_rec.Fields("TDMC") = Trim(ydd_rec.Fields("TDMC"))
                                tdqd_rec.Fields("VIP_MC") = Trim(ydd_rec.Fields("VIP_DJ"))
                                tdqd_rec.Fields("RZRQ") = Date
                                tdqd_rec.Fields("RZSJ") = Time()
                                tdqd_rec.Fields("LDRQ") = ydd_rec.Fields("LDRQ")
                                tdqd_rec.Fields("KR_FL_S") = ydd_rec.Fields("KR_FL_S")
                                tdqd_rec.Fields("QP_FL_S") = ydd_rec.Fields("QP_FL_S")
                                tdqd_rec.Fields("DP_FL_S") = ydd_rec.Fields("DP_FL_S")
                                For temp_i = 1 To SYS_LXN
                                    tdqd_rec.Fields("DF_LX" & Trim(Str(temp_i))) = ydd_rec.Fields("DF_LX" & Trim(Str(temp_i)))
                                Next
                                
                                tdqd_rec.Fields("DF_JS") = 0
                                For temp_i = 1 To SYS_LXN
                                    tdqd_rec.Fields("DF_JS") = tdqd_rec.Fields("DF_JS") + ydd_rec.Fields("DF_LX" & Trim(Str(temp_i)))
                                Next
                                
                                tdqd_rec.Fields("CZY") = SYS_USER
                                tdqd_rec.Fields("DFY_DM") = ydd_rec.Fields("DFY_DM")
                                
                                tdqd_rec.Fields("GJDM") = ydd_rec.Fields("GJDM")
                                tdqd_rec.Fields("GJMC") = ydd_rec.Fields("GJMC")
                                tdqd_rec.Fields("YJ_FT") = ydd_rec.Fields("YJ_FT")
                                tdqd_rec.Fields("TSFW") = ydd_rec.Fields("TSFW")
                                tdqd_rec.Fields("KR_DJ") = 0
                                tdqd_rec.Fields("ZXFE") = 0
                                tdqd_rec.Fields("YE") = 0
                                tdqd_rec.Fields("KF_FZ") = 0
                                tdqd_rec.Fields("KF_FWF") = 0
                                tdqd_rec.Fields("ZKL") = 1
                                tdqd_rec.Fields("YDD_H") = Trim(tydj_yddh)
                                tdqd_rec.Fields("YDBC") = ydd_rec.Fields("YDBC")
                                tdqd_rec.Fields("YLBC") = ydd_rec.Fields("YLBC")
                                tdqd_rec.Fields("LDSJ") = ydd_rec.Fields("LDSJ")
                                tdqd_rec.Fields("SHXL_SJ") = ydd_rec.Fields("SHXL_SJ")
                                tdqd_rec.Fields("MFZC_FT") = "0"
                                tdqd_rec.Fields("ZCK_BZ") = 0
                                tdqd_rec.Fields("JSR") = "*"
                                tdqd_rec.Fields("RS") = ydd_rec.Fields("RS")
                                tdqd_rec.Fields("BDJDDW_MC") = ydd_rec.Fields("BDJDDW_MC")
                                tdqd_rec.Fields("MF_FJS") = 0
                                tdqd_rec.Fields("QDP_RS") = 0
                                tdqd_rec.Fields("KR_FL_J") = ydd_rec.Fields("KR_FL_J")
                                tdqd_rec.Fields("QP_FL_J") = ydd_rec.Fields("QP_FL_J")
                                tdqd_rec.Fields("DP_FL_J") = ydd_rec.Fields("DP_FL_J")
                                tdqd_rec.Fields("YJBL") = 0
                                tdqd_rec.Fields("JDY") = "*"
                                tdqd_rec.Fields("FKDW_MC") = ydd_rec.Fields("FKDW_MC")
                                tdqd_rec.Fields("FKZH") = ydd_rec.Fields("FKZH")
                                tdqd_rec.Fields("KHDM") = ydd_rec.Fields("KHDW")
                                tdqd_rec.Fields("YWDW_MC") = ydd_rec.Fields("YWDW_MC")
                                tdqd_rec.Fields("BZ") = ydd_rec.Fields("BZ")
                                tdqd_rec.Fields("LOCK_NO") = 0
                                
                            tdqd_rec.Update
                            LOCK_REC.Edit
                            LOCK_REC!CZY = "***"
                            LOCK_REC.Update
                            LOCK_REC.Close
                            
            '????                Set zy_rec = PUB_data.OpenRecordset("SELECT * FROM W" & Trim(SYS_TD & Mid(Trim(Str(temp_lsh)), 2, 3)), 2, 0, 2)
            '????                If Not zy_rec.BOF Then
            '????                    zy_rec.MoveLast
            '????                    zy_rec.MoveFirst
            '????                    '????把余下的帐页归档
            '????                End If
            '????                zy_rec.Close
                                           
                            Call dt_tddj.MAIN(Trim(SYS_TD & Mid(Trim(Str(temp_lsh)), 2, 3)), pub_code)
                            dt_tddj.Show (1)
                            
                            Call Pub_czle(PUB_data, t_czlsh, "团队有预订登记, 团队号: " & Trim(SYS_TD & Mid(Trim(Str(temp_lsh)), 2, 3)) & ",预订单号:" & tydj_yddh, Time(), pub_code)
                            dt_tdgl.tx_bjRT = 1
                    
                            If Not pub_yden(tydj_yddh, t_pub_code) Then
                                t_msg.Visible = True
                                t_msg.Caption = "预订单" + tydj_yddh + "归档有误"
                            End If
                        End If
                    Case 2
                        t_msg.Visible = True
                        t_msg.Caption = "预定单" & tydj_yddh & "已被归档"
                    End Select
                
                    Call Pub_UNlock("YD_YDDK", ydd_rec)
                End If
            End If
            ydd_rec.Close
        
        End If
    
    End If

End Sub