Імпорт з MS Excel

[Leon]

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

Подскажите, пожалуйста, как осуществить авторасчет площадей участка, чтобы его значение добавилось в поле аренды. Я сделал так: "Участок -> "Пересчет площадей для всех отмеченных участков" у меня не получилось, хотя аренда уже была создана и реквизиты договора аренды внесены.

Кстати, есть же функция в меню "Сервис"/"Присвоить всем отмеченным участкам выбранные значения текущей записи", где в закладке Аренда есть параметр - "Площадь = Площадь участка". Используйте его!)
2. А что на счет Субаренды? Согласно п. 6 ст. 93 ЗКУ арендованный земельный участок или его часть может по согласию арендодателя передаваться арендатором в субаренду. Т.е. уже это будет совсем другой контур и другая площадь.

Конечно и п."Й" ст. 25, ст. 55-1 ЗУ "Про землеустрій" также такое предусмотрено. Потому я и предлагаю учет субаренды вести в отдельном реестре и связывать его с арендой (к примеру, как показано на рисунке ниже), тогда площадь субаренды может быть другой. Тогда и ф-ция Сервис"/"Присвоить всем отмеченным участкам выбранные значения текущей записи", где в закладке Аренда есть параметр - "Площадь = Площадь участка" будет просто не нужна. В текущей же реализации аренда и субаренда валится в одну кучу, потому и нет прямой связи с координатами участка, нет контроля условий субаренды, чтобы они не выходили за пределы основного договора аренды.

4. На счет связи субаренды с арендой, тут мы подумаем на счет реализации.
п.с. Вы ж учтите, у разных пользователей разные цели в использования ГИС6 и его реестров! Поэтому то что хорошо одному, не совсем подходит другому. Вот мы и стараемся находить компромиссы. А на счет разумных предложений и замечаний - мы всегда им ради!))

Когда реализуется связь аренды с субарендой Вы сами увидите, как все выстроится в стройную структуру, которую оценят все пользователи. За 15 лет в землеустройстве мне приходилось работать и в ДЗК и в агрохолдинге, теперь вот у меня свое частное предприятие. Не сочтите за хвастовство, но это просто взгляд изнутри. Мы много систем перепробовали, но ГИС 6 действительно классный продукт, в нем есть огромный потенциал, по сравнению с другими, который будем вместе реализовывать. Удачи.

[feNICKs]

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

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

В закладке "Аренда"/пункт меню "Расчёт отмеченных". Выполняет расчет площадей контуров под аренду для всех помеченных зеленой меткой участков.

[Leon]

В закладке "Аренда"/пункт меню "Расчёт отмеченных". Выполняет расчет площадей контуров под аренду для всех помеченных зеленой меткой участков.

Нашел, получилось. Но все же, после реализации моего предложения с субарендой, пожалуйста, свяжите это поле напрямую с координатами участка. Это, согласитесь, намного проще и избавит от многих ошибок.

[Leon]

Подскажите, пожалуйста, как импортировать зеленые метки из XLS ? Пробовал так: Импорт из MS Excel -> Маркировать земельные участки. Там файл вроде-бы простой всего 3 столбца но не совсем понятно, что туда писать если нужно пометить участки зеленой меткой. Пробовал писать во второй столбец "02", "зеленая метка", но ничего не получилось. Получается, что можно только указать номер цвета маркировки, а пометить таким образом земельные участки зеленой меткой не возможно?

[Dorochenko_iv]

[quote="Leon"]Подскажите, пожалуйста, как импортировать зеленые метки из XLS ? Пробовал так: Импорт из MS Excel -> Маркировать земельные участки. Там файл вроде-бы простой всего 3 столбца но не совсем понятно, что туда писать если нужно пометить участки зеленой меткой. Пробовал писать во второй столбец "02", "зеленая метка", но ничего не получилось. Получается, что можно только указать номер цвета маркировки, а пометить таким образом земельные участки зеленой меткой не возможно?[/quot


первый столбец. - кад.номер, 2 ст. - номер цвета маркировки, 3 ст. - 1 (пометить зел.меткой), 4 ст. - 1 (пометить красной меткой) ( в описании небольшая опечатка - там файл на 4 столбца).

[Leon]

первый столбец. - кад.номер, 2 ст. - номер цвета маркировки, 3 ст. - 1 (пометить зел.меткой), 4 ст. - 1 (пометить красной меткой) ( в описании небольшая опечатка - там файл на 4 столбца).

Если в 3 столбце написать "Зеленая метка" то маркирует и зеленой и красной меткой одновременно. Это, наверное, не только опечатка в описании, но и программный глюк?

[feNICKs]

Да, там была опечатка, исправил описание и индекс столбца для красных и зел. меток. Можете заполнить только 3 колонку и включить параметр "Помечать земельные участки", а после импорта красную метку снимите из всех помеченных.

[kol_s]

Доброго дня.
Передімною стоїть завдання, вибрати з бази власників земельних ділянок по ідентифікаційному номеру, тобто я маю в Excel список ід.номерів мені потрібно помітити земельні ділянки, якщо буде знайдено його власника, чи можливо це зробить, підскажіть будь ласка як

[feNICKs]

Доброго дня.
Передімною стоїть завдання, вибрати з бази власників земельних ділянок по ідентифікаційному номеру, тобто я маю в Excel список ід.номерів мені потрібно помітити земельні ділянки, якщо буде знайдено його власника, чи можливо це зробить, підскажіть будь ласка як

Все можно просто организовать, но нужны навыки создания отч.форм.
Итакс:
1. Создаете отч.форму (*.fr3) с диалоговым окном.
2. в диалоговом окне добавляете объекты: Edit1, Memo1, 2 кнопки (buttons), AdoQuery
3. в Edit1 будет прописан путь к тхт-файлу, где будут с новой строки прописаны все номера.
4. на кнопку 1 чепляем обработчик событий (код):

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

procedure Button1OnClick(Sender: TfrxComponent);
begin
   Memo1.Lines.Clear;
   Memo1.Lines.Text := LoadTxtFromFile( Trim( Edit1.Text));
end;

Это будет загрузка списка кодов в Мемо1
5. на вторую кнопку:

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

procedure Button2OnClick(Sender: TfrxComponent);
Var
   Str : String;
   i: Integer;
begin
   For I:= 0 To Memo1.Lines.Count -1 Do
   Begin
      Str := Memo1.Lines[ I];

      If Length( Str) = 10 Then
      Begin
         With sQuery Do
         Begin
            Close;

            Str := 'Update Object ' +
                   'Set Ok = ''ю'' ' +
                   'Where ID_Object In( '+
                   'Select O.ID_Object '+
                   'From Object O '+
                   'inner join UserRec U On U.ID_Object = O.ID_Object '+
                   'Inner Join People P On P.ID_People = U.ID_People '+
                   'Where P.Taxcode = '''+Str+ ''' Group by O.ID_Object)';
            Sql.TExt := Str;
            ExecSQL;
         
         End;
      End;
   End;

   ShowMessage( 'Закройте отчетную форму и перезапустите ГИС6!');
end;

вот и все!))

[kol_s]

Дякую за допомогу, для зручності добавив

Label1.Caption := inttostr(i + 1) + ' из ' + inttostr(Memo1.Lines.Count);
Application.ProcessMessages;

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

procedure Button2OnClick(Sender: TfrxComponent);
Var
   Str : String;
   i: Integer;
begin
   For I:= 0 To Memo1.Lines.Count -1 Do
   Begin
      Str := Memo1.Lines[ I];

      If Length( Str) = 10 Then
      Begin
         With sQuery Do
         Begin
            Close;

            Str := 'Update Object ' +
                   'Set Ok = ''ю'' ' +
                   'Where ID_Object In( '+
                   'Select O.ID_Object '+
                   'From Object O '+
                   'inner join UserRec U On U.ID_Object = O.ID_Object '+
                   'Inner Join People P On P.ID_People = U.ID_People '+
                   'Where P.Taxcode = '''+Str+ ''' Group by O.ID_Object)';
            Sql.TExt := Str;
            ExecSQL;
            Label1.Caption := inttostr(i + 1) + ' из ' + inttostr(Memo1.Lines.Count);
            Application.ProcessMessages;
         
         End;
      End;
   End;

   ShowMessage( 'Закройте отчетную форму и перезапустите ГИС6!');
end;