Ir para conteúdo
Fórum Script Brasil

maxwell2

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    21

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que maxwell2 postou

  1. maxwell2
    Fercosmig fiz como você mensionou mas mesmo assim o calculo ainda não é feito, esta faltando alguma coisa?
  2. maxwell2
    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. maxwell2
    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. maxwell2
    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. maxwell2
    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. maxwell2
    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. maxwell2
    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. maxwell2
    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. maxwell2
    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. maxwell2
    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. maxwell2
    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. maxwell2
    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. maxwell2
    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. maxwell2
    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. maxwell2
    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)
  16. maxwell2
    OK, funcionou beleza, só que para numeros com virgulas os calculos ficam errados, vejam o codigo que cheguei: <%@ 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" %> Por exemplo seu eu tiver um valor no bd access 10 e incluir com o código acima o valor 1,5 o total será 11,5 (até ai tudo bem) mas se incluir novamente 1,5 ele muda para 12,5 e não 13 que seria o calculo correto, alguém sabe se devo mudar algo interno na configuração do banco access?
  17. maxwell2
    Olá fiz o que você me passou mas ai acontece o seguinte: Ele não faz a soma "matermatica" e sim acrecenta no campo, ficou assim: Tinha 10 no campo Creditos Coloquei + 20 Ai ficou 1020 e não 30 O codigo ficou assim: Codigo Lista.asp: <% 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 set rs=conn.execute("select*from users") %> <%do until rs.eof%> <table width="100%" border="0" cellspacing="5" cellpadding="0" align="center"> <tr> <td BGCOLOR=CCCCCC><%=rs("user")%></td> <td width="80%" BGCOLOR=CCCCCC><%=rs("creditos")%></td> <td width="20%" BGCOLOR=#D0D0D0> <a href="formulario.asp?id=<%=rs("id")%>">Editar</a>]</td> </tr><TR><TD BGCOLOR=000000 COLSPAN=3></TD></TR> </table> <% rs.movenext loop conn.close %> Codigo Formulario.asp Alteração: <% 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 set rs=conn.execute("select*from users where id="&request.querystring("id")&"") %> <form action="altera.asp" method="post"> <input type="text" name="creditos" size="40" value="<%=rs("creditos")%>"> <input type="hidden" name="id" value="<%=rs("id")%>"> <input type="submit" value="Somar" name="B1"> </form> Codigo Altera.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=creditos+'"&Request.Form("creditos")&"' where id="&Request.Form("id")&"") Response.Redirect"lista.asp" %>
  18. maxwell2
    Obrigado, Pois percebi que sua dica eu teria que incluir o nº que quero somar/subtrair mas como faço para enviar esse valor de um formulario Eu tenho o codigo de alteração, como eu faço essa sua modificação para ele aceitar uma subtração? <%@ Language=VBScript %> <%response.buffer=true%> <% cnpath="DBQ=" & Server.MapPath(".BANCO.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSource conn.Execute("update DADOS set id='"&Request.Form("id")&"', credito='"&Request.Form("credito")&"' where id="&Request.Form("id")&"") Response.Redirect"index.asp" %>
  19. maxwell2
    Olá Amigos, Admiro muito o fórum e por isso que sempre busco auxilio para implementar meus codigos com vocês. O que eu preciso é aprender a logica de subtração e soma de um valor em tabelas de bd, seria o seguinte: Tenho um codigo que exibe varios usuarios e seus respectivos creditos (numeros), gostarias de poder subtrair ou somar uma quantidade de creditos, porem só sei fazer alterações do tipo: No campo CREDITOS do access tinha um valor 2 e é substituido por 5, sendo que eu queria o valor 7 (2+5). Ou seja o que eu quero é que digitado em um campo input possa ser somado ou subtraido no valor já gravado no bd access, não quero fazer a alteração e sim a soma ou subtração. O código que eu uso para leitura é: <% 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 set rs=conn.execute("select*from codigos where codigo = '1' ") %> <table width=100% border=0><tr><td align=75% valign=top> <table width=100% border=0> <tr> <td width=20% align=center bgcolor=cccccc><font size=1 face=verdana><B>USUARIO</td> <td width=20% align=center bgcolor=cccccc><font size=1 face=verdana><B>CREDITOS</td> <td width=20% align=center bgcolor=cccccc><font size=1 face=verdana><B>CÓDIGO</td> <td width=20%></td> </tr> </table> <%do until rs.eof%> <table width=100%> <form action="retira_creditos.asp" method="post"> <input type="hidden" name="id" value="<%=rs("id")%>"> <tr> <td width=20% align=center><font size=2 face=verdana><%=rs("usuario")%></td> <td width=20% align=center><font size=2 face=verdana><%=rs("creditos")%></td> <td width=20% align=center><input type="text" size=18 name="creditos" value=""></td> ' Aqui vou digitar uma quantidade X para subtarir do campo CREDITOS do access<td width=20%><input type="submit" value="Salvar" name="B1"></td> </tr> </form> </table> <% rs.movenext loop conn.close %> Agradeço a quem me puder ajudar.
  20. maxwell2
    Agora esta funcionando a parte de "mudar" sozinho, mas ao clicar nos botoes "anterior e proximo' da pagina não pode ser exibida...
  21. maxwell2
    Estou precisando deste codigo, sem alguém puder postar agardeço. Este que o amigi postou não funciona...
×
×
  • Criar Novo...