unit uBizAsientos;

interface

uses
  uDAInterfaces, uDADataTable, schContabilidadClient_Intf;

const
  BIZ_CLIENT_Asiento = 'Client.Asiento';

type
  IBizAsiento = interface(IAsientos)
    ['{F79E3238-1E0D-4FB6-9AF7-E5703619B067}']
    function EsNuevo : Boolean;
  end;

  TBizAsiento = class(TAsientosDataTableRules, IBizAsiento)
  protected
    procedure OnNewRecord(Sender: TDADataTable); override;
  public
    procedure IniciarValoresAsientoNueva;
    function EsNuevo : Boolean;
  end;

implementation

{ TBizAsiento }

uses
  SysUtils, uDataTableUtils, uFactuGES_App;

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

procedure TBizAsiento.IniciarValoresAsientoNueva;
begin
//  ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID;
end;

procedure TBizAsiento.OnNewRecord(Sender: TDADataTable);
begin
  inherited;
  IniciarValoresAsientoNueva;
end;

initialization
  RegisterDataTableRules(BIZ_CLIENT_Asiento, TBizAsiento);

finalization

end.