unit uViewAlmacen;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable,
  DBCtrls, Grids, DBGrids, uBizAlmacenes, Mask, ComCtrls, uCustomView,
  uViewDireccion, uViewTelefonos, uViewInternet, uViewCategorias,
  JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
  cxDBEdit;

type
  IViewAlmacen = interface(IViewBase)
    ['{A9189F38-9832-4919-9B98-56F345C2AACA}']
    function GetAlmacen: IBizAlmacen;
    procedure SetAlmacen(const Value: IBizAlmacen);
    property Almacen: IBizAlmacen read GetAlmacen write SetAlmacen;
  end;
  
  TfrViewAlmacen = class(TfrViewBase, IViewAlmacen)
    Bevel1: TBevel;
    DADataSource: TDADataSource;
    frViewDireccion: TfrViewDireccion;    
    Label1: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    pnlGeneral: TPanel;
    eNombre: TcxDBTextEdit;
    ePersonaContacto: TcxDBTextEdit;
    Panel1: TPanel;
    Label3: TLabel;
    Bevel2: TBevel;
    lblTelefono: TLabel;
    eTlfTelefono: TcxDBTextEdit;
    lblMovil: TLabel;
    eTlfMovil: TcxDBTextEdit;
    lblFax: TLabel;
    eFax: TcxDBTextEdit;
    procedure FrameResize(Sender: TObject);
  private
    FAlmacen: IBizAlmacen;
  protected
    function GetAlmacen: IBizAlmacen;
    procedure SetAlmacen(const Value: IBizAlmacen);
  public
    constructor Create(AOwner : TComponent); override;
    property Almacen: IBizAlmacen read GetAlmacen write SetAlmacen;
  end;
  
implementation

uses uDataModuleAlmacenes;

{$R *.dfm}

{ TfrViewAlmacenes }

{
******************************* TfrViewAlmacenes ********************************
}
constructor TfrViewAlmacen.Create(AOwner : TComponent);
begin
  inherited;
end;

procedure TfrViewAlmacen.FrameResize(Sender: TObject);
var
  CalcWidth: Integer;
begin
  {  CalcWidth := Round(Width / (1.0 + WidthRatio));
  
    DisableAlign;
    try
      pnlGeneral.Width := CalcWidth;
      frViewDireccion.Width := CalcWidth;
      frViewTelefonos.Left := pnlGeneral.Width + pnlGeneral.Left;
      frViewTelefonos.Width := CalcWidth;
    finally
      EnableAlign;
    end;}
end;

function TfrViewAlmacen.GetAlmacen: IBizAlmacen;
begin
  Result := FAlmacen;
end;

procedure TfrViewAlmacen.SetAlmacen(const Value: IBizAlmacen);
begin
  FAlmacen := Value;
  if Assigned(FAlmacen) then
    DADataSource.DataTable := FAlmacen.DataTable
  else
    DADataSource.DataTable := NIL;

  frViewDireccion.DADataSource.DataTable := DADataSource.DataTable;
end;

initialization
  RegisterClass(TfrViewAlmacen);

finalization
  UnRegisterClass(TfrViewAlmacen);

end.