<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.3 ' Data: 12/09/06 ' Arquivo: ADM_altera_produto.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 27/10/08 ' '----------------------------------------------------------------------------- ' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Esta página só pode ser acessada se o visitante já se autenticou checa_senha() 'Verifica se o perfil de usuário permite acesso a esta página Call checa_perfil_admin(""&ADMProd&"") %> <% Call abre_conexao(conexao) codigo_produto_sel = 0 if request("codigo_produto_sel") <> "" Then codigo_produto_sel = request("codigo_produto_sel") End If codigo_caixa_sel = 0 if request("codigo_caixa_sel") <> "" Then codigo_caixa_sel = request("codigo_caixa_sel") End If Select Case Ucase(request("action")) Case"ALTERAR" if request("codigo_chave") <> "" Then msgRet = alterar_ProdutoCaixa(request("codigo_chave"), request("qtd_inicial"), request("qtd_final")) End If Case"INSERIR" msgRet = inserir_ProdutoCaixa(request("codigo_chave"), codigo_produto_sel, request("codigo_caixa"), request("qtd_inicial"), request("qtd_final")) Case "EXCLUIR" msgRet = excluir_Produto_Caixa(request("chk_caixas")) End Select %> <%=Application("NomeLoja")%>
• Caixas para Produtos

"> <%If VerificaExistenciaDado("codigo_categoria","Subcategorias",VAZIO,VAZIO) Then%> <%End if%> <%If VerificaExistenciaDado("codigo_marca","Marcas",VAZIO,VAZIO) Then%> <%End if%> <% If request("Pesquisar") <> "" then%> <% End If 'NPC = Novo Produto Caixa If request("action") <> "" Then Set RS_Produto_Caixa = Server.CreateObject("ADODB.Recordset") RS_Produto_Caixa.CursorLocation = 3 RS_Produto_Caixa.CursorType = 0 RS_Produto_Caixa.LockType = 3 query = "SELECT pc.codigo_chave, pc.codigo_produto, pc.codigo_caixa, pc.quantidade_inicial, pc.quantidade_final, cx.nome_caixa FROM Produto_Caixa pc INNER JOIN Caixas cx ON pc.codigo_caixa = cx.codigo_caixa WHERE " if requesT("action") = "EDITAR" Then query = query & "(pc.codigo_chave = " & codigo_caixa_sel & ")" RS_Produto_Caixa.Open query, conexao if RS_Produto_Caixa.recordCount > 0 Then qtd_inicial = RS_Produto_Caixa("quantidade_inicial") qtd_final = RS_Produto_Caixa("quantidade_final") codigo_caixa = RS_Produto_Caixa("codigo_caixa") codigo_chave = RS_Produto_Caixa("codigo_chave") End If Else query = query & "(codigo_produto = " & codigo_produto_sel & ") Order By cx.nome_caixa" RS_Produto_Caixa.Open query, conexao End If %>
PESQUISAR
Categoria: <%Call Cria_Combo_Categoria_ADM(request("codigo_categoria"),vazio,varLang)%>
Subcategoria: <%Call Cria_Combo_SubCategoria(request("codigo_subcategoria"),vazio,varLang)%>
Marca: <%Call Cria_Combo_Marca(codigo_marca)%>
<% Set RS_Produto = Server.CreateObject("ADODB.Recordset") RS_Produto.CursorLocation = 3 RS_Produto.CursorType = 0 RS_Produto.LockType = 3 query = "SELECT Produtos.codigo_produto, Produtos.nome_produto, Categorias.codigo_categoria, Categorias.nome_categoria FROM Produtos INNER JOIN Categorias ON Produtos.codigo_categoria = Categorias.codigo_categoria WHERE Produtos.sigla_idioma = '" & varLang & "' AND Categorias.sigla_idioma = '" & varLang & "'" If request("codigo_categoria")<> "" Then query = query & " AND Produtos.codigo_categoria= " & request("codigo_categoria") End If If request("codigo_subcategoria") <> "" Then query = query & " AND Produtos.codigo_subcategoria= " & request("codigo_subcategoria") End If RS_Produto.Open query, conexao If RS_Produto.EOF Then Response.Write "Nenhum Produto foi encontrado" Else%> <% While Not RS_Produto.EOF If RS_Produto.AbsolutePosition Mod 2 = 0 Then strColor = "class='Linha2Tabela'" Else strColor = "class='Linha1Tabela'" End If If CDbl(norep) <> RS_Produto("codigo_produto") Then%> onMouseOver="this.style.backgroundColor='#9999FF'; this.style.cursor='hand';" onMouseOut="this.style.backgroundColor='';" onClick="javascript: window.location='ADM_produto_caixa.asp?action=NPC&codigo_produto_sel=<%=RS_Produto("codigo_produto")%>&codigo_categoria=<%=request("codigo_categoria")%>&Pesquisar=Pesquisar';"> <% norep = RS_Produto("codigo_produto") End if RS_Produto.MoveNext Wend%>
><%=RS_Produto("codigo_produto")%> >  <%=RS_Produto("nome_produto")%> ><%=RS_Produto("nome_categoria")%>
<% End If%>
Cadastro de Caixas
De: <%Call Cria_Combo_quantidade("qtd_inicial",10,100, 10, "", qtd_inicial)%> Até: <%Call Cria_Combo_quantidade("qtd_final",10,100, 10, "", qtd_final)%> Colocar na caixa <% If request("action") <> "EDITAR" Then Call Cria_Combo_Caixa_ADM(codigo_caixa, "style='width:250px'", varLang) ELse Call Cria_Combo_Caixa_ADM(codigo_caixa_sel, "style='width:150px' disabled", varLang) End If %>
<%if request("action") = "EDITAR" Then%> <%Else%> <%End If%>
<%=msgRet%>
 
<% 'SPC = Salvar Produto Caixa If RS_Produto_Caixa.EOF Then Response.Write "Nenhum Caixa para este produto foi encontrada" Else %>

<% cont = 0 While Not RS_Produto_Caixa.EOF cont = cont + 1 If RS_Produto_Caixa.AbsolutePosition Mod 2 = 0 Then strColor = "class='Linha2Tabela'" Else strColor = "class='Linha1Tabela'" End If If CDbl(norep) <> RS_Produto_Caixa("codigo_chave") Then%> onMouseOver="this.style.backgroundColor='#9999FF';" onMouseOut="this.style.backgroundColor='';" <%If Cdbl(codigo_caixa_sel) = Cdbl(RS_Produto_Caixa("codigo_chave")) Then Response.Write "bgcolor=#9999FF"%>> <% norep = RS_Produto_Caixa("codigo_chave") End if RS_Produto_Caixa.MoveNext Wend RS_Produto_Caixa.Close set RS_Produto_Caixa = nothing %>
  Caixa De Até  
"> <%=RS_Produto_Caixa("nome_caixa")%> <%=RS_Produto_Caixa("quantidade_inicial")%> <%=RS_Produto_Caixa("quantidade_final")%> &Pesquisar='LISTAR'&codigo_produto_sel=<%=codigo_produto_sel%>&codigo_categoria=<%=request("codigo_categoria")%>">Editar

<%End If End If%>