А опись соседей и остальные данные?
ручками... (
Авто установка смежников можно произвести с окна "зем. участки" , меню "Участки", пункт "Проставить смежников ..."
А опись соседей и остальные данные?
ручками... (
Ну а вообще, интересно, можно ли ждать в следующих версиях более упрощённой такой функции?
Dorochenko_iv писав:На данный момент, возможности для отображения сборного плана из двух участков как было показано, скорей еще нету. Выход из ситуации:
- для создания сборного плана нужно создать общий участок (0,25), потом его разделить на свои 0,10 под ОЖБ и 0,15 под ОСГ. После раздела сформируются части участка по 0,10 и 0,15 и останется общий. Вот этот общий и можно использовать для сборного плана, ну а кусочки для обычной документации. Шаблоны для печати по отмеченным, как писалось выше, существуют. Если уже существуют отдельные части участков, то создайте их дубликаты которые в последующем обьедените в один кусок и проверните тоже самое описанное выше.
Vetaley писав:Нашел у Вас отличный исходный шаблончик на два целевых - Пояснительная записка (для технической документации) 2.fr3 НО! в таблице на стр2 (в случае 2х участков) строка с общими площадями отчего-то отображается между строками экспликации с разными целевыми:
участок1 (БОЖБ)
Площадь всего
участок2 (осг)
как поправить?
Vetaley писав:исчо: переменная NazFunk - выдает название целевого, а мне нужно фукциоанальное((( Помогите исправить плз!
Код: Виділити все
//----------------
//Целевые использования
If LocateData( 'DM2.TbUses', 'ID_Uses', GetValue('DM1.QuerySQL', 'ID_Uses')) = True Then
begin
If RecordCount('DM2.TbUsesLnk') > 0 then
begin
If (LocateData( 'DM2.TbTypeUses', 'ID_TypeUses', GetValue('DM2.TbUsesLnk', 'ID_TypeUses')) = True)
And (Pos(Lowercase(<DM2.TbTypeUses."Name">), FunkNaz) = 0) Then
begin
If Length(Trim(FunkNaz)) > 0 then
FunkNaz := FunkNaz + ', ';
FunkNaz := FunkNaz + Lowercase(<DM2.TbTypeUses."Name">);
CilNom := <DM2.TbTypeUses."Number">;
end;
end
end;
Код: Виділити все
//----------------
//Целевые использования
If LocateData( 'DM2.TbUses', 'ID_Uses', GetValue('DM1.QuerySQL', 'ID_Uses')) = True Then
begin
If Pos(Lowercase(<DM2.TbUses."Name">), FunkNaz) = 0 Then
begin
If Length(Trim(FunkNaz)) > 0 then
FunkNaz := FunkNaz + ', ';
FunkNaz := FunkNaz + Lowercase(<DM2.TbUses."Name">);
end;
end;
Vetaley писав:Отакое "чудо" ))) получилось: http://www.ex.ua/view_storage/844767818499