<% nCodCliente = Session("nCodCliente") nCodProduto = Request("fCodProduto") nQtdProduto = Request("fQtdProduto") nIdTipoOperacao = Request("fIdTipoOperacao") 'response.Write(nIdTipoOperacao) nArea = Request("fArea") nConveniencia = Request("fConveniencia") if vazio(nQtdProduto) then nQtdProduto = 1 end if If Vazio(nIdTipoOperacao) Then nIdTipoOperacao = 2 ' nIdTipoOperacao = 2 VENDA DVD NOVOS E CONVENIÊNCIA' ' nIdTipoOperacao = 3 VENDA SEMI-NOVOS' ' nIdTipoOperacao = 4 VENDA LIVROS' If Vazio(nCodCliente) Then Response.Redirect("/usuario/login.asp?fOrigem=" & Server.URLEncode("/loja_virtual/carrinho/carrinho_venda.asp?fCodProduto=" & nCodProduto & "&fQtdProduto=" & nQtdProduto & "&fIdTipoOperacao=" & nIdTipoOperacao)) Else nCodPedido = recuperaCodPedido(nCodCliente) if nIdTipoOperacao = 2 then nQtdEstoque = RecuperaQtdEstoque(nCodProduto) elseif nIdTipoOperacao = 3 then nQtdEstoque = RecuperaQtdEstoqueSemiNovos(nCodProduto) elseif nIdTipoOperacao = 4 then nQtdEstoque = RecuperaQtdEstoqueLivros(nCodProduto) end if If nIdTipoOperacao = 2 or 3 or 4 Then If Cint(nQtdProduto) > Cint(nQtdEstoque) Then sMsgEstoque = "Quantidade de itens solicitados menor que a disponível no estoque.\nTemos " & nQtdEstoque & " item(ns) deste produto em nosso estoque." Session("sMsgEstoque") = sMsgEstoque Response.Redirect("carrinho.asp") End If End If If (Vazio(nCodPedido) AND Not Vazio(nCodProduto)) Then ' PRIMEIRO FILME NO CARRINHO, ENTÃO É O INÍCIO DO PEDIDO '' RECUPERA CÓDIGO DO PRÓXIMO PEDIDO '' INICIO' Set oRSProximoCodigo = Server.CreateObject("ADODB.Recordset") oRSProximoCodigo.Open "SELECT MAX(Id_Pedido) AS CodigoUltimoPedido FROM TbPedidos", ConexaoFox If IsNull(oRSProximoCodigo("CodigoUltimoPedido")) Then nCodPedido = 1 Else nCodPedido = oRSProximoCodigo("CodigoUltimoPedido") + 1 End If oRSProximoCodigo.Close Set oRSProximoCodigo = Nothing '' FIM ' '' RECUPERA CÓDIGO DO PRÓXIMO PEDIDO '' GRAVA PEDIDO '' INICIO' nIdStatus = 1 sQuery = "INSERT INTO TbPedidos (Id_Pedido, Id_Cliente, Id_Status, Data_Pedido) VALUES (" & nCodPedido & "," & nCodCliente & "," & nIdStatus & ",GetDate())" ConexaoFox.Execute sQuery '' FIM' '' GRAVA PEDIDO' End If 'CHECA SE QUANTIDADE É MAIOR QUE ESTOQUE ' If Cint(nQtdProduto) > Cint(nQtdEstoque) Then sMsgEstoque = "Quantidade de itens solicitados menor que a disponível no estoque.\nTemos " & nQtdEstoque & " item(ns) deste produto em nosso estoque." Session("sMsgEstoque") = sMsgEstoque Response.Redirect("carrinho.asp") Else If Not Vazio(nCodProduto) Then nValorItem = RecuperaPrecoVenda(nCodProduto) 'CHECAR SE O PREÇO É DIFERENTE DE ZERO' 'if nValorItem > 0 Then ' sSecaoProduto = RecuperaSecaoVenda(nCodProduto) 'Comentei esta linha abaixo para tentar sanar o problema do estoque do seminovo 'If Vazio(nQtdProduto) Then nQtdProduto = 1 If nIdTipoOperacao = 3 Then nIdTipoProduto = 1 ElseIf sSecaoProduto = "CONVENIENCIA" Then nIdTipoProduto = 4 ' CONVENIENCIA' Elseif nIdTipoOperacao = 4 Then nIdTipoProduto = 7 ' LIVRO ' Else nIdTipoProduto = 1 End If nIdStatus = 1 ' ITEM ESCOLHIDO PELO CLIENTE' '' '' INCLUSÃO NO CARRINHO E ATUALIZAÇÃO DE ESTOQUE' '' INICIO ' If Not presenteNoCarrinho(nCodPedido,nCodProduto,nIdTipoOperacao) Then sQueryAddPedido = " INSERT INTO TbItemPedido (Id_Pedido,Cod_Produto,Id_Status,Id_Tipo_Produto,Qtd_Produto,Data_Pedido,Id_Tipo_Operacao, Valor) " &_ " VALUES (" & nCodPedido & ", " & nCodProduto & "," & nIdStatus & "," & nIdTipoProduto & "," & nQtdProduto & ",GetDate()," & nIdTipoOperacao & ",'" & nValorItem & "')" 'Response.Write(sQueryAddPedido)' ConexaoFox.Execute sQueryAddPedido If nIdTipoOperacao = 2 Then ' ATUALIZA ESTOQUE PRODUTOS VENDAS' sQueryAtualizaEstoque = " UPDATE TbProdutoVenda " &_ " SET Qtd_Estoque = Qtd_Estoque - " & nQtdProduto &_ " WHERE Codigo = '" & nCodProduto & "'" ConexaoFox.Execute(sQueryAtualizaEstoque) End if If nIdTipoOperacao = 3 Then ' ATUALIZA ESTOQUE PRODUTOS VENDAS SEMI-NOVOS' sQueryAtualizaEstoqueSemiNovos = " UPDATE TbSemiNovos " &_ " SET Qtd_Estoque = Qtd_Estoque - " & nQtdProduto &_ " WHERE Codigo = '" & nCodProduto & "'" ConexaoFox.Execute(sQueryAtualizaEstoqueSemiNovos) End if If nIdTipoOperacao = 4 Then ' ATUALIZA ESTOQUE PRODUTOS VENDAS LIVROS ' sQueryAtualizaEstoqueLivros = " UPDATE TbLivrosVenda " &_ " SET Qtd_Estoque = Qtd_Estoque - " & nQtdProduto &_ " WHERE Codigo = '" & nCodProduto & "'" ConexaoFox.Execute(sQueryAtualizaEstoqueLivros) End if Else If nIdTipoOperacao = 2 Then ' ATUALIZA ESTOQUE PRODUTOS VENDAS' sQueryAtualizaEstoque = " UPDATE TbProdutoVenda " &_ " SET Qtd_Estoque = Qtd_Estoque - " & nQtdProduto &_ " WHERE Codigo = '" & nCodProduto & "'" ConexaoFox.Execute(sQueryAtualizaEstoque) End if If nIdTipoOperacao = 3 Then ' ATUALIZA ESTOQUE PRODUTOS VENDAS SEMI-NOVOS' sQueryAtualizaEstoqueSemiNovos = " UPDATE TbSemiNovos " &_ " SET Qtd_Estoque = Qtd_Estoque - " & nQtdProduto &_ " WHERE Codigo = '" & nCodProduto & "'" ConexaoFox.Execute(sQueryAtualizaEstoqueSemiNovos) End if If nIdTipoOperacao = 4 Then ' ATUALIZA ESTOQUE PRODUTOS VENDAS LIVROS ' sQueryAtualizaEstoqueLivros = " UPDATE TbLivrosVenda " &_ " SET Qtd_Estoque = Qtd_Estoque - " & nQtdProduto &_ " WHERE Codigo = '" & nCodProduto & "'" ConexaoFox.Execute(sQueryAtualizaEstoqueLivros) End if if nQtdProduto = 1 Then sQueryAtualizaPedido = " UPDATE TbItemPedido SET Qtd_Produto= Qtd_Produto + 1" &_ " WHERE Cod_Produto='" & nCodProduto & "' " &_ " AND Id_Pedido =" & nCodPedido &_ " AND Id_Tipo_Operacao = " & nIdTipoOperacao ConexaoFox.Execute sQueryAtualizaPedido else sQueryAtualizaPedido = " UPDATE TbItemPedido SET Qtd_Produto=" & nQtdProduto &_ " WHERE Cod_Produto='" & nCodProduto & "' " &_ " AND Id_Pedido =" & nCodPedido &_ " AND Id_Tipo_Operacao = " & nIdTipoOperacao ConexaoFox.Execute sQueryAtualizaPedido end if sMsg = "Este produto que você inseriu agora já está anteriormente no carrinho, apenas a quantidade de itens foi atualizada." End If 'End if' sQueryAtualizaCopia = "UPDATE TbEstoque SET Qtd_Estoque = Qtd_Estoque-" & nQtdProduto & " WHERE Codigo='" & nCodProduto & "'" ConexaoFox.Execute sQueryAtualizaCopia sQueryAtualizaDataPedido = "UPDATE TbPedidos SET Data_Pedido = GetDate() WHERE Id_Pedido =" & nCodPedido ConexaoFox.Execute sQueryAtualizaDataPedido '' FIM '' INCLUSÃO NO CARRINHO E ATUALIZAÇÃO DE ESTOQUE End If End If End If Session("sMsgDuplicado") = sMsg Session("nCodPedido") = nCodPedido Session("nValorTotalItens") = nValorTotalItens Response.Redirect("carrinho.asp") %>