Private Sub cmdAsignaEmbarcaciones_Click()
Dim dbName As String
Dim conn As ADODB.Connection
Dim FechaTour As String
Dim FechaTourAInsertar As String
Dim Dia As String
Dim Mes As String
Dim Ao As String
Dim HoraTour As String
Dim FechaTrabajo As String
Dim PaxLibres As Integer
Dim PaxOcupados As Integer
Dim ActualizaEmbarcacion As String
Dim ActualizaPaxLibres As String
Dim ActualizaPaxOcupados As String
Dim BorraEmbarcacion As String
Dim strSelect As String
Dim i As Integer
Dim NumEmbarcacion As String
Dim PaxAAsignar As Integer
Dim PaxLibresNuevos As Integer
Dim PaxOcupadosNuevos As Integer
Dim NumeroConfirmacion As String
Dim FechaMovimiento As String
Dim HoraMovimiento As String
Dim InsertaFlujoEmbarcaciones As String
Dim Usuario As String
Dim CodigoGuia As String
Dim CodigoGuiaAnterior As String
Dim TotalPaxAsignados As Integer
Dim Folio As Long
Dim MesTourLetras As String
Dim Brazaletes As Integer
Dim ActividadTour 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 PaxAdultoReal As Integer
Dim PaxMenorReal As Integer
Dim GuiasEmbarcaciones As String
Dim Guias As String
Dim Embarcaciones As String
Dim Servicio As String
Dim TiempoUsoPromedio As Single
Dim TiempoUsoActual As Single
Dim TiempoUsoAcumulado As Single
Dim TiempoUsoParaServicio As Single
Dim ActualizaTiempoUsoActual As String
Dim ActualizaTiempoUsoAcumulado As String
Dim HoraAsignacionAproximada As Date
Dim HoraLiberacionAproximada As Date
Dim StatusEmbarcacionGuia As String

   NumeroConfirmacion = txtConfirmacion
   Usuario = RsvUsuario
   FechaMovimiento = Format(Now, "dd/mm/yyyy")
   HoraMovimiento = Format(Now, "HH:mm:ss")
    Dia = Mid(txtFechaTour.Text, 4, 2)
    Mes = Left(txtFechaTour.Text, 2)
    Ao = Right(txtFechaTour.Text, 2)
    FechaTourAInsertar = txtFechaTour
    FechaTour = Dia & "/" & Mes & "/" & Ao
    HoraTour = txtHoraTour

    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
    
    strSelect = "Select FechaTrabajo From [Fecha Trabajo]"
    
    If rcds.State = adStateOpen Then rcds.Close
    rcds.Open strSelect, db, adOpenStatic, adLockOptimistic
    rcds.MoveFirst
    FechaTrabajo = rcds(0).Value
    rcds.Close
Si hay algn pasajero asignado a embarcacin alguna, entonces
    If DLookup("CodGuia", "Flujo Embarcaciones Temporal", "PaxAAsignar<>0") <> "No Encontrado" Then
    
    strSelect = "SELECT [Flujo Embarcaciones Temporal].CodGuia, [Flujo Embarcaciones Temporal].Numembarcacion,[Flujo Embarcaciones Temporal].PaxLibres, [Flujo Embarcaciones Temporal].PaxAAsignar FROM [Flujo Embarcaciones Temporal]"
    
            rcds.Open strSelect, db, adOpenStatic, adLockOptimistic
            rcds.MoveFirst
            TotalPaxAsignados = 0
            For i = 1 To rcds.RecordCount
            NumEmbarcacion = rcds.Fields(1)
            PaxLibres = rcds.Fields(2)
            PaxAAsignar = rcds.Fields(3)
            TotalPaxAsignados = TotalPaxAsignados + PaxAAsignar
            rcds.MoveNext
            Next i
Comprueba si se le ha asignado a todos los pasajeros embarcacin alguna
            If TotalPaxAsignados < Val(txtTotalPax) Then
                If MsgBox("Todava hace falta por asignar pax a embarcaciones, desea continuar?", vbYesNo, "Asignacin de pax") = vbNo Then
                    rcds.Close
                    Exit Sub
                End If
            End If
S se estn asignando embarcaciones para reservaciones de la fecha actual
de trabajo entonces                
If FechaTourAInsertar = FechaTrabajo Then
            GuiasEmbarcaciones = ""
            rcds.MoveFirst
            For i = 1 To rcds.RecordCount
            CodigoGuia = rcds.Fields(0)
            NumEmbarcacion = rcds.Fields(1)
            PaxLibres = rcds.Fields(2)
            PaxAAsignar = rcds.Fields(3)
            If PaxAAsignar <> 0 Then
            If GuiasEmbarcaciones = "" Then
GuiasEmbarcaciones es una variable que imprimir en el Contrato de
Renta los guas, con sus embarcaciones y pasajeros asignados
                GuiasEmbarcaciones = GuiasEmbarcaciones & CodigoGuia & "(" & NumEmbarcacion & "-" & PaxAAsignar
            Else
                If CodigoGuia = CodigoGuiaAnterior Then
                    GuiasEmbarcaciones = GuiasEmbarcaciones & "," & NumEmbarcacion & "-" & PaxAAsignar
                Else
                    GuiasEmbarcaciones = GuiasEmbarcaciones & ") " & CodigoGuia & "(" & NumEmbarcacion & "-" & PaxAAsignar
                End If
            End If
            Embarcaciones = Embarcaciones & NumEmbarcacion & " "
            PaxOcupados = DLookup("Ocupados", "Embarcaciones", "NumEmbarcacion  = " & NumEmbarcacion)
            PaxLibresNuevos = PaxLibres - PaxAAsignar
            PaxOcupadosNuevos = PaxOcupados + PaxAAsignar
Actualiza el Status de la embarcacin a 9 (Proximo Tour)
            ActualizaEmbarcacion = "Update Embarcaciones set Status = 9 where NumEmbarcacion = " & NumEmbarcacion
            db.Execute ActualizaEmbarcacion
Actualiza los pasajeros ocupados de la embarcacin
            ActualizaPaxOcupados = "Update Embarcaciones set Ocupados = " & PaxOcupadosNuevos & " where NumEmbarcacion = " & NumEmbarcacion
            db.Execute ActualizaPaxOcupados
Actualiza los pasajeros libres de la embarcacin
            ActualizaPaxLibres = "Update Embarcaciones set Libres = " & PaxLibresNuevos & " where NumEmbarcacion = " & NumEmbarcacion
            db.Execute ActualizaPaxLibres
            CodigoGuiaAnterior = CodigoGuia
            rcds.MoveNext
            Else
            rcds.MoveNext
            End If
            Next i
            GuiasEmbarcaciones = GuiasEmbarcaciones & ")"
            rcds.Close
            
Inserta en la Tabla Flujo Embarcaciones las embarcaciones que cambiaron
a status 9, con fecha y hora actual
            conn.Execute "Insert into [Flujo Embarcaciones] (Embarcacion,FechaStatus,HoraStatus,NConfirmacion,Status,PaxAsignados,CodGuia,Usuario) Select NumEmbarcacion,'" & FechaMovimiento & "' As FechaMovimiento, '" & HoraMovimiento & "' As HoraMovimiento, '" & NumeroConfirmacion & "' As NConfirmacion, 9 As Status, PaxAAsignar, CodGuia, '" & Usuario & "' As Usuario from [Flujo Embarcaciones Temporal] where PaxAAsignar <> 0"
                         Selecciona los guas correspondientes de las embarcaciones
asignadas
             strSelect = "SELECT DISTINCTROW [Flujo Embarcaciones Temporal].CodGuia FROM [Flujo Embarcaciones Temporal] where [Flujo Embarcaciones Temporal].PaxAAsignar <> 0 GROUP BY [Flujo Embarcaciones Temporal].CodGuia"

            rcds.Open strSelect, db, adOpenStatic, adLockOptimistic
            rcds.MoveFirst
                For i = 1 To rcds.RecordCount
                    CodigoGuia = rcds.Fields(0)
                    Guias = Guias & CodigoGuia & "  "
                    NumEmbarcacion = DLookupGuias("NumEmbarcacion", "Embarcaciones", "Guia =  '" & CodigoGuia & "' And (Status = 6 Or Status=7)")
Actualiza el status de la embarcacin del gua
                    ActualizaEmbarcacion = "Update [Embarcaciones] set Status = 7 where NumEmbarcacion = " & NumEmbarcacion
                    conn.Execute ActualizaEmbarcacion
Inserta en la tabla Flujo Embarcaciones las embarcaciones de los guas que
cambiaron a status 7 (Guia Proximo Tour)
                    conn.Execute "Insert into [Flujo Embarcaciones] (Embarcacion,FechaStatus,HoraStatus,NConfirmacion,Status,CodGuia,Usuario) VALUES (" & NumEmbarcacion & ",'" & FechaMovimiento & "', '" & HoraMovimiento & "','" & NumeroConfirmacion & "',7,'" & CodigoGuia & "','" & Usuario & "')"
                    rcds.MoveNext
                Next i
            rcds.Close
Si la fecha de trabajo no es la actual, es decir se estn asignado
embarcaciones a reservaciones de fecha atrasada, realizar lo siguiente:
        Else
            GuiasEmbarcaciones = ""
            rcds.MoveFirst
            For i = 1 To rcds.RecordCount
            CodigoGuia = rcds.Fields(0)
            NumEmbarcacion = rcds.Fields(1)
            PaxLibres = rcds.Fields(2)
            PaxAAsignar = rcds.Fields(3)
            If PaxAAsignar <> 0 Then
            If GuiasEmbarcaciones = "" Then
GuiasEmbarcaciones es una variable que imprimir en el Contrato de Renta
los guas, con sus embarcaciones y pasajeros asignados
                GuiasEmbarcaciones = GuiasEmbarcaciones & CodigoGuia & "(" & NumEmbarcacion & "-" & PaxAAsignar
            Else
                If CodigoGuia = CodigoGuiaAnterior Then
                    GuiasEmbarcaciones = GuiasEmbarcaciones & "," & NumEmbarcacion & "-" & PaxAAsignar
                Else
                    GuiasEmbarcaciones = GuiasEmbarcaciones & ") " & CodigoGuia & "(" & NumEmbarcacion & "-" & PaxAAsignar
                End If
            End If
            Embarcaciones = Embarcaciones & NumEmbarcacion & " "
            PaxOcupados = DLookup("Ocupados", "Embarcaciones Status Anteriores", "FechaTour =#" & FechaTour & "# And HoraTour ='" & HoraTour & "' And NumEmbarcacion  = " & NumEmbarcacion)
            PaxLibresNuevos = PaxLibres - PaxAAsignar
            PaxOcupadosNuevos = PaxOcupados + PaxAAsignar
           Actualiza el Status de la embarcacin a 9 (Proximo Tour) en la tabla
Embarcaciones Status Anteriores
ActualizaEmbarcacion = "Update [Embarcaciones Status Anteriores] set Status = 9 where FechaTour =#" & FechaTour & "# And HoraTour ='" & HoraTour & "' And NumEmbarcacion = " & NumEmbarcacion
            db.Execute ActualizaEmbarcacion
Actualiza los pasajeros ocupados de la embarcacin en la tabla Embarcaciones Status Anteriores
            ActualizaPaxOcupados = "Update [Embarcaciones Status Anteriores] set Ocupados = " & PaxOcupadosNuevos & " where FechaTour =#" & FechaTour & "# And HoraTour ='" & HoraTour & "' And NumEmbarcacion = " & NumEmbarcacion
            db.Execute ActualizaPaxOcupados
Actualiza los pasajeros libres de la embarcacin en la tabla Embarcaciones
Status Anteriores
            ActualizaPaxLibres = "Update [Embarcaciones Status Anteriores] set Libres = " & PaxLibresNuevos & " where FechaTour =#" & FechaTour & "# And HoraTour ='" & HoraTour & "' And NumEmbarcacion = " & NumEmbarcacion
            db.Execute ActualizaPaxLibres
            CodigoGuiaAnterior = CodigoGuia
            rcds.MoveNext
            Else
            rcds.MoveNext
            End If
            Next i
            GuiasEmbarcaciones = GuiasEmbarcaciones & ")"
            rcds.Close

   se va a buscar cual es el uso promedio de la embarcacin para el
tour, el tiempo de uso actual, tiempo de uso acumulado y tiempo de uso
para servicio de la embarcacin, se actualiza los nuevos valores de tiempo
de uso actual y tiempo de uso acumulado para la embarcacin. Se calcula
tambin la hora de asignacin y la hora de liberacin aproximada, ya que se
va a liberar de una vez la embarcacin
            Servicio = DLookup("Actividad", "Reservaciones", "NConfirmacion ='" & NumeroConfirmacion & "'")
            TiempoUsoPromedio = DLookup("TiempoUsoPromedio", "Servicios", "IIdent='" & Servicio & "'")
            TiempoUsoActual = DLookup("TiempoUsoActual", "Embarcaciones", "NumEmbarcacion= " & NumEmbarcacion)
            TiempoUsoAcumulado = DLookup("TiempoUsoAcumulado", "Embarcaciones", "NumEmbarcacion= " & NumEmbarcacion)
            TiempoUsoParaServicio = DLookup("TiempoUsoParaServicio", "Embarcaciones", "NumEmbarcacion = " & NumEmbarcacion)
            TiempoUsoActual = TiempoUsoActual + TiempoUsoPromedio
            TiempoUsoAcumulado = TiempoUsoAcumulado + TiempoUsoPromedio
            HoraAsignacionAproximada = DateAdd("n", -30, CDate(HoraTour))
            HoraLiberacionAproximada = DateAdd("n", TiempoUsoPromedio * 60, CDate(HoraTour))
                     Inserta en la tabla Flujo Embarcaciones las embarcaciones que
cambiaron a Status 9 (Proximo Tour)
            conn.Execute "Insert into [Flujo Embarcaciones] (Embarcacion,FechaStatus,HoraStatus,NConfirmacion,Status,PaxAsignados,CodGuia,Usuario) Select NumEmbarcacion,'" & FechaTourAInsertar & "' As FechaMovimiento, '" & HoraAsignacionAproximada & "' As HoraMovimiento, '" & NumeroConfirmacion & "' As NConfirmacion, 9 As Status, PaxAAsignar, CodGuia, '" & Usuario & "' As Usuario from [Flujo Embarcaciones Temporal] where PaxAAsignar <> 0"
Inserta en la tabla Flujo Embarcaciones, las embarcaciones que cambiaron
a status 10 (En Tour)
            conn.Execute "Insert into [Flujo Embarcaciones] (Embarcacion,FechaStatus,HoraStatus,NConfirmacion,Status,PaxAsignados,CodGuia,Usuario) Select NumEmbarcacion,'" & FechaTourAInsertar & "' As FechaMovimiento, '" & HoraTour & "' As HoraMovimiento, '" & NumeroConfirmacion & "' As NConfirmacion, 10 As Status, PaxAAsignar, CodGuia, '" & Usuario & "' As Usuario from [Flujo Embarcaciones Temporal] where PaxAAsignar <> 0"
Inserta en la tabla Flujo Embarcaciones, las embarcaciones que se liberaron
            conn.Execute "Insert into [Flujo Embarcaciones] (Embarcacion,FechaStatus,HoraStatus,NConfirmacion,Status,PaxLiberados,CodGuia,Usuario) Select NumEmbarcacion,'" & FechaTourAInsertar & "' As FechaMovimiento, '" & HoraLiberacionAproximada & "' As HoraMovimiento, '" & NumeroConfirmacion & "' As NConfirmacion, 5 As Status, PaxAAsignar, CodGuia, '" & Usuario & "' As Usuario from [Flujo Embarcaciones Temporal] where PaxAAsignar <> 0"
            Si el tiempo de uso actual de la embarcacin supero al tiempo de
uso para servicio, pasar la unidad a Status 2 (En Servicio)
            If TiempoUsoActual >= TiempoUsoParaServicio Then
                ActualizaEmbarcacion = "Update Embarcaciones set Status = 2 where NumEmbarcacion = " & NumEmbarcacion
                db.Execute ActualizaEmbarcacion
            End If
Actualiza el tiempo de uso actual y el acumulado para la embarcacin
            ActualizaTiempoUsoActual = "Update Embarcaciones set TiempoUsoActual =" & TiempoUsoActual & " where NumEmbarcacion = " & NumEmbarcacion
            db.Execute ActualizaTiempoUsoActual
            ActualizaTiempoUsoAcumulado = "Update Embarcaciones set TiempoUsoAcumulado = " & TiempoUsoAcumulado & " where NumEmbarcacion = " & NumEmbarcacion
            db.Execute ActualizaTiempoUsoAcumulado
            Selecciona los guas de las embarcaciones asignadas.
             strSelect = "SELECT DISTINCTROW [Flujo Embarcaciones Temporal].CodGuia FROM [Flujo Embarcaciones Temporal] where [Flujo Embarcaciones Temporal].PaxAAsignar <> 0 GROUP BY [Flujo Embarcaciones Temporal].CodGuia"
            rcds.Open strSelect, db, adOpenStatic, adLockOptimistic
            rcds.MoveFirst
                For i = 1 To rcds.RecordCount
                    CodigoGuia = rcds.Fields(0)

                    NumEmbarcacion = DLookupGuias("NumEmbarcacion", "Embarcaciones Status Anteriores", "FechaTour =#" & FechaTour & "# And HoraTour ='" & HoraTour & "' AND Guia =  '" & CodigoGuia & "' And (Status = 6 Or Status=7)")
                    StatusEmbarcacionGuia = DLookupGuias("Status", "Embarcaciones Status Anteriores", "FechaTour =#" & FechaTour & "# And HoraTour ='" & HoraTour & "' AND Guia =  '" & CodigoGuia & "' And (Status = 6 Or Status=7)")
Inserta en Flujo Embarcaciones la embarcacin del Gua que cambio a
status 7 (Guia Proximo Tour)
                    conn.Execute "Insert into [Flujo Embarcaciones] (Embarcacion,FechaStatus,HoraStatus,NConfirmacion,Status,CodGuia,Usuario) VALUES (" & NumEmbarcacion & ",'" & FechaTourAInsertar & "', '" & HoraAsignacionAproximada & "','" & NumeroConfirmacion & "',7,'" & CodigoGuia & "','" & Usuario & "')"
Inserta en Flujo Embarcaciones la embarcacin del Gua que cambio a
status 8 (Guia En Tour)
                    conn.Execute "Insert into [Flujo Embarcaciones] (Embarcacion,FechaStatus,HoraStatus,NConfirmacion,Status,CodGuia,Usuario) VALUES (" & NumEmbarcacion & ",'" & FechaTourAInsertar & "', '" & HoraTour & "','" & NumeroConfirmacion & "',8,'" & CodigoGuia & "','" & Usuario & "')"
Si el Status de la embarcacin del gua en la tabla Status Embarcaciones
Anteriores es 6, entonces significa que al Gua se le han liberado todas sus
embarcaciones y se inserta en la tabla Flujo Embarcaciones el movimiento
de cambio a status 6 de la embarcacin
                    If StatusEmbarcacionGuia = "6" Then
                    conn.Execute "Insert into [Flujo Embarcaciones] (Embarcacion,FechaStatus,HoraStatus,NConfirmacion,Status,CodGuia,Usuario) VALUES (" & NumEmbarcacion & ",'" & FechaTourAInsertar & "', '" & HoraLiberacionAproximada & "','" & NumeroConfirmacion & "',6,'" & CodigoGuia & "','" & Usuario & "')"
                    End If
                    rcds.MoveNext
                Next i
            rcds.Close
        End If
    Else
No se ha asignado embarcacin alguna
        MsgBox "No tiene ningn pax asignado a alguna embarcacin"
    Exit Sub
    End If
    
Dia = Left(FechaTourAInsertar, 2)
Mes = Mid(FechaTourAInsertar, 4, 2)
Ao = Right(FechaTourAInsertar, 2)
Select Case Mes
Segn el nmero de mes del tour, lo convierte a letras
Case "01"
    MesTourLetras = "Ene"
Case "02"
    MesTourLetras = "Feb"
Case "03"
    MesTourLetras = "Mar"
Case "04"
    MesTourLetras = "Abr"
Case "05"
    MesTourLetras = "May"
Case "06"
    MesTourLetras = "Jun"
Case "07"
    MesTourLetras = "Jul"
Case "08"
    MesTourLetras = "Ago"
Case "09"
    MesTourLetras = "Sep"
Case "10"
    MesTourLetras = "Oct"
Case "11"
    MesTourLetras = "Nov"
Case "12"
    MesTourLetras = "Dic"
End Select

HoraTour = frmPagoTour.txtHora
ActividadTour = frmPagoTour.ComboActividad
ClienteTour = frmPagoTour.txtNombre
CuponTour = frmPagoTour.txtCupon
PaxAdultoTour = frmPagoTour.txtPaxAdulto
PaxMenorTour = frmPagoTour.txtPaxMenor
HotelTour = frmPagoTour.ComboHotel
HabitacionTour = frmPagoTour.txtHabitacion
AgenteTour = frmPagoTour.ComboAgente
Usuario = RsvUsuario.Text
rcds.Open "select max([CFNFolio]) as [UltimoFolio] from [Cash_flow Nuevo]", db
        Folio = rcds![UltimoFolio]
rcds.Close

strSelect = "select * from cFlowTemporal"
        
        rcds.Open strSelect, db, adOpenStatic, adLockOptimistic
    rcds.MoveFirst
    Do While Not rcds.EOF
Calcula cuantos pasajeros pagaron Brazalete
        If rcds.Fields.Item(1).Value = "Brazalete Angel" Then
        Brazaletes = rcds.Fields.Item(5).Value + rcds.Fields.Item(6).Value
        End If
        rcds.MoveNext
    Loop
Close #1
 Open frmMain.Ap_TPort For Output As #1
Imprime en una forma preimpresa los siguientes datos, coincidiendo los
datos con la posicin en la forma preimpresa
 Print #1, " "
 Print #1, " "
 Print #1, " "
 Print #1, "                                                               " & Folio
 Print #1, " "
 Print #1, " "
Print #1, " "
  Print #1, "                                                           " & Dia & "-" & MesTourLetras & "-" & Ao
 Print #1, " "
  Print #1, " "
  Print #1, "                " & ClienteTour
 Print #1, " "
  Print #1, "         " & Left(HotelTour, 22) & "                           " & Left(HabitacionTour, 15)
 Print #1, " "
 Print #1, " "
  Print #1, "          " & Left(AgenteTour, 24) & "                      " & Left(CuponTour, 8) & "              " & PaxAdultoTour & "." & PaxMenorTour
  Print #1, " "
  Print #1, "                                                             " & Brazaletes
  Print #1, " "
  Print #1, " "
  Print #1, " "
  Print #1, " "
  Print #1, " "
  Print #1, " "
  Print #1, " "
  Print #1, " "
  Print #1, " "
  Print #1, " "
  Print #1, " "
  Print #1, "             " & TotalPaxAsignados
  Print #1, " "
  Print #1, " "
  Print #1, " "
  Print #1, " "
  Print #1, " "
  Print #1, "            " & GuiasEmbarcaciones
  Print #1, " "
  Print #1, " "
  Print #1, " "
  Print #1, " "
  Print #1, " "
  Print #1, " "
  Print #1, " "
  Print #1, " "
  Print #1, " "
  Print #1, " "
  Print #1, " "
  Print #1, " "
  Print #1, " "
  Print #1, "                                                               " & Folio
  Print #1, "  Guia(Emb.-Pax): " & GuiasEmbarcaciones
  Print #1, " "
  Print #1, "             " & Left(ClienteTour, 22) & "                               " & Dia & "-" & MesTourLetras & "-" & Ao
  Print #1, "                                                      " & CuponTour
  Print #1, " "
  Print #1, " "
  Print #1, "         " & TotalPaxAsignados & "                " & Brazaletes & "                " & Dia & "-" & MesTourLetras & "-" & Ao & "     " & HoraTour
  Print #1, " "
  Print #1, " "
  Select Case HoraTour
  Case "08:00"
  Print #1, "        X"
  Case "09:00"
  Print #1, "                 X"
  Case "10:00"
  Print #1, "                       X"
  Case "11:00"
  Print #1, "                             X"
  Case "12:00"
  Print #1, "                                   X"
  Case "13:00"
  Print #1, "                                         X"
  Case "14:00"
  Print #1, "                                               X"
  Case "15:00"
  Print #1, "                                                     X"
  Case "16:00"
  Print #1, "                                                          X"
  End Select
  Close #1
    Descarga todos los fomularios abiertos y pone el enfoque en el
formulario para seleccionar las confirmaciones e inserta el pago
    Unload frmSubPagoTourNuevo
    Unload frmAsignaEmbarcaciones
    Unload frmPagoTour
    frmBuscaReservacionAPagar.SetFocus
End Sub
