Ошибка определения модифицированности объекта

Проблемы после обновления 1С:Бухгалтерия 3.0.43.50

Странная проблема. Может кто сталкивался:

Имеем:
— Конфигурация «1С:Бухгалтерия Предприятия 3.0» (3.0.42.91). Конфигурация типовая без каких либо изменений.
— Платформа 1С:Предприятие 8.3 (8.3.7.1845)

Обновляем конфигурацию на 3.0.43.50. После этого появляется странный баг:

— Открываю справочник «Контрагенты».
— Открываю карточку Контрагента (Например «ООО АиС» или любого другого). НИЧЕГО не изменяю, нажимаю «Записать и закрыть»
— Появляется сообщение «Не удалось записать «ООО АиС (Контрагент)»
И так с любым контрагентом. Такое сообщение выскакиевает также при попытке пометить любого контрагента на удаление.

В «Журнале регистрации событий» на каждое сообщение об ошибке появляется такая запись:
———————
<ОбщийМодуль.ОбменДаннымиСобытия.Модуль(998)>: Ошибка определения модифицированности объекта: <ОбщийМодуль.ОбменДаннымиСобытия.Модуль(1096)>: Ошибка при вызове метода контекста (Выполнить)
Возврат Запрос.Выполнить().Выгрузить();
по причине:
<(2, 123)>: Поле не найдено «ОсновнойДоговорКонтрагента»
ВЫБРАТЬ Код, Родитель, КодПоОКПО, НаименованиеПолное, ЮридическоеФизическоеЛицо, ПометкаУдаления, ОсновнойБанковскийСчет, >ОсновнойДоговорКонтрагента, Комментарий, Наименование, ЭтоГруппа, ИНН, КПП ИЗ Справочник.Контрагенты КАК ТекущийОбъект
ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
———————-

Источник

Как проверить объект на модифицированность(), при вводе на основании?

Тип: Произвольный.
Значение, которое используется как основание для заполнения.
Если обработчик вызван при выполнении метода Заполнить, параметр равен параметру «Данные заполнения» метода Заполнить.
При обработке заполнения во время ввода на основании параметр имеет значение основания.
При интерактивном вводе нового из формы списка параметр является структурой, элементы которой соответствуют тем параметрам отбора формы списка, у которых способ сравнения Равно или ВСписке с единственным элементом списка. Если таких элементов отбор списка не содержит, данный параметр равен Неопределено. Если параметр «Стандартная обработка» по окончании работы обработчика равен Истина (установлен по умолчанию), система автоматически произведет заполнение одноименными элементами структуры.

Тип: Булево.
В данный параметр передается признак выполнения стандартной (системной) обработки события. Если в теле процедуры-обработчика установить данному параметру значение Ложь, стандартная обработка события производиться не будет. Отказ от стандартной обработки не отменяет действие.
Значение по умолчанию: Истина
Описание:

Возникает при вводе документа на основании, а также при выполнении метода Заполнить, при вводе на основании, а также при интерактивном вводе нового. В процедуре-обработчике этого события должен быть описан сам алгоритм заполнения реквизитов документа на основании переданного значения.
Примечание:

При копировании (как интерактивном, так и средствами встроенного языка), данный обработчик не вызывается.
См. также:

Источник

Модифицированность()

Друзья, читаю в ПодпискеНаСобытие Перед записью Источник.Модифицированность(), и оно ВСЕГДА ИСТИНА.

Ничего не понимаю, данные не изменяются, как такое может быть?

1С 8.2 Управляемое Тонкий

Fragster
нет, проверял даже на Валюте, там всего-то 3 реквизита, в форме ничего не меняется. Модуль объекта абсолютно чист.
откуда берется модифицированность не понятно.
Перед запись в форме проверяю модифицированност формы = ЛОЖЬ.

У тебя есть ОбъектВФорме, ОбъектНаСервере. ОбъектВФорме модифицируется, а до ОбъектаНаСервере еще дело не дошло.

Копай ДанныеФормыВЗначение или что-то подобное.

Создал специально справочник вообще без реквизитов, объект все равно всегда модифицирован.
Похоже смотрит на версию объекта, а версия объекта всегда меняется при записи.

Жму, например, кнопку записать в форме 10 раз (в ней нет реквизитов вообще, одна кнока) и все 10 раз объект модифицирован.

Есть процедура «ПередЗаписью()» и она срабатывает всегда когда жмешь кнопку записать, не важно менял ты что=то или нет.
Но как в ней понять модифицирован объект или нет?

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

Если просто программнополучить объект и записать его, то Модифицированность() = ЛОЖЬ, если нажать на кнопку в форме, то будет ИСТИНА (хотя форма не менялась)

(10) подписка на событие геде выполняется, как думаешь?

НаКлиенте, али НаСервере?

Икогнито
Хватит глупости нести.

1)
Берем объект на сервере, суем его в форму на клиенте, открываем форму.
В форме ничего не меняем, ПередЗаписью() в форме МОдифифцированность формы = ЛОЖЬ, нигде нет никаких обработчиков, которые могли бы изменить объект. В подписке на события ПередЗаписью() сам объект МОдифицированность()=ИСТИНА (Почему, если ничего не менялось?)

PS:
Что я хочу я уже написал, читай 4 = «смысл проверки для версионирования. Выгружаю версию объекта в логи, если объект модифицирован. Всегда выгружать нет желания.»

(14) ты ваще не догоняешь в своем п. 2

Я тебя спрашивал: «Как объект может быть не модифицирован, если ты в форме жмешь кнопку «ЗАПИСАТЬ»?

Источник

Модифицированность у объекта при открытии

Понадобилось добавить печатную форму в типовой справочник «Договоры контрагентов» (конфигурация на основе УПП 1.3.58)

Сделала внешнюю печатную форму, добавила код, чтобы кнопки печати появились на форме элемента справочника «Договоры контрагентов».
В принципе печатная форма формируется, но перед этим спрашивает «Объект изменен. Для печати его необходимо записать. Записать?»

Код печати типовой, проверка на модифицированность тоже типовая из общих модулей типа «Работа с диалогами». Хочется ими воспользоваться без изменений.

В модуле формы элемента справочника «Договоры контрагентов» в процедуре «Перед открытием» есть такой типовой код:

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

ЭлементыФормы.ВидДоговора.Значение = ВидДоговора; // вот здесь ЭтотОбъект.Модифицированность() становится ИСТИНА
ЭлементыФормы.ВедениеВзаиморасчетов.Значение = ВедениеВзаиморасчетов;

Т.е. после того, как отработает процедура «ПередОткрытием», 1С уже считает, что объект модифицировался.

При этом сообщение об измененном объекте выходит когда нажимаешь на кнопку «Печать по умолчанию», т.е. которая с названием печатной формы.
А если нажать на кнопку «Печать», то выведется список форм, и при выборе той же формы она без всяких ругачек прекрасно формируется, так как там проверка идет на модифицированность формы, а не объекта.

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

(5) Раньше (на предыдущей строчке) она Ложь, а после Истина, я не знаю, где оно ещё может меняться.

Вообще галочка «Изменяет данные» видимо для других целей нужна:

«Изменяет данные — если свойство установлено, то элемент управления непосредственно не связан с данными, но косвенно изменяет их.

Фактически установка этого свойства приводит к тому, что будет «взведена» модифицированность формы и пользователь, просто закрыв окно (отказавшись от редактирования формы), не сможет потерять данные, измененные программно. Система известит его о том, что данные были изменены и предложит записать их или отказаться от записи. Ведь пользователь может и не знать о том, что в результате его действий данные объекта поменялись. «

(9) Да наверное и не должна. Просто объект вроде как «не меняли» и я возникновения модифицированности не ожидала. В общем-то это от незнания поведения системы конечно.

Наверное проще всё-таки свою процедуру печати внешней формы на основе типовой добавить, где бы проверялась модифицированность формы.

Источник

УТ 11.4 Модифицированность документа

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

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

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

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

Регистр периодический и независимый (измерения Документ, Номенклатура, Статус, НомерСтроки, ресурсы Количество)
в процедуре ПередЗаписью
запросом получаю срез последних по документу, выгружаю в ТЗдо
далее ТЧ документа выгружаю в ТЗпосле

далее каждую строку из ТЗпосле ищу в ТЗдо, если не нахожу, то делаю запись для этой строки.
Но тут получается, что как выше описал пример, в ТЗдо уже есть строка, хотя после нее уже делали манипуляции в ТЧ и проводили документ.

(18)посмотрите, пожалуйста, код:
запросом получаю данные до изменения документа, далее ТЧ выгружаю в ТЗ (только нужные колонки)
Далее если запрос пустой (новый документ), то создаю записи. Если есть какие-то записи, то каждую строку документа ищу в ТЗ запроса, если не нахожу, то создаю запись.

ЗапросИстория = Новый Запрос;
ЗапросИстория.Текст = «ВЫБРАТЬ
| pks_СтатусыВЗаказахКлиентаИсторияСрезПоследних.Номенклатура.Наименование КАК Номенклатура,
| pks_СтатусыВЗаказахКлиентаИсторияСрезПоследних.Номенклатура.Код КАК НоменклатураКод,
| pks_СтатусыВЗаказахКлиентаИсторияСрезПоследних.Статус КАК Статус,
| pks_СтатусыВЗаказахКлиентаИсторияСрезПоследних.СтрокаНомер КАК СтрокаНомер,
| pks_СтатусыВЗаказахКлиентаИсторияСрезПоследних.КоличествоСтроки КАК КоличествоСтроки
|ИЗ
| РегистрСведений.pks_СтатусыВЗаказахКлиентаИстория.СрезПоследних КАК pks_СтатусыВЗаказахКлиентаИсторияСрезПоследних
|ГДЕ
| pks_СтатусыВЗаказахКлиентаИсторияСрезПоследних.ЗаказКлиента = &Ссылка»;
ЗапросИстория.УстановитьПараметр(«Ссылка»,Ссылка);
ТЗДанныеДо = ЗапросИстория.Выполнить().Выгрузить();

ТЗДанныеПосле = Новый ТаблицаЗначений;
ТЗДанныеПосле.Колонки.Добавить(«Номенклатура», Новый ОписаниеТипов(«Строка»));
ТЗДанныеПосле.Колонки.Добавить(«НоменклатураКод», Новый ОписаниеТипов(«Строка»));
ТЗДанныеПосле.Колонки.Добавить(«Статус», Новый ОписаниеТипов(«ПеречислениеСсылка.ВариантыОбеспечения»));
ТЗДанныеПосле.Колонки.Добавить(«СтрокаНомер», Новый ОписаниеТипов(«Число»));
ТЗДанныеПосле.Колонки.Добавить(«КоличествоСтроки», Новый ОписаниеТипов(«Число»));

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

Если ТЗДанныеДо.Количество() = 0 Тогда
Для Каждого ТекСтрокаТовары Из Товары Цикл
НовыйНаборЗаписей = РегистрыСведений.pks_СтатусыВЗаказахКлиентаИстория.СоздатьМенеджерЗаписи();
НовыйНаборЗаписей.Период = ТекущаяДата();
НовыйНаборЗаписей.ЗаказКлиента = Ссылка;
НовыйНаборЗаписей.Номенклатура = ТекСтрокаТовары.Номенклатура;
НовыйНаборЗаписей.Пользователь = ПараметрыСеанса.ТекущийПользователь;
НовыйНаборЗаписей.Статус = ТекСтрокаТовары.ВариантОбеспечения;
НовыйНаборЗаписей.СтрокаНомер = ТекСтрокаТовары.НомерСтроки;
НовыйНаборЗаписей.ДатаИзменения = ТекущаяДата();
НовыйНаборЗаписей.КоличествоСтроки = ТекСтрокаТовары.КоличествоУпаковок;
НовыйНаборЗаписей.Количество = ТекСтрокаТовары.КоличествоУпаковок;
НовыйНаборЗаписей.Записать(Ложь);
КонецЦикла;
ИначеЕсли ТЗДанныеДо.Количество() <> 0 Тогда
Для Каждого СтрТЗДанныеПосле Из ТЗДанныеПосле Цикл
СтрокаДляПоиска = Новый Структура(«Номенклатура, НоменклатураКод, Статус, СтрокаНомер, КоличествоСтроки»,
СтрТЗДанныеПосле.Номенклатура, СтрТЗДанныеПосле.НоменклатураКод, СтрТЗДанныеПосле.Статус, СтрТЗДанныеПосле.СтрокаНомер, СтрТЗДанныеПосле.КоличествоСтроки);
МассивНайденныхСтрок = ТЗДанныеДо.НайтиСтроки(СтрокаДляПоиска);
Если МассивНайденныхСтрок.Количество() = 0 Тогда
НовыйНаборЗаписей = РегистрыСведений.pks_СтатусыВЗаказахКлиентаИстория.СоздатьМенеджерЗаписи();
НовыйНаборЗаписей.Период = ТекущаяДата();
НовыйНаборЗаписей.ЗаказКлиента = Ссылка;
НовыйНаборЗаписей.Номенклатура = Справочники.Номенклатура.НайтиПоКоду(СтрТЗДанныеПосле.НоменклатураКод);
НовыйНаборЗаписей.Пользователь = ПараметрыСеанса.ТекущийПользователь;
НовыйНаборЗаписей.Статус = СтрТЗДанныеПосле.Статус;
НовыйНаборЗаписей.СтрокаНомер = СтрТЗДанныеПосле.СтрокаНомер;
НовыйНаборЗаписей.ДатаИзменения = ТекущаяДата();
НовыйНаборЗаписей.КоличествоСтроки = СтрТЗДанныеПосле.КоличествоСтроки;
НовыйНаборЗаписей.Количество = СтрТЗДанныеПосле.КоличествоСтроки;
НовыйНаборЗаписей.Записать(Ложь);
КонецЕсли;
КонецЦикла;
КонецЕсли;

Источник