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

&НаСервере
Функция ЗаписьУдаленныхСтрок()
   МенеджерЗаписи = РегистрыСведений.УдаленныеСтрокиВзаиморасчетов.СоздатьМенеджерЗаписи();
   МенеджерЗаписи.Организация = Документы.ВзаиморасчетыСКлиентами.НайтиПоРеквизиту(Объект.Номер);
   МенеджерЗаписи.ДеньМесяца = Документы.ВзаиморасчетыСКлиентами.Взаиморасчеты.ДеньМесяца;
   МенеджерЗаписи.Контрагент = Документы.ВзаиморасчетыСКлиентами.Взаиморасчеты.Контрагент;
   МенеджерЗаписи.Цена = Документы.ВзаиморасчетыСКлиентами.Взаиморасчеты.Цена;
   МенеджерЗаписи.СуммаВрача = Документы.ВзаиморасчетыСКлиентами.Взаиморасчеты.СуммаВрача;
   МенеджерЗаписи.Касса = Документы.ВзаиморасчетыСКлиентами.Взаиморасчеты.Касса;
   МенеджерЗаписи.Записать();
КонецФункции

Подскажите пожалуйста как правильней?

Перед удалением строки имел ввиду

СуммаВрача - это сильно!

Записывать скорее всего нужно в "призаписи". Для чего это нужно, то?

зачем?

(2) ладно хоть не ПациентОрганы

Сделайте лучше отбор, что бы старые документы не маячили и ничего удалять не нужно.

(3) Строки добавляются в течении месяца, вдруг если оператор случайно или намеренно удалил какую-то строку записать эту строку в регистр сведений, потом когда я смотрел знать что он удалил. Если все верно очищу эту строку из регистра сведений

(6) один документ один месяц

(7) Как-то всё сложно.

кури передЗаписью()

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

Если документов вводится мало, то сделай в метаданных копию документа (версии). При каждой записи своего документа делай полную копию документа, т.е. новую версию. Сделать просто, в подписке можно.
Только в документе версии нужно будет отключить уникальность.
Либо из БСП версионирование подтянуть...

(12) тут надо для анализа это, а анализировать версионирование неблагодарное дело...

У строки табличной части нет собственной ссылки

(7) вот это - очень странная строка.

Документы.ВзаиморасчетыСКлиентами.Взаиморасчеты.ДеньМесяца


похоже не 1совская. Откуда-то вклинилась.

Вообще-то мне нужно в этой процедуре

&НаКлиенте
Процедура ВзаиморасчетыПередУдалением(Элемент, Отказ)
   ТекущаяСтрока = Элементы.Взаиморасчеты.ТекущиеДанные;
   Режим = РежимДиалогаВопрос.ОКОтмена;
   Текст = "-------";
   Ответ = Вопрос(Текст, Режим, 0);
   Если Ответ = КодВозвратаДиалога.Отмена Тогда
   Отказ = Истина;
   Иначе
   // При нажатии ок записать эту строку в Регистр сведений. В тонком клиенте не получается, надо операцию выполнить на сервере и как-то передать сюда. Как это сделать?
   КонецЕсли;
КонецПроцедуры

(16) а если юзер из ТЧ удалит, потом передумает и не запишет документ? Не надо ориентироваться на его действия

вообще, вот этот кусок накладывает отпечаток на сознание:

 МенеджерЗаписи.Организация = Документы.ВзаиморасчетыСКлиентами.НайтиПоРеквизиту(Объект.Номер);
   МенеджерЗаписи.ДеньМесяца = Документы.ВзаиморасчетыСКлиентами.Взаиморасчеты.ДеньМесяца;
   МенеджерЗаписи.Контрагент = Документы.ВзаиморасчетыСКлиентами.Взаиморасчеты.Контрагент;
   МенеджерЗаписи.Цена = Документы.ВзаиморасчетыСКлиентами.Взаиморасчеты.Цена;
   МенеджерЗаписи.СуммаВрача = Документы.ВзаиморасчетыСКлиентами.Взаиморасчеты.СуммаВрача;
   МенеджерЗаписи.Касса = Документы.ВзаиморасчетыСКлиентами.Взаиморасчеты.Касса;

(17) Дело в том что на кнопку удалить есть процедура которая выдает диалоговое окно Ок или Отмена, если отмена то возврат, если Ок то сразу идет запись в регистр сведений. Т.е. нет необходимости записывать документ.

(19) я не к тому, а к тому что если юзер не запишет документ - то по факту документ старый со всеми записями, и в регистре тоже запись

(20) А если после записи в регистр вызову запись самого документа?

(21) а если пользователь не туда нажал и документ записывать не хотел?) это просто непривычное поведение документа, и лучше не надо имхо

(21) Я все же за версионирование. Что будет, если сотр возьмет и каждую ячейку строки изменит - вроде строку не удаляли, а вот не стало данных...

(22) Понятно. Спасибо за внимание.

(23) Надо бы посмотреть как устроен механизм версионирования.

(25) Можно по простому - просто копия документа.

Если строк в документе сильно много, то можно дополнительно скрытый реквизит в ТЧ завести, так сказать ИД, что бы можно было автоанализ делать - какие строки удалены, какие изменены, какие исправлены...

А как мне запретить удаления оператору? Делаю так

&НаКлиенте
Процедура ВзаиморасчетыПередУдалением(Элемент, Отказ)
Если РольДоступна("Оператор") Тогда
   Отказ = Истина;    
КонецЕсли;
КонецПроцедуры

В тонком клиенте не идет, как из сервера передать?

(28) Вызвать серверную функцию, там проверить, назад вернуть отказ или нет.

(29) Это-то я знаю, а вот как реализовать, вот в чем вопрос)

(30) реализовать так:
1. написать функция серверную
&НаСервере
РольДоступнаСервер()
2. вернуть значение
Возврат РольДоступна("Оператор");

(31)
&НаСервере
Функция ПроверкаДоступа()
   Если РольДоступна("Оператор") Тогда
   Отказ = Истина;
   КонецЕсли;
   Возврат РольДоступна("Оператор");
КонецФункции

&НаКлиенте
Процедура ВзаиморасчетыПередУдалением(Элемент, Отказ)
   ПроверкаДоступа();
КонецПроцедуры

Замучился не знаю

&НаСервере
Функция ПроверкаДоступа()
   Возврат РольДоступна("Оператор");
КонецФункции

&НаКлиенте
Процедура ВзаиморасчетыПередУдалением(Элемент, Отказ)
   Отказ = ПроверкаДоступа();
КонецПроцедуры

+1 к версионированию

&НаСервере
Функция ПроверкаРоли()
   Оператор = РольДоступна("Оператор");
   Возврат Оператор;
КонецФункции


/////////////////////////////
Оператор = ПроверкаРоли();
   Если Оператор Тогда
       Отказ = Истина;
   КонецЕсли;

Работает!

(36) код надо проще писать :)

(34) Спасибо!