SOMAR NO ASP
                    Pessoal,
Estou com uma dificuldade....
Criei um relatorio, e nao estou sei coloar uma linha com total...
segue codigo do relatorio..
precisaria colocar um linha totalizadora no VALORPAGAMENTO, mais nao sei como posso fazer isto...alguem pode me ajudar???
Att,
Marcelo Bressan
                
            Estou com uma dificuldade....
Criei um relatorio, e nao estou sei coloar uma linha com total...
segue codigo do relatorio..
  <%do while not rslocal.eof%>
  <tr>
  <td class="text"><div align="center"><%=rslocal("NUMEROCONTRATO")%> </div></td>
  <td class="text"><div align="center"><%=rslocal("ACORDO")%> </div></td>
  <td class="text"><div align="center"><%=rslocal("DTMOVTO")%> </div></td>
  <td class="text"><div align="center"><%=rslocal("DATAPAGAMENTO")%> </div></td>
  <td class="text"><div align="center"><%=formatcurrency(rslocal("VALORPAGAMENTO"))%> </div></td>
  <td class="text"><div align="center"><%=rslocal("NUMDOCUMENTO")%> </div></td>
  <td class="text"><div align="center"><%=rslocal("PONTUACAO")%> </div></td>
  <tr>
  <td bgcolor="black" colspan="30" class="linha"> <img src="http://172.16.0.102/platmala/mis/images/pixel.gif" width="900" height="1"></td>
  <tr>
	<%rslocal.movenext %>
	<%loop%>
precisaria colocar um linha totalizadora no VALORPAGAMENTO, mais nao sei como posso fazer isto...alguem pode me ajudar???
Att,
Marcelo Bressan
                    Tente assim:
<%
Dim total as Double
   
total = 0
%>
<%do while not rslocal.eof%>
<tr>
<td class="text"><div align="center"><%=rslocal("NUMEROCONTRATO")%> </div></td>
<td class="text"><div align="center"><%=rslocal("ACORDO")%> </div></td>
<td class="text"><div align="center"><%=rslocal("DTMOVTO")%> </div></td>
<td class="text"><div align="center"><%=rslocal("DATAPAGAMENTO")%> </div></td>
<td class="text"><div align="center"><%=formatcurrency(rslocal("VALORPAGAMENTO"))%> </div></td>
<td class="text"><div align="center"><%=rslocal("NUMDOCUMENTO")%> </div></td>
<td class="text"><div align="center"><%=rslocal("PONTUACAO")%> </div></td>
<tr>
<td bgcolor="black" colspan="30" class="linha"> <img src="http://172.16.0.102/platmala/mis/images/pixel.gif" width="900" height="1"></td>
<tr>
<% total = total + rslocal("VALORPAGAMENTO") %>
<%rslocal.movenext %>
<%loop%>
<td bgcolor="black" colspan="30" class="linha"> Total <%=formatcurrency(total) %> </td>
<tr>
                
            <%
Dim total as Double
total = 0
%>
<%do while not rslocal.eof%>
<tr>
<td class="text"><div align="center"><%=rslocal("NUMEROCONTRATO")%> </div></td>
<td class="text"><div align="center"><%=rslocal("ACORDO")%> </div></td>
<td class="text"><div align="center"><%=rslocal("DTMOVTO")%> </div></td>
<td class="text"><div align="center"><%=rslocal("DATAPAGAMENTO")%> </div></td>
<td class="text"><div align="center"><%=formatcurrency(rslocal("VALORPAGAMENTO"))%> </div></td>
<td class="text"><div align="center"><%=rslocal("NUMDOCUMENTO")%> </div></td>
<td class="text"><div align="center"><%=rslocal("PONTUACAO")%> </div></td>
<tr>
<td bgcolor="black" colspan="30" class="linha"> <img src="http://172.16.0.102/platmala/mis/images/pixel.gif" width="900" height="1"></td>
<tr>
<% total = total + rslocal("VALORPAGAMENTO") %>
<%rslocal.movenext %>
<%loop%>
<td bgcolor="black" colspan="30" class="linha"> Total <%=formatcurrency(total) %> </td>
<tr>
                    Piolho,
Isto funcionou...
so que esta contecendo um erro...
meu select tem varios varametros...
passei um parametro que nao tem...e na hora de rodar o relatório ele apresenta um erro
que nao tem como formatar campo null...
como posso colocar uma mensagem informando que nao foi encontrado nenhum registro????
Att,
Marcelo Bressan
                
            Isto funcionou...
so que esta contecendo um erro...
meu select tem varios varametros...
passei um parametro que nao tem...e na hora de rodar o relatório ele apresenta um erro
que nao tem como formatar campo null...
como posso colocar uma mensagem informando que nao foi encontrado nenhum registro????
Att,
Marcelo Bressan
                    coloque assim:
if rsLocal.RecordCount = 0 then
response.write("Nenhum registro encotrado")
endif
                
            if rsLocal.RecordCount = 0 then
response.write("Nenhum registro encotrado")
endif
                        Tópico encerrado , respostas não são mais permitidas
                    
                