1. ulvi96 24.04.19 14:45 Сейчас в теме

Регистр сведений запись

Здравствуйте. Я плохо знаю русский. Извините за этого. Я еще новичок в 1С программирование. Конфигурация - Бухгалтерия 2.1.3.6.
Результат запросе равно не определено. В регистра не записывается данные.
Полный код -
Движения.ДатыДокументов.Очистить();
	Движение = Движения.ДатыДокументов.Добавить();
	Движение.Период = ТекущаяДата();
	Движение.НачалоПериодаДатаОплаты   = ЭлементыФормы.ПолеВвода1.Значение;//НачалоПериодаДатаОплаты;
	Движение.КонецПериодаДатаОплаты    = ЭлементыФормы.ПолеВвода2.Значение;//КонецПериодаДатаОплаты;
	Движение.НачалоПериодаДатаОтгрузки = ЭлементыФормы.ПолеВвода3.Значение;//НачалоПериодаДатаОтгрузки;
	Движение.КонецПериодаДатаОтгрузки  = ЭлементыФормы.ПолеВвода4.Значение;//КонецПериодаДатаОтгрузки;
	ЭтаФорма.Закрыть(); 

ЭлементыФормы.ПолеВвода1.Значение - с типом дата и не пустая. Как могу решить задачу?
Спасибо всем за ранее.
Ответы
Избранное Подписка Сортировка: Древо
2. NatalkaBal 25 24.04.19 15:02 Сейчас в теме
Движения.ДатыДокументов.Записывать = Истина;
Движение = Движения.ДатыДокументов.Добавить();
Движение.Период = ТекущаяДата();
Движение.НачалоПериодаДатаОплаты   = ЭлементыФормы.ПолеВвода1.Значение;//НачалоПериодаДатаОплаты;
Движение.КонецПериодаДатаОплаты    = ЭлементыФормы.ПолеВвода2.Значение;//КонецПериодаДатаОплаты;
Движение.НачалоПериодаДатаОтгрузки = ЭлементыФормы.ПолеВвода3.Значение;//НачалоПериодаДатаОтгрузки;
Движение.КонецПериодаДатаОтгрузки  = ЭлементыФормы.ПолеВвода4.Значение;//КонецПериодаДатаОтгрузки;
Показать
3. ulvi96 24.04.19 15:07 Сейчас в теме
(2)
ОткрытьФормуМодально("Документ.ЗаказПокупателя.Форма.ФормаДокумента1");

	Отбор.ДатаОплаты.Использование = Истина;                            
	Отбор.ДатаОплаты.ВидСравнения  = ВидСравнения.ИнтервалВключаяГраницы;
	
	Отбор.ДатаОтгрузки.Использование = Истина;
	Отбор.ДатаОтгрузки.ВидСравнения  = ВидСравнения.ИнтервалВключаяГраницы;

	Запрос = Новый Запрос;
	Запрос.Текст = 
	"ВЫБРАТЬ
	|	ДатыДокументовСрезПоследних.НачалоПериодаДатаОплаты КАК НачалоПериодаДатаОплаты,
	|	ДатыДокументовСрезПоследних.КонецПериодаДатаОплаты КАК КонецПериодаДатаОплаты,
	|	ДатыДокументовСрезПоследних.НачалоПериодаДатаОтгрузки КАК НачалоПериодаДатаОтгрузки,
	|	ДатыДокументовСрезПоследних.КонецПериодаДатаОтгрузки КАК КонецПериодаДатаОтгрузки
	|ИЗ
	|	РегистрСведений.ДатыДокументов.СрезПоследних КАК ДатыДокументовСрезПоследних";
	РезультатЗапроса = Запрос.Выполнить();
	Если НЕ РезультатЗапроса = Неопределено Тогда
		ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
		ВыборкаДетальныеЗаписи.Следующий();                                            
		
		Отбор.ДатаОплаты.ЗначениеС  = НачалоДня(ВыборкаДетальныеЗаписи.НачалоПериодаДатаОплаты); //Здесь выдают ошибку. Запросе результат равно NULL
		Отбор.ДатаОплаты.ЗначениеПо = КонецДня(ВыборкаДетальныеЗаписи.КонецПериодаДатаОплаты);
		
		Отбор.ДатаОтгрузки.ЗначениеС  = НачалоДня(ВыборкаДетальныеЗаписи.НачалоПериодаДатаОтгрузки);
		Отбор.ДатаОтгрузки.ЗначениеПо = НачалоДня(ВыборкаДетальныеЗаписи.КонецПериодаДатаОтгрузки);
		
		ЭлементыФормы.Список.СтандартныйПериод.РедактироватьКакПериод = Истина;
		ЭлементыФормы.Список.СтандартныйПериод.ДатаНачала    = НачалоДня(ВыборкаДетальныеЗаписи.НачалоПериодаДатаОплаты);
		ЭлементыФормы.Список.СтандартныйПериод.ДатаОкончания = КонецДня(ВыборкаДетальныеЗаписи.КонецПериодаДатаОплаты);
		ЭлементыФормы.Список.СтандартныйПериод.ДатаНачала    = НачалоДня(ВыборкаДетальныеЗаписи.НачалоПериодаДатаОтгрузки);
		ЭлементыФормы.Список.СтандартныйПериод.ДатаОкончания = КонецДня(ВыборкаДетальныеЗаписи.КонецПериодаДатаОтгрузки);
		ЭлементыФормы.Список.Значение.Обновить();
	КонецЕсли;
Показать
4. ulvi96 24.04.19 15:09 Сейчас в теме
(2)Спасибо за вниманию.
Где может быть ошибка?
5. ulvi96 24.04.19 15:16 Сейчас в теме
(2)Надо изменить регистр или код? Что можете рекомендовать?
6. NatalkaBal 25 24.04.19 15:24 Сейчас в теме
а это поле у регистра заполнено? и точно ли Дата?
7. ulvi96 24.04.19 15:28 Сейчас в теме
(6) В регистра не заполняется.
Движения.ДатыДокументов.Записывать = Истина;

Так тоже пробовал но не записывают. Да с типом дата
8. NatalkaBal 25 24.04.19 15:33 Сейчас в теме
Движения.Записать();
в конце добавьте
Оставьте свое сообщение
Новые вопросы с вознаграждением
Автор темы объявил вознаграждение за найденный ответ, его получит тот, кто первый поможет автору.

Вакансии

Программист 1С
Санкт-Петербург
зарплата до 120 000 руб.
Полный день

Работа от Инфостарт
Санкт-Петербург
Временный (на проект)

Руководитель отдела внедрения 1С
Новосибирск
зарплата от 60 000 руб. до 160 000 руб.
Полный день

Программист 1С
Санкт-Петербург
зарплата от 115 000 руб. до 160 000 руб.
Полный день

Программист 1С
Санкт-Петербург
зарплата от 120 000 руб. до 150 000 руб.
Полный день