Procédure d'initialisation de paquet (MM)

Après chargement du modèle de l'application, le framework exécute une procédure d'initialisation pour chaque paquet métier une procédure d'initialisation :

<source lang='delphi'>procedure TRegister<Nom_du_paquet>.Initialize;</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.Initialize; 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 de synchronisation de paquet

{{#if:ModelManager_(code)|

{{#if:ModelManager_(code)|— ModelManager_(code) |}} — Développement DSM —

|

{{#if:|— [[{{{1}}}]] |}} — Développement DSM —

}}