Up ! Com Register

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

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


   Referencer "Referencer" : Booleen;

   Presentation "Presentation" : Booleen;

   Detail "Detail" : Booleen;




Principal

/*******/

Variable

/******/

   I : Entier;

   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,"Composant")+Caractere(I,"&&&#");

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

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

         ReferencerComposantCom(AccesComposant);

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

         DereferencerComposantCom(AccesComposant);
      
      Fin Si

      I++;
      
   Fin TantQue

   

   Si Detail Alors
   
      Ecran.Ecrire(");
   
   Fin Si
   Si Referencer Alors
   
      Ecran.Ecrire(Message(Global,"EnregistrementAvecSuccesCom"));
   
   Sinon
   
      Ecran.Ecrire(Message(Global,"SuppressionAvecSuccesCom"));
   
   Fin Si
   
TraiterException

   Defaut
   
      Ecran.Ecrire(Exception.MessageErreur);
      Si Detail Alors
      
         Ecran.Ecrire(");
      
      Fin Si

      Si Referencer Alors
      
         Ecran.Ecrire(Message(Global,"EnregistrementEnEchecCom"));
      
      Sinon
      
         Ecran.Ecrire(Message(Global,"SuppressionEnEchecCom"));
      
      Fin Si

      Retourner 1;
   
   Fin Defaut
   
Fin AttraperException



Retourner 0;

Fin Principal