Приветствую всех, не работает фильтр ShipsName.text текстового поля, результат запроса пусто
procedure TArrivalsListForm.SelectArrivals;
var
bstr,
sql : string;
begin
Screen.Cursor := crSQLWait;
odsArrival.Close;
sql := 'select a.rowid, a.ship_name,a.*, t.type_name, s.status_name,';
sql := sql + ' v.inv_count, v.not_pay, v.serv_main, v.inv_credit';
sql := sql + ' from KASSA.arrival a, KASSA.arr_type t, KASSA.arr_status s, KASSA.arr_inv v';
sql := sql + ' where a.arr_status <>5 and t.id(+) = a.arr_type and s.id(+) = a.arr_status';
sql := sql + ' and a.id = v.id';
//?????
if length(ShipsName.text)>0 then begin
sql := sql + ' and a.ship_name='''+'*'+ShipsName.text+'*''' ;
end;
odsArrival.SQL.Text := sql;
odsArrival.Open;
Screen.Cursor := crDefault;
end;