none
Formato de Data RRS feed

  • Pergunta

  • Bom dia pessoal estou com um problema à vários dias.

     

    Tenho uma aplicação em asp que grava num banco access, só que ele sempre está gravando no formato americano.....como faço para ele gravar no formato brasileiro.

    Uma outra dúvida é que quando vou pesquisar por data exemplo:

    01/05/2006 à 31/05/2006 ele me mostra informações de 05/01/2006 à 31/05/2006.

    Como faço para resolver isso, meus sistemas aqui da empresa estão entrando em colapso por causa disso.

    Agradeço,

    Rodrigo

    msn: rrbonci@hotmail.com

     

    terça-feira, 21 de novembro de 2006 12:38

Todas as Respostas

  • Beleza cara!

               O servidor que hospeda o arquivo access, está em português ou inglês?

                Se estiver em inglês, acredito que isto seja normal, porque prevalecerá se eu não me engano a cultura do sistema operacional...

                Para sua query de pesquisa utilize a instrução abaixo:
                      select
                                        * from  suatabela
                      where  convert(char(10), suadata, 103)  between data1 and data2 ...
                       (ela fará um convert no formato da data para dd/mm/yyyy ou vc pode utilizar o códio 101, mas para isso deverá passar os parâmetros mm/dd/yyyy dos filtros...
     
              Ajudei vc ou não?

             Um abraço.

              Jr
                

              
            
    terça-feira, 21 de novembro de 2006 13:13
  • Jr. meu servidor é inglês.

    Na minha query não entendi muito bem como devo fazer......tem algum problema de eu gravar invertido a data no banco? Eu trato a inverssao dessa forma que vc me passou

    terça-feira, 21 de novembro de 2006 14:28
  • O meu maior problema em pesquisa, é que as vezes ela me traz o resultado da forma que eu consultei e outras vezes me mostra de forma invertida.

    exemplo: 01/05/2006 à 31/05/2006 as vezes ele me mostra de 05/01/2006 à 31/05/2006.

    Vou postar meu código abaixo:

    A data eu mostro em vermelho.

    Por favor se alguém puder me ajudar.

    Rodrigo

     

    <html>
    <head>
    <title>Resultado da Pesquisa</title>
    <LINK REL=stylesheet HREF="\heva.css" TYPE="text/css">
    <!--#include file="..\..\connect.asp"-->
    <style>
     p{font-weight:bold;font-size:14pt}
     td{text-align:center}
    </style>
    </head>
    <body>

    <h3 align=center>Sistema de Transportes - Estatísticas<br><br>

    <%

    vestat = Request.Form("campo")

    if Request.Form ("data_i") = "" OR Request.Form ("data_f") = "" then 'condicao 1


    SELECT CASE Request.Form("opcao")

    CASE "Condutor"

    if Request.Form("campo") = 9 then 'condicao 1 - condutor

    set bd = Conexao.Execute (" SELECT a.analista,COUNT(t.transid) AS total FROM transportes t, analista a WHERE ( (t.condutorid <> 9) AND (t.condutorid = a.analistaid) AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#)) GROUP BY a.analista ORDER BY COUNT(t.transid) DESC, a.analista ") 

    %>
    <b style="color:firebrick"><%=Request.Form("opcao")%></b></h3><br>
    <table border=0 bordercolor=green width="50%" cellpadding=6 align=center>
    <tr bgcolor=green>
     <td><b style=color:"white"><%=Request.Form("opcao")%></b></td>
     <td><b style=color:"white">Total</b></td>
     
    </tr>
      <%
       while not bd.eof
      %>
    <tr>
     <td><b style="color:black"><%=bd("analista")%></b></td>
     <td><b style="color:black"><%=bd("total")%></b></td>
    </tr>
      <%
       bd.movenext
       wend
      %>
    </table>

    <% else 'condicao 1 - condutor
       
    set bd = Conexao.Execute(" SELECT t.transid,t.dt_saida,t.hr_saida,t.destino,t.areaid,a.analista FROM transportes t, analista a WHERE ( (t.condutorid = a.analistaid) AND (t.condutorid = "&vestat&")AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#) ) ORDER BY t.transid DESC")
       
    set bd_count = Conexao.Execute (" SELECT COUNT(transid) AS qtde FROM transportes WHERE (condutorid = "&vestat&") AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#) ")

    if bd.eof then 'condicao 2 - condutor%>

     <script language="javascript">
      {
       alert("Não foi localizada nenhuma Requisição");
       window.location.href=history.back()"
      }
     </script>

    <% else 'condicao 2 - condutor%>
      
    Condutor: <b style="color:firebrick"><%=bd("analista")%></b></h3>
    <h3 align=center>Total: <font color=firebrick><%=bd_count("qtde")%> requisições</font></h3>
    <table border=1 bordercolor=green width="80%" cellpadding=6 align=center>
    <tr bgcolor=green>
     <td width="10%" height="40" align="center"><b style=color:"white"><big>NÚMERO</big></b></td>
     <td width="40%" height="30" align="center"><b style=color:"white"><big>DATA DE EXECUÇÃO</big></b></td>
     <td width="60%" align="center"><b style=color:"white"><big>DESTINO</big></b></td>
    </tr>
      <%
       while not bd.eof
      %>
    <tr>
     <td height="30" align="center"><b style="color:green"><a style="color:green" href="trans_cons.asp?numero=<%=bd("transid")%>"><%=bd("transid")%></a></b></td>
     <td align="center"><b style="color:black"><%=bd("dt_saida")%> - <%=bd("hr_saida")%></b></td>
     <td><b style="color:black">&nbsp;<%=bd("destino")%></b></td>
    </tr>
      <%
       bd.movenext
       wend
      %>
    </table>
      
    <%  end if 'condicao 2  - condutor

     end if 'condicao 1  - condutor
       
    CASE "Setor"

    if Request.Form("campo") = 1 then 'condicao 1 - Setor
       
    set bd = Conexao.Execute (" SELECT a.area,COUNT(t.transid) AS total FROM transportes t, area a WHERE ( (t.areaid = a.areaid) ) GROUP BY a.area ORDER BY COUNT(t.transid) DESC, a.area ") 

    %>
    <b style="color:firebrick"><%=Request.Form("opcao")%></b></h3><br>
    <table border=0 bordercolor=green width="50%" cellpadding=6 align=center>
    <tr bgcolor=green>
     <td><b style=color:"white"><%=Request.Form("opcao")%></b></td>
     <td><b style=color:"white">Total</b></td>
    </tr>
      <%
       while not bd.eof
      %>
    <tr>
     <td style="text-align=left"><b style="color:black"><%=bd("area")%></b></td>
     <td><b style="color:black"><%=bd("total")%></b></td>
    </tr>
      <%
       bd.movenext
       wend
      %>
    </table>

    <% else 'condicao 1 - Setor
       
    set bd = Conexao.Execute(" SELECT t.transid,t.dt_saida,t.hr_saida,t.destino,a.area FROM transportes t, area a WHERE ( (t.areaid = a.areaid) AND (t.areaid = "&vestat&") ) ORDER BY t.transid DESC ")
       
    set bd_count = Conexao.Execute (" SELECT COUNT(transid) AS qtde FROM transportes WHERE areaid = "&vestat&" ")

    if bd.eof then 'condicao 2 - setor%>

     <script language="javascript">
      {
       alert("Não foi localizada nenhuma Requisição");
       window.location.href=history.back()"
      }
     </script>

    <% else 'condicao 2 - setor%>
      
    Setor: <b style="color:firebrick"><%=bd("area")%></b></h3>
    <h3 align=center>Total: <font color=firebrick><%=bd_count("qtde")%> requisições</font></h3>
    <table border=1 bordercolor=green width="80%" cellpadding=6 align=center>
    <tr bgcolor=green>
     <td width="10%" height="40" align="center"><b style=color:"white"><big>NÚMERO</big></b></td>
     <td width="40%" height="30" align="center"><b style=color:"white"><big>DATA DE EXECUÇÃO</big></b></td>
     <td width="60%" align="center"><b style=color:"white"><big>DESTINO</big></b></td>
    </tr>
      <%
       while not bd.eof
      %>
    <tr>
     <td height="30" align="center"><b style="color:green"><a style="color:green" href="trans_cons.asp?numero=<%=bd("transid")%>"><%=bd("transid")%></a></b></td>
     <td align="center"><b style="color:black"><%=bd("dt_saida")%> - <%=bd("hr_saida")%></b></td>
     <td><b style="color:black">&nbsp;<%=bd("destino")%></b></td>
    </tr>
      <%
       bd.movenext
       wend
      %>
    </table>
      
    <%  end if 'condicao 2 - setor

     end if 'condicao 1 - setor

    CASE "Solicitante"

    if Request.Form("campo") = 1 then 'condicao 1 - Solicitante
       
    set bd = Conexao.Execute (" SELECT u.usuario,COUNT(t.transid) AS total FROM transportes t, usuario u WHERE ( (t.solicid = u.usuarioid) ) GROUP BY usuario ORDER BY COUNT(t.transid) DESC, u.usuario ") 

    %>
    <b style="color:firebrick"><%=Request.Form("opcao")%></b></h3><br>
    <table border=0 bordercolor=green width="50%" cellpadding=6 align=center>
    <tr bgcolor=green>
     <td><b style=color:"white"><%=Request.Form("opcao")%></b></td>
     <td><b style=color:"white">Total</b></td>
    </tr>
      <%
       while not bd.eof
      %>
    <tr>
     <td style="text-align=left"><b style="color:black"><%=bd("usuario")%></b></td>
     <td><b style="color:black"><%=bd("total")%></b></td>
    </tr>
      <%
       bd.movenext
       wend
      %>
    </table>

    <% else 'condicao 1 - Solicitante
       
    set bd = Conexao.Execute(" SELECT t.transid,t.dt_saida,t.hr_saida,t.destino,u.usuario FROM transportes t, usuario u WHERE ( (t.solicid = u.usuarioid) AND (t.solicid = "&vestat&") ) ORDER BY t.transid DESC ")
       
    set bd_count = Conexao.Execute (" SELECT COUNT(transid) AS qtde FROM transportes WHERE solicid = "&vestat&" ")

    if bd.eof then 'condicao 2 - solicitante%>

     <script language="javascript">
      {
       alert("Não foi localizada nenhuma Requisição");
       window.location.href=history.back()"
      }
     </script>

    <% else 'condicao 2 - solicitante%>
      
    Solicitante: <b style="color:firebrick"><%=bd("usuario")%></b></h3>
    <h3 align=center>Total: <font color=firebrick><%=bd_count("qtde")%> requisições</font></h3>
    <table border=1 bordercolor=green width="80%" cellpadding=6 align=center>
    <tr bgcolor=green>
     <td width="10%" height="40" align="center"><b style=color:"white"><big>NÚMERO</big></b></td>
     <td width="40%" height="30" align="center"><b style=color:"white"><big>DATA DE EXECUÇÃO</big></b></td>
    <td width="60%" align="center"><b style=color:"white"><big>DESTINO</big></b></td>
    </tr>
      <%
       while not bd.eof
      %>
    <tr>
     <td height="30" align="center"><b style="color:green"><a style="color:green" href="trans_cons.asp?numero=<%=bd("transid")%>"><%=bd("transid")%></a></b></td>
     <td align="center"><b style="color:black"><%=bd("dt_saida")%> - <%=bd("hr_saida")%></b></td>
     <td><b style="color:black">&nbsp;<%=bd("destino")%></b></td>
    </tr>
      <%
       bd.movenext
       wend
      %>
    </table>
      
    <%  end if 'condicao 2 - solicitante

     end if 'condicao 1 - solicitante

    END SELECT

     else 'condicao 1

     
    if isdate(Request.Form("data_i")) AND isdate(Request.Form("data_f")) then

    Function CampoData(data)
     
     CampoData = " " & year(data) & "/" & month(data) & "/" & day(data) & " "
     
    End Function

    vdt_i = CampoData(Request.form("data_i"))
    vdt_f = CampoData(Request.form("data_f"))

    Session.LCID = 1046

    SELECT CASE Request.Form("opcao")

    CASE "Condutor" 'condicao 1 - condutor - B

    if Request.Form("campo") = 9 then 'condicao 1 - condutor - B

    set bd = Conexao.Execute (" SELECT a.analista,COUNT(t.transid) AS total FROM transportes t, analista a,situacao s WHERE ( (t.condutorid <> 9) AND (t.condutorid = a.analistaid)  AND (s.situacaoid = 4) AND (t.situacaoid = s.situacaoid) AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#)) GROUP BY a.analista ORDER BY COUNT(t.transid) DESC, a.analista ")

    %>
    <b style="color:firebrick"><%=Request.Form("opcao")%></b></h3><br>
    <table border=0 bordercolor=green width="50%" cellpadding=6 align=center>
    <tr bgcolor=green>
     <td><b style=color:"white"><%=Request.Form("opcao")%></b></td>
     <td><b style=color:"white">Total</b></td>
    </tr>
      <%
       while not bd.eof
      %>
    <tr>
     <td><b style="color:black"><%=bd("analista")%></b></td>

     <td><b style="color:black"><%=bd("total")%></b></td>
    </tr>
      <%
       bd.movenext
       wend
      %>
    </table>

    <% else 'condicao 1 - condutor
       
    set bd = Conexao.Execute(" SELECT t.transid,dt_saida,t.hr_saida,t.dt_cadastro,t.destino,a.analista FROM transportes t, analista a,situacao s WHERE ( (t.condutorid = a.analistaid) AND (t.condutorid = "&vestat&") AND (s.situacaoid = 4) AND (t.situacaoid = s.situacaoid) AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#)) ORDER BY t.transid DESC ")
      
    set bd_count = Conexao.Execute (" SELECT COUNT(transid) AS qtde FROM transportes WHERE ( (condutorid = "&vestat&") AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#)) ")

    set bd1 = conexao.execute (" SELECT a.analista,ar.Area,Count(t.condutorid) AS total FROM area ar, analista a, transportes t WHERE ((t.condutorid = "&vestat&") AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#) AND (a.analistaid = t.condutorid) AND (ar.areaid = t.areaid) ) GROUP BY a.analista, ar.Area ORDER BY ar.Area,a.analista ")

    if bd.eof then 'condicao 2  - condutor%>

     <script language="javascript">
      {
       alert("Não foi localizada nenhuma Requisição");
       window.location.href=history.back()"
      }
     </script>
     
    <% else 'condicao 2 - condutor%>
      
    Condutor: <b style="color:firebrick"><%=bd("analista")%></b></h3>
    <h3 align=center>Total: <font color=firebrick><%=bd_count("qtde")%> requisições</font></h3>
    <h4 align=center><b style="color:firebrick"><%=Request.Form("data_i")%>&nbsp; à&nbsp; <%=Request.Form("data_f")%></b></h5>

    <table border=1 bordercolor=green width="80%" cellpadding=6 align=center>
    <tr bgcolor=green>
     <td width="10%" height="40" align="center"><b style=color:"white"><big>NÚMERO</big></b></td>
     <td width="40%" height="30" align="center"><b style=color:"white"><big>DATA DE EXECUÇÃO</big></b></td>
     <td width="60%" align="center"><b style=color:"white"><big>DESTINO</big></b></td>
    </tr>
      <%
       while not bd.eof
      %>
    <tr>
     <td height="30" align="center"><b style="color:green"><a style="color:green" href="trans_cons.asp?numero=<%=bd("transid")%>"><%=bd("transid")%></a></b></td>
     <td align="center"><b style="color:black"><%=bd("dt_saida")%> - <%=bd("hr_saida")%></b></td>
     <td><b style="color:black">&nbsp;<%=bd("destino")%></b></td>
    </tr>
      <%
       bd.movenext
       wend
      %>
    </table>
    <br><br>

    <h3 align=center><font color=firebrick>QUANTIDADE DE SAÍDAS POR CENTRO DE CUSTO</font><br>

    <table border=1 bordercolor=green width="80%" cellpadding=6 align=center>
    <tr bgcolor="dark brown">
     <td width="40%" height="40" align="center"><b style=color:"white"><big>SETOR</big></b></td>
     <td width="25%" height="30" align="center"><b style=color:"white"><big>CONDUTOR</big></b></td>
     <td width="20%" align="center"><b style=color:"white"><big>QUANTIDADE</big></b></td>
     
    </tr>
     <%
      while not bd1.eof
     %>
    <tr>
     <td height="30" align="center"><b style="color:black"><%=bd1("area")%></a></b></td>
        <td height="30" align="center"><b style="color:black"><%=bd1("analista")%></a></b></td> 
     <td><b style="color:black">&nbsp;<%=bd1("total")%></b></td>
    </tr>
      <%
      bd1.movenext
      wend
      %>
      
    <%  end if 'condicao 2  - condutor

     end if 'condicao 1  - condutor
        
    CASE "Setor"

    if Request.Form("campo") = 1 then 'condicao 1 - Setor
       
    set bd = Conexao.Execute (" SELECT a.area,COUNT(t.transid) AS total FROM transportes t, area a WHERE ( (t.areaid = a.areaid) AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#) ) GROUP BY a.area ORDER BY COUNT(t.transid) DESC, a.area ") 

    %>
    <b style="color:firebrick"><%=Request.Form("opcao")%></b></h3><br>
    <table border=0 bordercolor=green width="50%" cellpadding=6 align=center>
    <tr bgcolor=green>
     <td><b style=color:"white"><%=Request.Form("opcao")%></b></td>
     <td><b style=color:"white">Total</b></td>
    </tr>
      <%
       while not bd.eof
      %>
    <tr>
     <td style="text-align=left"><b style="color:black"><%=bd("area")%></b></td>
     <td><b style="color:black"><%=bd("total")%></b></td>
    </tr>
      <%
       bd.movenext
       wend
      %>
    </table>

    <% else 'condicao 1 - Setor
       
    set bd = Conexao.Execute(" SELECT t.transid,t.dt_saida,t.hr_saida,t.destino,a.area FROM transportes t, area a WHERE ( (t.areaid = a.areaid) AND (t.areaid = "&vestat&") AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#) ) ORDER BY t.transid DESC ")
       
    set bd_count = Conexao.Execute (" SELECT COUNT(transid) AS qtde FROM transportes WHERE ((areaid = "&vestat&") AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#) ) ")

    if bd.eof then 'condicao 2 - setor%>

     <script language="javascript">
      {
       alert("Não foi localizada nenhuma Requisição");
       window.location.href=history.back()"
      }
     </script>

    <% else 'condicao 2 - setor%>
      
    Setor: <b style="color:firebrick"><%=bd("area")%></b></h3>
    <h3 align=center>Total: <font color=firebrick><%=bd_count("qtde")%> requisições</font></h3>
    <table border=1 bordercolor=green width="80%" cellpadding=6 align=center>
    <tr bgcolor=green>
     <td width="10%" height="40" align="center"><b style=color:"white"><big>NÚMERO</big></b></td>
     <td width="40%" height="30" align="center"><b style=color:"white"><big>DATA DE EXECUÇÃO</big></b></td>
    <td width="60%" align="center"><b style=color:"white"><big>DESTINO</big></b></td>
    </tr>
      <%
       while not bd.eof
      %>
    <tr>
     <td height="30" align="center"><b style="color:green"><a style="color:green" href="trans_cons.asp?numero=<%=bd("transid")%>"><%=bd("transid")%></a></b></td>
     <td align="center"><b style="color:black"><%=bd("dt_saida")%> - <%=bd("hr_saida")%></b></td>
     <td><b style="color:black">&nbsp;<%=bd("destino")%></b></td>
    </tr>
      <%
       bd.movenext
       wend
      %>
    </table>
      
    <%  end if 'condicao 2 - setor

     end if 'condicao 1 - setor

    CASE "Solicitante"

    if Request.Form("campo") = 1 then 'condicao 1 - Solicitante
       
    set bd = Conexao.Execute (" SELECT u.usuario,COUNT(t.transid) AS total FROM transportes t, usuario u WHERE ( (t.solicid = u.usuarioid) AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#) ) GROUP BY usuario ORDER BY COUNT(t.transid) DESC, u.usuario ")

    %>
    <b style="color:firebrick"><%=Request.Form("opcao")%></b></h3><br>
    <table border=0 bordercolor=green width="50%" cellpadding=6 align=center>
    <tr bgcolor=green>
     <td><b style=color:"white"><%=Request.Form("opcao")%></b></td>
     <td><b style=color:"white">Total</b></td>
    </tr>
      <%
       while not bd.eof
      %>
    <tr>
     <td style="text-align=left"><b style="color:black"><%=bd("usuario")%></b></td>
     <td><b style="color:black"><%=bd("total")%></b></td>
    </tr>
      <%
       bd.movenext
       wend
      %>
    </table>

    <%else 'condicao 1 - Solicitante
       
    set bd = Conexao.Execute(" SELECT t.transid,t.dt_saida,t.hr_saida,t.destino,u.usuario FROM transportes t, usuario u WHERE ( (t.solicid = u.usuarioid) AND (t.solicid = "&vestat&") AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#) ) ORDER BY t.transid DESC ")
       
    set bd_count = Conexao.Execute (" SELECT COUNT(transid) AS qtde FROM transportes WHERE ( (solicid = "&vestat&") AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#) ) ")

    if bd.eof then 'condicao 2 - solicitante%>

     <script language="javascript">
      {
       alert("Não foi localizada nenhuma Requisição");
       window.location.href=history.back()"
      }
     </script>

    <%else 'condicao 2 - solicitante%>
      
    Solicitante: <b style="color:firebrick"><%=bd("usuario")%></b></h3>
    <h3 align=center>Total: <font color=firebrick><%=bd_count("qtde")%> requisições</font></h3>
    <table border=1 bordercolor=green width="80%" cellpadding=6 align=center>
    <tr bgcolor=green>
     <td width="10%" height="40" align="center"><b style=color:"white"><big>NÚMERO</big></b></td>
     <td width="40%" height="30" align="center"><b style=color:"white"><big>DATA DE EXECUÇÃO</big></b></td>
     <td width="60%" align="center"><b style=color:"white"><big>DESTINO</big></b></td>
     
    </tr>
      <%
       while not bd.eof
      %>
    <tr>
     <td height="30" align="center"><b style="color:green"><a style="color:green" href="trans_cons.asp?numero=<%=bd("transid")%>"><%=bd("transid")%></a></b></td>
     <td align="center"><b style="color:black"><%=bd("dt_saida")%> - <%=bd("hr_saida")%></b></td>
     <td><b style="color:black">&nbsp;<%=bd("destino")%></b></td>
    </tr>
      <%
       bd.movenext
       wend
      %>
    </table>
      
    <%  end if 'condicao 2 - solicitante

     end if 'condicao 1 - solicitante
     
     
    CASE "Kilometragem"

    if Request.Form("campo") = 1 then 'condicao 1 - Kilometragem
       
    set total = Conexao.Execute (" SELECT a.area,SUM(t.km_f - t.km_i) AS kf FROM transportes t, area a WHERE ((dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#) ) AND (a.areaid = t.areaid) GROUP BY a.area")

    %>
    <b style="color:firebrick"><%=Request.Form("opcao")%></b></h3><br>
    <table border=0 bordercolor=green width="50%" cellpadding=6 align=center>
    <tr bgcolor=green>
     <td><b style=color:"white">Setor</b></td>
     <td><b style=color:"white">Total</b></td>
    </tr>

    <table border=0 bordercolor=green width="50%" cellpadding=6 align=center>

      <%
        do while not total.eof
      %>

    <tr>
     <td width="40%" height="40" align="center"><b style=color:"black"><%=total("area")%></td>
     <td width="30%" height="40" align="center"><b style=color:"firebrick"><%=(total("kf"))%></td>
    </tr>
      
      <%
       total.movenext
       loop
      %>
    </table>
     
    <% else 'condicao 1 - Kilometragem

    set total = Conexao.Execute (" SELECT a.area,SUM(t.km_f - t.km_i) AS kf FROM transportes t, area a WHERE ((t.areaid = "&vestat&") AND (dt_saida BETWEEN #"&vdt_i&"# AND #"&vdt_f&"#) ) AND (a.areaid = t.areaid) GROUP BY a.area")
    'set totalf = Conexao.Execute (" SELECT a.area,SUM(t.km_f - t.km_i) AS kf FROM transportes t, area a WHERE ((t.areaid = "&vestat&")) AND (a.areaid = t.areaid) GROUP BY a.area")

    if total.eof then 'condicao 2 - Kilometragem%>

     <script language="javascript">
      {
       alert("Não foi localizada nenhuma Requisição");
       window.location.href=history.back()"
      }
     </script>

    <%else 'condicao 2 - Kilometragem%>
      

    <b style="color:firebrick"><%=Request.Form("opcao")%></b></h3><br>
    <table border=0 bordercolor=green width="60%" cellpadding=6 align=center>
    <tr bgcolor=green>
     <td><b style=color:"white">Setor</b></td>
     <td><b style=color:"white">Total</b></td>
    </tr>
      
      <%
       do while not total.eof
      %>
    <tr>
     <td width="40%" height="40" align="center"><b style=color:"black"><%=total("area")%></td>
     <td width="30%" height="40" align="center"><b style=color:"firebrick"><%=(total("kf"))%></td>
    </tr>
      <%
       total.movenext
       loop
      %>
    </table>
      
    <%  end if 'condicao 2 - Kilometragem

     end if 'condicao 1 - Kilometragem

    END SELECT

    else

    %>

    <script language="javascript">
    {
     alert("A data digitada não é válida");
     window.location.href=history.back()"
    }
    </script>

    <%
     
    End if 

    Conexao.close
    set bd_count  = nothing
    set bd  = nothing
    set bd1  = nothing
    set area = nothing
    End if

    %>
     <br><br>
     
    </body>
    </html>

    terça-feira, 21 de novembro de 2006 19:05