Valeu Galera pela ajuda...mas a Dica do "MARCELO" me fez verificar mais o
parâmetro e tentar alternativas e acabei consguindo fazer o que eu queria da
Seguinte Forma:
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
='''+QueryFieldByname('CODIGO').asstring+'''');
Query1.ExecSQL;
Query1.Transaction.Commint;
Query1.Transaction.Active := True;
end;
end;
end.
E Funcionou do Jeito que eu Quero!!! Obrigado MARCELO e Obrigado tbm aos
outros que tentaram me passar alguma ajuda. Valeu!!!
--- Em delphi-br@yahoogrupos.com.br, "marcelo" <leite_rom...@...> escreveu
>
> 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]
>
