1 Topic by sibprogsistem (edited by sibprogsistem 2019-02-01 10:32:16)

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

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;

получаю ошибку
http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&amp;item=5019&amp;download=0

Post's attachments

Attachment icon 659869.jpg 433.91 kb, 146 downloads since 2019-02-01 

  • Registered: 2014-02-14
  • Posts: 10,294

Re: вывозд записей в отчет

Пожалуйста приложите ваш проект и опишите, что вы пытаетесь реализовать.

Dmitry.
  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: вывозд записей в отчет

мне нужно вывести в отчет  все выбранные записи из frmCompanyServiceWork.tgCompanyWork
для всех операций для отчетов я использую одну процедуру (bReportOnClick)
строки процедуры с 2417 по 2625
дальше покажу на видео, думаю так будет понятнее...

https://yadi.sk/i/FpYmcxGNkBI1nQ

ну и сам проект

Post's attachments

Attachment icon service.7z 257.69 kb, 261 downloads since 2019-02-01 

  • Registered: 2014-02-14
  • Posts: 10,294

Re: вывозд записей в отчет

Ошибка возникает из за того, что объект ServiceWork не создается, т.к. он создается только если 

    if s <> '' then

переменная s ничего не содрежит, т.к. она заполняется только когда есть выделенные записи в гриде

 for i := 0 to c do
    begin
        if frmCompanyServiceWork.tgCompanyWork.Selected[i] then s := s +IntToStr(frmCompanyServiceWork.tgCompanyWork.dbIndexToID(i)) + ' OR ';
    end;
Dmitry.
  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: вывозд записей в отчет

DriveSoft wrote:

Ошибка возникает из за того, что объект ServiceWork не создается, т.к. он создается только если 

    if s <> '' then

переменная s ничего не содрежит, т.к. она заполняется только когда есть выделенные записи в гриде

 for i := 0 to c do
    begin
        if frmCompanyServiceWork.tgCompanyWork.Selected[i] then s := s +IntToStr(frmCompanyServiceWork.tgCompanyWork.dbIndexToID(i)) + ' OR ';
    end;

спасибо за подсказку!