Foros del web, para los que viven de bits

Enea · 28-sep-2005, 06:10

He creado un objeto de texto en mi crystal report y lo he dejado vacio. Le he puesto un nombre "Compras", como puedo desde vb 6 asignarle un valor... es posible esto?

The_Pretorian · 28-sep-2005, 07:49

Has intentado crear un parametro y que ese muestre el valor que sea enviado desde VB

Atte
Jorge Diaz

Enea · 28-sep-2005, 07:59

Como puedo hacerlo? Dame un ejemplo, por favor

Gracias!

lop7 · 28-sep-2005, 09:34

hola...
si es un parametro intentalo asi

cr_Rep.ParameterFields(i).AddCurrentValue (Valor)
en mi caso i porque hago con un for y tambien bien evaluo con un select case este ultimo para evaluar el nombre del parametro si tienes varios

saludos...
nos vemos...

Enea · 29-sep-2005, 03:18

Primero de todo, gracias por responder...

He insertado una formula en formula fields con nombre Compras, directamente me ha salido una ventana llamada "Workshop" en esa ventana no he hecho nada, simplemente la he cerrado. Luego en formula fields veo que ha creado la etiqueta "Compras" que he desplazado hasta el reporte pudiendose ver @Compras en el campo. He guardado cambios y he cerrado mi .rpt
En vistual basic tengo este código

Código:

Private Sub Form_Load()

Dim crystal As CRAXDRT.Application
Dim Report As CRAXDRT.Report

CRViewer.DisplayBorder = False
CRViewer.DisplayTabs = False
CRViewer.EnableDrillDown = False
CRViewer.EnableRefreshButton = False

RS.Open consultado, Cxn, adOpenStatic, adLockReadOnly

Set crystal = New CRAXDRT.Application
Set Report = crystal.OpenReport(App.Path & "\Iva.rpt")
Report.DiscardSavedData
Report.Database.SetDataSource RS
Report.ParameterFields(0).AddCurrentValue ("Hola")

CRViewer.ReportSource = Report
CRViewer.ViewReport

Do While CRViewer.IsBusy
DoEvents
Loop

CRViewer.Zoom 100
RS.Close

End Sub

Obtengo el error el subíndice esta fuera del intervalo...

¿Que puede ser?

lop7 · 29-sep-2005, 06:23

pareciera que no estuviera reconociendo el parametro

intentalo asi...

Código:

 If  Report.ParameterFields.Count > 0 Then
        For i = 1 To Report.ParameterFields.Count
        Select Case LCase(Report.ParameterFields(i).ParameterFieldName)
                Case "@Compras"
                Report.ParameterFields(1).AddCurrentValue ("Hola")
         end select 
        next i

si tienes mas parametros los metes dentro del select case
saludos...
nos vemos...

Enea · 29-sep-2005, 08:25

Pero tu que haces un parámetro o una formula? me estoy haciendo un lio...

Si lo hago como formula poniendo exactamente lo que me has puesto no me da errores pero tampoco me dice hola por ningun sitio... :(
Y si creo un parámetro tampoco me da errores pero me sale una ventanita para rellenar el valor del parametro...

Supongo que no lo configuro bien...

Yo y el cristal... mae mia, me va a volver loca!

lop7 · 29-sep-2005, 09:12

eso es para que lo hagas usando un parametro dijiste que querias pasar un valor de VB
a Crystal report bueno halli tienes esa forma yo lo hago y funciona correctamente. verifica q no hallas guardado el reporte con datos esto lo haces en Crystal
Archivo--->guardar reportes con datos quitale el chekc

saludos...
nos vemos...

Enea · 29-sep-2005, 09:24

Si, le quiero pasar un valor de vb a crystal, he quitado el check de guardar reportes con datos pero me sigue apareciendo la ventanita pidiendome el valor de Compras cuando ejecuto el crystal...
Como configuro el parametro?
Static, dynamic?
Gracias por la paciencia, siento si pregunto cosas iniciales pero he tenido muy poco contacto con crystal, practicamente nada y encima tengo la versión 11 en inglés...

lop7 · 29-sep-2005, 09:39

oye tengo poco tiempo trabajando con crystal pero eso q me estas diciendo de configurar los parametros no entiendo.
yo hago un stored procedure en sql server y le creo unos prametros luego lo llamo desde crystal version 10.0 tambien en ingles y armo mi reporte...

en cuanto a visual utilizo el control CrystalActiveXReportViewer los parametros los paso yo sin q me muestre la ventana de parametros... tu configuras el control para q t muestre lo botones que quieras y ya

saludos...
nos vemos...

lop7 · 29-sep-2005, 09:53

ha se me pasaba por alto lo de la ventanita asegurate que le estas pasando el parametro de la manera que te mostre si crystal no agarra el parametro entonces te manda la ventana para que le des los parametros pero si se los pasas entonces no te muestra la ventana... en el select case donde va el nombre del parametro asegurate de escribirlo tal y como esta en crystal...ok

saludos...
nos vemos...

Enea · 29-sep-2005, 09:55

Yo trabajo con crystal XI, y cuando digo que quiero pasarle un parametro a crystal me refiero a que quiero que me muestre un cuadro de texto con lo que yo diga por código (ej.: compras.text="hola"), no porque vaya a usarlo en una consulta... Me dijisteis que tenía que hacerlo pasando un parámetro...
Y lo de los parametros que digo esta en una ventanita que se llama Field Explorer; ahí puedes crear parametros, formulas, consultas ... ahí si le das a nuevo parametro te hace relacionarlo con un campo de la base de datos pero yo no quiero q tenga nada que ver con la base de datos, lo que quiero lograr es que un cuadro de texto contenga un "hola" pasado por código vb6...

lop7 · 29-sep-2005, 11:38

ha... ok no lo habia entendido asi dejame probar porq no estoy seguro de como hacerlo si lo consigo te la digo... ok

saludos...
nos vemos...

Enea · 30-sep-2005, 08:49

Lop7, he tenido que cambiar el bucle porque como me lo habías puesto tu con el
case no funcionaba, no entraba dentro... no sé porque..
Así si me funciona...

Código:

If Report.ParameterFields.Count > 0 Then
    For i = 1 To Report.ParameterFields.Count
      If Report.ParameterFields(i).ParameterFieldName = "Compras" Then
                Report.ParameterFields(i).AddCurrentValue ("Hola")
         End If
        Next i
End If

Muchisimas gracias por todo!!!

28-sep-2005, 06:10	#1 (permalink)
Enea Fecha de Ingreso: junio-2003 Mensajes: 737	Asignar valor a objeto de texto desde vb6 He creado un objeto de texto en mi crystal report y lo he dejado vacio. Le he puesto un nombre "Compras", como puedo desde vb 6 asignarle un valor... es posible esto? __________________ Saludos desde Eivissa !!! :p

28-sep-2005, 07:49	#2 (permalink)
The_Pretorian Fecha de Ingreso: diciembre-2004 Ubicación: Lima - Peru Mensajes: 217	Has intentado crear un parametro y que ese muestre el valor que sea enviado desde VB Atte Jorge Diaz __________________ Creo que todas las cosas suceden por algo, no es eso que los demas llaman 'Destino'. Definitivamente Dios no juega a los dados...

28-sep-2005, 07:59	#3 (permalink)
Enea Fecha de Ingreso: junio-2003 Mensajes: 737	Como puedo hacerlo? Dame un ejemplo, por favor Gracias! __________________ Saludos desde Eivissa !!! :p

28-sep-2005, 09:34	#4 (permalink)
lop7 Fecha de Ingreso: junio-2005 Ubicación: portuguesa (Venezuela) Mensajes: 185	hola... si es un parametro intentalo asi cr_Rep.ParameterFields(i).AddCurrentValue (Valor) en mi caso i porque hago con un for y tambien bien evaluo con un select case este ultimo para evaluar el nombre del parametro si tienes varios saludos... nos vemos... __________________ A quien dices un secreto le entregas tu libertad :si:

29-sep-2005, 03:18	#5 (permalink)
Enea Fecha de Ingreso: junio-2003 Mensajes: 737	Primero de todo, gracias por responder... He insertado una formula en formula fields con nombre Compras, directamente me ha salido una ventana llamada "Workshop" en esa ventana no he hecho nada, simplemente la he cerrado. Luego en formula fields veo que ha creado la etiqueta "Compras" que he desplazado hasta el reporte pudiendose ver @Compras en el campo. He guardado cambios y he cerrado mi .rpt En vistual basic tengo este código Código: Private Sub Form_Load() Dim crystal As CRAXDRT.Application Dim Report As CRAXDRT.Report CRViewer.DisplayBorder = False CRViewer.DisplayTabs = False CRViewer.EnableDrillDown = False CRViewer.EnableRefreshButton = False RS.Open consultado, Cxn, adOpenStatic, adLockReadOnly Set crystal = New CRAXDRT.Application Set Report = crystal.OpenReport(App.Path & "\Iva.rpt") Report.DiscardSavedData Report.Database.SetDataSource RS Report.ParameterFields(0).AddCurrentValue ("Hola") CRViewer.ReportSource = Report CRViewer.ViewReport Do While CRViewer.IsBusy DoEvents Loop CRViewer.Zoom 100 RS.Close End Sub Obtengo el error el subíndice esta fuera del intervalo... ¿Que puede ser? __________________ Saludos desde Eivissa !!! :p

29-sep-2005, 06:23	#6 (permalink)
lop7 Fecha de Ingreso: junio-2005 Ubicación: portuguesa (Venezuela) Mensajes: 185	con esto deberia funcionar pareciera que no estuviera reconociendo el parametro intentalo asi... Código: If Report.ParameterFields.Count > 0 Then For i = 1 To Report.ParameterFields.Count Select Case LCase(Report.ParameterFields(i).ParameterFieldName) Case "@Compras" Report.ParameterFields(1).AddCurrentValue ("Hola") end select next i si tienes mas parametros los metes dentro del select case saludos... nos vemos... __________________ A quien dices un secreto le entregas tu libertad :si:

29-sep-2005, 08:25	#7 (permalink)
Enea Fecha de Ingreso: junio-2003 Mensajes: 737	Pero tu que haces un parámetro o una formula? me estoy haciendo un lio... Si lo hago como formula poniendo exactamente lo que me has puesto no me da errores pero tampoco me dice hola por ningun sitio... :( Y si creo un parámetro tampoco me da errores pero me sale una ventanita para rellenar el valor del parametro... Supongo que no lo configuro bien... Yo y el cristal... mae mia, me va a volver loca! __________________ Saludos desde Eivissa !!! :p

29-sep-2005, 09:12	#8 (permalink)
lop7 Fecha de Ingreso: junio-2005 Ubicación: portuguesa (Venezuela) Mensajes: 185	eso es para que lo hagas usando un parametro dijiste que querias pasar un valor de VB a Crystal report bueno halli tienes esa forma yo lo hago y funciona correctamente. verifica q no hallas guardado el reporte con datos esto lo haces en Crystal Archivo--->guardar reportes con datos quitale el chekc saludos... nos vemos... __________________ A quien dices un secreto le entregas tu libertad :si:

29-sep-2005, 09:24	#9 (permalink)
Enea Fecha de Ingreso: junio-2003 Mensajes: 737	Si, le quiero pasar un valor de vb a crystal, he quitado el check de guardar reportes con datos pero me sigue apareciendo la ventanita pidiendome el valor de Compras cuando ejecuto el crystal... Como configuro el parametro? Static, dynamic? Gracias por la paciencia, siento si pregunto cosas iniciales pero he tenido muy poco contacto con crystal, practicamente nada y encima tengo la versión 11 en inglés... __________________ Saludos desde Eivissa !!! :p

29-sep-2005, 09:39	#10 (permalink)
lop7 Fecha de Ingreso: junio-2005 Ubicación: portuguesa (Venezuela) Mensajes: 185	oye tengo poco tiempo trabajando con crystal pero eso q me estas diciendo de configurar los parametros no entiendo. yo hago un stored procedure en sql server y le creo unos prametros luego lo llamo desde crystal version 10.0 tambien en ingles y armo mi reporte... en cuanto a visual utilizo el control CrystalActiveXReportViewer los parametros los paso yo sin q me muestre la ventana de parametros... tu configuras el control para q t muestre lo botones que quieras y ya saludos... nos vemos... __________________ A quien dices un secreto le entregas tu libertad :si:

29-sep-2005, 09:53	#11 (permalink)
lop7 Fecha de Ingreso: junio-2005 Ubicación: portuguesa (Venezuela) Mensajes: 185	ha se me pasaba por alto lo de la ventanita asegurate que le estas pasando el parametro de la manera que te mostre si crystal no agarra el parametro entonces te manda la ventana para que le des los parametros pero si se los pasas entonces no te muestra la ventana... en el select case donde va el nombre del parametro asegurate de escribirlo tal y como esta en crystal...ok saludos... nos vemos... __________________ A quien dices un secreto le entregas tu libertad :si:

29-sep-2005, 09:55	#12 (permalink)
Enea Fecha de Ingreso: junio-2003 Mensajes: 737	Yo trabajo con crystal XI, y cuando digo que quiero pasarle un parametro a crystal me refiero a que quiero que me muestre un cuadro de texto con lo que yo diga por código (ej.: compras.text="hola"), no porque vaya a usarlo en una consulta... Me dijisteis que tenía que hacerlo pasando un parámetro... Y lo de los parametros que digo esta en una ventanita que se llama Field Explorer; ahí puedes crear parametros, formulas, consultas ... ahí si le das a nuevo parametro te hace relacionarlo con un campo de la base de datos pero yo no quiero q tenga nada que ver con la base de datos, lo que quiero lograr es que un cuadro de texto contenga un "hola" pasado por código vb6... __________________ Saludos desde Eivissa !!! :p

29-sep-2005, 11:38	#13 (permalink)
lop7 Fecha de Ingreso: junio-2005 Ubicación: portuguesa (Venezuela) Mensajes: 185	ha... ok no lo habia entendido asi dejame probar porq no estoy seguro de como hacerlo si lo consigo te la digo... ok saludos... nos vemos... __________________ A quien dices un secreto le entregas tu libertad :si:

30-sep-2005, 08:49	#14 (permalink)
Enea Fecha de Ingreso: junio-2003 Mensajes: 737	Lop7, he tenido que cambiar el bucle porque como me lo habías puesto tu con el case no funcionaba, no entraba dentro... no sé porque.. Así si me funciona... Código: If Report.ParameterFields.Count > 0 Then For i = 1 To Report.ParameterFields.Count If Report.ParameterFields(i).ParameterFieldName = "Compras" Then Report.ParameterFields(i).AddCurrentValue ("Hola") End If Next i End If Muchisimas gracias por todo!!! __________________ Saludos desde Eivissa !!! :p

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado