viernes, diciembre 3, 2021

Como aplicarle filtros a nuestros reportes en Crystal Reports

Descargar solución VBNET_Crystal_Filtro.zip

Para este ejemplo vamos a crear un DataSet con la siguiente estructura:

Codigo tipo Short
Descripcion tipo String
Valor tipo decimal
Moneda tipo String

<?xml version=»1.0″ encoding=»utf-8″ ?>
<xs:schema id=»dsDatos» targetNamespace=»http://tempuri.org/dsImagenes.xsd»
elementFormDefault=»qualified» attributeFormDefault=»qualified»

>

<xs:element name=»dsDatos» msdata_IsDataSet=»true»>
<xs:complexType>
<xs:choice maxOccurs=»unbounded»>
<xs:element name=»Datos»>
<xs:complexType>
<xs:sequence>
<xs:element name=»Codigo» type=»xs:short» minOccurs=»0″ />
<xs:element name=»Descripcion» type=»xs:string» minOccurs=»0″ />
<xs:element name=»Valor» type=»xs:decimal» minOccurs=»0″ />
<xs:element name=»Moneda» type=»xs:string» minOccurs=»0″ />
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:choice>
</xs:complexType>
</xs:element>
</xs:schema>

Como aplicamos el filtro?

Luego de instanciar el reporte, he indicarle el Load le definimos el filtro que puede ser tan complejo como lo queramos.

En este caso los datos tienen 10 registros y vamos a filtrar por el código, le indicaremos que solo muestre los registros con el código mayor a 4

SQL = «{Datos.Codigo} > 4»

o que solo muestre los registros 1,4 y 6

SQL &= «{Datos.Codigo} in [1, 4, 6]»

también podemos hacer una mezcla de varios filtros utilizando en «AND»

SQL = «{Datos.Codigo} > 4»
SQL &= «AND {Datos.Moneda} > 'Colones'»

como vemos si el filtro es un string debemos definirlo con comillas simples '

incluso hacer operaciones en el filtro

SQL &= «{Datos.Valor} + {Datos.Codigo} – 10 <> 0″

En los tipos de filtros podemos utilizar diferente <>, igual que =, mayor que >, menor que <, mayor igual >=, menor igual <=, por rango in.

Private Sub MostrarReporte()
Try
Dim iReporte As New VisorReporte
Dim SQL As String
Dim rpt As New crDatos

rpt.Load()

If Me.chkFiltro.Checked Then
SQL = «{Datos.Codigo} > 4»
ElseIf Me.chkFiltro2.Checked Then
SQL = «{Datos.Codigo} in [1, 4, 6]»
ElseIf Me.chkFiltro3.Checked Then
SQL = «{Datos.Codigo} > 4»
SQL &= «AND {Datos.Moneda} = 'Colones'»
End If

rpt.RecordSelectionFormula = SQL
rpt.SetDataSource(ReturnDataSet)
rpt.Refresh()

iReporte.Reporte = rpt
iReporte.ShowDialog()
Catch ex As Exception
Throw ex
End Try
End Sub

Descargar solución VBNET_Crystal_Filtro.zip




Roy Rojashttp://www.dotnetcr.com
Con más de 20 años de experiencia en programación, experto en lenguajes .NET, VB, C#, ASP.NET, Xamarin, XCode, DBA en SQL Server. Creador de dotnetcr.com, sitio web para programadores en español. royrojas.com | dotnetcr.com | GitHub

Redes Sociales

2,736FansMe gusta
326SeguidoresSeguir

Popular esta semana

Calcular la distancia entre dos puntos geográficos en SQL Server

En este ejemplo mostramos como calcular la distancia en metros o kilómetros entre dos puntos geográficos, por latitud y longitud. El resultado lo obtenemos en metros o kilómetros.
SQL Server - Merge

MERGE en SQL Server para Insert, Delete y Update con dos tablas

Ejemplo práctico usando MERGE para sincronizar dos tablas, Insert, Update y Delete en un solo query. Válido para SQL SERVER 2008 o superior.

DELETE con subconsulta o INNER JOIN

En el siguiente ejemplo se explica la forma en que se pueden eliminar registros en nuestras tablas con instrucciones DELETE más complejas que las...

Últimos artículos

Flutter - Instagram Clone App

Instagram Clone App con Flutter

Marvin Stanley Valenzuela nos comparte un reto y genialidad a la vez, excelente práctica de la que podemos aprender mucho, diseñó en...

¿Cómo agregar una IP adicional en una VM Ubuntu en Azure?

Lo más común al momento de crear y configurar un nuevo servidor es que a este le asigne un solo IP, pero...
flutter one year

Después de un año con Flutter, esto es lo que aprendí

La historia comenzó cuando un día desperté pensando en tener un nuevo proyecto personal. Me dije a mí misma que hay muchas...
promocionar app

Cómo promocionar gratis tu app usando tappx

Como todos los que me siguen y mis redes sociales sabrán, recientemente lancé mi primera aplicación, pero más allá del desafío tecnológico de...