Private Sub Form_Load()
On Error Resume Next

'Reservaciones

lblDate = "Fecha:" & Format(Now(), "dd/mm/yyyy")  Muestra la fecha actual
Establece el valor del cuadro de texto, con el valor de la variable publica del 
Formulario frmLogin: LoginUser_ID
RsvUsuario.Text = frmLogin.LoginUser_ID
Establece el valor de las etiquetas con los valores de las variables
LoginUser_ID, LoginUser_name y LoginUser_level
Label41.Caption = "Usuario: " & frmLogin.LoginUser_ID
Label1.Caption = "Usuario:" & frmLogin.LoginUser_name
RsvUserlevel.Caption = frmLogin.LoginUser_level
Se establece el valor de la propiedad DatabaseName, del Control Data
dbReservas
dbReservas.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbReservas.RecordsetType = 1
se establece el valor de la propiedad recordsource de manera que contenga
los registros de la tabla Reservaciones
dbReservas.RecordSource = "SELECT * FROM Reservaciones Order By Fecha"
dbReservas.Refresh
dbReservas.Recordset.MoveLast
Se establece el valor mostrado en el control Data dbReservas, de manera
que muestre el registro actual mostrado
dbReservas.Caption = dbReservas.Recordset.AbsolutePosition + 1 & "/" & dbReservas.Recordset.RecordCount

'Checa Pasajeros

Rfecha = dbReservas.Recordset.Fields("Fecha").Value
Rprog = dbReservas.Recordset.Fields("Actividad").Value
Rtime = dbReservas.Recordset.Fields("Hora").Value
Se ejecuta la rutina para calcular la cantidad de pasajeros  ocupados y libres para la fecha, servicio y hora de la reservacin mostrada en pantalla ver Cod. 15
Checa_pax Rfecha, Rprog, Rtime
'
'Formas de Pago
'
se llena el control Data dbPagos, con los registros de la tabla Fpagos
dbPagos.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbPagos.RecordsetType = 1
dbPagos.RecordSource = "Select * FROM Fpagos"
dbPagos.Refresh
'
'User Log
'
se llena el control Data dbUlog, con los registros de la tabla Userlog
dbUlog.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbUlog.RecordsetType = 1
dbUlog.RecordSource = "Select * FROM Userlog"
dbUlog.Refresh
'
'Canal de Ventas  Combo Box
'
se limpia los datos que contenga el Combo Box Rsvcventas
Rsvcventas.Clear
          se establece el control data dbCanales para que contenga los registros
	de la tabla CVentas
dbCanales.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbCanales.RecordsetType = 1
dbCanales.RecordSource = "Select CVIdent FROM CVentas"
dbCanales.Refresh
dbCanales.Recordset.MoveFirst
el ComboBox Rsvcventas se llena con los valores del campo CVIdent
de la tabla CVentas
   Do While Not dbCanales.Recordset.EOF
     Rsvcventas.AddItem dbCanales.Recordset.Fields("CVIdent").Value
     dbCanales.Recordset.MoveNext
   Loop
'
'Hoteles
'
se limpia los datos que contenga el ComboBox Rsvhotel
Rsvhotel.Clear
El control data dbHotel se llena con los datos de la tabla hoteles
dbHotel.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbHotel.RecordsetType = 1
dbHotel.RecordSource = "Select Hotel FROM Hoteles"
dbHotel.Refresh
el control data dbHotel se llena con los registros de la tabla Hoteles
dbHotel.Recordset.MoveFirst
   Do While Not dbHotel.Recordset.EOF
     Rsvhotel.AddItem dbHotel.Recordset.Fields("Hotel").Value
     dbHotel.Recordset.MoveNext
   Loop
'
'Flag Items
'
se establece la variable Reg_Saved como falso, que indica que el registro
no ha sido guardado.
Reg_Saved = False
 Se deshabilitan los controles necesarios
SSDateCombo1.Enabled = False
Rsvactiv.Enabled = False
Rsvhora.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Rsvnombre.Enabled = False
Rsvhotel.Enabled = False
Rsvtelefono.Enabled = False
Rsvhab.Enabled = False
Text1.Enabled = False
Rsvnotas.Enabled = False
Rsvcventas.Enabled = False
Rsvsventas.Enabled = False
RsvAgente.Enabled = False
Check1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
DispW.Enabled = False
SSDateCombo1.SetFocus
SendKeys "{HOME}"
End Sub
