<% '######################################################################################### '# Loja Virtua Developer Pack 6 - Versão Beta '######################################################################################### %> <% 'Chama o produto a partir da variavel intProdID = Request.QueryString("produto") if intProdID = "" then intProdID = "0000000000" end if 'Chama o produto '######################################################################################### '#---------------------------------------------------------------------------------------- '# CONTROLE DE ESTOQUE POR ROGERIO SILVA '######################################################################################### sql="SELECT A.*,A.Estoque as Est, B.*, B.Estoque as ESTM FROM produtos as A, ESTOQUE as B where B.IDPRODUTO = A.idprod AND A.idprod="&intProdID 'response.write "
sql :"&sql 'response.end Set prodinfo = abredb.Execute(sql) '######################################################################################### if prodinfo.EOF then%>

<%=strLg4%> » <%=strLg229%>

<%=strLg230%> <%=nomeloja%>!

:: <%=strLg41%> ::

<% response.end else %>

<% 'Variaveis do cadastro do produto strIdProd = prodinfo("idprod") strName = prodinfo("nome") strDesc = prodinfo("detalhe") strId = prodinfo("idprod") strFabricante = prodinfo("fabricante") intPrice = prodinfo("preco") intPricev = prodinfo("precovelho") strEstoq = prodinfo("Est") idsessao = prodinfo("idsessao") economiza = intPricev - intPrice imgrande=prodinfo("imgra") qt_max_prod=prodinfo("QTDMAXIMA") qt_atual_estoque=prodinfo("ESTM") 'Verifica se tem em estoque o minimo indicado como Compra Maxima por produto if qt_atual_estoque <% 'Formata os valores do produto precitonx = formatnumber(intPrice,2) precitoex = formatnumber(economiza,2) precitovx = formatnumber(intPricev,2) if prodinfo("parcela")="v" then intparc = 1 else intparc = prodinfo("parcela") end if cparcela = precitonx / intparc cparcela = formatnumber(cparcela,2)%> <%=strLg273%> > <%=strLg4%> > <%= strNome %> > &categoria=<%=idsessao%> style=text-decoration:none; onMouseOut="window.status='';return true;" onMouseOver="window.status='<%= strSubNome %>';return true;"><%= strSubNome %> > <%= strName %>

<% End If %>

<%= strName %>
<% If prodinfo("fabricante")<>"" then %> <%=strLg31%> <%=prodinfo("fabricante")%> <% end if %>

<% If len(cstr(imgrande))<3 then imgra="img_nao_disp.gif" else imgra=imgrande end if%>

<%=strLg37%>

<%IF precitovx <> precitonx THEN%> <%ELSE%> <%END IF%>

<%=strLg39%>	<%= strlgmoeda & " " & precitovx%>
<%=strLg38%>	<%=strlgmoeda & " " & precitonx%>
<%=strlgmoeda & " " & precitonx%>

<% if prodinfo("parcela") <> "v" then%>

ou ainda:

<%=prodinfo("parcela")%>x <%=strLg46%> <%=strlgmoeda & " " & cparcela%>

<%end if%> <% '*** Voce pode optar por mostrar ou nao o seu estoque (nao aconselhavel , a nao ser qdo é politica da empresa ;-) %> <% '*** Verifica se tem Estoque do Produto set rs_estoque = abredb.execute("SELECT estoque FROM estoque WHERE idproduto="&strIDprod&" ;") if not rs_estoque.eof then estoque_atual=rs_estoque("estoque") end if rs_estoque.close set rs_estoque = nothing %>
<% if estoque_atual > 0 then%>

/imagens/amigo.gif border=0> <% End If %>

<%= strDesc %>

<%=strLg28%> <% '*** Opcao de NAO Mostrar Estoque if estoque_atual > 0 then response.write strLg26 else response.write "" & strLg27 & "" end if %> <% '*** Opcao de Mostrar Estoque ' if estoque_atual > 0 then response.write prodinfo("ESTM")&strLg272&"
"&strLg26 else response.write strLg27 end if %>

<% if estoque_atual > 0 then%>

;color:000000> <%=strLg32%> onChange="HandleError(this)" <% End If %> style=font-size:11px;font-family:<%=fonte%>> <%=strLg33%>
<% If mostrar_limite_max_prod_compra="Sim" then%> <%=strLg270%> <%=qt_maxima_compra_do_produto%> <%=strLg271%>
<% End If %>
/imagens/comprar.gif onMouseOver="window.status='<%= strLg276 %>';return true;" onMouseOut="window.status='';return true;" id="submit1" name="submit1">

<%IF precitovx <> precitonx THEN%>

<%=strLg34%> <%=strName%> <%=strLg35%> <%=nomeloja%>
<%=strLg36%> <%=precitoex%> <%= strLgMoedax%>!

<%ELSE%>

<%=strLg257%> <%=strName%> <%=strLg35%> <%=nomeloja%> !

<%end if%>

<%else%> <% If mostrar_form_email_prod_esgotado="Sim" then %>

<%IF precitovx <> precitonx THEN%>

<%=strLg34%> <%=strName%> <%=strLg35%> <%=nomeloja%>
<%=strLg36%> <%=precitoex%> <%=strLgMoedax%>!

<% End If %>

<%end if%>

:: <%=strLg41%> :: <%end if%>