Topic: вывозд записей в отчет
for i := 0 to c do
begin
if frmCompanyServiceWork.tgCompanyWork.Selected[i] then s := s +IntToStr(frmCompanyServiceWork.tgCompanyWork.dbIndexToID(i)) + ' OR ';
end;
if s <> '' then
begin
SetLength(s, Length(s)-4);
SQLQuery('SELECT companyServiceWork.id AS "'+langIniG.ReadString('reportmess','dr48', '')+'", companyServiceWork.nameServise AS "'+langIniG.ReadString('reportmess','dr82', '')+'", companyServiceWork.priceServise AS "'+langIniG.ReadString('reportmess','dr83', '')+'", companyServiceWork.dateServiseCompany AS "'+langIniG.ReadString('reportmess','dr84', '')+'" ,'+
'companyServiceWork.klVo AS "'+langIniG.ReadString('reportmess','dr42', '')+'",'+
'Company.nameCompany AS "'+langIniG.ReadString('reportmess','dr73', '')+'", telCompany AS "'+langIniG.ReadString('reportmess','dr74', '')+'", streetCompany AS "'+langIniG.ReadString('reportmess','dr75', '')+'", houseCompany AS "'+langIniG.ReadString('reportmess','dr76', '')+'", fractionCompany AS "'+langIniG.ReadString('reportmess','dr77', '')+'", officeCompany AS "'+langIniG.ReadString('reportmess','dr78', '')+'" '+
'FROM companyServiceWork '+
'LEFT OUTER JOIN Company ON Company.id=companyServiceWork.id_Company '+
'WHERE companyServiceWork.id='+s, ServiceWork);
end;
получаю ошибку