Vari�vel n�o recebe o valor

Question

Tenho o seguinte c�digo:[code:1:813c22df7b]Query2.SQL.Clear; Query2.SQL.Add(�SELECT Id FROM &#91;dbo&93;.&91;Movimentos&93;�); Query2.Open; Query2.Last; if Query2.RecordCount < 1 then  IDe := 0; ID...

Aroldo Zanela · Answer

Colega,Execute a instru��o abaixo no Query Analyzer e poste aqui a �ltima linha:[code:1:c8979723e4]SELECT Id FROM Movimentos[/code:1:c8979723e4]Tamb�m h� um erro de l�gica no fragmento acima. Reveja e se n�o identificar, avise....

Titanius · Answer

Ol� Aroldo, segue o resultado:[code:1:597b829658]0, Deposito, 04/02/2004, Pagamento motorista, 200.0, 1500.0[/code:1:597b829658]na ordem dos campos:Id( inteiro : 8 ) , Historico( char : 30 ) , Data( char : 20 ) , Obs( text ) , Valor( float : 8 ) , ValorAtual( float : 8)quanto ao erro no c�digo vi qual �, arrumei para o seguinte:[code:1:597b829658]Query2.SQL.Clear; Query2.SQL.Add(�SELECT * FROM Movimentos�); Query2.Open; Query2.Last; if Query2.RecordCount < 1 then   IDe := 0; IDe := IDe + 1; [/code:1:597b829658]o Delphi, na hora que eu debugo nao entra na parte da variavel IDe := IDe + 1;, estranho d+... Ainda n�o consegui arrumar isso de jeito nenhum...Abra�os,...

Aroldo Zanela · Answer

Colega,[code:1:528e24a1ef]IDe := 0; // Inicializa com zeroQuery2.SQL.Clear; Query2.SQL.Add(�SELECT * FROM Movimentos�); Query2.Open; Query2.Last;  // Vai para o �ltimo registroif Query2.RecordCount < 1 then  IDe := 0; // Se n�o retornar nenhum registroIDe := IDe + 1; // Incrementa com + 1 -> Inc(IDe);ShowMessage(IntToStr(IDe)); // Vai mostrar 1[/code:1:528e24a1ef]Por favor, confirma essas informa��es....

Titanius · Answer

Caro Aroldo,Realmente o seu c�digo est� mais enxuto... por�m continua dando o erro... e � exatamente o que voc� descreveu  que eu quero que fa�a..Segue uma imagem da tela do Delphi, na hora de debugar:[img:490f094c40]//www.rodoviariolider.com.br/img/imgdelphi.gif[/img:490f094c40]Como d� pra perceber, ele n�o entra nas vari�veis de jeito nenhum.. acho que meu delphi, meu arquivo.. alguma coisa est� errada.. pois nenhuma variavel esta recebendo valores...Muito estranho isso...Abra�os,...

Beppe · Answer

A vari�vel IDe est� sendo definida(atribu�da), mas n�o esta sendo usada(lida). Desmarque Optimization nas op��es do projeto, aba Compiler. Com otimiza��o on, o Delphi remove tais vari�veis.

Titanius · Answer

Ol� Beppe, fiz o que voc� disse, por�m continua na mesma.. ele n�o entra nas vari�veis de jeito algum... estou achando que � problema no meu Delphi...Abra�os,...

Beppe · Answer

Experimenta um Build antes de rodar......

Aroldo Zanela · Answer

Colega,Teste o seguinte:[code:1:ad8202a243]With Query2 do  Close;  SQL.Text := �SELECT Max(id) FROM Movimentos�; // Pega o maior  Open;end;IDe := Query2.FieldByName(�ID�).AsInteger + 1; // IncrementaWith Query2 do  Close;  SQL.Text := �SELECT Max(id) FROM Contas WHERE descricao = � +                QuotedStr(ComboBox2.Text);  Open;end;IDConta := Query2.FieldByName(�ID�).AsInteger;[/code:1:ad8202a243]...

Pantoja · Answer

na minha modesta opni�o acho que tem um erro na l�gica da sua variavel... cada vez que voce clicar no botao a variavel IDE = 0 e em um determinado momento ela vira 1. SEMPRE isso ir� ocorrer pois voce colocou o �zeramento� da varialvel dentro da mesma procedure que esta o inc(ide). tente zerala no evento onshow do form. e tire o ide:=0 do evento onclick ... acho que ira funcionar

Titanius · Answer

Depois de muito tentar consegui arrumar utilizando o c�digo do aroldo .... ate que enfim.... esta funcionando perfeitamente agora...

Valeu pela paciencia de todos e pelas dicas...
Brigadao...

Abra�os,

Allen74 · Answer

Fellipe,Pelo que pude perceber do coment�rio no seu c�digo na imagem que voc� postou, o objetivo de sua primeira Query � obter o pr�ximo ID para a tabela de movimentos. Imagino que voc� queira implementar um tipo de auto-incremento para a mesma. Se for este o caso, o ideal seria avaliar se o banco de dados que voc� utiliza n�o fornece este recurso, como os campos AUTO_INCREMENT no MySQL, os GENERATORS no Oracle ou IDENTITY no SQLServer.Em todo caso, sem a utiliza��o de campos auto-increment�veis, a melhor forma de faz�-lo seria seguindo a �ltima sugest�o do Aroldo, na qual eu faria uma �nica modifica��o, acrescentando um nome para o campo, pois dependendo do banco de dados o nome da coluna n�o permanecer� o mesmo quando � aplicada uma f�rmula:[code:1:8e65b9f9a9]With Query2 do  Close;  SQL.Text := �SELECT Max(id) AS valor FROM Movimentos�; // Pega o maior  Open;end;IDe := Query2.FieldByName(�valor�).AsInteger + 1; // Incrementa [/code:1:8e65b9f9a9]O seu c�digo original realmente tinha um problema de l�gica, se o funcionamento que voc� deseja � este do c�digo acima, ficou faltando um else na sua primeira vers�o do c�digo. O correto seria:[code:1:8e65b9f9a9]  if Query2.RecordCount < 1  then IDe := 0  else IDe := Query2.FieldByName(�Id�).Value + 1;[/code:1:8e65b9f9a9]Agora, quanto ao problema que voc� est� tendo com os breakpoints e com a inspe��o da vari�vel IDe:O problema � mais ou menos o que o Beppe te disse. No seu c�digo (pelo menos na parte que est� visivel na figura) s...

Allen74 · Answer

[quote:a66b5dc80e=�Titanius�]Depois de muito tentar consegui arrumar utilizando o c�digo do aroldo .... ate que enfim.... esta funcionando perfeitamente agora...Valeu pela paciencia de todos e pelas dicas...Brigadao...Abra�os,[/quote:a66b5dc80e]hehe, parece que meu post chegou atrasado. Enquanto estava escrevendo o texto acima n�o percebi que voc� j� tinha encontrado a solu��o, mas mesmo assim, fica a� para esclarecer alguns pontos....

Aroldo Zanela · Answer

Allen,Muito bem observado. Obrigado....

Titanius · Answer

Valeu Allen, a partir de agora prestarei mais atencao no que voce disse...obrigado a todos...[]s...

F�rum Vari�vel n�o recebe o valor #211691