Cette fonction permet de créer des compteurs dans la table superviseur APLCOM et de stocker leur valeur. Chaque compteur peut être indicé. Chaque compteur est disponible dans une variable de classe [C] de même nom. Ce sont ces variables de classe [C] qui devront être utilisées dans les traitements pour l'attribution de numéros séquentiels ( numéro de traitement d'import généré, par exemple). Les caractéristiques de ces variables de classe [C] sont les suivantes :

  • variable de même nom que le compteur
  • variable pouvant être indicée 
  • variable disponible dès l'ouverture d'une session ; Il n'y a pas lieu de la déclarer dans les traitements.
  • variable commune à toute session.
  • variable alimentée et alimentant automatiquement la table APLCOM par le moteur.

Pré-requis

SEEREFERTTO Reportez-vous à la documentation de Mise en oeuvre

Gestion de l'écran

Ecran de saisie

Liste des compteurs

Code

Utilisation

 EXPORT

 Numéro d' exports

 INTERLOC

 Codification automatique des interlocuteurs

 NUMFIL

 Numéro de fichier bancaire

 NUMIMP

 Numéro de traitement d'import / export

 NUMTEX

 Numéro de texte

Méthode de développement

Toute variable de classe [C] doit être modifiée dans une transaction de saisie. De plus, on effectue un verrouillage symbole sur cette variable avant la modification de la variable de classe [C]. Il n'est pas nécessaire de déclarer la table APLCOM dans les traitements ; le moteur se charge de lire cette table pour alimenter les variables de classe [C] ainsi que de la mettre à jour automatiquement dès le changement de valeur de la classe [C].

Exemple : attribution d'un chrono pour la constitution du nom du traitement d'import ou export.

#-----------------#
$TR_NUMIMP
Trbegin APLCOM
 Gosub MAJ_NUMIMP
Commit
Return

#-----------------#
$MAJ_NUMIMP
Lock NUMIMP
If fstat=0
 NUMIMP = [C]NUMIMP
 [C]NUMIMP += 1
 If fstat : ER = 2 : Endif
Else
 ER = 1
Endif
Return

 

Messages d'erreur

Il n'y a pas de message d'erreur autre que les messages d'erreur génériques.

Tables mises en oeuvre

SEEREFERTTO Reportez-vous à la documentation de Mise en oeuvre