david
32153cd070
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@5 9a1d36f3-7752-2d40-8ccb-50eb49674c68
112 lines
3.2 KiB
ObjectPascal
112 lines
3.2 KiB
ObjectPascal
unit uViewPresupuestoRelacionado;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewBase, ExtCtrls, StdCtrls, cxControls, cxContainer, cxEdit,
|
|
cxTextEdit, cxDBEdit, ComCtrls, ToolWin, ImgList, PngImageList, ActnList,
|
|
DB, uDADataTable, uBizPresupuestosCliente;
|
|
|
|
type
|
|
IViewPresupuestoRelacionado = interface(IViewBase)
|
|
['{42655AAC-2669-452D-8E56-C9AF657EF2BF}']
|
|
|
|
function GetPresupuesto: IBizPresupuestos;
|
|
procedure SetPresupuesto(const Value: IBizPresupuestos);
|
|
property Presupuesto: IBizPresupuestos read GetPresupuesto write SetPresupuesto;
|
|
|
|
function GetOnPresupuestoChanged : TNotifyEvent;
|
|
procedure SetOnPresupuestoChanged (const Value : TNotifyEvent);
|
|
property OnPresupuestoChanged : TNotifyEvent read GetOnPresupuestoChanged
|
|
write SetOnPresupuestoChanged;
|
|
end;
|
|
|
|
TfrViewPresupuestoRelacionado = class(TfrViewBase, IViewPresupuestoRelacionado)
|
|
Label5: TLabel;
|
|
Bevel1: TBevel;
|
|
ActionList1: TActionList;
|
|
actElegirPresupuesto: TAction;
|
|
actVerPresupuesto: TAction;
|
|
PngImageList: TPngImageList;
|
|
ToolBar1: TToolBar;
|
|
ToolButton1: TToolButton;
|
|
ToolButton3: TToolButton;
|
|
ToolButton2: TToolButton;
|
|
lblNombre: TLabel;
|
|
DADataSource: TDADataSource;
|
|
edtlReferencia: TcxDBTextEdit;
|
|
procedure actVerPresupuestoExecute(Sender: TObject);
|
|
procedure actVerPresupuestoUpdate(Sender: TObject);
|
|
private
|
|
FPresupuesto : IBizPresupuestos;
|
|
FOnPresupuestoChanged : TNotifyEvent;
|
|
protected
|
|
function GetPresupuesto: IBizPresupuestos;
|
|
procedure SetPresupuesto(const Value: IBizPresupuestos);
|
|
|
|
function GetOnPresupuestoChanged : TNotifyEvent;
|
|
procedure SetOnPresupuestoChanged (const Value : TNotifyEvent);
|
|
public
|
|
property Presupuesto: IBizPresupuestos read GetPresupuesto write SetPresupuesto;
|
|
property OnPresupuestoChanged : TNotifyEvent read GetOnPresupuestoChanged
|
|
write SetOnPresupuestoChanged;
|
|
end;
|
|
|
|
var
|
|
frViewPresupuestoRelacionado: TfrViewPresupuestoRelacionado;
|
|
|
|
implementation
|
|
|
|
uses
|
|
uDataModulePresupuestos, schPresupuestosClient_Intf;
|
|
|
|
{$R *.dfm}
|
|
|
|
{ TfrViewPresupuestoAlbaran }
|
|
|
|
procedure TfrViewPresupuestoRelacionado.actVerPresupuestoExecute(
|
|
Sender: TObject);
|
|
begin
|
|
FPresupuesto.Show;
|
|
end;
|
|
|
|
procedure TfrViewPresupuestoRelacionado.actVerPresupuestoUpdate(
|
|
Sender: TObject);
|
|
begin
|
|
inherited;
|
|
(Sender as TAction).Enabled := Assigned(FPresupuesto);
|
|
end;
|
|
|
|
function TfrViewPresupuestoRelacionado.GetPresupuesto: IBizPresupuestos;
|
|
begin
|
|
Result := FPresupuesto;
|
|
end;
|
|
|
|
procedure TfrViewPresupuestoRelacionado.SetPresupuesto(
|
|
const Value: IBizPresupuestos);
|
|
begin
|
|
FPresupuesto := Value;
|
|
DADataSource.DataTable := FPresupuesto.DataTable;
|
|
|
|
if not FPresupuesto.DataTable.Active then
|
|
FPresupuesto.DataTable.Active := True;
|
|
|
|
if Assigned(FOnPresupuestoChanged) then
|
|
FOnPresupuestoChanged(Self);
|
|
end;
|
|
|
|
|
|
function TfrViewPresupuestoRelacionado.GetOnPresupuestoChanged: TNotifyEvent;
|
|
begin
|
|
Result := FOnPresupuestoChanged;
|
|
end;
|
|
|
|
procedure TfrViewPresupuestoRelacionado.SetOnPresupuestoChanged(
|
|
const Value: TNotifyEvent);
|
|
begin
|
|
FOnPresupuestoChanged := Value;
|
|
end;
|
|
|
|
end.
|