8.х 1С с нуля - кто поможет

Discussion in 'Отчеты и обработки для "1С:Предприятие 8"' started by 0r1on, Oct 11, 2007.

  1. TopicStarter Overlay
    0r1on
    Offline

    0r1on

    Joined:
    Oct 11, 2007
    Messages:
    2
    Likes Received:
    0
    Trophy Points:
    1
    Срочно требуется помощь знающих людей, сам с 1с сталкиваюсь первый раз так что сильно не пинайте...
    Версия 1с:Предприятие 8.0, имеется справочник "Обоснование", в табличной части которого есть некая левая информация и столбцы код1, код2, код3. Нужно написать процедурку, которая данные из столбца код1 скопирует в код3, затем данные столбца код1 будут заменены данными столбца код2, причем если в столбце код2 есть нулевые значения (пустые ячейки), то сохраняются исходные значения столбца код1.
  2. lazy
    Offline

    lazy Модераторы Staff Member Модератор

    Joined:
    Sep 1, 2007
    Messages:
    2,123
    Likes Received:
    3
    Trophy Points:
    29
    Code:
        выборка = Справочники.Обоснование.Выбрать();
    пока выборка.Следующий() Цикл
    спр = выборка.ПолучитьОбъект();
    для каждого СтрСпр из спр.ТабличнаяЧасть Цикл
    СтрСпр.Код3 = СтрСпр.Код1;
    Если СтрСпр.Код2 <> 0 Тогда
    СтрСпр.Код1 = СтрСпр.Код2;
    КонецЕсли;
    КонецЦикла;
    спр.Записать();
    КонецЦикла;    
    
    Как то так, но не проверял.
  3. TopicStarter Overlay
    0r1on
    Offline

    0r1on

    Joined:
    Oct 11, 2007
    Messages:
    2
    Likes Received:
    0
    Trophy Points:
    1
    lazy большое спасибо - чуток подправил под себя и все прокатило

Share This Page