david
32153cd070
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@5 9a1d36f3-7752-2d40-8ccb-50eb49674c68
62 lines
1.5 KiB
ObjectPascal
62 lines
1.5 KiB
ObjectPascal
unit uViewDatosPedido;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewBase, StdCtrls, cxControls, cxContainer, cxEdit,
|
|
cxTextEdit, cxDBEdit, DB, uDADataTable, uBizPedidosProveedor;
|
|
|
|
type
|
|
IViewDatosPedido = interface(IViewBase)
|
|
['{0882CE51-5185-4809-983E-6B2F01BA5FD7}']
|
|
function GetPedido: IBizPedidosProveedor;
|
|
procedure SetPedido(const Value: IBizPedidosProveedor);
|
|
property Pedido: IBizPedidosProveedor read GetPedido write SetPedido;
|
|
end;
|
|
|
|
TfrViewDatosPedido = class(TfrViewBase, IViewDatosPedido)
|
|
DADataSource: TDADataSource;
|
|
GroupBox1: TGroupBox;
|
|
Label4: TLabel;
|
|
eReferencia: TcxDBTextEdit;
|
|
Label2: TLabel;
|
|
cxDBTextEdit2: TcxDBTextEdit;
|
|
Label1: TLabel;
|
|
cxDBTextEdit1: TcxDBTextEdit;
|
|
private
|
|
FPedido : IBizPedidosProveedor;
|
|
function GetPedido: IBizPedidosProveedor;
|
|
procedure SetPedido(const Value: IBizPedidosProveedor);
|
|
public
|
|
property Pedido: IBizPedidosProveedor read GetPedido write SetPedido;
|
|
end;
|
|
|
|
var
|
|
frViewDatosPedido: TfrViewDatosPedido;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
{ TfrViewDatosPedido }
|
|
|
|
function TfrViewDatosPedido.GetPedido: IBizPedidosProveedor;
|
|
begin
|
|
Result := FPedido;
|
|
end;
|
|
|
|
procedure TfrViewDatosPedido.SetPedido(const Value: IBizPedidosProveedor);
|
|
begin
|
|
FPedido := Value;
|
|
if Assigned(FPedido) then
|
|
begin
|
|
DADataSource.DataTable := FPedido.DataTable;
|
|
Self.Visible := True;
|
|
end
|
|
else
|
|
DADataSource.DataTable := NIL;
|
|
end;
|
|
|
|
end.
|