var theme_array: array of integer;
tmp_array: array of string;
i:integer;
tmp:string;
SQLText:string;
sdate,sdate2,sdate3,sdate4:string;
k:integer;
begin
//Приведение дат к формату БД
  sdate:=''; DateTimeToString(sdate,'yyyy-mm-dd',sDateEdit1.date);
  sdate2:=''; DateTimeToString(sdate2,'yyyy-mm-dd',sDateEdit2.date);
  sdate3:=''; DateTimeToString(sdate3,'yyyy-mm-dd',sDateEdit3.date);
  sdate4:=''; DateTimeToString(sdate4,'yyyy-mm-dd',sDateEdit4.date);

begin
 // Получаем список источников поступления
  GetInfoRepSQL('SELECT ist1 FROM register GROUP BY ist1 ORDER BY ist1 '); // Выполнение запроса с Open
  //Определяем размер массивов
  SetLength(tmp_array, Form1.ZReport.RecordCount);
  Form1.ZReport.First;
    while not Form1.ZReport.Eof do
      begin     // записываем в массив 
        tmp_array[Form1.ZReport.RecNo-1]:=Form1.ZReport.FieldByName('ist1').AsString;
        Form1.ZReport.Next;
      end;

EXESQL('TRUNCATE TABLE reports_template') ;  // Очищаем таблицу отчета, запрос типа EXE

 for i:=Low(tmp_array) to High(tmp_array) do
begin
//подсчет сумм по источнику из массива в 2-ух периодах, формирование запроса
SQLText:='SELECT ist1,count(*) AS all0, ';
SQLText:=SQLText +' (SELECT count(*) FROM register WHERE (ist1 = '''+tmp_array[i]+''') AND (datecreate between '''+sdate+''' AND '''+sdate2+''') AND (resultview = ''УДОВЛЕТВОРЕНО'')) AS ud0, ';
SQLText:=SQLText +' (SELECT count(*) FROM register WHERE (ist1 = '''+tmp_array[i]+''') AND (datecreate between '''+sdate+''' AND '''+sdate2+''') AND (resultview = ''РАЗЪЯСНЕНО'')) AS raz0,';
SQLText:=SQLText +' (SELECT count(*) FROM register WHERE (ist1 = '''+tmp_array[i]+''') AND (datecreate between '''+sdate+''' AND '''+sdate2+''') AND (resultview = ''ОТКАЗАHО'')) AS otk0,';
SQLText:=SQLText +' (SELECT count(*) FROM register WHERE (ist1 = '''+tmp_array[i]+''') AND (datecreate between '''+sdate3+''' AND '''+sdate4+''') AND (resultview = ''УДОВЛЕТВОРЕНО'')) AS ud1, ';
SQLText:=SQLText +' (SELECT count(*) FROM register WHERE (ist1 = '''+tmp_array[i]+''') AND (datecreate between '''+sdate3+''' AND '''+sdate4+''') AND (resultview = ''РАЗЪЯСНЕНО'')) AS raz1,';
SQLText:=SQLText +' (SELECT count(*) FROM register WHERE (ist1 = '''+tmp_array[i]+''') AND (datecreate between '''+sdate3+''' AND '''+sdate4+''') AND (resultview = ''ОТКАЗАHО'')) AS otk1,';
SQLText:=SQLText +' (SELECT Count(*) FROM register WHERE (ist1 = '''+tmp_array[i]+''') AND (datecreate between '''+sdate+''' AND '''+sdate2+''') AND (control=1) AND (resultview='''')) AS view0, ';
SQLText:=SQLText +' (SELECT Count(*) FROM register WHERE (ist1 = '''+tmp_array[i]+''') AND (datecreate between '''+sdate3+''' AND '''+sdate4+''') AND (control=1) AND (resultview='''')) AS view1, ';
SQLText:=SQLText +' (SELECT Count(*) FROM register WHERE (ist1 = '''+tmp_array[i]+''') AND (datecreate between '''+sdate3+''' AND '''+sdate4+''')) AS all1 ';

SQLText:=SQLText +' FROM register WHERE (ist1 = '''+tmp_array[i]+''')  AND (datecreate between '''+sdate+''' AND '''+sdate2+''')';

GetInfoRepSQL(SQLText);  // Выполнение запроса с Open

//Инсертим результат во временную таблицу отчета
with Form1.ZQWork do
  begin
  Active:=false;
  Close;
  SQL.Clear;
  SQL.Add('INSERT INTO reports_template');
  SQL.Add('(naim,all0,all1,view0,view1,ud0,ud1,raz0,raz1,otk0,otk1) ');
  SQL.Add('VALUES (');
  SQL.Add(':naim,:all0,:all1,:view0,:view1,:ud0,:ud1,:raz0,:raz1,:otk0,:otk1)');
  Prepare;
ParamByName('naim').Value:=Form1.ZReport.FieldByName('ist1').AsString;
ParamByName('all0').Value:=Form1.ZReport.FieldByName('all0').AsString;
ParamByName('all1').Value:=Form1.ZReport.FieldByName('all1').AsString;
ParamByName('view0').Value:=Form1.ZReport.FieldByName('view0').AsString;
ParamByName('view1').Value:=Form1.ZReport.FieldByName('view1').AsString;
ParamByName('ud0').Value:=Form1.ZReport.FieldByName('ud0').AsString;
ParamByName('ud1').Value:=Form1.ZReport.FieldByName('ud1').AsString;
ParamByName('raz0').Value:=Form1.ZReport.FieldByName('raz0').AsString;
ParamByName('raz1').Value:=Form1.ZReport.FieldByName('raz1').AsString;
ParamByName('otk0').Value:=Form1.ZReport.FieldByName('otk0').AsString ;
ParamByName('otk1').Value:=Form1.ZReport.FieldByName('otk1').AsString ;
  ExecSQL;
  end;
end;

end;

 GetInfoRepSQL('SELECT * FROM reports_template '); //Получаем результирующую таблицу для отчета

  Form1.frxReport1.LoadFromFile(Form1.sPath + '\reports\' + 'test.fr3', true);
// Заполняем данными отчет
  with Form1.frxReport1.Variables do
       begin
          Variables[' ' + 'MyDefaultCategory'] := Null;  //Создаем пустую категорию для дальнейшего создания переменных в отчете
          Variables['period'] := quotedstr('Журнал по исполнителям по вопросам за текущий период '+sDateEdit1.Text+' - '+sDateEdit2.Text);
        end;
    Form1.frxReport1.ShowReport(true);
end;

[IIF(<DS."TOREP">=0, Memo36.Value, <DS."All0">)] // сомневаюсь что так можно, и какой в этом смысл - не ясно

select kodvopr.groupid,kodvopr.torep,kodvopr.KODnom,kodvopr.NAIM,
 sum(case when (datecreate between '2018-01-01' AND '2018-10-09') then 1 else 0 end) AS All0,
sum(case when (datecreate between '2017-01-01' AND '2017-10-09') then 1 else 0 end) AS All1,
 sum(case when (datecreate between '2018-01-01' AND '2018-10-09') AND (resultview = 'УДОВЛЕТВОРЕНО') then 1 else 0 end) AS ud0,
 sum(case when (datecreate between '2017-01-01' AND '2017-10-09') AND (resultview = 'УДОВЛЕТВОРЕНО') then 1 else 0 end) As ud1,
 sum(case when (datecreate between '2018-01-01' AND '2018-10-09') AND (resultview = 'РАЗЪЯСНЕНО') then 1 else 0 end) AS raz0,
 sum(case when (datecreate between '2017-01-01' AND '2017-10-09') AND (resultview = 'РАЗЪЯСНЕНО') then 1 else 0 end) As raz1,
 sum(case when (datecreate between '2018-01-01' AND '2018-10-09') AND (resultview = 'ОТКАЗАHО') then 1 else 0 end) As otk0,
 sum(case when (datecreate between '2017-01-01' AND '2017-10-09') AND (resultview = 'ОТКАЗАHО') then 1 else 0 end) AS otk1, 
sum(case when (datecreate between '2018-01-01' AND '2018-10-09') AND (control=1) AND (resultview='')  then 1 else 0 end)AS view0,
 sum(case when (datecreate between '2017-01-01' AND '2017-10-09') AND (control=1) AND (resultview='') then 1 else 0 end) AS view1
 from kodvopr 
LEFT JOIN register ON kodvopr.KODnom = register.themeid
# WHERE kodvopr.torep=1
 group by KODnom ORDER BY kodvopr.KOD11;