[firebase-br] evento onvalidate no IBO

[RedDevil]

ola Rafael,

Post By Rafael Rosso Fernandes:
> na verdade era isso que eu queria...
> 
> 
> if AField = SqlCadastro.FieldByName('cep_cli') then
>   begin
>      showmessage('teste');
>   end;

cara, eh bem assim que se faz no IBObjects...

sorry, mas eu nao tenho nada aqui na batcaverna que seja de dominio 
publico, nenhuma base que nao tenha informaçoes validas, nada que eu 
possa colocar na roda agora para mostrar como eh que a gente faz as 
validaçoes na TIB_Query...

vamos fazer o seguinte... se voce quiser, acesse a pagina 
http://www.RedDevil.eti.br/ibob.htm, baixe o exemplo sobre a utilizaçao 
do TIB_LookupCombo e coloque algo tipow assim isso ae abaixo no evento 
"OnValidateField" da TIB_Query "qryMedicamentos"...

procedure TForm1.qryMedicamentosValidateField(Sender: TIB_Statement;
   ARow: TIB_Row; AField: TIB_Column);
begin

  If AField = qryMedicamentos.Fields[0] then
  begin
    If qryMedicamentos.FieldByName( 'codigo' ).AsInteger <= 0 then
    begin
      Application.MessageBox('informaçao invalida... please, essas 
noitadas ainda vao acabar contigo...', 'grande vacilo:', MB_ICONERROR);
      IB_Edit2.SetFocus;
    end;
  end;

  If AField = qryMedicamentos.Fields[6] then
  begin
    If qryMedicamentos.FieldByName( 'valorcusto' ).AsFloat < 0.00 then
    begin
      Application.MessageBox('informaçao invalida... please, essas 
noitadas ainda vao acabar contigo...', 'grande vacilo:', MB_ICONERROR);
      qryMedicamentos.FieldByName( 'valorcusto' ).AsFloat := 0.00;
      IB_Edit4.SetFocus;
    end;
  end;

  If AField = qryMedicamentos.Fields[10] then
  begin
    If qryMedicamentos.FieldByName( 'datavenc' ).AsDate < Date then
    begin
      Application.MessageBox('informaçao invalida... please, essas 
noitadas ainda vao acabar contigo...', 'grande vacilo:', MB_ICONERROR);
      IB_Edit5.SetFocus;
    end;
  end;

end;


[]s
força sempre.
ate +++

--
Luiz "RedDevil" Stefanski
http://www.RedDevil.eti.br - Delphi 4 Powered by IBObjects
exemplos e dicas sobre o IBObjects:
http://www.firebase.com.br/cgi-bin/firebase.cgi/dnld?ID=165
compilaçao/instalaçao do IBObjects sabor BPG:
http://www.firebase.com.br/cgi-bin/firebase.cgi/artigo?ID=630