Crystal Reports

juplagon · #1 (**permalink**) 27/07/2011, 03:15

Hola de nuevo. Ya solo me falta "imprimir" para terminar mi proyecto. Cuando le doy a imprimir, sale un formulario con 2 botones: imprimir seleccion e imprimir informe.
El informe lo tengo hecho. Imprime una lista con los datos mas importantes. Lo que no se hacer es por seleccion, ya que tendria que ir "registro" por "registro" antes de darle a imprimir. Quizas poniendole un checkbox a listview y que luego se enlazara con crystal reports podria pero estamos en las mismas!!
Me gustaria que me lo explicaseis, no que me dierais el codigo entero.
Muchas gracias.
Un saludos

petis · #2 (**permalink**) 27/07/2011, 10:10

Un pequeño ejemplo de cómo lo hago yo:

Código:

    
    Dim formula As String
    Screen.MousePointer = vbHourglass
    Set Report = Application1.OpenReport(App.Path & "\presupuesto.rpt", 1)
For Each tbl In Report.Database.Tables
   tbl.SetLogOnInfo NombreBaseDatos
Next
    formula = "{presupuestos.numpresupuesto}='" & numero & "'"
    Report.RecordSelectionFormula = formula
    CRViewer1.ReportSource = Report
    CRViewer1.ViewReport
    CRViewer1.Zoom 1
    Screen.MousePointer = vbDefault

Con esto lo que hago es abrir un formulario de Crystal llamado presupuesto.rpt que está en la misma ruta que la aplicación y luego filtro con el la variable formula por el número de presupuesto.

Por supuesto hay que tener un CRViewer metido en el formulario de VB. Yo hago un formulario genérico y según de dónde venga la llamada a este formulario pues llamo a unos ficheros de crystal o a otros.
Yo utilizo Crystal Reports XI.

Espero que te haya valido de algo.

juplagon · #3 (**permalink**) 27/07/2011, 12:25

Cita:

Iniciado por petis

Un pequeño ejemplo de cómo lo hago yo:

Código:

    
    Dim formula As String
    Screen.MousePointer = vbHourglass
    Set Report = Application1.OpenReport(App.Path & "\presupuesto.rpt", 1)
For Each tbl In Report.Database.Tables
   tbl.SetLogOnInfo NombreBaseDatos
Next
    formula = "{presupuestos.numpresupuesto}='" & numero & "'"
    Report.RecordSelectionFormula = formula
    CRViewer1.ReportSource = Report
    CRViewer1.ViewReport
    CRViewer1.Zoom 1
    Screen.MousePointer = vbDefault

Con esto lo que hago es abrir un formulario de Crystal llamado presupuesto.rpt que está en la misma ruta que la aplicación y luego filtro con el la variable formula por el número de presupuesto.

Por supuesto hay que tener un CRViewer metido en el formulario de VB. Yo hago un formulario genérico y según de dónde venga la llamada a este formulario pues llamo a unos ficheros de crystal o a otros.
Yo utilizo Crystal Reports XI.

Espero que te haya valido de algo.

Muchas gracias por tu respuesta. Tengo varias preguntas: Yo tengo un boton en imprimir llamado "imprimir selecion". Cuando lo pulso llama a un formulario "Form1" que se creo automaticamete al agregar el reporte de crystal report xi en vb6. Mi pregunta es: ¿Es hay donde devo colocar el codigo? ¿Me puedes explicar esta linea formula = "{presupuestos.numpresupuesto}='" & numero & "'"? No entiendo esa linea, lo demas si.
Muchas gracias de nuevo.
Un Saludo.

petis · #4 (**permalink**) 28/07/2011, 04:21

Cita:

Iniciado por juplagon

Muchas gracias por tu respuesta. Tengo varias preguntas: Yo tengo un boton en imprimir llamado "imprimir selecion". Cuando lo pulso llama a un formulario "Form1" que se creo automaticamete al agregar el reporte de crystal report xi en vb6. Mi pregunta es: ¿Es hay donde devo colocar el codigo? ¿Me puedes explicar esta linea formula = "{presupuestos.numpresupuesto}='" & numero & "'"? No entiendo esa linea, lo demas si.
Muchas gracias de nuevo.
Un Saludo.

Entiendo que ese "Form1" que tú dices es un formulario de VB6 en el que se incluye un CRViewer. Sería ahí donde tienes que colocar el codigo.
En cuanto a la línea que comentas tiene que ver con la base de datos (presupuestos es una tabla y numpresupuesto es un campo de dicha tabla, y numero es el número de presupuesto que queremos imprmir. Va entrecomillado porque el número de presupuesto lleva letras también).
A ver si te he aclarado algo más.

juplagon · #5 (**permalink**) 30/07/2011, 02:12

Hola. Muchas gracias por todo. Al ejecutar el programa me salta el error 424 en tiempo de ejecucion. Dice que se requiere un objeto. El error esta en esta linea: Set Report = Application1.OpenReport(App.Path & "\imprimir.rpt", 1)
¿Application1 es un formulario? Si es asi, cual tendria que poner: el que tiene el listview o el que tiene el boton de imprimir :S?

Muchas gracias de nuevo
Un saludo.

juplagon · #6 (**permalink**) 31/07/2011, 08:20

Me da error al dale a imprimir lista:

Logon failed:
Details: [Database vendor code: -1023]

Ahora que me faltaba lo de imprimir seleccion salta tambien el de imprimir lista!!

juplagon · #7 (**permalink**) 01/08/2011, 05:33

¿Alguna idea para cerrar ya el tema?

petis · #8 (**permalink**) 15/08/2011, 03:56

Cita:

Iniciado por juplagon

¿Alguna idea para cerrar ya el tema?

Lo siento, he estado de vacaciones. Mañana lo miro y te digo algo.

petis · #9 (**permalink**) 18/08/2011, 02:42

Estas tres variables yo las tengo como Global porque las utilizo en varios formularios:

Código:

Global Application1 As New CRAXDRT.Application
Global Report As New CRAXDRT.Report
Global tbl As CRAXDRT.DatabaseTable

juplagon · #10 (**permalink**) 10/09/2011, 03:49

Muchas gracias. Perdona por no responder antes. Tema cerrado ;)

petis · #11 (**permalink**) 14/09/2011, 13:20

Cita:

Iniciado por juplagon

Muchas gracias. Perdona por no responder antes. Tema cerrado ;)

¿Y te ha valido de algo?. Si tienes más dudas o quieres que te mande un ejemplo me lo dices.

hmoran0509 · #12 (**permalink**) 29/09/2012, 18:21

Saludos petis, me puedes enviar un ejemplo completa esta es mi direccionde correo [email protected].... sabria agradecertelo

petis · #13 (**permalink**) 08/10/2012, 05:36

Cita:

Iniciado por hmoran0509

Saludos petis, me puedes enviar un ejemplo completa esta es mi direccionde correo [email protected].... sabria agradecertelo

Te lo acabo de mandar por email.