Допоможіть створити XML з старими кодами угідь, давно не працював неможу розібратись з настройками.
З повагою!
Коди угідь містяться у списку можливих значень параметру ID7000901 “Код угіддя” в шаблоні Digitals\Templates\XMLNormal.dmf. Якщо потрібно користуватись старими кодами постійно, то змініть цей список в XMLNormal.dmf.
Можлива заміна старих кодів новими під час відкриття файлів не відбудеться, якщо перейменувати/видалити файл Digitals\Lists\CN2LandCode.txt.
P.S. Зміни в шаблонах Normal.dmf, XMLNormal.dmf застосовуються після перезапуска програми
Добрий день! А якщо мені потрібно користуватися і старими і новими кодами угідь? Що потрібно зробити і де? (працюю з XML).
Пробував робити таким способом… В XMLNormal.dmf в шарі XML:Угіддя (id7000901) вставив новий параметр (30030) CN код угіддя за формою 6-зем. Створив XML файл. Вніс в параметр 30030 старі коди угідь. Записав XML. Але коли відкриваю цей XML то в параметрі 30030 записані і площа і довжина угіддя і ще якась фігня. Що роблю не так?
Дякую за допомогу. Правда працює моя програма в такому режимі. ПОДАЄ УГІДДЯ З НОВИМИ КОДАМИ, а в ручну міняю на старі коди угідь. Може комусь цікаво…
Ну так що, ніхто не допоможе в вирішенні проблеми по старих і нових угіддях? Ну дуже треба -час підтискає а більше у нас в місті нема куди звернутися
Зачем? Я добавил в маску старые коды
За швидкий відклик і пораду дякую. Я так також робив. Але мені потрібно вводити і друкувати в кад плані і старі і нові коди одночасно
Можно выложить пример, интересно глянуть на эту смесь старых и новых кодов в одночасье?
Хочу уточнить, в одном хмл используете разные виды кодов или нужен универсальный шаблон кадастрового плана?
В одному шаблоні використовую різні види кодів. Зараз передам зразок.
Додано файл (зразок)
Да-а, однако забавная штука! ![]()
Я смотрю в файле изначально забиты старые коды, и ко всему этому нужно отдельно вывести в кадастровом новые. Решение крутится вокруг функции SEF в связке Вставка-Таблица-Настраиваемые…. Но немного подумкал и понял, что это не поможет, хотя я могу ошибаться.
Есть одна идея, но это если ничего не получится стучите в ЛС, использовать текстовый файл CN2LandCode.txt
Вставте цей код в кадастровий план свій:
%Events.OnAdd
$Tab=@Calc char(9)
$Tab=@DequoteText $Tab
$Space=@Calc char(32)
$Space=@DequoteText $Space
@Map.DeselectAll
@Map.SelectLayer ID70026
$TO=@Map.SelectedObject
$Header=@Map.Object[$TO].TableText
@Map.DeselectAll
@Text[1].Clear
@Text[1].Add $Header
$EO=@EventObject
$ParcelArea=@Map.Object[$EO].Parameter[ID7000516]
$S=@Concat $Space,$Tab,$Space,$Tab,$Space,$Tab,$Space,$Tab,Усього земель
$S=$S$Tab$ParcelArea
@Text[1].Add $S
$I=0
$J=0
$C=@Map.Count
%Loop
$I=$I+1
$LID=@Map.Object[$I].LayerID
@if $LID<>70009 then @Goto %Continue
$J=$J+1
$CN=@Map.Object[$I].Parameter[ID7000901]
$LandCode=@StringPart 1 $CN
$LandName=@Calc Replace(“$CN”,“$LandCode”,“”,0,0)
$LandName=@DequoteText $LandName
$LandCode2=@Map.Object[$I].CalculateFormula SEF($LandCode,CN2LandCode.txt)
$LandName2=@Map.Object[$I].CalculateFormula SEF($LandCode2,LandCode.txt)
$LandArea=@Map.Object[$I].Parameter[ID7000903]
$S=@Concat $J,$Tab,$LandCode,$Tab,$LandName,$Tab,$LandCode2,$Tab,$LandName2,$Tab
$S=$S$LandArea
@Text[1].Add $S
%Continue
@if $I<$C then @Goto %Loop
$S=@Text[1].Text
@Map.Object[$TO].TableText $S
@Window.Refresh
І в табличку угідь добавте ще дві колонки.
Або скопіюйте табличку з цього файлу у свій шаблон
Микола, дякую. Все супер!