Private Sub cmdModificar_Click()
Checar si se ha pagado esta reservacin
If dbReservas.Recordset.Fields("Pagado").Value <> False Then
   MsgBox "Reservacin con pago aplicado...", vbCritical, "Cambios a Reservaciones..."
   Exit Sub
End If
  Calcula los pasajeros Libres Inicial para este servicio, fecha y hora. Calcula la disponibilidad total para este servicio, fecha y hora
LibresInicial = Val(Rsvlibres) + Val(Text5) + Val(Text6)
DisponibilidadInicial = Val(Rsvlibres) + Val(Rsvocup)

Habilita los controles necesarios para hacer la modificacin y deshabilita los
botones que no se deben de usar mientras se hace una modificacin
SSDateCombo1.Enabled = False
Rsvactiv.Enabled = True
Rsvhora.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Rsvnombre.Enabled = True
Rsvhotel.Enabled = True
Rsvtelefono.Enabled = True
Rsvhab.Enabled = True
Text1.Enabled = True
Rsvnotas.Enabled = True
Rsvcventas.Enabled = True
Rsvsventas.Enabled = True
RsvAgente.Enabled = True
Check1.Enabled = True
Command1.Enabled = False
cmdModificar.Enabled = False
Command2.Enabled = False
Command4.Enabled = False
Command12.Enabled = False
Command15.Enabled = False
cmdVendedores.Enabled = False
Command3.Enabled = True
Hotel.Enabled = False
cmdRreservas.Enabled = False
cmdSalir.Enabled = False
SSDBData1.Enabled = False
'Asigna valores a las variables
ActividadInicial = Rsvactiv
HoraInicial = Rsvhora
PaxAdultoInicial = Text5
PaxMenorInicial = Text6
NombreInicial = Rsvnombre
HotelInicial = Rsvhotel
HabitacionInicial = Rsvhab
CuponInicial = Text1
NotasInicial = Rsvnotas
CanalInicial = Rsvcventas
SubCanalInicial = Rsvsventas
VendedorInicial = RsvAgente
Llena el ComboBox Rsvactiv, con los datos de la tabla Servicios
dbServicios.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbServicios.RecordsetType = 1
dbServicios.RecordSource = "Select IIdent FROM Servicios"
dbServicios.Refresh
dbServicios.Recordset.MoveFirst
   Do While Not dbServicios.Recordset.EOF
     Rsvactiv.AddItem dbServicios.Recordset.Fields("IIdent").Value
     dbServicios.Recordset.MoveNext
   Loop
Rsvactiv.Text = ActividadInicial
HoraReserva.Text = Format(Now(), "HH:MM:SS ampm")
Adiciona un registro a la tabla Userlog, con el valor en Actividad de: Modificar Reservacion
dbUlog.Recordset.AddNew
dbUlog.Recordset.Fields("Confirmacion").Value = Rsvnconfirma.Text
dbUlog.Recordset.Fields("Computadora").Value = FindComputerName
dbUlog.Recordset.Fields("UsuarioWindows").Value = FindUserName
dbUlog.Recordset.Fields("UsuarioSicres").Value = RsvUsuario.Text
dbUlog.Recordset.Fields("Fecha").Value = Format(Now(), "dd/mm/yyyy")
dbUlog.Recordset.Fields("Hora").Value = Format(Now(), "HH:MM:SS")
dbUlog.Recordset.Fields("Actividad").Value = "Modificar Reservacion"
dbUlog.Recordset.Update
dbUlog.Refresh
End Sub
