Como imprimir datos

[mizzard]

Hola a todos, me gustaria plantearos una duda.

Resulta que yo trabajo con C++ Builder 2010 y se me plantea una duda.

Quiero realizar un programa que maneje los datos de una BD de access (hasta ahi, de momento todo bien), lo que pasa es que me gustaria generar

una especie de "informe" e imprimirlo.

Habia pensado en usar un RichEdit e ir insertando los campos para generar una especie de tiquet de compra indicando fecha, producto, cantidad,

total...

Pues tras mucho toquetear he conseguido mostrarlo como me gustaria en el RichEdit, y con el comando RichEdit->Print("Nombre_q_qiera"), consigo

que me lo imprima pero no puedo configurar la página ni las copias.

Se que existen tanto el PrintDialog, como el PrinterSetupDialog, pero por mas que intento que me imprima mi RichEdit, solo consigo que me saque

sin formato el texto que yo ya habia puesto con formato.

Os pongo el código de ejemplo sencillo para que veais lo q hago:

Codigo para poner texto en el Rich edit

Código Delphi [-]

 AnsiString Factnum= "123";

    RichEdit1->SelStart =0;
    RichEdit1->SelAttributes->Size = 10;
    RichEdit1->SelAttributes->Color = clRed;
    RichEdit1->SelText = "Factura nº ";
    RichEdit1->SelText = Factnum;
    RichEdit1->SelText = "\n";
    RichEdit1->SelText = "\n";
    RichEdit1->SelAttributes->Size = 8;
    RichEdit1->SelAttributes->Color = clBlack;
    RichEdit1->SelText = "Patatas con pollo";

Código con el que intento imprimir las letras con ese formato:

Código Delphi [-]

void __fastcall TForm2::Button4Click(TObject *Sender)
{
    int Y=25;

    if(PrintDialog1->Execute()){
        Printer()->Canvas->Font = RichEdit1->Font;
        Printer()->Title = Caption;
        Printer()->BeginDoc();

        for(int Copias=0; Copias< PrintDialog1->Copies;Copias++){
            if(PrintDialog1->PrintRange == prSelection)
                Printer()->Canvas->TextOutA(Printer()->Canvas->PenPos.x,
                Printer()->Canvas->PenPos.y, RichEdit1->SelText);
            else
                for(int N=0; N< RichEdit1->Lines->Count; N++){
                    Printer()->Canvas->TextOutA(25,Y,RichEdit1->Lines->Strings[N]);
                    Y += Printer()->Canvas->TextHeight("XXX");
                    if(Y + Printer()->Canvas->TextHeight("XXX")> Printer()->PageHeight){
                        Printer()->NewPage();
                        Y = 25;
                    }
                }
                //Printer()->NewPage();
        }
        Printer()->EndDoc();
    }
}

Se podria hacer lo que quiero de alguna otra forma o de la forma que intento estaría bien encaminado??

Cualquier ayuda la agradeceré enormemente!

Un saludo!

[_cero_]

Por qué no creas un reporte con el Rave Reports? Si te decantas por usar el rave, en la carpeta “Demos” del rad studio, tienes interesantes ejemplos, aun así por cualquier cosa andaré por aquí .

[mizzard]

Perdona, es q soy novato en estas cosas.
Me podrias explicar que ventajas conlleva el usar eso q me dices y en que consiste?

Gracias, un saludo

[_cero_]

Rave Reports es una herramienta externa asociada a builder (que se instala con el), que permite la creación de informes a partir de una base de datos. Se pueden crear toda variedad de informes, desde un simple folio con una banda hasta otros más complejos con múltiples bandas. Incluye las siguientes características:

- Integración de gráficos.
- Párrafos justificados.
- Modificación de opciones de impresora.
- Control de las fuentes.
- Vista previa antes de imprimir.
- Exportación a PDF, HTML, RTF y archivos de texto.
- Entre otras.

Lo único que tienes que hacer es meter tres componentes en tu Form, que están en la pestaña “Rave” en la paleta de componentes.
Los componentes serían el “TRvProject” que es con el que manejaras el proyecto del reporte que hagas, el “TRvSystem” que sirve para manejar algunas opciones de la impresión/ pre visualización y por último el “TRvDataSetConnection” que es el que enlaza el origen de datos con el reporte.

Te dejo un tuto que te enseñara a usarlo, como en una hora ya podrás hacer reportes simples y si le exploras mas o ves los ejemplos que trae el builder te darás cuenta de que puedes hacer cosas realmente complejas con gran facilidad.

Tuto:
http://delphiallimite.blogspot.com/2...reports-i.html
http://delphiallimite.blogspot.com/2...eports-ii.html
http://delphiallimite.blogspot.com/2...ports-iii.html
http://delphiallimite.blogspot.com/2...eports-iv.html
http://delphiallimite.blogspot.com/2...ports-y-v.html

[mizzard]

Wow!, muchiiiiiiiiiisimas gracias

Voy a empezar a mirarme toda esa información porque es justo lo q necesito.... q ya me parecia a mi que eso de incorporarlo todo en un richedit era una solucion cutrecilla..... jeje.


Muchas gracias de nuevo y un saludo!

[mizzard]

Hola _cero_ tengo unas dudas:

He tenido que ir traduciendo de Delphi a C++ Buider hasta que me he encontrado con esto y no se como seguir:

También vamos a vincular el componente Sistema al componente Proyecto a través de su propiedad Engine. Como estamos utilizando una conexión ADO tenemos que añadir en la sección uses de nuestro formulario la unidad RvDLADO, porque en caso contrario nos mostraría el error:

No DATA Link drivers have been loaded.

El caso es que no se como añadir la unidad RvDLADO en C++ Builder (me aparece ese error).

Por otro lado he intentado continuar obviando este problema siguiendo con el tutorial:
Creando informes con Rave Reports (y V)

Ya que el programa una vez terminado tendria que instalarse en otra máquina, por lo que necesitaría que a partir de un instalador y configurandolo (segun se indica) funcionase correctamente.

Leyendo en este capitulo me indica que necesito usar el componente de la clase TIBDatabase.

El problema esta en que cuando intento agregarlo me dice que no lo tengo instalado pq no se encuentra el path de Interbase. Mi pregunta es:

¿Has llegado a realizar lo que he comentado y verlo funcionar en otro PC haciendo lo que se dice en el tutorial?

Te lo comento pq hay una linea de código que dice lo siguiente:

Código Delphi [-]
Proyecto->ProjectFile = ExtractFilePath( Application->ExeName ) + "clientes.rav";

Y al correr el programa si no lo tengo metido el *.RAV en debug no funciona (por lo que no se si al lanzar el exe en otro pc que es lo q puede pasar)

Y en el link que me pasaste tb pone la siguiente ruta cuando habla del TIBDataBase:
Database: D:\Desarrollo\DelphiAlLimite\Rave\BaseDatos.fdb

Por lo que me surge la duda de si cuando se instala en otro Pc y es otra ruta... como pasarle el parámetro ese según donde se haya instalado todos los archivos de mi programa (como pasarle el path)

Muchas Gracias!!!!

[mizzard]

Por otro lado cuando, una vez instalada la InterBase, cuando intento configurar el componente TIBDatabase con mi Base de datos de Access:

Connection: Remote
Server: 127.0.0.1
Database: D:\Desarrollo\DelphiAlLimite\Rave\MiBaseDatosAccess.mbd
UserName: SYSDBA
Password: masterkey
Login Prompt: Desactivado

Me dice que no esta disponible la base de datos.....

Es que ya no se si dejarlo todo como se indica en el capitulo
Creando informes con Rave Reports (IV)

y olvidarme de lo que explica en el V...


Lo que yo tenia hecho y funcionando con mi BD Access es a traves de mi programa accedia a un archivo .UDL el cual previamente le decia la ruta de la BD y si no tenia instalado el proveedor oleDB requerido para Acces hay q instalar un ejecutable de la pagina de microsoft que te instala el motor de Access y entonces ya funciona, resumiendo:

Existiria la posbilidad de trabajar con Rave haciendo referencia a un conector *.udl (Database Connection) y poder indicarle donde se encuentra el mismo desde el programa para que encuentre la BD en la nueva maquina en donde se instale el programa??

[_cero_]

mmm si tu estas trabajando con access no necesitas del “TIBDataBase” ya que ese es un componente para conectarte a bases de datos interbase/firebird.

Lo que tienes que hacer es:
1 establecer la conexión con tu base de datos (lo que me imagino que ya hacías, porque de algún modo pasabas tus datos al richedit).

2 colocar en tu formulario los tres componentes que te mencione anteriormente (TRvProject, TRvSystem y TRvDataSetConnection, que están en la pestaña “Rave” en la paleta de componentes).
http://www.megapix.com/DPBMMWP35.jpg?p=DPBMMWP35.jpg

3 enlazas el TRvDataSetConnection con tu origen de datos (que vendría siendo un TADOQuery en este caso).
http://i1002.megapix.com/4a89f54fde8...1c06dd549a.jpg

4 entras al rave reports (puedes hacerlo dando doble click en el TRvProject), y creas un reporte a tu gusto (ahí es donde entra el tutorial Xd), para eso tendrás que buscar el TRvDataSetConnection que pusiste anteriormente en tu form.
http://i1002.megapix.com/76f4e129cc1...ab9f1ba6c9.jpg

5 le das la dirección de tu reporte al TRvProject, y si quieres lo guardas dentro de tu exe así (De este modo no necesitas pasar el *.rav a otros ordenadores).

6 imprimes/ves tú reporte con unas líneas de código:

rp1->ExecuteReport("NombreDeTuReporte");

Pd. Por aquí seguiré así que cualquier duda me dices.

[mizzard]

Muchisimas gracias por la informacion tan detallada _cero_, asi si que da gusto aprender de un foro, jeje

La verdad es que me falta mucha base con el tema de los componentes y veo que un aspecto basico es que los componentes de tipo TIB, no me sirven para mi caso en concreto.

Lástima que mñn y pasado me esperen unos dias de curro intenso por lo que no podre dedicarle todo el tiempo que me gustaria a esto... al menos intentare sacar algo de tiempo.

Con lo que he leido me sigue surgiendo la duda, ya que si tengo que utilizar esos 3 componentes que me dices, tendría que implementar lo que comente antes?

También vamos a vincular el componente Sistema al componente Proyecto a través de su propiedad Engine. Como estamos utilizando una conexión ADO tenemos que añadir en la sección uses de nuestro formulario la unidad RvDLADO, porque en caso contrario nos mostraría el error:

No DATA Link drivers have been loaded.

El caso es que no se como añadir la unidad RvDLADO en C++ Builder (me aparece ese error).

Muchas gracias! y un saludo!

[_cero_]

Cuando tú agregas componentes a tu formulario automáticamente se agregan las cabeceras necesarias para usar los componentes, así que no necesitarías agregar nada, sin embargo si quieres agregar unidades como esa, lo único que necesitas hacer es agregar en tu archivo .h

#include "RvDLADO.hpp"

[mizzard]

Hola de nuevo _cero_, acabo de intentar hacer las pruebas que me has dicho y sigo teniendo el mismo problema:

1º En el Rave Reports he creado mi reporte (muy simple), le doy al boton de imprimir y visualizo correctamente los campos.

2º Sigo los pasos que me indicas hasta llegar a:

6 imprimes/ves tú reporte con unas líneas de código:

rp1->ExecuteReport("NombreDeTuReporte");

Pues bien introduzco esta parte del código adaptándolo al mio y digo que haga eso cuando pulse un boton. El caso es que cuando le doy al boton no hace nada.

Por otro lado he hecho esto (Nombre de trvProject = Proyecto):

Código Delphi [-]
    
Proyecto->ProjectFile = ExtractFilePath( Application->ExeName ) + "Project1.rav";
    Proyecto->Execute();

y he añadido a mi fichero .h:

Código Delphi [-]
#include "RvDLADO.hpp"

Y me sigue saliendo el mismo mensaje de error:

"No Datalink drivers have been loaded. Use the DataLinkADO.RVD driver file for the RAVE server/IDE or include the unit RvDLADO for applications"

Tambien he probado a hacer a cargar el Project1.rav dentro del exe y especificandole la ruta, y me pasa lo mismo (Con el codigo que te pongo me da ese error, y con el que me has especificado no hace nada)

Tambien he probado a poner:

Código Delphi [-]
Proyecto->ExecuteReport("Project1.rav");

y
Tambien he probado a poner:

Código Delphi [-]
Proyecto->ExecuteReport("Project1");

Con los mismos resultados.


PD: El Query lo conecto al ADOConnection y el connectionString del ADOConnection es mi archivo .udl con los parametros configurados.

Diciendole al Query por comandos SQL que me muestre toda la tabla que quiero e indicandole al DataSource en DataSet que es el Query, muestro en un DBGrid mi tabla.

No se si lo he dicho claro, lo que queria decirte es que accedo correctamente a la tabla de access...

Un saludo!

[_cero_]

En el método “ExecuteReport” se mete el nombre del reporte no del proyecto (.rav), que si no lo has cambiado vendría siendo “Report1” por eso es que no hace nada.


Por otro lado el error que comentas me suena raro, quizás estas intentando acceder a los datos sin tener correctamente configurado el DataView que es el que comento en mi punto 4, prueba ejecutando el reporte desde el rave con F9 y el query conectado, si te sale el mismo error, lo más seguro es que sea el DataView, seria checarlo.

[mizzard]

Ok, esta noche lo compruebo y te comento que durante el dia no voy a poder.


Un saludo y gracias!

[mizzard]

Hola de nuevo, hago lo que me indicas y ahora cuando toco el boton ya funciona, lo que pasa es q obtengo el mismo error que te comentaba.

Te voy enseñando la configuracion de todo por capturas:

Aqui te muestro la configuracion del Rave:
http://i1002.megapix.com/b38cf0d85d3...f3f5e8dca4.jpg

Aqui como muestro el reporte (lo que veo pulsando F9):
http://i1002.megapix.com/048588a6592...ff417a8edc.jpg

Aqui toda la informacion de los componentes insertados:
http://i1001.megapix.com/ed6a7947b63...b68ea316c6.jpg

NOTA: El codigo del .h te lo pongo como sin comentario de delphi pq no aparecen todos los includes

Codigo del .cpp:

Código Delphi [-]
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------

#include 
#pragma hdrstop

#include "Unit2.h"


//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RpBase"
#pragma link "RpCon"
#pragma link "RpConDS"
#pragma link "RpDefine"
#pragma link "RpRave"
#pragma link "RpSystem"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{

}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
//  Proyecto->ProjectFile = ExtractFilePath( Application->ExeName ) + "Project1.rav";
//  Proyecto->Execute();

  Proyecto->ExecuteReport("Report3");
}
//---------------------------------------------------------------------------

Codigo del .h

//---------------------------------------------------------------------------


#ifndef Unit2H
#define Unit2H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "RpBase.hpp"
#include "RpCon.hpp"
#include "RpConDS.hpp"
#include "RpDefine.hpp"
#include "RpRave.hpp"
#include "RpSystem.hpp"
#include <ADODB.hpp>
#include <RvDLADO.hpp> <-------------
#include <DB.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TRvProject *Proyecto;
TRvSystem *Sistema;
TRvDataSetConnection *RvDataSetConnection1;
TADOConnection *ADOConnection1;
TADOQuery *ADOQuery1;
TButton *Button1;
TDBGrid *DBGrid1;
TDataSource *DataSource1;
void __fastcall Button1Click(TObject *Sender);

private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif



Y los mensajes de error q te decia:

http://www.megapix.com/MNLWP6PU5.jpg?p=MNLWP6PU5.jpg

Espero que tengas toda la informacion q necesitas, muchisimas gracias y un saludo!

[_cero_]

Pude reproducir el error pero no lo solucione porque no se me hiso necesario, ya que aparentemente se debe a BaseDatos, Socios y Familiares (bórralos de tu reporte o de tu proyecto en rave y así si funcionara) , y la razón de porque no lo vi necesario es que si tratas tu reporte desde builder no tienes por qué usarlos, en determinado caso si necesitas de otras tablas/consultas solo tienes que agregar otro TADOQuery y otro TRvDataSetConnection en tu form y relacionarlos del mismo modo que el primero.

Por ende otra conexión a la base y consultas, sería algo rarillo y me atrevo a pensar que hasta nocivo. Esa característica del rave supongo que la pusieron para cuando necesites imprimir un reporte sin que este builder de intermedio (el cual no es tu caso).

Pd. con imágenes se entiende la gente XXXD, al menos me sirvieron para reproducir el error

[mizzard]

Hola _cero_, no termino de comprender lo q me qieres decir.

El objetivo que tengo con todo esto, es poder operar con los datos de la BD y generar una especie de factura (que de momento lo he hecho asi de cutre para ver si realmente desde mi programa se lanza lo que veo en el reporte cuando le doy a F9).

Para comprobar que la conexion era correcta, he hecho un query de una tabla de mi BD para ver que se visualizamente (por consiguiente la enlazo bien con access).

Ahora bien, cuando me dices que quite BaseDatos, Socios y Familiares del reporte... entonces no veria nada, no?

No termino de entenderlo :S


Gracias por tu apoyo

[_cero_]

Claro que verías los datos el objetivo del TRvDataSetConnection es enlazar tu fuente de datos (query) con el reporte, el query ya lo conectas desde tu form, por eso mismo no necesitas de BaseDatos ni de los otros. Te adjunto un ejemplo de reporte (muy cutre, pero ejemplo al fin), de cómo sería un reporte con Access.

Date cuenta que no tengo más enlace que el DataView1 en el reporte y rd1 en el form, también ve que DataView1 está enlazada a DataBand2 (quizás por no enlazarla es que no visualizas datos, me pasaba mucho ).

ejemplo: http://www.megaupload.com/?d=61BYKFNB

pd. En el ejemplo solo uso un query y un TRvDataSetConnection, sin embargo tu puedes usar cuantos query’s y TRvDataSetConnection’s necesites.

[mizzard]

Muchas gracias por la respuesta, esta noche le echo un ojo y te comento.


Un saludo!

[mizzard]

wow!, no tengo palabras para expresarte la alegria que tengo, jejeje.

Con tu proyecto y con mucha paciencia he conseguido ver donde tenia los fallos:

1- Usar un Query por tabla a consultar
2- Quitar, tal y como me comentaste, las tablas en el Rave Reports.
3- Aclararme usando los databand component, datatext component y lo mas importante... especificar el dataview del databand para que se vean los datos, jejeje


La verdad es que ya tengo todo más claro, he realizado pruebas en otro pc y va todo a la perfección, mando a imprimir directamente, o hago que se muestre la configuracion, vista previa... y solo usando 3 archivos:
1- Ejecutable
2- BBDD Access
3- Conector.udl (hay que especificarle la ruta de la BBDD previamente)

Ademas si en la maquina en donde se va a ejecutar el programa no tiene Access instalado, hay que instalar el siguiente fichero (gratuito)

http://www.microsoft.com/downloads/e...b-84b371ede16d

De nuevo mostrarte mi gratitud y dejar constancia de que si es necesario aclarar algo en este post para que mis problemas sirvan de ayuda no duden en indicarlo.

Un saludo!!!

[_cero_]

Vale aquí estamos para ayudarnos, me alegro que hayas podido resolver tu duda, este último post solo lo escribo para aclarar un par de cosillas, la primera es que en un proyecto simple de impresión solo necesitarías de la base de datos y el exe (ya que puedes meter tu reporte en el exe), así que me queda en duda de que es el *.udl y si realmente lo necesitas. Y la segunda cosa es que no necesitas instalar Access o ningún tipo de agregado para poder usar una base *.mdb, si mal no recuerdo estas bases son manejadas por el motor JET 4.0 el cual viene instalado por defecto en Windows desde el xp, Access es el que usa JET para crear las bases y los componentes ADO también usan JET no Access, así que checa si puedes omitir esos 2 archivos (AccessDatabaseEngine y .udl), para hacer más fácil la distribución de tu app. Nos vemos