Thank borislav and Hilmar

This is a code for taranform Code bare

http://grandzebu.net/index.php?page=/informatique/codbar/codbar.htm
Code251 Function

your code seems to function ....

bernhart

>>Hi all,
>>
>>This code is for visual Basic
>>
>>

>>chaine$ = chaine$ & (10 - checksum& Mod 10) Mod 10
>>

>>
>>If it is possille , i want the same code for Visual Foxpro 9 Pack 1
>>
>>
>>Thank in advance
>>
>>bernhart
>
>Try:
>

>chaine = chaine + TRANSFORM((10 - checksum%10)%10)
>

>where chaine is a string and checksum is numeric,
>but to be more precise I need to view some more code :-)