Sub Checa_pax(ByVal Rfecha As String, ByVal Rprog As String, ByVal Rtime As String)
Dim TPaxOcupados As Integer
Dim PaxDisp As Integer
Dim TPad As Integer
Dim Tpcmenor As Integer
Dim Tpcad As Integer
Dim Tpccmenor As Integer
Dim DiaTour As String
Dim MesTour As String
Dim AoTour As String
Dim FechaTour As String



    DiaTour = Mid(Rfecha, 4, 2)
    
    MesTour = Left(Rfecha, 2)

    AoTour = Right(Rfecha, 4)

    FechaTour = DiaTour & "/" & MesTour & "/" & AoTour

On Error GoTo Disponibilidad
If Len(Rfecha) = 0 Or Len(Rprog) = 0 Or Len(Rtime) = 0 Then
   Exit Sub
End If
If InStr(Rtime, ",") <> 0 Then
   Exit Sub
End If
'Verifica Paxes Al abrir frmReservas y al Desplazar Registros con DATA Control

' Query a Resevaciones No. Pax

dbQuery.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbQuery.RecordsetType = 1
SQL = "SELECT [Pax_adulto],[Pax_cmenor],[Cancelpadulto],[Cancelpmenor] FROM Reservaciones WHERE Fecha=#" & FechaTour & "# AND Actividad='" & Rprog & "' AND Hora='" & Rtime & "'"
dbQuery.RecordSource = SQL
dbQuery.Refresh
dbQuery.Recordset.MoveFirst
   Do While Not dbQuery.Recordset.EOF
     'Reservaciones Normales
     TPad = TPad + dbQuery.Recordset.Fields("Pax_adulto").Value
     Tpcmenor = Tpcmenor + dbQuery.Recordset.Fields("Pax_cmenor").Value
     Tpcad = Tpcad + dbQuery.Recordset.Fields("Cancelpadulto").Value
     Tpccmenor = Tpccmenor + dbQuery.Recordset.Fields("Cancelpmenor").Value
     dbQuery.Recordset.MoveNext
   Loop
dbQuery.Recordset.Close

dbDisponibilidad.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbDisponibilidad.RecordsetType = 1
dbDisponibilidad.RecordSource = "Select IIdent, ICapacidad FROM Servicios WHERE IIDent='" & Rsvactiv.Text & "' AND Hora ='" & Rsvhora.Text & "'"
dbDisponibilidad.Refresh
dbDisponibilidad.Recordset.MoveFirst
PaxDisp = dbDisponibilidad.Recordset.Fields("ICapacidad").Value

dbDisponibilidad.Recordset.Close

ConfirmDisp = PaxDisp
Rsvlibres.Text = PaxDisp - ((TPad + Tpcmenor) - (Tpcad + Tpccmenor)) ' - (Val(Text5.Text) + Val(Text6.Text))
Rsvocup.Text = (TPad + Tpcmenor) - (Tpcad + Tpccmenor) ' + (Val(Text5.Text) + Val(Text6.Text))

Disponibilidad:
dbDisponibilidad.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbDisponibilidad.RecordsetType = 1
dbDisponibilidad.RecordSource = "Select IIdent, ICapacidad FROM Servicios WHERE IIDent='" & Rsvactiv.Text & "' AND Hora ='" & Rsvhora.Text & "'"
dbDisponibilidad.Refresh
dbDisponibilidad.Recordset.MoveFirst
PaxDisp = dbDisponibilidad.Recordset.Fields("ICapacidad").Value
dbDisponibilidad.Recordset.Close
ConfirmDisp = PaxDisp
Rsvlibres.Text = PaxDisp - ((TPad + Tpcmenor) - (Tpcad + Tpccmenor)) ' - (Val(Text5.Text) + Val(Text6.Text))
Rsvocup.Text = (TPad + Tpcmenor) - (Tpcad + Tpccmenor) ' + (Val(Text5.Text) + Val(Text6.Text))
End Sub
