david
6f4279d737
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@48 f33bb606-9f5c-448d-9c99-757f00063c96
58 lines
1.5 KiB
ObjectPascal
58 lines
1.5 KiB
ObjectPascal
unit uViewVendedor;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewContacto, dxLayoutLookAndFeels, DB, uDADataTable,
|
|
dxLayoutControl, cxMemo, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxControls,
|
|
cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit,
|
|
Buttons, PngSpeedButton, cxDropDownEdit, cxCalendar, cxGraphics,
|
|
uDAInterfaces, uCustomView, uViewBase, uBizContactos,
|
|
uViewObservaciones, cxLookAndFeels, cxLookAndFeelPainters,
|
|
dxLayoutcxEditAdapters;
|
|
|
|
type
|
|
IViewVendedor = interface(IViewContacto)
|
|
['{245F4A36-39A4-4081-9826-F05FBBC729AE}']
|
|
end;
|
|
|
|
TfrViewVendedor = class(TfrViewContacto, IViewVendedor)
|
|
dxLayoutControlContactoItem20: TdxLayoutItem;
|
|
edtComision: TcxDBSpinEdit;
|
|
|
|
private
|
|
FDataItem : TDADataTable;
|
|
function GetDataItem: TDADataTable;
|
|
procedure SetDataItem(const Value: TDADataTable);
|
|
|
|
protected
|
|
procedure SetContacto(const Value: IBizContacto); override;
|
|
|
|
public
|
|
property DataItem : TDADataTable read GetDataItem write SetDataItem;
|
|
end;
|
|
|
|
implementation
|
|
{$R *.dfm}
|
|
|
|
uses uFactuGES_App;
|
|
|
|
function TfrViewVendedor.GetDataItem: TDADataTable;
|
|
begin
|
|
Result := FDataItem;
|
|
end;
|
|
|
|
procedure TfrViewVendedor.SetContacto(const Value: IBizContacto);
|
|
begin
|
|
inherited;
|
|
DataItem := FContacto.DataTable;
|
|
end;
|
|
|
|
procedure TfrViewVendedor.SetDataItem(const Value: TDADataTable);
|
|
begin
|
|
FDataItem := Value;
|
|
end;
|
|
|
|
end.
|