Exemple d'objet SAISIE

Objet SAISIE : MASAISIE "Ma saisie des clients"
Declaration
  ECRAN : CLIENT
  MODES : "mMCA"
          
  //Deuxième contexte sur table CLIENT pour contrôle homonymie
  TABLE : CLIENT->CLI2
  VARIABLES: Chaine anciencode
FinDeclaration

Methode DEBUT_MODIFICATION
   AppliquerDefaut
  anciencode=CODE
FinMethode

Methode VALIDATION
  Si CODE="" Alors
      BoiteMessage "Le code client est obligatoire"  
      Controler "CODE"
      Quitter
   FinSi
   //Si le code à changé, on contrôle l'homonymie
   Si CODE<>anciencode Ou Mode="C" Alors
      Si Lire(CLI2.CODE, EgalA, CODE) Alors
         BoiteMessage "Le code  "+CODE+" existe déjà"
         Controler "CODE"
         Quitter
      FinSi
   FinSi
   Si Mode="M" Alors
      DATE_MODIFICATION =Date
      //Modifier CLIENT  //interdit ici
   Sinon
      DATE_CREATION =Date
      //Ecrire CLIENT  //interdit ici
   FinSi
   AppliquerDefaut
FinMethode

Methode SUPPRESSION
   //Si le client a été mouvementé, on refuse sa suppression
   Si VENTES>0 Alors
      Controler
   FinSi
FinMethode

FinObjet