Обсуждение различных вопросов, связанных с сопровождением, администрированием и программированием
https://ns1.tyumbit.ru/
В первой функции (GetPercServN) не совсем понятно что за LSchetKateg типа comp?function GetPercServN(PsnNRec : comp; LSchetKateg : comp; RunDate : date) : double;
// возвращает % для северного стажа на указанную дату и ссылку на запись North
function GetPercServOnDate(PsnNRec : comp; RunDate : date; var NorthNrec : comp) : double;
Код: Выделить всё
LSchetKateg == North.kateg
Код: Выделить всё
public function GetPercServN(PsnNRec : comp; LSchetKateg : comp; RunDate : date) : double;
{ // Возвращает процент для северного стажа
var ServLenYears : integer;
var ServLenMonths : integer;
var ServLenDays : integer;
GetPercServN := 0.0;
if (GetFirst Persons where ((PsnNRec == Persons.NRec)) = tsOk)
if (GetFirst Catalogs where ((64 == Catalogs.SysCode)) = tsOk)
if (GetFirst ServLen where (( PsnNRec == ServLen.Person and // сведения о стаже
slStaffServLenCur == ServLen.CurRec and
Catalogs.Nrec == ServLen.Position )) = tsOk)
{
if (ServLen.ToDate <> Date(0,0,0))
{
ServLenYears := ServLen.YearsE;
ServLenMonths := ServLen.MonthsE;
ServLenDays := ServLen.DaysB;
if (ServLenDays > 0)
ServLenMonths := ServLenMonths + 1;
}
else
{
ServLenYears := StajYears(ServLen.FromDate, RunDate, ServLen.Rate,
ServLen.DaysB, ServLen.MonthsB, ServLen.YearsB);
ServLenMonths := StajMonths(ServLen.FromDate, RunDate, ServLen.Rate,
ServLen.DaysB, ServLen.MonthsB, ServLen.YearsB);
ServLenDays := StajDays (ServLen.FromDate, RunDate, ServLen.Rate,
ServLen.DaysB, ServLen.MonthsB, ServLen.YearsB);
if (ServLenDays > 0)
ServLenMonths := ServLenMonths + 1;
}
if (GetFirst North
where ((LSchetKateg == North.kateg and
((ServLenYears = North.EndInt and
ServLenMonths <= North.MonthInt) or
ServLenYears < North.EndInt)
)) = tsOk)
GetPercServN := North.Proc;
}
}
Простите, я опять за своё: C_ExtFun.chm, функции PA_RegionalFactorOnDay и PA_RegionalFactor.s2176 писал(а):А вот теперь нужно достать районный коэффициент на дату (т.е., просто из лицевого счета не подойдет, нужно с учетом возможных перемещений).
К тому же ещё присутствует раздел "Инициализация функций получения параметров ЛС на дату при помощи прикладных контекстов"Описание
Возвращает величину районного коэффициента на дату OnDate . Текущий лицевой счет задается предварительным вызовом функции PA_Assign
Код: Выделить всё
// 1. Подключить заголовочный файл:
#include Contexts.vih // прикладные контексты
interface Example;
// 2. Добавить глобальную переменную в интерфейс:
var
CS: IContextSession;
...
handleEvent // интерфейса
cmInit:
{
// 3. Добавить следующие строки в обработчик инициализации интерфейса:
var CL: ContextList;
// захват прикладных контекстов
if (not CL.Add(CS, 'PADetailsUtils'))
{
abort;
exit;
}
...
}
...
end;
end.
