Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Filipe Lima

while infinito

Por , em ASP Clássico

Recommended Posts

Filipe Lima    0

Filipe Lima
Postado

OLA AMIGOS

 

OLHEM SO

 

FIZ UM WHILE QUE ESTA DANDO UM ERRO

 

E O SEGUINTE

 

FIZ UM INSERT

 

COM O WHILE COM UMAS CONDIÇÕES

 

SO Q QUANDO MANDO GRAVAR NO BANCO

 

ELE GRAVA INFINITOS REGISTROS NO BANCO

 

OLHEM O COD 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.Endend if	ObjConn.Open conexData_inicial = Cdate(dt_rec_vale)Data_final = Cdate(dt_venc_vale)dias = (data_final - data_inicial) + 1data =  data_inicialdias_uteis = 0sabados = 0domingos = 0for 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 + 1nextqtd_hist_vale2 = dias - sabados - domingosqtd_hist_vale = qtd_hist_vale2 * 2While NOT ObjRs.eof or ObjRs.bofstrSql20 = "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 = qtd_valesaldo_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.Endend if'SOMA DE VALOR QUE ENTRARÁ NO HISTORICOestoque = saldo_em_estoque - quantidade_pedidastrSql40 = "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  Wendif 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%>

VALW PESSOAL

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Liga não, não tem nada a ver.

 

É nescessário o While?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Filipe Lima    0

Filipe Lima
Postado

assim e preciso q ele va iincluiindo no banco ate onde na tabela for igual ao codigo doi funcionarioonde no banco naum for igual ..naum precisa de de incluirtendeu??valws kra

Compartilhar este post

Link para o post
Compartilhar em outros sites

Filipe Lima    0

Filipe Lima
Postado

assimeu gostaria q quando ele pegasse todos os codigos iguais ao quem vem do form no bancoigual a abiaxostrSql20 = "select * from t_vale_func where cd_func_pas = '"&cd_func_vale&"'"Set ObjRs20 = objConn.Execute(strSql20)quando o cd_func_pas = cd_func_valeele fizesse a inserçãomas quando cabar de jogar todos com esse cod ele parar e naum continuar jogando

Compartilhar este post

Link para o post
Compartilhar em outros sites

Filipe Lima    0

Filipe Lima
Postado

PENSSEI ASSIMNO FINAL FAZER UMA CONDIÇÃO TIPOELE VAI PROCURAR NO BANCO ATE ONDE COD1 = COD2SE O COD FOR DIFERENTEELE FAZER UM RESPONSE.ENDSE O CODIGO FOR IGUALFAZER UM CON +1 O QUE você AXAEU FAÇO UM WHILEOU FAÇO UM FORe naum sei como eu vo fazerso tenhu na cabeçaalguem da uma luz aivalwsfalws

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito