F�rum Erro que ensiste a continuar.. #329113

11/09/2006

Oi...estou com um problema que me tira o sono...tenho um form onde tenho dados a ser vizualisados, nome do cliente, aparelho, n de s�rie, e a� vai...neste mesmo form tenho op��es de inserir or�amentos, dar baixa e etc...o curioso � quando vou dar baixa no aparelho, fa�o todo o processo d� certo m�s na hora de sair do form referente a da baixa para voltar o form que vizualiza ele d� um erro..
[url][URL=http://img359.imageshack.us/my.php?image=erroyh2.jpg][img:e063260187]http://img359.imageshack.us/img359/5025/erroyh2.th.jpg[/img:e063260187][/URL][/url]

procurando o problema v� que aparentimente � neste c�digo..

procedure T_FORM_OS_NAV.ToolButton8Click(Sender: TObject);
var
A:integer;
begin
  A:=BD_OFC_ELEGS_OOE_CODIGO.Value;
    If BD_OFC_ELE.RecordCount = 0 then showmessage (�N�o existe ocorr�ncia de O.S. neste formul�rio �)
      else
      begin
      _FORM_OS_BX := T_FORM_OS_BX.Create(application);
   try
    _FORM_OS_BX.BD_OFC_ELE.Close;
    _FORM_OS_BX.BD_OFC_ELE.SQL.Clear;
    _FORM_OS_BX.BD_OFC_ELE.SQL.Add(�select * from ORCAMENTO_OFIC_ELET where GS_OOE_CODIGO=�+inttostr(A));
    _FORM_OS_BX.BD_OFC_ELE.Open;
    _FORM_OS_BX.ShowModal;
  finally
      FreeAndNil(_FORM_OS_BX);
   end;
end;
end;

a� resolv� o problema assim...


procedure T_FORM_OS_NAV.ToolButton8Click(Sender: TObject);
begin
    If BD_OFC_ELE.RecordCount = 0 then showmessage (�N�o existe ocorr�ncia de O.S. neste formul�rio �)
      else
      begin
      _FORM_OS_BX := T_FORM_OS_BX.Create(application);
   try
    _FORM_OS_BX.ShowModal;
  finally
      FreeAndNil(_FORM_OS_BX);
   end;
end;
end;

m�s eu presciso do primeiro c�digo para fazer funcionar...algu�m tem alguma id�ia de como resolver isto ?

vlw t+

Gigatel

Curtir t�pico

+ 0

Responder