Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
16 апр 2024, 10:15

Поменять год во всех документах

Автор Гамаюн1991, 26 мая 2015, 14:02

0 Пользователей и 1 гость просматривают эту тему.

Гамаюн1991

Все Добрый день!
Ребята, подскажите пожалуйста как кодом поменять год во всех документах.
Время на сервере сбилось, нужно теперь восстановить год.

Дмитрий@

Групповой обработкой справочников и документов.
Или воспользоватся этой https://forum-baza.ru/index.php?topic=46252.msg131730#msg131730

Гамаюн1991

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

Rasty


Выборка = Документы.ТвойДокумент.Выбрать()
Пока Выборка.Следующий() Цикл
    Док = Выборка.ПолучитьОбъект();
    Док.Дата = НужнаяДата;
    Док.Записать();
КонецЦикла
Помогли - Скажи спасибо! Решил сам - поделись решением!
:)

Гамаюн1991

Цитата: Rasty от 26 мая 2015, 14:25

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

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

Дмитрий@

А почему не получается групповой обработкой?

Rasty

Помогли - Скажи спасибо! Решил сам - поделись решением!
:)

Гамаюн1991

Цитата: Rasty от 26 мая 2015, 14:42
Гамаюн1991, именно
Если через метаданные, то обращаться надо к СтандартныеРеквизиты.Дата а данные объект не доступен для изменения. Как с этим быть....?

Rasty


Для Каждого Документ из Метаданные Цикл
    Выборка = Документы[Документ].Выбрать();
    Пока Выборка.Следующий() Цикл
        Док = Выборка.Ссылка.ПолучитьОбъект();
        Док.Дата = НужнаяДата;
        Док.Записать();
    КонецЦикла;
КонецЦикла;
Помогли - Скажи спасибо! Решил сам - поделись решением!
:)

Гамаюн1991

Цитата: Rasty от 26 мая 2015, 15:42

Для Каждого Документ из Метаданные Цикл
    Выборка = Документы[Документ].Выбрать();
    Пока Выборка.Следующий() Цикл
        Док = Выборка.Ссылка.ПолучитьОбъект();
        Док.Дата = НужнаяДата;
        Док.Записать();
    КонецЦикла;
КонецЦикла;

выдает ошибку " Итератор для значения не определен Для Каждого Документ из Метаданные Цикл
"

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск