Newsgroup: it.comp.appl.access
Titolo: Stampa codici a barre da Access: e' possibile ?

Ciao a tutti,
un cliente ha la necessita' di stampare dei codici a barre relativi ai suoi
prodotti gia' codificati dei numeri nel database.
Quali sono i passi da seguire per integrare un sistema di codici a barre EAN
compatibile (a quanto mi par di capire) ?
Licenze dei font da acquistare ?
Codifica personale ?
Stampa ? Sulla stampante normale va bene ?
Grazie a chiunque sapra' darmi qualche riferimento per capire il
procedimento da seguire ...

"Fabio" <fa...@nospam.xx> ha scritto nel messaggio
news:MHQv8.3392$8D3....@news1.tin.it...

io ho risolto così:
1) ho acquistato un OCX della Mabry software che mi permette di avere il
disegno di quasi tutti i Codici a Barre (CB)  nei vari formati.
2) l'ho posizionato nelle maschere o reports dove mi serviva.
3) l'ho settato sul tipo di codice (EAN o altro [io ne ho scelto uno solo!
per tutta l'applicazione])e ..
4) lui mi MOSTRA la giusta sequenza di barre e spazi.
la lettura non è un problema, poichè le 'pistole' o i rilevatori sono a
tutti gli effetti come la tastiera. Mandano la sequenza di caratteri come se
fosse digitata in quel momento.
la stampa è scontata su inkJet o laser. sulle stampanti ad impatto penso che
se ti stampano i report di Access allora non ti dovrebbero dare problemi.
van

 io ho risolto cosě:
Grazie per le info,
ancora non mi e' chiaro un passaggio:
il problema e' che i clienti a cui vado a fornire il mio codice a barre
dovranno poter risalire a me, quindi deve esserci una parte del codice che
identifica me e solo me...
Ora, mi par di capire che la codifica EAN sia quella giusta allo scopo:
2 cifre indicano la nazione    (da 80 e 83 x l'italia sembra, ma quale
usare?)
5 cifre identificano il produttore    (questo come lo creo !?)
5 il codice prodotto  (se ho prodotti con codici > di 5 cifre !?)
1 cifra di controllo (calcolabile con apposito algoritmo)
Quello che vorrei capire e' quindi:
1) E' questa la codifica corretta da usare per rispettare lo standard
Europeo ?
2) Devo e dove posso acquistare il codice produttore ?
3) Cosa succede se il mio codice prodotto ha piu' di 5 cifre ?
Grazie per ogni aiuto in merito!
Fabio

"Fabio" <fa...@nospam.xx> ha scritto nel messaggio

Se mi paghi 6000 euro ti mando i font.
Sib
--
qualita.assicurazione su 
www.cerrinet.it
Il newsgroup sulla Qualita'
PS se ti sembra caro puoi sempre cercarli su internet

"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:WHSv8.38059$vF6.1...@news2.tin.it...

a parte che di font barcode con tutti i caratteri rappresentati "a gratise"
non se ne trovano se no sarebbero degli inguaribili ottimisti quelli che
vendono i cd dei fonts a $750, il solo font non è sufficiente per generare
un barcode, il quale ha una propria struttura che varia secondo lo standard,
con carattere di inzio, fine e checksum per rilevare la corretta lettura da
parte della pistola, cosa pittosto complicata da generare con una funzione
anche per un programmatore esperto.
Esistono degli ocx che fanno già tutto il lavoro sporco, puoi guardare
questo
cbar 
www.compuart.it
, è facile facile da usare e ci sono tutti gli esempi
per access.
Credo inoltre che nella versione demo l' EAN sia completamente funzionante.
Ciao, Ale.

 Credo inoltre che nella versione demo l' EAN sia completamente
funzionante.
No, di solito il codice e' alterato.
Pochi minuti fa ho scritto questa funzione.
L'ho ricavata empiricamente osservando come vine generato il tredicesimo
carattere di controllo in un ean.
Potrebbe essere errata, ma provata a campione non ha fallito un colpo.
#####################################
Private Sub Testo0_AfterUpdate()
Dim i As Integer
Dim ctr As Integer
Dim V() As Integer
    ReDim V(Len(Me.Testo0))
    For i = 1 To Len(Me.Testo0)
        V(i) = Mid(Me.Testo0, i, 1)
    Next i
    For i = 1 To Len(Me.Testo0)
        If i / 2 = Int(i / 2) Then
            ctr = ctr - 3 * V(i)
        Else
            ctr = ctr - V(i)
        End If
    Next i
    Do While ctr < 0
        ctr = ctr + 10
    Loop
    Me.Testo2 = Me.Testo0 & ctr
  End Sub
####################################
Detto questo, trovato il font trovato tutto.
Sib

"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:BmVv8.4714$8D3.1...@news1.tin.it...

e' sbagliata
questa e' quella giusta:
Private Sub Testo0_AfterUpdate()
Dim i As Integer
Dim ctr As Integer
Dim V() As Integer
    ReDim V(Len(Me.Testo0))
     For i = 1 To Len(Me.Testo0)
         V(i) = Mid(Me.Testo0, i, 1)
     Next i
     For i = 1 To Len(Me.Testo0)
         If i / 2 = Int(i / 2) Then
             ctr = ctr + 3 * V(i)
         Else
             ctr = ctr + V(i)
         End If
     Next i
     ctr=ctr/10
     Me.Testo2 = Me.Testo0 & ctr
   End Sub
 ####################################
Saluti.

 Fabio
La codifica EAN é cambiata dal 1 gennaio 2002.
Comunque guarda qui:
http://www.indicod.it/info/documenti/strutturaEAN.pdf
http://www.indicod.it
http://www.codiceabarre.it/bcean.htm
Ho semplicemente cercato su virgilio con "codice a barre ean".
Ma poi, deve per forza essere EAN? Ci sono tanti altri tipi di codifica
che magari posso essere più adeguati e la cui "struttura de dati" può
essere definita da te.
Saluti,
Gilberto
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


HO TOPPATO :) Mi autobacchetto e faccio pubblica ammenda, e' giusta la tua
funzione , sono troppo a  memoria senza verificare...
Ciao, Ale.