Компанія ШЕЛС

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

Скажите, пожалуйста, в отчетной форме площади втягиваются в кв.м., а мне надо сделать так, чтобы "переключалось" в га, в зависимости от настройки в параметрах участка вкладка Параметры, параметр Единица измерения площади. Как это сделать?

Вот, смотрите, обычный пример вывода площади в кв.м.:


В данном случае:
<DM1.QbObject."Area"> - поле общей площади участка (имейте ввиду, в программе все площади в кв.м., потому, для отображения в га, всегда нужно переводить)
fdLandAreaM - это переменная, которая берёт из установок (меню Сервис, подменю Установки, вкладка Расчёты, параметр Площадь, участка, округление до знака после запятой, м.кв) количество нулей для отображения в кв.м.

Чтобы перевести в гектары, эта формула должна иметь такой вид:


Обратите внимания, воспользовались другой переменной fdLandAreaG из установок (меню Сервис, подменю Установки, вкладка Расчёты, параметр Площадь, участка, округление до знака после запятой, га), в которой хранится количество нулей для гектаров.

А если использовать "переключатель" в участке (поле <DM1.QbObject."Area_Type">), то наша формула будет иметь такой вид:

Добрый вечер. Подскажите, пожалуйста, можно ли написать код, чтобы в экспликации в случае отсутствия угодий ставилось не нули, не пустое место, а прочерк? Если да, то какой?

Dorochenko_iv писав:Добрый вечер. Подскажите, пожалуйста, можно ли написать код, чтобы в экспликации в случае отсутствия угодий ставилось не нули, не пустое место, а прочерк? Если да, то какой?

Можно, конечно! Некоторые отчётные формы именно такой принцип и имеют. Для этого, надо проверять не равна ли нолю нужная площадь, например
<DM1.QbObject."Area_Garden"> - площадь сада
В самом простом варианте наш код может выглядеть так (для fr3):
пустое место:


прочерк:


Если взять сложный вариант (прочерк):

Спасибо за описание. Теперь задача стоит поставить год рождения владельца с подписью "року". Каким образом можно разбить число, месяц, год на составные?

Dorochenko_iv писав:Теперь задача стоит поставить год рождения владельца с подписью "року". Каким образом можно разбить число, месяц, год на составные?

Есть специальные функции:
DayOf() - из даты берёт день месяца
MonthOf() - из даты берёт номер месяца в году
YearOf() - из даты берёт год

Стоит заметить, что дата - это переменная или поле формата Date. А результатом будет целое число - Integer

Например, дата рождения физического лица - <DM1.QbPeople."DateBirthes">. Чтобы взять с неё только год и добавить слово "року", нужно использовать функцию:

Добрый день! Подскажите, пожалуйста, как в отчётную форму втянуть ФИО "смежников". (без направлений - "Від А до Б").

dgasmin писав:Добрый день! Подскажите, пожалуйста, как в отчётную форму втянуть ФИО "смежников". (без направлений - "Від А до Б").

Один из вариантов - это разложить переменную OpisMej которая автоматичести формируется при открытии отчётной формы.
Подобный пример есть в шаблоне - "Государственный акт на право собственности А4"
Значения добавляються в мемо поле - MemoOpisMej.Lines.Add( MasOpis);

Var
sMej, sStr, Mas1, Mas2, MasOpis : string;

begin
sMej := OpisMej;

While Length( sMej) > 0 Do
Begin
If Pos( ';', sMej) > 0 Then
Begin
sStr := Trim( Copy( sMej, 1, Pos( ';', sMej)));
sMej := Trim( Copy( sMej, Pos( ';', sMej) +1, Length( sMej) -Pos( ';', sMej)));
End
Else
Begin
sStr := Trim( sMej);
sMej := '';
End;

Mas1 := Copy(sStr, 1, 1);
Mas2 := Copy(sStr, 6, 1);
MasOpis := Copy(sStr, 8, LENGTH(sStr));

MemoOpisMej.Lines.Add( MasOpis);
End;
end

Добрый день! Скажите пожалуйста, можно ли разложить название документации взятое из поля "Вид технической документации in4" (закладка техническая документация) на составные? Например в поле стоит "проект із землеустрою щодо відведення земельної ділянки в оренду", а нужно отдельно взять "проект із землеустрою" и "щодо відведення земельної ділянки в оренду", более того "проект із землеустрою" нужно сделать заглавными. Спасибо.