Перенос данных из одной табличной части в другую в Документе "Корректировка записей регистров"
11.05.11
Задачи пользователя - Корректировка данных
Перенос данных из одной табличной части в другую
Возникла проблема необходимости заполнения регистра накопления Партии товаров на складах (налоговый учет) также как заполнен регистр Партии товаров на складах (бухгалтерский учет).
Немного покопавшись и напоровшись на "подводные камни", было придумано решение проблемы.
Необходимо доработать документ "Корректировка записей регистров" так чтобы там появилось кнопочка вызывающая следующую процедурку:
Процедура ДействияФормыЗаполнить(Кнопка)
Если ЭтоНовый() Или Модифицированность() Тогда
Ответ = Вопрос("Перед копированием документ нужно записать. Записать?", РежимДиалогаВопрос.ДаНет, 60);
Если Ответ <> КодВозвратаДиалога.Да Тогда
Возврат;
Иначе
Записать(РежимЗаписиДокумента.Проведение);
КонецЕсли;
КонецЕсли;
Меню = Новый СписокЗначений();
Для Каждого СтрокаТаблицыРегистров Из ТаблицаРегистровНакопления Цикл
Если ЭлементыФормы.ПанельРегистровНакопления.ТекущаяСтраница.Имя = СтрокаТаблицыРегистров.Имя Тогда
Продолжить;
КонецЕсли;
Меню.Добавить(Метаданные.РегистрыНакопления[СтрокаТаблицыРегистров.Имя], "РН " + СтрокаТаблицыРегистров.Представление);
КонецЦикла;
Для Каждого СтрокаТаблицыРегистров Из ТаблицаРегистровСведений Цикл
Если ЭлементыФормы.ПанельРегистровСведений.ТекущаяСтраница.Имя = СтрокаТаблицыРегистров.Имя Тогда
Продолжить;
КонецЕсли;
Меню.Добавить(Метаданные.РегистрыСведений[СтрокаТаблицыРегистров.Имя], "РС " + СтрокаТаблицыРегистров.Представление);
КонецЦикла;
Для Каждого СтрокаТаблицыРегистров Из ТаблицаРегистровБухгалтерии Цикл
Если ЭлементыФормы.ПанельРегистровБухгалтерии.ТекущаяСтраница.Имя = СтрокаТаблицыРегистров.Имя Тогда
Продолжить;
КонецЕсли;
Меню.Добавить(Метаданные.РегистрыБухгалтерии[СтрокаТаблицыРегистров.Имя], "РБ" + СтрокаТаблицыРегистров.Представление);
КонецЦикла;
Источник = Меню.ВыбратьЭлемент("Выберите источник");
Если Источник = Неопределено Тогда
Возврат;
КонецЕсли;
Для Каждого Набор Из Движения Цикл
Если Набор.Метаданные() <> Источник.Значение Тогда
Продолжить;
КонецЕсли;
Набор.Прочитать();
Если Набор.Количество() = 0 Тогда
Продолжить;
КонецЕсли;
Если ЭлементыФормы.ПанельРегистров.ТекущаяСтраница.Имя = "РегистрыНакопления" И ЭлементыФормы.ПанельРегистровНакопления.ТекущаяСтраница.Имя <> "Подсказка" Тогда
Приемник = Движения.Найти(ЭлементыФормы.ПанельРегистровНакопления.ТекущаяСтраница.Имя);
ТаблицаПриемника = Приемник.Выгрузить();
ТаблицаПриемника.Очистить();
ТаблицаИсточника = Набор.Выгрузить();
Для Каждого СтрокаТаблицыИсточника Из ТаблицаИсточника Цикл
СтрокаТаблицыПриемника = ТаблицаПриемника.Добавить();
ЗаполнитьЗначенияСвойств(СтрокаТаблицыПриемника, СтрокаТаблицыИсточника);
КонецЦикла;
Приемник.Загрузить(ТаблицаПриемника);
Приемник.УстановитьАктивность(Истина);
ИначеЕсли ЭлементыФормы.ПанельРегистров.ТекущаяСтраница.Имя = "РегистрыСведений" И ЭлементыФормы.ПанельРегистровСведений.ТекущаяСтраница.Имя <> "Подсказка" Тогда
Приемник = Метаданные.РегистрыСведений[ЭлементыФормы.ПанельРегистровСведений.ТекущаяСтраница.Имя];
ИначеЕсли ЭлементыФормы.ПанельРегистров.ТекущаяСтраница.Имя = "РегистрыБухгалтерии" Тогда
Приемник = Метаданные.РегистрыБухгалтерии[ЭлементыФормы.ПанельРегистровБухгалтерии.ТекущаяСтраница.Имя];
Иначе
Продолжить;
КонецЕсли;
КонецЦикла;
КонецПроцедуры Вступайте в нашу телеграмм-группу Инфостарт
Вы можете заказать платную адаптацию этой статьи под ваши задачи на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.