v8: Работа с регистром

Встала такая задача при каждом изменении реквизита Статус и сохранении документа нужно создавать новый Регистр сведений. Вот я сделал процедуру

 Процедура СтатусПриИзменении(Элемент)

    Движение = РегистрыСведений.СтатусЗаявокЕдиноеОкно.СоздатьНаборЗаписей();

    Движение.Отбор.Регистратор.Установить(Ссылка);

    Движение.Прочитать();

    НоваяЗапись = Движение.Добавить();

    НоваяЗапись.Период = ТекущаяДата();

    НоваяЗапись.ДатаЗаявки = Дата;

    НоваяЗапись.ДатаСтатуса = ТекущаяДата();

    НоваяЗапись.ЛицевойСчет = ЛицевойСчет;

    НоваяЗапись.ТипЗаявки = ТипЗаявки;

    НоваяЗапись.Причина = Причина;

    НоваяЗапись.Статус = Статус;

    НоваяЗапись.Заявка = Ссылка;

    Движение.Записать();

КонецПроцедуры   

Но почему то он переписывает существующую запись, как исправить?

Какие измерения в регистре?

Ну и еще должно быть Движение.Записать(Ложь), чтобы не замещались предыдущие записи

что то я не понял. Сделал Движение.Записать(Ложь); и добавил в Процедура ПриЗаписи(Отказ) выдает ошибку что запись с такими полями уже существует и не сохраняет

Изменения Реквизита Статус. По задумки статус может постоянной менять, при изменении статуса создается новый регистр с новой датой

Вам нужно еще одно измерение, скорее всего ДатаСтатуса

Не новый регистр, а новая запись регистра

В регистре не может быть две записи с одинаковыми измерениями

я создал новое измерение ДатаСтатуса

Вот я добавил в процедуру

 Процедура ПриЗаписи(Отказ)

	Движение = РегистрыСведений.СтатусЗаявокЕдиноеОкно.СоздатьНаборЗаписей();

	Движение.Отбор.Регистратор.Установить(Ссылка);

	Движение.Прочитать();

	НоваяЗапись = Движение.Добавить();

	НоваяЗапись.Период = ТекущаяДата();

	НоваяЗапись.ДатаЗаявки = Дата;

	НоваяЗапись.ДатаСтатуса = ТекущаяДата();

	НоваяЗапись.ЛицевойСчет = ЛицевойСчет;

	НоваяЗапись.ТипЗаявки = ТипЗаявки;

	НоваяЗапись.Причина = Причина;

	НоваяЗапись.Статус = Статус;

	НоваяЗапись.Заявка = Ссылка;

	Движение.Записать();

КонецПроцедуры   

Когда я меняю статус, создает регистр Номер строки 2, где меняется Дата статуса, а сам статус принимает одинаковое значение в Номере строки 1 и 2, по задумки Статус должен быть разный.

Выдает ошибку{Документ.ЗаявкаЕдиноеОкно.Форма.ФормаДокумента.Форма(23)}: Ошибка при вызове метода контекста (Записать)

Движение.Записать(Ложь);

по причине:

Запись с такими ключевыми полями существует! : СтатусЗаявокЕдиноеОкно: 12.10.2015 0:00:00, Заявка единое окно 000000003 от 12.10.2015 0:00:00, 12.10.2015 0:00:00, Заявка единое окно 000000003 от 12.10.2015 0:00:00, 102 100 012, Ремонт плиты, фыфафа, 12.10.2015 0:00:00 (Регистр сведений: Статус заявок единое окно; Номер строки: 3)

Вы отладчиком посмотрите, в какой момент статус меняется

А период разный почему у записей? Может его нужно как дата документа устанавливать, а не тек дата?

Период исправил на дату документа, почему больше двух не создается?

Больше двух чего? и в какой момент?

На счет почему меняется Статус во всех записях регистра мне не понятно, может что то не так я в коде сделал

 Процедура ОбработкаПроведения(Отказ, Режим)

	Движение = Движения.СтатусЗаявокЕдиноеОкно.Добавить();

	Движение.Период = НачалоДня(Дата);

	Движение.ДатаСтатуса = НачалоДня(Дата); 

	Движение.ДатаЗаявки = НачалоДня(Дата);

	Движение.ЛицевойСчет = ЛицевойСчет;

	Движение.ТипЗаявки = ТипЗаявки;

	Движение.Причина = Причина;

	Движение.Статус = Статус;

	Движение.Заявка = Ссылка;	

КонецПроцедуры

   

и второй код когда я записываю в регистр сведений

 Процедура ПриЗаписи(Отказ)

	Движение = РегистрыСведений.СтатусЗаявокЕдиноеОкно.СоздатьНаборЗаписей();

	Движение.Отбор.Регистратор.Установить(Ссылка);

	Движение.Прочитать();

	НоваяЗапись = Движение.Добавить();

	НоваяЗапись.Период = Дата;

	НоваяЗапись.ДатаЗаявки = Дата;

	НоваяЗапись.ДатаСтатуса = ТекущаяДата();

	НоваяЗапись.ЛицевойСчет = ЛицевойСчет;

	НоваяЗапись.ТипЗаявки = ТипЗаявки;

	НоваяЗапись.Причина = Причина;

	НоваяЗапись.Статус = Статус;

	НоваяЗапись.Заявка = Ссылка;

	Движение.Записать(Истина);

КонецПроцедуры   

Больше двух записей в регистре сведений не создается, а задумка должна создаваться запись в регистре сведений при изменении статуса, тем самым записей может быть около 5

Статус добавлен в регистр сведений в Ресурсы, может я тут что то не правильно сделал?

Да с ресурсом это нормально...

Уберите из обработки проведения код для этого регистра

Убрал код из обработки проведения, но новую запись по прежнему не создает, теперь переписывает существующую запись.

Я исправил на Движение.Записать(Ложь);, и все равно переписывает.

Убрав код обработки проведения при создании нового документа не записывает в регистр

Скрин сделайте развернутого регистра

Так вроде все норм

Только лишние данные: заявка - это регистратор, ДатаЗаявки - это период, можно убрать лишние измерения

Вы ПриЗаписи проследите отладчиком, что с набором записей происходит, чего гадать-то.

Начиная от Прочитать - что в него попало, потом добавили - каким стал набор, потом записался - еще раз шифтф9 нажмите, там же будет видно

Либо у вас еще где-то регистр пишется - может у регистра в модуле менеджера или подписки на события, вариантов еще тьма, на самом деле

Я так понимаю код у меня правильный для создания новой записи регистра при изменении Статуса?

Я так понимаю чтобы мой код работал нужно Записать(Ложь);

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

я решил по пробовать другим способом, я сделал регистр Независимым, создал форму в нем. Прописал код при изменении Статус

 Процедура СтатусПриИзменении(Элемент)

	НоваяЗапись = РегистрыСведений.СтатусЗаявокЕдиноеОкно.СоздатьМенеджерЗаписи();

    НоваяЗапись.Период = ТекущаяДата();

    НоваяЗапись.ДатаСтатуса = ТекущаяДата();

    НоваяЗапись.ЛицевойСчет = ЛицевойСчет;

    НоваяЗапись.ТипЗаявки = ТипЗаявки;

    НоваяЗапись.Причина = Причина;

    НоваяЗапись.Статус = Статус;

    НоваяЗапись.Записать();

КонецПроцедуры   

Когда изменяю статус создается новая запись в регистре, когда сохраняю регистр, то все созданные ранее записи переписывают значение Статуса на последнее, как запретить переписывать значение у ранее созданных записей?

Давай cf, так  хз

Тот, где еще набор записей был

Вот cf файл. Регистр сведений СтатусЗаявокЕдиноеОкно http://zalil.su/704219

В обработке проведения у вас там пипец просто...я ж вам говорю, уберите все из нее, что касается регистра

Вы там чего сделать пытаетесь? При записи в форме у вас уже пишется этот регистр, причем независимый...какие там могут быть еще движения?

Я же писал выше что переделал регистр сведений. В документе я наворотил спору нет. Подскажите как правильно сделать

Убирайте из обработки проведения все, в форме пусть пишется ПриЗаписи, там же все правильно сделано

Убрал все из обработки проведения, документ создает при помощи обработки. Теперь когда создаю документ в регистр запись не создается.

Не создает новые записи а переписывает существующую

Нужно вернуть подчинение регистратору для РС

В модуле формы все убрать - оставить только это (записи будут при каждом изменении статуса документа)

 



Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)

	Дата=НачалоДня(Дата);

	Если Модифицированность() Тогда

		Если НЕ ЭтоНовый() Тогда

			Редактор=ПараметрыСеанса.ТекущийПользователь;

		КонецЕсли;

	КонецЕсли;   

КонецПроцедуры





Процедура ПриЗаписи(Отказ)

	

	

КонецПроцедуры





Процедура СтатусПриИзменении(Элемент)

	

	Движение = РегистрыСведений.СтатусЗаявокЕдиноеОкно.СоздатьНаборЗаписей();

	Движение.Отбор.Регистратор.Установить(Ссылка);

	Движение.Прочитать();

	НоваяЗапись = Движение.Добавить();

	НоваяЗапись.Период = Дата;

	НоваяЗапись.ДатаСтатуса = ТекущаяДата();

	НоваяЗапись.ЛицевойСчет = ЛицевойСчет;

	НоваяЗапись.ТипЗаявки = ТипЗаявки;

	НоваяЗапись.Причина = Причина;

	НоваяЗапись.Статус = Статус;

	Движение.Записать();

	

КонецПроцедуры   

В модуле объекта все проверьте, чтобы этот регистр нигде не упоминался

Сделал как написали. При создании документа в РС запись не создалась, при изменении статуса создается запись в РС, когда сохраняю документ запись в РС удаляется.

Процедура ПриЗаписи в модуле объекта, пишется там регистр?

Процедура ОбработкаПроведения, пишется там регистр?

Вам зачем при записи документа в регистр писать? вы при изменении статуса все пишете

А при создании какой у него статус должен быть? в этом случае можно проверить, при изменении, если набор записей пустой, тогда добавить первую запись в набор с нужным вам статусом для нового документа

Ну или при открытии формы, если ЭтоНовый, вызовите процедуру при изменении

Процедура ПриЗаписи в модуле объекта, пишется там регистр?  НЕТ, ВСЕ УДАЛИЛ

Процедура ОбработкаПроведения, пишется там регистр?   ННЕТ, ВСЕ УДАЛИЛ

ПриЗаписи в форме?

Что то я запутался. Почему он не создает при каждом изменении статуса новую запись в РС

ПриЗаписи в форме ВСЕ УДАЛИЛ

13102015.zip  Вот cf файл

Свойство документа "Удаление движений" поставьте - "Не удалять"

Это где находится Свойство документа "Удаление движений"

Встаете на документе в дереве конфигурации и Alt+Enter

Я как сделать теперь чтобы при создании документа появлялась запись, а то процедура обработка проведения на данный РС нет кода

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

Можно поставить проверку при изменении статуса - если это новый -  тогда отказ - уведомить пользователя и попросить записать документ

Когда он записан, при изменении статуса ссылка уже есть, и проверить: если набор записей пустой, тогда писать запись со статусом из Ссылка.Статус, а потом уже тот код выполняется, который есть, т.е. просто добавляется запись в набор

Можете показать на примере как уведомить пользователя и попросить записать документ

Я сделал так

 Процедура ОбработкаПроведения(Отказ, Режим)

	

	Если ЭтоНовый() Тогда

		Движение = Движения.СтатусЗаявокЕдиноеОкно.Добавить();

		Движение.Период = Дата;

		Движение.ДатаСтатуса = ТекущаяДата(); 

		Движение.ЛицевойСчет = ЛицевойСчет;

		Движение.ТипЗаявки = ТипЗаявки;

		Движение.Причина = Причина;

		Движение.Статус = Статус;		

		Возврат;

	КонецЕсли;

КонецПроцедуры   

Но не работает, почему?

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

Из обработки проведения убирайте это все дело

 



Процедура СтатусПриИзменении(Элемент)

Если ЭтоНовый() Тогда

Предупреждение("Запишите документ!"), 10);

Возврат;

КонецЕсли;

.....................

Движение.Прочитать();

Если Движение.Количество() = 0 Тогда

	НоваяЗапись = Движение.Добавить();

	НоваяЗапись.Статус = Ссылка.Статус;

	.............

	Остальнгое, также как и для других записей

КонецЕсли;

...................

   

Вот эту строку после условия нужно поставить, это тот код, который и был у вас уже

Остальнгое, также как и для других записей

Это получается не корректно, так как Дата статуса будет одинакова, что у Открытого что у Выполненного статуса, а мне надо отследить дату открытого статуса и дату когда выполнился статус

Ну сделайте переменную в модуле, которая запомнит момент создания документа

Дак у меня переменная дата статуса, и что вы имеете ввиду.

Как мне эту переменную запись в регистр, мне что то не понятно чем отличается переменная от даты статуса?

Переменных может быть очень много... Вот что я имел ввиду:

Перем ДатаСозданияДокумента;

В форме событие, например, перед открытием:

ДатаСозданияДокумента = ТекущаяДата();

Потом, в том месте при изменении статуса в условии, где проверили на количество записей в РС, вам нужно у добавленной записи ДатаСтатуса = ДатаСозданияДокумента, а не ТекДата

Спасибо большое! Все получилось

При тестировании появились вопросы, подскажите как быть, сейчас при изменении Статуса в каждый раз добавляется РС, но это не правильно, в РС должен добавляться запись если изменили Статус и сохранили или записали документ. Вот мне не понятно как это сделать. Я сделал в процедуре ОбработкаПроведения

 Процедура ОбработкаПроведения(Отказ, Режим)

	Движение = РегистрыСведений.СтатусЗаявокЕдиноеОкно.СоздатьНаборЗаписей();

	Движение.Отбор.Регистратор.Установить(Ссылка);

	Движение.Прочитать();

	Если Движение.Количество() > 0 Тогда

		НоваяЗапись = Движение.Добавить();

		НоваяЗапись.Период = Дата;

		НоваяЗапись.ДатаСтатуса = ТекущаяДата();

		НоваяЗапись.ЛицевойСчет = ЛицевойСчет;

		НоваяЗапись.ТипЗаявки = ТипЗаявки;

		НоваяЗапись.Причина = Причина;

		НоваяЗапись.Статус = Ссылка.Статус;

	КонецЕсли;

	Движение.Записать();





КонецПроцедуры   

Но тут не проверяется изменился статус или нет, постоянно создает запись если сохранять документ а мне надо если статус изменился и сохранил документ то создалась запись в РС

Нужно сравнить Статус и Ссылка.Статус

А как это сделать, можете подсказать начала а дальше я сам

Начало уже давно у вас есть...тут вопрос в конце

Зачем вот это: Если Движение.Количество() > 0 Тогда ?

Вы теперь только в обработке проведения пишете? или также при изменении? Что происходит с регистром сейчас при проведении? Сохраняется история изменения статусов или нет?

А условие будет Если Статус <> Ссылка.Статус Тогда Делаете запись в регистр КонецЕсли

Сейчас история сохраняется при каждом сохранении документа и если документ новый то сохраняет с ДатаСозданияДок

Мне не понятно как сделать если я изменяю Статус и сохраняю документ то появляется новая запись в РС

А при изменении не появляется?

Я отключил при изменении статуса, так как при каждом изменении статуса создается новая запись в РС хотя документ еще не сохранен, вот такой код бы

 	Движение = РегистрыСведений.СтатусЗаявокЕдиноеОкно.СоздатьНаборЗаписей();

	Движение.Отбор.Регистратор.Установить(Ссылка);

	Движение.Прочитать();

	НоваяЗапись = Движение.Добавить();

	НоваяЗапись.Период = Дата;	

	НоваяЗапись.ЛицевойСчет = ЛицевойСчет;

	НоваяЗапись.ТипЗаявки = ТипЗаявки;

	НоваяЗапись.Причина = Причина;

	НоваяЗапись.Статус = Статус;

	НоваяЗапись.ДатаСтатуса = ТекущаяДата();

	Движение.Записать();   

Но мне нужно код статус изменили и сохранили документ, после этого появилась запись в РС, а не при каждом изменении статуса как сейчас

Тогда этот код нужно поместить при записи, и перед началом этого кода добавить условие Если Статус <> Ссылка.Статус Тогда

Вообще не создает новую запись в РС при изменении статуса

 Процедура ПриЗаписи(Отказ)

	

Если Статус <> Ссылка.Статус Тогда

	Движение = РегистрыСведений.СтатусЗаявокЕдиноеОкно.СоздатьНаборЗаписей();

	Движение.Отбор.Регистратор.Установить(Ссылка);

	Движение.Прочитать();

	НоваяЗапись = Движение.Добавить();

	НоваяЗапись.Период = Дата;	

	НоваяЗапись.ЛицевойСчет = ЛицевойСчет;

	НоваяЗапись.ТипЗаявки = ТипЗаявки;

	НоваяЗапись.Причина = Причина;

	НоваяЗапись.Статус = Статус;

	НоваяЗапись.ДатаСтатуса = ТекущаяДата();

	Движение.Записать();

КонецЕсли;

	КонецПроцедуры   

В отладчике посмотрел это условие Статус <> Ссылка.Статус не срабатывает 

А вы меняете статус?

да, конечно меняю

Статус и Ссылка.Статус принимает одинаковое значение

Ссори...перед записью, в при записи они уже совпадают, т.к. запись уже состоялась

Спасибо большое! Работает

Пытаюсь сохранить значения табличного поля в РС, т.е если в ТП 2 строки с данными то в РС будет 2 записи, но у меня почему то записывает только первую строку, хотя стоит цикл, что не так

 	Для Каждого Строка Из ТабОтветственных Цикл		

		Движение = РегистрыСведений.СтатусОтветственных.СоздатьНаборЗаписей();

		Движение.Отбор.Регистратор.Установить(Ссылка);

		Движение.Прочитать();

		Если Движение.Количество() = 0 Тогда

			НоваяЗапись = Движение.Добавить();

			НоваяЗапись.Период = Дата;

			НоваяЗапись.ДатаСтатуса = ДатаСозданияДок;

			НоваяЗапись.ЛицевойСчет = ЛицевойСчет;

			НоваяЗапись.ФИО = Строка.ФИО; 

			НоваяЗапись.Статус = Строка.Статус;

			НоваяЗапись.Должность = Строка.Должность;			

		КонецЕсли;

		Движение.Записать();

	КонецЦикла;	

   

Первую только и будет, у вас условие на кол-во записей, добавляется запись только тогда, когда набор пустой.

Условие уберите или измените

Спасибо, все получилось!

Пишу условие такое, при изменении статуса в ТЧ на Отменено или Выполнено после чего статус документа принимает значение Выполнено. Сейчас я меняю статус в любой строке ТЧ сразу же меняется статус документа, но это не правильно

Вот код

 Процедура ТабОтветственныхСтатусПриИзменении(Элемент)

	

	Для Каждого Строка Из ТабОтветственных Цикл

		Если Строка.Статус=Перечисления.СтатусЕдиноеОкно.Выполнена ИЛИ Строка.Статус=Перечисления.СтатусЕдиноеОкно.Отменена Тогда

			Статус = Перечисления.СтатусЕдиноеОкно.Выполнена;

		Иначе

		КонецЕсли;

	КонецЦикла;

	

КонецПроцедуры   

Не понимаю, что вам нужно...

Если неправильно, значит по-другому делайте

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

Потому что обработчик ТабОтветственныхСтатусПриИзменении на строке висит, вот и меняется

У вас цикл проверяет, если хотя бы для одной строки условие выполняется, тогда изменить статус документа

Если так нужно, тогда после изменения статуса в строке, нужно проверить, скорее всего на равенство его статусам в остальных строках и тогда уже менять статус документа

Можете на примере показать

Предлагаю статус документа и историю статусов хранить отдельно. Статус для списков, а историю, если понадобится для отчетов по срокам исполнения... У документа в конкретный момент времени может быть только один статус. Когда документов станет очень много, система офигеет перебирать по всей истории последнее значение.Вероятно, статус документа может поменять некий другой документ (например, регистрирующий факт исполнения заявки). В связи с этим регистратор не равно заявка.Измерения не ссылочного типа - зло, крадущее поля для индекса виртуальной таблицы. По этому дата смены статуса - период. И больше ни каких дат не надо.

Спасибо большое, все получилось

НЕ могу понять что случилось, почему не работает условие. Не записывает в РС когда добавляем новую строку в ТЧ  ТабОтветственных

 	СтрокаТЧ = ЭлементыФормы.ТабОтветственных.ТекущиеДанные;

	Если Статус <> Ссылка.Статус или СтрокаТЧ.Статус <> Ссылка.Статус Тогда

		Движение = РегистрыСведений.СтатусЗаявокЕдиноеОкно.СоздатьНаборЗаписей();

		Движение.Отбор.Регистратор.Установить(Ссылка);

		Движение.Прочитать();

		ДвижениеО = РегистрыСведений.СтатусОтветственных.СоздатьНаборЗаписей();

		ДвижениеО.Отбор.Регистратор.Установить(Ссылка);

		ДвижениеО.Прочитать();	

		НоваяЗапись = Движение.Добавить();

		НоваяЗапись.Период = Дата;	

		НоваяЗапись.ЛицевойСчет = ЛицевойСчет;

		НоваяЗапись.ТипЗаявки = ТипЗаявки;

		НоваяЗапись.Причина = Причина;

		НоваяЗапись.Статус = Статус;

		НоваяЗапись.ДатаСтатуса = ТекущаяДата();

		Движение.Записать();

		Для Каждого Строка Из ТабОтветственных Цикл

			НоваяЗаписьО = ДвижениеО.Добавить();

			НоваяЗаписьО.Период = Дата;

			НоваяЗаписьО.ДатаСтатуса = ТекущаяДата();

			НоваяЗаписьО.ЛицевойСчет = ЛицевойСчет;

			НоваяЗаписьО.ФИО = Строка.ФИО; 

			НоваяЗаписьО.Статус = Строка.Статус;

			НоваяЗаписьО.Должность = Строка.Должность;			

			ДвижениеО.Записать();

		КонецЦикла;

	КонецЕсли;