Voir la source de 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 pour chaque paquet métier.

'''Si la base de données est en mode partage (multi sociétés)'''

La procédure de synchronisation execute les méthodes de synchronisation de chaque domaine métier :

<source lang='delphi'>procedure TRegister<Nom_du_paquet>.Code_du_domaine;</source>

'''Si la base de données n'est pas en mode partage'''

La procédure de synchronisation exécute la méthode :

<source lang='delphi'>procedure TRegister<Nom_du_paquet>.Synchronize;</source>


{{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
<source lang='delphi'>
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;
</source>

Voir aussi :

* [[Procédure d'initialisation de paquet (MM)|Procédure d'initialisation de paquet]]

{{Footer|ModelManager_(code)}}
[[category:ModelManager]]
[[category:Initialisation d'une base de données]]