Héllo @Tous
Une question à 10 Francs :
- pourquoi ne pas mettre la rubrique des codes barres en "clé sans doublon" ?
Il suffirait ensuite de refaire un codebarre si on a un doublon à l'enregistrement de celui-ciCliquez pour agrandir...
-
Bonjour tout le monde ! Veillez consulter la Politique de forum pour comprendre nos règles, Merci a vous !Rejeter la notice
TUTO Générer des codes EAN13
Discussion dans 'Windev' créé par suenodesign, Fev 9, 2018.
Tags:
mais le problème qui reste c'est ou va tu trouvé les frans vu qu'on a passé en euro
Pour minimiser au maximum le risque d'avoir des codes à barres en double voilà ce que je fais :
Important :Code (Windev):MoiMême..Etat=Grisé // On grise le bouton pour éviter le double clique
sHeure est une chaîne=Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(),"HHMMSSCC")
sCB est une chaîne=Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
[[3 A 4]]+Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(),Vrai),"03d")+sHeure[[1 ABonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(sHeure)-1]]
sEAN13_Auto est une chaîne=sCB+My_Modulo10(sCB)
MoiMême..Etat=Actif // On réactive le bouton
Champ_CodeBarres1=sCB
sEAN13_Auto est le code à barres à sauvegarder sur la base
------------------------------------------------------------------------------------------------------------------------------
DateVersChaîne (FONCTION)
Formate une date au format spécifié.
• ListeAjoute date spécifiée au format spécifié.
• WinDevWebDev - Code ServeurWinDev MobileEtats ET RequêtesWindows MobileWindows Store appsiPhone/iPadPHP la date heure spécifiée au format spécifié.
Ex : DateVersChaîne(DateSys(),"AA") OU DateSys[[3 A 4]] --> "19"
DateVersEntier (FONCTION)
Transforme une date en un entier. Cet entier correspond :
• soit au nombre de jours écoulés entre le 1er janvier 1800 ET la date spécifiée.
• soit au nombre de jours écoulés entre le 1er janvier de la date spécifiée ET la date spécifiée.
Ex : DateVersEntier(DateSys(),Vrai) --> "20190121" >> "21" (21ème jour de l'année)
HeureVersChaîne (FONCTION)
Formate l'heure passée en paramètre SELON le format spécifié.
Ex : HeureVersChaîne(HeureSys(),"HHMMSSCC") --> Nous sert l'heure système au centième près
------------------------------------------------------------------------------------------------------------------------------
L'adjonction de ces trois fonctions nous permet d'obtenir une chaîne A 12 caractères A laquelle on Ajoute le chiffre de contrôle de l'EAN13 ET le tour est joué.
Une autre astuce :
Je me suffit de générer un seul code [sCB] à douze chiffres et j'initie une boucle pour parcourir toutes les lignes de la table des produits et j'incrémente ce [sCB] à chaque itération tout en lui ajoutant le chiffre de contrôle par la fonction My_Modulo10(sCB)
Comme ça je n'ai pas à faire le traitement sur la date est l'heure pour chaque produit.Code (Windev):sHeure est une chaîne=Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(),"HHMMSSCC")
sCB est une chaîne=Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
[[3 A 4]]+Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(),Vrai),"03d")+sHeure[[1 ABonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
(sHeure)-1]]
sEAN13_Auto est une chaîne=sCB+My_Modulo10(sCB)
nPRD_EAN est un entier=sCB
POUR i=1 _A_ Table1..Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
nPRD_EAN+=i
sEAN13_Auto=nPRD_EAN+My_Modulo10(nPRD_EAN)
FIN
N.B :
- On parle là de la génération des codes à barres de type EAN13
- Le code fourni est fait en WD20 pour faire profiter tout le monde.
Remarque :
Dans ton code ici :Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!
Tu fais appel aux fonctions Val et Hasard qui présentent tous deux des imperfections qui risquent de fausser les résultats.Cliquez pour agrandir...
Bonjour tout le monde ..
dans le cas ou le code a barre n'existe pas dans la base il faut ajouter un message erreur ou info ..