Private Sub Rsvhora_LostFocus()
Se llama a la rutina para checar pasajeros, ver cdigo frmReservas-Checa_pax.txt
Checa_pax Left(SSDateCombo1.DateValue, 10), Rsvactiv.Text, Rsvhora.Text
Calcula cual es la cantidad de pasajeros libres iniciales y disponibilidad total inicial para la fecha, servicio y hora de la reservacin de manera de que cuando se llegue a los cuadros de texto Text5 y Text6,  que son donde se captura los pasajeros adultos y menores de la reservacin, se recalcula cual es la cantidad de libres finales y en base a la disponibilidad total inicial, calcule cuantos espacios estn ocupados para dicho servicio, fecha y hora.
LibresInicial = Val(Rsvlibres) + Val(Text5) + Val(Text6)
DisponibilidadInicial = Val(Rsvlibres) + Val(Rsvocup)
End Sub
