david
3d3d407d7a
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@287 f4e31baf-9722-1c47-927c-6f952f962d4b
88 lines
2.2 KiB
ObjectPascal
88 lines
2.2 KiB
ObjectPascal
unit uTiendasEmpresaController;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
|
|
uIntegerListUtils, uBizEmpresasTiendas, uIDataModuleEmpresas, uControllerBase;
|
|
|
|
type
|
|
ITiendasEmpresaController = interface(IControllerBase)
|
|
['{5DCF4163-7FA0-4560-9E5E-FA2A99EA4F59}']
|
|
function Buscar(const ID: Integer): IBizEmpresaTienda;
|
|
function BuscarTodas: IBizEmpresaTienda;
|
|
procedure Ver(ATienda : IBizEmpresaTienda);
|
|
function Nueva : IBizEmpresaTienda;
|
|
end;
|
|
|
|
TTiendasEmpresaController = class(TControllerBase, ITiendasEmpresaController)
|
|
private
|
|
FDataModule : IDataModuleEmpresas;
|
|
public
|
|
constructor Create; override;
|
|
destructor Destroy; override;
|
|
function Buscar(const ID: Integer): IBizEmpresaTienda;
|
|
function BuscarTodas: IBizEmpresaTienda;
|
|
procedure Ver(ATienda : IBizEmpresaTienda);
|
|
function Nueva : IBizEmpresaTienda;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TTiendasEmpresaController }
|
|
|
|
uses
|
|
uDataModuleEmpresas, schEmpresasClient_Intf, uIEditorTiendaEmpresa,
|
|
uEditorRegistryUtils, cxControls, uFactuGES_App;
|
|
|
|
function TTiendasEmpresaController.Buscar(const ID: Integer): IBizEmpresaTienda;
|
|
begin
|
|
Result := FDataModule.GetTienda(ID);
|
|
end;
|
|
|
|
function TTiendasEmpresaController.BuscarTodas: IBizEmpresaTienda;
|
|
begin
|
|
Result := FDataModule.GetTiendas;
|
|
end;
|
|
|
|
constructor TTiendasEmpresaController.Create;
|
|
begin
|
|
inherited;
|
|
FDataModule := TDataModuleEmpresas.Create(Nil);
|
|
end;
|
|
|
|
destructor TTiendasEmpresaController.Destroy;
|
|
begin
|
|
FDataModule := Nil;
|
|
inherited;
|
|
end;
|
|
|
|
function TTiendasEmpresaController.Nueva: IBizEmpresaTienda;
|
|
begin
|
|
Result := FDataModule.NewTienda;
|
|
end;
|
|
|
|
procedure TTiendasEmpresaController.Ver(ATienda: IBizEmpresaTienda);
|
|
var
|
|
AEditor : IEditorTiendaEmpresa;
|
|
begin
|
|
AEditor := NIL;
|
|
ShowHourglassCursor;
|
|
try
|
|
CreateEditor('EditorTiendaEmpresa', IEditorTiendaEmpresa, AEditor);
|
|
if Assigned(AEditor) then
|
|
with AEditor do
|
|
begin
|
|
Tienda := ATienda;
|
|
Controller := Self;
|
|
ShowModal;
|
|
Release;
|
|
end;
|
|
finally
|
|
AEditor := NIL;
|
|
HideHourglassCursor;
|
|
end;
|
|
end;
|
|
|
|
end.
|