unit uViewPresupuesto;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewBase, uBizPresupuestosCliente, cxControls, cxContainer,
  cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar, cxDBEdit, DB,
  uDADataTable, StdCtrls, Mask, DBCtrls, ExtCtrls, cxGraphics, uCustomView,
  uViewDatosPresupuesto, uViewSituacionPresupuesto,
  uViewFormaPago, uViewPlazoEntrega, uViewObservaciones,
  uViewDatosYSeleccionContacto, AppEvnts;

type
  IViewPresupuesto = interface(IViewBase)
    ['{7FDBC909-C3F2-4778-9FE3-1D813FEA7FC1}']
    function GetPresupuesto: IBizPresupuestos;
    procedure SetPresupuesto(const Value: IBizPresupuestos);
    property Presupuesto: IBizPresupuestos read GetPresupuesto write
            SetPresupuesto;
  end;
  
  TfrViewPresupuesto = class(TfrViewBase, IViewPresupuesto)
    DADataSource: TDADataSource;
    frViewClientePresupuesto1: TfrViewDatosYSeleccionContacto;
    frViewDatosPresupuesto1: TfrViewDatosPresupuesto;
    frViewFormaPago1: TfrViewFormaPago;
    frViewObservaciones1: TfrViewObservaciones;
    frViewPlazoEntrega1: TfrViewPlazoEntrega;
    frViewSituacionPresupuesto1: TfrViewSituacionPresupuesto;
  private
    FPresupuesto: IBizPresupuestos;
    procedure OnContactoChanged(Sender : TObject);
  protected
    function GetPresupuesto: IBizPresupuestos;
    procedure SetPresupuesto(const Value: IBizPresupuestos);
  public
    property Presupuesto: IBizPresupuestos read GetPresupuesto write
            SetPresupuesto;
  end;
  
implementation

uses uBizContacto, uExceptions;

{$R *.dfm}

function TfrViewPresupuesto.GetPresupuesto: IBizPresupuestos;
begin
  Result := FPresupuesto;
end;

procedure TfrViewPresupuesto.OnContactoChanged(Sender : TObject);
begin
  FPresupuesto.Cliente := (frViewClientePresupuesto1.Contacto as IBizCliente);
end;

procedure TfrViewPresupuesto.SetPresupuesto(const Value: IBizPresupuestos);
begin
  FPresupuesto := Value;
  if Assigned(FPresupuesto) then
    DADataSource.DataTable := FPresupuesto.DataTable
  else
    DADataSource.DataTable := NIL;
  
  frViewDatosPresupuesto1.DADataSource.DataTable := DADataSource.DataTable;
  frViewSituacionPresupuesto1.DADataSource.DataTable :=  DADataSource.DataTable;
  frViewFormaPago1.DADataSource.DataTable := DADataSource.DataTable;
  frViewPlazoEntrega1.DADataSource.DataTable := DADataSource.DataTable;
  frViewObservaciones1.DADataSource.DataTable := DADataSource.DataTable;
  
  frViewClientePresupuesto1.Contacto := Presupuesto.Cliente;
  frViewClientePresupuesto1.OnContactoChanged := OnContactoChanged;
end;

end.