unit uBizAgentesObjetivosAlbaranes;

interface

uses
  uDAInterfaces, uDADataTable,
  schContactosClient_Intf;

const
  BIZ_CLIENT_AGENTE_OBJETIVOS_ALB = 'Client.AgenteObjetivosAlbaranes';

type
  IBizAgentesObjetivosAlbaranes = interface (IAgentes_Objetivos_albaranes)
  ['{248739B8-D2A0-45DC-9427-1F93FC96E7F0}']
  end;

  TBizAgentesObjetivosAlbaranes = class(TAgentes_Objetivos_AlbaranesDataTableRules, IBizAgentesObjetivosAlbaranes)
  protected
    procedure BeforeInsert(Sender: TDADataTable); override;
  end;

implementation

{ TBizAgentesObjetivosAlbaranes }

uses
  DB;

procedure TBizAgentesObjetivosAlbaranes.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_ALB, TBizAgentesObjetivosAlbaranes);

end.