Autor Tema: Re: Como pasar valores al CRYSTAL (Leído 2283 veces)

acanalis · « **en:** Miércoles 15 de Octubre de 2003, 16:29 »

Buenas quiero hacer lo siguiente tengo declarados en un rpt "Text Object" objetos de texto donde podemos poner lo que queremos. Bueno por ahora es facil el caso es que quiero mandar desde VB el texto que quiero que aparezca y con el VIEWER es facil el problema es que tengo que hacerlo sin el...

Por ahora tengo esto:
CrystalReport.ReportFileName = "c:nuevo_toni.rpt"
CrystalReport.Destination = crptToWindow
CrystalReport.Action = 1

FRIJU

por ejemplo le pones como parametro
'*Ver detalle, Si o No.
Rpt.ParameterFields.GetItemByName("Ver detalle").AddCurrentValue CBool(GrpDetalle.Value)

acanalis

El VB solo detecta hasta este punto
Rpt.ParameterFields después al poner . y querer continuar con la cadena ya no me pone nada automaticamente.

De todas formas gracias, es jodido ya que con viewer se hacerlo pero no me dejan. Es como si diseñas un rpt y en una esquina pones el programa que lo carga en un cuadro de texto pues lo que quiero es cambiar este cuadro de texto desde la aplicación que llama al rpt. con el nombre que quiera.

FRIJU

Te comento tengo hecho algo parecido con el idioma. Depende con que idioma entres al programa el informe se presenta con el ¡dioma elegido.
para ello debes de dar parametro.
Rpt.ParameterFields.GetItemByName("Idioma").AddCurrentValue (IDIOMA)
Idioma es una varible donde memorizo el idoma luego en el informe debes de hacer lo siguiente:
Un campo de formula y editar el campo.
Por ejemplo:
if {?Idioma} = "CAS" then
"Fecha Inicio"
else if {?idioma} = "FRA" then
"Date"

Espero que te valga

acanalis

Continua sin funcionarme:question:

acanalis

Al final buscando y buscando lo consegui, pongo el código por si alguien tiene que hacer lo mismo.

Como pasar valores a un RPT sin utilizar VIEWER

Tendremos que crear un rpt desde el propio crystal, luego le añadimos un PARAMETER FIELDS del tipo que queramos "TEXTO,STRING,ETC"
y por ejemplo lo llamamos NUEVO_TONI. El crystal lo trata como un campo de la tabla más y lo podemos colocar donde queramos. El código desde VB
para modificar el texto es el siguiente

Private Sub Command1_Click()
CrystalReport.ReportFileName = "c:nuevo_toni.rpt"
CrystalReport.ParameterFields(0) = "NUEVO_TONI;Param del Reporte;True"
CrystalReport.Destination = crptToWindow
CrystalReport.Action = 1
End Sub