david
12013bdc69
git-svn-id: https://192.168.0.254/svn/Proyectos.ConstruccionesCNJ_FactuGES/trunk@4 6cb6b671-b4a0-dd4c-8bdc-3006503d97e9
56 lines
1.2 KiB
ObjectPascal
56 lines
1.2 KiB
ObjectPascal
unit uBizDetallesPresupuesto;
|
|
|
|
interface
|
|
|
|
uses
|
|
uDAInterfaces, uDADataTable, schPresupuestosClient_Intf;
|
|
|
|
const
|
|
BIZ_CLIENT_DETALLES_PRESUPUESTO = 'Client.DetallesPresupuesto';
|
|
|
|
type
|
|
IBizDetallesPresupuesto = interface(IPresupuestos_Detalles)
|
|
['{46C2F77A-0D5A-4872-B37A-260FC5E52CC5}']
|
|
function EsNuevo: Boolean;
|
|
end;
|
|
|
|
TBizDetallesPresupuesto = class(TPresupuestos_DetallesDataTableRules, IBizDetallesPresupuesto)
|
|
private
|
|
FContadorID: Integer;
|
|
protected
|
|
procedure OnNewRecord(Sender: TDADataTable); override;
|
|
public
|
|
function EsNuevo: Boolean;
|
|
constructor Create(aDataTable: TDADataTable); override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TBizDetallesPresupuesto }
|
|
|
|
uses uDataTableUtils;
|
|
|
|
constructor TBizDetallesPresupuesto.Create(aDataTable: TDADataTable);
|
|
begin
|
|
inherited Create(aDataTable);
|
|
FContadorID := -1;
|
|
end;
|
|
|
|
function TBizDetallesPresupuesto.EsNuevo: Boolean;
|
|
begin
|
|
Result := (ID < 0);
|
|
end;
|
|
|
|
procedure TBizDetallesPresupuesto.OnNewRecord(Sender: TDADataTable);
|
|
begin
|
|
inherited;
|
|
ID := FContadorID; // -1, -2, -3...
|
|
Dec(FContadorID);
|
|
end;
|
|
|
|
initialization
|
|
RegisterDataTableRules(BIZ_CLIENT_DETALLES_PRESUPUESTO, TBizDetallesPresupuesto);
|
|
|
|
|
|
end.
|