Acana_Interiorismo/FactuGES2
2
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.Acana_FactuGES2/trunk@276 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-07-14 15:00:46 +00:00
parent c8f876174a
commit f05ce28401
3 changed files with 3 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Source/ApplicationBase/Empresas/Controller/uDatosBancariosEmpresaController.pas
View File

@ -14,12 +14,8 @@ type
end; end;
TDatosBancariosEmpresaController = class(TControllerBase, IDatosBancariosEmpresaController) TDatosBancariosEmpresaController = class(TControllerBase, IDatosBancariosEmpresaController)
private
FDataModule : IDataModuleEmpresas;
public public
procedure Ver(ADatosBancarios : IBizEmpresasDatosBancarios); procedure Ver(ADatosBancarios : IBizEmpresasDatosBancarios);
constructor Create; virtual;
destructor Destroy; override;
end; end;
implementation implementation
@ -30,18 +26,6 @@ uses
uDataModuleEmpresas, schEmpresasClient_Intf, uIEditorDatosBancarioEmpresa, uDataModuleEmpresas, schEmpresasClient_Intf, uIEditorDatosBancarioEmpresa,
uEditorRegistryUtils, cxControls; uEditorRegistryUtils, cxControls;
constructor TDatosBancariosEmpresaController.Create;
begin
inherited;
// FDataModule := TDataModuleEmpresas.Create(Nil);
end;
destructor TDatosBancariosEmpresaController.Destroy;
begin
FDataModule := Nil;
inherited;
end;
procedure TDatosBancariosEmpresaController.Ver(ADatosBancarios : IBizEmpresasDatosBancarios); procedure TDatosBancariosEmpresaController.Ver(ADatosBancarios : IBizEmpresasDatosBancarios);
var var
AEditor : IEditorDatosBancariosEmpresa; AEditor : IEditorDatosBancariosEmpresa;

2
Source/ApplicationBase/Empresas/Controller/uTiendasEmpresaController.pas
View File

@ -19,7 +19,7 @@ type
public public
procedure VerTienda(ATienda : IBizEmpresasTiendas); procedure VerTienda(ATienda : IBizEmpresasTiendas);
function DarListaTiendas: TStringList; function DarListaTiendas: TStringList;
constructor Create; virtual; constructor Create; override;
destructor Destroy; override; destructor Destroy; override;
end; end;

2
Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas
View File

@ -310,6 +310,8 @@ var
AUser : IBizUsuario; AUser : IBizUsuario;
AEditorCambiar : TfEditorCambiarPassword; AEditorCambiar : TfEditorCambiarPassword;
begin begin
Result := False;
AUser := FDataModule.GetUsuario(AIDUser); AUser := FDataModule.GetUsuario(AIDUser);
if Assigned(AUser) then if Assigned(AUser) then
begin begin