david
32153cd070
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@5 9a1d36f3-7752-2d40-8ccb-50eb49674c68
77 lines
2.6 KiB
ObjectPascal
77 lines
2.6 KiB
ObjectPascal
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.
|