FmPro.it FileMaker Forum

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 ) ) )

ma il consenti cosa sarebbe?
inoltre non servono altri campi come a1, a2 ,a3 etc?

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

Ok grazie però purtroppo Focus di Bludata non mi riconosce il font EAN13 che ho scaricato

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.

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