2016-04-27 17:00:56
Краткое описание :
Для решения ПИР 101.45651 нужен объект для работы с детьми сотрудника с методом, возвращающим возраст.Описание :
4-е окно (родственники)Что измененно :
Нужен объект для работы с информацией о детях сотрудника с методом, возвращающим возраст исходя из ссылки на ребенка и даты запроса.
Как измененно :
Разработан объект работы с информацией о родственниках ObjChildFuncs.
Объект имеет следующие функции:
Получить дату рождения родственника
Public function GetChildBornDate(psnLinksNRec : comp) : Date;
Получить возраст родственника в виде строки
Public function GetChildAgeStr(psnLinksNRec : comp; repDate : Date) : String;
Получить возраст родственника
Public procedure GetChildAge(psnLinksNRec : comp; repDate : Date; var countYears, countMonths, countDays : Integer);
Получить возраст родственника: лет
Public function GetChildAgeYears(psnLinksNRec : comp; repDate : Date) : Integer;
Получить возраст родственника: месяцев
Public function GetChildAgeMonths(psnLinksNRec : comp; repDate : Date) : Integer;
Получить возраст родственника: дней
Public function GetChildAgeDays(psnLinksNRec : comp; repDate : Date) : Integer;
Функции возвращают -1 если родственник отсутствует, либо дата меньше даты рождения родственника.
Информация о возрасте родственника выводится в 4 окно картотеки.