Home Page
Articoli
Tips & Tricks
News
Forum
Archivio Forum
Blogs
Sondaggi
Rss
Video
Utenti
Chi Siamo
Contattaci
Username:
Password:
Login
Registrati ora!
Recupera Password
Home Page
Stanze Forum
Crystal Reports e reportistica
Stampa dei codici a barre con crystal report
lunedì 04 ottobre 2010 - 11.51
Elenco Threads
Stanze Forum
Aggiungi ai Preferiti
Cerca nel forum
zm
Profilo
| Newbie
41
messaggi | Data Invio:
lun 4 ott 2010 - 11:51
Buongiorno,
ho la necessità di stampare un documento crystal report inserendo il codice a barre che identifica univocamente il documento.
Leggendo l'help del prodotto viene detto che è necessario acquistare le DLL di Azalea.
Io ho scaricato dei FONT BAR-CODE (Code 128, EAN 13 etc..) e vengonno stampati correttamente. Il problema è che non vengono letti dai lettori bar-code che ho provato.
Qualcuno sa darmi delle delucidazioni? Vanno comprati o non questi oggetti AZALEA? O si possono usare banali font che convertono il testo in bar- code?
grazie per l'aiuto.
tdi160cv
Profilo
| Newbie
2
messaggi | Data Invio:
lun 4 ott 2010 - 14:17
crea una formula cosi' e vedrai che va senza problemi in conversione ean128 :
dim lun as number
dim cont as number
dim res as string
dim start as number
dim stop as number
dim fontstart as number
dim fontstop as number
dim check as number
dim checkfont as number
dim current as string
dim code128value as number
dim valore as string
dim fontchar as number
valore=cstr({Data.Data_Text})
start =104
stop=106
fontstart=154
fontstop=156
res=chr(fontstart)
check=start
lun=len(valore)
cont=1
while lun>0
current=mid(valore,cont,1)
code128value=asc(current)-32
if code128value=0 then
fontchar=128
end if
if code128value>0 and code128value<=94 then
fontchar=code128value+32
end if
if code128value>94 then
fontchar=code128value+50
end if
res=res+chr(fontchar)
check=check+(code128value*cont)
lun=lun-1
cont=cont+1
wend
check=check mod 103
if check=0 then
checkfont=128
end if
if check>0 and check<=94 then
checkfont=check+32
end if
if check>94 then
checkfont=check+50
end if
res=res+chr(checkfont)+chr(fontstop)
formula = res
dove ({Data.Data_Text}) non è altro che la variabile numerica da convertire.
Devi anche aggiungere ai font la codifica ean128
altro non saprei ... non adopero altri barcode.
freeteo
Profilo
| Guru
6.542
messaggi | Data Invio:
dom 17 ott 2010 - 17:17
Ciao,
io ricordo che in passato ho usato un font Free 3of9 (
http://www.squaregear.net/fonts/free3of9.shtml
) e alla fine dovevo mettere obbligatoriamente un "*" come terminatore della stringa, non è che sia qualche carattere da aggiungere alla fine anche nel tuo caso? Magari verifica nelle specifiche tecniche dei dispositivi se dicono qualcosa a riguardo
Ciao.
Matteo Raumer
[MCAD .net, MVP Visual C#]
http://blogs.dotnethell.it/freeteo
zm
Profilo
| Newbie
41
messaggi | Data Invio:
ven 18 feb 2011 - 11:47
Ciao,
grazie per la risposta, ma il mio problema resta. Ossia il codice a barre viene stampato ma non viene letto da lettore.
Temo che vadano acquistati gli oggetti AZALEA.
tdi160cv
Profilo
| Newbie
2
messaggi | Data Invio:
ven 18 feb 2011 - 12:26
... be pero' devi anche verificare che il lettore sia configurato per leggere l'ean128.
Per esempio una dragon datalogic di default non li legge , va configurato con l'apposito software o attraverso dei barcode di configurazione.
che scanner adoperi ?
ciao
zm
Profilo
| Newbie
41
messaggi | Data Invio:
ven 18 feb 2011 - 13:17
Il lettore di Bar code è un Cipher LAB Serie 8000
Torna su
Stanze Forum
Elenco Threads
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?
Dopo esserti registrato potrai chiedere
aiuto sul nostro
Forum
oppure aiutare gli altri
Consulta le
Stanze
disponibili.
Registrati ora !