Up ! Corba Register

Ceci est le fichier source du programme exécutable Up ! Corba Register.

Source Composant "Up ! Corba Register" Version 4.0.0; ImporterModule UpsCrb(<UpsCrb.upi>, ImporterDefinitions); Parametre /*******/ Prive : /*******/


   Referencer "Referencer" : Booleen;

   Presentation "Presentation" : Booleen;

   Detail "Detail" : Booleen;




Principal

/*******/

Variable

/******/

   I : Entier;

   RepositoryId : Nul Ou Caractere;

   AccesComposant : Nul Ou Caractere;

   NomDuParametre : Caractere;



Debut

Si Presentation Alors

   Ecran.Ecrire(Message(Global,"Presentation1UpsCmr"));

   Ecran.Ecrire(Message(Global,"Presentation2UpsCmr",Caractere(DateSysteme()))+"\n");

Fin Si



AttraperException

   I=1;
   TantQue Vrai Faire
   
      NomDuParametre=Traduire(Global,SectionLibelleParametreModule,"Identifiant")+Caractere(I,"&&&#");

      Si Non(LireParametre(Global,NomDuParametre,"UpsCrr",RepositoryId)) Alors
      
         Arreter;
      
      Fin Si

      NomDuParametre=Traduire(Global,SectionLibelleParametreModule,"Composant")+Caractere(I,"&&&#");

      Si Non(LireParametre(Global,NomDuParametre,"UpsCrr",AccesComposant)) Alors
      
         Arreter;
      
      Fin Si

      Si Referencer Alors
      
         Si Detail Alors
         
            Ecran.Ecrire(Message(Global,"EnregistrementComposantCorba",AccesComposant));
         
         Fin Si

         ReferencerComposantCorba(RepositoryId,AccesComposant);
      
      Sinon
      
         Si Detail Alors
         
            Ecran.Ecrire(Message(Global,"SuppressionComposantCorba",AccesComposant));
         
         Fin Si

         DereferencerComposantCorba(RepositoryId,AccesComposant);
      
      Fin Si

      I++;
   
   Fin TantQue
   

   Si Detail Alors
   
      Ecran.Ecrire(");
   
   Fin Si

   Si Referencer Alors
   
      Ecran.Ecrire(Message(Global,"EnregistrementAvecSuccesCorba"));
   
   Sinon
   
      Ecran.Ecrire(Message(Global,"SuppressionAvecSuccesCorba"));
   
   Fin Si
   
TraiterException

   Defaut
   
      Ecran.Ecrire(Exception.MessageErreur);

      Si Detail Alors
      
         Ecran.Ecrire(");
      
      Fin Si

      Si Referencer Alors
      
         Ecran.Ecrire(Message(Global,"EnregistrementEnEchecCorba"));
      
      Sinon
      
         Ecran.Ecrire(Message(Global,"SuppressionEnEchecCorba"));
      
      Fin Si

      Retourner 1;
   
   Fin Defaut

Fin AttraperException



Retourner 0;

Fin Principal