Sviluppo4d.it
Sito indipendente di informazioni tecniche per sviluppatori 4th Dimension italiani  

Sviluppatori 4D

Utility 4D

Risorse 4D



4d logo
Naviga: Prev Next

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: 21881

Se accedi con utente e password, puoi aggiungere dei commenti.


Accesso

User:
Pass: Accedi

Cerca

Se non trovi le informazioni che cerchi scrivi a aiuto@sviluppo4d.it

4D Principali

4D Discussioni

Faq random


Crediti

Dominio registrato da ZetaNet
Sito realizzato da Nexus srl
4D SQL 11.9.0 offerto da 4D & Italsoftware
Icone di FAMFAMFAM
Moderato da Umberto Migliore
303 utenti registrati

Pagina servita il 28/03/24 alle 13:48:37 Valid HTML 4.01! Valid CSS!

Mutuo Facile, iDigitalScout, iDigitalTags e altre app di Nexid srl per iPhone e iPad

Cidroid, distributore italiano lettori barcode per IOS Apple iPhone, iPod, iPad