"1C-PRO" - форум по 1C > 1c с нуля

Помощь - Поиск - Пользователи - Календарь

"1C-PRO" - форум по 1C > Форумы по платформе "1С:Предприятие 8.x" > (8.х) Отчеты и обработки для платформы "1С:Предприятие 8.x"

0r1on

11.10.2007, 12:28

Срочно требуется помощь знающих людей, сам с 1с сталкиваюсь первый раз так что сильно не пинайте...
Версия 1с:Предприятие 8.0, имеется справочник "Обоснование", в табличной части которого есть некая левая информация и столбцы код1, код2, код3. Нужно написать процедурку, которая данные из столбца код1 скопирует в код3, затем данные столбца код1 будут заменены данными столбца код2, причем если в столбце код2 есть нулевые значения (пустые ячейки), то сохраняются исходные значения столбца код1.

lazy

12.10.2007, 12:03

Код

    выборка = Справочники.Обоснование.Выбрать();
    пока выборка.Следующий() Цикл
        спр = выборка.ПолучитьОбъект();
        для каждого СтрСпр из спр.ТабличнаяЧасть Цикл
            СтрСпр.Код3 = СтрСпр.Код1;
            Если СтрСпр.Код2 <> 0 Тогда
                СтрСпр.Код1 = СтрСпр.Код2;
            КонецЕсли;
        КонецЦикла;
        спр.Записать();
    КонецЦикла;

Как то так, но не проверял.

0r1on

16.10.2007, 16:41

lazy большое спасибо - чуток подправил под себя и все прокатило

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.