Formulas en Crystal Reports 9

[Badjov]

Hace poco envie un mensaje preguntando como hacer consultas en crystal reports 7. NADIE RESPONDIO.

Pero bueno, compre el Crystal Reports 9, ahora lo que necesito es saber como puedo enviar parametros a las formulas.

Ejemplo: @titulo

Espero que esta si la repondan.

De antemano gracias.

[Elliott Lopez]

Hola yo también soy usuario nuevo en Crystal pero el problema que tienes es algo sencillo te explico:

En Visual Basic supongo que y a has diseñado el contro Crystal Report Control que automáticamente se instala en los componentes del VB bueno suponiendo que el nombre de este control sea Crystal y el campo formula se llama @Titulo programa lo sgte.


Crystal.Connect = "conexión"
Crystal.ReportFileName = "C:\Reporte1"
Crystal.Formulas(1) = "Titulo='Mi título"
Crystal.Action
Bueno tu ya lo adaptas as tus necesidades pero ahí están los parámetros principales.

[Badjov]

Eso que digiste es algo muy simple de hacer.
EN EL CRYSTAL REPORTS 7.

En el Crystal Reports 9 la cosa se complica un poco, veras

los componentes son:

Crystal Report Viewer Control 9

las referencias son:

Crystal Report Viewer Control 9
Crystal Report 9 ActiveX Designer Design and Runtime Library
Embeddable Crystal Reports 9 Designer Control

Las variables son:

Public NInforme As String
Public m_Application As New CRAXDDRT.Application
Public Reporte As CRAXDDRT.Report

Y finalmente el codigo es:

Set Reporte = Nothing
Set Reporte = m_Application.OpenReport("C:\Proyect\infopyme.rpt" , 1)

With Visor
.ReportSource = Reporte
.Zoom 1
.ViewReport
End With


Como verás la forma de programación tambien cambio y el ".Formulas(*)" desaparecio (Eso creo).

De todas maneras tu respuesta es correcta pero solo aplicable en versiones anteriores.

Gracias de todas maneras. :)

[ptoledo]

HOLA SABEN TENGO UN PROBLEMA CON CRISTAL REPORT , TRENGO UNA TABLA DONDE TENGO VARIOS DATOS , ES UN SISTEMA DE PERSONAL , ENTONCES DESEO LISTAR SOLO LOS DATOS DE LA PERSONA QUE INGRESEN EL RUT Y TODO LO QUE TENGO EN LA BASE COMO SE PUEDE HACEWER LOS REPORTES LOS TENGO HECHO Y FUNCIONAN CUANDO SE TRATA DE TODOS LOS DATOS

ESPERO ME PUEDAN AYUDAR , ESTOY RECIEN UTILIZANDO ESTE PROGRAM , LAS TABLAS ESTAN EN ACCESS 2000


SALUDOS

PEDRO B.

[Badjov]

Me respondiste con otra pregunta, pero bueno, la forma para lograr eso se logra mandando una consulta a travez de SQL.

como ejemplo se tiene una base de datos enlazada con el reporte, eso lo tienes, los datos que tiene la tabla usada (Tabla1 desde ahora) contiene los datos de NOMBRE y RUT, es un ejemplo.

Tu tienes las instrucciones dadas como:

Crystal.ReportFileName = "C:\Reporte1"
Crystal.Formulas(1) = "Titulo='Mi t�tulo"

etc... no entraremos en detalles.

pero la linea que tienes que agregar es:

crystal.sqlquery = "select * from tabla1 where RUT = '15702000-5'"

el rut debe encontrarse en comillas simples si quieres un texto, si es un numero no debe llevar comillas.

Cualquier duda, enviala y haré lo posible por ayudarte.

[ptoledo]

Mensaje Original por Badjov
Me respondiste con otra pregunta, pero bueno, la forma para lograr eso se logra mandando una consulta a travez de SQL.

como ejemplo se tiene una base de datos enlazada con el reporte, eso lo tienes, los datos que tiene la tabla usada (Tabla1 desde ahora) contiene los datos de NOMBRE y RUT, es un ejemplo.

Tu tienes las instrucciones dadas como:

Crystal.ReportFileName = "C:\Reporte1"
Crystal.Formulas(1) = "Titulo='Mi t�tulo"

etc... no entraremos en detalles.

pero la linea que tienes que agregar es:

crystal.sqlquery = "select * from tabla1 where RUT = '15702000-5'"

el rut debe encontrarse en comillas simples si quieres un texto, si es un numero no debe llevar comillas.

Cualquier duda, enviala y haré lo posible por ayudarte.

[Badjov]

Por que repites mi mensaje

[ptoledo]

disculpa , pero no se como enviar un mensaje en forma directa a un miembro del grupo entonce sestuve probando y reenvie tu mensaje , y no pude borrarlo , pero si estas en linea como dice ahi , te consulto nuevamente no resulta l acosa , te enviare el codigo para ver si me puedes ayudar


Dim titulo1 As String
Dim auxi As String

auxi = CARGAS2.Lbrut.Text // en la variable que esta en ese formulario ( cargas2.lbrut.text ) es lo que escribe es usuario en la pantalla , por ende deseo solo imprimir los datos de esa persona ?

titulo1 = auxi


'CrystalReport1.SelectionFormula = ""



'CrystalReport1.SelectionFormula = "{cargas.rutc}= "&auxi& "


'CrystalReport1.SQLQuery = "select * from cargas where rutc ='10813590'" // esto funcioan asi , pero debo ingresar las datos del usuario en el reporte lo que no puede ser ???


'Debug.Print CrystalReport1.SelectionFormula


stop

'CrystalReport1.DiscardSavedData = True



'CrystalReport1.Action = 1


Muchas gracias y disculpa nuevamnte por la patudes y repetir tu mensaje

Atentamente

Pedro.

[Badjov]

Cuales son los datos que te pide en el reporte?

[ptoledo]

los datos que necesito del reporte son los siguientes :


De la tabla datlab , el centro de costo
De la tabla datper , el rut del trabajador , y su nombre
de la tabla cargas , el rut de la carga , el nombre ( apellido paterno , materno y nombre ) , ademas del tipo de carga ( hijo , conyuge o ascendiente )


esos son los campos del infome y m efunciona cuando son todos los que tengo en la base de datos , pero cuando es uno solo muestra el reporte en blanco ,
nuevamente gracias

[Badjov]

prueba haciendo lo siguiente.

en el reporte hay una opcion llamada

Base de datos --> Mostrar consulta sql

copia lo que encuentres en

CrystalReport1.SQLQuery

y agregale la linea de la consulta que deseas hacer.

suerte, me respondes si resulta o no.

[ptoledo]

estoy en el 7 y la opcion aparece deshabilitada, prove las opciones de conectarla al servidor todo aparece bien , pero esa opcion no

[Badjov]

tienes bases de datos indexadas en el reporte.

la opcion es

base de datos --> asistente de vinculo visual

deberia aparerte esa opcion si tienes algunos enlazados.

[ptoledo]

si aparece esa opcion y me muestra las 3 tablas que tengo

[Badjov]

aparecen con unas lineas entre ellos?

[ptoledo]

si aparecen una lineas entre ellos y las claves primarias estan con una forma verda al costado

[Badjov]

De que forma tienes ingresadas las bases de datos.

a travez de direccion normal o enlazados por obdc.

[Badjov]

Creeme que tengo todo el animo de ayudarte pero mientras no aparezca esa opción no puedo hacer mucho.

Lo que te deberia mostrar es la consulta completa que hace el sistema, lo unico que tendrias que hacer es copiar la consulta y pegarla donde te dije. Después agregarle la consulta del rut.

[alexmalara]

holaaaaaaa

necesito ayuda con ASP y crystal reports, como hago para que desde asp emita un reporte en crystal, tengo instalado el CR9 en mi servidor.

[dianaeneida]

Aunque ya pasó hace mucho tiempo, les detallo la solución para otros que consultan este foro:

Dim rpTemp As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent()

rpTemp.Load("c:\Reporte.rpt")

rpTemp.SetDataSource(myDs)

rpTemp.DataDefinition.FormulaFields("Titulo").Text = "'" & strTituloReporte & "'"

CrystalReportViewer1.ReportSource = rpTemp

[meyi]

hola!! soy nueva en el foro y trabajando con crystal, me gustaría saber cómo podría establecer una fórmula en CR para que tan solo me coja unos valores predeterminados...

A ver si me explico mejor... Tengo una Bd en la cual tengo un valor booleano quisiera recoger los datos en un informe si el valor es verdadero y si no, que no lo haga... Lo he hecho por Vb estableciendo una formula que me obtenga el valor de ese dato y si es falso me lo muestra y si no, no. El problema es que si un cliente tiene 2 entradas una verdadera y otra falsa, el informe me lo muestra todo junto.

Espero haberme explicado medianamente bien... Gracias por adelantado. :)

[Alam-Brito]

Buen día....

Señores... soy nuevo en el foro.... agradezco su colaboración.....

Tengo problemas para pasar el titulo de la aplicación Visual Dbase a Crystal Report 10

En Vdbase tengo una forma que dependiendo de la opción que se elija cambiara el titulo del reporte.
Actualmente lo que hice fue crear una pequeña base de datos con los valores del encabezado, como Gerencia, departamento, titulo y subtitulo y lo llamo ésta bd en Crystal conjunatemente con la del query(otra tabla-detalle del reporte), el problema es que en algunos reporte me sale bien pero en otros reporte no se muestra el valor, aunque en el campo tenga valor.... me tiene loco!!!

Atentamente,

A.G

[jhmaponte]

hola tengo un problema en visual estudio 2008 en mi crystal report pero no se como agregar mas datos me podrian ayudar por ejemplo que salga un dato de ciudad

este es el codigo
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Public Class OficioUno

Dim crReporte As New ReportDocument()
Public nombre As String
Public desc_centro As String
Public codigo As String
Public numeroOficio As String




Public Sub GenerarReporteUno()
crReporte = New ReportDocument()
crReporte.Load("c:\BdAccess\oficio.rpt")
crReporte.DataDefinition.FormulaFields(0).Text = "'" + nombre + "'"
crReporte.DataDefinition.FormulaFields(1).Text = "'" + desc_centro + "'"
crReporte.DataDefinition.FormulaFields(2).Text = "'" + codigo + "'"
crReporte.DataDefinition.FormulaFields(6).Text = "'" + numeroOficio + "'"


crvViewer.ReportSource = crReporte
crReporte.ExportToStream(ExportFormatType.Portable DocFormat)
End Sub

Private Sub crvViewer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles crvViewer.Load

End Sub

----------------------------------------------------
este codigo es de mi boton

Private Sub btnImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImprimir.Click
Dim numeroOficio As String
numeroOficio = Me.txtNoOficio.Text

Dim reporte As New OficioUno()
If (Not Me.comboNombres.Text.Equals(String.Empty)) Then
Dim persona As IdPersona
persona = CType(Me.comboNombres.SelectedItem, IdPersona)

reporte.nombre = persona.Nombre

reporte.desc_centro = persona.desc_centro
reporte.codigo = persona.codigo

reporte.numeroOficio = numeroOficio



reporte.GenerarReporteUno()
reporte.ShowDialog()
End If