1С8. Пример выборки, обхода результата и изменения. Как изменить элементы справочника.

Пример как изменить элементы справочника КассыККМ.

Правила наименования элементов справочника.

// Изменить (переименовать) элементы справочника КассыККМ
// Правило для формирования наименований справочников:
// Соседние строки справочника, отсортированные по наименованию 
// не должны повторять первые строки
// Такой порядок обеспечит быстрый выбор нужного элемента.
// Плохой справочник - пример:
// Южный округ. Магазин Лютик 1-й отдел Касса ККМ ШТРИХ ФРК
// Южный округ. Магазин Лютик 2-й отдел Касса ККМ ШТРИХ ФРК
// Южный округ. Магазин Василек 1-й отдел Касса ККМ ШТРИХ ФРК
// Хороший справочник - пример:
// Лютик 1-й отдел Касса ККМ ШТРИХ ФРК Южный округ 
// Лютик 2-й отдел Касса ККМ ШТРИХ ФРК Южный округ 
// Василек 1-й отдел Касса ККМ ШТРИХ ФРК Южный округ

Функция КассыККМПереименовать()
    
    Запрос = Новый Запрос;
    Запрос.Текст = 
    "ВЫБРАТЬ ПЕРВЫЕ 100000
    |    КассыККМ.Ссылка,
    |    КассыККМ.Наименование,
    |    КассыККМ.Владелец,
    |    КассыККМ.ПометкаУдаления,
    |    КассыККМ.Код
    |ИЗ
    |    Справочник.КассыККМ КАК КассыККМ
    |ГДЕ
    |    КассыККМ.ПометкаУдаления = &НЕТ 
    |
    |УПОРЯДОЧИТЬ ПО
    |    КассыККМ.Наименование";
    
    //Параметры запроса    
    Запрос.УстановитьПараметр("НЕТ",Ложь);// Булево
    Результат = Запрос.Выполнить();
    
    Выборка = Результат.Выбрать();
    
    Пока Выборка.Следующий() Цикл        
        
        КассыККМОбъект = Выборка["Ссылка"].ПолучитьОбъект();
        НаименованиеБыло = КассыККМОбъект["Наименование"];
        Наименование = СтрЗаменить(НаименованиеБыло,"Южный округ. Магазин ","") 
            + " Южный округ. Магазин";
        Наименование = СтрЗаменить(Наименование,"  "," "); 
        КассыККМОбъект["Наименование"] = Наименование;
        КассыККМОбъект.Записать(); 
        
        стр = "" 
        + НаименованиеБыло + Символы.Таб + " --> (" 
        + КассыККМОбъект["Наименование"] + ")"            
        + "-[Ok!]";
        
        сообщить(стр);    
        
        //Состояние(стр);
        
    КонецЦикла;
    
    
    Возврат 0;
    
КонецФункции

КассыККМПереименовать();

No news availble




Рекламный блок:

Предлагаем решение Ваших задач 1С.

Внедрение 1С:

Доработка и сопровождение 1С:

Ориентировочная стоимость работ программиста 1С : 500 р. за 1 час работы.

Пишите: j008@j008.ru

Звоните: 8 916 710 83 51 Ольга