unit uEditorClientes;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uEditorContactos, Menus, ImgList, PngImageList, StdActns,
  ActnList, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar,
  JvExControls, JvComponent, JvNavigationPane, DB, uDADataTable,
  JvFormAutoSize, ComCtrls, uDAScriptingProvider, uDACDSDataTable, StdCtrls,
  JvAppStorage, JvAppRegistryStorage, JvFormPlacement, uCustomView,
  uViewBase, uViewBarraSeleccion, ExtCtrls, pngimage, JvComponentBase;

type
  IEditorClientes = interface(IEditorContactos)
    ['{C4C456DA-6E1F-41E7-A48D-B743BDD7FA18}']
  end;

  TfEditorClientes = class(TfEditorContactos, IEditorClientes)
    procedure actEliminarExecute(Sender: TObject);
    procedure actDuplicarExecute(Sender: TObject);
  private
    function GetSelectionBarVisible: Boolean;
    procedure SetSelectionBarVisible(const Value: Boolean);
  public
    property SelectionBarVisible : Boolean read GetSelectionBarVisible write
      SetSelectionBarVisible;
    constructor Create(AOwner: TComponent); override;
  end;
  
implementation

uses
  uViewClientes, uViewContactos, uEditorUtils,
  uDataModuleContactos, uDataModuleBase, uEditorGrid, uBizContacto,
  uDBSelectionList;

{$R *.dfm}

function ShowEditorClientes (ABizObject : TDADataTableRules) : TModalResult;
var
  AEditor: TfEditorClientes;
begin
  AEditor := TfEditorClientes.Create(Application);
  try
    AEditor.Contactos := (ABizObject as IBizCliente);
    Result := AEditor.ShowModal;
  finally
    AEditor.Release;
  end;
end;

function ShowSelectEditorClientes (ABizObject : TDADataTableRules) : TModalResult;
var
  AEditor: TfEditorClientes;
begin
  AEditor := TfEditorClientes.Create(Application);
  try
    AEditor.Contactos := (ABizObject as IBizCliente);
    AEditor.SelectionBarVisible := True;
    Result := AEditor.ShowModal;
  finally
    AEditor.Release;
  end;
end;


{
******************************* TfEditorClientes *******************************
}
procedure TfEditorClientes.actEliminarExecute(Sender: TObject);
begin
  if (Application.MessageBox('¿Desea borrar este cliente?', 'Atención', MB_YESNO) = IDYES) then
  begin
    inherited;
    ViewGrid.RefreshGrid;
  end;
end;

constructor TfEditorClientes.Create(AOwner: TComponent);
begin
  inherited;
  ViewGrid := CreateView(TfrViewClientes) as IViewContactos;
end;

function TfEditorClientes.GetSelectionBarVisible: Boolean;
begin
  Result := frViewBarraSeleccion.Visible
end;

procedure TfEditorClientes.SetSelectionBarVisible(const Value: Boolean);
begin
  frViewBarraSeleccion.Visible := True;
  ViewGrid.OnDblClick := frViewBarraSeleccion.actSeleccionar.OnExecute;
end;

procedure TfEditorClientes.actDuplicarExecute(Sender: TObject);
var
  AContacto : IBizContacto;
begin
  inherited;
  AContacto := dmContactos.GetCliente(Contactos.CODIGO);
  Contactos.Insert;
  Contactos.CopyFrom(AContacto);
  Contactos.DataTable.ApplyUpdates;
  ViewGrid.RefreshGrid;
  ViewGrid.GotoFirst;
end;

initialization
  RegisterEditor(IBizCliente, ShowEditorClientes, etItems);
  RegisterEditor(IBizCliente, ShowSelectEditorClientes, etSelectItems);  

finalization

end.