Створення планів

Геодезична інформаційна система 6 та Геодезична інформаційна система 6 Агро

Модератори: NickS, feNICKs

GENYA
Повідомлень: 68
З нами з: 23 грудня 2010, 08:51

Створення планів

Повідомлення GENYA » 23 грудня 2010, 16:05

Как можно создать план земельного участка и сборный кадастровый план смежных... по своим стандартам? Или можно направить вам свой вариант а вы его разработаете и они будут в следующем обновлении ГИС.

Аватар користувача
NickS
Повідомлень: 1393
З нами з: 04 квітня 2008, 12:21

Re: СОЗДАНИЕ ПЛАНОВ

Повідомлення NickS » 24 грудня 2010, 12:03

GENYA писав:Как можно создать план земельного участка и сборный кадастровый план смежных... по своим стандартам? Или можно направить вам свой вариант а вы его разработаете и они будут в следующем обновлении ГИС.

Любые отчётные формы редактируются. Вы можете взять какой-то готовый план и его подкорректировать по своим стандартам. Или же можете создать новую отчётную форму. Чтобы перейти в редактор отчётных форм, в камеральных функциях выберите в меню "Отчёты" пункт "Изменить".

Если не хотите сами шаблон делать, можете заказать у нас.

zemsfera
Повідомлень: 1
З нами з: 07 вересня 2019, 18:02

Re: СОЗДАНИЕ ПЛАНОВ

Повідомлення zemsfera » 25 жовтня 2019, 19:00

Как отобразить старый кадастровый номер???

Аватар користувача
NickS
Повідомлень: 1393
З нами з: 04 квітня 2008, 12:21

Re: СОЗДАНИЕ ПЛАНОВ

Повідомлення NickS » 28 жовтня 2019, 12:01

zemsfera писав:Как отобразить старый кадастровый номер???

Если Вы его записали в область "Старый кадастровый номер", то надо его отображать через специальный код (ведь там может быть несколько записей). Для начала опишем новую переменную "OldIKN", в которой будет хранится список старых кадастровых номеров:

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

OldIKN : string;

Делается это наверху коду, после строки "var".
В самом низу кода, перед строкой "end." (энд с точкой!) вставьте этот код:

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

  //-------------------------------------------------------------------------------------------------------------------------------------------------------------------
  // Старые кадастровые номера

  OldIKN := ''; // Список всех

  QuerySQL('Select Distinct IKN From ObjectLnk Where (ID_Primary = ' + IntToStr(<DM1.QbObject."ID_Object">) + ')');

  If Length('DM1.QuerySQL') > 0 then
  begin
    DataFirst('DM1.QuerySQL');

    While DataEOF('DM1.QuerySQL') = false do
    begin
      OldIKN := OldIKN + <DM1.QuerySQL."IKN"> + ', ';
      DataNext('DM1.QuerySQL');
    end;

    OldIKN := Copy(OldIKN, 1, Length(OldIKN) - 2);
  end;


После этого в текст можно вставлять значение: [OldIKN]