Private Sub cmdMostrarCuponesPorFacturar_Click()
Dim dbName As String
Dim conn As ADODB.Connection
Dim Agencia As String
Dim Dia As String
Dim Mes As String
Dim Ao As String
Dim FechaConvertida As String

    Dia = Mid(txtFecha.Text, 4, 2)
    Mes = Left(txtFecha.Text, 2)
    Ao = Right(txtFecha.Text, 2)
    FechaConvertida = Dia & "/" & Mes & "/" & Ao

Inhabilita el botn Mostrar Cupones Por Facturar
    cmdMostrarCuponesPorFacturar.Enabled = False
    Agencia = ComboAgencia
    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
Elimina el contenido de la tabla Facturacin Temporal, donde se van a almacenar temporalmente los cupones que se van a facturar
    conn.Execute "Delete [Facturacion Temporal].* from [Facturacion Temporal]"
    Si se dejo en blanco el cuadro de texto Fecha Movimiento, se inserta en la tabla Facturacin Temporal todos los cupones pendientes de facturar para la agencia seleccionada
    If FechaConvertida = "//" Then
        conn.Execute ("Insert into [Facturacion Temporal] (Subcanal,Folio,Actividad,FechaMovto,Cupon,Tarifa,PaxAdulto,PaxMenor,Importe,TipoCambio,PorcentajeComision,Facturar) Select Reservaciones.Sub_canal, [Cash_flow Nuevo].CFNFolio, [Cash_flow Nuevo].CFCpago, [Cash_flow Nuevo].CFFechaMovto, [Cash_flow Nuevo].CFCupon,[Cash_flow Nuevo].CFTarifa,[Cash_flow Nuevo].CFPaxAdulto,[Cash_flow Nuevo].CFPaxMenor,[Cash_flow Nuevo].CFImporte, [Cash_flow Nuevo].CFTipoCambio,[Cash_flow Nuevo].CFPorcentajeComision,[Cash_flow Nuevo].CFFacturado " & _
        "FROM Reservaciones INNER JOIN [Cash_flow Nuevo] ON Reservaciones.NConfirmacion =[Cash_flow Nuevo].CFNConfirma " & _
         "WHERE (((Reservaciones.Sub_canal)='" & Agencia & " ') AND (([Cash_flow Nuevo].CFFacturado)=0) AND (([Cash_flow Nuevo].CFFpago)='Cupon agencia'));")
Si no se dejo en blanco el cuadro de texto Fecha Movimiento, entonces se inserta en la tabla Facturacin Temporal los cupones no facturados registrados en la fecha de movimiento especificado, para la agencia seleccionada
    Else
        conn.Execute ("Insert into [Facturacion Temporal] (Subcanal,Folio,Actividad,FechaMovto,Cupon,Tarifa,PaxAdulto,PaxMenor,Importe,TipoCambio,PorcentajeComision,Facturar) Select Reservaciones.Sub_canal, [Cash_flow Nuevo].CFNFolio, [Cash_flow Nuevo].CFCpago, [Cash_flow Nuevo].CFFechaMovto, [Cash_flow Nuevo].CFCupon,[Cash_flow Nuevo].CFTarifa,[Cash_flow Nuevo].CFPaxAdulto,[Cash_flow Nuevo].CFPaxMenor,[Cash_flow Nuevo].CFImporte, [Cash_flow Nuevo].CFTipoCambio,[Cash_flow Nuevo].CFPorcentajeComision,[Cash_flow Nuevo].CFFacturado " & _
        "FROM Reservaciones INNER JOIN [Cash_flow Nuevo] ON Reservaciones.NConfirmacion =[Cash_flow Nuevo].CFNConfirma " & _
         "WHERE (((Reservaciones.Sub_canal)='" & Agencia & " ') AND (([Cash_flow Nuevo].CFFechaMovto) = #" & FechaConvertida & "#) AND (([Cash_flow Nuevo].CFFacturado)=0) AND (([Cash_flow Nuevo].CFFpago)='Cupon agencia'));")
    End If
    conn.Close
    Se dispone el Grid
    setGrid
Se dibuja el Grid
    displayList
Se inicializa variables
    initVariables
Se habilitan e inhabilitan los controles necesarios
    ComboAgencia.Enabled = False
    cmdGenerarFactura.Enabled = True
    casillaTodo.Enabled = True
    cmdGenerarFactura.SetFocus
    cmdMostrarCuponesPorFacturar.Enabled = False
End Sub
