Ir para conteúdo
Fórum Script Brasil

Clauido José

Membros
  • Total de itens

    457
  • Registro em

  • Última visita

Tudo que Clauido José postou

  1. caramba depois de um dia inteiro quebrando a cabeça concegui resolver hehehehehe. Ficou asim
  2. bom pessoal não sei o que ta acontecendo comigo to com um problema tenho um sistema de estoque onde quando vou fazer uma baixa do estoque tenho que verificar o total do estoque se é menor que o valor informado se não for ele vai verificar se é menor que 0 se for ele informa é menor que zero se não ele fala valeu estou fazendo assim. estoque=30 qtdInfo=20 if estoque<qtdinfo then é menor else total=estoque-qtdInfo if estoque<0 then 'não pode else end if
  3. andreia deu certo mas eu quero que quando eu volvar para tirar o mouse ela vota para cor que estava
  4. cara faz uma consulta assim se entendi bem você quer que liste somente antes de 30 dias corretos?Se for isso tenta fazer assim sql="Select * from tabela where cliente="&cliente set rsCliente = Conexao.Execute(Sql) busca=rsCliente("Vencimento") total=busca-date() if busca<total then response.write("não listar") else response.write("listar") end if acho que é isso espero que ajede
  5. faz assim ó var f = document.getElementById("formTabDados"); document.f.method="POST"; document.f.action="pag+".php"; document.f.target = "_self"; document.f.submit();
  6. rafael eu debuguei da seguinte maneira como você falou coloquei assim 'qtdp = request.form("qtdp") busca = rsBusca("qtdincial") Response.Write(busca&"<br>"&rsBusca("qtdincial")&"<BR>"&qtdp&"<br>") if busca>qtdp then Response.Write("Maior") elseif busca < qtdp then Response.Write("Menor") else response.Write("valeu") end if Coloquei diversos valores primeiro tinha colocado request.form no qtdp só que não recuperou estou usando ajax pode ser isso estou usando o metodo get sera que tenho que por post?Mas se eu tira o form do request ele me recupera o valor certo. Bom os resutados foram os seguintes rsBusca("qtdinicial") = 10 tentei com 10;20;5;1;30;etc... os resultados foram sempre assim assim sucessivamente Rafael vou explicar melhor o que eu quero bom é seguinte estou fazendo um sistema de estoque para empresa e toda vez que estiver na venda ele tem que verificar o estoque o produto e quantidade ele tem que verificar se é maior que estoque se não ele tirar do referente produto vendido com a qtd do estoque com valor informado e não pode deixar que fique negativo entendeu.
  7. tudo bem rafa vou tentar agora depois eu posto aqui ok.
  8. pessoal estou criando uma rotina para uma pagina aqui no trampo bom é seguinte eu quero que o quando eu passar o mouse por cima da tabela ele mude a colona de cor e quando eu clicar nela ela mostra uma sub tabela estou fazendo assim mas não ta mudando a cor so mostrando a sub tabela quando eu clico.
  9. cara não é que ta icompleta estou usando ajax. eja fiz esse tipo debug ele me traz o valor certinho do resultados agora o que ele não faz é cair sempre na condicona de > entedende.
  10. você não ta entendeu eu já fiz isso o resultado da consulta ta certo não ta errado.
  11. eu fiz o seguinte deppois do SQl eu dei um response pra ver o que tava pegando da uma olha cara ele me traz o recordcount com 1 valor qtd 10 valor qtdp = 10
  12. é seguinte quanto ao ajax não tenho problem as rotinas ta funcionando certo meu problema ta nessa rotina ai que te falei não sei porque não ta fazendo certo tem alguma coisa com minha logica?
  13. esta pagina que estou criando é em asp, e ajax bom quando eu inform a quantidade do produto ele procura o produto na tabela de estoque e quando o produto estiver com o valor maior ou menor que iformado ele não executa as outras rotinas apenas me informa que é maior ou menor entende?
  14. bom é seguinte ele não ta no loop eu vou postar a pagina toda pra você ve <!--#include file="strCon.asp"--> <% dim strTitulo,strTexto,strNew, Conexao, strSql call abreConexao() codA=Request("codA") codE=Request("codE") codT=Request("codT") DATA=Request("DATA") plan=Request("plan") noOs=Request("noOs") codP=Request("codP") qtdp=Request("qtdp") desc=Request("desc") codF=Request("codF") atc=Request("atc") 'Response.Write(atc) 'Response.End() dim i if atc="new" and isnumeric(codP)=true then strSql = "Select * from tabEstoqueFisico where codequipamento="&codp if rsBusca.state = 1 then rsBusca.Close rsBusca.Open strSql,Conexao,3,3 if not rsBusca.Eof then idEstoqueF = rsBusca("idEstoqueF") qtdEquipam = rsBusca("qtdincial") sTotal = (qtdEquipam - qtdp) if rsBusca("qtdincial")>qtdp then Response.Write("Maior") elseif rsBusca("qtdincial") < qtdp then Response.Write("Menor") else dim total total =0 strSql = "Select * from tabTecnicoCampo where idTecnicoCampo = " & codT if rsBusca.state = 1 then rsBusca.Close rsBusca.Open strSql,Conexao,3,3 if rsBusca.RecordCount>0 then if rsBusca("QtdMaxima") > qtdp then Response.Write("alert('O tecnico ultrapassou a quantidade permitida')") else total = (qtdEquipam - qtdp) strUp="Update tabEstoqueFisico set qtdincial = " & total & " where idEstoqueF = " & idEstoqueF Conexao.Execute(strUp) strNew = "insert into tabNoOs (idEmpresa,idTecAlmox,idTecCampo,codequipamento,QtdEquipa,PlaComp,NoOs) values (" strNew = strNew & codE & "," & codA & "," & codT & "," & codP & "," & qtdp & "," & plan & "," & noOs & ")" 'response.Write(strNew) 'response.End() Conexao.Execute(strNew) campo="tabNoOs.NoOs,tabNoOs.codequipamento,tabEquipamento.DescricaoEquipamento,tabTecnicoAlmox.Nome,tabTecnicoCampo.NOME," campo=campo&"tabNoOs.QtdEquipa,tabNoOs.PlaComp,tabNoOs.NoOs,tabNoOs.dataos,tabNoOs.idTecAlmox,tabNoOs.idTecCampo" strsql = "SELECT " & Campo & " FROM tabTecnicoCampo INNER JOIN (tabTecnicoAlmox INNER JOIN ((tabEquipamento INNER JOIN tabEstoqueFisico ON tabEquipamento.CodigoEquipamento = tabEstoqueFisico.codequipamento) INNER JOIN tabNoOs ON tabEstoqueFisico.codequipamento = tabNoOs.codequipamento) ON tabTecnicoAlmox.idTecnicoAlmox = tabNoOs.idTecAlmox) ON tabTecnicoCampo.idTecnicoCampo = tabNoOs.idTecCampo " strsql = strsql & "WHERE tabNoOs.NoOs=" & noOs & " " strsql = strsql & "AND tabNoOs.idTecAlmox=" &codA & " AND tabNoOs.idTecCampo=" & codT if rsBusca.State = 1 then rsBusca.close rsBusca.Open strSql,Conexao,3,3 'response.Write(rsBusca.RecordCount) 'response.End() if rsBusca.RecordCount>0 then while not rsBusca.eof desc=rsBusca("DescricaoEquipamento") idEf=rsBusca("codequipamento") %> <table width="100%" border="0" cellpadding="2" cellspacing="2"> <%if Bg="#CBE0F3" Then Bg="#1C5180" Else Bg="#CBE0F3" end if%> <tr bgcolor="<%=bg%>"> <td width="11%" bgcolor="<%=bg%>"><%=rsBusca("codEquipamento")%></td> <td width="48%" bgcolor="<%=bg%>"><%=rsBusca("DescricaoEquipamento")%></td> <td width="10%" bgcolor="<%=bg%>"><%=rsBusca("dataos")%></td> <td width="8%" bgcolor="<%=bg%>"><%=rsBusca("QtdEquipa")%></td> <td width="12%" bgcolor="<%=bg%>"><%=rsBusca("placomp")%></td> <td width="11%" bgcolor="<%=bg%>"><%=rsBusca("noOs")%></td> </tr> </table> <% rsBusca.MoveNext wEnd end if end if end if end if end if elseif atc="no"then strsql = "SELECT * FROM tabNoOs WHERE tabNoOs.NoOs=" & noOs & " " strsql = strsql & "AND tabNoOs.idTecAlmox=" &codA & " AND tabNoOs.idTecCampo=" & codT if rsBusca.state=1 then rsBusca.close rsBusca.Open strSql,Conexao,3,3 if rsBusca.RecordCount>0 then strDel = "delete from tabNoOs WHERE tabNoOs.NoOs=" & noOs & " " strDel = strDel & "AND tabNoOs.idTecAlmox=" &codA & " AND tabNoOs.idTecCampo=" & codT conexao.execute(strDel) Response.Write("Foram cancelados " & rsBusca.RecordCount ) end if end if call fechaConexao set Conexao = Nothing set rsBusca = Nothing %>
  15. Bom pessoal é seguinte estou com um problema de logica não sei o que acontece mas acho que deve ser minha logica bom é seguinte tenho uma pagina que executa uma consulta no banco access bom é seguinte ela verifica se a quantidade é informada é maior que a quantidade do banco ou menor bom já tentei de varia maneira. Qualquer valor que eu informo ela diz que é menor estou fanzendo assim já virifique request ta trazendo o valor certo informado. <% qtdp = request("qtdp") if rsBusca("qtdincial")>qtdp then Response.Write("Maior") elseif rsBusca("qtdincial") < qtdp then Response.Write("Menor") else %>
  16. Não é isso não, você prestou a tenção no tópcio eu quero destravar e limpar as combos e text ao mesmo tempo tirei o valeu masnao limpa só destrava.
  17. pessoal é seguinte poste este tópico la no asp tem mais a ver minha unica duvida é porque o alert não funciona e response.write funciona
  18. estou achando que é minha logica esta errada estou fazendo assim e troquei o alert pelo response não está informando nada estou meio confuso com isso.
  19. não é isso tenho outras paginas que uso o alert a consulta está certo mas ele não aparece
  20. bom pessoal é seguinte eu tenho uma pagina asp que cria uma consulta no banco de dados eu coloque e alert para informar que ao usuario o resultado da consulta mas ele não ta informando o alert porque será? esta pagina é toda em asp não coloco o body nem o html será que é isso?
  21. Entedi só que tem um problema é seguinte estas trez cunsultas não tem nenhum campo vinculado isso é possivel fazer mesmo assim?
  22. bom é seguinte eu criei uma função conde eu travo algumas combos e text para que usuario só possa mexer nelas depois que ele clicar no botão cancelar bom não sei porque ele ta travando e destravando mas não ta limpando a text e as combos porque estou fanzendo da seguinte maneira.
×
×
  • Criar Novo...