Procédure de synchronisation de paquet (MM)

Après synchronisation du modèle relationnel de l'application le framework exécute une procédure de synchronisation

procedure TRegister<Nom_du_paquet>.Synchronize;

pour chaque paquet.

Tip : Le code de ces procédures doit être exécutable plusieurs fois, si vous créez des objets assurez vous avant qu'ils n'existent pas déjà.

Exemple

procedure TRegisterMyPackage.Synchronize; 
begin
var
  vContexte   :  TContextePoids;
begin
  ClassManager.BeginTran;
  try
    vContexte := ClassManager.FindSingleton('TContextePoids');
    if not Assigned(vContexte) then
    begin
      vContexte := ClassManager.CreateInstance('TContextePoids');
      vContexte.Caption := 'ContextePoids';
    end;

    ....
 
    ClassManager.Commit;
  except
    ClassManager.RollBack;
  end;
end;

Voir aussi :

• Procédure d'initialisation de paquet

— ModelManager_(code) — Développement DSM —