AIDE Générer le matricule

Bonjour à vous avec votre aide j'ai une solution à 97 % je puis générer le matricule ou code soit 19A001 à 19A999, puis 19B1000, 19B001 à 19B999. Comme vous le constatez je stocke les datas dans une BD, pour me faciliter la tâche. Il peut être utile à développeur qui sera dans la même situation que moi et aux expérimentés d'améliorer. En attendant des améliorations, le sujet/discussion est considéré comme résolu

Code (Text):

PROCEDURE Gen_Matricule()
sNumEnreg est une chaîne
ChaineAlphabet est une chaîne="A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
nIndice est un entier = 1
TANTQUE HLitRecherchePremier(Avoir_Matricule,Date_Avoir,Date_Serveur(),hBlocageEcriture)=Faux
    // Si on n'a pas trouvé d'enreg, on l'ajoute
    SI HTrouve()=Faux ALORS
        Avoir_Matricule.Date_Avoir = Date_Serveur()
        Avoir_Matricule.NumAvoir = 0
        Avoir_Matricule.Lettre = ExtraitChaîne(ChaineAlphabet, nIndice, ",")
        SI PAS HAjoute(Avoir_Matricule) ALORS
            Erreur_trouvée("Erreur d'ajout des infos de code")
        FIN
    SINON
        // Enregistrement trouvé mais le blocage n'est pas possible
        SI HErreurBlocage() ALORS
            CONTINUER
        SINON
            // Autre erreur
            RENVOYER ""
        FIN
    FIN
FIN

// Lit le numéro de séquence, l'incrémente et met à jour le fichier
nNum est un entier = Avoir_Matricule.NumAvoir +1
SI nNum <= 999 ALORS
    Avoir_Matricule.NumAvoir++
SINON SI nNum > 999
    Car est une chaîne  = Caract(Asc(Majuscule(Avoir_Matricule.Lettre))+1)
    Avoir_Matricule.Lettre = Car
    Avoir_Matricule.NumAvoir = " "
FIN
SI HModifie(Avoir_Matricule)=Faux ALORS
    Erreur("Erreur de génération")
    RENVOYER 0
FIN
// Génère le numéro : Ex : 18A001
sNumEnreg= DateVersChaîne(Date_Serveur(),"AA")+Avoir_Matricule.Lettre+NumériqueVersChaîne(nNum,"03d")
RENVOYER sNumEnreg

 

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

Salut,

Comme je n'ai pas ta Base de données j'ai ressortir ta partie de code en enlevant les accès à ta base et le code ci dessous fonctionne bien
Donne comme résultat 19B001

Code (Text):

Date_Avoir est une chaîne = "19"
NumAvoir est un entier = 999
Lettre est une chaîne

sNumEnreg est une chaîne
ChaineAlphabet est une chaîne="A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
nIndice est un entier = 1

Lettre = ExtraitChaîne(ChaineAlphabet, nIndice, ",")
// Lit le numéro de séquence, l'incrémente et met à jour le fichier
nNum est un entier = NumAvoir +1
SI nNum <= 999 ALORS
    NumAvoir++
SINON SI nNum > 999
    Car est une chaîne  = Caract(Asc(Majuscule(Lettre))+1)
    Lettre = Car
    NumAvoir = "001"
FIN

// Génère le numéro : Ex : 18A001
sNumEnreg= Date_Avoir+Lettre+NumériqueVersChaîne(NumAvoir,"03d")

 

Je n'ai pas ta Base de données mais essaie le code ci-dessous

Code (Text):

// Lit le numéro de séquence, l'incrémente et met à jour le fichier
nNum est un entier = Avoir_Matricule.NumAvoir +1
SI nNum <= 999 ALORS
    Avoir_Matricule.NumAvoir++
SINON SI nNum > 999
    Car est une chaîne  = Caract(Asc(Majuscule(Avoir_Matricule.Lettre))+1)
    Avoir_Matricule.Lettre = Car
    Avoir_Matricule.NumAvoir = "001"
FIN
SI HModifie(Avoir_Matricule)=Faux ALORS
    Erreur("Erreur de génération")
    RENVOYER 0
FIN
// Génère le numéro : Ex : 18A001
sNumEnreg= DateVersChaîne(Date_Serveur(),"AA")+Avoir_Matricule.Lettre+NumériqueVersChaîne(Avoir_Matricule.NumAvoir,"03d")

RENVOYER sNumEnreg

 

Cliquez pour agrandir...