Удаление записи сведений о владельце автомобиля при выходе из редактирования списка автомобилей...
Внимание! Данный форум является модерируемым.
Для получения к нему доступа необходимо зарегистрироваться или авторизоваться на сайте.
Доступ к форуму партнерам «1C-Рарус» по дистрибуции предоставляется на сайте
rarus-soft.ru
Читают тему
После выхода из редактирования списка автомобилей в карточке контрагента, запись о владельце текущего автомобиля удаляется из РС.
Как мне кажется, действие процедуры "СписокСведенияАвтомобилиПередОкончаниемРедактирования" формы "ФормаЭлемента" справочника "Контрагенты" необходимо применять при ОтменаРедактирования = Ложь.
Следуя алгоритму Ваших действий, в типовой конфигурации данная ошибка не воспроизводится.
Постараюсь описать алгоритм.
1. Открываем карточку контрагента
2. Переходим на закладку автомобили
3. Начинаем редактировать строку с автомобилем.
4. Строку не записываем а просто давим Esc.
Все информация потеряна.
Мне необходимо было вообще переписать данный модуль так что заодно и решил эту проблему.
Да, Вы правы по кнопке Esc действительно удаляет список автомобилей контрагента. Из списка нужно выходить кнопкой "закрыть".
Добрый день.
Да, Вы правы по кнопке Esc действительно удаляет список автомобилей контрагента. Из списка нужно выходить кнопкой "закрыть".
Да, это ошибка. При отмене редактирования несмотря на отмену зачищается владелец.
Вот исправленная процедура СписокСведенияАвтомобилиПередОкончаниемРедактирования формы элемента справочника контрагентов.
Процедура СписокСведенияАвтомобилиПередОкончаниемРедактирования(Элемент, НоваяСтрока, ОтменаРедактирования, Отказ) Если ОтменаРедактирования Тогда Возврат; КонецЕсли; ТекСтрока = ЭлементыФормы.СписокСведенияАвтомобили.ТекущиеДанные; ТекСтрока.Значение = Ссылка; ВыборкаЗаписи = РегистрыСведений.Автомобили.Выбрать( НачалоДня(ЭлементыФормы.СписокСведенияАвтомобили.ТекущиеДанные.Период), КонецДня(ЭлементыФормы.СписокСведенияАвтомобили.ТекущиеДанные.Период), Новый Структура("Автомобиль",ТекСтрока.Автомобиль) ); Пока ВыборкаЗаписи.Следующий() Цикл Если ВыборкаЗаписи.ВидЗначения = ТекСтрока.ВидЗначения Тогда Запись = ВыборкаЗаписи.ПолучитьМенеджерЗаписи(); Запись.Удалить(); КонецЕсли; КонецЦикла; КонецПроцедуры // СписокСведенияАвтомобилиПередОкончаниемРедактирования()спасибо, исправил по вашему коду такую же ошибку в нашей базе