Bar Code EAN13 Calcolato

Come utilizzare i campi. Differenze tra campi calcolati, testo, numero, multipli, contenitori.

Moderatore: Moderatori

Rispondi
Avatar utente
PIG-NAH
Messaggi: 2564
Iscritto il: martedì 7 agosto 2007, 2:00
Località: BIG BANG

Bar Code EAN13 Calcolato

Messaggio da PIG-NAH » lunedì 27 giugno 2016, 11:18

Subito sotto trovate il calcolo per generare il barcode in oggetto.
Serve un campo testo di nome Numero e il font Code EAN13.

If ( Lunghezza ( Numero ) ≠ 12 ; "Codice Errato" ; Consenti ( [ a1 = Sinistra ( Numero ; 1 ) ; a2 = Mezzo ( Numero ; 3 ; 1 ) ; a3 = Mezzo ( Numero ; 5 ; 1 ) ; a4 = Mezzo ( Numero ; 7 ; 1 ) ; a5 = Mezzo ( Numero ; 9 ; 1 ) ; a6 = Mezzo ( Numero ; 11 ; 1 ) ; b1 = Mezzo ( Numero ; 2 ; 1 ) ; b2 = Mezzo ( Numero ; 4 ; 1 ) ; b3 = Mezzo ( Numero ; 6 ; 1 ) ; b4 = Mezzo ( Numero ; 8 ; 1 ) ; b5 = Mezzo ( Numero ; 10 ; 1 ) ; b6 = Mezzo ( Numero ; 12 ; 1 ) ; k = a1+a2+a3+a4+a5+a6+3*(b1+b2+b3+b4+b5+b6 ) ; bc = Numero & Modulo ( 10-k ; 10 ) ; t1 = "0AKa¶1BLb¶2CMc¶3DNd¶4EOe¶5FPf¶6GQg¶7HRh¶8ISi¶9JTj¶" ; t2 = "0222222¶1223233¶2223323¶3223332¶4232233¶5233223¶6233322¶7232323¶8232332¶9233232" ; r1 = Sinistra ( bc ; 1 ) & Mezzo ( RicavaValore ( t1; 1 + Mezzo ( bc ; 2 ; 1 )) ; Mezzo ( RicavaValore ( t2; 1 + Sinistra ( bc ; 1 ) ) ; 2 ; 1 ) ; 1 ) & Mezzo ( RicavaValore ( t1; 1 + Mezzo ( bc ; 3 ; 1 )) ; Mezzo ( RicavaValore ( t2; 1 + Sinistra ( bc ; 1 ) ) ; 3 ; 1 ) ; 1 ) & Mezzo ( RicavaValore ( t1; 1 + Mezzo ( bc ; 4 ; 1 )) ; Mezzo ( RicavaValore ( t2; 1 + Sinistra ( bc ; 1 ) ) ; 4 ; 1 ) ; 1 ) & Mezzo ( RicavaValore ( t1; 1 + Mezzo ( bc ; 5 ; 1 )) ; Mezzo ( RicavaValore ( t2; 1 + Sinistra ( bc ; 1 ) ) ; 5 ; 1 ) ; 1 ) & Mezzo ( RicavaValore ( t1; 1 + Mezzo ( bc ; 6 ; 1 )) ; Mezzo ( RicavaValore ( t2; 1 + Sinistra ( bc ; 1 ) ) ; 6 ; 1 ) ; 1 ) & Mezzo ( RicavaValore ( t1; 1 + Mezzo ( bc ; 7 ; 1 )) ; Mezzo ( RicavaValore ( t2; 1 + Sinistra ( bc ; 1 ) ) ; 7 ; 1 ) ; 1 ) & "*" & Mezzo ( RicavaValore ( t1 ; 1 + Mezzo ( bc ; 8 ; 1 )) ; 4 ; 1 ) & Mezzo ( RicavaValore ( t1 ; 1 + Mezzo ( bc ; 9 ; 1 )) ; 4 ; 1 ) & Mezzo ( RicavaValore ( t1 ; 1 + Mezzo ( bc ; 10 ; 1 )) ; 4 ; 1 ) & Mezzo ( RicavaValore ( t1 ; 1 + Mezzo ( bc ; 11 ; 1 )) ; 4 ; 1 ) & Mezzo ( RicavaValore ( t1 ; 1 + Mezzo ( bc ; 12 ; 1 )) ; 4 ; 1 ) & Mezzo ( RicavaValore ( t1 ; 1 + Mezzo ( bc ; 13 ; 1 )) ; 4 ; 1 ) & "+" ] ; DimensioniTesto ( FontTesto ( r1 ; "Code EAN13" ) ; 48 ) ) )
FM8 ADV XP SP3

AleMosca100789
Messaggi: 54
Iscritto il: mercoledì 5 novembre 2014, 15:50

Re: Bar Code EAN13 Calcolato

Messaggio da AleMosca100789 » lunedì 11 luglio 2016, 9:34

ma il consenti cosa sarebbe?
inoltre non servono altri campi come a1, a2 ,a3 etc?
Alessandro - FM Server/Advanced/Go 16

Avatar utente
PIG-NAH
Messaggi: 2564
Iscritto il: martedì 7 agosto 2007, 2:00
Località: BIG BANG

Re: Bar Code EAN13 Calcolato

Messaggio da PIG-NAH » martedì 12 luglio 2016, 6:54

Consenti è il nome originale, ora si chiama Dichiara.
a1,a2, sono variabili della funzione Consenti o Dichiara.
FM8 ADV XP SP3

AleMosca100789
Messaggi: 54
Iscritto il: mercoledì 5 novembre 2014, 15:50

Re: Bar Code EAN13 Calcolato

Messaggio da AleMosca100789 » mercoledì 13 luglio 2016, 17:58

Ok grazie però purtroppo Focus di Bludata non mi riconosce il font EAN13 che ho scaricato :(
Alessandro - FM Server/Advanced/Go 16

Avatar utente
PIG-NAH
Messaggi: 2564
Iscritto il: martedì 7 agosto 2007, 2:00
Località: BIG BANG

Re: Bar Code EAN13 Calcolato

Messaggio da PIG-NAH » giovedì 14 luglio 2016, 6:09

Quel font li si scarica da internet aggratis.
Facilmente per focus ne serve uno a pago.
Comunque vada il bar code che stampi da filemaker con la mia funzione è leggibile da qualsiasi lettore di bar code.
FM8 ADV XP SP3

auloma
Messaggi: 103
Iscritto il: giovedì 2 marzo 2006, 1:00

Re: Bar Code EAN13 Calcolato

Messaggio da auloma » lunedì 4 novembre 2019, 15:17

Salve, per avere il calcolo del barcode ean8, come posso modificare lo script? Grazie.

Rispondi