Publicado em 8 de nov.

Relatório por data

Bom dia, alguém pode me ajudar !!

Eu tenho um retalório e gostaria que ficasse em ordem de data, até tenho essa rotina, mas não sei porque ele não sai. Segue o código.

<%
dim sessao
sessao = Request.QueryString("sessao")
Session("sessao") = sessao
strsql1="select * from usuario where codigo=" & Session("cod_usuario")
set rs1=Conn.execute(strsql1)
%>

<HTML>
<STYLE type=text/css>
@import url("style.css");
</STYLE>
<HEAD>
<TITLE>Rel. Financeiro</TITLE>

</script>
<style media="print">
.oculta

{ visibility: hidden }

</style>
</script>

''aqui eu utilizo alguma coisa que me passaram para convertar data

<%
Session.LCID = 1046
Session.TimeOut = 600
%>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</HEAD>
<BODY>
<table width="800" border="0" cellspacing="0" cellpadding="0">
 <tr>
 <td width="600" valign="baseline"><table width="106%" border="0" cellspacing="0" cellpadding="0">
 <tr>
 <td> </td>
 </tr>
 <tr>
 <td height="19"> </td>
 </tr>
 <tr>
 <td> </td>
 </tr>
 <tr>
 <td> </td>
 </tr>
 <tr>
 <td><span class="style8">RELATÓRIO FINANCEIRO</span></td>
 </tr>
 </table></td>
 <td width="200"><img src="../base_rsvp/images/logo_pq.jpg" width="200" height="88" border="0"></td>
 </tr>
</table>
<TABLE width="847" BORDER=0 CELLPADDING=0 CELLSPACING=0>
 <TR>
 <TD WIDTH=640><TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0>
 <TR>
 <TD WIDTH=800><HR size=1></TD>
 <TD width="10"><P ALIGN=RIGHT class="tiny"> </P></TD>
 </TR>
 </TABLE></TD>
 </TR>
</TABLE>
<div align="left">

<% '----------------- Define o número de registros por página ----------------------------

Const TamanhoPagina = 1000
set rsQuery = Server.CreateObject( "ADODB.RecordSet" )

rsQuery.PageSize = TamanhoPagina
rsQuery.CacheSize = TamanhoPagina
rsQuery.CursorType = 3

''aqui é onde ele coloca em ordem de "cod_contrato, mas quado eu mudo pra data ele não fica na ordem correta, fica todo aleatório.

rsQuery.Open"select * from contratos order by cod_contrato desc", Conn

if Session("PaginaAtual") = "" then Session("PaginaAtual") = 1

select case Request.QueryString( "modo" )

 case "proxima"
 Session("PaginaAtual") = min( Session("PaginaAtual") + 1, rsQuery.PageCount )
 case "anterior"
 Session("PaginaAtual") = max( Session("PaginaAtual") - 1, 1 )
 case "pagina"
 if isNumeric( request.QueryString("numero") ) then
 Session("PaginaAtual") = cint( request.QueryString("numero") )
 Session("PaginaAtual") = max( min( Session("PaginaAtual"), rsQuery.PageCount ), 1 )
 end if
end select

rsQuery.AbsolutePage = Session("PaginaAtual")
cod_contrato=rsQuery("cod_contrato")
%>

 <br>
 <table width="800" border="1" cellpadding="0" cellspacing="0" bordercolor="#333333" bordercolorlight="<%= mainborderlight%>" bordercolordark="<%= mainborderdark%>">
 <tr bordercolor="000000">
 <td bordercolor="#666666" bgcolor="#6699CC" class="style4"><div align="center">Cod.</div></td>
 <td height="10" bordercolor="#666666" bgcolor="#6699CC"><div align="center"><span class="style4">Data</span></div></td>
 <td bordercolor="#666666" bgcolor="#6699CC"><div align="center"><span class="style4">Noivos</span></div></td>
 <td width="215" bordercolor="#666666" bgcolor="#6699CC"><div align="center"><span class="style4">Foto</span></div></td>
 <td width="95" bordercolor="#666666" bgcolor="#6699CC"><div align="center"><span class="style4">Contratados</span></div></td>
 <td bordercolor="#666666" bgcolor="#6699CC"><div align="center"><span class="style4">Filmagem</span></div></td>
 <td width="95" bordercolor="#666666" bgcolor="#6699CC"><div align="center"><span class="style4">Contratados</span></div></td>
 </tr>
 <tr bordercolor="000000">
 <%

dim total
total = 0
item = 1
do while item <= TamanhoPagina and not rsQuery.eof
cod_contrato=rsQuery("cod_contrato")
%>
<%
For n = 0 To limite %>
<%
Dim n
n = 0
do while n < colNum and NOT rsQuery.eof
cod_contrato=rsQuery("cod_contrato")
valor = rsQuery("valor")
if isnumeric(valor) then
total = total + valor
end if
%>

 <td width="33" bordercolor="#666666" bgcolor="#6699CC"><div align="center" class="style9"><%=rsQuery("cod_contrato")%></div></td>
 <td width="76" height="10" align="center" bordercolor="#666666" bgcolor="#6699CC"><div align="left" class="style9">
 <div align="center"><%=rsQuery("data")%></div>
 </div></td>
 <td width="155" align="left" bordercolor="#666666" bgcolor="#6699CC"><div align="left" class="style9">
 <div align="left"> <%=rsQuery("noiva")%> - <%=rsQuery("noivo")%></div>
 </div></td>
 <td bordercolor="#666666" bgcolor="#6699CC"><div align="left" class="style9">
 <div align="center"><%=rsQuery("qtde_fotografos")%></div>
 </div></td>
 <td bordercolor="#666666" bgcolor="#6699CC"> </td>
 <td width="115" bordercolor="666666" bgcolor="#6699CC"><div align="right" class="style9">
 <div align="left"> <%=rsQuery("video")%></div>
 </div></td>
 <td width="95" bordercolor="666666" bgcolor="#6699CC"> </td>
 <% rsQuery.Movenext

item = item + 1
n = n + 1
loop %>
<% next %>

 </tr>
 <% loop %>
 </table>
 <br>
</div>
<TABLE width="847" BORDER=0 CELLPADDING=0 CELLSPACING=0>
 <TR>
 <TD WIDTH=640><TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0>
 <TR>
 <TD WIDTH=800><HR size=1></TD>
 <TD width="10"><P ALIGN=RIGHT class="tiny"> </P></TD>
 </TR>
 </TABLE></TD>
 </TR>
</TABLE>
<table width="800" border="0" cellspacing="0" cellpadding="0">
 <tr>
 <td class="style4"><div align="right">São Paulo,
 <!--#include file="saudacoes.asp"-->
 </div></td>
 </tr>
</table>
<table width="800" border="0" cellspacing="0" cellpadding="0">
 <tr>
 <td width="640"><table width="100%" border="0" cellpadding="0" cellspacing="0">
 <tr>
 <td width="8%"><input name="button3" type="BUTTON" id="button2" onClick="javascript:window.print()" value="Imprimir" class="oculta"></td>
 <td width="9%"><input name="button3" type="BUTTON" id="button2" onClick="javascript:window.close()" value="Fechar"class="oculta"></td>
 <td width="83%">
 </tr>
 </table></td>
 </tr>
</table>
</BODY>
</HTML>

Discussão (15)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

Carregando comentários...