Тех. документація на дві ділянки

[tovscz]

Шаблони не доработани надо прописивать коди

[NickS]

Шаблони не доработани надо прописивать коди

Они всегда будут недоработаны, потому что у каждого исполнителя свой формат и текст технической документации.

[TiJester]

Шаблони не доработани надо прописивать коди

Они всегда будут недоработаны, потому что у каждого исполнителя свой формат и текст технической документации.

При этом в них многое можно почерпнуть!

Кстате а есть ли пример как создать запрос (при условии что более одного участка), для выборки информации об ограничениях, сервитутах?

или хоть бы часть кода:
Ясно что надо создать проверку на наличие количества участков и поэтапно прощупывать каждый участок. Но с Сервитутами ни как не выходит(

хотя вот такой вариант .. но он на мой взгляд не совсем верен.. коль два ограничения он не будет работать:

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


***
   //Проверяем сколько отмечено участков и есть ли такие
   If RecordCount('DM1.QbObject') > 0 then
   begin
     If RecordCount('DM1.QbObject') > 1 then
       OneObject := false;
     DATAFIRST( 'DM1.QbObject');
   end
   else
   begin
     FILTERDATA('DM1.QbObject', ''); //Снимаем фильтр
     LOCATEDATA('DM1.QbObject', 'ID_Object', VarToStr(idObject)); //Возвращаем указатель на место
   end;
   // Начинаем цикл с участками
   Repeat

***
    cServ := cServ + RecordCount('DM1.TbServitut');     // Сервитути                         
      If LOCATEDATA( 'DM2.TbTypeRestrict', 'ID_TypeRestrict', <DM1.TbServitut."ID_TypeRestrict">) = true Then
      ServArea :=  IIf(<DM1.QbObject."Area_Type"> = 1, FORMATFLOAT(fdLandAreaG, <DM1.TbServitut."Area">/10000) + ' га', FORMATFLOAT(fdLandAreaM, <DM1.TbServitut."Area">) + ' кв.м.');
      TypeServXML := '- відповідно до ст.99 п."в" Земельного кодексу України рекомендовано встановити: ' + GetValue('DM2.TbTypeRestrict', 'Number')+' - '+ GetValue('DM2.TbTypeRestrict', 'Name') + ' (діють на площу ' + ServArea + ')';;
      If LOCATEDATA( 'DM2.TbTypeLand', 'ID_TypeLand', <DM1.TbServitut."ID_TypeLand">) = True Then
      ServuGodieName := <DM2.TbTypeLand."Number"> + ' '+<DM2.TbTypeLand."Name">;
      If LOCATEDATA( 'DM2.TbTypeRestrict', 'ID_TypeRestrict', <DM1.TbServitut."ID_TypeRestrict">) = true Then
      ServUgodie := ' (у тому числі під сервітутом ' + ServArea +' - '+ ServuGodieName + ')';

***
     If OneObject = false then
        DATANEXT( 'DM1.QbObject');

   Until (DATAEOF( 'DM1.QbObject') = true) or OneObject;


[NickS]

Кстате а есть ли пример как создать запрос (при условии что более одного участка), для выборки информации об ограничениях, сервитутах?

Опишите более детально суть задания и я составлю sql-запрос.
Вот функция чтобы создать таблицу всех, действительных на данный момент, ограничения для всех отмеченных участков:

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

QUERYSQL( 'SET DATEFORMAT dmy; Select L.* From [Object] O, Limination L Where (O.OK = ''ю'') And (L.ID_Object = O.ID_Object) And (L.DateFirst < GETDATE()) And ((L.ID_TypeTermin = 0) or ((L.ID_TypeTermin = 1) and ((L.DateLast > GETDATE()) or (L.DateLast is Null )))) Order by L.ID_Object');

А вот тоже самое для сервитутов:

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

QUERYSQL( 'SET DATEFORMAT dmy; Select S.* From [Object] O, Servitut S Where (O.OK = ''ю'') And (S.ID_Object = O.ID_Object) And (S.DateFirst < GETDATE()) And ((S.ID_TypeTermin = 0) or ((S.ID_TypeTermin = 1) and ((S.DateLast > GETDATE()) or (S.DateLast is Null )))) Order by L.ID_Object'');

[GENYA]

В ГИС 6.1.4.3 в параметрах "Техническая документация" появился раздел "Техническое задание" в т.ч. "срок окончания" который по результатам присвоения присваивает срок полгода. Как можно изменить параметры, чтобы присавивало 45 рабочих дней с дня выдачи задания?

[feNICKs]

В ГИС 6.1.4.3 в параметрах "Техническая документация" появился раздел "Техническое задание" в т.ч. "срок окончания" который по результатам присвоения присваивает срок полгода. Как можно изменить параметры, чтобы присавивало 45 рабочих дней с дня выдачи задания?

Відповідно до пункту 1 Закону України від 22 вересня 2011 року №3774-VI "Про внесення зміни до статті 28 Закону України "Про землеустрій" щодо скорочення строку складання документації із землеустрою ", максимальний строк складання документації із землеустрою не повинен перевищувати шести місяців з моменту укладення договору. Тому Термін закінчення Техн.Завдання розраховується на пів року, як гранична дата (даний параметр стоїть за умовчанням). В крайньому випадку Ви можете вручну прописати цю дату.

[simon4ik]

Доброго времени суток.
Возник такой вопрос, как разместить несколько планов(не соседних) на один лист?

[feNICKs]

Можно сделать следующее:
в главном окне "Земельные участки" сделать отбор нужных зем.участков;
в отчетной форме на странице (например формата А3) разместить Бэнд, ему назначить источник данных таблицу DM1.QbObject;
в данный Бэнд поместить объект Рисунок размером в А4 или менее, чтоб поместились 2 рисунка на 1 странице;
и в обработчике событий задать стандартный алгоритм загрузки изображения (см. в стандартных шаблонах).
Кроме того, нередко пользователи создают подобный план в графическом редакторе, вставив изображение зем.участка с окна "Камеральные функции" в нужный им форму. Изображение формируется автоматически при переходе в окно "Камеральные функции" и хранится в рабочем каталоге программы: C:\Program Files\GIS6\gis.wmf

[simon4ik]

А можно подробнее о:
"в отчетной форме на странице (например формата А3) разместить Бэнд, ему назначить источник данных таблицу DM1.QbObject;"?

[simon4ik]

Уже понял, разбираюсь дальше.