Склонение по падежам
Добавлено: 21 мар 2008, 16:47
Подскажите плз функцию, которая склоняет ФИО по падежам
Вроде что то подобное есть в
StrFunc.vih и odecl.vih
Да и в форуме уже этот вопрос не раз светился )
Обсуждение различных вопросов, связанных с сопровождением, администрированием и программированием
https://asu.tyumbit.ru/
Код: Выделить всё
.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