// Автор acsent

&НаСервере

Функция ИнициализацияОбработкиСервер()



    Запрос = Новый Запрос;

    Запрос.Текст =

    "ВЫБРАТЬ

    |   Спр.Ссылка

    |ИЗ

    |   Справочник.Банки КАК Спр";



    Данные      = Запрос.Выполнить().Выгрузить();

    АдресДанных = ПоместитьВоВременноеХранилище(Данные, УникальныйИдентификатор);



    // Обработка

    // В справочнике ~ 4000 элементов

    Возврат Данные.Количество();



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



&НаСервереБезКонтекста

Функция ОбработатьЭлемент(ДанныеЭлемента)



    СпрОбъект = ДанныеЭлемента.Ссылка.ПолучитьОбъект();



    // Обработка



    СпрОбъект.ОбменДанными.Загрузка = Истина;

    СпрОбъект.Записать();



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



&НаСервереБезКонтекста

Функция ОбработатьПорциюНаСервере(Начало, Конец, АдресДанных)



    Данные = ПолучитьИзВременногоХранилища(АдресДанных);



    Для Счетчик = Начало - 1 По Конец - 1 Цикл



        ОбработатьЭлемент(Данные[Счетчик]);



    КонецЦикла;



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



&НаКлиенте

Процедура ВыполнитьОбработку(Команда)



    Количество      = ИнициализацияОбработкиСервер();

    РазмерШага      = 10;

    КоличествоШагов = Цел(Количество / РазмерШага);

    КоличествоЦел   = КоличествоШагов * РазмерШага;



    Если КоличествоЦел < Количество Тогда

        Элементы.Индикатор.МаксимальноеЗначение = КоличествоШагов + 1;

    Иначе

        Элементы.Индикатор.МаксимальноеЗначение = КоличествоШагов;

    КонецЕсли;



    Для Счетчик = 1 По КоличествоШагов Цикл



        ОбработатьПорциюНаСервере(РазмерШага * (Счетчик - 1) + 1, РазмерШага * Счетчик, АдресДанных);

        Индикатор = Счетчик;

        ОбработкаПрерыванияПользователя();

        ОбновитьОтображениеДанных();



    КонецЦикла;



    Если КоличествоЦел < Количество Тогда



        ОбработатьПорциюНаСервере(КоличествоШагов * РазмерШага + 1, Количество, АдресДанных);

        Индикатор = Индикатор + 1;



    КонецЕсли;



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

 ГУИДССЫЛКИ	= СсылкаНаОбъект.УникальныйИдентификатор();

// или

НоменклатураСсылка = Справочники.Номенклатура.НайтиПоКоду("00013");

Если НЕ НоменклатураСсылка.Пустая() Тогда

   Сообщить("GUID = " + НоменклатураСсылка.УникальныйИдентификатор());

КонецЕсли; 

   

  Запрос = Новый Запрос;

       Запрос.Текст = "ВЫБРАТЬ

                        |    Номенклатура.НаименованиеПолное,

                        |    Номенклатура.ЕдиницаИзмерения,

                        |    Номенклатура.СтавкаНДС,

                        |    Номенклатура.НоменклатурнаяГруппа,

                        |    Номенклатура.СчетУчетаЗапасов,

                        |    Номенклатура.СчетУчетаЗатрат,

                        |    Номенклатура.Ссылка, 

                        |    Номенклатура.ЭтоГруппа

                        | ИЗ

                        |    Справочник.Номенклатура КАК Номенклатура"; 

       РезультатЗапроса = Запрос.Выполнить();

       СпрОбъект = РезультатЗапроса.Выбрать();    

       Пока СпрОбъект.Следующий()  Цикл

          СтрокаУИ = Объект.XMLСтрока(СпрОбъект.Ссылка);

          GUID = Справочники.Номенклатура.ПолучитьСсылку(Новый УникальныйИдентификатор(СокрЛП(СтрокаУИ)));          

        КонецЦикла;

   

 Инфо = СоздатьОбъект("AddIn.V7SysInfo");

ГлобальноУникальныйИдентификатор = Инфо.СоздатьGUID();

 Функция СоздатьGUID()

    TypeLib = CreateObject("Scriptlet.TypeLib");

    NewGUID = TypeLib.Guid();

    TypeLib = "";

    Возврат NewGUID;

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



//******************************************* 

Процедура Сформировать()

    g=СоздатьGUID();

    Сообщить("Создан GUID: "+g);

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

 Если Док_Источник.ВыбратьДокументы(ВыбНачПериода,ВыбКонПериода) = 1 Тогда

    Пока Док_Источник.ПолучитьДокумент() = 1 Цикл

Объект = БазаОле.ЗначениеВстрокуВнутр(Док_Источник.ТекущийДокумент());

ИдентификаторДокумента = СокрЛП(ПолучитьИД(Объект));



//   Для примера Объект возвращает {"O","0","0","3114","0","0","    258156CB "}, 

//   а ПолучитьИД(объект) = 258156CB

КонецЦикла;