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

Записать комментарий в элементах справочника

Автор Kostik2013, 20 июл 2013, 15:44

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

Kostik2013

Всем доброго дня!Необходимо чтоб при нажатии Кнопки Выполнить  обработка перебрала справочник и в комментарии каждого элемента написала *Я тут был*.Подскажите пожалуйста,что не так я сделал (не кидайте тапками)) ). Зараннее благодарен.
1С:Предприятие 8.2 (8.2.15.310) УТП


Процедура КнопкаВыполнитьНажатие(Кнопка)
Комментарий = Комментарий;

Заполнение (Комментарий);

    Сообщить ("Готово!");

КонецПроцедуры

&НаСервере
Функция Заполнение (Комментарий)
Номенклатура = Неопределено;

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Номенклатура.Родитель,
| Номенклатура.Наименование,
| Номенклатура.Комментарий
|ИЗ
| Справочник.Номенклатура КАК Номенклатура";

Результат = Запрос.Выполнить();
Пока Результат.Следующий() Цикл
Наименование = Результат.Наименование;
Комментарий = Комментарий.ЗаписатьКомментарий("я тут был");

КонецЦикла;   

КонецФункции





MuI_I_Ika

Функция Заполнение (Комментарий)
    Номенклатура = Неопределено;
   
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |    Номенклатура.Ссылка,
    |    Номенклатура.Родитель,
    |    Номенклатура.Наименование,
    |    Номенклатура.Комментарий
    |ИЗ
    |    Справочник.Номенклатура КАК Номенклатура";
   
    Выборка= Запрос.Выполнить().Выбрать();
        Пока Выборка.Следующий() Цикл
             
             НоменклатураОбъект = Выборка.Ссылка.ПолучитьОбъект();
             НоменклатураОбъект.Комментарий = "Я тут был";
             НоменклатураОбъект.Записать();

        КонецЦикла;       
   
КонецФункции

Kostik2013

Цитата: MuI_I_Ika от 20 июл 2013, 16:23
Функция Заполнение (Комментарий)
    Номенклатура = Неопределено;
   
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |    Номенклатура.Ссылка,
    |    Номенклатура.Родитель,
    |    Номенклатура.Наименование,
    |    Номенклатура.Комментарий
    |ИЗ
    |    Справочник.Номенклатура КАК Номенклатура";
   
    Выборка= Запрос.Выполнить().Выбрать();
        Пока Выборка.Следующий() Цикл
             
             НоменклатураОбъект = Выборка.Ссылка.ПолучитьОбъект();
             НоменклатураОбъект.Комментарий = "Я тут был";
             НоменклатураОбъект.Записать();

        КонецЦикла;       
   
КонецФункции


Большое спасибо за помощь! Выскаквает такая ошибка значит надо сделать проверку на группу? 

{Обработка.ЯТутБыл.Форма.Форма.Форма(47)}: Ошибка при установке значения атрибута контекста (Комментарий)
             НоменклатураОбъект.Комментарий = "Я тут был";
по причине:
Реквизит недоступен для группы

MuI_I_Ika


Kostik2013

Цитата: MuI_I_Ika от 20 июл 2013, 16:46
Да, на группу надо проверить

Огромное вам спасибо!Хороших выходных))

Теги:

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

Рейтинг@Mail.ru

Поиск