<% '######################################################################################### '#---------------------------------------------------------------------------------------- '######################################################################################### '# '# CÓDIGO: VirtuaStore Versão OPEN - Copyright 2001-2004 VirtuaStore '# URL: http://comunidade.virtuastore.com.br '# E-MAIL: comunidade@virtuastore.com.br '# AUTORES: Otávio Dias(Desenvolvedor) '# '# Este programa é um software livre; você pode redistribuí-lo e/ou '# modificá-lo sob os termos do GNU General Public License como '# publicado pela Free Software Foundation. '# É importante lembrar que qualquer alteração feita no programa '# deve ser informada e enviada para os criadores, através de e-mail '# ou da página de onde foi baixado o código. '# '# //------------------------------------------------------------------------------------- '# // LEIA COM ATENÇÃO: O software VirtuaStore OPEN deve conter as frases '# // "Powered by VirtuaStore OPEN" ou "Software derivado de VirtuaStore 1.2" e '# // o link para o site http://comunidade.virtuastore.com.br no créditos da '# // sua loja virtual para ser utilizado gratuitamente. Se o link e/ou uma das '# // frases não estiver presentes ou visiveis este software deixará de ser '# // considerado Open-source(gratuito) e o uso sem autorização terá '# // penalidades judiciais de acordo com as leis de pirataria de software. '# //-------------------------------------------------------------------------------------- '# '# Este programa é distribuído com a esperança de que lhe seja útil, '# porém SEM NENHUMA GARANTIA. Veja a GNU General Public License '# abaixo (GNU Licença Pública Geral) para mais detalhes. '# '# Você deve receber a cópia da Licença GNU com este programa, '# caso contrário escreva para '# Free Software Foundation, Inc., 59 Temple Place, Suite 330, '# Boston, MA 02111-1307 USA '# '# Para enviar suas dúvidas, sugestões e/ou contratar a VirtuaWorks '# Internet Design entre em contato através do e-mail '# contato@virtuaworks.com.br ou pelo endereço abaixo: '# Rua Venâncio Aires, 1001 - Niterói - Canoas - RS - Brasil. Cep 92110-000. '# '# Para ajuda e suporte acesse um dos sites abaixo: '# http://comunidade.virtuastore.com.br '# http://www.bondhost.com.br '# '# BOM PROVEITO! '# Equipe VirtuaStore '# []'s '######################################################################################### '# Consulta posição de estoque dos produtos da loja # '# produtos que tenham estoque maior ou menor que o informado pelo usuario # '# CRIADO/MELHORADO por: Fábio V.Coelho # '# AJUDA: Rogerio # '######################################################################################### %><% 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 & " Estoque Atual e Vendas Efetuadas dos produtos na loja

" IF NOT RS.EOF THEN strTextoHtml = strTextoHtml & "
" DO WHILE NOT RS.EOF strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "" else strTextoHtml = strTextoHtml & " " end if subtotal_vendido=rs("vendas")*rs("preco") total_vendido=total_vendido+subtotal_vendido RS.MOVENEXT LOOP strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "


" & RS("nome") if RS("ESTOQUE")<4 then strTextoHtml = strTextoHtml & "	Vendas: " & RS("vendas") & " " strTextoHtml = strTextoHtml & "	Estoque: " & RS("ESTOQUE") & " " strTextoHtml = strTextoHtml & "	Colocar Estoque
Vendas: " & RS("vendas") & " " strTextoHtml = strTextoHtml & "	Estoque: " & RS("ESTOQUE") & " " strTextoHtml = strTextoHtml & "	Alterar Estoque

" ELSE strTextoHtml = strTextoHtml & "
Não existem produtos na sua loja!
" END IF Conn.close set Conn = nothing strTextoHtml = strTextoHtml & "
A loja já efetuou "& strLgMoeda & " " & formatnumber(total_vendido,2)&" nas vendas acima" strTextoHtml = strTextoHtml & "
Você quer Zerar a Contagem das Vendas acima?
" %>