Private Sub displayList()
Dim i, j As Integer
Dim strSelect As String
Dim mntliq As Single
Dim Agencia As String

On Error GoTo Terminar
Agencia = ComboAgencia.Text
    
    DoEvents
    With SCGrid1
        .Visible = False
        .Redraw = False
        Selecciona los registros que estn almacenados en la tabla Facturacin Temporal
        strSelect = "Select Subcanal, Folio, Actividad, FechaMovto, Cupon, Tarifa, PaxAdulto, PaxMenor, Importe, Tipocambio, Porcentajecomision, Facturar " & _
        "FROM [Facturacion Temporal]"
                 rcds.Open strSelect, db, adOpenStatic, adLockOptimistic
        For i = 0 To .Cols - 1
             .Key(-1, i) = rcds.Fields(i).Name
        Next i
        
        .Text(-1, 1) = "Agencia"
        .Text(-1, 2) = "Actividad"
        .Text(-1, 3) = "Fecha"
        .Text(-1, 4) = "Cupon"
        .Text(-1, 5) = "Tarifa"
        .Text(-1, 6) = "Adultos"
        .Text(-1, 7) = "Menores"
        .Text(-1, 8) = "Importe"
        .Text(-1, 9) = "T. Camb."
        .Text(-1, 10) = "Porc. Com."
        .Text(-1, 11) = "Facturar"
        
        .Rows = rcds.RecordCount
        prgBar1.Max = .Rows
        prgBar1.Top = StatusBar1.Top + 45
        prgBar1.Visible = True
        j = 0
        Do While Not rcds.EOF
Se invoca una rutina que llena la fila actual del Grid, ver cdigo frmFacturacionNuevo-populateRow.txt
           populateRow (j)
            prgBar1.Value = j
            j = j + 1
            rcds.MoveNext
        Loop
        rcds.Close
                prgBar1.Visible = False
                StatusBar1.Panels(2).Text = .Rows & " cupon(es)"
        
        .Redraw = True
        .Visible = True
    End With ' SCGrid1
    Exit Sub
Terminar:
    MsgBox "No hay cupones por facturar"
End Sub
