Eu usei o índice da coluna selecionada para executar algumas condições ....
Vlw's
procedure TFrmMont_Pedido.DBGrid3ColExit(Sender: TObject);
begin
if DBGrid3.SelectedIndex=3 then begin
if
DBGrid3.Columns.Items[2].Field.Value=DBGrid3.Columns.Items[3].Field.Value then
begin
CDSItemPedido.Edit;
CDSItemPedidoStatus.AsString :='A';
CDSItemPedido.Post;
End;
if
DBGrid3.Columns.Items[2].Field.Value<DBGrid3.Columns.Items[3].Field.Value then
begin
Application.MessageBox('Quantidade comprada está maior que a quantidade
solicitada','Atenção!!!',0);
CDSItemPedido.Edit;
CDSItemPedidoStatus.AsString :='A';
CDSItemPedido.Post;
End;
if
DBGrid3.Columns.Items[2].Field.Value>DBGrid3.Columns.Items[3].Field.Value then
if Application.MessageBox('A qtd Comprada está Inferior a Qtd
Solicitada,Considera a solicitação
atendida?????','Atenção!!!',MB_ICONQUESTION+MB_YESNO)=Idyes Then begin
CDSItemPedido.Edit;
CDSItemPedidoStatus.AsString :='A';
CDSItemPedido.Post;
End else begin
CDSItemPedido.Edit;
CDSItemPedidoStatus.AsString :='P';
CDSItemPedido.Post;
End;
End;
Info Desenvolvimento <[EMAIL PROTECTED]> escreveu:
No DBGrid eu tenho os campos da tabela que foi setada, em um desses campos eu
gostaria de criar o evento on exit.
Tem como fazer isso?
PAULO FERNANDES
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
---------------------------------
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
---------------------------------
Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora!
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
