david
68ec970246
git-svn-id: https://192.168.0.254/svn/Proyectos.EstudioCarnicero_ProGestion/trunk@4 1b8572a8-2d6b-b84e-8c90-20ed86fa4eca
107 lines
3.6 KiB
ObjectPascal
107 lines
3.6 KiB
ObjectPascal
{
|
|
===============================================================================
|
|
Copyright (©) 2006. Rodax Software.
|
|
===============================================================================
|
|
Los contenidos de este fichero son propiedad de Rodax Software titular del
|
|
copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
|
|
en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
|
|
acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
|
|
bajo el que se suministra.
|
|
-----------------------------------------------------------------------------
|
|
Web: www.rodax-software.com
|
|
===============================================================================
|
|
Fecha primera versión: 22-05-2006
|
|
Versión actual: 1.0.0
|
|
Fecha versión actual: 22-05-2006
|
|
===============================================================================
|
|
Modificaciones:
|
|
|
|
Fecha Comentarios
|
|
---------------------------------------------------------------------------
|
|
===============================================================================
|
|
}
|
|
|
|
unit uViewProyectoObra;
|
|
|
|
interface
|
|
|
|
uses
|
|
cxGraphics, DB, uDADataTable, dxLayoutControl, cxLookupEdit, cxDBLookupEdit,
|
|
cxDBLookupComboBox, cxMemo, cxDBEdit, cxSpinEdit, cxCalc, cxCheckBox,
|
|
cxDropDownEdit, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxCalendar,
|
|
Classes, Controls, cxControls,
|
|
|
|
uViewBase, uBizObra, ComCtrls, ToolWin, ImgList, PngImageList, ActnList,
|
|
Forms, uCustomView, uViewDocumentosAsociados;
|
|
|
|
|
|
type
|
|
IViewProyectoObra = interface(IViewBase)
|
|
['{68EFF4B3-B966-48DA-AA5D-2BDE61A65213}']
|
|
function GetProyectoObra: IBizProyectosObra;
|
|
procedure SetProyectoObra(const Value: IBizProyectosObra);
|
|
property ProyectoObra: IBizProyectosObra read GetProyectoObra write SetProyectoObra;
|
|
end;
|
|
|
|
TfrViewProyectoObra = class(TfrViewBase, IViewProyectoObra)
|
|
dxLayoutControl1Group_Root: TdxLayoutGroup;
|
|
dxLayoutControl1: TdxLayoutControl;
|
|
DADataSource: TDADataSource;
|
|
cbTipoProyecto: TcxDBComboBox;
|
|
dxLayoutControl1Item3: TdxLayoutItem;
|
|
edtAceptado: TcxDBCheckBox;
|
|
dxLayoutControl1Item2: TdxLayoutItem;
|
|
dxLayoutControl1Group6: TdxLayoutGroup;
|
|
dxLayoutControl1Item1: TdxLayoutItem;
|
|
edtDescripcion: TcxDBTextEdit;
|
|
dxLayoutControl1Group3: TdxLayoutGroup;
|
|
dxLayoutControl1Item4: TdxLayoutItem;
|
|
edtlNombre: TcxDBTextEdit;
|
|
DADataSource2: TDADataSource;
|
|
procedure CustomViewCreate(Sender: TObject);
|
|
private
|
|
FProyectoObra: IBizProyectosObra;
|
|
function GetProyectoObra: IBizProyectosObra;
|
|
procedure SetProyectoObra(const Value: IBizProyectosObra);
|
|
public
|
|
property ProyectoObra: IBizProyectosObra read GetProyectoObra write SetProyectoObra;
|
|
end;
|
|
|
|
var
|
|
frViewProyectoObra: TfrViewProyectoObra;
|
|
|
|
implementation
|
|
{$R *.dfm}
|
|
|
|
procedure TfrViewProyectoObra.CustomViewCreate(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
cbTipoProyecto.Properties.Items.Add(TIPO_ANTEPROYECTO);
|
|
cbTipoProyecto.Properties.Items.Add(TIPO_BASICO);
|
|
cbTipoProyecto.Properties.Items.Add(TIPO_EJECUCION);
|
|
cbTipoProyecto.Properties.Items.Add(TIPO_SEGURIDAD);
|
|
end;
|
|
|
|
function TfrViewProyectoObra.GetProyectoObra: IBizProyectosObra;
|
|
begin
|
|
Result := FProyectoObra;
|
|
end;
|
|
|
|
procedure TfrViewProyectoObra.SetProyectoObra(const Value: IBizProyectosObra);
|
|
begin
|
|
FProyectoObra := Value;
|
|
|
|
if Assigned(FProyectoObra) then
|
|
begin
|
|
DADataSource.DataTable := FProyectoObra.DataTable;
|
|
DADataSource2.DataTable := FProyectoObra.Obra.DataTable;
|
|
end
|
|
else
|
|
begin
|
|
DADataSource.DataTable := Nil;
|
|
DADataSource2.DataTable := Nil;
|
|
end;
|
|
end;
|
|
|
|
end.
|