Destaque

Como devemos encarar nossa vida profissional Algumas pessoas me perguntam que tipo de trabalho elas poderiam fazer pra ganhar dinheiro, para estas pessoas sempre mostro este texto: "Não paute sua vida, nem sua carreira, pelo dinheiro. Ame seu ofício com todo o coração. Persiga fazer o melhor. Seja fascinado pelo realizar, que o dinheiro...

Read more

Como a realidade aumentada poderá mudar sua vida no... GPS mais desenvolvido, redes sociais revolucionárias e novas maneiras de fazer compras. Faça um passeio pela realidade aumentada e veja como esta tecnologia pode mudar a nossa vida nos próximos anos. Quando assistimos aos filmes de ficção com ambientação no futuro é comum vermos carros voadores,...

Read more

Delphi: Redimesionar form child em MDI Esta rotina redimensiona o formulário Child de uma aplicação MDI para preencher todo a área do form pai. procedure TForm1.SetBounds(ALeft, ATop, AWidth, AHeight: Integer); var MainForm: TForm; Rect: TRect; //OurWidth: Integer; //OurHeight: Integer; begin if Showing then begin MainForm :=...

Read more

ASP e SQL Server: Pegar o retorno do campo ID da tabela... Bom Pessoal, vamos idealizar Uma Rotina Muito Usada, tipo Uma Vendas de Produtos, existem Onde a Tabela de Vendas da EA tabela de itens das Vendas, EO Grande Problema É Como gravar nd tabela itens de Vendas Vendas o ID da tabela, tem aqui uma Solução sem gambiarras código Tabajara Nem. Rotina ESSA...

Read more

Ajax: Filtrando combo cidades pelo estado

0

Postado em : 19-07-2009 | By : Paulo H Oliveira | In : ASP, Ajax
// Combo das cidades
<%
set rsCids = Server.CreateObject(“adodb.recordset”)
rsCids.open “SELECT CATCODIGO, CATDESCRICAO FROM CATEGORIAS WHERE CATTIPO=’C’ ORDER BY CATDESCRICAO”, conn
%>
<select name=”scidades” id=”scidades” onchange=”grupobairros();”>
<option value=”">Escolha a Cidade</option>
<% while not rsCids.Eof %>
<option value=”<%=rsCids(“catcodigo”)%>”><%=rsCids(“catdescricao”)%></option>
<%
rsCids.MoveNext
wend
rsCids.Close
set rsCids = nothing
%>
</select>
// div dos bairros
<div>
<span id=’divgrupobairros’>
<table>
<tr><td> –Selecione a cidade–</td></tr>
</table>
</span></div>
// Script do Ajax
<script>
function grupobairros()
{
var vbairros = createXMLHTTP();
vbairros.open(“post”, “objbairros.asp”, true);
vbairros.setRequestHeader(“Content-Type”, “application/x-www-form-urlencoded”);
vbairros.onreadystatechange=function(){
if (vbairros.readyState==4){
document.all.divgrupobairros.innerHTML = vbairros.responseText;}}
vbairros.send(“codcid=” + frmlocalizar.scidades.value);
}
</script>
// Arquivo objbairros.asp
<%
‘RESGATA O ID DA CIDADE SELECIONADA PARA FAZER A SELAÇÃO DOS BAIRROS.
codcid = request(“codcid”)
‘AQUI ESTÁ NOSSO SELECT.
set rsBairros = server.createobject(“adodb.recordset”)
rsBairros.open “SELECT catcodigo, catdescricao FROM categorias WHERE cattipo = ‘B’ AND catvinculo = “&codcid&” ORDER BY catdescricao ASC”, conn
%>
<!– AUI MONTAMOS NOSSA COMBO DE BAIRROS, CONFORME A CIDADE SELECIONADA –>
<table>
<% while not rsBairros.EOF %>
<tr><td> <input type=”checkbox” value=”chkbairros_<%=rsBairros(“catcodigo”)%>” /><%=rsBairros(“catdescricao”)%></td></tr>
<%
rsBairros.MoveNext
wend
rsBairros.close
set rsBairros = nothing
%>
</table>

Quando queremos mostrar somente as cidades de um estado sem dar “refresh” na tela toda devemos fazer um AJAX para rodar e carregar somente as cidades do estado selecionado, esta rotina está em ASP.

Read the rest of this entry »

ASP: Funções de Data, semana e mês

0

Postado em : 23-06-2009 | By : Paulo H Oliveira | In : ASP
Function Semana(DiaSemana)
select case DiaSemana
case 1 Semana = “Domingo”
case 2 Semana = “Segunda-Feira”
case 3 Semana = “Terça-Feira”
case 4 Semana = “Quarta-Feira”
case 5 Semana = “Quinta-Feira”
case 6 Semana = “Sexta-Feira”
case 7 Semana = “Sabado”
end select
End Function

Function Mes(NroMes)
select case NroMes
case 1 Mes = “Janeiro”
case 2 Mes = “Fevereiro”
case 3 Mes = “Março”
case 4 Mes = “Abril”
case 5 Mes = “Maio”
case 6 Mes = “Junho”
case 7 Mes = “Julho”
case 8 Mes = “Agosto”
case 9 Mes = “Setembro”
case 10 Mes = “Outubro”
case 11 Mes = “Novembro”
case 12 Mes = “Dezembro”
end select
End Function

Function MesShort(NroMes)
select case NroMes
case 1 MesShort = “Jan”
case 2 MesShort = “Fev”
case 3 MesShort = “Mar”
case 4 MesShort = “Abr”
case 5 MesShort = “Mai”
case 6 MesShort = “Jun”
case 7 MesShort = “Jul”
case 8 MesShort = “Ago”
case 9 MesShort = “Set”
case 10 MesShort = “Out”
case 11 MesShort = “Nov”
case 12 MesShort = “Dez”
end select
End Function

ASP: formata a data

0

Postado em : 21-06-2009 | By : Paulo H Oliveira | In : ASP
function formatadata(data)
‘–Criando um vetor para teste
vVetor = “0,1,2″
vVetor = Split(data,”/”)

new_data = vVetor(1)&”-”&vVetor(0)&”-”&vVetor(2)

formatadata = new_data
end function

ASP: Função iif também no asp

0

Postado em : 20-06-2009 | By : Paulo H Oliveira | In : ASP
function IIF(Condicao, valret1, valret2)
if Condicao then
IIF = valret1
else
IIF = valret2
end if
end function