27/08/2008, 09:07
|
 | | | Fecha de Ingreso: enero-2002 Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 23 años, 3 meses Puntos: 4 | |
| Respuesta: codigo de barras en asp.
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 |