Private Sub displayList()
Dim i, j As Integer
Dim strSelect As String
Dim mntliq As Single
Dim Agencia As String
Dim NumeroFactura As Integer
On Error GoTo Terminar
    NumeroFactura = ComboFactura

    DoEvents
    With SCGrid1
        .Visible = False
        .Redraw = False
 Consulta que seleccionar los campos necesarios para el Grid       
strSelect = "SELECT [Detalle Facturas].Numero, [Maestro Facturas].FechaFactura, [Detalle Facturas].FechaMovto, [Detalle Facturas].Servicio, [Servicios Adminpaq].CodServicioAdmin, [Detalle Facturas].Tarifa, Sum([Detalle Facturas].Cantidad) AS Cantidad, Sum([Detalle Facturas].Importe) AS Importe, [Detalle Facturas].Porcentajecomision, [Detalle Facturas].Tipocambio" & _
" FROM (([Detalle Facturas] INNER JOIN [Maestro Facturas] ON [Detalle Facturas].Numero = [Maestro Facturas].Numero) INNER JOIN Agencias ON [Maestro Facturas].Subcanal = Agencias.Agenciaident) INNER JOIN [Servicios Adminpaq] ON ([Detalle Facturas].Servicio = [Servicios Adminpaq].Servicio) AND (Agencias.Agenciaident = [Servicios Adminpaq].Agencia) AND ([Detalle Facturas].Tarifa = [Servicios Adminpaq].Tarifa)" & _
" Where ((([Detalle Facturas].Numero) = " & NumeroFactura & "))" & _
" GROUP BY [Detalle Facturas].Numero, [Maestro Facturas].FechaFactura, [Detalle Facturas].FechaMovto, [Detalle Facturas].Servicio, [Servicios Adminpaq].CodServicioAdmin, [Detalle Facturas].Tarifa, [Detalle Facturas].Porcentajecomision, [Detalle Facturas].Tipocambio"
        
        rcds.Open strSelect, db, adOpenStatic, adLockOptimistic
        
        For i = 0 To .Cols - 1
            .Key(-1, i) = rcds.Fields(i).Name
        Next i
Encabezados de la columna        
        .Text(-1, 0) = "Numero"
        .Text(-1, 1) = "Fecha Factura"
        .Text(-1, 2) = "Fecha Mov."
        .Text(-1, 3) = "Servicio"
        .Text(-1, 4) = "Cod Ser Admin"
        .Text(-1, 5) = "Tarifa"
        .Text(-1, 6) = "Cantidad"
        .Text(-1, 7) = "Importe"
        .Text(-1, 8) = "Porc. Com."
        .Text(-1, 9) = "T. Camb."
        
        .Rows = rcds.RecordCount
        prgBar1.Max = .Rows
        prgBar1.Top = StatusBar1.Top + 45
        prgBar1.Visible = True
        j = 0
        Do While Not rcds.EOF
Ver Cod. frmExportaFacturacion-populateRow.txt
            populateRow (j)
            prgBar1.Value = j
            j = j + 1
            rcds.MoveNext
        Loop
        rcds.Close
        prgBar1.Visible = False
        StatusBar1.Panels(2).Text = .Rows & " servicio(s)"
        .Redraw = True
        .Visible = True
    End With ' SCGrid1
    Exit Sub
Terminar:
MsgBox "Posiblemente falta relacionar alguna tarifa con algn servicio de Admin Paq"
End Sub
