SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: 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
-
por ejemplo le pones como parametro
'*Ver detalle, Si o No.
Rpt.ParameterFields.GetItemByName("Ver detalle").AddCurrentValue CBool(GrpDetalle.Value)
-
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.
-
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
:band:
-
Continua sin funcionarme:question:
-
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