Создала подписку на событие "ПриЗаписи" для документов РеализацияТоваровИУслуг и ВозвратТоваровОтПокупателя, но запись в регистре не перезаписывается, что не так сделала?

Процедура ОбработкаПроведенияДокументовРеализацииОбработкаПроведения(Источник, Отказ, РежимПроведения) Экспорт
   
   ТЗ = Новый ТаблицаЗначений;
       
   Ссылка = Источник.Ссылка;
   НаборЗаписей = РегистрыНакопления.ПродажиСебестоимость.СоздатьНаборЗаписей();
   НаборЗаписей.Отбор.Регистратор.Установить(Ссылка,Истина);
   НаборЗаписей.Прочитать();
   НЗП = РегистрыНакопления.Продажи.СоздатьНаборЗаписей();
   НЗП.Отбор.Регистратор.Установить(Ссылка,Истина);
   НЗП.Прочитать();
   Количество = НаборЗаписей.Количество();
   ТЗ = НаборЗаписей.Выгрузить();    
   ТЗ.Свернуть("Номенклатура, ХарактеристикаНоменклатуры, ЗаказПокупателя, Подразделение, Проект", "Стоимость, Количество");
   
   Для Каждого Стр Из НЗП Цикл
       
       Отбор = Новый Структура();
       Отбор.Вставить("Номенклатура",Стр.Номенклатура);
       Отбор.Вставить("ХарактеристикаНоменклатуры",Стр.ХарактеристикаНоменклатуры);
       Отбор.Вставить("ЗаказПокупателя",Стр.ЗаказПокупателя);
       Отбор.Вставить("Подразделение",Стр.Подразделение);
       Отбор.Вставить("Проект",Стр.Проект);
       Строки = ТЗ.НайтиСтроки(Отбор);
       Стоимость = 0;
       Количество = 0;
       Для Каждого Строка Из Строки Цикл
           Стоимость = Стоимость+Строка.Стоимость;
           Количество = Количество + Строка.Количество;
       КонецЦикла;
       Если Стр.Количество = Количество Тогда
           Стр.Себестоимость = Стоимость;
       КонецЕсли;
       
   КонецЦикла;
   
   НЗП.Записать();
   
   Для Каждого Строка Из НЗП Цикл
       
       НоваяЗапись = Источник.Движения.Продажи.Добавить();
       ЗаполнитьЗначенияСвойств(НоваяЗапись,Строка,,"ВидДвижения");
       
   КонецЦикла;    
   
   Источник.Движения.Продажи.Записать();
   
КонецПроцедуры

с таким ником фото обязательно.

(1)Завтра загружу, регистрировалась на работе, фотографии нету

ну вот завтра и помогут :)

(0) только смысл передавать в источник.движение. если ты можешь набор перезаписать сразу

(3) Честное слово выложу, вы прям как маленькие дети, помогите человеку

(4)Перезаписывала сразу, тот же результат

(5) все вы так говорите, а в итоге только слова :)

[событие "ПриЗаписи"] - потом обработка проведения переписывает движения

(6) а телефон у тебя случаем не от Фиксина? иначе не поверю что на нем нет камеры, да и чтоб у бабы не было фоток на компе, особенно на рабочем, НЕ ВЕРЮ

(8)Предлагаете поменять событие ПослеЗаписи?

(0) Вместо ПриЗаписи -> ОбработкаПроведения

(0) + Источник.Движения - здесь есть все наборы записей документа...

А у меня вот тут ошибка... не работаит

РезультатВычисления = Ложь;
   
   МассивДоговоровКонтрагентов = Новый Массив;
   МассивДоговоровПоНедвижимости = Новый Массив;
   
   Если ТИПЗНЧ(СписокДоговоровПоНедвижимости) = Тип("СписокЗначений")
       ИЛИ ТИПЗНЧ(СписокДоговоровПоНедвижимости) = Тип("Массив") Тогда
       
       Для ш = 0 По СписокДоговоровПоНедвижимости.Количество() - 1 Цикл
           ДоговорИсточник = СписокДоговоровПоНедвижимости[ш];
           
           Если ТИПЗНЧ(ДоговорИсточник) = ТИП("ДокументСсылка.УПН_ДоговорПоНедвижимости") Тогда
               МассивДоговоровПоНедвижимости.Добавить(ДоговорИсточник);
           ИначеЕсли ТИПЗНЧ(ДоговорИсточник) = ТИП("СправочникСсылка.ДоговорыКонтрагентов") Тогда
               МассивДоговоровКонтрагентов.Добавить(ДоговорИсточник);
           КонецЕсли;
           
       КонецЦикла;
       
   Иначе
       
       Если ТИПЗНЧ(СписокДоговоровПоНедвижимости) = ТИП("ДокументСсылка.УПН_ДоговорПоНедвижимости") Тогда
           МассивДоговоровПоНедвижимости.Добавить(СписокДоговоровПоНедвижимости);
           МассивДоговоровКонтрагентов.Добавить(СписокДоговоровПоНедвижимости.ДоговорКонтрагента);
       ИначеЕсли ТИПЗНЧ(СписокДоговоровПоНедвижимости) = ТИП("СправочникСсылка.ДоговорыКонтрагентов") Тогда
           МассивДоговоровПоНедвижимости.Добавить(СписокДоговоровПоНедвижимости.ДоговорПоНедвижимости);
           МассивДоговоровКонтрагентов.Добавить(СписокДоговоровПоНедвижимости);
       КонецЕсли;    
       
   КонецЕсли;
           
   Запрос = Новый Запрос;
   Запрос.УстановитьПараметр("ИсточникВызоваСсылка",ИсточникВызоваСсылка);
   Запрос.УстановитьПараметр("СписокДоговоров",СписокДоговоровПоНедвижимости);
   Запрос.УстановитьПараметр("МассивДоговоровПоНедвижимости",МассивДоговоровПоНедвижимости);
   Запрос.УстановитьПараметр("МассивДоговоровКонтрагентов",МассивДоговоровКонтрагентов);
   
   Запрос.Текст =
   "ВЫБРАТЬ
   |    УПН_РасторжениеСделкиПоНедвижимости.ДоговорПоНедвижимости КАК ДоговорПоНедвижимости,
   |    УПН_РасторжениеСделкиПоНедвижимости.Ссылка КАК РасторжениеСделки,
   |    УПН_РасторжениеСделкиПоНедвижимости.ДоговорПоНедвижимости.ДоговорКонтрагента КАК ДоговорКонтрагента
   |ИЗ
   |    Документ.УПН_РасторжениеСделкиПоНедвижимости КАК УПН_РасторжениеСделкиПоНедвижимости
   |ГДЕ
   |    УПН_РасторжениеСделкиПоНедвижимости.Проведен
   |    И НЕ УПН_РасторжениеСделкиПоНедвижимости.ПометкаУдаления
   |    И УПН_РасторжениеСделкиПоНедвижимости.ДоговорПоНедвижимости В(&МассивДоговоровПоНедвижимости)
   |    И УПН_РасторжениеСделкиПоНедвижимости.ДоговорПоНедвижимости.ДоговорКонтрагента В(&МассивДоговоровКонтрагентов)
   |    И УПН_РасторжениеСделкиПоНедвижимости.Ссылка <> &ИсточникВызоваСсылка
   |    И УПН_РасторжениеСделкиПоНедвижимости.СтатусДокумента = ЗНАЧЕНИЕ(Перечисление.УПН_СтатусыДокументовПоСделке.Подписано)";
                 
   РезультатЗапроса = Запрос.Выполнить();
   
   Если НЕ РезультатЗапроса.Пустой() Тогда
       РезультатВычисления = Истина;
       Если СообщатьОбОтказе Тогда
           ЗапросВыборка = РезультатЗапроса.Выбрать();
           Пока ЗапросВыборка.Следующий() Цикл
               ТекстСообщенияПользователю =СокрЛП(ИсточникВызоваСсылка)+ ": найдено расторжение договора <"+СокрЛП(ЗапросВыборка.ДоговорКонтрагента)+"("+СокрЛП(ЗапросВыборка.ДоговорПоНедвижимости)+")>, операция запрещена.";
               ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщенияПользователю,ИсточникВызоваСсылка,,,РезультатВычисления);
           КонецЦикла;
       КонецЕсли;
   КонецЕсли;
   
   Возврат РезультатВычисления;

Поменяла событие на ОбработкаПроведения и код сделала читабельным.

Процедура ОбработкаПроведенияДокументовРеализацииОбработкаПроведения(Источник, Отказ, РежимПроведения) Экспорт
   
   мДок = Источник.Метаданные();
   Если Не мДок.Движения.Содержит(Метаданные.РегистрыНакопления.Продажи) Тогда
       Возврат;
   КонецЕсли;
   Если Не мДок.Движения.Содержит(Метаданные.РегистрыНакопления.ПродажиСебестоимость) Тогда
       Возврат;
   КонецЕсли;
   
   ТЗ = Новый ТаблицаЗначений;
   
   Ссылка = Источник.Ссылка;
   НаборЗаписей = РегистрыНакопления.ПродажиСебестоимость.СоздатьНаборЗаписей();
   НаборЗаписей.Отбор.Регистратор.Установить(Ссылка,Истина);
   НаборЗаписей.Прочитать();
   НЗП = РегистрыНакопления.Продажи.СоздатьНаборЗаписей();
   НЗП.Отбор.Регистратор.Установить(Ссылка,Истина);
   НЗП.Прочитать();
   Количество = НаборЗаписей.Количество();
   ТЗ = НаборЗаписей.Выгрузить();    
   ТЗ.Свернуть("Номенклатура, ХарактеристикаНоменклатуры, ЗаказПокупателя, Подразделение, Проект", "Стоимость, Количество");
   
   Для Каждого Стр Из НЗП Цикл
       
       Отбор = Новый Структура();
       Отбор.Вставить("Номенклатура",Стр.Номенклатура);
       Отбор.Вставить("ХарактеристикаНоменклатуры",Стр.ХарактеристикаНоменклатуры);
       Отбор.Вставить("ЗаказПокупателя",Стр.ЗаказПокупателя);
       Отбор.Вставить("Подразделение",Стр.Подразделение);
       Отбор.Вставить("Проект",Стр.Проект);
       Строки = ТЗ.НайтиСтроки(Отбор);
       Стоимость = 0;
       Количество = 0;
       Для Каждого Строка Из Строки Цикл
           Стоимость = Стоимость+Строка.Стоимость;
           Количество = Количество + Строка.Количество;
       КонецЦикла;
       Если Стр.Количество = Количество Тогда
           Стр.Себестоимость = Стоимость;
       КонецЕсли;
       
   КонецЦикла;
   
   НЗП.Записать();

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

Работает как надо

(0) ПриЗаписи документа - офигеть. Нечего тут и думать. Проведение документа, которое делает движения в регистрах после того как документ уже записан все ваши изменения в сад отправляет.

Всем спасибо за помощь

(16) Извините забыла  - человеческий фактор

(1): [с таким ником фото обязательно]
(18):  [Извините забыла  - человеческий фактор]

(19) Где ваше фото молодой человек?

(18) меня вы этим не обидели, так что извиняться не стоит. А то что схватили суть тут слету - очень даже хорошо. Остальное придет с опытом.
(20) он стесняется.

(20) внезапно так :)

(20) Мальчиков это правило не касается, надо было регистрироваться с ником МужикБлеад, вопросов было бы меньше.

(22) Ну а что, сами фото просите вот и мне интересно знать с кем общаюсь

(24) если интересно, то это решается другим способом :)

(24) ха - я на свое могу ссылку дать ) Мне тут лениво выкладывать.

+(25) и мы не общаемся, мы помогаем :) вот когда будешь помогать - тогда смело и проси :)

+(27) исходя из (2), ждём завтра фотку :)

(27)По возможности

(28) да не будет ее 146%

Miss1C, не забывайте что фото обещали... в след раз уже ничего не подскажут пока не будет фото топлесс.

(30) завтра выложит: http://demotivation.me/ysimrrsm88jspic.html

(31) Я слова свои держу, по сравнению с некоторыми

(33) [Пол: Женский
Род занятий: Спортсменка, комсомолка]

Большая грудь мешает занятиям спортом?

(33) завтра мы в этом, надеюсь, убедимся ;)

(34) Бегать да, на остальное не жалуюсь

(34)Большая это какой размер?

(37) че то я сомневаюсь, что ты мисс, адрес какой-то неубедительный, на скорую руку придумывала?

(38) Да

(39) поиском нашлась какая-то фотка: http://mururoa.narod.ru/en/pages/miss1c.htm
Твоя? Такая бегу мешать не будет.

ну вот, Miss1C - сказал, Miss1C - сделал!

(0) Я бы из подписки фоновое задание вызвал, которое и сделает доп. записи в РС - там с транзакциями премудрости просто.

(41) +1

но тема до конца всё равно не раскрыта :(