Hace unas semanas publiqué el post Informe en .NET con Crystal Reports y base de datos MySQL, que se convirtió rápidamente en el post más visitado de este blog. También en el que más comentarios ha recibido, y precisamente de uno de ellos ha surgido este apéndice a dicho post.
Recordemos que en él enseñábamos cómo crear un informe con Crystal Reports utilizando un archivo XML y un DataTable (también servía un DataSet). En éste vamos a ver cómo podemos pasar parámetros al informe creado, por ejemplo para enviar el valor de un TextBox (aunque en mi ejemplo utilizaré una constante) y mostrarlo en el informe o bien utilizarlo para filtrar qué registros se tienen que mostrar y cuáles no.
Vamos a meternos pues en faena.
Partíamos de un par de tablas de MySQL y una vista que se había establecido así:
(
SELECT
blh_num AS BILL_NUMBER,
blh_dat AS BILL_DATE,
blh_cus AS BILL_CUSTOMER,
blp_pos AS LINE_NUMBER,
blp_art AS LINE_ARTICLE,
blp_pri AS LINE_UNITPRICE,
blp_qty AS LINE_UNITS,
blp_pri * blp_qty AS LINE_TOTALPRICE
FROM
blh_billheader LEFT JOIN blp_billposits ON blh_num = blp_num
WHERE
blh_num = 4
);
En la que por tanto filtrábamos los valores para obtener sólo los registros correspondientes a la factura número 4. Bien, vamos a cambiar eso para que ahora nuestro DataTable contenga todos los registros correspondientes a todas las facturas. La vista quedará pues ahora así:
(
SELECT
blh_num AS BILL_NUMBER,
blh_dat AS BILL_DATE,
blh_cus AS BILL_CUSTOMER,
blp_pos AS LINE_NUMBER,
blp_art AS LINE_ARTICLE,
blp_pri AS LINE_UNITPRICE,
blp_qty AS LINE_UNITS,
blp_pri * blp_qty AS LINE_TOTALPRICE
FROM
blh_billheader LEFT JOIN blp_billposits ON blh_num = blp_num
);
El resto de objetos siguen de momento igual. Esto es, el formulario frmMain y el reporte rptBill. No es preciso volver a generar el archivo XML para los cambios que vamos a hacer.
En el Explorador de campos hacemos click derecho en la opción Campos de parámetro para crear un nuevo parámetro. Lo creamos dándole un nombre (BillNumber) y un tipo de valor (Número) y aceptamos.
Si y sólo si tenemos algún interés en que este parámetro que posteriormente le enviaremos al informe aparezca en algún sitio de este informe, lo añadiremos a su área de impresión. En mi caso y sólo para que todo quede más claro, lo añado tal como se muestra en la imagen siguiente (el parámetro es el campo ?BillNumber):
Pero insisto en que lo importante ha sido crearlo. Arrastrarlo hasta el área de impresión del informe es absolutamente opcional.
En este ejemplo partimos de un DataTable con varios registros pertenecientes a distintas facturas y desearemos filtrar el reporte para que nos muestre sólo un determinado número de factura. Para ello tenemos pues que establecer este filtro.
Para ello, hacemos click derecho en cualquier punto del área de impresión del report y seleccionamos la opción Report - Fórmula de selección - Registro. En el editor que nos aparece seleccionamos los campos correspondientes para terminar creando la siguiente fórmula:
Guardamos el filtro y cerramos el editor.
Ya hemos creado un parámetro en el informe y hemos definido también un filtro basado en ese parámetro. Lo último que nos queda es pues informar el valor que deseamos que coja ese parámetro. En este caso lo haremos enviándoselo desde el formulario a través de una constante, pero como he dicho antes podríamos hacerlo tomando el valor, por ejemplo, de un TextBox o un DataGridView.
Para enviar el valor simplemente debemos añadir esta línea al código del formulario:
Con lo cual el código íntegro del formulario queda como sigue:
' Author: Albert Mata (www.albertmata.net)
' Date: 20081001
' Description: Form to show how to create a report using just an XML
' file, and how to send parameters to it.
'--------------------------------------------------------------------
Imports CrystalDecisions.CrystalReports.Engine
Public Class frmMain
'----------------------------------------------------------------
' Constants.
'----------------------------------------------------------------
Const BILL_NUMBER As Integer = 4
'----------------------------------------------------------------
' Creates XML file (just once) and creates and loads a report.
'----------------------------------------------------------------
Private Sub frmMain_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
'Creating XML file.
Dim RC As New clsReportCreator("zbl_bill2print")
'RC.CreateXMLFile("C:\")
'Creating report.
Dim RD As ReportDocument = New rptBill()
'Setting data source for report.
Dim DT As DataTable = RC.GetDataTable()
RD.SetDataSource(DT)
'Setting data source for possible subreports.
For Each SR As ReportDocument In RD.Subreports
If SR.Database.Tables.Count > 0 Then
SR.SetDataSource(DT)
End If
Next
'Setting recently created report must be shown in viewer.
Me.crvBill.ReportSource = RD
'Sending parameter to the report.
RD.SetParameterValue("BillNumber", BILL_NUMBER)
End Sub
End Class
Y esto es todo. A partir de aquí si ejecutamos la aplicación obtendremos el informe correspondiente.
Concretamente tal como está el código obtendremos lo siguiente:
Es decir, la factura número 4 porque hemos establecido el valor de la constante BILL_NUMBER a 4. Si cambiamos ese valor por un 3 y volvemos a ejecutar, obtendremos esto otro:
O sea, la factura número 3.
Vemos además que tanto en una como en la otra aparecen esos 4,00 y 3,00 fruto de que en el paso opcional de añadir el parámetro al área de impresión del informe, yo sí lo hice.
He intentado pasar parámetros a un informe de crystal reports y nunca he sido capaz de que funcionara correctamente, ya que tras usar el setParameter para asignar un valor, cuando voy a mostrar el informe me pide en un inputbox que introduzca el valor del parametro. Sabes a que se puede deber?
No es SetParameter sino SetParameterValue. Y si lo utilizas correctamente pasándole tanto el nombre del parámetro exacto (que deberá existir previamente en el informe) como el valor que debe tomar… y hay concordancia en los tipos de datos, debería funcionar.
Te recomendaría que intentaras reproducir paso a paso el ejemplo del post anterior y de este propio, porque funciona perfectamente y así tal vez puedas ver qué te está fallando en tu caso.
Un saludo.
Ya he encontrado el error. Es importante mantener el orden que se da en el ejemplo, ya que el siguiente código funciona:
Dim rptDocument As New informe
rptDocument.SetDataSource(getDSfiltrado)
Dim fr As New FormView
fr.crv.ReportSource = rptDocument
rptDocument.SetParameterValue(”prueba”, “hola”)
fr.ShowDialog()
pero si el SetParameterValue lo ponemos antes no:
Dim rptDocument As New informe
rptDocument.SetDataSource(getDSfiltrado)
rptDocument.SetParameterValue(”prueba”, “hola”)
Dim fr As New FormView
fr.crv.ReportSource = rptDocument
fr.ShowDialog()
En este último caso al mostrar el informe nos pide en un inputbox el valor del parametro.
Muchas gracias por tu aportación, Santi.