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

[by_HT]

Ни как не могу выловить где происходит расчет значения Month...
валиться на коде: Month[i] := COPYSTR(TmpMonth,1,STRLEN(TmpMonth)-4);

Приходит значение "Авг"? ну естествено тут и ошибка.....

смотрю функцию, но ни чего серьезного я там не вижу:

PayrollCalculate.CalcTimes(EmployeeSalary,UOM,TypeCalc::Vacation,VacationData,MQ
ty,TotalSalary,Month);

=(((((

[romeo]

А FORMAT для получения короткого обозначения месяца не пробовали использовать? Или я может быть чего-то не хочу понимать...

[by_HT]

TmpMonth принимает значения:
Сентябрь 2006
Октяберь 2006
Ноябрь 2006
а потом просто
"Авг"

Вот и не могу понять почему "Авг"...... почему такое значение выходит

[romeo]

Цитата:

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

Вот и не могу понять почему "Авг"...... почему такое значение выходит

Я тоже не понимаю. Если принимает Месяц + Год4, то вот тут COPYSTR(TmpMonth,1,STRLEN(TmpMonth)-4) она отрубает 4 символа с конца, то есть Год4. Остается название месяца. Почему от Август 2006 остался Авг непонятно )) Видимо передавался в TmpMonth не "Август 2006", а "Август "

[by_HT]

скорей всего так оно и есть.... И как мне исправить эту ошибку??

[romeo]

Цитата:

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

скорей всего так оно и есть.... И как мне исправить эту ошибку??

Было бы легче, если бы вы запостили сюда сообщение об ошибке, о которой вы говорите. Или ошибка в том и состоит, что возвращается Авг вместо Августа? Если так, то надо смотреть почему в TmpMonth значение без года ...

[Corleone]

Где ты вообще такой код нашел, у тебя какая версия нав? Если сам написал, то смотри где у тебя определяется TmpMonth.

[by_HT]

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

  // calc work&fact time and salary by months
  PayrollCalculate.CalcTimes(EmployeeSalary,UOM,TypeCalc::Vacation,VacationData,MQty,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;

[romeo]

В TmpMonth у вас передается строка "Авг". Не "Август 2006", а "Авг". COPYSTR пытаясь срезать с конца 4 символа получает, что последний аргумент равен -1. Ищите почему в TmpMonth попадает "Авг".
Юзайте дебагер, сразу все станет понятно и без форума.

[by_HT]

Почему в TmpMonth ????? а не Month!!!!!......
в том то и дело что я не могу найти где происходит заполнение этого значения Month...
Вообще где-то в функции PayrollCalculate.CalcTimes:
Нашел вот этот код:

	  Months[Index] := FORMAT(CurrDate,0,'<Month Text>') + ' ' + FORMAT(DATE2DMY(CurrDate,3));

Но он мне абсолютно не помогает.......значение выводятся нормально!!!!
Я бы сюда не писал если было бы здесь все просто...

[by_HT]

Цитата:

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

Где ты вообще такой код нашел, у тебя какая версия нав? Если сам написал, то смотри где у тебя определяется TmpMonth.

4.0 SP2
У вас что то по другому написано?????

[romeo]

  // calc work&fact time and salary by months
  PayrollCalculate.CalcTimes(EmployeeSalary,UOM,TypeCalc::Vacation,VacationData,MQty,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;

Поставьте точку останова, где я написал и в дебагере посмотрите, что заносится в TmpMonth. Если встретите "Авг" надо смотреть корректность заполнения массива Month[i].

[by_HT]

Строк очень много... так много что неделю сидеть прийдется

убейте меня

щяс нах.. в окно выкину свой комп....

Последнее значение которое принмает ТmpMonth = август, но пред ним еще Июль... но ошибка на ней не падет

[romeo]

В 3,7 я процедуры с именем CalcTimes() не нашел. Массива с именем Month не нашел.

[apanko]

Эта строка там не спроста:

PayrollCalculate.CalcTimes(EmployeeSalary,UOM,TypeCalc::Vacation,VacationData,MQty,TotalSalary,Month);

Наверное в ней и происходит заполнение Month, по крайней мере она в данный кодеюнит передается.

Копать - там.

[apanko]

Глянул одним глазком кодеюнит:

Массив в кодеюните заполняется с 1 по MQty. (как считатеся MonthQty, а он считается в том же кодеюните не смотрел).

А читается с 1 по 12 (это уже в отчете).

[apanko]

Я подумал еще и передумал: Перед тем как вызывать PayrollCalculate.CalcTimes(...), очистите массив CLEAR(Month);

[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 символа!! (или я неправильно его читаю??)

[romeo]

Цитата:

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

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

Нет. TmpMonth судя по всему не массив и принимает значение одного из элементов Month[]. В цикле идет последовательное присвоение нового значения Month[i]. А COPYSTR() урезает TmpMonth. То есть по идее последовательного урезания не должно быть.

[by_HT]

TmpMonth не массив...

CLEAR(Month); перед PayrollCalculate.CalcTimes(...), выводит ошибку:
Неопределенная дата не может быть использована для вычисления.
Дата: 0D
Форумал: -12M

Щяс буду разбираться с этим...