<!--#include file="conexao.asp"-->
<%
cd = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("cd"),"'",""))))
cd_func_vale = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("cdfunc"),"'",""))))
dt_rec_vale = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dt_rec_vale"),"'",""))))
dt_venc_vale = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dt_venc_vale"),"'",""))))
dt_sai_vale = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dt_sai_vale"),"'",""))))
us_vale = Session("nome")
data = Date()
if cd = "" or cd_func_vale = "" or dt_rec_vale = "" or dt_venc_vale = "" then
%>
<body <%=colorbg1%>>
<script language="javascript">
alert("Todos os campos são de preenchimento obrigatório !");
window.location = 'form_func_vale.asp'
</script>
<%
Response.End
end if
ObjConn.Open conex
Data_inicial = Cdate(dt_rec_vale)
Data_final = Cdate(dt_venc_vale)
dias = (data_final - data_inicial) + 1
data = data_inicial
dias_uteis = 0
sabados = 0
domingos = 0
for x = 1 to dias
if weekday(data) = 7 then
sabados = sabados + 1
end if
if weekday(data) = 1 then
domingos = domingos + 1
end if
data = data + 1
next
qtd_hist_vale2 = dias - sabados - domingos
qtd_hist_vale = qtd_hist_vale2 * 2
While NOT ObjRs.eof or ObjRs.bof
strSql20 = "select * from t_vale_func where cd_func_pas = '"&cd_func_vale&"'"
Set ObjRs20 = objConn.Execute(strSql20)
cd_pas_vale = ObjRs20("cd_pas_hist")
strSql30 = "select * from t_passe where cd_pas = '"&cd_pas_vale&"'"
Set ObjRs30 = objConn.Execute(strSql30)
quantidade_pedida = Cint(qtd_vale)
saldo_em_estoque = Cint(ObjRs30("qtd_pas"))
if quantidade_pedida > saldo_em_estoque then
%>
<body <%=colorbg1%>>
<script language="javascript">
alert("A QUANTIDADE PEDIDA E MAIOR DO QUE A QUANTIDADE EM ESTOQUE !");
window.location = 'form_func_vale.asp'
</script>
<%
Response.End
end if
'SOMA DE VALOR QUE ENTRARÁ NO HISTORICO
estoque = saldo_em_estoque - quantidade_pedida
strSql40 = "Update t_passe Set qtd_pas='"&estoque&"' where cd_pas = '"&cd_pas_vale&"'"
Set ObjRs40 = objConn.Execute(strSql40)
strsql = "Insert into t_hist_vale (cd, cd_pas_vale, qtd_hist_vale, dt_rec_vale, dt_venc_vale, dt_sai_vale, cd_func_vale, us_vale, data) values ('"&cd&"', '"&cd_pas_vale&"', '"&qtd_hist_vale&"', '"&dt_rec_vale&"', '"&dt_venc_vale&"', '"&dt_sai_vale&"', '"&cd_func_vale&"', '"&us_vale&"', '"&data&"')"
Set ObjRs4 = ObjConn.execute(strsql)
objRS.MoveNext
Wend
if error <> 0 then
Response.Write "Ocorreu o seguinte erro "&err.description&"."
else%>
<body <%=colorbg1%>>
<script language="javascript">
alert("Cadastro Realizado Com sucesso !");
window.location = parent.document.form.reset();
</script>
<%end if%>
Pergunta
filipeflc00
OLHA SO GALERA
EU TO FAZENDO UMA INSERÇÃO NESSE COD..
está FUNCIONANDO
MAS está DANDO UM LOOP INFINITO
E está CADASTRANDO UM MONT DE VEZ O MSMO REGISTRO
O QUE ESTA ERRADO
OLHEM AI
<!--#include file="conexao.asp"--> <% cd = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("cd"),"'","")))) cd_func_vale = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("cdfunc"),"'","")))) dt_rec_vale = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dt_rec_vale"),"'","")))) dt_venc_vale = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dt_venc_vale"),"'","")))) dt_sai_vale = Server.HTMLEncode(trim(Ucase(Replace(Request.Form("dt_sai_vale"),"'","")))) us_vale = Session("nome") data = Date() if cd = "" or cd_func_vale = "" or dt_rec_vale = "" or dt_venc_vale = "" then %> <body <%=colorbg1%>> <script language="javascript"> alert("Todos os campos são de preenchimento obrigatório !"); window.location = 'form_func_vale.asp' </script> <% Response.End end if ObjConn.Open conex Data_inicial = Cdate(dt_rec_vale) Data_final = Cdate(dt_venc_vale) dias = (data_final - data_inicial) + 1 data = data_inicial dias_uteis = 0 sabados = 0 domingos = 0 for x = 1 to dias if weekday(data) = 7 then sabados = sabados + 1 end if if weekday(data) = 1 then domingos = domingos + 1 end if data = data + 1 next qtd_hist_vale2 = dias - sabados - domingos qtd_hist_vale = qtd_hist_vale2 * 2 While NOT ObjRs.eof or ObjRs.bof strSql20 = "select * from t_vale_func where cd_func_pas = '"&cd_func_vale&"'" Set ObjRs20 = objConn.Execute(strSql20) cd_pas_vale = ObjRs20("cd_pas_hist") strSql30 = "select * from t_passe where cd_pas = '"&cd_pas_vale&"'" Set ObjRs30 = objConn.Execute(strSql30) quantidade_pedida = Cint(qtd_vale) saldo_em_estoque = Cint(ObjRs30("qtd_pas")) if quantidade_pedida > saldo_em_estoque then %> <body <%=colorbg1%>> <script language="javascript"> alert("A QUANTIDADE PEDIDA E MAIOR DO QUE A QUANTIDADE EM ESTOQUE !"); window.location = 'form_func_vale.asp' </script> <% Response.End end if 'SOMA DE VALOR QUE ENTRARÁ NO HISTORICO estoque = saldo_em_estoque - quantidade_pedida strSql40 = "Update t_passe Set qtd_pas='"&estoque&"' where cd_pas = '"&cd_pas_vale&"'" Set ObjRs40 = objConn.Execute(strSql40) strsql = "Insert into t_hist_vale (cd, cd_pas_vale, qtd_hist_vale, dt_rec_vale, dt_venc_vale, dt_sai_vale, cd_func_vale, us_vale, data) values ('"&cd&"', '"&cd_pas_vale&"', '"&qtd_hist_vale&"', '"&dt_rec_vale&"', '"&dt_venc_vale&"', '"&dt_sai_vale&"', '"&cd_func_vale&"', '"&us_vale&"', '"&data&"')" Set ObjRs4 = ObjConn.execute(strsql) objRS.MoveNext Wend if error <> 0 then Response.Write "Ocorreu o seguinte erro "&err.description&"." else%> <body <%=colorbg1%>> <script language="javascript"> alert("Cadastro Realizado Com sucesso !"); window.location = parent.document.form.reset(); </script> <%end if%>VALWS
Link para o comentário
Compartilhar em outros sites
5 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.