Titolo: Codici a barre, conversioni tra Code 39 a Code 32 Farmacod
Categoria: Codice |
|
Ultimo Aggiornamento: 10/05/04 |
Non pochi lettori di codici a barre in commercio non gestiscono il Code 32 Farmacod perche' e' usato solo in Italia. In questi casi il Code 32 viene interpretato come Code 39 rendendo inutilizzabile la lettura. Il Code 32 in Italia e' largamente usato non solo per tutti i farmaci ma anche per molti prodotti cosmetici e d'igiene di uso corrente.
Questi due brevi method operano le conversioni:
` Conversion from CODE 39
` to Italian Farmaceutical Code
` for bar code reader
` whithout automatic conversion
` R.V. 29/07/2000
C_TEXT($1;$0)
C_REAL($result)
C_INTEGER($len;$base10;$base32)
$result:=0
$len:=
Length($1)
For ($X;1;$len)
$char:=($1<=($len-$X+1)>=)
$base32:=
Ascii($char)
$base10:=$base32-(48+(8*
Num($base32>65))+*
Num($base32>69)+*
Num($base32>73)+*
Num($base32>79))
$result:=$result+($base10*(32^($X-1)))
End for $0:=
String($result)
$0:=("0"*
Num(
Length($0)=8))+$0
` Conversion from CODE 39
` to CODE 32 Farmacod
` (Italian farmaceutical code)
` R.V. 29/07/2002
C_TEXT($1;$0)
C_REAL($value)
C_INTEGER($X;$codASCII)
C_LONGINT($base32)
$value:=
Num($1)
$0:=""
For ($X;1;6)
$base32:=$value-(
Int($value/32)*32)
$codASCII:=$base32+48+((8*
Num($base32>9))+
Num($base32>12)+
Num($base32>15)+
Num($base32>20))
$0:=
Char($codASCII)+$0
$value:=
Int($value/32)
End for
Inviato da: Roberto Vergani |
|
Visite: 22212 |
Se accedi con utente e password, puoi aggiungere dei commenti.