Pessoal tenho o código abaixo que tem um script java que soma o valor de alguns campos e coloca este valor no campo total. Ele funciona, mas só no primeiro loop, depois no próximo loop já não funciona mais. Alguém tem como me ajudar?
Segue o código:
<tag>
<%
'Declaração das arrays
Dim arrproduto()
Dim arrun()
empresa = "nova"
'Declarando a Conexao com o Banco de Dados
Set Conexao = Server.CreateObject("ADODB.Connection")
Pergunta
Nicolviski
Pessoal tenho o código abaixo que tem um script java que soma o valor de alguns campos e coloca este valor no campo total. Ele funciona, mas só no primeiro loop, depois no próximo loop já não funciona mais. Alguém tem como me ajudar?
Segue o código:
<tag>
<%
'Declaração das arrays
Dim arrproduto()
Dim arrun()
empresa = "nova"
'Declarando a Conexao com o Banco de Dados
Set Conexao = Server.CreateObject("ADODB.Connection")
'Caminho do Banco de Dados
Conexao.Open "DBQ=c:\inetpub\wwwroot\_private\geral2.mdb;Driver={Microsoft Access Driver (*.mdb)};"
'Cláusula SQL de pesquisa
PESQUISAR = "SELECT * FROM tab_produtos WHERE empresa LIKE'%" & empresa & "%' ORDER by produto "
'Criação do arquivo que conterá o resultado da pesquisa
Set RecSet=Conexao.Execute(PESQUISAR)
%>
<%'Caso chegue ao final do RecordSet e não encontre nenhum registro
IF RecSet.EOF then %>
<p>Não há Produtos Cadastrados</pd>
<% Else
x = 0
Do While Not RecSet.EOF
ReDim Preserve arrproduto(x)
ReDim Preserve arrun(x)
arrproduto(x) = RecSet("produto")
arrun(x) = RecSet("un")
%>
<script language="javascript">
function soma1() {
var f = document.forms[0];
var valor1 = parseFloat(f.qtd1.value.replace('.','').replace(',','.'));
var valor2 = parseFloat(f.qtd2.value.replace('.','').replace(',','.'));
var valor3 = (valor1||0) + (valor2||0);
f.total.value = (valor3);
}
</script>
<body oncontextmenu="return false">
<form method="POST" name="form1" action="provaris2d.asp">
<p>PRODUTO:<input type="hidden" name="arrproduto(x)" value="<%=(arrproduto(x))%>"><%=(arrproduto(x))%>
==<input type="hidden" name="arrun(x)" value="<%=(arrun(x))%>"><%=(arrun(x))%>
==QTD1<input type="text" name="qtd1" value="0,00" onkeyup="soma1()" size="5">
==QTD2<input type="text" name="qtd2" value="0,00" onkeyup="soma1()" size="5">
==TOTAL<input type="text" name="total" value="0,00" readonly="readonly" size="6"></p>
</form>
<%
x = x + 1
RecSet.MoveNext
Loop
RecSet.Close
Conexao.Close
Set RecSet = Nothing
Set Connexao = Nothing
%>
<% End If %>
</tag>
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
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.