Me mudando para São Paulo, a partir deste fim de semana já estou morando por lá!
]




'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
'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;
'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

'Valor Moeda para valor por Extenso
'Laércio - 11/11/2009
'Exemplo chamada = Extenso(CDbl(queryDocCancelados.FieldByName("valortotal").AsCurrency))
Function Extenso (Valor As Double) As String
If Valor <= 0 Or Valor > 999999999.99 Then
Exit Function
End If
'Variáveis
Dim vlsValor As String
Dim vlsParte As String
Dim vlsFinal As String
Dim vliContador As Double
Dim vliTamanho As Double
'Arrays
Dim alsGrupo() As String
ReDim alsGrupo(4)
Dim alsTexto() As String
ReDim alsTexto(4)
'Matrizes de extensos (Parciais)
Dim mlsUnidade() As String
ReDim mlsUnidade(19)
mlsUnidade(1) = "um ":
mlsUnidade(2) = "dois ":
mlsUnidade(3) = "três ":
mlsUnidade(4) = "quatro ":
mlsUnidade(5) = "cinco ":
mlsUnidade(6) = "seis ":
mlsUnidade(7) = "sete ":
mlsUnidade(8) = "oito ":
mlsUnidade(9) = "nove ":
mlsUnidade(10) = "dez ":
mlsUnidade(11) = "onze ":
mlsUnidade(12) = "doze ":
mlsUnidade(13) = "treze ":
mlsUnidade(14) = "quatorce ":
mlsUnidade(15) = "quinze ":
mlsUnidade(16) = "dezesseis ":
mlsUnidade(17) = "dezessete ":
mlsUnidade(18) = "dezoito ":
mlsUnidade(19) = "dezenove ":
Dim mlsDezena() As String
ReDim mlsDezena(9)
mlsDezena(1) = "dez ":
mlsDezena(2) = "vinte ":
mlsDezena(3) = "trinta ":
mlsDezena(4) = "quarenta ":
mlsDezena(5) = "cinqüenta ":
mlsDezena(6) = "sessenta ":
mlsDezena(7) = "setenta ":
mlsDezena(8) = "oitenta ":
mlsDezena(9) = "noventa ":
Dim mlsCentena() As String
ReDim mlsCentena(9)
mlsCentena(1) = "cento ":
mlsCentena(2) = "duzentos ":
mlsCentena(3) = "trezentos ":
mlsCentena(4) = "quatrocentos ":
mlsCentena(5) = "quinhentos ":
mlsCentena(6) = "seiscentos ":
mlsCentena(7) = "setecentos ":
mlsCentena(8) = "oitocentos ":
mlsCentena(9) = "novecentos ":
'Separa valor em grupos
vlsValor = Format(Valor,"0000000000.00") 'ToText(Valor, "0000000000.00")
alsGrupo(1) = Mid(vlsValor, 2, 3)
alsGrupo(2) = Mid(vlsValor, 5, 3)
alsGrupo(3) = Mid(vlsValor, 8, 3)
alsGrupo(4) = "0" + Mid(vlsValor, 12,2)
'Calcula cada Grupo
For vliContador = 1 To 4
vlsParte = alsGrupo(vliContador)
If Val(vlsParte) > 0 Then 'ToNumber(vlsParte) > 0 Then
'vliTamanho = Switch(Val(vlsParte) < vlitamanho =" 1" vlitamanho =" 2" vlitamanho =" 3" vlitamanho =" 3"> "00" Then
'alsTexto(vliContador) = alsTexto(vliContador) + mlsCentena(ToNumber(Left(vlsParte, 1))) + "e "
alsTexto(vliContador) = alsTexto(vliContador) + mlsCentena(Val(Left(vlsParte, 1))) + "e "
vliTamanho = 2
Else
'alsTexto(vliTamanho) = alsTexto(vliContador) + IIf(Left(vlsParte, 1) = "1", "cem ", mlsCentena(ToNumber(Left(vlsParte, 1))))
alsTexto(vliTamanho) = alsTexto(vliContador) + IIf(Left(vlsParte, 1) = "1", "cem ", mlsCentena(Val(Left(vlsParte, 1))))
End If
End If
If vliTamanho = 2 Then
If Val(Right(vlsParte, 2)) <> "0" Then
alsTexto(vliContador) = alsTexto(vliContador) + "e "
vliTamanho = 1
End If
End If
End If
If vliTamanho = 1 Then
'alsTexto(vliContador) = alsTexto(vliContador) + mlsUnidade(ToNumber(Right(vlsParte, 1)))
alsTexto(vliContador) = alsTexto(vliContador) + mlsUnidade(Val(Right(vlsParte, 1)))
End If
End If
Next
'Final
If Val(alsGrupo(1)+ alsGrupo(2) + alsGrupo(3) ) = 0 And Val(alsGrupo(4)) <> 0 Then
vlsFinal = alsTexto(4) + IIf (Val(alsGrupo(4)) = 1, "centavo", "centavos")
Else
vlsFinal = ""
vlsFinal = vlsFinal + IIf(Val(alsGrupo(1)) <> 0, alsTexto(1) + IIf(Val(alsGrupo(1)) > 1, "milhões ", "milhão "), "")
If Val(alsGrupo(2) + alsGrupo(3)) = 0 Then
vlsFinal = vlsFinal + "de "
Else
vlsFinal = vlsFinal + IIf(Val(alsGrupo(2)) <> 0 , alsTexto(2) + "mil ", "")
End If
vlsFinal = vlsFinal + alsTexto(3) + IIf(Val(alsGrupo(1) + alsGrupo(2) + alsGrupo(3)) = 1, "real ", "reais ")
vlsFinal = vlsFinal + IIf(Val(alsGrupo(4)) <> 0, "e " + alsTexto(4) + IIf(Val(alsGrupo(4)) = 1, "centavo", "centavos"), "")
End If
Extenso = UCase(Mid(vlsFinal, 1,1)) + LCase(Mid(vlsFinal, 2))
End Function

menau são as mais bonitas hehehe

ferramentas de trabalho com ele.... ta meio precario no momento, segundo minha opinião...). Mas falta vontade de estudar.... e ainda to com um pouco de sono (ou séria somente preguiça pra começar a estudar ....).
uco desse livro, acho que vou ver o manga e a animação, numa dessas me animo pra estudar depois, né ? Alguém ai se anima a estudar aquilo que eu quero estudar, e dai me passa um resumo com as partes mais importantes para que eu pegue algo todo esmiuçado ?


Morando em CuritibaJá passei por algumas cidades, algumas um periodo grande de tempo, outras durente periodos menores; já morrei em:
Itaqui, Carazinho, São Leopoldo, Porto Alegre, Carazinho, Blumenau, Florianopolis, Curitiba - pois é, sou meio que cigano !
Curitiba é uma cidade agradavel, com muitos lugares para se passear, conhecer, pra sair. Ainda não conheço muito a cidade, vou conhecendo aos poucos a medida que estiver melhor instalado. Hummm, vou ter que comprar umas roupas mais quentes, o inverno promete ser frio por aqui !
Para informações sobre Curitiba veja:


graduação em banco de dados lá na PUC PR (que vou ver se faço ou não..., mas acho que sim....), vou para Porto Alegre. Grande Poa, sou gaúcho, é e sempre será minha capital, embora eu morre em uma outra capital no momento :-)E como bom gaúcho, vou passar maior parte do tempo no Rio Grande do Sul, visitando cidades como Porto Alegre e Carazinho. Porfim, volto pra Floripa e fico de molho na água do mar, lá pelo Riozinho lá no Campeche !