Patch para Reportes

[mantraxer21]

Estimados:

Estoy trabajando con FastReport4.

El proyecto se Ubica en "C:\Proyecto", la carpeta de los reportes se ubica en la misma ruta: "C:\Proyecto\Reporte".

Los reportes funcionan impeke al momento de "Compilar" la apliación.

OnClick del Boton "Imprimir" tiene algo asi

reporte.loadfromfile('c:\Proyecto\Reporte\ejemplo.fr3');
reporte.showreport;


Nosé si conocen algun Code que me permita trabajar con un patch o algo asi, que sólo reconosca la carpeta "Reporte" y si fichero ????

Saludos y Gracias

[ecfisa]

Hola.

No se si termino de entender lo que buscas. Según entiendo, querés que permanezca fija la ruta a la ubicación del archivo y poder variar el nombre del mismo.

Si es así podrías hacer:

procedure TFormLoQueSea.ImprimirReporte(const NomArch: string);
begin
Reporte.LoadFromFile(ExtractFilePath(Application.ExeName)+'Reporte\'+NomArch);
Reporte.ShowReport;
end;

Usando ExtractFilePath(Application.Exename) no importa si la aplicación se ubica en 'C:\Proyecto', 'D:\Programas\MiApp',..., o lo que sea, siempre que la carpeta 'Reporte' sea hija de la carpeta donde está instalada tu aplicación.

Un ejemplo de llamada:

procedure TFormLoQueSea.btnImprimir(Sender: TObject);
begin
ImprimirReporte('Ejemplo.fr3');
end;



Saludos.