david
e9a6941c8b
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@492 0c75b7a4-871f-7646-8a2f-f78d34cc349f
90 lines
3.0 KiB
ObjectPascal
90 lines
3.0 KiB
ObjectPascal
unit uViewObraReserva;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewBase, uBizPedidosProveedor, cxGraphics, dxLayoutControl, cxMemo,
|
|
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
|
|
cxDBLookupEdit, cxDBLookupComboBox, StdCtrls, cxControls, DB, uDADataTable,
|
|
ActnList, uBizAlmacenes, uAlmacenesController, uPedidosProveedorController,
|
|
Buttons, uDAInterfaces, uBizObras, uObrasController, cxButtonEdit, cxDBEdit,
|
|
ExtCtrls, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee,
|
|
dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
|
|
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
|
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
|
dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters,
|
|
dxSkinValentine, dxSkinXmas2008Blue, dxSkinsdxLCPainter;
|
|
|
|
type
|
|
IViewDireccionEntregaPedidoProv = interface(IViewBase)
|
|
['{7467855C-066F-4A60-B88F-2837C8050B1E}']
|
|
function GetPedidoProveedor: IBizPedidoProveedor;
|
|
procedure SetPedidoProveedor(const Value: IBizPedidoProveedor);
|
|
property PedidoProveedor: IBizPedidoProveedor read GetPedidoProveedor write SetPedidoProveedor;
|
|
end;
|
|
|
|
TfrViewObraReserva = class(TfrViewBase, IViewDireccionEntregaPedidoProv)
|
|
dxLayoutControl1: TdxLayoutControl;
|
|
dxLayoutGroup1: TdxLayoutGroup;
|
|
dsPedido: TDADataSource;
|
|
dxLayoutControl1Item6: TdxLayoutItem;
|
|
cbListaObrasReserva: TcxDBLookupComboBox;
|
|
dsObras: TDADataSource;
|
|
Label1: TLabel;
|
|
dxLayoutControl1Item1: TdxLayoutItem;
|
|
protected
|
|
FObrasController : IObrasController;
|
|
FObras: IBizObra;
|
|
FPedido : IBizPedidoProveedor;
|
|
FController : IPedidosProveedorController;
|
|
function GetPedidoProveedor: IBizPedidoProveedor;
|
|
procedure SetPedidoProveedor(const Value: IBizPedidoProveedor);
|
|
|
|
public
|
|
property PedidoProveedor: IBizPedidoProveedor read GetPedidoProveedor write SetPedidoProveedor;
|
|
constructor Create(AOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
uses
|
|
uEditorRegistryUtils, uCustomView, uEditorElegirPersonaContactoPedido;
|
|
|
|
constructor TfrViewObraReserva.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FController := TPedidosProveedorController.Create;
|
|
FObrasController := TObrasController.Create;
|
|
FObras := FObrasController.BuscarTodos;
|
|
FObras.DataTable.Active := True;
|
|
dsObras.DataTable := FObras.DataTable;
|
|
end;
|
|
|
|
destructor TfrViewObraReserva.Destroy;
|
|
begin
|
|
FObrasController := Nil;
|
|
FObras := Nil;
|
|
|
|
FController := NIL;
|
|
inherited;
|
|
end;
|
|
|
|
function TfrViewObraReserva.GetPedidoProveedor: IBizPedidoProveedor;
|
|
begin
|
|
Result := FPedido;
|
|
end;
|
|
|
|
procedure TfrViewObraReserva.SetPedidoProveedor(
|
|
const Value: IBizPedidoProveedor);
|
|
begin
|
|
dsPedido.DataTable := nil;
|
|
FPedido := Value;
|
|
dsPedido.DataTable := FPedido.DataTable;
|
|
end;
|
|
|
|
end.
|