Перенос данных из одной табличной части в другую в Документе "Корректировка записей регистров"

11.05.11

Задачи пользователя - Корректировка данных

Перенос данных из одной табличной части в другую

Возникла проблема необходимости заполнения регистра накопления Партии товаров на складах (налоговый учет) также как заполнен регистр Партии товаров на складах (бухгалтерский учет).

Немного покопавшись и напоровшись на "подводные камни", было придумано решение проблемы.

Необходимо доработать документ "Корректировка записей регистров" так чтобы там появилось кнопочка вызывающая следующую процедурку:

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

См. также

Исправление в 1С:ЗУП/ЗКГУ ошибок по НДФЛ и взаиморасчетам с сотрудниками на начало расчетного года.

Корректировка данных Зарплата Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры бюджетного учреждения 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет НДФЛ Платные (руб)

Обработка исправляет технические ошибки по НДФЛ, взаиморасчетам с сотрудниками в 1С:ЗУП (1С:ЗКГУ) на начало года. Фактически все ошибки, которые проявляются в ведомостях на выплату, расчетных листках, при заполнении ведомостей на выплату и отчетах 6-НДФЛ и т.д. нужно начинать исправлять с начала расчетного года. Это позволит быть уверенными, что после завершения расчетов предыдущего года, начали работать с «чистого листа» без ошибочных остатков.

4800 руб.

06.10.2023    2328    28    15    

33

Тестирование и исправление ключей аналитики ERP, УТ11, КА

Корректировка данных Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Платные (руб)

Незаменимая обработка для сопровождения конфигураций: ERP, УТ, КА. Позволяет вычистить многие ошибки в ключах аналитики, в ключевых справочниках конфигурации.

3600 руб.

10.02.2017    106818    634    173    

676

Ускоренное проведение документов (x4), устранение ошибок 60/62 счетов и зачет авансов (Бухгалтерия 3.0)

Закрытие периода Инструменты администратора БД Корректировка данных Бухгалтерский учет 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Расширение «Оперативное проведение» в 4 раза уменьшает время проведения документов и закрытия месяца. Является комплексным решением проблем 62 и 60 счетов. Оптимизирует проведение при включенной функциональной опции «Раздельный учет НДС». Используется в более 10 организациях уже 2 года. Совместимо с конфигурацией Бухгалтерия 3.0 (+КОРП).

14400 руб.

29.04.2020    27384    79    146    

59

Исправление ошибки закрытия месяца "Обнаружены ненулевые остатки по суммам при нулевом остатке по количеству в регистре себестоимости по организации". УТ 11.4,УТ 11.5, КА 2.4,КА 2.5, ERP 2.4, ERP 2.5, КА 2 Казахстан, Управление торговлей 3 для Казахстана

Закрытие периода Корректировка данных Платформа 1С v8.3 Оперативный учет 1С:Управление торговлей 11 Управленческий учет Платные (руб)

Закрытие месяца - важный процесс в современных конфигурациях, таких как УТ 11.4, УТ 11.5, КА 2.4, КА 2.5 ERP 2.4,ERP 2.5, КА 2 Казахстан, УТ 3 Казахстан регламентные операции влияют на расчет себестоимости, и ошибки в данном расчете не дают картины деятельности организации.

2400 руб.

27.10.2021    22326    299    35    

71

SALE! 20%

Заполнение документа "Корректировка регистров" произвольными данными

Закрытие периода Корректировка данных Платформа 1С v8.3 Система компоновки данных 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 Управленческий учет Платные (руб)

Внешняя обработка, позволяющая произвольным образом заполнять документ "Корректировка регистров" Предназначена для использования в конфигурациях "Управление торговлей 11", "Управление небольшой фирмой", "ERP Управление предприятием", а также в других конфигурациях, в состав которых входит библиотека стандартных подсистем (БСП) версии 2.2+ и указанный выше документ.

2400 1920 руб.

13.07.2015    50169    171    29    

121
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. artbear 1448 11.05.11 15:43 Сейчас в теме
Скриншот выложи отдельно, а не как маленькую картинку.
Ничего же не видно :(
2. e.kogan 1892 12.05.11 12:26 Сейчас в теме
Не путайте табличную часть с набором движений, пожалуйста.
3. CrazyHands 37 25.05.11 09:06 Сейчас в теме
Выложил скрин. Наслаждайтесь))
4. Nur 05.03.12 20:19 Сейчас в теме
{Документ.КорректировкаЗаписейРегистров.МодульОбъекта(437,14)}: Переменная не определена (ЭлементыФормы)
Если <<?>>ЭлементыФормы.ПанельРегистровНакопления.ТекущаяСтраница.Имя = СтрокаТаблицыРегистров.Имя Тогда

Вот такую ошибку выдает
Оставьте свое сообщение