unit uBizAgentesObjetivosFacturas;

interface

uses
  uDAInterfaces, uDADataTable,
  schContactosClient_Intf;

const
  BIZ_CLIENT_AGENTE_OBJETIVOS_FAC = 'Client.AgenteObjetivosFacturas';

type
  IBizAgentesObjetivosFacturas = interface (IAgentes_Objetivos_facturas)
  ['{0063F6E3-D218-49BE-B4C0-96E1EE7A45A5}']
  end;

  TBizAgentesObjetivosFacturas = class(TAgentes_Objetivos_FacturasDataTableRules, IBizAgentesObjetivosFacturas)
  protected
    procedure BeforeInsert(Sender: TDADataTable); override;
  end;

implementation

{ TBizAgentesObjetivosFacturas }

uses
  DB;

procedure TBizAgentesObjetivosFacturas.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_AGENTE_OBJETIVOS_FAC, TBizAgentesObjetivosFacturas);

end.