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
OnCreate = DataModuleCreate
Height = 262

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

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