Аналитика

І питання друге. Хто знає, як в Reports написати: "якщо кількість ділянок більше 1, то ..."

І ще одне запитання по темі. Яким чином написати універсальну формулу для вирахування загальної площі усіх ділянок, коли у різних випадках буває різна кількість ділянок.
Ось код:
... площею [FormatFloat('0.0000',StrToFloat(Param('AS',1))+StrToFloat(Param('AS',2))+StrToFloat(Param('AS',3)))] га.
Якщо виділено три ділянки, то все нормально працює, а якщо дві, то видає помилку: Rich4 is not a valid floatinf point value

Перший код вставив в закладку "код" в кінці після усіх кодів перед "end;". А коли вставляю код [FormatFloat('0.0000',AreaAll)] в текст в потрібному мені місці, то видає помилку - Memo10:Could not convert variant of type (Null) info type (Double). В чому може бути причина?

Діма, щодо розробленого вами шаблону експлікації.
В мене цей шаблон не працює з якихось пір вже два роки. У формулі нічого не міняв. Може щось в настройоках дігіталс. Видає помилку: list index out of bounds (-1), що перекладається, як Індекс списку поза межами. Що за індекс? Якого списку?

Щиро дякую. Саме те, чого не вистачало для повної свободи у програмуванні в Reports

в діалоговій формі хочу поставити дату, як її вивести на репорт? яке розширення потрібно поставити ? При Edit1.text а тут як бути DateEdit1....чи потрібно добавляти собитие?

Щиро вдячний, все впирається в собития які ніяк мені не підсилу....

Міцного здоров'я коллеги по Репортс!

Трапилася наступна проблема.
Розробляю шаблон на дві ділянки, й дістався до такого документу "Акт перенесення в натуру (на місцевість) меж охоронних зон" (надалі Документ).
Як ви розумієте, не в кожному випадку є потреба його друкувати. Яким чином можливо в коді задати щось на кшталт такого:
if Restrictions[i]<>0 then Page[N].Printable=False (Restrictions[i] - змінна, що містить площу обмежень i-ї ділянки, Page[N].Printable - сторінка, що містить Документ).
В моєму випадку, такий Документ буде подвоюватись, оскільки ділянки можуть знаходитись в двох різних сільрадах.

Наперед вдячний за вашу допомогу.

procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
if Num='' then Visible:=false
end;
Щось в тому руслі.

Доброго здоров'я всім!

Знайшов варіант вирішення таким чином:
1) обнуляю річедіт в якому міститься інформація.
Rich[i].RichEdit.Lines.Text:='';
2) В процедурі преред друком встановлюю властивість не друкувати, якщо порожня.
PrintIfEmpty:=False;
Працює.

Дякую shypko за допомогу.

Доброго вечора панове!
В шаблоні каталога координат є такий код

procedure Memo33OnBeforePrint(Sender: TfrxComponent);
begin
with Memo33, Engine do
begin
Num:=PARAM('ÍÄ');
if Num='' then
Visible:=false
end
end;

він виконується і видає на каталог номер ділянки "Ділянка № <b>[Num]</b>" справа від власника, причому якщо номер є то видає "Ділянка №1" якщо номера нема то нічого не видає.

Як зробити щось схоже тільки для угідь. Тобто робимо кальку контурів в шар IN4_Угіддя в поле "LC Номер угіддя" вписуємо номери угідь і щоб ці номери викидались на каталог координат. А якщо угіддя одне на ділянці (наприклад город - рілля) номер не ставим (бо він нафіг нетреба ) то нічого не приписувалось.

АУУУУУУУУУУУУУУУ!
Гуру digitals ви де, допоможіть утопающему!?

begin
S:=Param(-7);
Num:=PARAM('НД');
if S='30000' then Num:=PARAM('lc'); // Ховаємо ячейку, якщо номер не заданий
if Num='' then
Visible:=false
end