Foros del Web » Programando para Internet » ASP Clásico »

Paso de parámetros en Crystal Reports 9

Estas en el tema de Paso de parámetros en Crystal Reports 9 en el foro de ASP Clásico en Foros del Web. Hola amigos!!! A ver.... Yo tengo una aplicación en ASP donde envio parámetros para construir el report. Mi pregunta es si es posible desde ASP ...
  #1 (permalink)  
Antiguo 25/03/2004, 04:50
 
Fecha de Ingreso: marzo-2004
Mensajes: 1
Antigüedad: 21 años, 1 mes
Puntos: 0
Paso de parámetros en Crystal Reports 9

Hola amigos!!!

A ver.... Yo tengo una aplicación en ASP donde envio parámetros para construir el report.

Mi pregunta es si es posible desde ASP enviar un parámetro al report para indicarle el TIPO de gráfico del report. Y en el caso de que existiera haber si alguien me pudiera decir el nombre y valores del parámetro.

Iria genial porque asi me ahorraria hacer tres o más formularios y la cosa seria más dinámica...

Muchas gracias por todo y felicidades por el foro!!!!

Hasta pronto!!!
  #2 (permalink)  
Antiguo 21/04/2004, 04:15
Avatar de Iri
Iri
 
Fecha de Ingreso: septiembre-2003
Ubicación: Madrid
Mensajes: 54
Antigüedad: 21 años, 7 meses
Puntos: 0
'SI TIENE PARAMETROS LE PASO EL VALOR:
dim param_name, param_value

param_name = "NOMBRE_PARAMETRO"

param_value = "VALOR_PARAMETRO"

dim paramValue 'discrete parameter value
dim param_old 'parameter field in the report
dim param_new
dim parameterfieldcollection
dim parameterfieldIndex

'Create a discrete parameter field value
set paramValue = objectFactory.CreateObject("CrystalReports.Paramet erFieldDiscreteValue")

'Set parameter field value to the new parameter value
paramValue.Value = param_value

'Look for the parameter with the correct name (using a loop)
Set parameterfieldcollection = clientDoc.DataDefinition.ParameterFields
For Each parameterfieldIndex in parameterfieldcollection
If parameterfieldIndex.Name = param_name Then
Set param_old = parameterfieldIndex

'Create a new parameter object
set param_new = objectFactory.CreateObject("CrystalReports.Paramet erField")

'Copy properties of old parameter to new parameter
param_old.CopyTo param_new

'Add discrete value to this new parameter field
param_new.CurrentValues.Add paramValue

'Modify parameter through the DataDefControler and the ParameterFiledController
clientDoc.DataDefController.ParameterFieldControll er.Modify param_old, param_new

'Clean up
set paramValue = nothing
set param_new = nothing

'break out of the loop
Exit For
End if
Next

Debes de ponerlo antes de la llamada al informe, espero que te sirva
__________________
irina.exe
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 11:21.