Power Builder - Función que calcula digito vericador

Hola Amigos, Necesito urgentemente la función que me calcula el digito verificador de codigo de barra para EAN13.

Desde ya gracias..

Saludos

Con esto te arreglas....

//arg_codigo es un string con los doce digitos para el calculo

string comprobacion = ''
int sum_pares = 0, sum_impares = 0, cont

if len(arg_codigo) <> 12 then
messagebox("ATENCION", "El codigo introducido debe ser de 12 digitos")
else

for cont = 1 to 12
if mod(cont, 2) = 0 then
sum_pares += long(mid(arg_codigo, cont, 1))
else
sum_impares += long(mid(arg_codigo, cont, 1))
end if
next

comprobacion = string(10 - mod(sum_impares + (sum_pares * 3), 10))

end if

return arg_codigo + comprobacion

Se puede resumir en:
DIGITO = 10-resto{ [Sum(impares) + (Sum(pares) x 3)]/10 }

Aleee..

Hola,

He visto tu respuesta acerca del EAN13, y quisiera saber si me puedes ayudar.

Para hacer los códigos de barras, se pueden utilizar "FONTS", y no se si tu tienes la "FONT" para que powerbuilder pueda hacer las etiquetas con EAN13 .

Muchas grácias