Acho que faltou voce passar o parâmetro :CODIGO, também não entendi esta var MB integer. Mas acho que o problema principal eh a falta do parametro
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de rafaelpinto19 Enviada em: sábado, 4 de abril de 2009 16:53 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Não Consigo ALterar Registro Pelo evento OndbClick no DBGrid!!! Olá Pessoal, já tentei de todas as maneiras que meu conhecimnento pode me oferecer mas não consegui resolver este probleminha...Não estou conseguindo alterar Dados de Um registro Pelo evento OnDbClick No DBGrid. O código é esse: Procedure TFPrincipal.DBGrid1Db1Click(Sender: TObjetct); Var MB:Integer Begin MB := Application.MessageBox('Deseja encerrar o Dia Deste Funcionário Agora?','Confirmação',MB_YESNO); if MB = IDYES then Begin query1.close; query1.sql.clear; query1.sql.Add('update PONTO set HORA_SAIDA = CURRENT_TIME where CODIGO = :CODIGO); Query1.ExecSQL; Query1.Transaction.Commint; Query1.Transaction.Active := True; end; end; end. Funciona da Seguinte Forma, o Sistema é um pequeno Registro de Ponto de Funcionário. Então sempre que o Sistema é encerrado, ele faz a verificação se tem algum funcionário com dia para Encerrar pois se Tiver, ele vai mostrar o Registro deste funcionário no DbGrid, e aí com um DuploClick, o Operador escolhe se Ele quer encerrar o POnto neste exato momento ou não, Se ele escolher sim, Terá que atribuir no Registro a Hora do Encerramento no campo HORA_SAIDA, ouseja, terá que fazer uma alteração no Resgistro(um "UpDate" em SQL) como Descrito acima...Mas este é o Problema...Não está ALterando!!! Se alguém tiver alguma solução pra poder me ajudar, vou ficar grato por isso... Utilizo Interbase 6.5 com tcnologia IBX!!!! Rafael [As partes desta mensagem que não continham texto foram removidas]
