david
86525eb783
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/tags/1.8.0@17 c93665c3-c93d-084d-9b98-7d5f4a9c3376
64 lines
1.7 KiB
ObjectPascal
64 lines
1.7 KiB
ObjectPascal
unit uViewClientesTiendaWeb;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewBase, uBizContactos, cxGraphics, dxLayoutControl, cxSpinEdit,
|
|
cxDBEdit, StdCtrls, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,
|
|
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxControls, DB,
|
|
uDADataTable, cxCheckBox;
|
|
|
|
type
|
|
IViewClienteTiendaWeb = interface(IViewBase)
|
|
['{170B3BE4-C5A0-4CFA-9F5D-795067501F17}']
|
|
function GetContacto: IBizContacto;
|
|
procedure SetContacto(const Value: IBizContacto);
|
|
property Contacto: IBizContacto read GetContacto write SetContacto;
|
|
end;
|
|
|
|
TfrViewClienteTiendaWeb = class(TfrViewBase)
|
|
dxLayoutControlTiendaWeb: TdxLayoutControl;
|
|
dxLayoutGroup1: TdxLayoutGroup;
|
|
dxLayoutControlTiendaWebGroup3: TdxLayoutGroup;
|
|
cxDBCheckBox1: TcxDBCheckBox;
|
|
dxLayoutControlTiendaWebItem1: TdxLayoutItem;
|
|
dsTiendaWeb: TDADataSource;
|
|
Label1: TLabel;
|
|
dxLayoutControlTiendaWebItem2: TdxLayoutItem;
|
|
protected
|
|
FContacto : IBizContacto;
|
|
function GetContacto: IBizContacto;
|
|
procedure SetContacto(const Value: IBizContacto);
|
|
public
|
|
property Contacto: IBizContacto read GetContacto write SetContacto;
|
|
end;
|
|
|
|
var
|
|
frViewClienteTiendaWeb: TfrViewClienteTiendaWeb;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
{ TfrViewClienteTiendaWeb }
|
|
|
|
function TfrViewClienteTiendaWeb.GetContacto: IBizContacto;
|
|
begin
|
|
Result := FContacto;
|
|
end;
|
|
|
|
procedure TfrViewClienteTiendaWeb.SetContacto(const Value: IBizContacto);
|
|
begin
|
|
FContacto := Value;
|
|
if Assigned(FContacto) then
|
|
begin
|
|
dsTiendaWeb.DataTable := FContacto.DataTable;
|
|
end
|
|
else begin
|
|
dsTiendaWeb.DataTable := NIL;
|
|
end
|
|
end;
|
|
|
|
end.
|