27 outubro 2011

Formatar CPF/CNPJ direto no Firebird via SP

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/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.

18 outubro 2011

Retornar somente números da string

Eata função retorna somente caracteres numéricos da cadeia passada como parâmetro. Muito útil

function ApenasNumerosNaString(pStr:String): String;
//Converte uma cadeia de string onde se tenha numeros e caracteres em uma
//cadeia de strings onde so tenha numeros
Var
  I: Integer;
begin
  Result := '';
  For I := 1 To Length(pStr) do
   If pStr[I] In ['1','2','3','4','5','6','7','8','9','0'] Then
     Result := Result + pStr[I];
end;

Formatar telefone no Delphi

Esta função formata o telefone digitado em diversos formatos, a partir da quantidade de dígitos do valor passado como parâmetro. Use na função onexit do seu TEdit


07 outubro 2011

10 lições mais importantes de Steve Jobs sobre empreendedorismo



Steve Jobs faleceu e todos nós iremos sentir a sua falta, por diversas razões. E é precisamente por essas razões que publicamos o artigo de hoje. Steve Jobs ensinou-nos, a todos nós, muitas lições sobre empreendedorismo, liderança, criatividade e acima de tudo, sobre saber viver.
Numa das suas citações mais populares, Steve Jobs referiu um aspecto muito importante, que infelizmente muitas pessoas ainda não conseguiram atingir. Tome nota:
“Your time is limited, so don’t waste it living someone else’s life.” – Steve Jobs
Basicamente, esta citação encaixa-se perfeitamente a todos aqueles blogueiros e webmasters que perdem mais tempo criticando ou desdenhando o trabalho dos seus concorrentes, do que propriamente a fazerem algo para mudar o mundo, ou simplesmente ajudar outros usuários.

 Veja as 10 lições mais importantes de Steve Jobs