Página 1 de 1
Rotinas...
Enviado: 06 Abr 2005 18:31
por mvbrandao
Olá pessoal,
Será que alguem tem uma rotina que possa gerar numeros de matriculas com digito verificador.... se alguem souber onde posso achar, fico grato.
Enviado: 06 Abr 2005 19:58
por Clipper
Prezado Colega
Onde encontrar eu não sei, mas é bem simples criar uma rotina para isso, exemplo :
Código: Selecionar todos
cls
wmatricula=0
@ 02,00 say "Matricula -> " get wmatricula pict "99999"
read
digito=calcdig(strzero(wmatricula,5))
@ 10,00 say digito
inkey(0)
return
function calcdig(kmatricula)
soma=0
for i=1 to len(kmatricula)
soma+=val(substr(kmatricula,i,1))
next
subdigito=val(substr(str(soma,lennum(soma)),1))
if subdigito=0
subdigito=10
endif
private digitos[10]
digitos[1]=9
digitos[2]=8
digitos[3]=7
digitos[4]=6
digitos[5]=0
digitos[6]=1
digitos[7]=2
digitos[8]=3
digitos[9]=4
digitos[10]=5
digitoverif=digitos[subdigito]
Return(digitoverif)
Esse exemplo criei ainda a pouco mas você pode criar o seu próprio módulo.
Até logo.
Marcelo
Enviado: 07 Abr 2005 09:19
por mvbrandao
Valeu Marcelo,
Vou Estudar os conceitos........
Iniciante é assim mesmo.......
:xau