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

Limpieza de mensajes de warning.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@372 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-05-14 14:49:57 +00:00
parent 5f7e9ada77
commit cc4d57d0de
4 changed files with 9 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
Source/Modulos/Familias/Controller/uFamiliasController.pas
View File

@ -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

4
Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas
View File

@ -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');

4
Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas
View File

@ -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');

21
Source/Modulos/Unidades de medida/Controller/uUnidadesMedidaController.pas
View File

@ -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