Private Sub Command13_Click()
'
'Numero de Confirmacin x Cancelaciones
'
Dim DiaTour As String
Dim MesTour As String
Dim AoTour As String
Dim FechaTour As String
Dim CausaySolicitaCancelacion As String
FechaTour = Format(SSDateCombo1.DateValue, "MM/DD/YY")
    
  Se inicia el valor de una variable que se va a insertar en la tabla Userlog
CausaySolicitaCancelacion = "Cancelacion"
Si el texto que se encuentra en el cuadro Rccausa es diferente a el valor
inicial de la variable CausaCancelacionInicial, entonces la variable
CausaySolicitaCancelacion, cambia al nuevo valor
If CausaCancelacionInicial <> Rccausa Then
    CausaySolicitaCancelacion = CausaySolicitaCancelacion & "Causa:" & Rccausa & ","
End If
Si el texto que se encuentra en el cuadro Rcsolicito es diferente a el valor
inicial de la variable SolicitoCancelacionInicial, entonces la variable
CausaySolicitaCancelacion, se le aade el cambio en Rcsolicito
If SolicitoCancelacionInicial <> Rcsolicito Then
    CausaySolicitaCancelacion = CausaySolicitaCancelacion & "Solicita.:" & Rcsolicito
End If
Si la variableCausaySolicitaCancelacion es diferente a la cadena:
Cancelacion, entonces hubo algn cambio en los cuadro Rccausa y
Rcsolicito, y se requiere generar un nmero de cancelacin, si no se ha
generado y aadir un registro a la tabla Userlog, especificando los cambios
If CausaySolicitaCancelacion <> "Cancelacion " Then
dbNConfirma.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbNConfirma.RecordsetType = 1
Busca el registro en tabla NConfirma, donde la fecha sea igual a la del tour
dbNConfirma.RecordSource = "Select * FROM NConfirma WHERE MConfirma=#" & FechaTour & "#"
dbNConfirma.Refresh
dbNConfirma.Recordset.MoveFirst
si el cuadro de texto Rcconfirma, ya no tiene un nmero de cancelacin, es
decir primera vez que se entra a cancelar la reservacin, entonces aade
uno al valor del campo CancelN
If Len(Rcconfirma.Text) = 0 Then
NCancel = dbNConfirma.Recordset.Fields("CancelN").Value
NCancel = NCancel + 1
dbNConfirma.Recordset.Edit
dbNConfirma.Recordset.Fields("CancelN").Value = NCancel
dbNConfirma.Recordset.Update
dbNConfirma.Refresh
Se aade a los cuadro de texto Rcfecha y Rchora, la fecha y hora en que se
esta haciendo la cancelacin
Rcfecha.Text = Format(Now(), "dd/mm/yy")
Rcfecha.Enabled = False
Rchora.Text = Format(Now(), "hh:mm:ss ampm")
Rchora.Enabled = False
El cuadro de Texto Rcconnfirma toma el valor del nmero de cancelacin, 
generado segn el siguiente patrn: los caracteres CLD-, las dos primeras
letras del usuario, el da y mes de la reservacin, y el consecutivo de
cancelaciones
Rcconfirma.Text = "CLD-" & Mid(frmLogin.LoginUser_ID, 1, 2) & "-" & Mid(SSDateCombo1.Text, 1, 2) & Mid(SSDateCombo1.Text, 4, 2) & Format(NCancel, "00")
Se agrega un registro a la tabla Userlog, con los cambios realizados en los
cuadros de texto Rccausa y Rcsolicito
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 = Left(CausaySolicitaCancelacion & "," & Rcconfirma, 80)
dbUlog.Recordset.Update
dbUlog.Refresh
Else
Si ya se haba cancelado esta reservacin, se aade un registro a la tabla 
Userlog con los cambios realizados en los cuadros de texto Rccausa y
Rcsolicito
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 = Left(CausaySolicitaCancelacion, 80)
dbUlog.Recordset.Update
dbUlog.Refresh
End If
dbReservas.Recordset.Edit
dbReservas.Recordset.Update
End If
Al hacer realizar una cancelacin de una reservacin es necesario, 
convocar a la rutina Checa_pax, para que se actualice los cuadros de texto
Ocupados y Libres
Checa_pax Left(SSDateCombo1.DateValue, 10), Rsvactiv.Text, Rsvhora.Text
Se oculta el marco de Cancelacin y se inhabilitan los botones innecesarios
frameCancrsv.Visible = False
Command1.Enabled = True
cmdModificar.Enabled = True
Command12.Enabled = True
Command15.Enabled = True
cmdRreservas.Enabled = True
cmdConsulta.Enabled = True
Hotel.Enabled = True
cmdVendedores.Enabled = True
cmdSalir.Enabled = True
End Sub
