Звітні форми. Площа, експлікація і т.д.

[feNICKs]

Как должна выглядеть эта строка: sVal16 := sVal16 + <DM1.TbPlan."Area">

переменные: sVal11, sVal12, sVal13, sVal14, sVal15, sVal16, sVal17, sVal18, iStr, iMej, I, C, lMir : integer;

1. данным переменным нужно присваивать тип Double(действительный тип данных), а не Integer ( целочисленный тип данных) т.к. при присвоении им значений ...+ <DM1.TbPlan."Area">, дробная часть уже будет отсеяна т.е. Int(12.75) = 12.
2. в цикле выполняете суммирование площади угодий:

Код: Виділити все

sVal16 := sVal16 + <DM1.TbPlan."Area">;

3. после окончания цикла, приводите значение sVal16 к нужному виду:

Код: Виділити все

     ......
    sVal16 := sVal16 + <DM1.TbPlan."Area">;
     ......
    DataNext('DM1.TbPlan');
End;
sVal16 :=  FormatFloat(fdLandAreaG, sVal16 );
.......


[007stas]

Но форматирование переменной 'sVal16' нужно делать в цикле, а не после него.

Площадь контуров, которая суммируется должна быть уже округленной, а не округляться после суммирования.

[feNICKs]

Но форматирование переменной 'sVal16' нужно делать в цикле, а не после него.

Право Ваше - где хотите, там и округляйте. Все зависит от того, какой Вам нужен результат - если точный, тогда приводите к округлению после подсчета суммы т.к. если Вы будете сразу округлять в цикле и суммировать результат, тогда в Вашей суммарной площади погрешность будет больша. Случаи и требования к расчетам разные бывают, поэтому Вам решать. Я навел Вам только пример для расчета.

[007stas]

Выдает ошибку: 'Не сумісні типи: 'Extended' , 'String'

[feNICKs]

Выдает ошибку: 'Не сумісні типи: 'Extended' , 'String'

Сори, забыл указать преобразования типов.
Если будете округлять в цикле у суммировать -

Код: Виділити все

 sVal16 :=  StrToFloat( FormatFloat(fdLandAreaG, sVal16 ));

т.к. функция FormatFloat возвращает строку,
а если округлять после цикла - тогда лучше результат округлить в текстовом поле на странице отчетной форме -

Код: Виділити все

 [FormatFloat(fdLandAreaG, sVal16 )]

[007stas]

Спасибо.

[xxbabayxx]

Добрый день, не могу найти название переменной "ЄДРПОУ" для арендатора. Помогите пожалуйста

[feNICKs]

Добрый день, не могу найти название переменной "ЄДРПОУ" для арендатора. Помогите пожалуйста

Для этого, Вам необходимо создать условие для перехода в табл. с параметрами Юр.лица и уже оттуда вытягивать значение Кода "ЄДРПОУ".

Код: Виділити все

Var
    Code : String;
BEGIN
....
   If LocateData( 'DM1.QbFirm', 'ID_Firm', <DM1.QiLease."ID_LeaserFirm">) Then
      Code := <DM1.QbFirm."ID_Code">;
....
END.


п.с. Описание полей БД ГИС на установочном диске:\Books\База данных GIS6.xls

[xxbabayxx]

Спасибо, буду пробовать)

[lushenko_vadim]

Добрый день, как настроить Fast Report, что бы можно было печатать угодия не по одному на станице, а по несколько штук. И почему при печати угодий в две колонки, перекрывается шапка второй колонкой.