david
32153cd070
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@5 9a1d36f3-7752-2d40-8ccb-50eb49674c68
108 lines
2.7 KiB
ObjectPascal
108 lines
2.7 KiB
ObjectPascal
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.
|
|
|