Private Sub cmdQuit_Click()
Dim dbName As String
Dim conn As ADODB.Connection
Dim SiguienteFolio As Long
Dim FechaTour As String
Dim DiaTour As String
Dim MesTour As String
Dim MesTourLetras As String
Dim AoTour As String
Dim Brazaletes As Integer
Dim strSelect As String
Dim NumeroConfirmacion As String
Dim ActividadTour As String
Dim HoraTour As String
Dim ClienteTour As String
Dim CuponTour As String
Dim HotelTour As String
Dim HabitacionTour As String
Dim PaxAdultoTour As Integer
Dim PaxMenorTour As Integer
Dim Tarifa As String
Dim TipoCambio As String
Dim Canal As String
Dim SubCanal As String
Dim AgenteTour As String
Dim Usuario As String
Dim rep As Integer
Dim rep2 As Integer
Dim Cols As Columns
Dim c As Column
Dim TextoOriginal As String
Dim ActualizaReservacion As String

FechaTour = frmPagoTour.txtFecha
NumeroConfirmacion = frmPagoTour.txtConfirmacion
ActividadTour = frmPagoTour.ComboActividad
HoraTour = frmPagoTour.txtHora
Usuario = RsvUsuario.Text
Inserta un nuevo Folio de Pago en la tabla Cash_flow Nuevo
rcds.Open "select max([CFNFolio]) as [UltimoFolio] from [Cash_flow Nuevo]", db
        SiguienteFolio = rcds![UltimoFolio] + 1
rcds.Close
        dbName = frmMain.Ap_Path & frmMain.dbName
        Set conn = New ADODB.Connection
    conn.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & dbName & ";" & _
        "Persist Security Info=False"
    conn.Open
Inserta el datalle de pago en la tabla Cash-flow Nuevo.    
conn.Execute ("Insert into [Cash_flow Nuevo] (CFNFolio,CFNConfirma,CFFechaMovto,CFCPago,CFFPago,CFCupon,CFTarifa,CFPaxAdulto,CFPaxMenor,CFImporte,CFTipoCambio,CFPorcentajeComision,CFFacturado,CFUser) Select '" & SiguienteFolio & "' As Folio, '" & NumeroConfirmacion & "' As NumeroConfirmacion, '" & FechaTour & "' As FechaTour, CPago,FPago,Cupon,Tarifa,PaxAdulto,PaxMenor,Importe,TipoCambio,PorcentajeComision, 0 As Facturado, '" & Usuario & "' As Usuario from CFlowTemporal")
ActualizaReservacion = "Update Reservaciones set Pagado = -1 where NConfirmacion = '" & NumeroConfirmacion & "'"
db.Execute ActualizaReservacion
 Inserta en Userlog un registro donde indica que se Aplico un pago.     
        Sleep 1000
        dbUlog.Recordset.AddNew
        dbUlog.Recordset.Fields("Confirmacion").Value = NumeroConfirmacion
        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 = "Aplicar Pago con folio " & SiguienteFolio
        dbUlog.Recordset.Update
        dbUlog.Refresh
                Si el tour requiere que se le asignen embarcaciones entonces
mostrar el formulario para asignarlas
     If DLookup("AsignarEmbarcaciones", "Servicios", "IIdent='" & ActividadTour & "'") = True Then
     frmAsignaEmbarcaciones.txtFechaTour = FechaTour
     frmAsignaEmbarcaciones.txtHoraTour = HoraTour
     Unload frmSubPagoTourNuevo
    frmAsignaEmbarcaciones.Show vbModal
    Else
     Unload frmSubPagoTourNuevo
  End If
    frmBuscaReservacionAPagar.Show
    frmBuscaReservacionAPagar.SetFocus
End Sub
