Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://www.hmgforum.com/
El codigo susminstrado para comprobar los digitos es preciso mas las rutina de comprobacion de digito ya tiene como para empezar, en mi caso la impresora fiscal que utilizamos HASAR 715F imprime mediante esos codigo de impresion(Fuente de letra) y es reconocida por los distintos lectores de barra, tanto de mano como de mesa.mol wrote:Printing EAN-13 is more complicated than use only proper font.
You need do read more about it, because first 6 digits could appear in A or B variant.
Code: Select all
aadd( aTab1CodBar, '-AAAAAA' )
aadd( aTab1CodBar, '-AABABB' )
aadd( aTab1CodBar, '-AABBAB' )
aadd( aTab1CodBar, '-AABBBA' )
aadd( aTab1CodBar, '-ABAABB' )
aadd( aTab1CodBar, '-ABBAAB' )
aadd( aTab1CodBar, '-ABBBAA' )
aadd( aTab1CodBar, '-ABABAB' )
aadd( aTab1CodBar, '-ABABBA' )
aadd( aTab1CodBar, '-ABBABA' )Code: Select all
*---------------------------- /**********************************************************/
Procedure Check()
*----------------------------
** Primer dígito
cLitCD := LEFT( Stock.Text_1.Value , 1 )
** Dígitos del 2 al 7
For nCounter = 2 to 7
cLetraTabla := SUBST( aTab1CodBar[ VAL( LEFT( Stock.Text_1.Value , 1 ) ) + 1 ] , nCounter , 1 )
if cLetraTabla = "A"
cLitCD += chr( 65 + VAL( SUBST( Stock.Text_1.Value , nCounter , 1 ) ) )
else // "B"
cLitCD += chr( 75 + VAL( SUBST( Stock.Text_1.Value , nCounter , 1 ) ) )
endif
Next
cLitCd += "*"
** Dígitos del 8 al 13
For nCounter = 8 to 13
cLitCD += chr( 97 + VAL( SUBST( Stock.Text_1.Value , nCounter , 1 ) ) )
Next
cLitCD += "+"
Stock.cCodeFinal.value := cLitCD
*Stock.cCodeFinal.REFRESH
Return
Code: Select all
Function GTIN_CHECK(cCode)
Local nTop := iif( Len( cCode ) >= 12 , 6 , 4 )
Public nControl := 0
Public nFor := 0
Public nPair := 0
Public nOdd := 0
for nFor= 1 to nTop
nPair := nPair + val( subst( cCode,( nFor * 2 ) , 1 ) ) // suma de pares // Sum Digits Pair
nOdd := nOdd + val( subst( cCode,( nFor * 2 ) - 1, 1 ) ) // suma de impares // Sum Digits odd
next
// 7 7 9 8 1 3 8 5 5 0 9 4 0
// Pair := 9 + 8 + 3 + 5 + 0 + 4 = 29 * 3 = 87
// Odd := 7 + 9 + 1 + 8 + 5 + 9 = 49 + 49
// Control 136
If nTop == 6
nControl := nPair * 3
nControl := nControl + nOdd
nControl := Int( 10 - Mod(nControl , 10 ) ) // Mod( nControl , 10 )
Else
nControl := nOdd * 3
nControl := nControl + nPair
nControl := Int( 10 - Mod(nControl , 10 ) )
Endif
If nControl = 10
nControl = 0
Endif
Return Alltrim( Str( nControl , 1 ) )If you need anything else just have to comment that try to helpThe TTF font used is in the folder " \EAN13\Fuentes necesarias
