Ver Mensaje Individual
  #5 (permalink)  
Antiguo 01/06/2009, 06:46
srxfalso
 
Fecha de Ingreso: junio-2009
Mensajes: 6
Antigüedad: 14 años, 11 meses
Puntos: 0
Respuesta: AYUDA... Crystal Report

Buenos dias....
asastrem:
no es muy dificil de hacer, de echo en youtube hay varios ejemplos de como hacer lo, por ejemplo.
youtube.com/watch?v=-GAz7AH6-vA

si no comprendes a tarvez del video, prueba lo siguente. haber si se me entiende.

en mi caso yo conexcto el servidor mediante el vb.net (2005 o 2008) luego creo un data set y posteriomente inserto una vista o del servidor agregado al dataset, luego quito todas las opciones de este data ser para que no tenga comunicacion con el servidor, solo lo hago para tener el nombre de campos para mi reporte. bueno una vez echo esto hago un deploy(genero la aplicacion), ya generada creo un reportes y en las opciones de origenes de datos todo los del proyecto donde debe aprarecer el dataset1 o colo le hayas colocado. y con eso haces el reporte, una vez confeccionado el reporte, agregregas crea un codigo que genere un dataset y este dataser lo entregas como datasource al repotes y listo. el dataset puede ser cualquiera mientras tenga los mismos nombres de campos y nombre tabla que con el que se genero el reporte. por ejemplo asi lleno un dataset en una de mis aplicaciones y luego las paso a mi reporte...

System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
Dim vbref As New ClassConexcion.ConectarBdd
Dim obj As New DataSet
vbref.OpenSQL(Ruta)
Dim cmd As New SqlCommand("planificacion.SP_Vista_NecesidadActual ", bref.Cnn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.AddWithValue("@Mes", NomMes) ' Mes Palabras
cmd.Parameters.AddWithValue("@NumMes", mes) 'mes Numero
cmd.Parameters.AddWithValue("@ano", ano) ' Año
cmd.Parameters.AddWithValue("@Mercado", Mercado) 'Mercado
Dim ap As New SqlDataAdapter
ap.SelectCommand = cmd
ap.Fill(obj, "Necesidad_actual")
Dim info As New CrptNecesidadAct
Crystal.Refresh()
info.SetDataSource(obj)
info.SetParameterValue(0, Parametro)
Crystal.ToolPanelView = CrystalDecisions.Windows.Forms.ToolPanelViewType.N one
Crystal.ReportSource = info
Crystal.Zoom(95)

bueno cualquiero cosa me puedes enviar un mail, y podemos confeccionar un ejemplo.

saludos....