AlonsoYSal_FactuGES/Modulos/Contactos/Cliente/uEditorContacto.pas

unit uEditorContacto;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uEditorDBItem, ToolWin, ComCtrls, JvExControls, JvComponent,
  uViewContacto, uBizContacto, JvNavigationPane, ActnList,
  uEditorBase, StdActns, TB2Dock, TB2Toolbar, TBX, ImgList, PngImageList,
  TB2Item, uEditorItem, DB, uDADataTable, uEditorDBBase, JvFormAutoSize,
  uDAScriptingProvider, uDACDSDataTable, StdCtrls, pngimage, ExtCtrls,
  TBXDkPanels, JvButton, AppEvnts, uCustomView, uViewBase, uViewMensaje,
  JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase;

type
  IEditorContacto = interface(IEditorDBItem)
    ['{21DD6B74-F218-4AFC-91EE-1ECD4ADF1553}']
    function GetContacto: IBizContacto;
    procedure SetContacto(const Value: IBizContacto);
    property Contacto: IBizContacto read GetContacto write SetContacto;
  end;

  TfEditorContacto = class(TfEditorDBItem, IEditorContacto)
    procedure FormShow(Sender: TObject);
  private
    FContacto: IBizContacto;
    FViewContacto : IViewContacto;
  protected
    function GetContacto: IBizContacto; virtual;
    procedure SetContacto(const Value: IBizContacto); virtual;

    function GetViewContacto: IViewContacto;
    procedure SetViewContacto(const Value: IViewContacto);
    property ViewContacto: IViewContacto read GetViewContacto write
            SetViewContacto;
  public
    property Contacto: IBizContacto read GetContacto write SetContacto;
    destructor Destroy; override;
  end;
  
implementation

{$R *.dfm}

uses
  uCustomEditor, uDataModuleContactos, uDataModuleBase;

{
******************************* TfEditorContacto *******************************
}
function TfEditorContacto.GetContacto: IBizContacto;
begin
  Result := FContacto;
end;

function TfEditorContacto.GetViewContacto: IViewContacto;
begin
  Result := FViewContacto;
end;

procedure TfEditorContacto.SetContacto(const Value: IBizContacto);
begin
  FContacto := Value;
  dsDataTable.DataTable := FContacto.DataTable;

  if Assigned(FViewContacto) and Assigned(Contacto) then
    FViewContacto.Contacto := Contacto;
end;

procedure TfEditorContacto.SetViewContacto(const Value: IViewContacto);
begin
  FViewContacto := Value;

  if Assigned(FViewContacto) and Assigned(Contacto) then
    FViewContacto.Contacto := Contacto;
end;

procedure TfEditorContacto.FormShow(Sender: TObject);
begin
  inherited;

  if not Assigned(FViewContacto) then
    raise Exception.Create('No hay ninguna vista asignada');

  if not Assigned(Contacto) then
    raise Exception.Create('No hay ning<6E>n contacto asignado');

  Contacto.DataTable.Active := True;
  FViewContacto.ShowEmbedded(pagGeneral);
  FViewContacto.SetFocus;
end;

destructor TfEditorContacto.Destroy;
begin
  FViewContacto := NIL;
  FContacto := NIL;
  inherited;
end;

end.