Private Sub displayList()
Dim i, j As Integer
Dim strSelect As String
Dim mntliq As Single
    
    DoEvents
    With SCGrid1
        .Visible = False
        .Redraw = False
       
Origen de los registros para el Grid        
        strSelect = "select * from cFlowTemporal"
        rcds.Open strSelect, db, adOpenStatic, adLockOptimistic
        Se llenan los encabezados de las columnas con el nombre de los
campos de la tabla CFlowTemporal (tabla donde se almacen lo que se
debe de pagar segn la Agencia que solicit el servicio, ver cdigo frmPagoTour-cmdAbrirDetalledePago_Click.txt)
        For i = 0 To .Cols - 1
            .Key(-1, i) = rcds.Fields(i).Name
        Next i
        
        .Text(-1, 1) = "Concepto Pago"
        .Text(-1, 2) = "Forma Pago"
        .Text(-1, 3) = "Cupon"
        .Text(-1, 4) = "Tarifa"
        .Text(-1, 5) = "Adultos"
        .Text(-1, 6) = "Menores"
        .Text(-1, 7) = "Importe"
        .Text(-1, 8) = "T. Cambio"
        .Text(-1, 9) = "Porc. Com."
        
        Se llena el Grid con los valores de los registros de la tabla
CFLowTemporal, llamando al procedimiento populateRow(j), ver cdigo frmSubPagoTourNuevo-populateRow.txt.
        .Rows = rcds.RecordCount
        prgBar1.Max = .Rows
        prgBar1.Top = StatusBar1.Top + 45
        prgBar1.Visible = True
        j = 0
        Do While Not rcds.EOF
            
            populateRow (j)
            prgBar1.Value = j
            j = j + 1
            rcds.MoveNext
        Loop
        rcds.Close
        prgBar1.Visible = False
        StatusBar1.Panels(2).Text = .Rows & " pago(s)"
        .Redraw = True
        .Visible = True
    End With 
End Sub
