Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / FastReport PrintIFDetailEmpty / 4 сообщений из 4, страница 1 из 1
14.11.2021, 20:53
    #40111952
koo3mee4
koo3mee4
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FastReport PrintIFDetailEmpty
Есть MasterData1 с Query1 и DetailData1 c Query2.
На MasterData1.PrintIFDetailEmpty=true.
Но надо чтобы MasterData1.PrintIFDetailEmpty=true при условии что Query1.Check текущей записи равно 1.
Т.е. когда Query1.Check возвращает 0, то запись в MasterData1 должна отображаться если DetailData1 пуст;
а когда Query1.Check возвращает 1, то запись в MasterData1 не должна отображаться если DetailData1 пуст.
Подскажите как такое условие прописать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.11.2021, 12:19
    #40112037
gpi
gpi
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FastReport PrintIFDetailEmpty
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);
begin
  MasterData1.Dataset.Open;
  MasterData1.PrintIfDetailEmpty := <Query1."Check"> = 1; // надо чтобы MasterData1.PrintIFDetailEmpty=true при условии что Query1.Check текущей записи равно 1 
//а здесь обратное условие
//Т.е. когда Query1.Check возвращает 0, то запись в MasterData1 должна отображаться если DetailData1 пуст;
//а когда Query1.Check возвращает 1, то запись в MasterData1 не должна отображаться если DetailData1 пуст.
end;

procedure MasterData1OnAfterPrint(Sender: TfrxComponent);
begin
  MasterData1.PrintIfDetailEmpty := <Query1."Check"> = 1;  
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.11.2021, 14:41
    #40112089
koo3mee4
koo3mee4
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FastReport PrintIFDetailEmpty
Прописал и так:
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);
begin
  MasterData1.Dataset.Open;
  MasterData1.PrintIfDetailEmpty := <Query1."Check"> = 1;
end;

procedure MasterData1OnAfterPrint(Sender: TfrxComponent);
begin
  MasterData1.PrintIfDetailEmpty := <Query1."Check"> = 1;  
end;


и так:
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);
begin
  MasterData1.Dataset.Open;
  MasterData1.PrintIfDetailEmpty := <Query1."Check"> = 0;
end;

procedure MasterData1OnAfterPrint(Sender: TfrxComponent);
begin
  MasterData1.PrintIfDetailEmpty := <Query1."Check"> = 0;  
end;


и так:
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);
begin
  MasterData1.Dataset.Open;
  MasterData1.PrintIfDetailEmpty := <Query1."Check"> = 1;
  MasterData1.PrintIfDetailEmpty := <Query1."Check"> = 0;
end;

procedure MasterData1OnAfterPrint(Sender: TfrxComponent);
begin
  MasterData1.PrintIfDetailEmpty := <Query1."Check"> = 1;  
end;


никак не работает. Реагирует только если принудительно включить/отключить "Печать, если Detail пуст" на самом бэнде.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.11.2021, 15:41
    #40112107
gpi
gpi
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FastReport PrintIFDetailEmpty
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
    MasterData1.Visible := <Query1."Check"> = 1;    
end;

begin
  MasterData1.PrintIfDetailEmpty := True;
end.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / FastReport PrintIFDetailEmpty / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]