Fórum erro so da no windows 98 no windows xp nao acontece Urgente #280000

Erro Lendo Tipo itens Strings
uma chamada a uma função do S o Falhou

esse e um dos erros que acontece

o outro e o seguinte

Paramento Incorreto


e so da esse erro no windows 98
no xp nao acontece isso

eu uso Firebird 1.5

é geralmente da erro nessa pesquisa


procedure TF_Pesquisa_Diversos.Pesquisa_Status_Produto;
begin
// Pesquisa Status
with Status_Produto do
begin
Case Tipo.ItemIndex of
0 : begin // Pesquisa por Descrição
Close;
If SQL_Pesquisa = ´´ then
SQL_Pesquisa := SQL.Text;

SQL.Clear;
SQL.Text := SQL_Pesquisa;
Status_ProdutoDescricao.Index := 0;
If Campo.Text <> ´´ then
begin
Case Condicao.ItemIndex of
0 : begin // Status que iniciam com o campo
SQL.Add(´where Descricao like ´+´´´´+UpperCase(Campo.Text)+´¬´+´´´´+´´);
end;
1 : begin // Status por codigo exato
SQL.Add(´where Descricao = ´+´´´´+UpperCase(Campo.Text)+´´+´´´´+´´);
end;
2 : begin // Status que terminam com o campo
SQL.Add(´where Descricao like ´+´´´´+´¬´+UpperCase(Campo.Text)+´´´´+´´);
end;
3 : begin // Status que contenham o campo
SQL.Add(´where Descricao like ´+´´´´+´¬´+UpperCase(Campo.Text)+´¬´+´´´´+´´);
end;
end;
end;
end;
1 : begin // Pesquisa por Codigo
Close;
If SQL_Pesquisa = ´´ then
SQL_Pesquisa := SQL.Text;

SQL.Clear;
SQL.Text := SQL_Pesquisa;
Status_ProdutoCodigo.Index := 0;
If Campo.Text <> ´´ then
begin
Case Condicao.ItemIndex of
0 : begin // Pesquisa Status que iniciam com o Codigo
SQL.Add(´where Codigo like ´+´´´´+UpperCase(Campo.Text)+´¬´+´´´´+´´);
end;
1 : begin // Pesquisa Status por Codigo exato
SQL.Add(´where Codigo = ´+´´´´+UpperCase(Campo.Text)+´´+´´´´+´´);
end;
2 : begin // Pesquisa Status que terminam com o Codigo
SQL.Add(´where Codigo like ´+´´´´+´¬´+UpperCase(Campo.Text)+´´´´+´´);
end;
3 : begin // Pesquisa Status que contenham o Codigo
SQL.Add(´where Codigo like ´+´´´´+´¬´+UpperCase(Campo.Text)+´¬´+´´´´+´´);
end;
end;
end;
end;
end;
Open; // Abre Tabela
Status_Produto.FetchAll;

If Status_Produto.RecordCount = 0 then
begin
Qtde.Caption :=´0´;
Campo.Text := ´´;
Campo.SetFocus;
Exit;
end
else
Qtde.Caption:=IntToStr(Status_Produto.RecordCount);
Grid_Diversos.SetFocus;
end;

end;



wollney@terra.com.br
wolney@dominiosistema.com.br

[b:15f7f487bc][color=green:15f7f487bc]Bloqueado(Saviski)[/color:15f7f487bc][/b:15f7f487bc]