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 окно картотеки.