007stas писав:Напевно десь так?
Краще так:
Код: Виділити все
If Length(Trim(<DM1.TbPoint."Name">)) > 0 then
DetailData1.Visible := true //показываем координату без Имени
else
DetailData1.Visible := false; //скрываем координату без Имени
007stas писав:Напевно десь так?
Код: Виділити все
If Length(Trim(<DM1.TbPoint."Name">)) > 0 then
DetailData1.Visible := true //показываем координату без Имени
else
DetailData1.Visible := false; //скрываем координату без Имени
007stas писав:доброго дня. Підкажіть чи є можливість отримати інформацію про полілінії (полігони), що знаходяться в косметичних слоях? Як приклад інформація про угіддя - 'DM1.TbPlan', агрогрупи - 'DM1.TbAgro', обмеження - 'DM1.TbLimination'
Код: Виділити все
Select N.*
From Note N
Where (N.ID_Object = 123)
Код: Виділити все
//---------------------------------------------------------------------------------------------------
//Площадя в разрезе по целевым
Query('Select Sum(O.Area) S, T.Number, T.Name From Object O, TypeUse T Where O.OK = ''ю'' And T.ID_TypeUse = (Select Top 1 L.ID_TypeUse From UserRec U, Uses S, UsesLnk L Where U.ID_Object = O.ID_Object And (U.DateFirst <= GETDATE()) And ((U.DateLast Is Null) Or (U.DateLast > GETDATE())) And S.ID_Uses = U.ID_Uses And L.ID_Uses = S.ID_Uses) Group by T.Number, T.Name');
AreaAll := 0; //Площадь всех участков
AreaUses := ''; //Площадь по целевым
DATAFIRST( 'DM1.Query');
While DATAEOF( 'DM1.Query') = False Do
begin
AreaAll := AreaAll + GetValue('DM1.Query', 'S');
AreaUses := AreaUses + Lowercase(GetValue('DM1.Query', 'Name')) + ' площею ' + FORMATFLOAT(fdLandAreaG, GetValue('DM1.Query', 'S')/10000) + ' га, ';
DATANEXT( 'DM1.Query');
end;
//------------------------------------------------------------------------------------------------
NoViChoK писав:Какой код нужен что бы сразу считал общую площадь участков в гектарах с точностью 4 знака после комы?
Или может настройки как то нужно подредактировать?
Есть массив участков с общей площадью 145,6997 (если суммировать в гектарах с точностью 4 знака после комы). Пересчитал все вручную.
Но шаблон fastreports выдает мне 145,6993. Я так понимаю что это просто из за того что подсчет идет в метрах квадратных, а потом пересчет в га.
Код: Виділити все
AreaAll := AreaAll + GetValue('DM1.Query', 'S');
Код: Виділити все
AreaAll := AreaAll + StrToFloat(FormatFloat(fdLandAreaG, GetValue('DM1.Query', 'S')/10000));
Код: Виділити все
[FormatFloat(fdLandAreaG, AreaAll)]
NoViChoK писав:Заменил строку на предложенную вами.
Выбило ошибку несовместимые типы интегер и екстендед.
Сделал переменную AreaAll екстендед, посчитало, но результат выдает такой же как и при расчете округленных сумм точных значений.
007stas писав:Який код потрібен, щоб перевірити чи слой за номером (назвою) 1:gtPlan увімкнений, або ні?