Seleccionar un reporte cualquiera de una lista

[roman]

Vamos a ver si entiendo porque tratándose de QuickReport soy más slow que quick pero da la impresión de que el fondo del problema no está relacionado con QuickReport.

Supongo que QuickReprecibo, QuickRepFactura, QuickRepOrden, etc. son objetos de tipo TQuickRep.

Lo que tú quieres es- corrígeme si me equivoco -

A partir del nombre de un objeto ejecutar de manera genérica un método del objeto.

Y quieres- o no estarías preguntando -evitar el uso de los múltiples condicionales- sabia decisión para no tener que estar modificando esta parte del código cada vez que agregues un nuevo reporte.

Lo único que necesitas es una forma de asociar un objeto con su nombre.

Un TStringList hace justamente esto usando su propiedad Objects que te permite asociar a cada entrada de la lista un objeto:

Código Delphi [-]
var
  Reportes: TStringList;

...

Reportes.AddObject('QuickReprecibo', QuickReprecibo);

...

I := Reportes.IndexOf('QuickReprecibo');
if I <> -1 then
begin
  xreporte := Reportes.Objects[i];
  xreporte.Preview;
end;

El punto es que tengas la lista Reportes lista antes de que requieras acceder a los reportes. Muy posiblemente Reportes será una variable global que pueda accederse desde cualquier unidad que defina un reporte. En cada unidad de reporte puedes, en su sección initialization, crear el objeto y agregarlo a la lista Reportes.

Algo similar puedes hacer para los formularios manteniendo un TStringList para ellos.

// Saludos

[Carlos Arevalo]

Es justo lo que quiero.
Muchas gracias Roman ya lo pongo en practica para ver como me funciona.

[roman]

Una cosa:

En la línea

xreporte := Reportes.Objects[i];

me parece que tienes que hacer un moldeo:

xreporte := TQuickRep(Reportes.Objects[i]);

// Saludos

[Carlos Arevalo]

Roman disculpa por responder tan tarde pero en su momento no logre moldear el Objeto TQuickrep como sugeristes me da un error en el momento de ejecutar el codigo te agradeceria mucho si me puedes ayudar con esto.

Muchas gracias

[[Lepe]]

Quizás tengas problemas con la variable xreporte, porque de otra forma no entiendo donde está el fallo.

Suponiendo que ya tienes creado el Tstringlist y almacenado los informes (que me gusta más que reporte )

Código Delphi [-]
procedure VerInforme( NombreInforme: string);
var i:integer;
     Informe:TquickReport;
begin
  i := Reportes.Indexof(nombreInforme);
if I <> -1 then
begin
  xreporte := TQuickReport(Reportes.Objects[i]);
  xreporte.Preview;
end
else
  ShowMessage('El informe no existe');

En este caso no tenemos que liberar nada, ya que xreporte es un puntero que apunta al Reportes.Objects[i], si liberamos xreporte, estaríamos liberando tambien el Objects[i], así que en siguientes llamadas a ese mismo informe daría error.

saludos y espero te sirva.

[Carlos Arevalo]

Creo que el problema esta en que cada reporte esta hecho en un formulario aparte.

Actualmente hago esto para poder imprimirlos y al llamar al formulario tengo que incluirlo en la seccion USES.

Como podria pasar el nombre del formulario y del informe utilizando el procedure?

uses frmivalibrodecompras,frmestadodecuentabancario;

procedure imprimir(salidax,impresorax,reportex,copiasx,formulariox: string);
var cont: integer;
xreporte: TQuickRep;
begin

  if formulariox='FormRepivalibrocompras' then
  begin
    with FormRepivalibrocompras do
    begin

    if formatox='QuickRepivalibro' then
    xreporte:=QuickRepivalibro;

    end;
  end;

  if formulariox='FormRepestadodecuentabancario' then
  begin
    with FormRepestadodecuentabancario do
    begin

    if formatox='QuickRepestadodecuenta' then
    xreporte:=QuickRepestadodecuenta;

    end;
  end;


    xreporte.PrinterSettings.Copies:=strtoint(copiasx);


  if salidax='printer' then
  xreporte.print
  else
  xreporte.Preview;

end;

[roman]

Empezado por Carlos Arevalo

Creo que el problema esta en que cada reporte esta hecho en un formulario aparte.

A ver. Me da la impresión de que no leiste a fondo mi mensaje.

El StringList Reportes lo declaras en alguna unidad común, digamos, RepFactory.

En cada unidad donde definas un QuickRep, agregas RepFactory a la cláusula uses y en su sección initialization registras el reporte.

Para fijar ideas, la unidad frmivalibrodecompras quedaría así:

Código Delphi [-]
unit frmivalibrodecompras;

interface

uses
  RepFactory;

implementation

initialization
  Reportes.AddObject('QuickRepivalibro', QuickRepivalibro);
end.

Entonces, en la(s) unidad(es) donde desees usar tus reportes, agregar RegFactory a la cláusula uses (no hay necesidad de agregar la unidad de cada reporte).

Ahora ya puedes buscar en Reportes el objeto asociado al nombre, similarmente a como dice Lepe:

Código Delphi [-]
I := Reportes.IndexOf(NombreInforme);

if I <> -1 then
  xreporte := TQuickReport(Reportes.Objects[i]);

// Saludos