nosliwde

Prezados colegas, Na minha página ASP, tenho um campo chamado inData1. A data nele é digitada assim, neste formato: 13/03/2008 A data digitada nele é repassada para a variável dataIni. Verifiquei que no campo a ser pesquisado na tabela, a data se encontra neste formato: 2008-03-13. A query de Consulta é assim: strLista=" SELECT * FROM CHEQUE WHERE CONBANCODIGO="&ReQuest.QueryString("inContaBancaria")&" AND CheDataConciliado BETWEEN cast("&request.QueryString("dataIni")&" as smalldatetime) AND cast("&request.QueryString("dataFim")&" as smalldatetime) ORDER BY CheDataConciliado" A query já está preparada para consultar o formato de data armazenado no campo da tabela. Como faço para converter a data recebida no inData1 no formato 13/03/2008, para o formato 2008/03/13 a ser repassado para dataIni e por fim ser usado na query de consulta? Preciso da sua ajuda para isso. Aguardo vocês.

Caros Colegas, Tenho uma página ASP e preciso fazer uma consulta entre datas, mas está aparecendo o seguinte erro: Microsoft OLE DB Provider for SQL Server error '80040e07' Conversion failed when converting character string to smalldatetime data type. /Financeiro/Cadastro/Conciliacao/LisConciliacao.asp, line 122 Tentei a query assim(esta foi a q gerou a msg de erro acima): strLista=" SELECT * FROM CHEQUE WHERE CONBANCODIGO="&ReQuest.QueryString("inContaBancaria")&" AND CheData BETWEEN ('#13/03/2008#''MM/DD/YYYY') AND ('#20/01/2009#''MM/DD/YYYY') ORDER BY CheData" Minhas outras tentativas: 1) strLista=" SELECT * FROM CHEQUE WHERE CONBANCODIGO="&ReQuest.QueryString("inContaBancaria")&" AND CheData BETWEEN ('#13/03/2008#','MM/DD/YYYY') AND ('#20/01/2009#','MM/DD/YYYY') ORDER BY CheData" 2) strLista=" SELECT * FROM CHEQUE WHERE CONBANCODIGO="&ReQuest.QueryString("inContaBancaria")&" AND CheData BETWEEN '13/03/2008' AND '20/01/2009' ORDER BY CheData" 3) strLista=" SELECT * FROM CHEQUE WHERE CONBANCODIGO="&ReQuest.QueryString("inContaBancaria")&" AND CheData BETWEEN '#13/03/2008#' AND '#20/01/2009#' ORDER BY CheData" Todas deram errado. Como montar então esta consulta? Sei q a mensagem acima tem algo a haver com conversão, mas como fazê-la? Aguardo sua ajuda.

Eis aí o código da minha página: <!-- #include file = "../../Include/Funcao_data.inc" --> <% If Session("PermAccesso")<>0 then if (Session("Acesso")<>"") AND ((InStr(1, Session("Acesso"), ",Financeiro,")<>0) OR (InStr(1, Session("Acesso"), ",Administrador,")<>0)) then else Session("Acesso")="" Session("PermAccesso")=0 response.write "&lt;script>alert('Você não tem acesso a este Módulo.\n\nEntre em contato com seu Usuário Master.');</script>" response.write "&lt;script>parent.location='../index.htm';</script>" end if else Session("Acesso")="" Session("PermAccesso")=0 response.write "&lt;script>alert('Você não esta logado no sistema.\n\nFaça o login digitando seu login e sua senha nos campos indicados');</script>" response.write "&lt;script>parent.location='../index.htm';</script>" end if %> <% function formatadata(data) '--Criando um vetor para teste vVetor = "0,1,2" vVetor = Split(data,"/") new_data = vVetor(2)&"-"&vVetor(1)&"-"&vVetor(0) formatadata = new_data end function TABELA="Conciliacao" tamanho_pagina=20 FORMULARIO="document.form." RAIZ="../../" if Request.QueryString("Pagina")="" then pagina = 1 else pagina = Request.QueryString("Pagina") end if Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open Application("Conexao") if (Request.QueryString("inContaBancaria")<>"") then ' strLista = "SELECT C.*, B.*, A.AgePrefixo, A.AgeDescricao, CB.ConBanNumero, CB.ConBanDescricao FROM Cheque C INNER JOIN ContaBancaria CB ON C.ConBanCodigo = CB.ConBanCodigo INNER JOIN Agencia A ON CB.AgeCodigo = A.AgeCodigo INNER JOIN Banco B ON A.BanNumero = B.BanNumero INNER JOIN Empresa E ON E.EmpCodigo=CB.EmpCodigo INNER JOIN OcorrenciaFinanceira OC ON OC.EmpCodigo=E.EmpCodigo WHERE C.CheDataConciliado IS NULL AND C.ConBanCodigo="&Request.QueryString("inContaBancaria")&" " [color=#FF0000][b]'AQUI SERÃO EFETUADAS MUDANÇAS if Request.form("inData1")="" Then strLista=" SELECT * FROM CHEQUE WHERE CONBANCODIGO="&ReQuest.QueryString("inContaBancaria")&" AND CheDataConciliado is NULL" else strLista=" SELECT * FROM CHEQUE WHERE CONBANCODIGO="&ReQuest.QueryString("inContaBancaria")&" AND CheData BETWEEN #" &Request.Form("inData1")& "# AND #" &Request.form("inData2")& "# " end if [/b][/color]-------------------------------------------------------------------------------------------- 'VERIFICA SE não EXISTE FILTRO if (Request.QueryString("inValor")<>"") then 'MONTAR QUERY DE LISTAGEM COM PESQUISA if not(Request.QueryString("inCampos")="") then strLista = strLista & " AND "& Request.QueryString("inCampos") 'VERIFICA O TIPO DO CAMPO A SER PESQUISADO if not(Request.QueryString("inTipo")="") then 'STRING if Request.QueryString("inTipo")="string" then 'VERIFICA O CRITERIO DE PESQUISA if Request.QueryString("inCriterio")=1 then strLista = strLista & " LIKE '" & Request.QueryString("inValor") & "%' " elseif Request.QueryString("inCriterio")=2 then strLista = strLista & " LIKE '%" & Request.QueryString("inValor") & "%' " else strLista = strLista & " LIKE '" & Request.QueryString("inValor") & "' " end if 'DATA elseif Request.QueryString("inTipo")="data" then strLista = strLista & "= '" & formatadata(Request.QueryString("inValor")) & "' " elseif Request.QueryString("inTipo")="int" then 'VERIFICA O CRITERIO DE PESQUISA if Request.QueryString("inCriterio")=1 then strLista = strLista & "=" & Request.QueryString("inValor") & " " elseif Request.QueryString("inCriterio")=2 then strLista = strLista & ">" & Request.QueryString("inValor") & " " else strLista = strLista & "<" & Request.QueryString("inValor") & " " end if else strLista = strLista & "=" & Request.QueryString("inValor") & " " end if end if else end if end if 'VERIFICA SE FOI PESQUISADO PELA INICIAL if not(Request.QueryString("Inicial")="") then if (Request.QueryString("Inicial")="Num") then strLista = strLista & "AND (CheDestinatario LIKE '[0-9]%')" else strLista = strLista & "AND (CheDestinatario LIKE '" & Request.QueryString("Inicial") & "%')" end if end if '------------------------------------------------------------------------------------------------- if Request.QueryString("inOrdem")<>"" then strLista = strLista + " ORDER BY " & Request.QueryString("inOrdem") else strLista = strLista + " ORDER BY CheNumero" end if Set rsLista = Server.CreateObject("Adodb.Recordset") rsLista.PageSize = tamanho_pagina rsLista.open strLista, Conexao, 1, 3 if rsLista.RecordCount>0 then rsLista.AbsolutePage = pagina end if ultpagina = rsLista.RecordCount\tamanho_pagina shift = rsLista.RecordCount mod tamanho_pagina if shift>0 then ultpagina = ultpagina+1 end if end if %> <html> <head> <title>- FINANCEIRO -</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link rel="stylesheet" href="..\..\Estilos\principal.css"> &lt;script src="..\..\Script\geral.js"></script> &lt;script src="..\..\Script\conciliacao.js"></script> &lt;script src="..\..\Script\pupdate.js"></script> <!-- #include file = "../../Include/calendario.inc" --> &lt;script> function Filtrar_Com(tabela) { <% if Request.QueryString("inContaBancaria")<>"" then%> campo=<%=FORMULARIO%>inCampos.value; valor=<%=FORMULARIO%>inValor.value; criterio=<%=FORMULARIO%>inCriterio.value; ordem=<%=FORMULARIO%>inOrdem.value; <% else%> valor="" ordem="" <% end if%> onjBanco = document.form.ddlBanco; objAgencia = document.form.ddlAgencia; banco = onjBanco.options[onjBanco.selectedIndex].value; agencia = objAgencia.options[objAgencia.selectedIndex].value; document.pesquisa.inBanco.value = banco; document.pesquisa.inAgencia.value = agencia; msg = ""; if (form.inContaBancaria.value=="") { msg+=" Conta Bancaria - Não foi preenchido\n\n>1o Selecione o Banco; \n>2o A Agência; \n>3o A conta Bancária."; } <% if Request.QueryString("inContaBancaria")<>"" then%> if (valor!="") { if (Get_Tipo(tabela,campo) == "int") { if (isNaN(valor)) msg+= "O valor a ser filtrado deve ser número!"; } } <% end if%> if (msg=="") { if (valor!="") { window.location=Get_Lista(tabela)+"?inCampos="+Get_Descricao(tabela,campo)+"&inValor="+valor+"&inCriterio="+criterio+"&inTipo="+Get_Tipo(tabela,campo)+"&inOrdem="+Get_Descricao(tabela,ordem)+"&inContaBancaria="+form.inContaBancaria.value+"&inBanco="+banco+"&inAgencia="+agencia; } else { if (ordem!="") { window.location=Get_Lista(tabela)+"?inContaBancaria="+form.inContaBancaria.value+"&inOrdem="+Get_Descricao(tabela,ordem)+"&inBanco="+banco+"&inAgencia="+agencia; } else { window.location=Get_Lista(tabela)+"?inContaBancaria="+form.inContaBancaria.value+"&inBanco="+banco+"&inAgencia="+agencia; } } } else { alert(msg); } } function Mudar_Criterio(tabela,campo,criterio) { while(criterio.length>0) criterio.options[0]=null if (Get_Tipo(tabela,campo)=="string") { criterio.options[0]=new Option("Começa com", 1) criterio.options[1]=new Option("Contém", 2) criterio.options[2]=new Option("Exata", 3) } else if (Get_Tipo(tabela,campo)=="int") { criterio.options[0]=new Option("=", 1) criterio.options[1]=new Option(">", 2) criterio.options[2]=new Option("<", 3) } } function Pesquisar() { pagina="JanEmpresa.asp" window.open (pagina,"Empresa","toolbar=no,location=no,directories=no,status=no,scrollbars=yes,menubar=no,resizable=no,width=500,height=500,top=30,left=200"); } //FUNCAO PARA MONTAR OS SELECTSBOX ************************************** //*********************************************************************** //ARRAY DA AGENCIA <% strAgencia = "SELECT BANNUMERO, AGECODIGO, AGEPREFIXO, AGEDESCRICAO FROM AGENCIA WHERE EMPCODIGO = "&Session("Empresa") Set rsAgencia = Server.CreateObject("Adodb.Recordset") rsAgencia.open strAgencia, conexao, 1 numArrayAgencia = rsAgencia.RecordCount if(numArrayAgencia <> 0)then i_ag = 1 %> arr_tipo = new Array(<%=numArrayAgencia%>); arr_valor = new Array(<%=numArrayAgencia%>); arr_tipo[0] = "0"; arr_valor[0] = "selecione"; <% while not rsAgencia.EOF %> arr_tipo[<%=i_ag%>] = "<%=rsAgencia("BANNUMERO")%>"; arr_valor[<%=i_ag%>] = "<%=rsAgencia("AGEPREFIXO")&" - "&rsAgencia("AGEDESCRICAO")%>"; <% i_ag = i_ag + 1 rsAgencia.MoveNext wend end if %> //ARRAY DA CONTA BANCÁRIA <% strConta = "SELECT B.AGEPREFIXO, B.AGEDESCRICAO, A.CONBANCODIGO,A.CONBANNUMERO, A.CONBANDESCRICAO FROM CONTABANCARIA A INNER JOIN AGENCIA B ON A.AGECODIGO = B.AGECODIGO WHERE A.EMPCODIGO = "&Session("Empresa") Set rsConta = Server.CreateObject("Adodb.Recordset") rsConta.open strConta, conexao, 1 numArrayConta = rsConta.RecordCount if(numArrayConta <> 0)then i_ct = 1 %> arr1_tipo = new Array(<%=numArrayConta%>) arr1_valor = new Array(<%=numArrayConta%>) arr1_id = new Array(<%=numArrayConta%>) arr1_tipo[0] = "0"; arr1_valor[0] = "Selecione"; arr1_id[0] = "0" <% while not rsConta.EOF %> arr1_tipo[<%= i_ct %>] = "<%=rsConta("AGEPREFIXO")&" - "&rsConta("AGEDESCRICAO")%>"; arr1_valor[<%= i_ct %>] = "<%=rsConta("CONBANNUMERO")&" - "&rsConta("CONBANDESCRICAO")%>"; arr1_id[<%= i_ct %>] = "<%=rsConta("CONBANCODIGO")%>"; <% i_ct = i_ct + 1 rsConta.MoveNext wend end if %> //funcao que monta a Agencia dinamico function setAgencia(){ var listObj = document.form.ddlAgencia; var tamanho = document.form.ddlAgencia.length; var listObjConta = document.form.inContaBancaria; var newOpt; var choice = document.form.ddlBanco; //remove browsers antigos if(listObj.type){ //esvazia a opcao da lista while(listObj.options.length){ listObj.options.remove(0) } //esvazia a conta while(listObjConta.options.length){ listObjConta.options.remove(0) } //variavel de controle var controle = 0 //cria novo objetode opcao para cada entrada for(var i = 0; i < arr_tipo.length; i++){ //criando o elemento newOpt = document.createElement("OPTION") //verificacao dos dados de escolha com o array if(choice.value == arr_tipo[i]){ newOpt.text = arr_valor[i] newOpt.value = arr_valor[i] //criando a variavel option listObj.options.add(newOpt) controle = controle + 1 } if (controle < 1){ newOpt.text = arr_valor[0] listObj.options.add(newOpt) controle = controle + 1 } } listObj.options[0].selected = true; } } //funcao que monta o combo3 dinamico function setConta(){ var listObj = document.form.inContaBancaria var tamanho = document.form.inContaBancaria.length var choice = document.form.ddlAgencia; var newOpt //remove browsers antigos if(listObj.type){ //esvazia a opcao da lista while(listObj.options.length){ listObj.options.remove(0) } //variavel de controle var controle = 0 //cria novo objetode opcao para cada entrada for(var i = 0; i < arr1_tipo.length; i++){ //criando o elemento newOpt = document.createElement("OPTION") //verificacao dos dados de escolha com o array if(choice.value == arr1_tipo[i]){ newOpt.text = arr1_valor[i] newOpt.value = arr1_id[i] //criando a variavel option listObj.options.add(newOpt) controle = controle + 1 } if (controle < 1){ newOpt.text = arr1_valor[0] listObj.options.add(newOpt) controle = controle + 1 } } listObj.options[0].selected = true; } } //*********************************************************************** //*********************************************************************** function loadFiltros(){ var banco = "<%=Request.QueryString("inBanco")%>"; var agencia = "<%=Request.QueryString("inAgencia")%>"; var conta = "<%=Request.QueryString("inContaBancaria")%>"; if(banco != ""){ if(SelectValue(document.form.ddlBanco, banco) == true){ setAgencia(); if(SelectValue(document.form.ddlAgencia, agencia) == true){ setConta(); SelectValue(document.form.inContaBancaria, conta); } } } } function SelectValue(dropdown, valor) { var retur = false; for(i_dropdown = 0; i_dropdown < dropdown.length; i_dropdown++) { if(dropdown.options[i_dropdown].value == valor) { dropdown.options[i_dropdown].selected = true; retur = true; } } return retur; } </script> </head> <body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="java script: loadFiltros();"> <form name="pesquisa" action="LisConciliacao.asp" method="GET" style="margin:0"> <input type="HIDDEN" name="pagina" value="<%=pagina%>"> <input type="HIDDEN" name="primpaglistada" value="<%=Request.QueryString ("primpaglistada")%>"> <input type="HIDDEN" name="inContaBancaria" value="<%=Request.QueryString ("inContaBancaria")%>"> <input type="Hidden" name="inFiltro" value="<%=Request.QueryString("semfiltro")%>"> <input type="Hidden" id="inBanco" name="inBanco" value="<%=Request.QueryString("inBanco")%>"> <input type="Hidden" id="inAgencia" name="inAgencia" value="<%=Request.QueryString("inAgencia")%>"> <input type="Hidden" name="inConta" value="<%=Request.QueryString("inConta")%>"> </form> <br> <!-- TABELA DE RESOLUCAO --> <table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF"> <!-- TAREFAS --> <tr valign="top"> <td align="center"> <table class="tabelaprincipal" bgcolor="e7e7e7" width="95%" border="0" cellspacing="0" cellpadding="4"> <tr align="center"> <td><a href="java script:Filtrar_Com(<%=TABELA%>)"><img src="../../Imagens/funil00.gif" border=0 alt="" width="16" height="13"></a></td> <td><a href="java script:window.location= Get_Lista(<%=TABELA%>)+'?semfiltro=1'+'&inContaBancaria=<%=Request.QueryString("inContaBancaria")%>'"><img src="../../Imagens/Semfiltro00.gif" border=0 alt="" width="16" height="13"></a></td> <td><a href="java script:Excluir(<%=TABELA%>)"><img src="../../Imagens/Excluir_Selecionados.gif" border=0 alt="" width="16" height="16"></a></td> <td><a href='java script:Conciliar(<%=TABELA%>)'><img src="../../Imagens/conciliar.gif" border=0></a></td> <td><a href="java script:VerConciliado(<%=CodEmpresa%>)"><img src="../../Imagens/ver.gif" border=0 alt=""></a></td> <td align="right"><b>Listagem de &lt;script>document.write (Get_Nome_Tabela(<%=TABELA%>))</script></b></td> <td width="10"> </td> </tr> <tr align="center"> <td class="legenda_desabilitada"><a href="java script:Filtrar_Com(<%=TABELA%>)">Filtrar</a></td> <td class="legenda_desabilitada"><a href="java script:window.location= Get_Lista(<%=TABELA%>)+'?semfiltro=1'+'&inContaBancaria=<%=Request.QueryString("inContaBancaria")%>'">Sem Filtro</a></td> <td class="legenda_desabilitada"><a href="java script:Excluir(<%=TABELA%>)">Excluir<br>Selecionados</a></td> <td class="legenda_desabilitada"><a href='java script:Conciliar(<%=TABELA%>)'>Conciliar<br>Selecionadas</a></td> <td class="legenda_desabilitada"><a href="java script:VerConciliado(<%=CodEmpresa%>)">Ver<br>Conciliados</a></td> <td class="legenda"> </td> <td class="legenda" width="10"> </td> </tr> </table> </td> </tr> <tr><td> </td></tr> <form name="form" method="post" action=""> <tr> <td align="center"> <table class="tabelaprincipal" width="85%" border="0" cellspacing="0" cellpadding="3"> <tr> <td> [b] <b>Dt Inicial.: </b> <input type="text" name="inData1" value="" size="10" maxlength="10" onFocus="return Focu(this)" onBlur="return Sair(this)" class="entrada" > (dd/mm/aaaa)<br> <img src="../../imagens/Calendario01.jpg" onClick="java script:getCalendarFor(inData1); document.form.inData1.focus()" style="cursor:hand"><br><br>[/b] <label><b>Banco:</b></label> <%'Seleciona os Bancos no BD strBanco = "SELECT BANNUMERO, BANDESCRICAO FROM BANCO WHERE EMPCODIGO = "&Session("Empresa")&" ORDER BY BANDESCRICAO" Set rsBanco = Server.CreateObject("Adodb.Recordset") rsBanco.open strBanco, conexao, 1, 3 %> <select name="ddlBanco" style="width:200px;" onChange="java script: setAgencia();" class="entrada"> <%'Atribui valores à Caixa de Lista com o nome do Banco%> <option value="0">Selecione o Banco</option> <% while not rsBanco.EOF %> <option value="<%=rsBanco("BANNUMERO")%>"><%=rsBanco("BANDESCRICAO")%></option> <% rsBanco.MoveNext wend %> </select> </td> <td style="padding:5px;" align="left"> [b] <b>Dt Final.: </b> <input type="text" name="inData2" value="" size="10" maxlength="10" onFocus="return Focu(this)" onBlur="return Sair(this)" class="entrada" onKeyUp="java script: MascaraData('form',this.name,this.value)"> (dd/mm/aaaa)<br> <img src="../../imagens/Calendario01.jpg" onClick="java script:getCalendarFor(inData2); document.form.inData.focus()" style="cursor:hand"><br><br>[/b] <label><b>Ag.:</b></label> <%'Atribui valores à Caixa de Lista com o nome da Agência%> <select name="ddlAgencia" style="width:200px;" onChange="java script: setConta();" class="entrada"> <option value=""></option> </select> </td> <td style="padding:5px;" align="left"> <br><br><br><label><b>Conta:</b></label> <%'Atribui valores à Caixa de Lista com o nome do Banco%> <select name="inContaBancaria" class="entrada" style="width:200px;" onChange="java script: Filtrar_Com(<%=TABELA%>)"> <option value=""> </option> <% if Request.QueryString("inContaBancaria")<>"" then %> &lt;script>Seleciona_Option(<%=Request.QueryString("inContaBancaria")%>, document.form.inContaBancaria)</script> <%end if%> </select> </td> <% if Request.QueryString("inContaBancaria")<>"" then %> <td style="padding:5px;"><b>Dt Inicial.: </b> <input type="text" name="inData" value="<%if Request.QueryString("inData")<>"" then response.write Request.QueryString("inData") else response.write ""%>" size="10" maxlength="10" onFocus="return Focu(this)" onBlur="return Sair(this)" class="entrada" onKeyUp="java script: MascaraData('form',this.name,this.value)"> <img src="../../imagens/Calendario01.jpg" onClick="java script:getCalendarFor(inData); document.form.inData.focus()" style="cursor:hand"> </td> <td width="122"> </td> <% end if %> </tr> </td> </tr> </table> </td> </tr> <tr><td> </td></tr> <% if Request.QueryString("inContaBancaria")<>"" then%> <tr> <td align="center"> <!-- TABELA DE FILTRO --> <!-- TABELA DE FILTROS --> <table class="tabelaprincipal" width="85%" border="0" cellspacing="0" cellpadding="2"> <tr> <td width="20"> </td> <td align="right"><b>Campos: </b></td> <td> <select onChange="Mudar_Criterio(<%=TABELA%>,this.value,<%=FORMULARIO%>inCriterio)" name="inCampos" style="font-size: 9; background-color:'ffffff'; color:'000000';"></select> &lt;script> Carrega_Select(<%=TABELA%>,<%=FORMULARIO%>inCampos,"<%=Request.QueryString("inCampos")%>"); </script> </td> <td> <b>Critérios: </b> <select name="inCriterio" style="font-size: 9; background-color:'ffffff'; color:'000000';"></select> &lt;script>Mudar_Criterio(<%=TABELA%>,<%=FORMULARIO%>inCampos.value,<%=FORMULARIO%>inCriterio)</script> <% if Request.QueryString("inCriterio")<>"" then %> &lt;script>Seleciona_Option(<%=Request.QueryString("inCriterio")%>,<%=FORMULARIO%>inCriterio)</script> <% end if %> </td> <td> <b>Ordenação: </b> <select name="inOrdem" style="font-size: 9; background-color:'ffffff'; color:'000000';"></select> &lt;script>Carrega_Select(<%=TABELA%>,<%=FORMULARIO%>inOrdem,"<%=Request.QueryString("inOrdem")%>")</script> </td> <td width="20"> </td> </tr> <tr> <td width="20"> </td> <td align="right"><b>Valor: </b></td> <td colspan="3"><input name="inValor" type="Text" size="50" value="<%=Request.QueryString("inValor")%>"></td> <td width="20"> </td> </tr> <tr> <td width="20"> </td> <td colspan="4"> <!-- TABELA DE FILTROS --> <table width="85%" border="0" cellspacing="0" cellpadding="2"> <tr> <% cont=65 while (cont < 91) %> <td align='center'> <a href="java script:window.location= Get_Lista(<%=TABELA%>) + '?Inicial=<%=Chr(cont)%>'+'&inContaBancaria=<%=Request.QueryString("inContaBancaria")%>'" <% if (Request.QueryString("Inicial")=Chr(cont)) then response.write " class='destaque'" response.write ">" &Chr(cont)& "</a></td>" cont=cont+1 wend %> <td align='center'> <a href="java script:window.location= Get_Lista(<%=TABELA%>) + '?Inicial=Num'+'&inContaBancaria=<%=Request.QueryString("inContaBancaria")%>'" <% if (Request.QueryString("Inicial")="Num") then response.write " class='destaque'" response.write ">Num</a></td>"%> </tr> </table> </td> <td width="20"> </td> </tr> </table> </td> </tr> <% end if%> <tr><td> </td></tr> <!-- TABELA DEBITO/CREDITO/SALDO --> <% if Request.QueryString("inContaBancaria")<>"" then%> <tr><td> </td></tr> <!-- TABELA DE CAMPOS --> <tr> <td> <table width="95%" border="0" cellspacing="0" cellpadding="0" align="center"> <tr> <td colspan="3" align="left"><b>Nº total de registros: <%=rsLista.recordcount%></b></td> <td colspan="2" align="right"><b>Página <%=pagina%> de <%=ultpagina%></b> </td> </tr> <tr bgcolor="#0672a7"> <td width="5"> </td> <td class="barra" >Cheque</td> <td class="barra" >Destinatário</td> <td class="barra">Data Emissão </td> <td class="barra" align="right" >Valor (R$)</td> </tr> <% cont=0 do while not (rsLista.EOF) if (cont mod 2)=0 then cor="linha01" else cor="linha02" end if if rsLista("CheTipo")="Cheque" then cor_texto="#FF0000" else cor_texto="#0000FF" end if %> <tr class=<%=cor%>> <td align="center"><input type="Checkbox" name="Check" class="lista" value="<%=rsLista("CheCodigo")%>"></td> <td><font color=<%=cor_texto%>><%=rsLista("CheNumero")%></td> <td><font color=<%=cor_texto%>><%=rsLista("CheDestinatario")%></td> <td><font color=<%=cor_texto%>><%=Ajusta_Data(rsLista("CheData"),1)%></td> <td align="right"><font color=<%=cor_texto%>><%=FormatNumber(rsLista("CheValor"),2)%></td> </tr> <% rsLista.MoveNext cont=cont+1 Loop %> </table> </td> </tr> <tr><td> </td></tr> <!-- PÁGINA --> <!-- #include file = "../../Include/Include_Pagina_Num.inc" --> <% end if%> <tr><td> </td></tr> </td> </tr> </form> </table> </body> </html> <% 'LIBERA AS CONSULTAS if Request.QueryString("inContaBancaria")<>"" then rsLista.Close Set rsLista=nothing end if rsBanco.close set rsBanco = nothing rsConta.close set rsConta = nothing rsAgencia.close set rsAgencia = nothing conexao.close Set conexao=nothing %> No trecho que destaquei em vermelho, ele analisa se o campo inData1 está vazio. Se estiver executa uma query, senão estiver, executa a outra query. O problema é que mesmo que eu escolha a data no calendáriozinho abaixo do campo, somente a primeira query é executada, pois inData1 sempre está vazio. O que pode estar acontecendo aí? inData1 está sempre chegando sem valor. Por favor, me ajudem.

Caros colegas, Tenho que consultar registros em uma tabela no BD, começando de uma data inicial até uma data final. Na tabela, existe um campo chamado CheData e a data lá está armazenada assim: 13/03/2008 00:00:00 Estou tentando consultar assim: strLista=" SELECT * FROM CHEQUE WHERE CONBANCODIGO="&ReQuest.QueryString("inContaBancaria") &" AND CheData='13/08'2008'" No exemplo acima usei apenas uma data como exemplo, mas não me retorna nenhum resultado. Preciso por exemplo, consultar todas as emissões de cheques entra a data de 13/03/2008 até o dia 25/12/2008. Como faço este tipo de consulta? Alguém aí pode me ajudar?

Meus caros colegas, Tenho a LisAnalitico.asp que possui um campo de código e outro de descrição. Quando o campo código é preenchido, ao pressionar o a tecla TAB, dispara o evento Onblur com a seguinte especificação: <input type="Text" name="inCenCusIndice" size="6" value="<%=INDICECC%>" onFocus="return Focu(this)" onBlur="Pesquisar('PesCentroCusto2.asp',form.inCenCusDescricao.value, form.inCenCusIndice.value);return Sair(this)" class="entrada"> Uma função JavaScript Pesquisar é chamada e são passados para ela 2 valores, o valor do campo inCenCusDescricao e do campo inCenCusIndice e a página PesCentroCusto2.asp onde acontecerá a consulta no Banco de Dados. Eis a função Pesquisar: function Pesquisar() { //arguments[0] = pagina //arguments[1] = descricao //arguments[2] = codigo pagina=arguments[0] check=true; if (arguments.length > 1) //se existir mais de um parametro na funcao { tam = arguments[0].length; for (i=0;i<=tam;i++) { if (arguments[0].charAt(i)=='?') check=false; //verifica se existe o caracter '?' no parametro } if (check==false) //caso exista o '?' a funcao acrescentara parametros com o '&' { if (arguments[1] !='' && arguments[2] != '') pagina = pagina +'&pesqdescricao='+arguments[1] +'&pesqcodigo='+arguments[2]; else if (arguments[1] !='') pagina = pagina +'&pesqdescricao='+arguments[1]; else if (arguments[2] !='') pagina = pagina +'&pesqcodigo='+arguments[2]; } else //caso não exista o '?' a funcao acrescentara o primeiro parametro com o '?' e o restante com '&' { if (arguments[1]!='' && arguments[2]!='') pagina = pagina +'?pesqdescricao='+arguments[1]+'&pesqcodigo='+arguments[2]; else if (arguments[1]!='') pagina = pagina +'?pesqdescricao='+arguments[1]; else if (arguments[2]!='') pagina = pagina +'?pesqcodigo='+arguments[2]; } } window.open (pagina,"","toolbar=no,location=no,directories=no,status=no,scrollbars=yes,menubar=no,r esizable=no,width=650,height=500,top=30,left=100"); } Até aí tudo bem. A página PesCentroCusto2.asp é a página que possui o código para pesquisa. No momento, ela exibe o resultado da pesquisa, cada linha de resultado é um link e então o usuário tem que clicar sobre o resultado em forma de link que ativará uma função chamada Selecionar na pág. PesCentroCusto2.asp que fechará a página e enviará o resultado pesquisado e selecionado devolta à página que a chamou, a LisAnalitico.asp, preenchendo automaticamente os campos código e descrição em LisAnalitico.asp. Eis a função JavaScript Selecionar: <script> function Selecionar(cod,ind,desc) { window.opener.document.form.inCenCusCodigo.value= cod; window.opener.document.form.inCenCusIndice.value= ind; window.opener.document.form.inCenCusDescricao.value= desc; window.close(); } </script> Agora a minha dúvida é: Eu queria que após a consulta, não fosse preciso o usuário clicar no resultado exibido na tela. Queria que após o código de consulta da página PesCentroCusto2.asp encontrar o resultado pesquisado, que a função Selecionar (descrita acima) fosse automaticamente chamada, então os campos código e descrição da pág. LisAnalitico.asp seriam automaticamente preenchidos. Como é que faço isto? Sei que a função Selecionar transfere os valores encontrados e automaticamente fecha a janela, mas como ativar esta função sem precisar clicar em um link? Eu tentei assim e não funcionou.: <% 'Testes if rsCentroCusto.recordcount = 1 Then response.write "<script> java script:Selecionar;</script>" end if %> Eu disse que se a contagem do recordset acusar 1, então apenas 1 registro foi encontrado e aí chama a função que fecha a página e carrega os valores Mas não funcionou. O que devo fazer então? Como eu faço pra chamar esta função javaScript? Alguém pode me informar? Já estou tentando ajuda desde ontem, mas ninguém ainda me disse o que e como fazer. Por favor me ajudem. Aguardo seu parecer. Obrigado!

Ei o Código completo da página de consulta: <% If Session("PermAccesso")<>0 then if (Session("Acesso")<>"") AND ((InStr(1, Session("Acesso"), ",Financeiro,")<>0) OR (InStr(1, Session("Acesso"), ",Administrador,")<>0)) then else Session("Acesso")="" Session("PermAccesso")=0 response.write "<script>alert('Você não tem acesso a este Módulo.\n\nEntre em contato com seu Usuário Master.');</script>" response.write "<script>parent.location='../index.htm';</script>" end if else Session("Acesso")="" Session("PermAccesso")=0 response.write "<script>alert('Você não esta logado no sistema.\n\nFaça o login digitando seu login e sua senha nos campos indicados');</script>" response.write "<script>parent.location='../index.htm';</script>" end if %> <% TABELA="CentrodeCusto" RAIZ="../../" TIPO_MENU="Listagem" tamanho_pagina= 30 %> <html> <head> <title>- CENTROS DE CUSTO -</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link rel="stylesheet" href="..\..\Estilos\principal.css"> <!-- FUNCOES --> <script src="..\..\Script\geral.js"></script> <script src="..\..\Script\analitico.js"></script> <script> function Selecionar(cod,ind,desc) { window.opener.document.form.inCenCusCodigo.value= cod; window.opener.document.form.inCenCusIndice.value= ind; window.opener.document.form.inCenCusDescricao.value= desc; window.close(); } </script> </head> <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="cod0.focus()"> <% 'VERIFICA EM QUAL PAGINA ESTA if Request.QueryString("Pagina")="" then pagina = 1 else pagina = Request.QueryString("Pagina") end if Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open Application("Conexao") str = "SELECT COUNT(CenCusCodigo) AS TOTAL FROM CentroCusto CC INNER JOIN ACESSO_PERMISSAO A ON (A.EMPCODIGO=CC.EMPCODIGO) AND (CONVERT(INT,A.ACEPERCONTROLE01)=CC.CENCUSCODIGO) AND (A.USUCODIGO=" & Session("PermAccesso") & ") AND (ACEPERESCOPO='CENTROCUSTO') WHERE CC.EmpCodigo=" & Session("Empresa") & " " 'str = "SELECT COUNT(CenCusCodigo) AS TOTAL FROM CentroCusto WHERE (EmpCodigo="&session("Empresa")&")" Set rsTotal = Server.CreateObject("Adodb.Recordset") rsTotal.open str, Conexao, 1, 3 strLista = "SELECT CenCusCodigo, CenCusIndice, CenCusDescricao FROM CentroCusto CC INNER JOIN ACESSO_PERMISSAO A ON (A.EMPCODIGO=CC.EMPCODIGO) AND (CONVERT(INT,A.ACEPERCONTROLE01)=CC.CENCUSCODIGO) AND (A.USUCODIGO=" & Session("PermAccesso") & ") AND (ACEPERESCOPO='CENTROCUSTO') WHERE CC.EmpCodigo=" & Session("Empresa") & " " ' strLista = "SELECT CenCusCodigo, CenCusIndice, CenCusDescricao FROM CentroCusto WHERE (EmpCodigo="&session("Empresa")&")" 'VERIFICA SE não EXISTE FILTRO if (Request.QueryString("semfiltro")<>1) then 'MONTAR QUERY DE LISTAGEM COM PESQUISA if not(Request.QueryString("inCampos")="") then strLista = strLista & " AND "& Request.QueryString("inCampos") 'VERIFICA O TIPO DO CAMPO A SER PESQUISADO if not(Request.QueryString("inTipo")="") then 'STRING if Request.QueryString("inTipo")="string" then 'VERIFICA O CRITERIO DE PESQUISA if Request.QueryString("inCriterio")=1 then strLista = strLista & " LIKE '" & Request.QueryString("inValor") & "%' " elseif Request.QueryString("inCriterio")=2 then strLista = strLista & " LIKE '%" & Request.QueryString("inValor") & "%' " else strLista = strLista & " LIKE '" & Request.QueryString("inValor") & "' " end if 'DATA elseif Request.QueryString("inTipo")="data" then strLista = strLista & "= '#" & Request.QueryString("inValor") & "#' " elseif Request.QueryString("inTipo")="int" then 'VERIFICA O CRITERIO DE PESQUISA if Request.QueryString("inCriterio")=1 then strLista = strLista & "=" & Request.QueryString("inValor") & " " elseif Request.QueryString("inCriterio")=2 then strLista = strLista & ">" & Request.QueryString("inValor") & " " else strLista = strLista & "<" & Request.QueryString("inValor") & " " end if else strLista = strLista & "=" & Request.QueryString("inValor") & " " end if end if strLista = strLista + " ORDER BY " & Request.QueryString("inOrdem") else 'VERIFICA SE FOI PESQUISADO PELA INICIAL if not(Request.QueryString("Inicial")="") then if (Request.QueryString("Inicial")="Num") then strLista = strLista & "AND (CenCusDescricao LIKE '[0-9]%')" else strLista = strLista & "AND (CenCusDescricao LIKE '" & Request.QueryString("Inicial") & "%')" end if else if Request.QueryString("pesqdescricao") <> "" then strlista = strlista & " AND CenCusDescricao LIKE '%" & Request.QueryString("pesqdescricao") & "%'" elseif Request.QueryString("pesqcodigo") <> "" then strlista = strlista & " AND CenCusIndice LIKE '" & Request.QueryString("pesqcodigo")&"%' " end if strLista = strLista & " AND (0=0)" end if strLista = strLista + " ORDER BY CenCusIndice" end if else strLista = strLista + " ORDER BY CenCusIndice" end if Set rsCentroCusto = Server.CreateObject("Adodb.Recordset") rsCentroCusto.CursorLocation = 3 rsCentroCusto.PageSize = tamanho_pagina rsCentroCusto.open strLista, conexao, 1, 3 'VERIFICA QUANTAS PAGINAS TERÁ if rsCentroCusto.RecordCount>0 then rsCentroCusto.AbsolutePage = pagina end if ultpagina = rsCentroCusto.RecordCount\tamanho_pagina sobra = rsCentroCusto.RecordCount mod tamanho_pagina if sobra>0 then ultpagina = ultpagina+1 end if ' response.write request.querystring("semfiltro") %> <form name="pesquisa" action="PesCentroCusto2.asp" method="GET" style="margin:0"> <input type="HIDDEN" name="pagina" value="<%=pagina%>"> <input type="Hidden" name="inCampos" value="<%=Request.QueryString("inCampos")%>"> <input type="Hidden" name="txValor" value="<%=Request.QueryString("inValor")%>"> <input type="Hidden" name="Inicial" value="<%=Request.QueryString("Inicial")%>"> <input type="Hidden" name="inTipo" value="<%=Request.QueryString("inTipo")%>"> <input type="Hidden" name="inCriterio" value="<%=Request.QueryString("inCriterio")%>"> <input type="Hidden" name="inOrdem" value="<%=Request.QueryString("inOrdem")%>"> </form> <!-- TABELA DE RESOLUCAO --> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr valign="top"> <td align="center"> <% TITULO_SUPERIOR="FINANCEIRO :: COLETA :: C. DE CUSTO" TITULO_INFERIOR="PESQUISA DE CENTRO DE CUSTO" %> <!-- #include file = "../../Include/Include_barrasox.inc" --> <br> <table width="300" align="CENTER" border="2" bordercolor="#999999" cellspacing="0" cellpadding="8"> <tr> <td align="CENTER"> <input name="close" type="button" class="botoes_01" value=" Fechar " onClick="java script:window.close()"> </td> </tr> </table> <br> <%'/////////////////////////// FILTRO /////////////////////////////////////////////////%> <!-- #include file = "../../Include/Include_Filtro.inc" --> <br> <table bgcolor="#ffffff" width="95%" border="0" cellspacing="0" cellpadding="0"> <tr valign="top"> <td> <table width="90%" border="0" cellspacing="0" cellpadding="0" align="center"> <tr valign="top" align="center"> <td> <tr> <td>N&ordm; Total: <b><%=rsTotal("TOTAL")%></b></td> <td align="right" style="color:Red; font-family:Verdana;"><b>P&aacute;gina <%=pagina%> de <%=ultpagina%>&nbsp;&nbsp;&nbsp;</b></td> </tr> <!-- TABELA DE CAMPOS --> <table width="100%" border="0" cellspacing="0" cellpadding="2"> <tr> <td class="titulo" width="20%">Código</td> <td class="titulo">Descrição</td> </tr> <% cont=0 do while not (rsCentroCusto.EOF) and (cont<tamanho_pagina) if (cont mod 2)=0 then cor="linha01" else cor="linha02" %> <tr class="<%=cor%>" > <td><a name="cod<%=cont%>" class="pesquisa" href="java script:Selecionar(<%=rsCentroCusto("CenCusCodigo")%>,'<%=rsCentroCusto("CenCusIndice")%>','<%=rsCentroCusto("CenCusDescricao")%>')"><%=rsCentroCusto("CenCusIndice")%></a></td> <td><a class="pesquisa" href="java script:Selecionar(<%=rsCentroCusto("CenCusCodigo")%>,'<%=rsCentroCusto("CenCusIndice")%>','<%=rsCentroCusto("CenCusDescricao")%>')"><%=rsCentroCusto("CenCusDescricao")%></a></td> </tr> <% rsCentroCusto.MoveNext cont=cont+1 Loop 'Testes if rsCentroCusto.recordcount = 1 Then response.Write ("Items Encontrados..: "& rsCentroCusto.recordcount) %> java script:Selecionar(<%=rsCentroCusto("CenCusCodigo")%>,<%=rsCentroCusto("CenCusCodigo")%>,<%=rsCentroCusto("CenCusDescricao")%>) <% end if %> </table> </td> </tr> </table> <!-- FIM DA TABELA DE CAMPOS --> </td> </tr> </table> <br> <!-- FIM DA TABELA DE RESOLUCAO --> <table align="center"> <tr> <td> <!-- PÁGINA --> <!-- #include file = "../../Include/Include_Pagina.inc" --> </td> </tr> </table> <br> <br> </td> </tr> </table> </body> </html> <% 'LIBERA AS CONSULTAS rsCentroCusto.Close Set rsCentroCusto=nothing rsTotal.Close Set rsTotal=nothing conexao.close Set conexao=nothing %> Select se eu não fizer isto cabeças irão rolar, mas o meu Senhor é Deus e a porta que ele abre ninguém fecha

Meus caros colegas, Tenho a LisAnalitico.asp que possui um campo de código e outro de descrição. Quando o campo código é preenchido, ao pressionar o a tecla TAB, dispara o evento Onblur com a seguinte especificação: <input type="Text" name="inCenCusIndice" size="6" value="<%=INDICECC%>" onFocus="return Focu(this)" onBlur="Pesquisar('PesCentroCusto2.asp',form.inCenCusDescricao.value, form.inCenCusIndice.value);return Sair(this)" class="entrada"> Uma função JavaScript Pesquisar é chamada e são passados para ela 2 valores, o valor do campo inCenCusDescricao e do campo inCenCusIndice e a página PesCentroCusto2.asp onde acontecerá a consulta no Banco de Dados. Eis a função Pesquisar: function Pesquisar() { //arguments[0] = pagina //arguments[1] = descricao //arguments[2] = codigo pagina=arguments[0] check=true; if (arguments.length > 1) //se existir mais de um parametro na funcao { tam = arguments[0].length; for (i=0;i<=tam;i++) { if (arguments[0].charAt(i)=='?') check=false; //verifica se existe o caracter '?' no parametro } if (check==false) //caso exista o '?' a funcao acrescentara parametros com o '&' { if (arguments[1] !='' && arguments[2] != '') pagina = pagina +'&pesqdescricao='+arguments[1] +'&pesqcodigo='+arguments[2]; else if (arguments[1] !='') pagina = pagina +'&pesqdescricao='+arguments[1]; else if (arguments[2] !='') pagina = pagina +'&pesqcodigo='+arguments[2]; } else //caso não exista o '?' a funcao acrescentara o primeiro parametro com o '?' e o restante com '&' { if (arguments[1]!='' && arguments[2]!='') pagina = pagina +'?pesqdescricao='+arguments[1]+'&pesqcodigo='+arguments[2]; else if (arguments[1]!='') pagina = pagina +'?pesqdescricao='+arguments[1]; else if (arguments[2]!='') pagina = pagina +'?pesqcodigo='+arguments[2]; } } window.open (pagina,"","toolbar=no,location=no,directories=no,status=no,scrollbars=yes,menubar=no,resizable=no,width=650,height=500,top=30,left=100"); } Até tudo bem. A página PesCentroCusto2.asp é a página que possui o código para pesquisa. No momento, ela exibe o resultado da pesquisa, cada linha de resultado é um link e então o usuário tem que clicar sobre o resultado em forma de link que ativará uma função chamada Selecionar na pág. PesCentroCusto2.asp que fechará a página e enviará o resultado pesquisado e selecionado devolta à página que a chamou, a LisAnalitico.asp, preenchendo automaticamente os campos código e descrição em LisAnalitico.asp. Eis a função JavaScript Selecionar: <script> function Selecionar(cod,ind,desc) { window.opener.document.form.inCenCusCodigo.value= cod; window.opener.document.form.inCenCusIndice.value= ind; window.opener.document.form.inCenCusDescricao.value= desc; window.close(); } </script> Agora a minha dúvida é: Eu queria que após a consulta, não fosse preciso o usuário clicar no resultado exibido na tela. Queria que após o código de consulta da página PesCentroCusto2.asp encontrar o resultado pesquisado, que a função Selecionar (descrita acima) fosse automaticamente chamada, então os campos código e descrição da pág. LisAnalitico.asp seriam automaticamente preenchidos. Como é que faço isto? Sei que a função Selecionar transfere os valores encontrados e automaticamente fecha a janela, mas como ativar esta função sem precisar clicar em um link? Eu tentei assim e não funcionou.: Mas não funcionou. E então, tem jeito? O que vocês me dizem? Existe uma outra forma. Por favor me ajudem. Aguardo seu parecer. Obrigado!