//****************************************************************
static function Modulo10(cTst)
local nTot := 0
local nAux
local i
if Len(ctST)%2 != 0
cTst := "0"+cTst
end
for i := 1 to Len(cTst)
nAux := Val(SubStr(cTst,i,1)) * if(i%2==0,2,1)
if nAux >= 10
nAux := Val(Left(Str(nAux,2),1)) + Val(Right(Str(nAux,2),1))
end
nTot += nAux
next
nTot := 10-(nTot%10)
return if(nTot=10, "0", Str(nTot,1))
//****************************************************************
function ValidCMC7(cCMC7)
return Modulo10(SubStr(cCMC7, 1, 7)) == SubStr(cCMC7,19,1) .and. ;
Modulo10(SubStr(cCMC7, 9,10)) == SubStr(cCMC7, 8,1) .and. ;
Modulo10(SubStr(cCMC7,20,10)) == SubStr(cCMC7,30,1)
/*
DÃgitos Descrição
------- ---------------------------------------
1/3 Número do banco
4/7 Número da agência
8 Módulo 10 dos dÃgitos 9 a 18
9/11 Código de compensação
12/17 Número do cheque
18 Número fixo (5)
19 Módulo 10 dos dÃgitos 1 a 7
20/29 Número da conta corrente (incluindo DV)
30 Módulo 10 dos dÃgitos 20 a 29
*/
Validação de CMC7
Moderador: Moderadores
1 Mensagem • Página 1 de 1
Validação de CMC7
por Maligno » 10 Ago 2007 01:33
[]'s
Maligno
---
Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.
---
Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
Maligno
---
Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.
---
Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
-
Maligno Membro Master 
- Mensagens: 6390
- Data de registro: 06 Jul 2004 01:40
- Cidade/Estado: Londrina/PR
- Curtiu: 1 vez
- Mens.Curtidas: 14 vezes
Ver tópicos ativos •
1 Mensagem • Página 1 de 1
Retornar para Contribuições, Dicas e Tutoriais
Quem está online
Usuários vendo este fórum: Nenhum usuário registrado online e 12 visitantes

Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
