none
fpSpread no despliega toda la informacion RRS feed

  • Pregunta

  • Estoy trabajando en un viejo sistema, actualmente tienen un reporte en fpSpread (siendo sincero nunca lo había visto) ahora que mas o menos lo he trabajo lo entiendo (no del todo porque sigo preguntando), estoy mostrando una consulta pero no se despliega completamente, con este codigo es el que lo muestro.

    Private Sub HacerBusqueda()    
    Dim rstCuentasPorPagar As New ADODB.Recordset    
    Dim l As Long    
    Dim m_SQL As String    
    Dim a As Long        
    If CmbProveedores.ListIndex = 0 Then        
    m_SQL = "SELECT IdFactura,FechaFactura,CodigoProveedor,NombreProveedor,Total,FechaDPP,FechaFinal,Pagado FROM FacturasPendientes WHERE Pagado ='0'"    
    Else        
    m_SQL = "SELECT IdFactura,FechaFactura,CodigoProveedor,NombreProveedor,Total,FechaDPP,FechaFinal,Pagado FROM FacturasPendientes WHERE CodigoProveedor='" & ArrCodigosProveedor(CmbProveedores.ListIndex) & "' AND Pagado ='0' ORDER BY FechaFactura"    
    End If        
    AbrirRecordset rstCuentasPorPagar, True, m_SQL
                    
    sprFacturas.MaxRows = 1        
    With rstCuentasPorPagar    
    Do While Not .EOF        sprFacturas.EventEnabled(EventButtonClicked) = False            l = l + 1            
    sprFacturas.MaxRows = 1            
    sprFacturas.Row = l: sprFacturas.Col = Col_NumFactura: sprFacturas.Text = .Fields("IdFactura").Value            sprFacturas.Col = Col_Pagado            
    sprFacturas.Row = 1        
    If .Fields("Pagado").Value = False Then            sprFacturas.Value = 0        Else            sprFacturas.Value = 1        End If                
    If .Fields("Pagado").Value Then          
    For a = 1 To sprFacturas.MaxCols                    sprFacturas.Col = a                
    sprFacturas.Lock = True            
    Next a        
    Else            
    HabilitaColumnas sprFacturas.Row        
    End If        
    sprFacturas.Col = Col_Pagado        
    sprFacturas.Lock = False        
    .MoveNext
    Loop        
    sprFacturas.EventEnabled(EventButtonClicked) = True   
     End With
    End Sub

    miércoles, 18 de diciembre de 2019 1:09