FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Rutina de digito verificador
Hola Foro
Estoy necesitando una rutina que genere un digito verificador, si alguien me puede suministrar una rutinita se los agradeceria saludos tulio |
#2
|
||||
|
||||
Tal vez sea una cuestion de idioma, pero... ¿Dígito verificador de qué?
¿Cual es la entrada de esa rutina?
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
||||
|
||||
¿Qué es un dígito verificador?
|
#4
|
||||
|
||||
Ya lo encontré, gracias a la Wikipedia: Dígito verificador... Pero sigo sin tener ni idea.
|
#5
|
|||
|
|||
Gracias compañeros, ya me cree una rutina que es la siguiente:
procedure TForm1.BitBtn1Click(Sender: TObject); var barra,xx : string; total,JJ,resto,digito : integer; begin barra:=edit1.text; total:=0; For JJ:= 1 to 40 do begin xx:=copy(barra,JJ,1); If JJ Mod 2= 0 then total:=total+(strtoint(xx)*3) else total:=total+(strtoint(xx)*1); End; resto:=total Mod 10; If resto = 0 then digito:=resto else digito:=10-resto; edit2.text:=barra+'-'+inttostr(digito); End; Les cuento, en una factura debo mandar en un codigo de barra todos los datos de la factura, nro empresa,fecha 1 vencimiento, importe, fecha 2 vencimiento , importe , numero de factura, y EL DIGITO VERIFICADOR, que chequea cuando es leido en la boca de cobro , que no se haya alterado nada. La rutina anterior toma todo el registro que describi y me arroja un numero que lo sumo al final de la lista. saludos gracias y disculpa por las molestias tulio |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
¡¡¡¿¿¿autocalcular el digito de control???!!! | Giniromero | Conexión con bases de datos | 4 | 04-05-2006 16:00:50 |
Extraer primer digito en minusculas ? | Coco_jac | SQL | 4 | 21-12-2005 17:13:01 |
Consultas en Acces por el primer digito | jdattoli | Tablas planas | 2 | 17-11-2005 19:04:11 |
Orden aleatorio al 7o digito!!! | jdattoli | Tablas planas | 1 | 20-10-2005 19:15:09 |
Modificar un str dígito a dígito | fortran | Varios | 11 | 22-12-2003 17:44:46 |
|