Вылетает ошибка "Значение поле Дата не может быть пустой датой"
Всем привет, сложность в том что у меня нет Реквизита Дата . И данная ошибка вылезает когда записываю документ
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
// Вставить содержимое обработчика.
Объект.РасчетПоДату=ТекущаяДата();
ТекущаяДата=ТекущаяДата();
Г=Год(ТекущаяДата);
Месяц="01";
День="10";
ЯнварскаяДата="10.01.2024";
Объект.РасчетСДаты=Дата(Г,Месяц,День);
КонецПроцедуры
&НаКлиенте
Процедура Расчитать(Команда)
Дата1=Объект.РасчетСДаты;
Дата2=Объект.РасчетПоДату;
РасчитатьНаСервере(Дата1,Дата2);
КонецПроцедуры
&НаСервере
Процедура РасчитатьНаСервере(Дата1,Дата2)
// Вставить содержимое обработчика.
Запрос=Новый Запрос;
Запрос.Текст="ВЫБРАТЬ
| Сделки.Наименование КАК Наименование,
| Сделки.Контрагент КАК Контрагент,
| Сделки.Дата1 КАК Дата1,
| Сделки.Дата2 КАК Дата2,
| Сделки.Дата3 КАК Дата3,
| Сделки.ИНН КАК ИНН,
| Сделки.Сумма1 КАК Сумма1,
| Сделки.Сумма2 КАК Сумма2,
| Сделки.СуммаНДС КАК СуммаНДС,
| Сделки.ОКВЭД КАК ОКВЭД
|ИЗ
| Справочник.Сделки КАК Сделки
|ГДЕ
| Сделки.Дата2 < &Дата2
| И Сделки.Дата2 > &Дата1";
Запрос.УстановитьПараметр("Дата2",Дата2);
Запрос.УстановитьПараметр("Дата1",Дата1);
Выборка=Запрос.Выполнить().Выбрать();
Док=Документы.ОтчетПоПредприятиям.СоздатьДокумент();
Пока Выборка.Следующий() Цикл
Контрагент=Выборка.Наименование;
Контрагент=СокрЛП(Контрагент);
Если ПустаяСтрока(Контрагент) Тогда
Продолжить;
КонецЕсли;
ИНН=Выборка.ИНН;
Сумма1=Выборка.Сумма1;
Сумма2=Выборка.Сумма2;
СуммаНДС=Выборка.СуммаНДС;
ОКВЭД=Выборка.ОКВЭД;
НоваяСтрока=Док.ТабличнаяЧасть.Добавить();
НоваяСтрока.Контрагент=Контрагент;
НоваяСтрока.ИНН=ИНН;
НоваяСтрока.Счет_901=Сумма1;
НоваяСтрока.Счет_902=Сумма2;
НоваяСтрока.Счет_903=СуммаНДС;
НоваяСтрока.Счет_901_903=Число(Сумма1)-Число(СуммаНДС);
КонецЦикла;
Док.Записать(); // ЗДЕСЬ ОШИБКА ВЫЛИТАЕТ
КонецПроцедуры
ПоказатьПрикрепленные файлы:
По теме из базы знаний
Найденные решения
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот