Nilcemar Ferreira - Dicas de T.I.

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 numeros do documento. Enjoy! create or alter procedure FORMATA_CPFCNPJ (     INCPFCNPJ varchar(14)) returns (     RESULTADO varchar(18)) as begin   /* Formata CPF ou CNPJ de somente números para números e pontuação      Nilcemar P. Ferreira - http://nilcemar.blogspot.com - nilcemar@gmail.com - 10/2011*/   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/00...

Para quem precisa retirar acentos de um VarChar, segue uma Stored Procedure muito útil. Uso ela direto!

Pessoal, pra quem precisa gerar automaticamente o dígito verificador para código de barras direto pelo DB, vai uma stored procedure muito simples, mas que te poupa muito tempo: a geração do dígito verificador.

Esta SP muito útil retorna, com base nos parâmetros dia e ano o último dia do mês.

Lembra daquela excelente função do Clipper (e outras linguagens) para colocar zeros à esquerda de uma string? Em um projeto precisei usá-la no meu bd em Firebird sem utilizar UDF para preencher automaticamente dígitos de crachá e outras funções. Segue DDL da Stored Procedure. Copie e cole no Script Executive do IBExpert ! Bom proveito.