diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm
index 3629d66e..3fb141f3 100644
--- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm	
+++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.dfm	
@@ -1,4 +1,4 @@
-object RptWordPresupuestosCliente: TRptWordPresupuestosCliente
+object RptWordPresupuestoCliente: TRptWordPresupuestoCliente
   OldCreateOrder = False
   OnCreate = DataModuleCreate
   Height = 262
diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas
index 1fff5ef2..ce297184 100644
--- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas	
@@ -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
diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas
index e7add5a2..26016258 100644
--- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas	
@@ -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