O código do evento onValidateFields é:

begin
if (AField.FieldName <> 'CODPRODUTO') or
(ARow.Columns[0].IsNull) or
(ARow.Columns[0].AsString = '0') or
(ibVenda.State = dssBrowse) then
Exit;

q.Close;
q.SQL.Clear;
q.SQL.Add('select CODPRODUTO, VALORVENDA, CODUNIDADE from
PRODUTO');
q.SQL.Add('where CODPRODUTO = ' + Trim(ARow.Columns
[0].AsString));
q.Open;

if q.RecordCount = 0 then
begin
MessageBox(Application.Handle,
Pchar('Produto não cadastrado.
Verifique !!'),
'Consistência de Dados', MB_ICONASTERISK +
MB_OK);
end;

ibVenda.FieldByName('QTDE').Value := 1;
ibVenda.FieldByName('VALORUNIT').Value := q.Fields[1].Value;
ibVenda.FieldByName('CODUNIDADE').Value := q.Fields[2].Value;

Porem ele não pega somente o campo CODPRODUTO, ele passa várias
vezes. Parece que pega somente a chave primária.

Em relação ao conteúdo do Getting Started Guide, gostaria de
encontrar este tipo de tratamento...que eu suponho que seja básico.

Abraços

--- In IBObjects@yahoogroups.com, Helen Borrie <helebor@t...> wrote:
> At 10:59 AM 15/10/2004 -0300, you wrote:
>
> >Hello
> >
> >How do I do to validate an entrance of data in a TIB_Grid that is
linked to
> >a TIB_Query?
> >E.g. have a column that is informed the code of the product and I
want to
> >validate the code it is correct.
> >I tried to use the event onValidadeField of TIB_Query but I
didn't have
> >success.
>
> Show the code.
>
> >I already researched in Getting Started Guide but I didn't find
anything. I
> >thought he was more complete...is there some more advanced
reference?
>
> What do you need? Writing event handlers? Handling exceptions?
Use the
> Delphi Help.
>
> Helen