В моем случае есть необходимость при синхронизации из УТ 10.4 передать реквизиты документа и в БП 3.0 произвести запись в Операции Бух, по Регстру Бухгалтерии всезаписывается и проводится, но одновременно надо сделать запись в регистре накопления ИП МПЗ, а тут как раз и не получается, приходится открывать форму Операции выполнять действия Записать Закрыть, в первом случае добавляется табличная часть с регистром ИП МПЗ, во второй раз производиться запись в регистр.
Нужны советы какисправить, чтобы запись в регистр совершалась при записи в Регистр Бухгалтерии, понимаю, что пока нет записи, то и в Регистр ничего не записать.
может возможно програмно выполнить запись, и второй раз отурыть и выполнить запись в регистр ИП МПЗ по данным табличной части Регистра бухгалтерии.
Процедура Расш1_ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
Если РежимЗаписи = РежимЗаписиДокумента.Запись Тогда
ХарактерДеятельности = Неопределено;
Выб = Справочники.ВидыДеятельностиПредпринимателей.Выбрать();
Пока Выб.Следующий() Цикл
ХарактерДеятельности = Выб.ХарактерДеятельности;
Прервать;
КонецЦикла;
ВидМПЗ = Перечисления.ВидыМПЗ.Материалы;
Движения.ИПМПЗ.Очистить();
ДобавленыДвижения = Ложь;
Для Каждого Стр ИЗ Движения.Хозрасчетный Цикл
Если Стр.СчетДт.Код = "10.07" Тогда
НоменклатураСчетДт = Стр.СубконтоДт.Номенклатура;
Если ЗначениеЗаполнено(НоменклатураСчетДт) Тогда
СтрДоб = Движения.ИПМПЗ.ДобавитьПриход();
СтрДоб.Период = Дата;
СтрДоб.Активность = Истина;
СтрДоб.Организация = Стр.Организация;
СтрДоб.НоменклатурнаяГруппа = НоменклатураСчетДт.НоменклатурнаяГруппа;
СтрДоб.ХарактерДеятельности = ХарактерДеятельности;
СтрДоб.ВидМПЗ = ВидМПЗ;
СтрДоб.Номенклатура = НоменклатураСчетДт;
СтрДоб.Партия = Стр.СубконтоДт.Партии;
СтрДоб.Количество = Стр.КоличествоДт;
СтрДоб.Сумма = Стр.Сумма;
ДобавленыДвижения = Истина;
КонецЕсли;
КонецЕсли;
КонецЦикла;
Если ДобавленыДвижения Тогда
СтрНайти = ТаблицаРегистровНакопления.Найти("ИПМПЗ","Имя");
Если СтрНайти = Неопределено Тогда
СтрДоб = ТаблицаРегистровНакопления.Добавить();
СтрДоб.Имя = "ИПМПЗ";
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецПроцедуры Показать