[При склонении]Преобразование значения к типу Число не может быть выполнено

1С v8

10.07.13

✎

07:50


 
Преобразование значения к типу Число не может быть выполнено
 
                                + ПадежП(Выборка.Должность,2,1)

пользуюсь чужой функцией, которая работает %) вот ссылка на мисте на нее v8: Как просклонять должность?

в функцию Функцию передается Строковое значение Должности которую склонять пытаюсь


 
ПадежП(Знач z1,Знач z2,z3=0) Экспорт
 
  z1=СокрЛП(z1);z4=Найти(z1+" "," ")+1;z5=Лев(z1,z4-2);z6=Прав(z5,2);
 
  z7=?((Найти("ая ий ый",z6)>0)и(Найти("ющий нный",Сред(z1,z4-5,4))=0)и(z3=0),"1","*");
 
Возврат НРег(?((z6="ая")или(Прав(z6,1)="а"),ПадежС(z5,z2,z7,1)+" "+ПадежС(Сред(z1,z4),z2),ПадежС(z5,z2,"ч",1)+?((z6="ий")и(Найти(z1," ")=0),""," "+?(z7="1",ПадежП(Сред(z1,z4),z2,Число(z7)),Сред(z1,z4)))));
 
КонецФункции

//Это функция где собственно происходит склонение


 
Функция ПадежС(z1,Знач z2=2,Знач z3="*",z4=0) Экспорт
 
  z5=Найти(z1,"-");
 
  z6=?(z5=0,"","-"+ПадежС(Сред(z1,z5+1,СтрДлина(z1)-z5+1),z2,z3,z4));
 
  z1=НРег(?(z5=0,z1,Лев(z1,z5-1)));
 
  z7=Прав(z1,3);z8=Прав(z7,2);z9=Прав(z8,1);
 
  z5=СтрДлина(z1);
 
  za=Найти("ая ия ел ок яц ий па да ца ша ба та га ка",z8);
 
  zb=Найти("аеёийоуэюяжнгхкчшщ",Лев(z7,1));
 
  zc=Макс(z2,-z2);
 
  zd=?(za=4,5,Найти("айяь",z9));
 
  zd=?((zc=1)или(z9=".")или((z4=2)и(Найти("оиеу"+?(z3="ч","","бвгджзклмнпрстфхцчшщъ"),z9)>0))или((z4=1)и(Найти("мия мяэ лия кия жая лея",z7)>0)),9,?((zd=4)и(z3="ч"),2,?(z4=1,?(Найти("оеиую",z9)+Найти("их ых аа еа ёа иа оа уа ыа эа юа яа",z8)>0,9,?(z3<>"ч",?(za=1,7,?(z9="а",?(za>18,1,6),9)),?(((Найти("ой ый",z8)>0)и(z5>4)и(Найти("опой вбой",Прав(z1,4))=0))или((zb>10)и(za=16)),8,zd))),zd)));
 
  ze=Найти("лец нёк вей бей дец пец мец нец рец вец аец иец ыец бер",z7);
 
  zf=?((zd=8)и(zc<>5),?((zb>15)или(Найти("жий ний",z7)>0),"е","о"),?(z1="лев","ьв",?((Найти("аеёийоуэюя",Сред(z1,z5-3 ,1))=0)и((zb>11)или(zb=0))и(ze<>49),"",?(za=7,"л",?(za=10,"к",?(za=13,"йц",?(ze=0,"",?(ze<16,"ь"+?(ze=1,"ц",?(ze=5,"к","")),?(ze<41,"ц",?(ze<53,"йц","р"))))))))));
 
  zf=?((zd=9)или((z4=3)и(Прав(z1,1)="ы")),z1,Лев(z1,z5-?((zd>6)или(zf<>""),2,?(zd>0,1,0)))+zf+СокрП(Сред("а у а "+?((z8="ич")или(z8="ыш"),"е",?((z8="ов")or(z8="ин"),"ы","о"))+"ме "+?(Найти("гжкхш",Лев(z8,1))>0,"и","ы")+" е у ойе я ю я ем"+?(za=16,"и","е")+" и е ю ейе и и ь ьюи и и ю ейи ойойу ойойойойуюойойгомуго"+?((zf="е")или(za=16)или((zb>12)и(zb<16)),"и","ы")+"мм",10*zd+2*zc-3,2)));
 
Возврат ?(""=z1,"",?(z4>0,ВРег(Лев(zf,1))+?((z2<0)и(z4>1),".",Сред(zf,2)),zf)+z6);
 
КонецФункции

Вот и сам собственно вопрос, может зря пытаюсь данную штуку использовать или моя ошибка очевидна и по не знанию не вижу. Возможно подскажете что-нибудь дельное по склонениям. Потому-что перешерстил много чего %) и нашел какого-то Juras'а пытался использовать, но так как за давностью лет данную обработку решил не трогать

1 Mitriy

10.07.13

✎