1° eu seleciono as tabelas (está funcionando normalmente):
strSql = "SELECT * FROM tbPedidos, tbProdutos, tbClientes, tbTipoFesta, tbTipoproduto, tbPedidos_Itens, " strSql = strSql & "tbEstados, tbTipoPessoal, tbPedidos_Pessoal WHERE tbPedidos.id_cliente = tbClientes.id_cliente AND " strSql = strSql & "tbPedidos.id_tipofesta = tbTipofesta.id_tipofesta AND tbPedidos.estadopedido = tbEstados.cod_estado AND " strSql = strSql & "tbPedidos.id_pedido = " & Session("codped") Set rsSql = cn.Execute(strSql)
2° Eu montei um formulário com uma tabela dentro dele que mostra 3 valores:
1° valor: o Sub Total 1 (está funcionando):
<%=FormatNumber(rsSql.Fields("subtotal"),2)%>2° valor: o Sub total 2 (que tb está funcionando):
<%=FormatNumber(rsSql.Fields("subtotal2"),2)%>3° valor: o total final que é a soma do sub-total1 + subtotal2 (que tb está funcionando):
<%=FormatNumber(total,2)%>
Bom, agora para alterar o valor total já gravado na tabela, em porcentagem, estou tentando fazer da seguinte forma:
1° Criei um formulario com um campo de texto e nomei-o de txt_porcentagem
2° Criei 2 botões com os nomes de "Somar" e "Subtrair".
3° A minha intenção (e é o que não está funcionando) é que quando a pessoa digita o numero (representando o valor em porcentagem para somar ou diminuir no valor total) ela clica em um dos botões (somar ou diminuir) e vai ativar o script ASP que vai calcular o novo valor a ser inserido na tabela e mostrar novamente o valor total no 3° valor do formulário que eu montei. O script que eu estou fazendo é o seguinte:
If txt_porcentagem = "" Then total = Session("sub_total") + Session("sub_total2") SqlTotal = "UPDATE tbPedidos SET totalpedido = '" & total & "' WHERE id_pedido LIKE " & Session("codPed") & "" Set rsTotal = cn.Execute(SqlTotal) Else novo_valor = Request.Form("txt_porcentagem") 'aqui entra outro IF para ver qual botão a pessoa clicou e faz os cálculos matemáticos SqlTotal = "UPDATE tbPedidos SET totalpedido = '" & total & "' WHERE id_pedido LIKE " & Session("codPed") & "" Set rsTotal = cn.Execute(SqlTotal) End If End If
Alguém pode me ajudar? Obrigado.
O formulário que mostra os valores:
<form name="form3" method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>"> <table width="80%" border="1" align="center" cellpadding="0" cellspacing="1"> <tr bgcolor="#999999"> <td colspan="3" class="txt_cabecalho_justy"> 5.3 - Valores da Festa</td> </tr> <tr> <td width="87%" bgcolor="#CCCCCC">Valor dos produtos da festa (Sub Total 1): </td> <td width="4%" bgcolor="#CCCCCC" class="txt_cabecalho_right"> R$ </td> <td width="9%" bgcolor="#CCCCCC" class="txt_cabecalho_right"> <%=FormatNumber(rsSql.Fields("subtotal"),2)%></td> </tr> <tr bgcolor="#CCCCCC"> <td>Valor cobrado pelo pessoal da Festa (Sub Total 2): </td> <td class="txt_cabecalho_right"> R$ </td> <td class="txt_cabecalho_right"> <%=FormatNumber(rsSql.Fields("subtotal2"),2)%></td> </tr> <tr bgcolor="#CCCCCC"> <td colspan="3"><hr size="1" color="#000000"></td> </tr> <tr> <td bgcolor="#CCCCCC"> Valor total da festa (Sub total 1 + Sub total 2): </td> <td bgcolor="#CCCCCC" class="txt_cabecalho_right"> R$ </td> <td bgcolor="#CCCCCC" class="txt_cabecalho_right"> <%=FormatNumber(total,2)%></td> </tr> <tr> <td colspan="3" bgcolor="#CCCCCC"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td> Deseja alterar o Valor Total da festa? (em porcentagem):</td> <td align="center"><input name="txt_porcentagem" type="text" id="txt_porcentagem" size="1"> %</td> <td align="center"><input name="bt_aumentar" type="submit" id="bt_aumentar" value="Somar"></td> <td align="center"><input name="bt_diminuir" type="submit" id="bt_diminuir" value="Subtrair"></td> </tr> </table></td> </tr> </table> </form>