LuisLeon_FactuGES2/Source/Modulos/ProcesoPresupuestoCliente/Views/uViewProcesoPresupuestosCliente.pas

unit uViewProcesoPresupuestosCliente;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg,
  dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
  dxPSEdgePatterns, cxGridCustomPopupMenu, cxGridPopupMenu, ImgList,
  PngImageList, ActnList, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, uDAInterfaces,
  uDADataTable, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uCustomView,
  uViewBase, uViewFiltroBase, cxGridLevel, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
  cxGrid, uBizPedidosCliente, uBizPedidosProveedor, uBizAlbaranesProveedor,
  uBizFacturasProveedor, Grids, DBGrids;

type
  IViewListadoProcesoPedidoCliente = interface(IViewGrid)
  ['{51AE72F0-E6F7-49E6-A376-EBFB5B118E62}']
    function GetPedidosCliente: IBizPedidoCliente;
    procedure SetPedidosCliente(const Value: IBizPedidoCliente);
    property PedidosCliente: IBizPedidoCliente read GetPedidosCliente write SetPedidosCliente;

    function GetPedidosProveedor: IBizPedidoProveedor;
    procedure SetPedidosProveedor(const Value: IBizPedidoProveedor);
    property PedidosProveedor: IBizPedidoProveedor read GetPedidosProveedor write SetPedidosProveedor;

    function GetAlbaranesProveedor: IBizAlbaranProveedor;
    procedure SetAlbaranesProveedor(const Value: IBizAlbaranProveedor);
    property AlbaranesProveedor: IBizAlbaranProveedor read GetAlbaranesProveedor write SetAlbaranesProveedor;

    function GetFacturasProveedor: IBizFacturaProveedor;
    procedure SetFacturasProveedor(const Value: IBizFacturaProveedor);
    property FacturasProveedor: IBizFacturaProveedor read GetFacturasProveedor write SetFacturasProveedor;

  end;

  TfrViewProcesoPresupuestosCliente = class(TfrViewGrid, IViewListadoProcesoPedidoCliente)
    cxGridViewREFERENCIA: TcxGridDBColumn;
    cxGridViewNOMBRE: TcxGridDBColumn;
    cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn;
    cxGridViewSITUACION: TcxGridDBColumn;
    dsPedidosProveedor: TDADataSource;
    cxGridViewPedidosProveedor: TcxGridDBTableView;
    cxGridViewPedidosProveedorREFERENCIA: TcxGridDBColumn;
    cxGridLevelPedidosProveedor: TcxGridLevel;
    cxGridViewPedidosProveedorNOMBRE: TcxGridDBColumn;
    cxGridViewFECHA_PEDIDO: TcxGridDBColumn;
    cxGridViewPedidosProveedorFECHA_PEDIDO: TcxGridDBColumn;
    cxGridViewPedidosProveedorSITUACION: TcxGridDBColumn;
    dsAlbaranesProveedor: TDADataSource;
    cxGridLevelAlbaranesProveedor: TcxGridLevel;
    cxGridViewAlbaranesProveedor: TcxGridDBTableView;
    cxGridViewAlbaranesProveedorREFERENCIA: TcxGridDBColumn;
    cxGridViewAlbaranesProveedorSITUACION: TcxGridDBColumn;
    cxGridViewAlbaranesProveedorFECHA_ALBARAN: TcxGridDBColumn;
    dsFacturasProveedor: TDADataSource;
    cxGridLevelFacturasProveedor: TcxGridLevel;
    cxGridViewFacturasProveedor: TcxGridDBTableView;
    cxGridViewFacturasProveedorREFERENCIA: TcxGridDBColumn;
    procedure CustomViewShow(Sender: TObject);
  protected
    FPedidosCliente: IBizPedidoCliente;
    FPedidosProveedor: IBizPedidoProveedor;
    FAlbaranesProveedor: IBizAlbaranProveedor;
    FFacturasProveedor: IBizFacturaProveedor;

    function GetPedidosCliente: IBizPedidoCliente;
    procedure SetPedidosCliente(const Value: IBizPedidoCliente);

    function GetPedidosProveedor: IBizPedidoProveedor;
    procedure SetPedidosProveedor(const Value: IBizPedidoProveedor);

    function GetAlbaranesProveedor: IBizAlbaranProveedor;
    procedure SetAlbaranesProveedor(const Value: IBizAlbaranProveedor);

    function GetFacturasProveedor: IBizFacturaProveedor;
    procedure SetFacturasProveedor(const Value: IBizFacturaProveedor);

  public
    property PedidosCliente: IBizPedidoCliente read GetPedidosCliente write SetPedidosCliente;
    property PedidosProveedor: IBizPedidoProveedor read GetPedidosProveedor write SetPedidosProveedor;
    property AlbaranesProveedor: IBizAlbaranProveedor read GetAlbaranesProveedor write SetAlbaranesProveedor;
    property FacturasProveedor: IBizFacturaProveedor read GetFacturasProveedor write SetFacturasProveedor;

    destructor Destroy; override;
  end;

implementation
{$R *.dfm}

{ TfrViewListadoProcesoPedidoCliente }

procedure TfrViewProcesoPresupuestosCliente.CustomViewShow(Sender: TObject);
begin
  inherited;
  if Assigned(FPedidosCliente) then
     FPedidosCliente.Active := True;
end;

destructor TfrViewProcesoPresupuestosCliente.Destroy;
begin
  FPedidosCliente:= Nil;
  FPedidosProveedor:= Nil;
  FAlbaranesProveedor:= Nil;
  FFacturasProveedor:= Nil;  
  inherited;
end;

function TfrViewProcesoPresupuestosCliente.GetAlbaranesProveedor: IBizAlbaranProveedor;
begin
  REsult := FAlbaranesProveedor;
end;

function TfrViewProcesoPresupuestosCliente.GetFacturasProveedor: IBizFacturaProveedor;
begin
  Result := FFacturasProveedor;
end;

function TfrViewProcesoPresupuestosCliente.GetPedidosCliente: IBizPedidoCliente;
begin
  Result := FPedidosCliente;
end;

function TfrViewProcesoPresupuestosCliente.GetPedidosProveedor: IBizPedidoProveedor;
begin
  Result := FPedidosProveedor;
end;

procedure TfrViewProcesoPresupuestosCliente.SetAlbaranesProveedor(const Value: IBizAlbaranProveedor);
begin
  FAlbaranesProveedor := Value;
  if Assigned(FAlbaranesProveedor) then
     dsAlbaranesProveedor.DataTable := FAlbaranesProveedor.DataTable
  else
     dsAlbaranesProveedor.DataTable := Nil;
end;

procedure TfrViewProcesoPresupuestosCliente.SetFacturasProveedor(const Value: IBizFacturaProveedor);
begin
  FFacturasProveedor := Value;
  if Assigned(FFacturasProveedor) then
     dsFacturasProveedor.DataTable := FFacturasProveedor.DataTable
  else
     dsFacturasProveedor.DataTable := Nil;
end;

procedure TfrViewProcesoPresupuestosCliente.SetPedidosCliente(const Value: IBizPedidoCliente);
begin
  FPedidosCliente := Value;
  if Assigned(FPedidosCliente) then
     dsDataSource.DataTable := FPedidosCliente.DataTable
  else
     dsDataSource.DataTable := Nil;
end;

procedure TfrViewProcesoPresupuestosCliente.SetPedidosProveedor(const Value: IBizPedidoProveedor);
begin
  FPedidosProveedor := Value;
  if Assigned(FPedidosProveedor) then
     dsPedidosProveedor.DataTable := FPedidosProveedor.DataTable
  else
     dsPedidosProveedor.DataTable := Nil;
end;

end.