unit uBizClientesDescuentosArt;

interface

uses
  uDAInterfaces, uDADataTable,
  schContactosClient_Intf;

const
  BIZ_CLIENT_CLIENTE_DESCUENTOS_ART = 'Client.ClienteDescuentosArticulos';

type
  IBizClienteDescuentosArticulos = interface (IClientesDescuentosArticulos)
  ['{9D5E2778-F74F-4ED5-A0F0-ADDA73544E43}']
  end;

  TBizClienteDescuentosArticulos = class(TClientesDescuentosArticulosDataTableRules, IBizClienteDescuentosArticulos)
  protected
    procedure BeforeInsert(Sender: TDADataTable); override;
  end;

implementation

{ TBizClienteDescuentos }

uses
  DB;

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

initialization
  RegisterDataTableRules(BIZ_CLIENT_CLIENTE_DESCUENTOS_ART, TBizClienteDescuentosArticulos);

end.