david
ab4c274533
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES/trunk@4 3f40d355-893c-4141-8e64-b1d9be72e7e7
116 lines
2.6 KiB
ObjectPascal
116 lines
2.6 KiB
ObjectPascal
unit InformeBaseFR3;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes, frxCross, frxClass, frxIBXComponents, IBDatabase, DB,
|
|
IBCustomDataSet;
|
|
|
|
type
|
|
TdmInformeBaseFR3 = class(TDataModule)
|
|
frxIBXComponents1: TfrxIBXComponents;
|
|
frxCrossObject1: TfrxCrossObject;
|
|
FReport: TfrxReport;
|
|
private
|
|
//FPreview : TfrPreview;
|
|
function DarTextoDireccion(Index : Integer) : String;
|
|
function DarTextoTelefonos(Index : Integer) : String;
|
|
protected
|
|
FBaseDatos : TIBDatabase;
|
|
FTransaccion : TIBTransaction;
|
|
FNombreInforme : String;
|
|
procedure CargarInforme;
|
|
procedure CrearVariables; virtual;
|
|
procedure PrepararConsultas; virtual; abstract;
|
|
{ procedure RellenarCabecera(Band: TfrBand); virtual;
|
|
procedure RellenarBanda(Band: TfrBand); virtual;}
|
|
procedure PrepararInforme; virtual;
|
|
// procedure FReportBeginBand(Band: TfrBand); virtual;
|
|
// procedure SetPreview (Value : TfrPreview);
|
|
public
|
|
constructor Create(AOwner : TComponent); override;
|
|
destructor Destroy; override;
|
|
procedure Previsualizar;
|
|
procedure Imprimir;
|
|
published
|
|
// property Preview : TfrPreview read FPreview write SetPreview;
|
|
property Report : TfrxReport read FReport;
|
|
end;
|
|
|
|
var
|
|
dmInformeBaseFR3: TdmInformeBaseFR3;
|
|
|
|
implementation
|
|
|
|
uses BaseDatos;
|
|
|
|
{$R *.dfm}
|
|
|
|
{ TDataModule1 }
|
|
|
|
procedure TdmInformeBaseFR3.CargarInforme;
|
|
var
|
|
RutaAux : String;
|
|
begin
|
|
RutaAux := ExtractFileDir(ParamStr(0))+ '\informes\' + FNombreInforme;
|
|
if not FileExists(RutaAux) then
|
|
raise Exception.CreateFmt('No se ha encontrado el informe %s.',[RutaAux]);
|
|
FReport.LoadFromFile(RutaAux);
|
|
end;
|
|
|
|
procedure TdmInformeBaseFR3.CrearVariables;
|
|
begin
|
|
|
|
end;
|
|
|
|
constructor TdmInformeBaseFR3.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FBaseDatos := dmBaseDatos.BD;
|
|
FTransaccion := dmBaseDatos.Transaccion;
|
|
// FReport := TfrReport.Create(Self);
|
|
end;
|
|
|
|
function TdmInformeBaseFR3.DarTextoDireccion(Index: Integer): String;
|
|
begin
|
|
|
|
end;
|
|
|
|
function TdmInformeBaseFR3.DarTextoTelefonos(Index: Integer): String;
|
|
begin
|
|
|
|
end;
|
|
|
|
destructor TdmInformeBaseFR3.Destroy;
|
|
begin
|
|
|
|
inherited;
|
|
end;
|
|
|
|
procedure TdmInformeBaseFR3.Imprimir;
|
|
begin
|
|
PrepararInforme;
|
|
FReport.PrepareReport;
|
|
// FReport.PrintPreparedReportDlg;
|
|
FReport.PrintOptions.ShowDialog := True;
|
|
FReport.Print;
|
|
end;
|
|
|
|
procedure TdmInformeBaseFR3.PrepararInforme;
|
|
begin
|
|
PrepararConsultas;
|
|
CargarInforme;
|
|
CrearVariables;
|
|
// FReport.OnBeginBand := FReportBeginBand;
|
|
// FReport.Preview := FPreview;
|
|
end;
|
|
|
|
procedure TdmInformeBaseFR3.Previsualizar;
|
|
begin
|
|
PrepararInforme;
|
|
FReport.ShowReport;
|
|
end;
|
|
|
|
|
|
end.
|