Référencer des articles par des codes barreFermé

Question

Bonjour, 

jsui entrain de developper une application de gestion  de stock sous Delphi 7. en effet il s'agit de référencer chaque produit par un code barre au lieu de les référencer par un numéro automatique. Afin que l'application puisse lire chaqur produit a l'aide d'un lecteur de code à barre. j'aimerais bien que quelqun m'aide. j voudrais si possible un code source complet pour résoudre une foi de bon ce problème. Merci a tous les gars.

Configuration: Windows 7 / Internet Explorer 8.0

rafit jad kuldinger · Answer

pour la lecture des code barre ca se fait d office sous windows.. on branche un lecteur de code barre et cela marche. (via usb ou reseaux ).

donc la parti lecture : resolu


âpres il te faut crée une basse de donner qui enregistre ses code barres.

ton logiciel doit : avoir un champ de saisi  (ou le code barre sera entrée par la lecture)
le contenu de ce champ de saisi enregistré dans une basse de donner. basse de donner que ton logiciel va lire pour affiche les info du produit.

charlylimaalpha · Answer

Bonjour
Voici un morceau de code (vba) qui génère une chaine de caractère à partir d'une suite de 13 chiffres (mieux en texte pour faire apparaitre les 0 devant)
Cette chaine de caractére éditée avec une police type Ean13ltf donne le code barre qui "passe" réèllement au scanner.
Remarque utile, il y a un contrôle sur la clé...mais celui-ci ne garanti pas l'erreur de saisie dans les 13 chiffres dés le départ

Public Function Transbar(Ean13 As String) As String
If Len(Ean13) < 12 Or Len(Ean13) > 13 Then Exit Function
Dim i As Integer, Séquence As String * 6, Clé As Integer
Dim Facteur As Integer, Total As Integer
'Caractère de début + séparateur
Select Case Mid(Ean13, 1, 1)
Case 0
Transbar = "#:"
Séquence = "000000"
Case 1
Transbar = "$:"
Séquence = "001011"
Case 2
Transbar = "%:"
Séquence = "001101"
Case 3
Transbar = "&:"
Séquence = "001110"
Case 4
Transbar = "(:"
Séquence = "010011"
Case 5
Transbar = "):"
Séquence = "011001"
Case 6
Transbar = "*:"
Séquence = "011100"
Case 7
Transbar = "+:"
Séquence = "010101"
Case 8
Transbar = ",:"
Séquence = "010110"
Case 9
Transbar = "-:"
Séquence = "011010"
Case Else
MsgBox "Ereur de la macro de transcription EAN13", vbOKOnly + vbCritical, "Erreur"
End Select
'Transcription de la première partie du code
For i = 2 To 7
Select Case Mid(Séquence, i - 1, 1)
Case 0
Select Case Mid(Ean13, i, 1)
Case 0
Transbar = Transbar & "A"
Case 1
Transbar = Transbar & "B"
Case 2
Transbar = Transbar & "C"
Case 3
Transbar = Transbar & "D"
Case 4
Transbar = Transbar & "E"
Case 5
Transbar = Transbar & "F"
Case 6
Transbar = Transbar & "G"
Case 7
Transbar = Transbar & "H"
Case 8
Transbar = Transbar & "I"
Case 9
Transbar = Transbar & "J"
End Select
Case 1
Select Case Mid(Ean13, i, 1)
Case 0
Transbar = Transbar & "K"
Case 1
Transbar = Transbar & "L"
Case 2
Transbar = Transbar & "M"
Case 3
Transbar = Transbar & "N"
Case 4
Transbar = Transbar & "O"
Case 5
Transbar = Transbar & "P"
Case 6
Transbar = Transbar & "Q"
Case 7
Transbar = Transbar & "R"
Case 8
Transbar = Transbar & "S"
Case 9
Transbar = Transbar & "T"
End Select
Case Else
MsgBox "Erreur de Séquence", vbCritical + vbOKOnly, "Erreur"
End Select
Next
'Caractère de séparation des deux parties
Transbar = Transbar & "="
For i = 8 To 12
Select Case Mid(Ean13, i, 1)
Case 0
Transbar = Transbar & "U"
Case 1
Transbar = Transbar & "V"
Case 2
Transbar = Transbar & "W"
Case 3
Transbar = Transbar & "X"
Case 4
Transbar = Transbar & "Y"
Case 5
Transbar = Transbar & "Z"
Case 6
Transbar = Transbar & "["
Case 7
Transbar = Transbar & "\"
Case 8
Transbar = Transbar & "]"
Case 9
Transbar = Transbar & "^"
End Select
Next
'Vérification de la clé
If Len(Ean13) < 13 Then Ean13 = String(13 - Len(Ean13), "0") & Ean13
Ean13 = Left(Trim(Ean13), 12)
Facteur = 3
For i = Len(Ean13) To 1 Step -1
Total = Total + Mid(Ean13, i, 1) * Facteur
Facteur = 4 - Facteur
Next i
Clé = 10 - IIf(Total Mod 10 <> 0, Total Mod 10, 10)
Select Case Clé
Case 0
Transbar = Transbar & "U:"
Case 1
Transbar = Transbar & "V:"
Case 2
Transbar = Transbar & "W:"
Case 3
Transbar = Transbar & "X:"
Case 4
Transbar = Transbar & "Y:"
Case 5
Transbar = Transbar & "Z:"
Case 6
Transbar = Transbar & "[:"
Case 7
Transbar = Transbar & "\:"
Case 8
Transbar = Transbar & "]:"
Case 9
Transbar = Transbar & "^:"
End Select
End Function

bruns42 · Answer

Je suis interesser par votre projet je suis de la rochelle

Référencer des articles par des codes barre

3 réponses

Discussions similaires

Newsletters