Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

baladaclick

Soma de produtos do estoque

Por , em ASP Clássico

Recommended Posts

baladaclick    0

baladaclick
Postado

Galera, estou fazendo um sisteminha de estoque com os produtos cadastrados em um banco, já fiz a tabela de entrada e saida.

minha duvida é a seguinte, quero fazer a soma e a subtração dos produtos que entraram e saíram respectivamente.

 

não sei por onde começar este módulo.

 

no formuilario tenho os campos FILIAL / QTDE / PRODUTO / DATA

 

tipo, minha entrada e saida estao em tabelas diferentes. embaixo veja se eu fiz corretamente peguei o tabela1.campo1 - tabela2.campo1.mas está dando erro:tipo de erro:ADODB.Recordset (0x800A0E7D)A conexão não pode ser usada para realizar esta operação. Ela está fechada ou é inválida neste contexto./sistema/somaprodutos.asp, line 9Att,IuriCODE<%Set db = server.createobject("adodb.connection")db_conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("banco/estoque.mdb")db.CursorLocation = 3db.Open db_connset rs = server.createobject("adodb.recordset")rs.open "select (sum(entrada.qtde_entrada) - sum(saida.qtde_saida)) as TOTAL from entrada, saida "%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Untitled Document</title></head><body><%response.Write ("TOTAL")%></body></html>

quem puder ajudar ai agradeço

 

abraço!!!!

 

Pessoal me Ajudem

Compartilhar este post

Link para o post
Compartilhar em outros sites

Fernando_Bittencourt    0

Fernando_Bittencourt
Postado 

Set db = server.createobject("adodb.connection")db_conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("banco/estoque.mdb")db.CursorLocation = 3db.Open db_connset rs = server.createobject("adodb.recordset")rs.open "select (sum(entrada.qtde_entrada) - sum(saida.qtde_saida)) as TOTAL from entrada, saida "
Coloque a linha q abre o RecordSet assim:
rs.open "select (sum(entrada.qtde_entrada) - sum(saida.qtde_saida)) as TOTAL from entrada, saida ", db
você tem que indicar qual conexão o recordset vai usar pra acessar o banco...Abrazz

Compartilhar este post

Link para o post
Compartilhar em outros sites

baladaclick    0

baladaclick
Postado

Viu, qdo eu faço a soma de uma tabela tá ok. na hora que eu pego uma tabela1 - tabela2 o dá um resultado nada v.

 

veja c eu fiz algo de errado

 

<%Set db = server.createobject("adodb.connection")db_conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("banco/estoque.mdb")db.CursorLocation = 3db.Open db_connset rs = server.createobject("adodb.recordset")set rs2 = server.createobject("adodb.recordset")set rs3 = server.createobject("adodb.recordset")rs.open "select (sum(saida.qtde_saida)) as resultado_saida from saida", dbrs2.open "select (sum(entrada.qtde_entrada)) as resultado_entrada from entrada", dbrs3.open "select (sum(entrada.qtde_entrada)) - (sum(saida.qtde_saida)) as total FROM entrada, saida", db%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Untitled Document</title></head><body><label>Entrada <input name="textfield" type="text" value="<%response.Write rs2("resultado_entrada")%>"/>Saida <input name="textfield" type="text" value="<%response.Write rs("resultado_saida")%>"/>total <input name="total" type="text" value="<%response.Write rs3("total")%>" /></label></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

baladaclick    0

baladaclick
Postado

ja resolvi meu problema, fiz a soma de cada tabela e depois joguei um response.write subtraindo as duas .

 

valew

 

quem quiser saber ta ai o código

 

<%Set db = server.createobject("adodb.connection")db_conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("banco/estoque.mdb")db.CursorLocation = 3db.Open db_connset rs1 = server.createobject("adodb.recordset")set rs2 = server.createobject("adodb.recordset")rs1.open "select (sum(saida.qtde_saida)) as resultado_saida from saida", dbrs2.open "select (sum(entrada.qtde_entrada)) as resultado_entrada from entrada", db%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Untitled Document</title></head><body><label><p>Entrada   <input name="textfield" type="text" value="<%response.Write rs2("resultado_entrada")%>"/>Saida <input name="textfield" type="text" value="<%response.Write rs1("resultado_saida")%>"/></p><p>Total   <label>  <input type="text" name="textfield2" value="<%response.Write rs2("resultado_entrada") - rs1("resultado_saida")%>"/>  </label></p></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito