Вручную, это не наш метод 
Откройте в Digitals DMT-шаблон который вы используете.
Найдите в нем таблицу смежников, пометьте ее и войдите в редактирование (правая кнопка мыши и меню Свойства…).
Там будет строчка P[NM].
Замените ее на FIO(P[NM]) и сохраните DMT-шаблон.
В ДМТ шаблонах в таблице смежников указан параметр, который используется при заполнении таблицы.
Например: землі гр. P[7]
где P[7] - параметр №7
Указывайте нужный вам.
Дуже дякую все працює. :mrgreen:
А каким образом аналогичную функцию отобразить в Reports? И плюс число прписью?
var PointsCount:Integer; PC:String;
…
begin
…
PointsCount:=StrToInt(Param(-8))-1; // число точек в полигоне
PC:=SEF(IntToStr(PointsCount),‘NumToWords.txt’); // число точек в полигоне прописью
…
end.
Содержимое файла ‘NumToWords.txt’
1<tab>один
2<tab>два
....
....
....Если числа будут небольшие, этот вариант подойдет. Для больших чисел лучше писать функцию.
Кроме вышеперечисленного способа в генераторе отчетов существует функция NumToStr, которая выдает любые числа прописью как на русском, так и на украинском. Язык задается вторым параметром: если указан Russian или 1, то используется русский, иначе - украинский.
Подскажите пожалуйста. Вопрос!!! - такая ситуация - формирую отчет из ин4 (техничну документацию) вроде все нормально заполняет но вот проблема возникает с шрифтами: в редакторе шаблонов шрифт устанавливаю к примеру Таймс 12 сохраняю, и у меня высвечивается половина страницы одним шрифтом половина другим. На некторых страницах теряются половины слов ипри печати тоже самое получается! Можно ли как нибудь это устранить??? И как это сделать! Заранее благодарен за ответы!
Пробовали ли работать с этим шаблоном на других компьютерах?
Выложите свой шаблон для выяснения проблемы.
Да на других компьютерах тоже самое!!! Вот тот самый шаблон посмотрите пожалуйста что с ним))). Там тхт надо расширение поменять на фр3.
TD_privat_844.txt (173 KB)
У меня все отображается нормально на Вашем шаблоне. Предполагаю что проблемы возникают в RichEdit(глюки замечались и ранее), попробуйте заменить их на Memo. HTML-тэгами можно форматировать текст в них, их использование хорошо описано в справке.
В другой теме никто так и не ответил, попробую тут:
Сделаем
Опыт подсказывает что “удобоваримое” у каждого свое, потому желателен пример для нескольких различных случаев(обл.центр, город, обл.подчинения,райцентр,село; Киев, Севастополь, Крым -по возможности). В шаблоне технички нет нигде адреса регистрации, если я не ошибаюсь. Потому сделаю функцию, которую добавите сами в свой шаблон.
Вообще-то в шаблоне приложения к госакту уже есть функция приведения адреса регистрации к “удобоваримому” виду:
function FormatAU(AUValue:String):String;
var st,st2:String;
begin
if AUValue=''
then begin
Result:='';
Exit;
end;
st:=StringPart(AUValue,1,',');
if st<>'804'
then begin
Result:=SEF(st,'KDS.txt')+', ';
end
else Result:='';
if SEF(StringPart(AUValue,5,','),'OblCenters.txt')<>'+'
then begin
st:=StringPart(AUValue,3,',');
if (st='Автономна республіка Крим') or (st='АР Крим')
//or (st='Кримське ханство')
then Result:=Result+st+', '
else Result:=Result+st+' область, ';
end;
if SEF(StringPart(AUValue,5,','),'RayCenters.txt')<>'+'
then Result:=Result+StringPart(AUValue,4,',')+' район, ';
Result:=Result+StringPart(AUValue,5,',');
st:=StringPart(AUValue,6,',');
if st<>'-'
then Result:=Result+', '+st;
st:=StringPart(AUValue,7,',');
if st<>'-'
then Result:=Result+', буд. '+st;
st:=StringPart(AUValue,8,',');
if st<>'-'
then Result:=Result+', корп. '+st;
st:=StringPart(AUValue,9,',');
if st<>'-'
then Result:=Result+', кв. '+st;
end;
Текст функции поместите в скрипт шаблона перед главным begin…end
В качестве аргумента функции используйте параметр AU.
Пример:
var AUComfort:String;
…
function FormatAU(AUValue:String):String;
…
//главный begin…end
begin
…
AUComfort:=FormatAU(Param(‘AU’));
…
end;
Спасибо за оперативность, я в принципе просил просто перенести функцию просто наверно стоит еще почистить недоделанную функцию AU что присутствует в шаблоне технички, в понедельник займусь.
А можно уточнить что за приложение к акту, он был в стандартной поставке ?
Это приложение к госакту нового образца для случаев с несколькими владельцами. Сам бланк появился относительно недавно, шаблон к нему сделали в сентябре 2009-го. В дистрибутиве Digitals этот шаблон есть. Отдельно выложен во вложении.
ActApp.ZIP (10.1 KB)
в *.dmt шаблоні функція FFF працює тільки якщо вона сама в таблиці, якщо наприклад FFF(t1.txt) p[kf] тоді показує T1.TXT) P[KF NOT FOUND!
Функція FFF створена для випадків, коли формула не вміщається в назву параметра, все що йде слідом за нею розглядається як назва файлу в якому зберігається формула.
В таблицях краще використовувати функцію SEF(назва_формули,назва_файла), по перше це дає можливість зберігати всі формули в одному файлі, по друге складати формулу з “цеглинок”, що робить їх зрозумілішими.
Щось на зразок цього:
SEF(FUNC,func.txt)
а в файлі func.txt
FUNC<tab>SEF(CRITERIA,VALUE1|SEF(FUNC1,func.txt)|VALUE2|SEF(FUNC2,func.txt)|*|SEF(FUNCOTHER,func.txt))
FUNC1<tab>.....
FUNC2<tab>.....
FUNCOTHER<tab>.....Робочий приклад:
файл з формулами - Digitals\Lists\BlueActF.txt
використання - Digitals\Госакт (голубой) лицевая.DMT
дякую за відповідь 
Подскажите как реализовать что бы автоматически в описании смежеств в гос.акте 5 и последующие смежества выводились с начальной буквой
тоесть приблизительно так
до Б землі гр.
до В землі загального користування
до Г землі гр.
до Д землі гр.
Д до Е землі гр.
Е до А землі гр.
А то при написании чего-то подобного в шаблоне
до Б землі гр. P[7]
до В
до Г
до Д
Д до А получается достаточно глючно
як написати формулу, щоб зробити список угідь у випадку коли є наприклад 05 рілля, 35.1 капітальна і 35.1 капітальна, щоб назви угідь не повторювались. і другий список де площа однакових угідь сумувалась?