Ver Mensaje Individual
  #3 (permalink)  
Antiguo 24/08/2007, 14:12
misterkros
 
Fecha de Ingreso: agosto-2007
Mensajes: 6
Antigüedad: 17 años, 5 meses
Puntos: 0
Re: Problemas con Crystal Reports y Visual basic .net

hola navarro y a todos, una consulta estoy haciendo reportes con crytal 11 y visual estudio 2005. los reportes me funcan bien hasta con foto, el problema está cuando necesito llamar al reporte desde mi aplicacion, el paso de parametros.
me arroja una pantalla que debo volver a ingresar el "codigo" para enviarlo a crystal aqui les dejo el codigo....




Dim sName = Page.Request.QueryString("Value")
Dim CRV1 As New CrystalDecisions.Web.CrystalReportViewer
Dim CRS1 As New CrystalDecisions.Web.CrystalReportSource
Dim par1, par2 As New CrystalDecisions.Shared.ParameterValues
Dim val1, val2 As New CrystalDecisions.Shared.ParameterDiscreteValue
Dim login As New CrystalDecisions.Shared.TableLogOnInfo

CRS1.ReportDocument.FileName = Server.MapPath("informe1.rpt")

With CRV1
.ReportSource = CRS1.ReportDocument
.HasToggleGroupTreeButton = False
.HasViewList = False
.HasCrystalLogo = False
.DisplayGroupTree = False
.PrintMode = CrystalDecisions.Web.PrintMode.ActiveX
.EnableParameterPrompt = False
.EnableDatabaseLogonPrompt = False
.BorderWidth = 2
.BorderColor = Drawing.Color.Gray
End With
With login.ConnectionInfo
.ServerName = "192.168.2.167"
.DatabaseName = "personal"
.UserID = "sa"
.Password = "sa"
End With
'pasando dos parámetros al informe y comprobando que tienen valores

If sName <> Nothing Then 'And Session("parametro2") <> Nothing Then
Try
val1.Value = sName
CRS1.ReportDocument.ParameterFields("codigo").Curr entValues.Insert(0, par1.Item(0))
Catch
End Try

End If

CRV1.LogOnInfo.Add(login)
Me.Controls.Add(CRV1)
End Sub


ojalas me puedan ayudar gracias....
por cualquier cosa

[email protected]