david
12013bdc69
git-svn-id: https://192.168.0.254/svn/Proyectos.ConstruccionesCNJ_FactuGES/trunk@4 6cb6b671-b4a0-dd4c-8bdc-3006503d97e9
69 lines
2.4 KiB
ObjectPascal
69 lines
2.4 KiB
ObjectPascal
unit ViewMontajeDetalle;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewMontaje, cxGraphics, DB, uDADataTable, dxLayoutControl,
|
|
uCustomView, uViewBase, uViewDatosYSeleccionCliente, cxDropDownEdit,
|
|
cxCalendar, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxControls,
|
|
uViewDatosYSeleccionPresupuesto, uBizMontajes;
|
|
|
|
type
|
|
IViewMontajeDetalle = interface(IViewMontaje)
|
|
['{03489EFD-EF83-440D-9494-3C047C89C7DD}']
|
|
function GetViewPresupuestoMontaje: TfrViewDatosYSeleccionPresupuesto;
|
|
procedure SetViewPresupuestoMontaje(const Value: TfrViewDatosYSeleccionPresupuesto);
|
|
property ViewPresupuestoMontaje: TfrViewDatosYSeleccionPresupuesto read GetViewPresupuestoMontaje write SetViewPresupuestoMontaje;
|
|
end;
|
|
|
|
TfrViewMontajeDetalle = class(TfrViewMontaje, IViewMontajeDetalle)
|
|
frViewPresupuestoMontaje: TfrViewDatosYSeleccionPresupuesto;
|
|
dxLayoutControlMontajeGroup4: TdxLayoutGroup;
|
|
dxLayoutControlMontajeItem2: TdxLayoutItem;
|
|
procedure CustomViewCreate(Sender: TObject);
|
|
procedure CustomViewDestroy(Sender: TObject);
|
|
protected
|
|
FViewPresupuestoMontaje : TfrViewDatosYSeleccionPresupuesto;
|
|
function GetViewPresupuestoMontaje: TfrViewDatosYSeleccionPresupuesto;
|
|
procedure SetViewPresupuestoMontaje(const Value: TfrViewDatosYSeleccionPresupuesto);
|
|
procedure SetMontaje(const Value: IBizMontaje); override;
|
|
public
|
|
property ViewMontajePresupuesto: TfrViewDatosYSeleccionPresupuesto read GetViewPresupuestoMontaje write SetViewPresupuestoMontaje;
|
|
end;
|
|
|
|
implementation
|
|
{$R *.dfm}
|
|
|
|
uses uBizMontajesDetalles;
|
|
|
|
procedure TfrViewMontajeDetalle.CustomViewCreate(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
FViewPresupuestoMontaje := frViewPresupuestoMontaje;
|
|
end;
|
|
|
|
procedure TfrViewMontajeDetalle.CustomViewDestroy(Sender: TObject);
|
|
begin
|
|
FViewPresupuestoMontaje := Nil;
|
|
inherited;
|
|
end;
|
|
|
|
function TfrViewMontajeDetalle.GetViewPresupuestoMontaje: TfrViewDatosYSeleccionPresupuesto;
|
|
begin
|
|
Result := FViewPresupuestoMontaje;
|
|
end;
|
|
|
|
procedure TfrViewMontajeDetalle.SetMontaje(const Value: IBizMontaje);
|
|
begin
|
|
inherited;
|
|
frViewPresupuestoMontaje.Presupuesto := (FMontaje as IBizMontajeDetalles).Presupuesto;
|
|
end;
|
|
|
|
procedure TfrViewMontajeDetalle.SetViewPresupuestoMontaje(const Value: TfrViewDatosYSeleccionPresupuesto);
|
|
begin
|
|
FViewPresupuestoMontaje := Value;
|
|
end;
|
|
|
|
end.
|