Склонение по падежам

[Sytin]

Подскажите плз функцию, которая склоняет ФИО по падежам

[Den]

Вроде что то подобное есть в
StrFunc.vih и odecl.vih

Да и в форуме уже этот вопрос не раз светился )

[Ged]

Код: Выделить всё

.Form AAA
.Ard
.declare
#component "z_Staff"
#include odecl.vih   // Склонение
#include StrFunc.vih // Строковые функции
.enddeclare
.Create view vSS
var iDecl:declension;
    iStr:StringFunctions;
As select *
From
 Persons
;
.{table 'vSS.Persons'
.Fields
   Persons.Fio
   iDecl.FIODeclension(0,Persons.FIO,2)
   iDecl.FIODeclension(0,Persons.FIO,3)

   iStr.GetFirstName(Persons.Fio)
      iDecl.SurNameDeclension(iStr.GetFirstName(Persons.Fio), 0,2,1)
      iDecl.SurNameDeclension(iStr.GetFirstName(Persons.Fio), 0,3,1)
   iStr.GetLastName(Persons.Fio)
      iDecl.NameDeclension(iStr.GetLastName(Persons.Fio),0,2)
      iDecl.NameDeclension(iStr.GetLastName(Persons.Fio),0,3)
   iStr.GetPatronymic(Persons.Fio)
     iDecl.PatronDeclension(iStr.GetPatronymic(Persons.Fio),0,2)
     iDecl.PatronDeclension(iStr.GetPatronymic(Persons.Fio),0,3)
//------------

.EndFields
-------------------------------------------------------------------
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  Именитильный   │   Дательный      │   Винительный    │
@@@@@@@@@@@@@@@@ │@@@@@@@@@@@@@@@@@@│@@@@@@@@@@@@@@@@@@│
@@@@@@@@@@@@@@@@ │@@@@@@@@@@@@@@@@@@│@@@@@@@@@@@@@@@@@@│
@@@@@@@@@@@@@@@@ │@@@@@@@@@@@@@@@@@@│@@@@@@@@@@@@@@@@@@│
.}
.EndForm

[Sytin]

Спасибо!