Отчет 14845 "Расчет Т-61"

[RedFox]

Цитата:

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

Ошибка:
Значение COPYSTR параметра 3 находится за пределам и разрешеного интервала.
Текущие значение: -1

// calc work&fact time and salary by months
PayrollCalculate.CalcTimes(EmployeeSalary,UOM,TypeCalc::Vacation,VacationData,MQ
ty,TotalSalary,Month);

TempDate := "Starting Date AE";
FOR i := 1 TO 12 DO BEGIN
IF (Month[i] <> '') THEN BEGIN
TmpMonth := Month[i];
Month[i] := COPYSTR(TmpMonth,1,STRLEN(TmpMonth)-4);
Y[i] := COPYSTR(TmpMonth,STRLEN(TmpMonth)-4,5);
END;
END;

Обратите внимание на код в цикле. Мне он кажется некорректным.
После 1 прохода переменная TmpMonth принимает полное значение. После второго прохода еще урезается на 4 символа!! (или я неправильно его читаю??)