Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Presupuestos: corregido error al escribir el nombre de una clase (tontería)

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@347 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-03-23 10:52:22 +00:00
parent c84fc47eb6
commit f57cd68fb1
3 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm
View File

@ -1,4 +1,4 @@
object RptWordPresupuestosCliente: TRptWordPresupuestosCliente object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
OldCreateOrder = False OldCreateOrder = False
OnCreate = DataModuleCreate OnCreate = DataModuleCreate
Height = 262 Height = 262

24
Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas
View File

@ -15,7 +15,7 @@ type
Total : double; Total : double;
end; end;
TRptWordPresupuestosCliente = class(TDataModule) TRptWordPresupuestoCliente = class(TDataModule)
DABin2DataStreamer: TDABin2DataStreamer; DABin2DataStreamer: TDABin2DataStreamer;
tbl_Cabecera: TDAMemDataTable; tbl_Cabecera: TDAMemDataTable;
tbl_Detalles: TDAMemDataTable; tbl_Detalles: TDAMemDataTable;
@ -63,7 +63,7 @@ const
rptInforme = 'Presupuesto.rdx'; rptInforme = 'Presupuesto.rdx';
constructor TRptWordPresupuestosCliente.Create(AOwner: TComponent); constructor TRptWordPresupuestoCliente.Create(AOwner: TComponent);
begin begin
inherited; inherited;
FDocumento := NIL; FDocumento := NIL;
@ -73,13 +73,13 @@ begin
FPlantilla := DarRutaInformes + rptInforme; FPlantilla := DarRutaInformes + rptInforme;
end; end;
procedure TRptWordPresupuestosCliente.DataModuleCreate(Sender: TObject); procedure TRptWordPresupuestoCliente.DataModuleCreate(Sender: TObject);
begin begin
schReport.ConnectionManager := dmServer.ConnectionManager; schReport.ConnectionManager := dmServer.ConnectionManager;
FConnection := dmServer.DarNuevaConexion; FConnection := dmServer.DarNuevaConexion;
end; end;
destructor TRptWordPresupuestosCliente.Destroy; destructor TRptWordPresupuestoCliente.Destroy;
begin begin
if FDocumento <> NIL then if FDocumento <> NIL then
FDocumento.Free; FDocumento.Free;
@ -88,7 +88,7 @@ begin
inherited; inherited;
end; end;
function TRptWordPresupuestosCliente.Exportar(Codigo, Fichero: String): Boolean; function TRptWordPresupuestoCliente.Exportar(Codigo, Fichero: String): Boolean;
begin begin
if EsCadenaVacia(Fichero) then if EsCadenaVacia(Fichero) then
begin begin
@ -102,7 +102,7 @@ begin
Result := True; Result := True;
end; end;
function TRptWordPresupuestosCliente.Generar : Boolean; function TRptWordPresupuestoCliente.Generar : Boolean;
var var
Aux : OleVariant; Aux : OleVariant;
begin begin
@ -144,7 +144,7 @@ begin
end; end;
procedure TRptWordPresupuestosCliente.InsertarConceptos(Tabla : Table); procedure TRptWordPresupuestoCliente.InsertarConceptos(Tabla : Table);
var var
numRows, numCols, mergeSplit, shiftCells : OleVariant; numRows, numCols, mergeSplit, shiftCells : OleVariant;
iContador : Integer; iContador : Integer;
@ -193,7 +193,7 @@ begin
end; end;
function TRptWordPresupuestosCliente.RellenarCabecera: boolean; function TRptWordPresupuestoCliente.RellenarCabecera: boolean;
var var
NombreFichero, NombreFichero,
Texto, Texto,
@ -295,7 +295,7 @@ begin
Result := True; Result := True;
end; end;
function TRptWordPresupuestosCliente.RellenarInforme: boolean; function TRptWordPresupuestoCliente.RellenarInforme: boolean;
var var
NombreCapitulo : String; NombreCapitulo : String;
Estilo : OleVariant; Estilo : OleVariant;
@ -362,7 +362,7 @@ begin
Result := True; Result := True;
end; end;
function TRptWordPresupuestosCliente.RellenarPortada: boolean; function TRptWordPresupuestoCliente.RellenarPortada: boolean;
var var
NombreFichero, NombreFichero,
Texto, Texto,
@ -410,7 +410,7 @@ begin
Result := True; Result := True;
end; end;
function TRptWordPresupuestosCliente.RellenarResumen : boolean; function TRptWordPresupuestoCliente.RellenarResumen : boolean;
var var
numRows, numCols, mergeSplit, shiftCells : OleVariant; numRows, numCols, mergeSplit, shiftCells : OleVariant;
iAux : Integer; iAux : Integer;
@ -496,7 +496,7 @@ begin
Result := True; Result := True;
end; end;
procedure TRptWordPresupuestosCliente._GenerarPresupuesto(const AID: String); procedure TRptWordPresupuestoCliente._GenerarPresupuesto(const AID: String);
var var
ACopiaPlantilla: string; ACopiaPlantilla: string;
begin begin

4
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas
View File

@ -92,12 +92,12 @@ end;
function TsrvPresupuestosCliente.GenerateReportEnWord(const ID: Integer): Binary; function TsrvPresupuestosCliente.GenerateReportEnWord(const ID: Integer): Binary;
var var
AReportGenerator : TRptWordPresupuestosCliente; AReportGenerator : TRptWordPresupuestoCliente;
AFicheroTMP : TFileName; AFicheroTMP : TFileName;
begin begin
Result := NIL; Result := NIL;
AFicheroTMP := DarFicheroTemporal; AFicheroTMP := DarFicheroTemporal;
AReportGenerator := TRptWordPresupuestosCliente.Create(nil); AReportGenerator := TRptWordPresupuestoCliente.Create(nil);
try try
if AReportGenerator.Exportar(IntToStr(ID), AFicheroTMP) then if AReportGenerator.Exportar(IntToStr(ID), AFicheroTMP) then
begin begin