Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) duvida com logica

Clauido José

Perguntado por Clauido José,

 Share

Pergunta

Clauido José

Clauido José

Postado
Postado

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
  
%>

Link para o comentário
Compartilhar em outros sites

17 respostass a esta questão

Posts Recomendados

  • 0
Clauido José

Clauido José

Postado
  • Autor
Postado

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

%>

Link para o comentário
Compartilhar em outros sites
  • 0
Clauido José

Clauido José

Postado
  • Autor
Postado

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?

Link para o comentário
Compartilhar em outros sites
  • 0
jow

jow

Postado
Postado

sim entendo, bom qt ao ajax eu não sei muita coisa, mas o q posso te adiantar é você deve fazer o mais simples possivel primeiro depois q estiver correto ai sim você usa um ajax ... Sei lá, pelo menos eu qd vou criar alguma coisa desse tipo eu faço assim

Link para o comentário
Compartilhar em outros sites
  • 0
Clauido José

Clauido José

Postado
  • Autor
Postado

é 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?

Link para o comentário
Compartilhar em outros sites
  • 0
Clauido José

Clauido José

Postado
  • Autor
Postado

eu fiz o seguinte deppois do SQl eu dei um response pra ver o que tava pegando da uma olha

Response.Write(rsBusca.RecordCount&" "&rsBusca("qtdincial")&" "&qtdp)

response.End()

cara ele me traz o recordcount com 1 valor qtd 10 valor qtdp = 10

Link para o comentário
Compartilhar em outros sites
  • 0
Rafael Spilki

Rafael Spilki

Postado
Postado

Nossa... um segundo só!

Vamos com calma, por partes e com atenção aos detalhes...

Claudio, você disse que o que você quer é fazer essa condicional funcionar:

<%
qtdp = request("qtdp")
if rsBusca("qtdincial")>qtdp then
   Response.Write("Maior")
elseif rsBusca("qtdincial") < qtdp then
   Response.Write("Menor")
else
  
%>
certo? portanto vamos verificar como ela está se comportando pra trazer luz ao processo: 
<%
'porque sintaxes incompletas? rquest o que? form? query.string???
qtdp = request.form("qtdp")
response.write "qtdp = " & qtdp & "<BR>"
response.write "rsbusca = " & rsBusca("qtdincial") & "<BR>"
response.end
if rsBusca("qtdincial")>qtdp then
   Response.Write("Maior")
elseif rsBusca("qtdincial") < qtdp then
   Response.Write("Menor")
else
  
%>

depois poste aqui os resultados!

Link para o comentário
Compartilhar em outros sites
  • 0
Clauido José

Clauido José

Postado
  • Autor
Postado

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.

Link para o comentário
Compartilhar em outros sites
  • 0
Rafael Spilki

Rafael Spilki

Postado
Postado

Ok... sete uma variavel para o recordset antes de o colocar na condicional...

exemplo:

<%

qtdp = request.form("qtdp")
busca =  rsBusca("qtdincial")
if busca>qtdp then
   Response.Write("Maior")
elseif busca < qtdp then
   Response.Write("Menor")
else
  
%>

poste os resultados!

Link para o comentário
Compartilhar em outros sites
  • 0
Clauido José

Clauido José

Postado
  • Autor
Postado (editado)

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

10

10

10

menor

10

10

20

menor

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.

Editado por Clauido José
Link para o comentário
Compartilhar em outros sites
  • 0
Clauido José

Clauido José

Postado
  • Autor
Postado

caramba depois de um dia inteiro quebrando a cabeça concegui resolver hehehehehe.

Ficou asim

busca = rsBusca("qtdincial")

result=qtdp

total=0

total=busca-qtdp

if busca1<qtdp then

res=("Execute a função")

end if

if total<0 or busca>qtdp then

if busca>qtdp then

res=("O estoque é maior")

end if

if total<0 then

res=("O valor é negativo<BR>")

end if

end if

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...