не выполняется запрос на сервере
14.05.2012
22:38
#1
"Здравствуйте, не выполняется процедура внешней обработки заполнения табличной части. На Windows 7,XP все нормально, на Server 2003-нет
Процедура Инициализировать(Объект, ИмяТабличнойЧасти, ТабличноеПоле) Экспорт;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| СУММА(БУОсновныеНачисления.Результат) КАК Результат,
| БУОсновныеНачисления.ВидРасчета
|ИЗ
| РегистрРасчета.ОсновныеНачисленияРаботниковОрганизаций КАК БУОсновныеНачисления
|ГДЕ
| БУОсновныеНачисления.ПериодРегистрации МЕЖДУ НАЧАЛОПЕРИОДА(&НачалоПериода, МЕСЯЦ) И КОНЕЦПЕРИОДА(&КонецПериода, МЕСЯЦ)
| И БУОсновныеНачисления.Сотрудник = &Сотрудник
|
|СГРУППИРОВАТЬ ПО
| БУОсновныеНачисления.ВидРасчета";
Дата11 =Объект.Дата;
Дата22 =КонецМесяца(Объект.Дата);
Запрос.УстановитьПараметр("НачалоПериода",Дата11);
Запрос.УстановитьПараметр("КонецПериода",Дата22);
ТабЧасть = Объект.Начисления;
Для каждого стр из ТабЧасть Цикл
Запрос.УстановитьПараметр("Сотрудник", Стр.Сотрудник);
Сумма = 0;
Премия=Стр.Показатель1;
Результат = Запрос.Выполнить().Выгрузить();
Сообщить("Сотрудник " + Стр.Сотрудник);
Для каждого Нач из Результат Цикл
Если Нач.ВидРасчета =ПланыВидовРасчета.ОсновныеНачисленияОрганизаций.ОкладПоДням Тогда
СумРез = Число(Нач.Результат)*Премия/100;
Сумма=Сумма+ СумРез;
Сообщить("Начисление: " + Нач.ВидРасчета.Наименование + " сумма вида расчета: "+Нач.Результат + " начислена премия " +СумРез + " премия " + Сумма);
КонецЕсли;
Если Нач.ВидРасчета =ПланыВидовРасчета.ОсновныеНачисленияОрганизаций.ОплатаСверхурочных Тогда
СумРез = Нач.Результат/2*Премия/100;
Сумма=Сумма+ СумРез;
Сообщить("Начисление: " + Нач.ВидРасчета.Наименование + " сумма вида расчета: "+Нач.Результат + " начислена премия " +СумРез + " премия " + Сумма);
КонецЕсли;
КонецЦикла;
Стр.Результат= Сумма;
сообщить(сумма);
КонецЦикла;
КонецПроцедуры
здесь доходит до Результат = Запрос.Выполнить().Выгрузить(); и не возвращает результат, через отладчик все работает, в чем может быть причина?"
Процедура Инициализировать(Объект, ИмяТабличнойЧасти, ТабличноеПоле) Экспорт;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| СУММА(БУОсновныеНачисления.Результат) КАК Результат,
| БУОсновныеНачисления.ВидРасчета
|ИЗ
| РегистрРасчета.ОсновныеНачисленияРаботниковОрганизаций КАК БУОсновныеНачисления
|ГДЕ
| БУОсновныеНачисления.ПериодРегистрации МЕЖДУ НАЧАЛОПЕРИОДА(&НачалоПериода, МЕСЯЦ) И КОНЕЦПЕРИОДА(&КонецПериода, МЕСЯЦ)
| И БУОсновныеНачисления.Сотрудник = &Сотрудник
|
|СГРУППИРОВАТЬ ПО
| БУОсновныеНачисления.ВидРасчета";
Дата11 =Объект.Дата;
Дата22 =КонецМесяца(Объект.Дата);
Запрос.УстановитьПараметр("НачалоПериода",Дата11);
Запрос.УстановитьПараметр("КонецПериода",Дата22);
ТабЧасть = Объект.Начисления;
Для каждого стр из ТабЧасть Цикл
Запрос.УстановитьПараметр("Сотрудник", Стр.Сотрудник);
Сумма = 0;
Премия=Стр.Показатель1;
Результат = Запрос.Выполнить().Выгрузить();
Сообщить("Сотрудник " + Стр.Сотрудник);
Для каждого Нач из Результат Цикл
Если Нач.ВидРасчета =ПланыВидовРасчета.ОсновныеНачисленияОрганизаций.ОкладПоДням Тогда
СумРез = Число(Нач.Результат)*Премия/100;
Сумма=Сумма+ СумРез;
Сообщить("Начисление: " + Нач.ВидРасчета.Наименование + " сумма вида расчета: "+Нач.Результат + " начислена премия " +СумРез + " премия " + Сумма);
КонецЕсли;
Если Нач.ВидРасчета =ПланыВидовРасчета.ОсновныеНачисленияОрганизаций.ОплатаСверхурочных Тогда
СумРез = Нач.Результат/2*Премия/100;
Сумма=Сумма+ СумРез;
Сообщить("Начисление: " + Нач.ВидРасчета.Наименование + " сумма вида расчета: "+Нач.Результат + " начислена премия " +СумРез + " премия " + Сумма);
КонецЕсли;
КонецЦикла;
Стр.Результат= Сумма;
сообщить(сумма);
КонецЦикла;
КонецПроцедуры
здесь доходит до Результат = Запрос.Выполнить().Выгрузить(); и не возвращает результат, через отладчик все работает, в чем может быть причина?"
Оплата выходных и праздничных дней, Оплата сверхурочных часовпроблема с запуском сервера 1с предприятия
Читают тему
(гостей: 1)