unit uEditorComercial;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  uEditorContacto, JvAppStorage, JvAppRegistryStorage, JvComponentBase,
  JvFormPlacement, DB, uDADataTable, ImgList, PngImageList, StdActns, ActnList,
  ComCtrls, TBX, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls, JvExControls,
  JvComponent, JvNavigationPane, uCustomView, uViewBase, uViewContacto,
  uViewComercial, uBizContactos, uIEditorComercial, pngimage,
  TBXStatusBars, JvExComCtrls, JvStatusBar,
  uViewDetallesGenerico, uViewContactoDatosBancarios, dxLayoutLookAndFeels,
  dxLayoutControl, cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit, cxControls,
  uDAInterfaces, uViewPersonalContacto, StdCtrls;

type
  TfEditorComercial = class(TfEditorContacto, IEditorComercial)
    frViewComercial1: TfrViewComercial;
   protected
    procedure EliminarInterno; override;
    procedure SetContacto(const Value: IBizContacto); override;
  public
    constructor Create(AOwner: TComponent); override;
    procedure PonerTitulos(const ATitulo: string = ''); override;
  end;

implementation

uses
  uEditorDBItem, uDialogUtils;

{$R *.dfm}

{ TfEditorComercial }

constructor TfEditorComercial.Create(AOwner: TComponent);
begin
  inherited;
  ViewContacto := frViewComercial1;
end;

procedure TfEditorComercial.EliminarInterno;
begin
  if (ShowConfirmMessage('¿Desea borrar este comercial?', '') = IDYES) then
    inherited;
end;

procedure TfEditorComercial.PonerTitulos(const ATitulo: string);
var
  FTitulo : String;
begin
  if Assigned(Contacto) then
  begin
    if Contacto.EsNuevo then
      FTitulo := 'Nuevo comercial'
    else
      FTitulo := 'Comercial';
  end;

  inherited PonerTitulos(FTitulo);
end;

procedure TfEditorComercial.SetContacto(const Value: IBizContacto);
begin
  inherited;
end;

end.