nazarfl писал(а):
Допоможіть будь-ласка. Не знаю як виконати скрипт, в "генераторе отчетов" щоб робило скорочення з Попов Петро Петрович на Попов П.П. Буду дуже вдячний за допомого. Або підкажіть функцію яка таке можк зробити.(Я формую звіт з XML)
Найпростіший варіант
if S='Попов Петро Петрович' then S:='Попов П.П.'; //це шутка
Якщо за основу взятий шаблон кадплану викладений мною, то можно модифікувати функцію PrepareNMList, яка повертає список власників розділений роздільником.
Строки
if IsNodeExists(PPath+'/ProprietorInfo/Authentication/NaturalPerson')
then Result:=Result+
XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/NaturalPerson/FullName/LastName')+' '+
XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/NaturalPerson/FullName/FirstName')+' '+
XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/NaturalPerson/FullName/MiddleName')+IIF(I<>N,Delimeter+' ','')
else Result:=Result+XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/LegalEntity/Name')+IIF(I<>N,Delimeter+' ','')
замінити на
if IsNodeExists(PPath+'/ProprietorInfo/Authentication/NaturalPerson')
then Result:=Result+
XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/NaturalPerson/FullName/LastName')+' '+
Copy(XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/NaturalPerson/FullName/FirstName'),1,1)+'.'+
Copy(XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/NaturalPerson/FullName/MiddleName'),1,1)+'.'+IIF(I<>N,Delimeter+' ','')
else Result:=Result+XPath(PPath+'/ProprietorInfo['+IntToStr(I)+']/Authentication/LegalEntity/Name')+IIF(I<>N,Delimeter+' ','')