Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 09-08-2006
tulio tulio is offline
Miembro
 
Registrado: may 2003
Ubicación: Argentina
Posts: 303
Poder: 22
tulio Va por buen camino
Thumbs up 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
Responder Con Cita
  #2  
Antiguo 09-08-2006
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
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.
Responder Con Cita
  #3  
Antiguo 09-08-2006
Avatar de kuan-yiu
[kuan-yiu] kuan-yiu is offline
Miembro Premium
 
Registrado: jun 2006
Ubicación: Galicia. España.
Posts: 1.017
Poder: 20
kuan-yiu Va camino a la fama
¿Qué es un dígito verificador?
Responder Con Cita
  #4  
Antiguo 09-08-2006
Avatar de kuan-yiu
[kuan-yiu] kuan-yiu is offline
Miembro Premium
 
Registrado: jun 2006
Ubicación: Galicia. España.
Posts: 1.017
Poder: 20
kuan-yiu Va camino a la fama
Ya lo encontré, gracias a la Wikipedia: Dígito verificador... Pero sigo sin tener ni idea.
Responder Con Cita
  #5  
Antiguo 09-08-2006
tulio tulio is offline
Miembro
 
Registrado: may 2003
Ubicación: Argentina
Posts: 303
Poder: 22
tulio Va por buen camino
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
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

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


La franja horaria es GMT +2. Ahora son las 01:35:27.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi