Jump to content
Fórum Script Brasil

maxwell2

Membros
  • Posts

    21
  • Joined

  • Last visited

About maxwell2

maxwell2's Achievements

0

Reputation

  1. Fercosmig fiz como você mensionou mas mesmo assim o calculo ainda não é feito, esta faltando alguma coisa?
  2. Oi, tentei usar seu exemplo dentro de <script>, mas o resultado no campo "valor1-valor2" foi sempre 0. É preciso colocar algum codigo dentro da tag <body> ou <form>?
  3. Amigos, bom dia. Vocês poderiam me auxiliar a montar um formulario com um calculo matematico? O que eu tenho é o seguinte: <input type=text name=valor1> <input type=text name=valor2> <input type=text name=valor1-valor2> Ou seja o que for digitado no campo valor1 e valor2, terão o resultado no campo "valor1-valor2" , no caso seria uma subtração. Pesquisando na net, eu consegui montar esse formulario mas o resultado so é exposto quando clico no botão enviar. O que eu queria seria algo automatico, onde o resultado é preenchido no momento em que os campos recebem os digitos, isso é possivel? Podem me dar uma dica de por onde começo?
  4. Bareta, por favor me ajude a montar esse codigo, não sei onde por essa sua sugestao no meu codigo. Tentei no final do codigo mas apenas apareceu a lista dos produtos e ao final "valor_venda=10000 ".
  5. 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.
  6. 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.
  7. Andreia obrigado pela ajuda ... é quase isso. Na verdade o codigo até funcionou mas se a QUANTIDADE for maior que 1 o valor total ignora. Exemplo: Se o resultado da consulta for: Caderno | 2 peças | 5,00 (cada) Lapis | 3 peças | 2,00 (cada) O resultado no seu codigo em R$ é 7,00 mas o correto seria 16,00 (10,00 de caderno e 6,00 de lapis) Pode me ajudar nessa modificação?
  8. Olá Bicicleta, a sua sugestao so fez o que o meu codigo já fazia mas sem o loop. E como sou iniciante não consegui fazer nenhuma alteração. Na pratica o codigo faria o seguinte: Produto | Quantidade | Valor ____________________________ Carro | 1 | 4,00 Mesa | 4 | 10,00 Lapis | 2 | 5,00 Isso ai em cima eu já tenho com o codigo que postei. O que eu queria incluir alem disso é: Total de produtos: 7 Total em R$: 19,00 Mas se possivel sem mexer muito na estrutura do codigo que eu postei, pois como disse sou iniciante e esse codigo seria o que eu já me "acostumei" a usa-lo.
  9. Olá Amigos estou fazendo uma simples lista de produtos e gostaria do auxilio de algum membro que pudesse me ajudar a incluir a opção de somar valores exibidos nessa consulta, seria Valor Total em Mercadorias e Valor Total em R$, acredito que isso deve ser facil pra quem conhece um pouco de ASP. Veja o codigo: <%Language = "VBScript"%> <%Category = request.Querystring%> <% If Category = "" then response.Write("não consta") else end if Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.Open "DBQ=" & Server.Mappath("../../../dados/sistema.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" SQL = "SELECT id_fluxo_caixa, id_venda, produto, funcionario_venda, valor_venda, quantidade, id_produto, status FROM fluxo_caixa WHERE (funcionario_venda = '" & Category & "') AND status='aberto'" rs.Open SQL, Conn %> <% For x = 1 to 100 If rs.eof then Exit For Else %> <% =rs("produto")%>: <% =rs("quantidade")%> R$ <% =rs("valor")%><br> <% rs.MoveNext End If Next %> Valor Total em Mercadorias: Valor Total em R$:
  10. Obrigado Marcelo, funcionou perfeitamente. Lembrando que a variavel "id" eu troquei por um "funcionario" que corresponde a um numero para cada funcionario, e neste caso tive que deixar essa coluna do access em modo de Numero e não texto.
  11. Olá amigos, será que é possivel usar o codigo abaixo para mostrar mais de um resultado? alguém poderia me ajudar a acrescentar algo para ele ler todos os registros da tabela que tiver o mesmo Id_user? <% cnpath="DBQ=" & Server.MapPath("marcas.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSource Set RS = Server.CreateObject( "ADODB.Recordset" ) RS.ActiveConnection = conn set rs=conn.execute("select*from tipos where tempo = '1' and id="&request.querystring("id_user")&"") %> <h1><%=rs("nome")%></h1>
  12. Olá Amigos, estou com probleminha e gostaria de uma ajuda. Tenho um codigo que deveria pegar um valor X e ver se esse valor é maior que o valor Y, se for menor ou igual então ele mostra uma frase, se for maior ele deixa a frase em oculto Fiz um codigo, mas o mesmo não esta realizando o "calculo" correto. <% if session("credito") < " rs('saldo') " then temptomtemp = 0 else%> <font size="2" face="Verdana">Frase Teste</font> <% end if%> Nesse caso a varaivel session "credito" é um numero que vem da pagina anterior e o rs "saldo" é um campo lido do banco de dados na pagina atual. Fico agradecido a quem puder me ajudar.
  13. Rafael utilizo um formulario comum, veja: Pagina admin_creditos.asp <form action="retira_creditos.asp" method="post"> <br> <input type="text" name="creditos" value=""> <input type="text" name="id_user" value=""> <input type="submit" value="Somar Créditos"> </form> Pagina soma_creditos.asp <%@ Language=VBScript %> <%response.buffer=true%> <% cnpath="DBQ=" & Server.MapPath("users.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSource conn.Execute("update users set creditos=val(creditos)+'"&Request.Form("creditos")&"' where id="&Request.Form("id_user")&"") Response.Redirect"admin_creditos.asp" %>
  14. Lembrado que uso uma pagina de formulario para enviar os dados. Olá Rafael o que fiz foi ao digiatr no campo do input o valor de 1.5 ao invés de 1,5, mas como relatei o codigo interpletou como o numero 15 e não como 1.5, já o 1,5 ele ignora o 0,5 e pega apenas o 1 para a soma: o codigo foi: <%@ Language=VBScript %> <%response.buffer=true%> <% cnpath="DBQ=" & Server.MapPath("users.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSource conn.Execute("update users set creditos=val(creditos)+'"&Request.Form("creditos")&"' where id="&Request.Form("id_user")&"") Response.Redirect"admin_codigos.asp" %>
  15. Não funcionou... o codigo entede como se não houvesse o ponto. Se o valor no bd é 5 e eu incluir 1.5 ele fica com 20 (ou seja ele entende como 5 + 15, ignorando o ponto) Se eu coloco virgula o primeiro calculo é correto mas os demais ficam errado: Tenho 5 no bd e incluo 1,5 ele fica com 6,5 se eu incluir + 1,5 ele fica com 7,5 (ou seja da a entender que ele ignora o 0,5 e soma apenas 1)
×
×
  • Create New...