Ejemplo de Crystal

[reanimar]

Hola

Estoy trabajando con vb 6.0 y crystal 9

Alguien tiene un ejemplo de como se invoca desde visual un reporte y se le
pasa parametros a la consulta que se ejecuta en el reporte?

Encontre ejemplos pero me cuesta unirlos para lograr hacerlos funcionar...

Muchas Gracias

[hernanmdq]

una vez que creaste el ICRDesigner, y estableciste los parametros los llenas asi:

InfCtaCte.ParameterFields(1).AddCurrentValue (CStr(efectivo))

donde InfCtaCte es la instancia del crystal, parameterfields es un array de los parametros del reporte, y con add.....te imaginaras el resto. Suerte y salu2

[reanimar]

Tenes un ejemplo el cual pueda ver funcionando?

Que es mejor pasarle la consulta a Crystal o hacerla directamente dentro del reporte??

Gracias

[hernanmdq]

Te paso el ejem. mas completo.

Código:

Viewer as CRViewer9

Private Sub Form_Load()
    Viewer.ReportSource = InfCtaCte
end sub

'Esto en cualquier lado, un boton o lo que sea
InfCtaCte.PaperSize = crPaperA4
consulta1 = "SELECT FacturasCompra.NFactura, Comprobantes.Descripcion, FacturasCompra.Fecha, DetalleOrden.Importe, FacturasCompra.Concepto, FacturasCompra_1.IdFactura" & _
               " FROM Comprobantes RIGHT JOIN ((FacturasCompra RIGHT JOIN DetalleOrden ON FacturasCompra.IdFactura = DetalleOrden.IdFactura) LEFT JOIN FacturasCompra AS FacturasCompra_1 ON DetalleOrden.IdOrden = FacturasCompra_1.IdFactura) ON Comprobantes.IdComprobante = FacturasCompra.Tipo" & _
               " WHERE (((FacturasCompra_1.IdFactura)= " & idOrden & "));"

FacturasProveedor.Open consulta1, DECompras.Base

InfCtaCte.Database.SetDataSource FacturasProveedor

InfCtaCte.ParameterFields(1).AddCurrentValue (CStr(efectivo))
InfCtaCte.ParameterFields(2).AddCurrentValue (CStr(transferencia))
InfCtaCte.ParameterFields(3).AddCurrentValue (banco)
InfCtaCte.ParameterFields(4).AddCurrentValue (txtCuit.Text)

Viewer.ViewReport
Viewer.Zoom (1)

Viewer es el objeto para ver informes, en el load le asocio el CRreport (creado antes desde menu proyecto - agregar crystal report 9 )
Luego creo la consulta y se la paso porque de ahi toma unos datos.
Despues le paso los parametros uno por uno.
las 2 ultimas lineas son para mostrar el viewer, ya que en mi form lo tengo oculto.

Espero que esto te sirva, salu2.

[reanimar]

Antes de hacer eso es necesario que le des la ubicacion del reporte ya creado, no?

Despues solo tengo que ubicar en el reporte los datos que quiero que muestre
y listo....

Muchas gracias

[hernanmdq]

Creo que estas errada en algo, el crystal lo tienes que crear dentro de vb, como te decia en Menu proyecto - agregar CR. Luego creas una instancia de el, como hice yo con el "InfCtaCte" y listo.

Tambien puedes crearlo desde el entorno del crystal reports, pero ahi no se como se hace. Salu2

[reanimar]

Yo puedo crear el reporte en Crystal mismo para que el diseño me quede mejor y pasarle desde visual la consulta SQL?

Esa seria la pregunta.

[hernanmdq]

Pues poder puedes, no es como lo hago yo.
Yo desde el mismo entorno VB creo que el diseñador crytal y despues lo que conoces.
A lo primero intente hacer como tu dices, pero era mucho mas dificil, suerte.