From cc4d57d0de928acb02512fb00831a4ed079c5797 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Wed, 14 May 2008 14:49:57 +0000
Subject: [PATCH] Limpieza de mensajes de warning.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@372 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 .../Controller/uFamiliasController.pas        | 19 ++++-------------
 .../Controller/uFormasPagoController.pas      |  4 ----
 .../Controller/uTiposIVAController.pas        |  4 ----
 .../Controller/uUnidadesMedidaController.pas  | 21 +++++--------------
 4 files changed, 9 insertions(+), 39 deletions(-)

diff --git a/Source/Modulos/Familias/Controller/uFamiliasController.pas b/Source/Modulos/Familias/Controller/uFamiliasController.pas
index 58ff5397..cde80d91 100644
--- a/Source/Modulos/Familias/Controller/uFamiliasController.pas
+++ b/Source/Modulos/Familias/Controller/uFamiliasController.pas
@@ -27,14 +27,12 @@ type
     procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
     function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
 
-    function ValidarAlmacen(AFamilia: IBizFamilia): Boolean;
+    function ValidarFamilia(AFamilia: IBizFamilia): Boolean;
 
     //Estos son los tres métodos a sobre escribir si se desea heredar toda la logica de
     //este controller
     procedure AsignarDataModule; virtual;
 
-    procedure ValidarObjetos; virtual;
-
   public
     constructor Create; override;
     destructor Destroy; override;
@@ -129,14 +127,9 @@ begin
   inherited;
 end;
 
-function TFamiliasController.ValidarAlmacen(AFamilia: IBizFamilia): Boolean;
+function TFamiliasController.ValidarFamilia(AFamilia: IBizFamilia): Boolean;
 begin
-//
-end;
-
-procedure TFamiliasController.ValidarObjetos;
-begin
-//
+  Result := True;
 end;
 
 procedure TFamiliasController.VerTodos(AFamilias: IBizFamilia);
@@ -163,8 +156,6 @@ end;
 
 function TFamiliasController.Eliminar(AFamilia: IBizFamilia): Boolean;
 begin
-  Result := False;
-
   if not Assigned(AFamilia) then
     raise Exception.Create ('Almacen no asignada');
 
@@ -195,9 +186,7 @@ begin
   if not Assigned(AFamilia) then
     raise Exception.Create ('Almacen no asignada');
 
-  ValidarObjetos;
-
-  if ValidarAlmacen(AFamilia) then
+  if ValidarFamilia(AFamilia) then
   begin
     ShowHourglassCursor;
     try
diff --git a/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas b/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas
index ff4ff03d..e1d4bdce 100644
--- a/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas	
+++ b/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas	
@@ -156,8 +156,6 @@ end;
 
 function TFormasPagoController.ValidarFormaPago(AFormaPago: IBizFormaPago): Boolean;
 begin
-  Result := False;
-
   if not Assigned(AFormaPago) then
     raise Exception.Create ('Forma de pago no asignada');
 
@@ -217,8 +215,6 @@ end;
 
 function TFormasPagoController.Eliminar(AFormaPago: IBizFormaPago): Boolean;
 begin
-  Result := False;
-
   if not Assigned(AFormaPago) then
     raise Exception.Create ('Forma de pago no asignada');
 
diff --git a/Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas b/Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas
index 3df6e846..dd5aeada 100644
--- a/Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas	
+++ b/Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas	
@@ -190,8 +190,6 @@ end;
 
 function TTiposIVAController.ValidarTipoIVA(ATipoIVA: IBizTipoIVA): Boolean;
 begin
-  Result := False;
-
   if not Assigned(ATipoIVA) then
     raise Exception.Create ('TipoIVA no asignado');
 
@@ -251,8 +249,6 @@ end;
 
 function TTiposIVAController.Eliminar(ATipoIVA: IBizTipoIVA): Boolean;
 begin
-  Result := False;
-
   if not Assigned(ATipoIVA) then
     raise Exception.Create ('TipoIVA no asignado');
 
diff --git a/Source/Modulos/Unidades de medida/Controller/uUnidadesMedidaController.pas b/Source/Modulos/Unidades de medida/Controller/uUnidadesMedidaController.pas
index eec7f264..155ba386 100644
--- a/Source/Modulos/Unidades de medida/Controller/uUnidadesMedidaController.pas	
+++ b/Source/Modulos/Unidades de medida/Controller/uUnidadesMedidaController.pas	
@@ -27,14 +27,11 @@ type
     procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
     function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
 
-    function ValidarAlmacen(AUnidadMedida: IBizUnidadMedida): Boolean;
+    function ValidarUnidadesMedida(AUnidadMedida: IBizUnidadMedida): Boolean;
 
     //Estos son los tres métodos a sobre escribir si se desea heredar toda la logica de
     //este controller
     procedure AsignarDataModule; virtual;
-
-    procedure ValidarObjetos; virtual;
-
   public
     constructor Create; override;
     destructor Destroy; override;
@@ -129,14 +126,10 @@ begin
   inherited;
 end;
 
-function TUnidadesMedidaController.ValidarAlmacen(AUnidadMedida: IBizUnidadMedida): Boolean;
+function TUnidadesMedidaController.ValidarUnidadesMedida(
+  AUnidadMedida: IBizUnidadMedida): Boolean;
 begin
-//
-end;
-
-procedure TUnidadesMedidaController.ValidarObjetos;
-begin
-//
+  Result := True;
 end;
 
 procedure TUnidadesMedidaController.VerTodos(AUnidadesMedida: IBizUnidadMedida);
@@ -163,8 +156,6 @@ end;
 
 function TUnidadesMedidaController.Eliminar(AUnidadMedida: IBizUnidadMedida): Boolean;
 begin
-  Result := False;
-
   if not Assigned(AUnidadMedida) then
     raise Exception.Create ('Almacen no asignada');
 
@@ -195,9 +186,7 @@ begin
   if not Assigned(AUnidadMedida) then
     raise Exception.Create ('Almacen no asignada');
 
-  ValidarObjetos;
-
-  if ValidarAlmacen(AUnidadMedida) then
+  if ValidarUnidadesMedida(AUnidadMedida) then
   begin
     ShowHourglassCursor;
     try