Ir para conteúdo
Fórum Script Brasil
  • 0

Soma de valores ao final de uma consulta....


maxwell2

Pergunta

Amigos estou montando um sistema de consulta no banco de dados mas estou tendo dificuldades em realizar a soma no final do codigo.

O que tenho no codigo é:

PRODUTO | QUANTIDADE | VALOR

Casa | 1 peça | 1,00

Moto | 2 peças | 5,00

Essa disposição acima o meu codigo faz, mas não consigo fazer a soma no final do codigo, que nesse exemplo acima seria 6,00 (1,00+5,00). Podem me ajudar a acrescentar no codigo abaixo?:

<%@LANGUAGE="VBSCRIPT"%>

<%
response.buffer = "true"
Set Conexao = Server.CreateObject("ADODB.Connection")
dbPath = "DBQ=" & Server.Mappath("../../../dados/sistema.mdb")
Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & dbPath
Set Recordset1 = Server.CreateObject("ADODB.RecordSet")
Recordset1.Open "SELECT * FROM fluxo_caixa WHERE data_venda LIKE '%"& request.form("date1") &"%' AND loja LIKE '%"& request.form("loja") &"%' order by id_fluxo_caixa" , Conexao, 1, 3
%>

<center>
<font size=3 face=verdana color=000000><b>Movimentação Caixa</b></font><br><br>
<button type="button" value="imprimir" onclick="window.print();" >Imprimir</button><hr>
</center>

<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
if Recordset1.eof then
response.write "<p> <p><center><font face='Verdana, Arial, Helvetica, sans-serif' size='3'><b>Nenhuma venda nessa data</b></font></center>"
else
%>

<table width="100%" border="0" cellspacing="5" cellpadding="2" align="center">
<tr bgcolor=#404040>
<td align=left><font size=2 color=ffffff face=verdana><b></td>
<td align=left width=10%><font size=2 color=ffffff face=verdana><b>N. venda</td>
<td align=left><font size=2 color=ffffff face=verdana><b>Cod.:</td>
<td align=left width=50%><font size=2 color=ffffff face=verdana><b>Produto</td>
<td align=left width=5%><font size=2 color=ffffff face=verdana><b>Qtd.</td>
<td align=left width=10%><font size=2 color=ffffff face=verdana><b>R$ Un.</td>
<td align=left width=10%><font size=2 color=ffffff face=verdana><b>R$ Total</td>
<td align=left width=15%><font size=2 color=ffffff face=verdana><b>Vendedor</td>
<td align=left width=10%><font size=2 color=ffffff face=verdana><b>Data</td
</tr>

<% 
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) 
%>

<tr>
<td bgcolor=#E1E1E1 align=left><font size=2 color=000000 face=verdana><b><%=Recordset1("id_venda")%></td>
<td bgcolor=#E1E1E1 align=left><font size=1 color=000000 face=verdana><%=Recordset1("id_produto")%></td>
<td bgcolor=#E1E1E1 align=left><font size=1 color=000000 face=verdana> <%=Recordset1("produto")%></td>
<td bgcolor=#E1E1E1 align=left><font size=1 color=000000 face=verdana><%=Recordset1("quantidade")%></td>
<td bgcolor=#E1E1E1 align=left><font size=1 color=000000 face=verdana><b> <%=Recordset1("valor_venda")%> ,00</td>
<td bgcolor=#E1E1E1 align=left><font size=1 color=000000 face=verdana><b>  <%=Recordset1("quantidade")* Recordset1("valor_venda")%> ,00 </td>
<td bgcolor=#E1E1E1 align=left><font size=1 color=000000 face=verdana><%=Recordset1("funcionario_venda")%></td>
<td bgcolor=#E1E1E1 align=left><font size=1 color=000000 face=verdana><%=Recordset1("data_venda")%></td>
</tr><TR><TD BGCOLOR=000000 COLSPAN=9></TD></TR>



<% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset1.MoveNext()
Wend
%>
</table>


<!!!!!!!!!!!!!!!!!!!!!!!!!! SERIA NESSE ESPAÇO QUE EU QUERO POR A QUANTIDADE TOTAL DO VALOR VENDA !!!!!!!!!!!!!!!!!!!!>



<%end if %>

<%
Recordset1.Close()
%>

Obs.: Em outro tópico fiz a mesma solicitação e obtive resposta positiva, mas naquele caso o codigo era diferente e usava "request", sendo que esse acima não usa, e como sou iniciante não sei fazer a modificação.

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0

Olá Bareta, a sua sugestao não faz o calculo que preciso.

O seu codigo faz apenas a soma dos valores dispostas na tabela:

Produto|Quantidade

Carro = 2

Moto = 3

Aviao = 2

O total seria 7, mas no meu codigo preciso:

Produto | Quantidade | Valor

Carro = 2 = 1,00 cada

Moto = 3 = 2,00 cada

Aviao = 2 = 1,00 cada

O valor do "Valor" total sera (1,00x2) + (2,00x3) + (1,00x2) = 8,00

Como fazer esse "8,00" aparecer no final do codigo que postei acima?

Se puder me ajudar a incluir já no codigo, pois não tenho noçoes de ASP, apenas sei fazer a montagem com codigos prontos.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...