roberto
6a0c10c5e6
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES2/trunk@6 40301925-124e-1c4e-b97d-170ad7a8785b
85 lines
2.1 KiB
ObjectPascal
85 lines
2.1 KiB
ObjectPascal
unit uPersonalContactoController;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
|
|
uBizContactos, uBizContactosPersonal, uIDataModuleContactos,
|
|
uControllerBase;
|
|
|
|
type
|
|
IPersonalContactoController = interface(IControllerBase)
|
|
['{2A848939-9558-40DA-9886-F34D72331DA9}']
|
|
procedure Ver(APersonal : IBizContactoPersonal);
|
|
function Localizar(APersonal: IBizContactoPersonal; const ID : Integer): Boolean;
|
|
end;
|
|
|
|
TPersonalContactoController = class(TControllerBase, IPersonalContactoController)
|
|
private
|
|
FDataModule : IDataModuleContactos;
|
|
public
|
|
procedure Ver(APersonal : IBizContactoPersonal);
|
|
function Localizar(APersonal: IBizContactoPersonal; const ID : Integer): Boolean;
|
|
constructor Create; override;
|
|
destructor Destroy; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TPersonalContactoController }
|
|
|
|
uses
|
|
uDataModuleContactos, schContactosClient_Intf, uIEditorPersonalContacto,
|
|
uEditorRegistryUtils, cxControls;
|
|
|
|
constructor TPersonalContactoController.Create;
|
|
begin
|
|
inherited;
|
|
FDataModule := TDataModuleContactos.Create(Nil);
|
|
end;
|
|
|
|
destructor TPersonalContactoController.Destroy;
|
|
begin
|
|
FDataModule := Nil;
|
|
inherited;
|
|
end;
|
|
|
|
function TPersonalContactoController.Localizar(
|
|
APersonal: IBizContactoPersonal; const ID: Integer): Boolean;
|
|
begin
|
|
Result := True;
|
|
ShowHourglassCursor;
|
|
try
|
|
with APersonal.DataTable do
|
|
begin
|
|
DisableControls;
|
|
First;
|
|
if not Locate(fld_PersonalContactoID, ID, []) then
|
|
Result := False;
|
|
EnableControls;
|
|
end;
|
|
finally
|
|
HideHourglassCursor;
|
|
end;
|
|
end;
|
|
|
|
procedure TPersonalContactoController.Ver(
|
|
APersonal: IBizContactoPersonal);
|
|
var
|
|
AEditor : IEditorPersonalContacto;
|
|
begin
|
|
AEditor := NIL;
|
|
|
|
CreateEditor('EditorPersonalContacto', IEditorPersonalContacto, AEditor);
|
|
if Assigned(AEditor) then
|
|
try
|
|
AEditor.Personal := APersonal;
|
|
AEditor.Controller := Self;
|
|
AEditor.ShowModal;
|
|
finally
|
|
AEditor.Release;
|
|
end;
|
|
end;
|
|
|
|
end.
|