PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 25 → WX - Como posso exibir o código de barras no meu aplicativo Android?
WX - Como posso exibir o código de barras no meu aplicativo Android?
Iniciado por BOLLER, 12,ago. 2017 08:15 - 1 respuesta
Miembro registrado
3.651 mensajes
Popularité : +175 (223 votes)
Publicado el 12,agosto 2017 - 08:15
Como posso exibir o código de barras no meu aplicativo Android?

Sim claro!

Aqui é a chamada de procedimento GenereImageCodeEAN13:
GenereImageCodeEAN13(sCodeArticle,IMG_Vignette..NomComplet)


E o procedimento:
Procedure GenereImageCodeEAN13(sCodeArt est une chaîne, sChampImage est une chaîne)

i est un entier
nX1 est un entier = 10
nY1 est un entier = 10
nX2 est un entier = 10
nY2 est une entier = 70
nPas est un entier = 2

taStruct est un tableau associatif de chaînes

dDébutDessin({sChampImage,indChamp})

ta_A[0] = "0001101"
ta_A[1] = "0011001"
ta_A[2] = "0010011"
ta_A[3] = "0111101"
ta_A[4] = "0100011"
ta_A[5] = "0110001"
ta_A[6] = "0101111"
ta_A[7] = "0111011"
ta_A[8] = "0110111"
ta_A[9] = "0001011"

ta_B[0] = "0100111"
ta_B[1] = "0110011"
ta_B[2] = "0011011"
ta_B[3] = "0100001"
ta_B[4] = "0011101"
ta_B[5] = "0111001"
ta_B[6] = "0000101"
ta_B[7] = "0010001"
ta_B[8] = "0001001"
ta_B[9] = "0010111"

ta_C[0] = "1110010"
ta_C[1] = "1100110"
ta_C[2] = "1101100"
ta_C[3] = "1000010"
ta_C[4] = "1011100"
ta_C[5] = "1001110"
ta_C[6] = "1010000"
ta_C[7] = "1000100"
ta_C[8] = "1001000"
ta_C[9] = "1110100"

taStruct[0] = "AAAAAA"
taStruct[1] = "AABABB"
taStruct[2] = "AABBAB"
taStruct[3] = "AABBBA"
taStruct[4] = "ABAABB"
taStruct[5] = "ABBAAB"
taStruct[6] = "ABBBAA"
taStruct[7] = "ABABAB"
taStruct[8] = "ABABBA"
taStruct[9] = "ABBABA"

sVal est une chaîne
nChiffre est un entier
nDebut est un entier

nDebut = sCodeArt[[1]]
sStruct est une chaîne

sStruct = taStruct[nDebut]
sTableau est une chaîne

dTexte(nX1 -10 ,nY2 ,nDebut,Noir)

dLigne(nX1,nY1,nX2,nY2+10,Noir,nPas)
nX1 += nPas
nX2 += nPas
dLigne(nX1,nY1,nX2,nY2+10,Blanc,nPas)
nX1 += nPas
nX2 += nPas
dLigne(nX1,nY1,nX2,nY2+10,Noir,nPas)
nX1 += nPas
nX2 += nPas


POUR i = 2 A 7
nChiffre = sCodeArt[[i]]
dTexte(nX1,nY2 ,nChiffre,Noir)
sTableau = "ta_" + sStruct[[i-1]]
sVal = {sTableau,indVariable}[nChiffre]
POUR n = 1 A 7
SI sVal[[n]] = "1" ALORS
dLigne(nX1,nY1,nX2,nY2,Noir,nPas)
nX1 += nPas
nX2 += nPas
SINON
dLigne(nX1,nY1,nX2,nY2,Blanc,nPas)
nX1 += nPas
nX2 += nPas
FIN
FIN

FIN

dLigne(nX1,nY1,nX2,nY2+10,Blanc,nPas)
nX1 += nPas
nX2 += nPas
dLigne(nX1,nY1,nX2,nY2+10,Noir,nPas)
nX1 += nPas
nX2 += nPas
dLigne(nX1,nY1,nX2,nY2+10,Blanc,nPas)
nX1 += nPas
nX2 += nPas
dLigne(nX1,nY1,nX2,nY2+10,Noir,nPas)
nX1 += nPas
nX2 += nPas
dLigne(nX1,nY1,nX2,nY2+10,Blanc,nPas)
nX1 += nPas
nX2 += nPas

POUR i = 8 A 13
nChiffre = sCodeArt[[i]]
dTexte(nX1,nY2 ,nChiffre,Noir)
sVal = ta_C[nChiffre]
POUR n = 1 A 7
SI sVal[[n]] = "1" ALORS
dLigne(nX1,nY1,nX2,nY2,Noir,nPas)
nX1 += nPas
nX2 += nPas
SINON
dLigne(nX1,nY1,nX2,nY2,Blanc,nPas)
nX1 += nPas
nX2 += nPas
FIN
FIN

FIN

dLigne(nX1,nY1,nX2,nY2+10,Blanc,nPas)
nX1 += nPas
nX2 += nPas
dLigne(nX1,nY1,nX2,nY2+10,Noir,nPas)
nX1 += nPas
nX2 += nPas
dLigne(nX1,nY1,nX2,nY2+10,Blanc,nPas)
nX1 += nPas
nX2 += nPas
dLigne(nX1,nY1,nX2,nY2+10,Noir,nPas)


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Miembro registrado
3.651 mensajes
Popularité : +175 (223 votes)
Publicado el 12,agosto 2017 - 08:16
Teste também:

MonEANCode est un CodeBarres
MonEANCode..TypeContenu = cbTypeTexte
MonEANCode..TypeCodeBarres = CB_EAN13
MonEANCode..Contenu = "978020137962"
// Affectation à un champ Code-barres
CBA_SansNom1 = MonEANCode


IMG_SansNom1 = dSauveImagePNG(CBA_SansNom1,enMémoire)


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/