SCRIPT CPF
Publicado por Jeffeson Luiz Oliveira de Campos 14/10/2008
[ Hits: 6.585 ]
Homepage: http://jeffersoncampos.eti.br
Este script lê um CPF e gera os dígitos verificadores do mesmo.
Script especialmente portado do Oracle para o MYSQL
-- -- Script para calculo dos digitos verificadores do CPF - versão MYSQL 5. -- Por Jefferson Luiz Oliveira de Campos - 09/10/2008. -- Este script é GPL. Sinta-se a vontade para exercer as 4 liberdades.... ;) <--> só não esqueça de citar o autor.... ^^'' -- DROP FUNCTION IF EXISTS DigCPF; DELIMITER | CREATE FUNCTION DigCPF (pCPF CHAR(9)) RETURNS CHAR(2) DETERMINISTIC BEGIN DECLARE vCPF CHAR(9); DECLARE soma, resto, cont INT; DECLARE dv1 CHAR(1) ; DECLARE dv2 CHAR( 1 ) ; SET vCPF = pCPF; -- Calculando o primeiro dígito verificador SET soma := 0; SET cont := 1; REPEAT SET soma := soma + ((CAST(SUBSTR(vCPF,cont,1) AS UNSIGNED)) * cont); SET cont := cont + 1; UNTIL cont = 10 END REPEAT; SET resto := MOD(soma,11); IF resto = 10 THEN SET dv1 :='0'; ELSE SET dv1 := CAST(resto AS CHAR (1)); END IF; -- Calculando o segundo dígito verificador SET soma := 0; SET cont := 1; REPEAT SET soma := soma + ((CAST(SUBSTR(vCPF,cont,1) AS UNSIGNED)) * (12 - cont)); SET cont := cont + 1; UNTIL cont = 10 END REPEAT; SET soma := (soma + (CAST(dv1 AS UNSIGNED) * 2)) * 10; SET resto := MOD(soma,11); IF resto = 10 THEN SET dv2 := '0'; ELSE SET dv2 := CAST(resto AS CHAR(1)); END IF; RETURN CONCAT(dv1,dv2); END|
Classe Java para conectar ao Mysql em um servidor remoto
Agenda Java + MySQL que gera relatório PDF
Script para Conexão com Oracle
Conexão com MySQL usando a linguagem Java
Nenhum comentário foi encontrado.
Instalar e Configurar a santíssima trindade (PAP) no Void Linux
O Editor de Texto Nano: Simplicidade no Terminal
SynapSeq - programa para estimular as ondas cerebrais
Por que seu __DIR__ falhou ou o "inferno" dos caminhos no PHP
[Resolvido] Meu monitor suporta 100fps. Por que o máximo é 60fps nos jogos?
Jogando "Magic" gratuitamente no Linux
Zoxide e fzf no bash para incrementar o uso do Terminal
[pedido] biglinux versao 1 (0)
A falsa sensação de que entende a tal da palavra! (1)
Eu aprendi o segredo das artes! hahaha (5)









