codigo de barras en asp.

[lexus]

Hola

estoy buscando algun codigo en asp que me permita generar codigos de barra tanto EAN-13 como los demas existentes..
alguien conoce uno gratuito y sencillo de usar?

gracias.
tengo este ke me ha funcionado bien pero no se muy bien usar la de Ean-13 ke es la que me pide mi cliente
http://www.planetsourcecode.com/vb/s...=8817&lngWId=4

el me dice ke son 12 numeros y el treceavo es un digito de verificacion ke sale automaticamente. pero no se como generarlo. alguien ha usado este codigo o sabe como generar este ultimo digito?

[Shiryu_Libra]

haz mirado este CODIGO

[lexus]

la verdad no..
el ke tengo funciona bien pero no se como sacar el ultimo digito ke me dice mi cliente es de verificacion.
yo pongo los 13 digitos y sale el grafico perfectamente, pero el me dice ke el ultimo no lo pone uno sino el algoritmo asi que no supe ke responderle.
el que tengo esta en asp.. es qeu me dices shiryu en ke lenguaje es?

[Shiryu_Libra]

pues es en C, pero podria interpretarse... por eso lo anexe al post, el detalle es mirar como se produce el EAN13, y sale el chekador, asi verificarias en que parte de tu codigo, no te esta dando tu verificador

si es posible, por que no anexas tu codigo, asi verificamos uno contra otro

[lexus]

esta un poco largo pero no me cupo aqui, pero se puede descargar directamente del link ke coloque.
intente pegarlo pero no me cupo es larguisimo.

http://www.planetsourcecode.com/vb/s...=8817&lngWId=4

[lexus]

Hola alguien ha descargado el codigo ke puse para saber como generar el ultimo digito de verificacion?

[Shiryu_Libra]

La verdad que ahora (esta semana), no he tenido tiempo de verificar los codigos (en tu caso desde el pasado miercoles), pero en un tiempo o chanzita y verifico

[lexus]

ok gracias por el interes
encontre este codigo para generar el digito verificador pero no super como aplicarlo a ASP
http://www.portalfox.com/index.php?n...rder=0&thold=0

[lexus]

alguien sabe como traducir este codigo a asp para generear el digito verificador de EAN-13
gracias.

Código:

FUNCTION CheckDigitEan(tcCodigo)
  LOCAL lnSuma, lnI, lnPos
  STORE 0 TO lnSuma, lnPos
  FOR lnI = LEN(tcCodigo) TO 1 STEP -1
  lnPos = lnPos + 1 
    lnSuma = lnSuma + (VAL(SUBSTR(tcCodigo,lnI,1)) * IIF(MOD(lnPos,2)=0,1,3))
  ENDFOR
  RETURN tcCodigo + TRANSFORM(MOD(10-MOD(lnSuma,10),10))
ENDFUNC

[lexus]

alguien sabe como traducir este codigo que calcula el digito verificador del EAN 13 a ASP

FUNCTION CheckDigitEan(tcCodigo) LOCAL lnSuma, lnI, lnPos STORE 0 TO lnSuma, lnPos FOR lnI = LEN(tcCodigo) TO 1 STEP -1 lnPos = lnPos + 1 lnSuma = lnSuma + (VAL(SUBSTR(tcCodigo,lnI,1)) * IIF(MOD(lnPos,2)=0,1,3)) ENDFOR RETURN tcCodigo + TRANSFORM(MOD(10-MOD(lnSuma,10),10))ENDFUNC

[Shiryu_Libra]

...

no se si estara correcto esto....

dale una miradita... comenta en caso de errores

Código PHP:

  <&#37;
Function Check(codigo)
dim LnSuma, Ini, LnPos

lnsuma=0
lnpos=0

for (Ini=(len(codigo))) to 1 step -1
    lnpos = lnpos + 1
    lnsuma = lnsuma + cdbl(mid(codigo,ini,1)) * evaluacion(lnpos))
next

check = codigo + cstr(mod(10-(MOD(lnsuma,10),10)))
end function

function evaluacion(temp)
if MOD(temp)=0 then
    data=1
else
    data=3
end if
evaluacion = data
end function
%>  
   

[lexus]

hola gracias por la colaboracion
me dice ke hay un error de sintaxis en esta linea


Tipo de error:
Error de compilación de Microsoft VBScript (0x800A03EA)
Error de sintaxis
producto.asp, línea 168, columna 22
check = codigo + cstr(mod(10-(MOD(lnsuma,10),10)))

Código:

 
Function Check(codigo)
dim LnSuma, Ini, LnPos
lnsuma=0
lnpos=0
for Ini=(len(codigo)) to 1 step -1
    lnpos = lnpos + 1
    lnsuma = lnsuma + (cdbl(mid(codigo,ini,1)) * evaluacion(lnpos))
next
check = codigo + cstr(mod(10-(MOD(lnsuma,10),10)))
 
end function
function evaluacion(temp)
if MOD(temp)=0 then
    data=1
else
    data=3
end if
evaluacion = data
end function
 
response.write Check(rs("codigo_barras"))

otra cosita, me podrias explicar un poco que hace la funcion? o que significa step -1, gracias

[Shiryu_Libra]

lo del step -1, es recorrer el for a la inversa, de 10 a 0... por decirlo asi

ahora, con referencia a la linea de error podrias simplemente fijarte si me falto algun numro, o una coma.... como fue algo rapido

[lexus]

gracias,
mira ke esa linea le he cambiado el orden y le he aumentado y disminuido parentecis pero sigue saliendome error de sintaxis.

check = codigo + cstr(mod(10-(MOD(lnsuma,10),10)))

[Shiryu_Libra]

estoy viendo que el error es de la funcion MOD, no estoy estableciendo bien los comandos

habria que chekar la sintaxis de MOD, para ver el detalle

dame un momento

a menos que un samaritano pueda utilizar una mejor vision del problema

[lexus]

algun samaritano sabe como manejar la funcion mod para este caso?
gracias

[lexus]

alguna idea?

[Shiryu_Libra]

intentalo de esta manera Lexus

check = codigo + cstr((10-(lnsuma MOD 10)) mod 10)

[lexus]

gracias por la ayuda shiryu
ahora la linea ke me saca error de sintaxis es esta que esta en rojo tambien es con el MOD

Código:

 
dim LnSuma, Ini, LnPos
lnsuma=0
lnpos=0
for Ini=(len(codigo)) to 1 step -1
    lnpos = lnpos + 1
    lnsuma = lnsuma + (cdbl(mid(codigo,ini,1)) * evaluacion(lnpos))
next
check = codigo + cstr((10-(lnsuma MOD 10)) mod 10)
 
end function
function evaluacion(temp)
if MOD(temp)=0 then
    data=1
else
    data=3
end if
evaluacion = data
end function
 
response.write Check(rs("codigo_barras"))

[Shiryu_Libra]

Iniciado por lexus

gracias por la ayuda shiryu
ahora la linea ke me saca error de sintaxis es esta que esta en rojo tambien es con el MOD

Código:

 
dim LnSuma, Ini, LnPos
lnsuma=0
lnpos=0
for Ini=(len(codigo)) to 1 step -1
    lnpos = lnpos + 1
    lnsuma = lnsuma + (cdbl(mid(codigo,ini,1)) * evaluacion(lnpos))
next
check = codigo + cstr((10-(lnsuma MOD 10)) mod 10)
 
end function
function evaluacion(temp)
if MOD(temp)=0 then
    data=1
else
    data=3
end if
evaluacion = data
end function
 
response.write Check(rs("codigo_barras"))

error mio... creo que me falto comer ese dia o seria la espuma... en fin

me faltaba un 2 dentro de la funcion evaluacion

function evaluacion(temp)
if (temp MOD 2)=0 then
data=1
else
data=3
end if
evaluacion = data
end function

[lexus]

excelente, muchisimas gracias,
deberian colocar esto en las faqs,
como sacar el digito verificador de EAN-13
gracias por todo.

[Shiryu_Libra]

Salut!! por eso