Fastreport прописать условие из двух ADO

@Eva_lolamore · Регистрация: 13.04.2017

Author24 — интернет-сервис помощи студентам

С фастрепортом дружу относительно недавно, но не могу все понять.... Мне необходимо прописать следующее условие: Если text начинается со слов "Договор" и стоит type "Договор", то необходимо удалить в text "Договор". Для всех остальных оставить text. Косяк в том что в запросе qTable нет в select моего поля type, а менять запрос нельзя (это по факту подключение к зашитой функции в БД). Моя процедура:

Delphi

procedure MasterDataOnBeforePrintType(Sender: TfrxComponent);
var text: string;
begin
  text := VarToStr(<qTable."text">);
  begin
    if <qType."type">='Договор' then begin
      if Pos('Договор',<qTable."text">)=0 then
        TfrxMemoView(Sender).Text := text
      else begin
        Delete(text, 1, 8);
        TfrxMemoView(Sender).Text := text
      end;
    end;
  end;
end;

Вопрос: Как соединить данные из несколько запросов в одном masterdate (бд - qTable)? из одной text, count, comment (qTable, id не выводит, даже не соединишь) из второго нового запроса вытянуть type (qType)...

Так как masterdate подключается к qTable то type тянется для всех одинаковый...

@krapotkin · 28.12.2018, 13:48

ну, вы сначала наставите себе кольев, потом начинаете перепрыгивать...
а как бы вы добывали эти данные если б не было отчета, а вот просто - в коде?

наверное, сделали бы дополнительный запрос, основываясь на имеющихся данных, и получили бы то, что нужно
вот так и поступите
откройте вкладку Data и фигачьте эти запросы как хотите. и данные берите из них

@Eva_lolamore · 28.12.2018, 15:05 **[ТС]**

Отчеты древние, функции писали еще древнее программисты.
И эти функции работают на всю программу и на все отчеты, поэтому лезть туда это аналогично смерти.

Пока так и колупаю, но это дичь! У меня 10 отчетов с 6 листами и в каждом по две таблицы....
Неужели никак нельзя соединить две таблицы.

@krapotkin · 28.12.2018, 16:34

что вы имеете в виду под "таблица" и "соединить" ??
тогда и будет ответ

кроме того, вы пропустили мимо ушей совет создать новый запрос прямо в отчете?

@Eva_lolamore · 29.12.2018, 12:31 **[ТС]**

Вы неправильно поняли. У меня функция - это длинющий код, в котором разбираться лет сто и просто скопировать его и сделать запрос не прокатит.
Я же написала, что и пишу в fastreporte новый запрос.
ЛАЙФХАК: Но чтобы не менять все таблицы на каждом листе отчета, написала новую функцию и в fastreport в старом запросе ADO прописала условие:

Delphi

declare @contrat_ext_id int, @type varchar(100)                                                        
set @contrat_ext_id = :CONTRAT_EXT_ID
set @type = :TYPE
 
if (@TYPE = 'Договор')
  exec dbo.rep_app_ce_type @CONTRAT_EXT_ID

Работает.
Только новая фишка... но это уже другой вопрос)

@krapotkin · 29.12.2018, 14:24

все равно не понимаю, зачем это тут
ваш запрос в любом случае выглядит как

SQL

SELECT что-то FROM какая-то-таблица-или-процедура
JOIN другая-таблица
JOIN третья
WHERE условие

что мешает в JOIN поставить еще одну две пять таблиц
а еще есть CASE для формирования значений полей
и много всего

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	28.12.2018, 13:48	2
	ну, вы сначала наставите себе кольев, потом начинаете перепрыгивать... а как бы вы добывали эти данные если б не было отчета, а вот просто - в коде? наверное, сделали бы дополнительный запрос, основываясь на имеющихся данных, и получили бы то, что нужно вот так и поступите откройте вкладку Data и фигачьте эти запросы как хотите. и данные берите из них 0

@Eva_lolamore 1 / 1 / 0 Регистрация: 13.04.2017 Сообщений: 22
	28.12.2018, 15:05 [ТС]	3
	Отчеты древние, функции писали еще древнее программисты. И эти функции работают на всю программу и на все отчеты, поэтому лезть туда это аналогично смерти. Пока так и колупаю, но это дичь! У меня 10 отчетов с 6 листами и в каждом по две таблицы.... Неужели никак нельзя соединить две таблицы. 0

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	28.12.2018, 16:34	4
	что вы имеете в виду под "таблица" и "соединить" ?? тогда и будет ответ кроме того, вы пропустили мимо ушей совет создать новый запрос прямо в отчете? 0

	29.12.2018, 14:24