unit uBizApuntes;

interface

uses
  uDAInterfaces, uDADataTable, schContabilidadClient_Intf;

const
  BIZ_CLIENT_Apunte = 'Client.Apunte';

type
  IBizApunte = interface(IApuntes)
  ['{D26061DB-FFF4-456F-B442-A14A19501DD0}']
    function EsNuevo : Boolean;
  end;

  TBizApunte = class(TApuntesDataTableRules, IBizApunte)
  protected
    procedure OnNewRecord(Sender: TDADataTable); override;
  public
    procedure IniciarValoresApunteNueva;
    function EsNuevo : Boolean;
  end;

implementation

{ TBizApunte }

uses
  SysUtils, uDataTableUtils, uFactuGES_App;

function TBizApunte.EsNuevo: Boolean;
begin
  Result := (ID < 0);
end;

procedure TBizApunte.IniciarValoresApunteNueva;
begin
//  ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID;
end;

procedure TBizApunte.OnNewRecord(Sender: TDADataTable);
begin
  inherited;
  IniciarValoresApunteNueva;
end;

initialization
  RegisterDataTableRules(BIZ_CLIENT_Apunte, TBizApunte);

finalization

end.