@oymp

Помогите пожалуйста, при проводке Начисления зарплаты у меня вылезает ошибка Преобразование значения к типу Число не может быть выполнено


Код ( (Unknown Language)):
Процедура РасчитатьНачисления(НаборЗаписейРегистра, ТребуемыйВидРасчета, СписокПерсонала) Экспорт
Регистратор=НаборЗаписейРегистра.Отбор.Регистратор .Значение;
//Рассчитать первичные записи
Если ТребуемыйВидРасчета=ПланыВидовРасчета.ВидыНачислен ий.Оклад тогда

Запрос=Новый Запрос;
Запрос.Текст=
"Выбрать
|НачисленияДанныеГрафика.ЗначениеПериодДействия КАК Норма,
|НачисленияДанныеГрафика.ЗначениеФактическийПериод Действия КАК Факт,
| НачисленияДанныеГрафика.НомерСтроки КАК НомерСтроки
|ИЗ
| РегистрРасчета.Начисления.ДанныеГрафика(Регистрато р=&Регистратор И
| ВидРасчета=&ВидРасчета И
| Персонал В(&СписокПерсонала))
| Как НачисленияДанныеГрафика";

Запрос.УстановитьПараметр("Регистратор",НаборЗапис ейРегистра.Отбор.Регистратор.Значение);
Запрос.УстановитьПараметр("ВидРасчета",ТребуемыйВи дРасчета);
Запрос.УстановитьПараметр("СписокПерсонала", СписокПерсонала);
ВыборкаРезультата=Запрос.Выполнить().Выбрать();
Для Каждого ЗаписьРегистра Из НаборЗаписейРегистра Цикл
СтруктураНомер=Новый Структура("НомерСтроки");
СтруктураНомер.НомерСтроки=ЗаписьРегистра.НомерСтр оки;
ВыборкаРезультата.Сбросить();
Если ВыборкаРезультата.НайтиСледующий(СтруктураНомер) тогда
Если ВыборкаРезультата.Норма=0 тогда
Сообщить("ВидРасчета:Оклад-Нет Рабочих дней в заданном периоде",);
ЗаписьРегистра.Результат=0;
Иначе
//Рассчитать оклад по фактическому периоду и исходным данным
ЗаписьРегистра.Результат =(ЗаписьРегистра.ИсходныеДанные/ВыборкаРезультата.Норма)*ВыборкаРезультата.Факт; //<-------------------------тут ошибка-------------
Сообщить("Выполнен расчет"+ЗаписьРегистра.Регистратор+"-"+ ЗаписьРегистра.ВидРасчета+"-"+ЗаписьРегистра.Персонал,);
КонецЕсли;
КонецЕсли;
КонецЦикла;


//Рассчитать вторичные записи
иначеЕсли ТребуемыйВидРасчета=ПланыВидовРасчета.ВидыНачислен ий.Премия тогда
Запрос= Новый Запрос;
Запрос.Текст =
"Выбрать
| НачисленияБазаНачисления.РезультатБаза КАК База,
| НачисленияБазаНачисления.НомерСтроки КАК НомерСтроки
|ИЗ
| РегистрРасчета.Начисления.БазаНачисления(&Измерени яОсновного,
| &ИзмеренияБазового,,
| Регистратор=&Регистратор И
| ВидРасчета=&ВидРасчета И
| Персонал В(&СписокПерсонала))
| КАК НачисленияБазаНачисления";

Измер = Новый Массив(1);
Измер[0]="Персонал";
Запрос.УстановитьПараметр("ИзмеренияОсновного", Измер);
Запрос.УстановитьПараметр("ИзмеренияБазового", Измер);
Запрос.УстановитьПараметр("Регистратор", Регистратор);
Запрос.УстановитьПараметр("ВидРасчета", ТребуемыйВидРасчета);
Запрос.УстановитьПараметр("СписокПерсонала", СписокПерсонала);
ВыборкаРезультата=Запрос.Выполнить().Выбрать();
Для Каждого ЗаписьРегистра Из НаборЗаписейРегистра Цикл
СтруктураНомер=Новый Структура("НомерСтроки");
СтруктураНомер.НомерСтроки=ЗаписьРегистра.НомерСтр оки;
ВыборкаРезультата.Сбросить();
Если ВыборкаРезультата.НайтиСледующий(СтруктураНомер) тогда
ЗаписьРегистра.Результат=ВыборкаРезультата.База*(1 0/100);
Сообщить("Выполнен расчет"+ЗаписьРегистра.Регистратор+"-"+ЗаписьРегистра.ВидРасчета+"-"+ЗаписьРегистра.Персонал,);
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Ошибка в ВыборкаРезультата.Норма и ВыборкаРезультата.Факт, Работаю по Родченко
мне кажеться что ошибка не от туда идёт, ао этому выложил бызу (она очень маленькая) очень надо помогите, пожалуйста

Вернуться к обсуждению:
помогитееее, глупая ошибка, но не могу выявить причину 1С

0