Calcular valor total

[ricardo coelho designer 0]

Pessoal, estou precisando de mais uma ajuda de vocês, não estou conseguindo calcular o valor total da minha lista de orçamento.

 

Vou disponibilizar o código abaixo.

 

<table width=100% cellpadding=4 cellspacing=4 style="border:<%=largurabordatabela%>px solid <%=tabelaborda%>;" bgcolor=<%=corfundotabela%>>
<tr bgcolor=#99CCFF><td>Cod.</td><td align=center>Produto</td><td align=center>Quant.</td><td align=center>Descrição</td>
<td align=center>Valor Unitário</td>
<td align=center>Valor Total</td>
</tr>
<%Set RS = Server.CreateObject("ADODB.Recordset")
SQLStmt = "SELECT * FROM pedidos where user_id ='"&cod_cliente&"'"
RS.Open SQLstmt,lojaDB
While Not RS.EOF%>
<tr bgcolor=#D7E9F7><td><%=rs("ped_id")%></td>
<td><%=rs("descricao")%></td><td align=center><%=rs("prod_quant")%></td>
<td align=center>
<%Set RS1 = Server.CreateObject("ADODB.Recordset")
rs1.CursorType = 0
rs1.CursorLocation = 3
rs1.LockType = 3
SQLStmt = "SELECT * FROM fotos where id ="&rs("prod_id")&""
RS1.Open SQLstmt,lojaDB%>
<%While Not RS1.EOF%>

<%legenda = rs1("legenda")%>
<%preco_nor = rs1("preco_nor")%>
<%preco_pro = rs1("preco_pro")%>

<%if CDbl(preco_pro) > 0 then 'sem aspas.%>
<%preco1 = preco_pro%>
<%else%>
<%preco1 = preco_nor%>
<%end if%>
<%=legenda%>

<%RS1.MoveNext
Wend
RS1.close%>
</td>

<td align=center>R$ <%=FormatNumber (preco1,2)%></td>
<td align=center>R$ <%=FormatNumber (preco1,2) * rs("prod_quant")%>
<%valor =FormatNumber (preco1,2) * rs("prod_quant")%>
<%valor1 =valor%></td>
</tr>
<%RS.MoveNext
Wend
RS.close%>

<tr>
<td colspan="4"></td>
<td align=center bgcolor=#00CCFF> <b>TOTAL</b></td>
<td align=center bgcolor=#00CCFF><b>R$ <%=FormatNumber (preco1,2) + valor1%></b></td>
</tr>
</table>

[Vinicius Ianni 189]

A ideia é a mesma da duvida anterior.

Cria uma variavel, que se estiver vazia, recebe o resultado do calculo da quantidade x preço, se estiver com algum valor, soma-se o valor com o resultado.

[xanburzum 169]

verifique se os campos estão como numérico, também, e basicamente, será somente a fórmula matematica que irá usar para o cálculo...

[ricardo coelho designer 0]

verifique se os campos estão como numérico, também, e basicamente, será somente a fórmula matematica que irá usar para o cálculo...

 

Pessoal boa tarde, consegui encontrar a solução e vou colocar o código para quem precisar de algo parecido.

 

<% total= cint(0) 'Informação utilizada para a soma %>

<table width=100% cellpadding=4 cellspacing=4 style="border:<%=largurabordatabela%>px solid <%=tabelaborda%>;" bgcolor=<%=corfundotabela%>>
<tr bgcolor=#99CCFF><td>Cod.</td><td align=center>Quant.</td><td align=center>Produto</td><td align=center>Descrição</td>
<td align=center>Valor Unitário</td>
<td align=center>Valor Total</td>
<td align=center>Excluír</td>
</tr>
<%Set RS = Server.CreateObject("ADODB.Recordset")
SQLStmt = "SELECT * FROM pedidos where user_id ='"&cod_cliente&"' order by descricao asc"%>

<%j=0%>
<input type="hidden" name="id_voltar" size="3" value="<%=request.QueryString ("id")%>">
<%RS.Open SQLstmt,lojaDB
While Not RS.EOF%>

<input type="hidden" name="id<%=j%>" size="3" value="<%=rs("id")%>">
<tr bgcolor=#D7E9F7>
<td align="center"><%=rs("ped_id")%></td>
<td align=center><input type="text" name="prod_quant<%=j%>" size="3" value="<%=rs("prod_quant")%>"></td>
<td><%=rs("descricao")%></td>
<td align=center>
<%Set RS1 = Server.CreateObject("ADODB.Recordset")
SQLStmt = "SELECT * FROM fotos where id ="&rs("prod_id")&"" %>

<%RS1.Open SQLstmt,lojaDB%>
<%While Not RS1.EOF%>

<%legenda = rs1("legenda")%>
<%preco_nor = rs1("preco_nor")%>
<%preco_pro = rs1("preco_pro")%>

<%if CDbl(preco_pro) > 0 then 'sem aspas.%>
<%preco1 = preco_pro%>
<%else%>
<%preco1 = preco_nor%>
<%end if%>
<%=legenda%>

<%RS1.MoveNext
Wend
RS1.close%>
</td>

<td align=center>R$ <input type="text" name="prod_preco_unit<%=j%>" size="10" value="<%=FormatNumber (preco1, 2)%>"></td>
<%valor =FormatNumber (preco1,2) * rs("prod_quant")%>
<%valor1 =valor%>
<td align=center>R$ <input type="text" name="prod_preco<%=j%>" size="10" value="<%=FormatNumber (valor, 2)%>"></td>
<td align=center>

<a href="orcamento_exc.asp?acao=ver&alterar=alterar&id=<%=rs("id")%>&id_voltar=<%=request.QueryString ("id")%>" target="_self"><img src="../imagens/icones/action_delete.gif" alt="" width="16" height="16" border="0"></a>

</td>
</tr>

<% preco=FormatNumber(valor1, 2) %>
<% total= total + FormatNumber(preco, 2) %>
<%j=j+1%>
<%RS.MoveNext
Wend
RS.close%>

<tr bgcolor=#99CCFF>
<td colspan="4"><b>Total de produtos: <%=j%></b></td>
<td align=center> <b>SUBTOTAL</b></td>
<td align=center colspan="2"><b>R$ <%=FormatNumber(total, 2)%></b></td></tr>

<tr height="20" bgcolor=#E9E9E9>
<td colspan="4"><input type="hidden" name="conta" value="<%=j%>"></td>
<td align=center><input type="Submit" value="Alterar"></td>
<td align=center colspan="2"></td></tr>
</table>

</td></tr>
</table>