Ошибка значения

[antoneus]

На какую строку ругается?

Если в запрос передаете текущую дату, то запрос вообще такой проканает:

Код Выделить Развернуть

Запрос.Текст =
        "ВЫБРАТЬ
        |    СпецификацияСрезПоследних.Период КАК Дата
        |ИЗ
        |    РегистрСведений.Спецификация.СрезПоследних(, СистемныйБлок = &СистемныйБлок) КАК СпецификацияСрезПоследних";

[sali]

antoneus, на строку

Код Выделить Развернуть

СледующаяДата = ДатаИзмененияСостава + (7*24*3600); //плюс неделя
вот полностью

Код Выделить Развернуть

&НаКлиенте
Процедура Изменить(Команда, Дата, СистемныйБлок)  Экспорт

ДатаИзмененияСостава = ПолучитьПоследнююДатуЗаписи(Дата, СистемныйБлок); // переменная для помещения последней записи в регистр
СледующаяДата = ДатаИзмененияСостава + (7*24*3600); //плюс неделя
Разница = СледующаяДата - ТекущаяДата();
Если Разница > 0 Тогда 
Разница = РазбитьСекунды(Разница);   
// Элементы.ГруппаШапки.Доступность =  Ложь;
// Элементы.ГруппаДанных.Доступность = Ложь;
// Элементы.Детали.Доступность =       Ложь;
ПоказатьПредупреждение(,"До изменения осталось " + Разница, 60, "Изменения запрещены!");
Иначе
ОткрытьФорму("РегистрСведений.Спецификация.ФормаЗаписи");
КонецЕсли;
КонецПроцедуры   

&НаСервере
Функция ПолучитьПоследнююДатуЗаписи(Дата, СистемныйБлок) 

Запрос = Новый Запрос;
Запрос.Текст = 
"ВЫБРАТЬ ПЕРВЫЕ 1
| СпецификацияСрезПоследних.ДатаСпецификации КАК Дата
|ИЗ
| РегистрСведений.Спецификация.СрезПоследних(&Дата, СистемныйБлок = &СистемныйБлок) КАК СпецификацияСрезПоследних
|ГДЕ
| СпецификацияСрезПоследних.СистемныйБлок = &СистемныйБлок
|
|УПОРЯДОЧИТЬ ПО
| Дата УБЫВ";
Запрос.УстановитьПараметр("Дата", ТекущаяДата());
Запрос.УстановитьПараметр("СистемныйБлок", СистемныйБлок);

РезультатЗапроса = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Дата = ВыборкаДетальныеЗаписи.Дата;
КонецЦикла;

Возврат Дата;

КонецФункции



[antoneus]

В консоли запрос показывает что-нибудь?

[sali]

antoneus, да. это странно .
запрос пишет неопределенно и ошибка чтения значения , консоль выдает результат

[antoneus]

Значит, хрень какую-нибудь передаете в СистемномБлоке, он его не может найти.

[sali]

antoneus, например??
Документ
РС

[antoneus]

Ну как выглядит код вызова процедуры Изменить и что туда передается?

[sali]

&НаКлиенте Процедура Изменить(Команда, Дата, СистемныйБлок)  Экспорт ДатаИзмененияСостава = ПолучитьПоследнююДатуЗаписи(Дата, СистемныйБлок); // переменная для помещения последней записи в регистр СледующаяДата = ДатаИзмененияСостава + (7*24*3600); //плюс неделя Разница = СледующаяДата - ТекущаяДата(); Если Разница > 0 Тогда  Разница = РазбитьСекунды(Разница);    // Элементы.ГруппаШапки.Доступность =  Ложь; // Элементы.ГруппаДанных.Доступность = Ложь; // Элементы.Детали.Доступность =       Ложь; ПоказатьПредупреждение(,"До изменения осталось " + Разница, 60, "Изменения запрещены!"); Иначе ОткрытьФорму("РегистрСведений.Спецификация.ФормаЗаписи"); КонецЕсли; КонецПроцедуры    &НаСервере Функция ПолучитьПоследнююДатуЗаписи(Дата, СистемныйБлок)  Запрос = Новый Запрос; Запрос.Текст =  "ВЫБРАТЬ ПЕРВЫЕ 1 | СпецификацияСрезПоследних.ДатаСпецификации КАК Дата |ИЗ | РегистрСведений.Спецификация.СрезПоследних(&Дата, СистемныйБлок = &СистемныйБлок) КАК СпецификацияСрезПоследних |ГДЕ | СпецификацияСрезПоследних.СистемныйБлок = &СистемныйБлок | |УПОРЯДОЧИТЬ ПО | Дата УБЫВ"; Запрос.УстановитьПараметр("Дата", ТекущаяДата()); Запрос.УстановитьПараметр("СистемныйБлок", СистемныйБлок); РезультатЗапроса = Запрос.Выполнить(); ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать(); Пока ВыборкаДетальныеЗаписи.Следующий() Цикл Дата = ВыборкаДетальныеЗаписи.Дата; КонецЦикла; Возврат Дата; КонецФункции

[sali]

antoneus,

Код Выделить Развернуть

&НаКлиенте
Процедура Изменить(Команда, Дата, СистемныйБлок)  Экспорт

ДатаИзмененияСостава = ПолучитьПоследнююДатуЗаписи(Дата, СистемныйБлок); // переменная для помещения последней записи в регистр
СледующаяДата = ДатаИзмененияСостава + (7*24*3600); //плюс неделя
Разница = СледующаяДата - ТекущаяДата();
Если Разница > 0 Тогда 
Разница = РазбитьСекунды(Разница);   
// Элементы.ГруппаШапки.Доступность =  Ложь;
// Элементы.ГруппаДанных.Доступность = Ложь;
// Элементы.Детали.Доступность =       Ложь;
ПоказатьПредупреждение(,"До изменения осталось " + Разница, 60, "Изменения запрещены!");
Иначе
ОткрытьФорму("РегистрСведений.Спецификация.ФормаЗаписи");
КонецЕсли;
КонецПроцедуры   


[antoneus]

Да не код процедуры, ее я видел, а код ее вызова. Откуда она вызывается и что туда передается.