GENYA писав:Как можно создать план земельного участка и сборный кадастровый план смежных... по своим стандартам? Или можно направить вам свой вариант а вы его разработаете и они будут в следующем обновлении ГИС.
zemsfera писав:Как отобразить старый кадастровый номер???
Код: Виділити все
OldIKN : string;Код: Виділити все
//-------------------------------------------------------------------------------------------------------------------------------------------------------------------
// Старые кадастровые номера
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;