Problema Quantidade maior que em estoque

Tayso · Outubro 4, 2007

Boa Tarde pessoal.

To com um probleminha, eu tenho um sisteminha de estoque e quando o cliente efetua um pedido ele vai selecionar um produto e depois uma quantidade e clickar em atualizar.

Se a quantidade seleciona for maior que a atual em estoque

entaum ele da um mensagem.

se não continua no processo de selecao de itens.

Bem eu to utilizando um request.query string para pegar o valor da quantidade solicitada e fazer a comparacao, so que quando ele coloca a quantidade e clicka em atualizar, ele não passa o valor pra querystring, somente quando ele clicka pela segunda vez ele da a informacao que a quantidade solicitada é maior que a atual em estoque.

Depois disso mesmo que você altere o valor para uma quantidade menor que a do estoque, ele fica dando a mensagem.

Eu procurei no forum e achei varios topicos porem não consegui resolver meu problema.

segue o codigo:

ASP

<%

' Abre conexao com banco de dados

Set conexao= Server.CreateObject("ADODB.Connection") 'abre conexao com banco de dados

Conexao.Open Application("StringConexao")

'#################################################################

'#função para atualizar os dados no campo produtos e quantidade

if (not isempty(Request.form("update"))) then

produto_id = Request.querystring("produto_id")

quantidade_pedida_http = Request.querystring("quantidade_pedida")

codprod2 = Request.querystring("codprod")

Set rst_quanti = Conexao.Execute ("Select datacad,descricao,quantidade,sap,apres,preco_unitario,produto_id from produtos where produto_id="&produto_id)

for each campo in request.form

If (left(campo,4)="cod_") Then

codprod = CLNG(right(campo,len(campo)-4))

qtde = CLNG(Request.Form(campo))

quantidade_estoque = rst_quanti("quantidade")

if (quantidade_pedida_http > rst_quanti("quantidade") and produto_id = produto_id) then

%>

alert("A QUANTIDADE SOLICITADA E MAIOR DO QUE A QUANTIDADE EM ESTOQUE !");

window.location = 'main.asp?act=inc_pedido_2&codigo=<%= Request.QueryString("codigo") %>&cliente_id=<%= Request.QueryString("cliente_id") %>&quantidade_pedida=<%= Request.QueryString("quantidade_pedida") %>&produto_id=<%= Request.QueryString("produto_id") %>'

</script>

<%

else

Conexao.Execute "update cotacao_item SET quantidade="& qtde &" where codprod = " & codprod

end if

end If

If (left(campo,4)="del_") Then

codprod = CLNG(right(campo,len(campo)-4))

Conexao.Execute "delete from cotacao_item where codprod = " & codprod

end If

' primeiro parametro indica se veio do Cotacao_Busca

' Marca = Request("sch_NumMod")

' se Marca <> de null veio do Busca

codprod = Request("found")

if codprod = "" then

codprod = Request.Form("codprod")

End If

Descricao = uCase(Request.Form("descricao"))

Quant = Request.Form("qtde")

if (Quant="") then

Quant = 1

end if

<tr>

<%

codigo = Request.QueryString("codigo")

Set Rst = Conexao.Execute("SELECT * FROM Clientes WHERE Usuario_ID=" & codigo)

Function DataInvertida(data)

dia = day(Data)

mes = month(Data)

ano = year(Data)

DataInvertida = dia&"/"&mes&"/"&ano

End Function

response.buffer = true

ac=request("act")

if ac="" then

ac="lg"

end if

%>

<td class="tleft"colspan="6" width="100%" height="30" align="center" valign="middle"><font class="texto"><b>.:: DADOS DO CLIENTE ::.</b></td>

</tr>

<td class="tleft" align="right">Tipo Cliente: </td>

<% if isNull(rst("Tipo")) or rst("Tipo") = "1" then

Response.write "Pessoa Jurídica"

%>

<% elseif isNull(rst("Tipo")) or rst("Tipo") = "0" then

Response.write "Pessoa Fisíca"

%>

<% else

Response.write rst("Tipo")

end if

%>

</font>

</td>

<td class="tleft" align="right" >Numero de Segurança:</td>

</tr>

<td class="tleft" align="right">Inscr. Est./ RG:</td>

</tr>

</table>

</td>

</tr>

<td class="tleft" align="right">Endereço:</td>

<td class="tleft" align="right">Bairro:</td>

</tr>

</table>

</td>

</tr>

<td class="tleft" align="right">Cidade:</td>

<td class="tleft" align="right">Estado:</td>

<% if isNull(rst("Est")) or rst("Est") = "AC" then

Response.write "Acre"

%>

<% elseif isNull(rst("Est")) or rst("Est") = "AL" then

Response.write "Alagoas"

%>

<% elseif isNull(rst("Est")) or rst("Est") = "AP" then

Response.write "Amapá"

%>

<% elseif isNull(rst("Est")) or rst("Est") = "AM" then

Response.write "Amazonas"

%>

<% elseif isNull(rst("Est")) or rst("Est") = "AM" then

Response.write "Bahia"

%>

<% elseif isNull(rst("Est")) or rst("Est") = "BA" then

Response.write "Amazonas"

%>

<% elseif isNull(rst("Est")) or rst("Est") = "CE" then

Response.write "Ceará"

%>

<% elseif isNull(rst("Est")) or rst("Est") = "DF" then

Response.write "Distrito Federal"

%>

<% elseif isNull(rst("Est")) or rst("Est") = "ES" then

Response.write "Espírito Santo"

%>

<% elseif isNull(rst("Est")) or rst("Est") = "GO" then

Response.write "Goiás"

%>

<% elseif isNull(rst("Est")) or rst("Est") = "MA" then

Response.write "Maranhão"

%>

<% elseif isNull(rst("Est")) or rst("Est") = "muito" then

Response.write "Mato Grosso"

%>

<% elseif isNull(rst("Est")) or rst("Est") = "MS" then

Response.write "Mato Grosso do Sul"

%>

<% elseif isNull(rst("Est")) or rst("Est") = "MG" then

Response.write "Minas Gerais"

%>

<% elseif isNull(rst("Est")) or rst("Est") = "PA" then

Response.write "Pará"

%>

<% elseif isNull(rst("Est")) or rst("Est") = "PB" then

Response.write "Paraíba"

%>

<% elseif isNull(rst("Est")) or rst("Est") = "PR" then

Response.write "Paraná"

%>

<% elseif isNull(rst("Est")) or rst("Est") = "PE" then

Response.write "Pernambuco"

%>

<% elseif isNull(rst("Est")) or rst("Est") = "PI" then

Response.write "Piauí"

%>

<% elseif isNull(rst("Est")) or rst("Est") = "RJ" then

Response.write "Rio de Janeiro"

%>

<% elseif isNull(rst("Est")) or rst("Est") = "RN" then

Response.write "Rio Grande do Norte"

%>

<% elseif isNull(rst("Est")) or rst("Est") = "RS" then

Response.write "Rio Grande do Sul"

%>

<% elseif isNull(rst("Est")) or rst("Est") = "RO" then

Response.write "Rondonia"

%>

<% elseif isNull(rst("Est")) or rst("Est") = "RR" then

Response.write "Roraima"

%>

<% elseif isNull(rst("Est")) or rst("Est") = "SC" then

Response.write "Santa Catarina"

%>

<% elseif isNull(rst("Est")) or rst("Est") = "SP" then

Response.write "São Paulo"

%>

<% elseif isNull(rst("Est")) or rst("Est") = "SE" then

Response.write "Sergipe"

%>

<% elseif isNull(rst("Est")) or rst("Est") = "TO" then

Response.write "Tocantins"

%>

<% else

Response.write rst("Est")

end if

%>

</font>

</td>

<td class="tleft" align="right">Responsável:</td>

</tr>

</table>

</td>

</tr>

</tr>

</table>

</td>

</tr>

</table>

</td>

</tr>

</table

</td>

</tr>

</table>

<%

Rst.Close

Set Rst = Nothing

%>

<tr>

<tr>

<tr>

<td class="tleft">Pedido Nº: <b><%= Right("000000" & Session("cid"), 6) %></b></td>

<td class="tleft" align="center">Data Pedido:</td>

<!--

//

hoje = new Date()

dia = hoje.getDate()

dias = hoje.getDay()

mes = hoje.getMonth()

ano = hoje.getYear()

if (dia < 10)

dia = "0" + dia

if (ano < 2000)

ano = "19" + ano

// function WriteDate() {

document.write ("<font class='texto'>" + dia + " / " + mes + " / " + ano + " </font>")

// }

// -->

</script>

</td>

</tr>

</table>

</td>

</tr>

<form action="main.asp?act=inc_pedido_2&codigo=<%= codigo %>&cliente_id=<%= cliente_id %>&quantidade_pedida=<%= qtde %>&produto_id=<%= Request.QueryString("produto_id") %>&codprod2=<%= codprod2 %>" method="POST" name="update">

<tr>

<td class="td2" align="center">Código:<input type="text" size="5" name="codprod" value="<%= Request.QueryString("Found") %>"></td>

</tr>

</table></td>

</tr>

<tr>

<tr>

<td class="tmenu">Código</td>

<td class="tmenu">Descrição</td>

<td class="tmenu">Preço R$</td>

<td class="tmenu">Excluir</td>

</tr><%

' Para cada registro na tabela Cotacao_Item, mostra uma nova linha na tabela com

RS_Cotacao_Item.Open "SELECT * FROM Cotacao_Item WHERE cotacao_id = " & Session("cid") & " ORDER BY codprod", Conexao

' Checa se formulario possui algum item

If RS_Cotacao_Item.EOF Then %>

<li><p align="center"><font size="3"><b>Não há itens para ser cotado.</b></font></p>

</li></ul><%

else

total=0

RS_Cotacao_Item.MoveFirst

While Not RS_Cotacao_Item.EOF %>

<td align="center"><input maxlength="5" size="3" type="text" name="cod_<%= rs_cotacao_item("codprod") %>" class="tnum" value="<%= RS_Cotacao_Item("Quantidade") %>"><input type="hidden" name="qtde" value="<%= RS_Cotacao_Item("Quantidade") %>"></td>

</tr>

<%

total=total+(RS_Cotacao_Item("preco_unitario")*RS_Cotacao_Item("quantidade"))

RS_Cotacao_Item.MoveNext

Wend %>

</tr>

<td align="center" class="boxborder"><font color=#336699><small>(pressione ATUALIZAR)</small></font></td>

<td align="center">Total R$</td>

</table></form>

<%

codigo = Request.QueryString("codigo")

Set Rst = Conexao.Execute("SELECT * FROM Clientes WHERE Usuario_ID=" & codigo)

%>

<form action="main.asp?act=cnf&codigo=<%= codigo %>&ped_id=<%= Session("cid") %>&valor_compra=<%= (total) %>&qtde=<%= ("Quantidade") %>" method="POST" name="confirma">

<tr>

<td class="tleft">Informações Extras:</td>

</tr>

<tr>

</tr>

</table>

</form>

<%

Rst.Close

Set Rst = Nothing

end if %>

</td>

</tr>

</table>

</td>

</tr>

</table><td></tr></table><%

RS_Cotacao_Item.Close

Conexao.Close

Set RS_Cotacao_Item = Nothing

Set Conexao = Nothing

%>

alguém poderia me dar um help???????

Tayso · Outubro 4, 2007

Alguem pode me ajudar??????????????????????????????????

Ted k' · Outubro 4, 2007

Essa linha aqui:

ASP

if (quantidade_pedida_http > rst_quanti("quantidade") and produto_id = produto_id) then

mude para esta aqui!

ASP

if (""&quantidade_pedida_http&"" > ""&rst_quanti("quantidade")&"" and ""&produto_id&"" = ""&produto_id&"") then

Tayso · Outubro 4, 2007

Essa linha aqui:

ASP

if (quantidade_pedida_http > rst_quanti("quantidade") and produto_id = produto_id) then

mude para esta aqui!

ASP

if (""&quantidade_pedida_http&"" > ""&rst_quanti("quantidade")&"" and ""&produto_id&"" = ""&produto_id&"") then

Entaum eu mudei e continua com o mesmo erro, e o engrassado é que quando eu seleciono um produto, adiciona com a quantidade de 1 ate ai ta certo, depois que eu altero a quantidade e clicko em atualizar o valor não passa para a querystring, somente depois que eu clicko em atualizar ele verifica, e informa a mensagem, supondo que eu coloco a quantidade de 18, e em estoque so tem 10, so na segunda vez o valor da query é verifica, dai ele me retorna a quantidade de 18, e quanto eu altero para 1 quantidade fica normal, mas se colocar 2, ele da erro

eu mudei uma opcao e tbm nao adiantou

'função para atualizar os dados no campo produtos e quantidadeif (not isempty(Request.form("update"))) thenproduto_id = Request.querystring("produto_id")quantidade_pedida_http = Request.querystring("quantidade_pedida")codprod2 = Request.querystring("codprod")Set rst_quanti = Conexao.Execute ("Select datacad,descricao,quantidade,sap,apres,preco_unitario,produto_id from produtos where produto_id="&produto_id)	for each campo in request.form		If (left(campo,4)="cod_") Then			codprod = CLNG(right(campo,len(campo)-4))			qtde = CLNG(Request.Form(campo))			quanti = rst_quanti("quantidade")						if (""&quantidade_pedida_http&"" > ""&quanti&"" and ""&produto_id&"" = ""&produto_id&"") then			'	response.write quanti			%>			<script language="javascript">				alert("A QUANTIDADE SOLICITADA E MAIOR DO QUE A QUANTIDADE EM ESTOQUE !");				window.location = 'main.asp?act=inc_pedido_2&codigo=<%= Request.QueryString("codigo") %>&cliente_id=<%= Request.QueryString("cliente_id") %>&quantidade_pedida=<%= Request.QueryString("quantidade_pedida") %>&produto_id=<%= Request.QueryString("produto_id") %>'			</script>			<%			else				Conexao.Execute "update cotacao_item SET quantidade="& qtde &" where codprod = " & codprod				'Conexao.Execute "delete from cotacao_item where codprod = " & codprod			end if		end If		If (left(campo,4)="del_") Then			codprod = CLNG(right(campo,len(campo)-4))			Conexao.Execute "delete from cotacao_item where codprod = " & codprod		end If	nextend if

pq sera que fica assim? valeu............

Tayso · Outubro 5, 2007

Ted k

eu troquei a opcao de request.query string por request.form e agora ele verifica ja na primeira vez se a quantidade é maior ou nao, porem ele acusa qualquer numero maior que 1, ex: se eu tenho do produto xba 10 quantidade em estoque quando solicito 11 ele verifica e da a mensagem e quando eu solicito 2 ou qualquer numero maior que 1, ele da a mensagem.

no codigo ta assim:

if (not isempty(Request.form("update"))) then   for each campo in request.form	If (left(campo,4)="cod_") Then		codprod = CLNG(right(campo,len(campo)-4))		qtde = CLNG(Request.Form(campo))		produto_id = Request.querystring("produto_id")					codprod2 = Request.querystring("codprod")Set rst_quanti = Conexao.Execute ("Select datacad,descricao,quantidade,sap,apres,preco_unitario,produto_id from produtos where produto_id="&produto_id)		quanti = rst_quanti("quantidade")								 'aqui a linha que faz a verificacao.		if (""&rst_quanti("quantidade")&"" < ""&qtde&"" or ""&qtde&"" > ""&rst_quanti("quantidade")&""  and ""&produto_id&"" = ""&produto_id&"") then		response.write quanti%><script language="javascript">	alert("A QUANTIDADE SOLICITADA E MAIOR DO QUE A QUANTIDADE EM ESTOQUE !");	window.location = 'main.asp?act=inc_pedido_2&codigo=<%= Request.QueryString("codigo") %>&cliente_id=<%= Request.QueryString("cliente_id") %>&produto_id=<%= Request.QueryString("produto_id") %>'</script>

você pode me dar um help???

valeu

Entrar

Arquivado

Problema Quantidade maior que em estoque

Recommended Posts

Tayso 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Tayso 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Tayso 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Tayso 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Não atualizar a div dentro de um setInterval

Setar cookie para subdominio

Evitar que o input file seja limpado ao cancelar a seleção

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante