unit uBizArticulosIdiomas;

interface

uses
  uDAInterfaces, uDADataTable,
  schArticulosClient_Intf;

const
  BIZ_CLIENT_ARTICULOS_IDIOMAS = 'Client.ArticulosIdiomas';

type
  IBizArticulosIdiomas = interface(IArticulos_Idiomas)
  ['{DA808DDA-A4A5-489D-8877-076B5C46AAF3}']
    function EsNuevo : Boolean;
  end;

  TBizArticulosIdiomas = class(TArticulos_IdiomasDataTableRules, IBizArticulosIdiomas)
  protected
    procedure BeforeInsert(Sender: TDADataTable); override;

  public
    function EsNuevo : Boolean;
  end;

implementation

uses
  Dialogs,uDataTableUtils, DB;

{ TBizArticulosIdiomas }

procedure TBizArticulosIdiomas.BeforeInsert(Sender: TDADataTable);
var
  AMasterTable : TDADataTable;
begin
  inherited;
  AMasterTable := DataTable.GetMasterDataTable;
  if Assigned(AMasterTable) and (AMasterTable.State in dsEditModes) then
    AMasterTable.Post;
end;

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

initialization
  RegisterDataTableRules(BIZ_CLIENT_ARTICULOS_IDIOMAS, TBizArticulosIdiomas);


end.