Clique para saber mais...
  Home     Download     Produtos / Cursos     Revista     Vídeo Aulas     Fórum     Contato   Clique aqui para logar | 07 de Junho de 2026
  Login

Codinome
Senha
Salvar informações

 Esqueci minha senha
 Novo Cadastro

  Usuários
38 Usuários Online

  Revista ActiveDelphi
 Assine Já!
 Edições
 Sobre a Revista

  Conteúdo
 Apostilas
 Artigos
 Componentes
 Dicas
 News
 Programas / Exemplos
 Vídeo Aulas

  Serviços
 Active News
 Fórum
 Produtos / Cursos

  Outros
 Colunistas
 Contato
 Top 10

  Publicidade

  [Dicas]  Formatar CPF/CNPJ direto no Firebird via SP
Publicado por nilcemar : Quarta, Novembro 16, 2011 - 08:56 GMT-3 (1257 leituras)
Comentários 2 Comentários   Enviar esta notícia a um amigo Enviar para um amigo   Versão para Impressão Versão para impressão
Administrador O exemplo abaixo cria uma Stored Procedure no Firebird para retornar CPF ou CNPJ formatados com pontuação. Você passa como parâmetro somente os números do documento
create or alter procedure FORMATA_CPFCNPJ (
INCPFCNPJ varchar(14))
returns (
RESULTADO varchar(18))
as
begin

if (char_length(:incpfcnpj)=11) then --CPF
begin
resultado = Substring( :inCPFCNPJ from 1 for 3 ) || '.' || Substring( :inCPFCNPJ from 4 for 3 ) || '.' ||
Substring( :inCPFCNPJ from 7 for 3 ) || '-' || Substring( inCPFCNPJ from 10 for 2 );
end
else
if (char_length(:incpfcnpj)=14) then --CNPJ 17.605.320/0001-78
begin
resultado = Substring( :inCPFCNPJ from 1 for 2 ) || '.' || Substring( :inCPFCNPJ from 3 for 3 ) || '.' ||
Substring( :inCPFCNPJ from 6 for 3 ) || '/' ||
Substring( :inCPFCNPJ from 9 for 4 ) || '-' || Substring( inCPFCNPJ from 13 for 2 );
end

suspend;
end^

SET TERM ; ^

COMMENT ON PARAMETER FORMATA_CPFCNPJ.INCPFCNPJ IS
'Numero do CPF ou CNPJ sem pontuação';


Esta procedure é selecionável por causa da cláusula SUSPEND. Se quiser torná-la executável, elimine esta cláusula.


Nilcemar P. Ferreira - nilcemar@gmail.com
nilcemar.blogspot.com





Comentários Comentários
   Ordem:  
Comentários pertencem aos seus respectivos autores. Não somos responsáveis pelo seus conteúdos.


por: kuritza (kuritza@hotmail.com) : Dez 13, 2011 - 08:05
(Informações sobre o membro | Enviar uma mensagem) http://http://
Ta faltando no inicio do script a linha abaixo:

SET TERM ^ ;


por: feiticeiro (pereira.erick@gmail.com) : Dez 19, 2011 - 04:46
(Informações sobre o membro | Enviar uma mensagem) http://http://
como eu posso utilizar esta procedure no delphi, com dados trazidos direto do clientdataset no lugar de criar uma editmask...
  Edição 112

Revista ActiveDelphi

  50 Programas Fontes


  Produtos

Conheça Nossos Produtos

Copyright© 2001-2016 – Active Delphi – Todos os direitos reservados