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, uBizAlbaranesCliente, uBizFacturasCliente, uBizFacturasProforma,
  Grids, DBGrids, cxCalendar;

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;

    function GetAlbaranesCliente: IBizAlbaranCliente;
    procedure SetAlbaranesCliente(const Value: IBizAlbaranCliente);
    property AlbaranesCliente: IBizAlbaranCliente read GetAlbaranesCliente write SetAlbaranesCliente;

    function GetFacturasProforma: IBizFacturaProforma;
    procedure SetFacturasProforma(const Value: IBizFacturaProforma);
    property FacturasProforma: IBizFacturaProforma read GetFacturasProforma write SetFacturasProforma;

    function GetFacturasCliente: IBizFacturaCliente;
    procedure SetFacturasCliente(const Value: IBizFacturaCliente);
    property FacturasCliente: IBizFacturaCliente read GetFacturasCliente write SetFacturasCliente;
  end;

  TfrViewProcesoPresupuestosCliente = class(TfrViewGrid, IViewListadoProcesoPedidoCliente)
    cxGridViewREFERENCIA: TcxGridDBColumn;
    cxGridViewNOMBRE: TcxGridDBColumn;
    cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn;
    cxGridViewSITUACION: TcxGridDBColumn;
    dsPedidosProveedor: TDADataSource;
    cxGridViewPedidosProveedor: TcxGridDBTableView;
    cxGridViewPedidosProveedorREFERENCIA: TcxGridDBColumn;
    cxGridViewPedidosProveedorNOMBRE: TcxGridDBColumn;
    cxGridViewFECHA_PEDIDO: TcxGridDBColumn;
    cxGridViewPedidosProveedorFECHA_PEDIDO: TcxGridDBColumn;
    cxGridViewPedidosProveedorSITUACION: TcxGridDBColumn;
    dsAlbaranesProveedor: TDADataSource;
    cxGridViewAlbaranesProveedor: TcxGridDBTableView;
    cxGridViewAlbaranesProveedorREFERENCIA: TcxGridDBColumn;
    cxGridViewAlbaranesProveedorSITUACION: TcxGridDBColumn;
    cxGridViewAlbaranesProveedorFECHA_ALBARAN: TcxGridDBColumn;
    dsFacturasProveedor: TDADataSource;
    cxGridViewFacturasProveedor: TcxGridDBTableView;
    cxGridViewFacturasProveedorREFERENCIA: TcxGridDBColumn;
    cxGridViewFacturasProveedorREFERENCIA_PROVEEDOR: TcxGridDBColumn;
    cxGridViewFacturasProveedorSITUACION: TcxGridDBColumn;
    cxGridViewFacturasProveedorFECHA_FACTURA: TcxGridDBColumn;
    cxGridViewAlbaranesCliente: TcxGridDBTableView;
    cxGridViewFacturasCliente: TcxGridDBTableView;
    cxGridViewFacturasClienteREFERENCIA: TcxGridDBColumn;
    cxGridViewAlbaranesClienteREFERENCIA: TcxGridDBColumn;
    dsAlbaranesCliente: TDADataSource;
    dsFacturasCliente: TDADataSource;
    cxGridViewAlbaranesClienteSITUACION: TcxGridDBColumn;
    cxGridViewAlbaranesClienteFECHA_ALBARAN: TcxGridDBColumn;
    cxGridViewFacturasClienteSITUACION: TcxGridDBColumn;
    cxGridViewFacturasClienteFECHA_FACTURA: TcxGridDBColumn;
    cxGridFacturasCliente: TcxGridLevel;
    dsFacturasProforma: TDADataSource;
    cxGridViewFacturasProforma: TcxGridDBTableView;
    cxGridViewFacturasProformaREFERENCIA: TcxGridDBColumn;
    cxGridFacturasProforma: TcxGridLevel;
    cxGridViewFacturasProformaSITUACION: TcxGridDBColumn;
    cxGridViewFacturasProformaFECHA_FACTURA: TcxGridDBColumn;
    cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn;
    procedure CustomViewShow(Sender: TObject);

  protected
    FPedidosCliente: IBizPedidoCliente;
    FPedidosProveedor: IBizPedidoProveedor;
    FAlbaranesProveedor: IBizAlbaranProveedor;
    FFacturasProveedor: IBizFacturaProveedor;
    FAlbaranesCliente: IBizAlbaranCliente;
    FFacturasProforma: IBizFacturaProforma;
    FFacturasCliente: IBizFacturaCliente;

    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);

    function GetAlbaranesCliente: IBizAlbaranCliente;
    procedure SetAlbaranesCliente(const Value: IBizAlbaranCliente);

    function GetFacturasCliente: IBizFacturaCliente;
    procedure SetFacturasCliente(const Value: IBizFacturaCliente);

    function GetFacturasProforma: IBizFacturaProforma;
    procedure SetFacturasProforma(const Value: IBizFacturaProforma);

  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;
    property AlbaranesCliente: IBizAlbaranCliente read GetAlbaranesCliente write SetAlbaranesCliente;
    property FacturasCliente: IBizFacturaCliente read GetFacturasCliente write SetFacturasCliente;
    property FacturasProforma: IBizFacturaProforma read GetFacturasProforma write SetFacturasProforma;

    destructor Destroy; override;
  end;

implementation
{$R *.dfm}

{ TfrViewListadoProcesoPedidoCliente }

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

//  cxGridView.
end;

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

function TfrViewProcesoPresupuestosCliente.GetAlbaranesCliente: IBizAlbaranCliente;
begin
  Result := FAlbaranesCliente;
end;

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

function TfrViewProcesoPresupuestosCliente.GetFacturasCliente: IBizFacturaCliente;
begin
  Result := FFacturasCliente;
end;

function TfrViewProcesoPresupuestosCliente.GetFacturasProforma: IBizFacturaProforma;
begin
  Result := FFacturasProforma;
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.SetAlbaranesCliente(const Value: IBizAlbaranCliente);
begin
  FAlbaranesCliente := Value;
  if Assigned(FAlbaranesCliente) then
     dsAlbaranesCliente.DataTable := FAlbaranesCliente.DataTable
  else
     dsAlbaranesCliente.DataTable := Nil;
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.SetFacturasCliente(const Value: IBizFacturaCliente);
begin
  FFacturasCliente := Value;
  if Assigned(FFacturasCliente) then
     dsFacturasCliente.DataTable := FFacturasCliente.DataTable
  else
     dsFacturasCliente.DataTable := Nil;
end;

procedure TfrViewProcesoPresupuestosCliente.SetFacturasProforma(
  const Value: IBizFacturaProforma);
begin
  FFacturasProforma := Value;
  if Assigned(FFacturasProforma) then
     dsFacturasProforma.DataTable := FFacturasProforma.DataTable
  else
     dsFacturasProforma.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.