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

казалось бы простая обработка

Автор Hypnodisk, 06 мар 2018, 11:18

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

Hypnodisk

Не получается изменить во всех карточках товара наименование.Как сделать чтобы наименование было равно полному наименованию?

AIFrame


Hypnodisk

Цитата: AIFrame от 06 мар 2018, 11:30
Цитата: Hypnodisk от 06 мар 2018, 11:18Не получается
По причине?
Ну не меняет моя обработка наименования. Может что не так делаю, не знаю

Norfolk

Цитата: Hypnodisk от 06 мар 2018, 11:44
Цитата: AIFrame от 06 мар 2018, 11:30
Цитата: Hypnodisk от 06 мар 2018, 11:18Не получается
По причине?
Ну не меняет моя обработка наименования. Может что не так делаю, не знаю
Может приведете свой код, чтобы нам не гадать на кофейной гуще?

Hypnodisk

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

oleg-x

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

У групп нет реквизита полное наименование.
Помог, нажми спасибо. Не помог, нажми спасибо :-)
Если у Вас есть проблема, то её уже кто то решил @Yandex, @Google

AIFrame

Выборка = Справочники.Номенклатура.Выбрать();
Пока Выборка.Следующий() Цикл
    Ном = Выборка.Ссылка;
    Если Ном.ЭтоГруппа Тогда
         Сообщить("Пропуск группы - " + Ном);
       Продолжить;
    КонецЕсли;
    НаименованиеПолное = Ном.НаименованиеПолное;
    Если НаименованиеПолное <> Ном.Наименование Тогда
        ТекОбъект = Ном.ПолучитьОбъект();
        ТекОбъект.Наименование = НаименованиеПолное;
        Попытка
            ТекОбъект.Записать();
            Сообщить("ОК - " + Ном);
        Исключение
            Сообщить("!! - " + Ном + Символы.ПС + ОписаниеОшибки());
        КонецПопытки;
    Иначе
        Сообщить("Пропуск - " + Ном);   
    КонецЕсли;
КонецЦикла;

Так сделай.
___
УПД. Даже так, чтобы прям все вывалилось.

Hypnodisk

Цитата: AIFrame от 06 мар 2018, 12:20
Выборка = Справочники.Номенклатура.Выбрать();
Пока Выборка.Следующий() Цикл
    Ном = Выборка.Ссылка;
    Если Ном.ЭтоГруппа Тогда
         Сообщить("Пропуск группы - " + Ном);
       Продолжить;
    КонецЕсли;
    НаименованиеПолное = Ном.НаименованиеПолное;
    Если НаименованиеПолное <> Ном.Наименование Тогда
        ТекОбъект = Ном.ПолучитьОбъект();
        ТекОбъект.Наименование = НаименованиеПолное;
        Попытка
            ТекОбъект.Записать();
            Сообщить("ОК - " + Ном);
        Исключение
            Сообщить("!! - " + Ном + Символы.ПС + ОписаниеОшибки());
        КонецПопытки;
    Иначе
        Сообщить("Пропуск - " + Ном);   
    КонецЕсли;
КонецЦикла;

Так сделай.
___
УПД. Даже так, чтобы прям все вывалилось.
Ошибку выдает

oleg-x

ЦитироватьОшибку выдает
Возми ошибку, посмотри что она из себя представляет, поговори с ней, спроси у неё, чего она хочет от тебя. :dfbbdrfb:
Помог, нажми спасибо. Не помог, нажми спасибо :-)
Если у Вас есть проблема, то её уже кто то решил @Yandex, @Google

AIFrame

Цитата: Hypnodisk от 07 мар 2018, 10:55Ошибку выдает
Ну тогда остается только виндовс переустановить. И еще термопасту на проце поменяй.

Теги: обработка 

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

Рейтинг@Mail.ru

Поиск