This code was working fine with 3.55...
Code: Select all
function TDM.LocalizaPoliza( xpoliza : string) : boolean;
begin
if xpoliza '' then
begin
MyQbusca.SQL.Text := 'Select * from polizas where SL_POL = '+quotedstr(xpoliza);
MyQbusca.Open;
Result := (MyQbusca.RecordCount > 0);
end
else
Result := False;
end;Commands out of sync; You can't run this command now.
We can figure out a solution, can you help us?