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;
    procedure CustomViewShow(Sender: TObject);
  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
{$INCLUDE ..\..\..\FactuGES.inc}

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;

procedure TfrViewPresupuesto.CustomViewShow(Sender: TObject);
begin
  inherited;
  {$IFDEF TIENDA}
  frViewSituacionPresupuesto1.cbSituacion.Enabled := True;
  {$ELSE}
  frViewSituacionPresupuesto1.cbSituacion.Enabled := False;
  {$ENDIF}
end;

end.