Super Mega Fodastico video do Street Fighter !!!

Vb.Net - PL/SQL - SQL - Formatação CPF/CNPJ

Código para formatação:

Código em VB.Net

'Formatação CPF/CNPJ

'Laércio - 11/05/2010

Function CNPJCPF (param_cnpjcpf As String) As String
    Dim resultado As String
    Dim tamanho As Integer
    tamanho = Len(param_cnpjcpf)

    If tamanho <= 11 Then       resultado = Mid(param_cnpjcpf,1,3)+"."+Mid(param_cnpjcpf,4,3)+"."+Mid(param_cnpjcpf,7,3)+"-"+Mid(param_cnpjcpf,10,2)     Else       resultado = Mid(param_cnpjcpf,1,2)+"."+Mid(param_cnpjcpf,3,3)+"."+Mid(param_cnpjcpf,6,3)+"/"+Mid(param_cnpjcpf,9,4)+"-"+Mid(param_cnpjcpf,13,2)     End If     CNPJCPF = resultado End Function   

Código em PL/SQL

'Formatação CPF/CNPJ

'Laércio - 11/05/2010

function f_cnpjcpf ( i_nr_cnpjcpf varchar2 ) return varchar2 is
    Result varchar2(30);
  begin
    if length(i_nr_cnpjcpf) <= 11 then
      result := substr(i_nr_cnpjcpf,1,3)||'.'||substr(i_nr_cnpjcpf,4,3)||'.'||substr(i_nr_cnpjcpf,7,3)||'-'||substr(i_nr_cnpjcpf,10,2);
    else
      result := substr(i_nr_cnpjcpf,1,2)||'.'||substr(i_nr_cnpjcpf,3,3)||'.'||substr(i_nr_cnpjcpf,6,3)||'/'||substr(i_nr_cnpjcpf,9,4)||'-'||substr(i_nr_cnpjcpf,13,2);
    end if;
    return(Result);
  end f_cnpjcpf;  

Código em SQL - Case When (..)

'Formatação CPF/CNPJ

'Laércio - 11/05/2010

  select
    case when (length(cnpjcpf) <= 11)               then substr(cnpjcpf,1,3)'.'substr(cnpjcpf,4,3)'.'substr(cnpjcpf,7,3)'-'substr(cnpjcpf,10,2)          when (length(cnpjcpf) > 11)
              then substr(cnpjcpf,1,2)'.'substr(cnpjcpf,3,3)'.'substr(cnpjcpf,6,3)'/'substr(cnpjcpf,9,4)'-'substr(cnpjcpf,13,2)
         else cnpjcpf end cnpjcpf
  from sfn_documento