FactuGES2/Source/Modulos/Contratos de cliente/Views/uEditorContratosClienteBeneficios.pas

unit uEditorContratosClienteBeneficios;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uEditorGridBase, Menus, JvAppStorage, JvAppRegistryStorage, DB,
  uDAInterfaces, uDADataTable, JvComponentBase, JvFormPlacement, ImgList,
  PngImageList, StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX,
  TB2ExtItems, TBXExtItems, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls,
  JvExControls, JvNavigationPane, uIEditorContratosClienteBeneficios, uBizContratosCliente,
  uCustomView, uViewBase, uViewGridBase, uViewGrid,
  uViewContratosClienteBeneficios, uContratosClienteController;

type
  TfEditorContratosClienteBeneficios = class(TfEditorGridBase, IEditorContratosClienteBeneficios)
    frViewContratosClienteBeneficios1: TfrViewContratosClienteBeneficios;
    actVerBeneficio: TAction;
    TBItem1: TTBItem;
    procedure FormShow(Sender: TObject);
    procedure actVerBeneficioExecute(Sender: TObject);
  private
    FContratos: IBizContratosClienteBeneficios;
    FController : IContratosClienteController;

    function GetContratos: IBizContratosClienteBeneficios;
    procedure SetContratos(const Value: IBizContratosClienteBeneficios);

    function GetController : IContratosClienteController;
    procedure SetController (const Value : IContratosClienteController);


  protected
    procedure ImprimirInterno; override;
    procedure PrevisualizarInterno; override;

  public
    property Contratos: IBizContratosClienteBeneficios read GetContratos write SetContratos;
    property Controller : IContratosClienteController read GetController write SetController;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

var
  fEditorContratosClienteBeneficios: TfEditorContratosClienteBeneficios;

implementation

{$R *.dfm}

{ TfEditorContratosClienteBeneficios }

procedure TfEditorContratosClienteBeneficios.actVerBeneficioExecute(
  Sender: TObject);
begin
  inherited;
  FController.VerBeneficio(Contratos.ID);
end;

constructor TfEditorContratosClienteBeneficios.Create(AOwner: TComponent);
begin
  inherited;
  FContratos := NIL;
end;

destructor TfEditorContratosClienteBeneficios.Destroy;
begin
  FContratos := NIL;
  inherited;
end;

procedure TfEditorContratosClienteBeneficios.FormShow(Sender: TObject);
begin
  inherited;
  ViewGrid := frViewContratosClienteBeneficios1;
  FContratos.Active := True;
  actAnchoAuto.Execute;
end;

function TfEditorContratosClienteBeneficios.GetContratos: IBizContratosClienteBeneficios;
begin
  Result := FContratos;
end;

function TfEditorContratosClienteBeneficios.GetController: IContratosClienteController;
begin
  Result := FController;
end;

procedure TfEditorContratosClienteBeneficios.ImprimirInterno;
begin
  inherited;

end;

procedure TfEditorContratosClienteBeneficios.PrevisualizarInterno;
begin
  inherited;

end;

procedure TfEditorContratosClienteBeneficios.SetContratos(const Value: IBizContratosClienteBeneficios);
begin
  FContratos := Value;
  frViewContratosClienteBeneficios1.Contratos := FContratos;
end;

procedure TfEditorContratosClienteBeneficios.SetController(
  const Value: IContratosClienteController);
begin
  FController := Value;

//  if Assigned(FController) then
//     ListaAnos := FController.DarListaAnosContratos;

end;

end.