ñ to entendendo + nada..

[Reginaldo 0]

ae gelera.. da linha 25 á 35 eu somo os valores de um campo de alguns registros..

 

e da linha 44 á 50 eu exibo o valor que eu consegui com a variavel assim: & somaestoque & mas não aparece nada.. alguem me ajuda ae..´please.

 

ASP

[*]<!--#include file="adm_restrito.asp"--><%

[*]

[*]total_vendido=0

[*]subtotal_vendido=0

[*]

[*]set conn = Server.CreateObject("ADODB.Connection")

[*]conn.Open(StringdeConexao)

[*]

[*] strRegistro = " SELECT produtos.nome, produtos.preco, produtos.vendas, estoque.idproduto, estoque.estoque FROM ESTOQUE, PRODUTOS where produtos.idprod=estoque.idproduto order by estoque.estoque desc"

[*]

[*] set rs= conn.execute(strRegistro)

[*]

[*] SQL = "pr.nome, es.idproduto, es.estoque "

[*] SQL = SQL & " produtos pr, estoque es"

[*] SQL = SQL & " where es.estoque like '0' pr.idprod=es.idproduto"

[*]

[*] strTextoHtml = strTextoHtml & "<FONT face=tahoma color=#003366 style=font-size:17px><img src=""adm_imagens/prod_g.gif"" width=""30"" height=""33"" hspace=""1"" vspace=""1"" border=""0"" align=""left""><B> Estoque Atual e Vendas Efetuadas dos produtos na loja</B></FONT><hr size=1 color=#cccccc><br>"

[*]

[*]IF NOT RS.EOF THEN

[*] strTextoHtml = strTextoHtml & "<br><table width=100% cellspacing=""0"" cellpadding=""0"">"

[*]DO WHILE NOT RS.EOF

[*] '-----------------------------------

[*]

[*] dim sql2, somaestoque, rs3

[*]

[*]set cn = SERVER.CreateObject("ADODB.Connection")

[*]

[*]sql2 = "select sum(quantidade) from prod_detalhe where idProduto = " & RS("idprod") & ";"

[*]

[*]set rs3 = cn.execute(sql2)

[*]

[*]somaestoque = rs3

[*]

[*]set rs3 = nothing

[*]

[*]

[*] '--------------------------------------

[*]

[*]

[*] strTextoHtml = strTextoHtml & "<tr><td colspan=3 align=left><hr size=1 color=#cccccc width=""101%""></td></tr>"

[*] strTextoHtml = strTextoHtml & "<tr><td colspan=1 align=left><font face=""tahoma"" style=font-size:11px>" & RS("nome")

[*]

[*] if RS("ESTOQUE")<4 then

[*] strTextoHtml = strTextoHtml & " </font></td><td colspan=1 nowrap><font face=""tahoma"" style=font-size:11px > Vendas: " & RS("vendas") & "  </font>"

[*] strTextoHtml = strTextoHtml & " </font></td><td colspan=1 nowrap><font face=""tahoma"" style=font-size:11px color=red><strong> Estoque: " & somaestoque & "  </strong></font>"

[*] else

[*] strTextoHtml = strTextoHtml & " </font></td><td colspan=1 nowrap><font face=""tahoma"" style=font-size:11px > Vendas: " & RS("vendas") & " </font>"

[*] strTextoHtml = strTextoHtml & " </font></td><td colspan=1 nowrap><font face=""tahoma"" style=font-size:11px> Estoque: " & somaestoque & " </font>"

[*] end if

[*]

[*] subtotal_vendido=rs("vendas")*rs("preco")

[*] total_vendido=total_vendido+subtotal_vendido

[*]

[*]RS.MOVENEXT

[*]LOOP

[*] strTextoHtml = strTextoHtml & "<tr><td colspan=3 align=left><hr size=1 color=#cccccc width=""101%""></td></tr>"

[*] strTextoHtml = strTextoHtml & "</table>"

[*]

[*]

[*]ELSE

[*]strTextoHtml = strTextoHtml & "<br><font face=""tahoma"" style=font-size:11px color=red><strong>Não existem produtos na sua loja! </font><br>"

[*]END IF

[*]

[*]Conn.close

[*]set Conn = nothing

[*]

[*]strTextoHtml = strTextoHtml & "<br><hr size=1 color=dddddd><center><FONT face=tahoma style=font-size:11px><img src=""adm_imagens/mao.gif"" width=""26"" height=""28"" hspace=""1"" vspace=""1"" border=""0"" align=""absmiddle"" >     <b>A loja já rendeu "& strLgMoeda & " " & formatnumber(total_vendido,2)&" nas vendas acima</b></center>"

[*]

[*]strTextoHtml = strTextoHtml & "<br><hr size=1 color=dddddd><center><FONT face=tahoma style=font-size:11px><img align=absmiddle border=0 src=""adm_imagens/xis.gif"" >    <b><A onclick=""return confirm('Você quer zerar a contagem de vendas?')"" href=""?link=util&acao=vendas&acaba=sim"">Você quer Zerar a Contagem das Vendas acima?</A></b></center><br>"

[*]

[*]%>

 

 

agradeço muito .. abraços.

[dark0 0]

coloque no final da pagina.. antes do %>response.write strTextoHtml

[kauebranco 0]

isso mesmo que o dark0 falou ..... num tem como você por na tela a variavel sem por response.write ..........

[Reginaldo 0]

ja tentei escrever avariavel assim só por teste.. ela está em branco =( por favor.. me ajudem a axar o erro.. :wacko: não consigo ver nada errado.. agradeço mto.. abraços.

[kauebranco 0]

pra ver se o erro num ta no codigo sql e tals coloca assim na linha 18 ----------------------------------------response.write(strTextoHtml)response.end----------------------------------------dai fala o que acontece

[Reginaldo 0]

essa parte esta em ordem.. a variavel que vem em branco é a "somaestoque" nalinha 32

[kauebranco 0]

então com certeza o erro ta nakela pergunta que você tinha me feito akela hora sobre como pegar o resultado do SELECT ...como tinha te dito axei que era dakele jeito ..mais pelo jeito num é ....o erro ta em como pegar o resultado do SELECT ...ja que num é desse jeito que eu te falei sinceramente num to lembrando de como poderia ser !!! malss cara !!!só pra tirar uma duvida tenta assim somaestoque = rs3("quantidade") ' na linha 32.....

[kauebranco 0]

descobri outro jeito tb ..tenta assim ..----------linha 28----------------sql2 = "select sum(quantidade) as soma from prod_detalhe where idProduto = " & RS("idprod") & ";"-----------linha 28-----------------------------linha 32-------------somaestoque = rs3("soma") ' linha 32 -------------linha 32-------------

[Reginaldo 0]

tb num deu certo http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

[kauebranco 0]

mesmo depois disso a variavel somaestoque vem em branco ????

[kauebranco 0]

outra coisa ..na linha 28 pq no final da instrução do select você coloca ";"???? põe assim sql2 = "select sum(quantidade) as soma from prod_detalhe where idProduto = " & RS("idprod")

[Reginaldo 0]

ae galera.. conseguimos aki... fizemos de outro jeito..

 

agradeço muito a todos que tentaram ajudar http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

se for util pra alguem.. fizemos assim:

 

ASP

[*]'-----------------------------------

[*]dim sql2, somaestoque, rs3

[*]set cn = SERVER.CreateObject("ADODB.Connection")

[*]cn.Open(StringdeConexao)

[*]sql2 = "select * from prod_detalhe where idProduto = " & RS("idprod")

[*]set rs3 = cn.execute(sql2)

[*]somaestoque = 0

[*]IF NOT RS3.EOF THEN

[*]DO WHILE NOT RS3.EOF

[*]somaestoque = somaestoque+rs3("quantidade")

[*]rs3.movenext

[*]loop

[*]end if

[*]

[*] '--------------------------------------

[kauebranco 0]

interessante esse codigo que você fez ....parabens ..mais só de curiosidade !!!!! o que eu te disse ali no final num funcionou ??

[Reginaldo 0]

funfo naum :( .. rs mas agradeço pra caramba.. :D abraços

[dark0 0]

putsbrother.. veja o que acontece com seu codigo em relação aos seus IFSse nao entrar em nenhum IF, nada vai acontecer, não é?

[Reginaldo 0]

Dark0 eu não entendi oq você quiz dizer.. :wacko: fala na minha lingua.. heheheabraço

[dark0 0]

eu quis dizer.. queSe você olhar seu primeiro POST, vai ver que tem seu codigo todo lá, né?Se baseando no codigo, ele é cheio de IFS.Então, se, na execução do codigo, ele não entrar em nenhum IF, quer dizer que ele não vai executar as ações que estão dentro dele.E pode não aparecer nada na tela.Entendeu?Foi isso que eu quis dizerAbraço