WDForge.org - Forums

Re: NUMERO AUTO

Sujet: Re: NUMERO AUTO
par R&B sur 4/1/2005 14:39:17

Note opérationnelle
Ce type de numérotation fait partie des paramètres de projet dynamiques (par oposition au statiques qui sont dans un .ini ou la Base de registre).

Pour gérer cela, nous avons mis en place un fichier HyperFile PARAM.FIC(#IDPARAM,#PA_LIBELLE,PA_VALEUR)

Ainsi pour un paramètre dont on connais le nom (CODEBA par exemple) on va aller bloquer l'enregistrement, l'incrémenter et écrire dans PARAM.FIC, en pensant à récupérer la nouvelle valeur. Ainsi si tout s'est bien passé, vous disposez de votre nouveau numéro unique (réseau).

ps : l'avantage de cette structure est que le nombre de paramètre peut être 'infinis' dans vos projets

Calcul de la clé
Pour faire B36001->B36002 on va prendre la chaine en partant du second paramètre, le transposer en numérique et lui ajouter un pou reconsituer la clé.

cCode est une chaine = "B36001"
cNouveau est une chaine = AddOne(ccode)
info(cNouveau) // => "B36002"

PROCEDURE ADDONE(pcCode)
SI Taille(pcCode)=1 ALORS RENVOYER pccode+"00001"
nVal est un entier = val(pcCode[[2 A]])
RENVOYER pccode+NumériqueVersChaine(nval+1,"05d")