FoxPro/Visual FoxPro - Número de contenedor ???

 
Vista:

Número de contenedor ???

Publicado por hroman (44 intervenciones) el 21/10/2005 23:36:11
Hola quizas muchas personas han visto un Container o contenedor por las carreteras, estos contenedores tienen un número como el siguiente:

SEAU - 850980 - 5

En realidad lo que busco es que vi un programa que cuando se digitaba las letras y luego el número, el sistema calculaba el último digito, que se llama dígito verificador, no se como puede ser este cálculo si alguien sabe, le agradezco la ayduda.

Aquí dejo otros números de contenedores reales:

SCZU - 771740 - 1
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 5
Ha disminuido su posición en 8 puestos en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

RE:Número de contenedor ???

Publicado por guillermo arias (295 intervenciones) el 22/10/2005 17:41:15
El número verificador puede ser uno resultante de algunas operaciones de los números previos. De tal manera que si te da por ejemplo 5 están bien los anteriores, y si te da menos puede ser que existan fallas.

Puedes averiguar también el término CHECKSUM para que tengas mayor idea de esto.

Guillermo Arias - Lima
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Número de contenedor ???

Publicado por hroman (1 intervención) el 26/10/2005 00:51:33
Gracias pero investigando, ya lo hice.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Lparameters tcCodigo
#Define refc "0123456789A_BCDEFGHIJK_LMNOPQRSTU_VWXYZ" 
Local nValor, nTotal, nPow2
nValor = 0
nTotal = 0
nPow2 = 1
If Len(tcCodigo) != 10
Return ""
EndIf
For n = 1 To 10
nValor = Atc(Substr(tcCodigo, n, 1), refc, 1)
If nValor < 0
Return ""
EndIf
nTotal = nTotal + (nValor * nPow2)
nPow2 = nPow2 * 2
Next n
nTotal = Mod(nTotal, 11)
If nTotal >= 10
nTotal = 0
EndIf
Return Alltrim(Transform(nTotal))

Saludos,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar