Персонал и Зарплата новая демонстрационная база Июнь 2009

[im-juli]

Кто нибудь смотрел новую Демо базу по Зарплате?
Не могу ввести Страховой стаж в карточке сотрудника.
Если ввожу СТРАХОВОЙ стаж дата начало, то страховой стаж на дату лет не считает.
Страховой стаж на дату лет ввести не даёт. все обнуляется.
В Navision я чайник и только начинаю изучать.
Может ,что делаю не так?
Помогите пожалуйста.

[RedFox]

Цитата:

Сообщение от im-juli

Кто нибудь смотрел новую Демо базу по Зарплате?
Не могу ввести Страховой стаж в карточке сотрудника.
Если ввожу СТРАХОВОЙ стаж дата начало, то страховой стаж на дату лет не считает.
Страховой стаж на дату лет ввести не даёт. все обнуляется.
В Navision я чайник и только начинаю изучать.
Может ,что делаю не так?

НЕ отвечу, а немного добавлю - не днях объединял обе демо-базы RU и почему-то код НЕ совпедает на "пересекающихся" объектах

[Константин!]

Цитата:

Сообщение от RedFox

НЕ отвечу, а немного добавлю - не днях объединял обе демо-базы RU и почему-то код НЕ совпедает на "пересекающихся" объектах

Ага в код добавили условие в результате чего он вообще работать не будет:

Когда вводим Страховой стаж на дату лет срабатывает ф-я TestInsuranceServ
вот ее код

HumanResSetup.GET;
HumanResSetup.TESTFIELD("Min Insurance Serv Start Date");
IF ("Insurance Empl. Starting Date" <> 0D) AND (HumanResSetup."Min Insurance Serv Start Date" <> 0D) THEN BEGIN
  CalcInsurServ(HumanResSetup."Min Insurance Serv Start Date","Insurance Empl. Starting Date",
				TmpYear,TmpMonth,TmpDay,0,0,0);
  IF "Insurance Empl. (Years)" > TmpYear THEN
	"Insurance Empl. (Years)" := TmpYear;
  IF "Insurance Empl. (Months)" > TmpMonth THEN
	"Insurance Empl. (Months)" := TmpMonth;
  IF "Insurance Empl. (Days)" > TmpDay THEN
	"Insurance Empl. (Days)" := TmpDay;
END;

в этом коде вызывается ф-я CalcInsurServ в которую передаться последние три параметра равные нулю, потом на основе этих нулей вычисляют параметр DayAgo который будет равен нулю и с помощью нового условия успешно обходят основное тело ф-и где вычисляться возвращаемые параметры.

CalcInsurServ(StartingDate : Date;CurrentDate : Date;VAR YearsQty : Integer;VAR MonthsQty : Integer;VAR DaysQty : Integer;YearStart : Integer;MonthsStart  : Integer;DaysStart  : Integer)
DayAgo := YearStart * 12 * 30 + MonthsStart * 30 + DaysStart;

IF DayAgo <> 0 THEN BEGIN //ДОБАВИЛИ УСЛОВИЕ
  StartingDateNew := CALCDATE('<-' + FORMAT(DayAgo) + 'D>',StartingDate);

  IF StartingDateNew <> 0D THEN BEGIN
	DaysQty := CurrentDate - StartingDateNew;
	MonthsQty := ROUND(DaysQty / 30, 1.0, '<');
	DaysQty := DaysQty - MonthsQty * 30;
  END;
  IF MonthsQty > 12 THEN BEGIN
	YearsQty := ROUND(MonthsQty / 12 ,1.0, '<');
	MonthsQty := MonthsQty - YearsQty * 12;
  END;
END;

Может вместо нулей надо передовать "Insurance Empl. (Years)", "Insurance Empl. (Months)", "Insurance Empl. (Days)"

[im-juli]

Если изменить параметры, то стаж лет , мес , дней ввсети получается. Но при этом стаж на дату (рабочую) лет, мес, дней получается очень странный.
Не понимаю почему Insurance Empl. Starting Date - OnValidate() не сделана в духе Total Empl. Starting Date - OnValidate()