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;
TDatosBancariosEmpresaController = class(TControllerBase, IDatosBancariosEmpresaController)
private
FDataModule : IDataModuleEmpresas;
public
procedure Ver(ADatosBancarios : IBizEmpresasDatosBancarios);
constructor Create; virtual;
destructor Destroy; override;
end;
implementation
@ -30,18 +26,6 @@ uses
uDataModuleEmpresas, schEmpresasClient_Intf, uIEditorDatosBancarioEmpresa,
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);
var
AEditor : IEditorDatosBancariosEmpresa;

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

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

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

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