Bonjour,
Le modérateur a dans un premier temps déplacer ce sujet (à juste titre) vers le forum Windev, pour autant, ayant fini par trouver la solution, j'ai souhaité remercier ceux m'ayant aider et ceux qui auraient le même problème que moi, donc voici la solution que je viens de mettre sur le forum Windev
Bon, j'ai résolu mon problème de génération de code barre.
Vu que j'ai mis 15 jours à y arriver, et que j'ai dû lire 2 bouquins de SQLPro pour se faire, j'ai décidé de mettre le code concerné à disposition de ceux pour qui le problème pourrait se poser
Afin de bien interpréter ce code, il est destiné à une application de gestion de prêt à porter qui gère entre autre des modèles, à la couleur et à la taille
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27 sVariable_EAN est une chaîne préfixe_AEN est une chaîne nouveauCode_AEN est une chaîne Cle est un entier Total est un entier Requete est une chaîne="SELECT ART_UVC FROM CODE_AEN " SI SQLExec(Requete, "REQ1") ALORS SI SQLAvance("REQ1")=0 ALORS sVariable_EAN=SQLLitCol("REQ1", 1) préfixe_AEN=Gauche(variable,12) préfixe_AEN=Val(préfixe_AEN)+1 FIN FIN //calcul du caractère de contrôle nouveauCode_AEN=préfixe_AEN + Cle POUR ii = 1 A Taille(préfixe_AEN) //Code est les 12 premiers caractères du code barre SI EstPair(ii) ALORS Total+=Val(préfixe_AEN[[ii]])*3 SINON Total+=Val(préfixe_AEN[[ii]]) FIN FIN Cle = ((PartieEntière(Total/10)+1)*10)-Total SI Cle = 10 ALORS Cle = 0 FIN
Développer sur:
WINDOWS XP
WINDEV14
SQL SERVER 2005
Et un grand merci à ceux qui m'ont apportés leurs lumières m'ayant permis de créer la fiche article de mon application.
Raptor92
Partager