// получаем новый UID объекта

Новый_UID  = Новый УникальныйИдентификатор(«1014270d-d794-11df-825c-001517542b79»);

// пытаемся получить объект по UID

НоваяСсылка = Справочники.Номенклатура.ПолучитьСсылку(Новый _UID);

// пытаемся получить объект

НашаНоменклатура = НоваяСсылка.ПолучитьОбъект();

// проверяем есть ли объект

Если НашаНоменклатура = неопределено Тогда

// создаем новый элемент

НашаНоменклатура = Справочники. Номенклатура.СоздатьЭлемент();

// для нового объекта – еще не записанного мы можем присвоить UID

НашаНоменклатура.УстановитьСсылкуНового(НоваяСсылка);

// говорим программе что это загрузка объекта

НашаНоменклатура.ОбменДанными.Загрузка = Истина;

// присваем наименование

НашаНоменклатура.Наименование = «Служебная номенклатура»;

//записываем

НашаНоменклатура.Записать();

КонецЕсли;   

 НашаНоменклатура.ОбменДанными.Загрузка = Истина;   

 // создаем НаборЗаписей

	НаборД = РегистрыСведений.НашРегистр.СоздатьНаборЗаписей();



	// устанавливаем параметры отбора по полному набору Измерений регистра:

	НаборД.Отбор.Измерение1.Установить(Значение1);

	НаборД.Отбор.Измерение2.Установить(Значение2);

	НаборД.Отбор.Измерение3.Установить(Значение3);



	// Создаем новую строку в этом наборе записей:

	СтрокаДанных = НаборД.Добавить();



	// определяем значения Измерений этой строки:

	СтрокаДанных.Измерение1 = Значение1;

	СтрокаДанных.Измерение2 = Значение2;

	СтрокаДанных.Измерение3 = Значение3;



	// определяем значения Ресурсов

	СтрокаДанных.Ресурс1 = Значение4;

	СтрокаДанных.Ресурс2 = Значение5;



	// определяем значения Реквизитов

	СтрокаДанных.Реквизит1 = Значение6;



	// пример другого варианта присвоения значения, когда, например, внутри цикла нужно указать значение ресурса, перебирая в цикле разные имена ресурсов (ИмяПоля):

	СтрокаДанных[ИмяПоля] = Значение7; // где ИмяПоля - наименование измерения, ресурса или реквизита регистра



	НаборД.Записать();

   

 // Параметры:

// ОГРН - строка - проверяемый основной государственный регистрационный номер

Функция ОГРНсоответствуетТребованиям(Знач ОГРН) Экспорт

	Попытка

		ОГРНБезВедущихНулей = Формат(ОГРН,"ЧГ=0");

	Исключение

		Возврат Ложь;

	КонецПопытки;

	ОГРН = Строка(ОГРНБезВедущихНулей);

	Если СтрДлина(ОГРН) <> 13 Тогда

		Возврат Ложь;

	Иначе

		Возврат Истина;//проверка временно отключена

	КонецЕсли;

	ОГРН12 = Число(Лев(ОГРН, 12));

	Если Прав(Формат(ОГРН12%11, "ЧН=0; ЧГ=0"), 1) = Прав(ОГРН, 1) Тогда

		Возврат Истина;

	Иначе

		Возврат Ложь;

	КонецЕсли;

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

 

Стр = Шаблон("Это название услуги: [Услуга.Наименование]");

//   выдает: "Это название услуги: Доставка Товара"

 

// ниже - пример с дополнением пробелами

Стр = ФиксШаблон("Это название услуги [Услуга.Наименование]");

//   выдает: "Это название услуги Доставка Товара"

// далее - с сокращением строки

Стр = ФиксШаблон("Это название услуги [Услуга.Наименование]");

//   выдает: "Это название услуги Упаковка товара"

 

// Возвращает объект любого типа. По сути является универсальной, но

// работает дольше чем _Вычислить(), поэтому  рекомендовал бы

// использовать ее когда нужно вернуть именно объект

Функция _ВычислитьОбъект( Выражение ) Экспорт

      Возврат ЗначениеИзСтроки(Шаблон( "[ЗначениеВСтроку("+ Выражение+")]"));

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



// Возвращает число. Использую ее когда нужно получить результат выполнения

// лок. функции, которые обычно возвращают 0/1 или когда просто нужно вызвать

// лок. функцию из глоб. модуля

Функция _Вычислить( Выражение) Экспорт

      Возврат Число(Шаблон( "["+ Выражение+ "]"));

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

Вызов функции осуществляется так:

_Вычислить( "ИмяЛокФункции()");



// Возвращает строку. Функцию удобно использовать когда нужно получить значение

// лок. переменной в гл. модуле

Функция _ВычислитьСтроку( Выражение) Экспорт

      Возврат Строка(Шаблон( "["+ Выражение+ "]"));

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

Вызов функции осуществляется так:

глПерем= _ВычислитьСтроку( "ЛокПерем");



//  Присвоение. Функция используется для присвоения значений локальным переменным из гл. модуля

Функция _Присвоение ( Приемник ,Источник) Экспорт

      Попытка

              Приемник = Источник ;

      Исключение

       КонецПопытки;

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

Функция вызывается примерно так:

_Вычислить ("_Присвоение(ЛокПерем,глПерем)" );

  Процедура ВводНового(Копирование) 

 

//E_Migachev автоматический расчет следующего номера             

//Выберем документы в обратном порядке

ДокНачислениеОтпуска = СоздатьОбъект("Документ.НачислениеОтпуска"); 

ДокНачислениеОтпуска.ОбратныйПорядок(1);

ДокНачислениеОтпуска.ВыбратьДокументы(НачКвартала(РабочаяДата()-15),КонКвартала(РабочаяДата()+27));

ДокНачислениеОтпуска.ПолучитьДокумент();  

//Получим последний числовой номер

новномдк=Строка(число(Сред(ДокНачислениеОтпуска.НомерДок,3,7)));

стрдлинаномдк=СтрДлина(Строка(СокрЛП(Сред(ДокНачислениеОтпуска.НомерДок,3,7))));

новномдк=Число(новномдк)+1; 

иткол=стрдлинаномдк-СтрДлина(новномдк); 

префиксдк="ОТ";

если иткол>0 тогда 

	для н=1 по иткол цикл

		префиксдк=префиксдк+строка(0);		

	конеццикла;

конецесли;	

докном=префиксдк+новномдк;   

//Если документ исправление то нужен префикс И

Если Исправление=1 Тогда 

	знтри=Прав(ДокНачислениеОтпуска.НомерДок,3);

	Если Строка(Лев(знтри,1))="И" Тогда

		чзнтри=Число(Прав(знтри,2));

		чзнтри=чзнтри+1;

	Иначе

		чзнтри=1;

	КонецЕсли;     

	Если СтрДлина(чзнтри)=1 Тогда

	докном=докном+"-И0"+Строка(чзнтри);	

	Иначе

	докном=докном+"-И"+Строка(чзнтри);	

	КонецЕсли;

КонецЕсли;    

//Присвоим новый номер

НомерДок=докном; //E_Migachev автоматич расчет номера

 //Функция присвоения значения

Функция ПолучениеВР(ВР,Объект)

        ВР = Объект;

        Возврат "";

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

 

//Ниже приведен цикл перебора видов расчетов

сзВидыРасчетов = СоздатьОбъект("СписокЗначений");

Для А = 1 По Метаданные.ВидРасчета() Цикл

       текВР = Метаданные.ВидРасчета(А);

       Шаблон("[ПолучениеВР(ВР,"+текВР.ПолныйИдентификатор()+")]");

       Если ПустаяСтрока(текВР.Синоним) = 1 Тогда

               стрВР = текВР.Идентификатор;

       Иначе

               стрВР = текВР.Синоним;

       КонецЕсли;

       сзВидыРасчетов.ДобавитьЗначение(ВР,стрВР);

КонецЦикла;