SCRIPT CPF
Publicado por Jeffeson Luiz Oliveira de Campos 14/10/2008
[ Hits: 6.502 ]
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|
Cadastro de Clientes com GUI e MySQL
Conexão com Firebird usando a linguagem Java
Agenda Java + MySQL que gera relatório PDF
Nenhum comentário foi encontrado.
Modo Simples de Baixar e Usar o bash-completion
Monitorando o Preço do Bitcoin ou sua Cripto Favorita em Tempo Real com um Widget Flutuante
fusermount3 no Ubuntu 25.10 - mantenha o perfil do AppArmor
[Resolvido] dlopen(): error loading libfuse.so.2 AppImages require FUSE to run.
Criação de diretórios e aplicação de restrições de acesso no Linux
Aderencia a Obsolencia Programada. (11)
Debian Stable travado em atualizações: dist-upgrade não resolve (0)









