david
32153cd070
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@5 9a1d36f3-7752-2d40-8ccb-50eb49674c68
100 lines
2.9 KiB
ObjectPascal
100 lines
2.9 KiB
ObjectPascal
unit uViewMontaje;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable,
|
|
DBCtrls, Grids, DBGrids, uBizMontajes, Mask, ComCtrls, uCustomView,
|
|
uViewDireccion, uViewTelefonos, uViewInternet, uViewCategorias,
|
|
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
|
|
cxDBEdit, cxGraphics, uViewDatosYSeleccionContacto, cxMaskEdit,
|
|
cxDropDownEdit, cxImageComboBox, cxCalendar, uViewPresupuestoRelacionado,
|
|
uViewPresupuestoMontaje;
|
|
|
|
type
|
|
IViewMontaje = interface(IViewBase)
|
|
['{A9189F38-9832-4919-9B98-56F345C2AACA}']
|
|
function GetMontaje: IBizMontaje;
|
|
procedure SetMontaje(const Value: IBizMontaje);
|
|
property Montaje: IBizMontaje read GetMontaje write SetMontaje;
|
|
end;
|
|
|
|
TfrViewMontaje = class(TfrViewBase, IViewMontaje)
|
|
Bevel1: TBevel;
|
|
DADataSource: TDADataSource;
|
|
Label5: TLabel;
|
|
pnlGeneral: TPanel;
|
|
Label3: TLabel;
|
|
Label4: TLabel;
|
|
frViewDatosYSeleccionContacto: TfrViewDatosYSeleccionContacto;
|
|
cbSituacion: TcxDBImageComboBox;
|
|
edtFechaIni: TcxDBDateEdit;
|
|
edtFechaFin: TcxDBDateEdit;
|
|
frViewPresupuestoMontaje: TfrViewPresupuestoMontaje;
|
|
private
|
|
FMontaje: IBizMontaje;
|
|
protected
|
|
procedure OnPresupuestoChanged(Sender : TObject);
|
|
procedure OnContactoChanged (Sender : TObject);
|
|
function GetMontaje: IBizMontaje;
|
|
procedure SetMontaje(const Value: IBizMontaje);
|
|
public
|
|
property Montaje: IBizMontaje read GetMontaje write SetMontaje;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses uDataModuleMontajes, uBizContacto, uDataModuleContactos, uDataModulePresupuestos,
|
|
uBizPresupuestosCliente;
|
|
|
|
{$R *.dfm}
|
|
{ TfrViewMontajes }
|
|
|
|
{
|
|
******************************* TfrViewMontajes ********************************
|
|
}
|
|
|
|
function TfrViewMontaje.GetMontaje: IBizMontaje;
|
|
begin
|
|
Result := FMontaje;
|
|
end;
|
|
|
|
procedure TfrViewMontaje.OnContactoChanged(Sender: TObject);
|
|
begin
|
|
FMontaje.Cliente := (frViewDatosYSeleccionContacto.Contacto as IBizCliente);
|
|
end;
|
|
|
|
procedure TfrViewMontaje.OnPresupuestoChanged(Sender: TObject);
|
|
begin
|
|
if not (FMontaje.DataTable.State in dsEditModes) then
|
|
FMontaje.Edit;
|
|
|
|
FMontaje.Presupuesto := frViewPresupuestoMontaje.Presupuesto;
|
|
frViewDatosYSeleccionContacto.Contacto := Montaje.Cliente;
|
|
end;
|
|
|
|
procedure TfrViewMontaje.SetMontaje(const Value: IBizMontaje);
|
|
begin
|
|
FMontaje := Value;
|
|
if Assigned(FMontaje) then
|
|
DADataSource.DataTable := FMontaje.DataTable
|
|
else
|
|
DADataSource.DataTable := NIL;
|
|
|
|
frViewDatosYSeleccionContacto.Contacto := FMontaje.Cliente;
|
|
frViewDatosYSeleccionContacto.OnContactoChanged := OnContactoChanged;
|
|
|
|
frViewPresupuestoMontaje.Presupuesto := FMontaje.Presupuesto;
|
|
frViewPresupuestoMontaje.OnPresupuestoChanged := OnPresupuestoChanged;
|
|
end;
|
|
|
|
initialization
|
|
RegisterClass(TfrViewMontaje);
|
|
|
|
finalization
|
|
UnRegisterClass(TfrViewMontaje);
|
|
|
|
end.
|
|
|