Public Function Formatar(ByVal Dado as Object, ByVal Tipo as Object) as Object
Formatar = ""
If IsDbNull(Dado) Then
Formatar = ""
Else
Select case Tipo
case "1"
'Tipo Quantidade
Formatar = format(Dado, "###,###,##0")
case "2"
'Tipo Decimal, Moeda
Formatar = format(Dado, "###,##0.00")
case "3"
'Tipo Data
Formatar = format(Dado, "dd/MM/yyyy")
case "4"
'Tipo Data
Formatar = format(Dado, "dd/MM/yyyy HH:mm:ss")
case "5"
'Tipo Decimal, Moeda com 3 casas decimal
Formatar = format(Dado, "###,##0.000")
case "6"
'Tipo Decimal, Moeda com 4 casas decimal
Formatar = format(Dado, "###,##0.00000")
End Select
end if
End Function
Public Function FormataCasaDecimal(ByVal Dado as Object, ByVal nrCasasDecimais as Object) as Object
FormataCasaDecimal = ""
If IsDbNull(Dado) Then
FormataCasaDecimal = ""
Else
If Dado = 0 then
FormataCasaDecimal = format(Dado, "###,##0.00##")
Else
If IsDbNull(nrCasasDecimais)
FormataCasaDecimal = format(Dado, "###,##0.00")
Else
Select case nrCasasDecimais
case "0"
FormataCasaDecimal = format(Dado, "###,##0")
case "1"
FormataCasaDecimal = format(Dado, "###,##0.0")
case "2"
FormataCasaDecimal = format(Dado, "###,##0.00")
case "3"
FormataCasaDecimal = format(Dado, "###,##0.00#")
case "4"
FormataCasaDecimal = format(Dado, "###,##0.00##")
End Select
End If
End If
End If
End Function
Public Function QuebraLinha(ByVal Dado as Object, ByVal Tamanho as Object) as Object
QuebraLInha = ""
If IsDbNull(Dado) Then
QuebraLinha = ""
Else
for i as integer = 1 to Dado.Length()
QuebraLinha &= Mid(Dado, i, Tamanho) & ""
i = i + Tamanho -1
next
end if
End Function
Public Function FormatarMoeda(ByVal Dado as object) As string
If IsDbNull(Dado) Then
FormatarMoeda = ""
Else
if Dado = 0 then
FormatarMoeda = ""
else
'Tipo Decimal, Moeda
FormatarMoeda = format(Dado, "###,##0.00")
end if
end if
End Function
Private Function FormatarLimpar(ByVal Dado as object) As string
If IsDbNull(Dado) Then
FormatarLimpar = "0,00"
Else
if Dado = 0 then
FormatarLimpar = "0,00"
else
'Tipo Decimal, Moeda
FormatarLimpar = format(Dado, "###,##0.00")
end if
end if
End Function
Private Function Concluido(ByVal Dado as object) As string
If IsDbNull(Dado) Then
Concluido = "![]()
"
Else
Concluido = "![]()
"
End If
End Function
Private Function Iniciado(ByVal Dado as Object) As string
If Dado = "True" Then
Iniciado = "![]()
"
Else
Iniciado = "![]()
"
End If
End Function
Private Function Lido(ByVal Dado as object) As string
If Dado = "True" Then
Lido = "![]()
"
Else
Lido = "![]()
"
End If
End Function
Private Function SimNao(ByVal Dado as object) As string
If Dado = "True" Then
SimNao = "Sim"
Else
SimNao = "Não"
End If
End Function
Private Function Combustivel(ByVal Dado as object) As string
Combustivel = ""
If IsDbNull(Dado) Then
Combustivel = ""
Else
Select case Dado
case "0"
Combustivel = "Gasolina"
case "1"
Combustivel = "Alcool"
case "2"
Combustivel = "Diesel"
End Select
end if
End Function
Private Function Categoria(ByVal Dado as Object) As string
Categoria = ""
If IsDbNull(Dado) Then
Categoria = ""
Else
Select case Dado
case "1"
Categoria = "Disponível"
case "2"
Categoria = "Temporário"
case "3"
Categoria = "Ocupado"
case "4"
Categoria = "Fora do Escritório"
End Select
end if
End Function
Private Function Prioridade(ByVal Dado as object) As string
Prioridade = ""
If IsDbNull(Dado) Then
Prioridade = ""
Else
Select case Dado
case "1"
Prioridade = "Altíssima"
case "2"
Prioridade = "Alta"
case "3"
Prioridade = "Média"
case "4"
Prioridade = "Baixa"
case "5"
Prioridade = "Quando der"
End Select
end if
End Function
Private Function Situacao(ByVal Dado as object) As string
Situacao = ""
If IsDbNull(Dado) Then
Situacao = ""
Else
Select case Dado
case "0"
Situacao = "Iniciado"
case "1"
Situacao = "Em Espera"
case "2"
Situacao = "Em Dependencia"
case "3"
Situacao = "Concluído"
case "4"
Situacao = "Adiado"
End Select
end if
End Function
Private Function TipoClientes(ByVal Dado as object) As string
TipoClientes = ""
If IsDbNull(Dado) Then
TipoClientes = ""
Else
Select case Dado
case "0"
TipoClientes = "Cliente"
case "1"
TipoClientes = "Fornecedor"
case "2"
TipoClientes = "Cliente/Fornecedor"
case "3"
TipoClientes = "Representante"
End Select
end if
End Function
Private Function FormataFeriado(ByVal Feriado as object) As String
FormataFeriado = ""
If IsDbNull(Feriado) Then
FormataFeriado = False
Else
FormataFeriado = Feriado
End If
End Function
Private Function PosicaoPneu(ByVal Posicao as object) As String
PosicaoPneu = ""
If IsDbNull(Posicao) Then
PosicaoPneu = ""
Else
Select case Posicao
case "0"
PosicaoPneu = "Dianteiro Esquerdo"
case "1"
PosicaoPneu = "Dianteiro Direito"
case "2"
PosicaoPneu = "Traseiro Esquerdo"
case "3"
PosicaoPneu = "Traseiro Direito"
case "4"
PosicaoPneu = "Estepe"
case "5"
PosicaoPneu = "Dianteiro"
case "6"
PosicaoPneu = "Traseiro"
End Select
end if
End Function
Private Function EntradaSaida(ByVal Dado as object) As string
EntradaSaida = ""
If IsDbNull(Dado) Then
EntradaSaida = ""
Else
Select case Dado
case "0"
EntradaSaida = "Entrada"
case "1"
EntradaSaida = "Saída"
End Select
end if
End Function
Private Function TipoEstado(ByVal Dado as object) As string
TipoEstado = ""
If IsDbNull(Dado) Then
TipoEstado = ""
Else
Select case Dado
case "0"
TipoEstado = "Dentro"
case "1"
TipoEstado = "Fora"
case "2"
TipoEstado = "Exportação"
End Select
end if
End Function
Private Function Regiao(ByVal Dado as object) As string
Regiao = ""
If IsDbNull(Dado) Then
Regiao = ""
Else
Select case Dado
case "0"
Regiao = "Sul/Sudeste"
case "1"
Regiao = "Norte/Nordeste"
End Select
end if
End Function
Private Function Historico(ByVal Dado as object) As string
Historico = ""
If IsDbNull(Dado) Then
Historico = ""
Else
Select case Dado
case "0"
Historico = "Crédito"
case "1"
Historico = "Débito"
End Select
end if
End Function
Private Function ClassificacaoFiscal(ByVal Dado as object) As string
ClassificacaoFiscal = ""
If IsDbNull(Dado) Then
ClassificacaoFiscal = ""
Else
Select case Dado
case "0"
ClassificacaoFiscal = "I"
case "1"
ClassificacaoFiscal = "D"
case "2"
ClassificacaoFiscal = "N"
case "3"
ClassificacaoFiscal = "S"
case "4"
ClassificacaoFiscal = "T"
End Select
end if
End Function
Private Function TestaNulo(ByVal Dado as object) As string
TestaNulo = ""
If IsDbNull(Dado) Then
TestaNulo = ""
End If
End Function
Private Function TipoImagem(ByVal Dado as object) As string
TipoImagem = ""
If IsDbNull(Dado) Then
TipoImagem = ""
Else
Select case Dado
case 1
TipoImagem = "Poster"
case 2
TipoImagem = "Fotos"
case 3
TipoImagem = "Capa"
case 4
TipoImagem = "Papel de Parede"
End Select
End If
End Function
Private Function Imagem(ByVal Cod as object, ByVal NomeArquivo as object) As string
Imagem = ""
If IsDbNull(NomeArquivo) Then
Imagem = "![]()
"
else
Imagem = "![]()
"
end if
End Function
Private Function Setor(ByVal Cod as object, ByVal NomeArquivo as object, Optional ByVal Raiz as string = "") As string
Setor = ""
If IsDbNull(NomeArquivo) Then
Setor = "![]()
"
else
Setor = "![]()
"
end if
End Function
Private Function Funcionario(ByVal Cod as object, ByVal NomeArquivo as string, Optional ByVal Raiz as string= "") As string
If IsDbNull(NomeArquivo) Then
Funcionario = "![]()
"
else
Funcionario = "![]()
"
end if
End Function
Private Function Imagem2(ByVal Cod as object, ByVal NomeArquivo as object) As string
If IsDbNull(NomeArquivo) Then
Imagem2 = "![]()
"
else
Imagem2 = "![]()
"
end if
End Function
Private Function Informativo(ByVal Cod as object, ByVal NomeArquivo as object) As string
If IsDbNull(NomeArquivo) Then
Informativo = "![]()
"
else
Informativo = "![]()
"
end if
End Function
Private Function Avatar(ByVal Cod as object, ByVal NomeArquivo as object) As string
If IsDbNull(NomeArquivo) Then
Avatar = "![]()
"
else
Avatar = "![]()
"
end if
End Function
Public Function MostraImagem(ByVal Caminho As String, ByVal Arquivo As String) as String
'--------------- Parametros ---------------
'Caminho:
'caminho que esta localizada a imagem.
'Arquivo:
'Nome do arquivo
'------------------------------------------
If Arquivo = "" and InStr(Arquivo, ".") = 0 Then
MostraImagem = "![]()
"
else
MostraImagem = " - Len()
"
MostraImagem += Caminho & Mid(Arquivo, 1, InStr(Arquivo, ".") - 1) & "_prev" & Mid(Arquivo, InStr(Arquivo, "."), Len(Arquivo)) & " BORDER=0 >"
end if
'Descrição: joga pra um componente label o código em html para mostrar uma imagem.
'Retorna:
'Autor: Marcus Costa Braga
'Data de Criação: 24/11/2004
'Situação: Criação das padronizações
'--------------- Alterações ---------------
'Autor: Neylor da Silva Ogliari
'Data da Alteração: 07/01/2005
'Descrição das modificações:
'Correção para bug caso não fosse passado o nome do arquivo.
'--------------- Alterações ---------------
End Function
Public Function MostraImagemPequenaQdoNaoTemImagem(ByVal Caminho As String, ByVal Arquivo As String, Tipo as string, Cod as integer) as String
'--------------- Parametros ---------------
'Caminho:
'caminho que esta localizada a imagem.
'Arquivo:
'Nome do arquivo
'tipo: CodProdutos, ETC
'cod: COD
'------------------------------------------
If Arquivo = "" or InStr(Arquivo, ".") = 0 Then
MostraImagemPequenaQdoNaoTemImagem = ""
else
MostraImagemPequenaQdoNaoTemImagem = "
"
end if
End Function
Public Function ImagemProduto(ByVal Arquivo As String, ByVal CodProduto As Integer) As String
If Arquivo = "" Or InStr(Arquivo, ".") = 0 Then
ImagemProduto = ""
Else
Dim MostrarImagem as boolean = False
if IsNothing(context.Request.Cookies("cl_produtos_aspx_chkMostrarImagemProdutos")) = False Then
MostrarImagem = Context.Request.Cookies("cl_produtos_aspx_chkMostrarImagemProdutos")("cl_produtos_aspx_chkMostrarImagemProdutos")
End If
If MostrarImagem = True Then
ImagemProduto = "
"
Else
ImagemProduto = ""
End If
End If
End Function
Private Function TiraSimbolo(ByVal Texto As String, Optional ByVal Enter As Boolean = False, Optional ByVal Caixa As Boolean = False) as string
'tira os sinais de <> para que o browser não interprete comando em java por exemplo
TiraSimbolo = Texto
TiraSimbolo = Replace(TiraSimbolo, "<", "<")
TiraSimbolo = Replace(TiraSimbolo, ">", ">")
TiraSimbolo = Replace(TiraSimbolo, Chr(60), "<")
TiraSimbolo = Replace(TiraSimbolo, Chr(62), ">")
If Enter Then
TiraSimbolo = Replace(TiraSimbolo, Chr(13), "
")
End If
TiraSimbolo = "" & TiraSimbolo & ""
If Caixa Then
TiraSimbolo = "" & Texto & "
"
End If
End Function
Private Function PrioridadeEtapas(ByVal Dado as object) As string
PrioridadeEtapas = ""
If IsDbNull(Dado) Then
PrioridadeEtapas = ""
Else
Select case Dado
case "1"
PrioridadeEtapas = "Urgente"
case "2"
PrioridadeEtapas = "Em Breve"
case "3"
PrioridadeEtapas = "Em Espera"
End Select
end if
End Function
Private Function PrioridadeCor(ByVal Dado as object) As System.Drawing.Color
PrioridadeCor = System.Drawing.Color.Black
If IsDbNull(Dado) Then
PrioridadeCor = System.Drawing.Color.Black
Else
Select case Dado
case "1"
PrioridadeCor = System.Drawing.Color.Red
case "2"
PrioridadeCor = System.Drawing.Color.Gold
case "3"
PrioridadeCor = System.Drawing.Color.Blue
End Select
end if
End Function
Private Function Feito(ByVal Dado as object) As string
If Dado = "True" Then
Feito = "Feito"
Else
Feito = "Por fazer"
End If
End Function
Private Function Finalizado(ByVal Dado as object) As string
'Marcus - 23/06/2006
If Dado = "True" Then
Finalizado = "Finalizado"
Else
Finalizado = "Aberto"
End If
End Function