&НаСервере
Функция ПрименитьУсловноеФорматирование()
    ЭлементОформления = Список.УсловноеОформление.Элементы.Добавить();
    ЭлементОтбора = ЭлементОформления.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
    ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Окончание");
    ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Меньше;
    ЭлементОтбора.ПравоеЗначение = ТекущаяДата();
    ЭлементОтбора.Использование  = Истина;
    ЭлементОформления.Оформление.УстановитьЗначениеПараметра("ЦветТекста", WebЦвета.СветлоКоралловый);
    //Если нужно выделять конккретные реквизиты, в противном случае выделяется вся строка
    ПолеОформления = ЭлементОформления.Поля.Элементы.Добавить();
    ПолеОформления.Поле = Новый ПолеКомпоновкиДанных("Наименование");
    ПолеОформления.Использование = Истина;
КонецФункции

Процедура УдалениеСтрокВТЧ ()  
    ВсегоСтрок = Объект.Товары.Количество(); // Определяем количество строк в ТЧ
    ИндексСтроки = 0; // Устанавливаем индекс в начало
    Пока ИндексСтроки < ВсегоСтрок Цикл // В цикле обходим ТЧ по индексам
    
        ТекущаяСтрока= Объект.Товары[ИндексСтроки]; 
        Если ТекущаяСтрока.НДС = ПредопределенноеЗначение("Перечисление.СтавкаНДС.БезНДС") Тогда
            Объект.Товары.Удалить(ИндексСтроки); // Если условие выполнено удаляем строку
            ВсегоСтрок = ВсегоСтрок -1; // Уменьшаем индекс строки для того чтобы после удаления не перепрыгнуть строку
        Иначе
            ИндексСтроки = ИндексСтроки +1; // Если условие не выполнено увеличиваем индекс          
        КонецЕсли      
    КонецЦикла;   
КонецПроцедуры

//Создание структуры
Автомобиль = Новый Структура ("Марка,ДатаВыпуска,ПробегКМ","BMW",Дата('20190101'),25000);

//Добавление элементов, установка значений
Автомобиль.Вставить("Цвет","Белый");//Добавили ключ и значение.
Автомобиль.Вставить("Цвет","Чёрный");// Т.к. ключ "Цвет" уже существует, произошла замена значения.

//Другие способы для установки значений
Автомобиль.Цвет = "Белый";//Для ключа "Цвет" установили значение "Белый"
Автомобиль["Цвет"] = "Чёрный";//Для ключа "Цвет" установили значение "Чёрный"

//Как узнать количество элементов структуры
КоличествоЭлементов = Автомобиль.Количество();

//Обход элементов структуры
Для Каждого Элемент Из Автомобиль Цикл
Ключ = Элемент.Ключ;
Значение = Элемент.Значение;
Сообщить(Ключ + " - " + Значение);
КонецЦикла;

//Проверить ключ структуры на существование
// Если ключ существует, выражение вернёт "ИСТИНА" иначе вернёт "ЛОЖЬ"
Автомобиль.Свойство("Марка");

//Получить значение элемента структуры по ключу
ЗначениеЭлемента = Неопределено;
Автомобиль.Свойство("Марка",ЗначениеЭлемента);

//Удалить элемент структуры
Автомобиль.Удалить("Цвет");

//Удалить все элементы структуры
Автомобиль.Очистить();

//Пример преобразования структуры в таблицу значений
&НаКлиенте
Процедура СтруктураВТЗ(Команда)
РасписаниеДня = Новый Структура();
РасписаниеДня.Вставить("Начало","08:00");
РасписаниеДня.Вставить("Обед","12:00");
РасписаниеДня.Вставить("Конец","17:00");
ТаблицаЗнач = СтруктураВТЗНаСервере(РасписаниеДня);
КонецПроцедуры
 
&НаСервере
Функция СтруктураВТЗНаСервере(РасписаниеДня)
 
ТЗ = Новый ТаблицаЗначений;
ТЗ.Колонки.Добавить("Период");
ТЗ.Колонки.Добавить("Время");
 
Для Каждого КлючИЗначение из РасписаниеДня Цикл
НоваяСтрока = ТЗ.Добавить();
НоваяСтрока.Период = КлючИЗначение.Ключ;
НоваяСтрока.Время = КлючИЗначение.Значение;
КонецЦикла;
Возврат ТЗ;
КонецФункции

// z1 - фамилия имя отчество например Железняков Юрий Юрьевич
// z2 - Падеж ( по  умолчанию = 2 - родительный)
// 2 - родительный  ( нет кого?    ) Железнякова Юрия Юрьевича     
// 3 - дательный    ( кому?        ) Железнякову Юрию Юрьевичу 
// 4 - винительный  ( вижу кого?   ) Железнякова Юрия Юрьевича  
// 5 - творительный ( кем?         ) Железняковым Юрием Юрьевичем    
// 6 - предложный   ( о ком?       ) Железнякове Юрии Юрьевиче 
// Если задать Z2 меньше 0, то на выходе получим от -1=Железняков Ю. Ю. до -6=Железнякове Ю. Ю.
// z3 - параметр Пол может не указываться, но при наличии фамилий с 
// инициалами точное определение пола невозможно, поэтому предлагается задавать пол этим
// параметром  1 - мужской 2 - женский  
// ДЛЯ СКЛОНЕНИЯ ПРОФЕССИЙ ИСПОЛЬЗУЙТЕ ФУНКЦИЮ ПАДЕЖП И БУДЕТ ВАМ СЧАСТЬЕ!
// ---------------------------------------------------------------------------------------
// Бибик Галушка Цой Николайчик Наталия Петровна Герценберг Кривошей Капица-Метелица
// Если Падеж(Фио ,1 ,3),       то на выходе получим Фамилия Имя Отчество и т.д.
// Если Падеж(Фио ,1 ,3,"1" ),  то                   Фамилия 
// Если Падеж(Фио ,1 ,3,"2" ),  то                   Имя 
// Если Падеж(Фио ,1 ,3,"3" ),  то                   Отчество 
// Если Падеж(Фио, 1 ,3,"12" ), то                   Фамилия Имя 
// Если Падеж(Фио, 1 ,3,"23" ), то                   Имя Отчество 
// Если Падеж(Фио,-1 ,3,"231" ),то                   И. О. Фамилия 
// Если Падеж(Фио,-1 ,3,"23" ), то                   И. О.  
// 10-11-2003 3-20

Функция Падеж(z1,z2=2,z3=3,Знач z4="123") Экспорт
    z1=СокрП(z1);
    z5=Прав(z1,4);
  z6=Найти("оглы кызы",z5);
    Возврат Падежик(?(z6>0,Лев(z1,СтрДлина(z1)-5),z1),z2,z3,z4)+?(z6>0,z5,"");
КонецФункции

Функция Падежик(z1,z2=2,z3=3,Знач z4="123",z5=1) Экспорт
  Возврат?(z5<4,Падежик(СокрЛП(СтрЗаменить(Сред(z1,Найти(z1+" "," ")+1),".",". ")),z2,z3,СтрЗаменить(z4,z5,ПадежС(Лев(z1,Найти(z1+" "," ")-1),z2,Сред("ча"+НРег(Прав(СокрП(z1),1)),z3,1),z5)+" "),z5+1),z4);
КонецФункции

Функция ПадежП(Знач z1,Знач z2,z3=0) Экспорт
  z1=СокрЛП(z1);z4=Найти(z1+" "," ")+1;z5=Лев(z1,z4-2);z6=Прав(z5,2);
  z7=?((Найти("ая ий ый",z6)>0)и(Найти("ющий нный",Сред(z1,z4-5,4))=0)и(z3=0),"1","*");
Возврат НРег(?((z6="ая")или(Прав(z6,1)="а"),ПадежС(z5,z2,z7,1)+" "+ПадежС(Сред(z1,z4),z2),ПадежС(z5,z2,"ч",1)+?((z6="ий")и(Найти(z1," ")=0),""," "+?(z7="1",ПадежП(Сред(z1,z4),z2,Число(z7)),Сред(z1,z4)))));
КонецФункции

Функция ПадежС(z1,Знач z2=2,Знач z3="*",z4=0) Экспорт
  z5=Найти(z1,"-");
  z6=?(z5=0,"","-"+ПадежС(Сред(z1,z5+1,СтрДлина(z1)-z5+1),z2,z3,z4));
  z1=НРег(?(z5=0,z1,Лев(z1,z5-1)));
  z7=Прав(z1,3);z8=Прав(z7,2);z9=Прав(z8,1);
  z5=СтрДлина(z1);
  za=Найти("ая ия ел ок яц ий па да ца ша ба та га ка",z8);
  zb=Найти("аеёийоуэюяжнгхкчшщ",Лев(z7,1));
  zc=Макс(z2,-z2);
  zd=?(za=4,5,Найти("айяь",z9));
  zd=?((zc=1)или(z9=".")или((z4=2)и(Найти("оиеу"+?(z3="ч","","бвгджзклмнпрстфхцчшщъ"),z9)>0))или((z4=1)и(Найти("мия мяэ лия кия жая лея",z7)>0)),9,?((zd=4)и(z3="ч"),2,?(z4=1,?(Найти("оеиую",z9)+Найти("их ых аа еа ёа иа оа уа ыа эа юа яа",z8)>0,9,?(z3<>"ч",?(za=1,7,?(z9="а",?(za>18,1,6),9)),?(((Найти("ой ый",z8)>0)и(z5>4)и(Прав(z1,4)<>"опой"))или((zb>10)и(za=16)),8,zd))),zd)));
  ze=Найти("лец вей бей дец пец мец нец рец вец аец иец ыец бер",z7);
  zf=?((zd=8)и(zc<>5),?((zb>15)или(Найти("жий ний",z7)>0),"е","о"),?(z1="лев","ьв",?((Найти("аеёийоуэюя",Сред(z1,z5-3 ,1))=0)и((zb>11)или(zb=0))и(ze<>45),"",?(za=7,"л",?(za=10,"к",?(za=13,"йц",?(ze=0,"",?(ze<12,"ь"+?(ze=1,"ц",""),?(ze<37,"ц",?(ze<49,"йц","р"))))))))));
  zf=?((zd=9)или((z4=3)и(z3="ы")),z1,Лев(z1,z5-?((zd>6)или(zf<>""),2,?(zd>0,1,0)))+zf+СокрП(Сред("а у а "+Сред("оыые",Найти("внч",z9)+1,1)+"ме "+?(Найти("гжкхш",Лев(z8,1))>0,"и","ы")+" е у ойе я ю я ем"+?(za=16,"и","е")+" и е ю ейе и и ь ьюи и и ю ейи ойойу ойойойойуюойойгомуго"+?((zf="е")или(za=16)или((zb>12)и(zb<16)),"и","ы")+"мм",10*zd+2*zc-3,2)));
Возврат ?(""=z1,"",?(z4>0,ВРег(Лев(zf,1))+?((z2<0)и(z4>1),".",Сред(zf,2)),zf)+z6);
КонецФункции

&НаСервере
&После("ПриСозданииНаСервере")
Процедура ОР_ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    ОР_ДобавлениеСуществующегоРеквизита();
    ОР_ЗаполнениеСуществующегоРеквизитаПоУмолчанию();
    ОР_ДобавлениеНовогоРеквизита();
КонецПроцедуры

&НаСервере
Процедура ОР_ДобавлениеСуществующегоРеквизита()
    //Вывод в ручную созданный реквизит ТестовыйРеквизитКоментарий
    //Элементы.РеквизитСостояние - реквизит перед которым вставляем
    //Если не указвать Элемент перед которым вставляем новый элемент встанет последним в группу
    НовоеПоле = Элементы.Вставить("ТестовыйРеквизитКоментарий", Тип("ПолеФормы"), Элементы.ГруппаСтатусПриоритет, Элементы.РеквизитСостояние);
    //Варианты свойств
    //Элемент.Подсказка
    //Элемент.Заголовок
    //Элемент.АвтоОтметкаНезаполненного
    //Элемент.ТолькоПросмотр
    //Элемент.УстановитьДействие("ПриИзменении", "ПроцедураДействия");
    НовоеПоле.ПутьКДанным = "Объект.ТестовыйРеквизитКоментарий";
    НовоеПоле.Вид = ВидПоляФормы.ПолеВвода; 
КонецПроцедуры

&НаСервере
Процедура ОР_ЗаполнениеСуществующегоРеквизитаПоУмолчанию()    
    //Програмно добавляем данные в Реквизит
    //Если реквизит пустой Добавляем тестовую строку
    Если Не ЗначениеЗаполнено(Объект.ТестовыйРеквизитКоментарий) Тогда
        Объект.ТестовыйРеквизитКоментарий = "Добро пожаловать!"  ;
    КонецЕсли;
КонецПроцедуры

&НаСервере
Процедура ОР_ДобавлениеНовогоРеквизита()
     НовыйРеквизит = Элементы.Вставить("ТестНовыйРеквизит",Тип("ДекорацияФормы"), Элементы.ГруппаОсновное, Элементы.Комментарий);
     !!!ВНИМАТЕЛЬНО проставлять ВИД!!!
     НовыйРеквизит.Вид = ВидДекорацииФормы.Надпись;
     НовыйРеквизит.ЦветТекста = Новый Цвет(255,0,0);
     НовыйРеквизит.Заголовок = "По договору: " + Объект.НалогообложениеНДС;
 КонецПроцедуры

Если ТипЗнч(ДанныеПечати.Ссылка) = Тип("ДокументСсылка.СчетФактураВыданный") Тогда 
        ДокументОснование = ДанныеПечати.Ссылка.ДокументОснование;
    ИначеЕсли ТипЗнч(ДанныеПечати.Ссылка) = Тип("ДокументСсылка.РеализацияТоваровУслуг") Тогда 
        ДокументОснование = ДанныеПечати.Ссылка;
    КонецЕсли;

&НаКлиенте
Процедура РазрешениеИзминенияБонусов()
    Если Объект.РазрешитьИзменятьБонус Тогда 
        Элементы.БонусЗаКлиента.ТолькоПросмотр = Ложь;
    Иначе 
        Элементы.БонусЗаКлиента.ТолькоПросмотр = Истина;
        ОР_РассчитатьБонусыКлиента();
    КонецЕсли;
КонецПроцедуры

//Оперативное проведение (проведение на текущее время!  !!!ОСТОРОЖНО)
ЭтотОбъект.Записать(РежимЗаписиДокумента.Проведение, РежимПроведенияДокумента.Оперативный);
//Неоперативное проведение (проведение на дату Документа!)
ЭтотОбъект.Записать(РежимЗаписиДокумента.Проведение, РежимПроведенияДокумента.Неоперативный);

//Оповещение в нижней части окна (в трее!)
Процедура КомандаДиалогОповещение(Команда)
    ПоказатьОповещениеПользователя("Внимание! Оповещение пользователю!!!");
КонецПроцедуры

//Диалоговое окно запрос ЧИСЛА
Процедура ПоказатьДиалогВводаЧисла (Команда)
    перемНачальноеЧисло = 0;
    КакуюПроцедуруВыполнитьПосле = Новый ОписаниеОповещения("ПослеВводаЧисла", ЭтотОбъект);
    ПоказатьВводЧисла(КакуюПроцедуруВыполнитьПосле, перемНачальноеЧисло); //Вызов процедуры диалога!
КонецПроцедуры
 
Процедура ПослеВводаЧисла (перемЧисло, ДополнительныеПараметры) Экспорт //Обязательно Экспотная
    Если перемЧисло <> Неопределено Тогда
        Сообщение = Новый СообщениеПользователю;
        Сообщение.Текст = "Ваш возраст: " + перемЧисло;
        Сообщение.Сообщить();
    КонецЕсли;
КонецПроцедуры

//Диалоговое окно запрос СТРОКИ
Процедура ПоказатьДиалогВводаСтроки (Команда)
    перемНачальнаяСтрока = 0;
    КакуюПроцедуруВыполнитьПосле = Новый ОписаниеОповещения("ПослеВводаСтроки", ЭтотОбъект);
    ПоказатьВводСтроки(КакуюПроцедуруВыполнитьПосле, перемНачальнаяСтрока, "Как вас зовут"); //Вызов процедуры диалога! (3 параметр - Заголовок)
КонецПроцедуры
 
Процедура ПослеВводаСтроки (перемСтрока, ДополнительныеПараметры) Экспорт //Обязательно Экспотная
    Если перемСтрока <> Неопределено Или ПустаяСтрока(перемСтрока) Тогда
        Сообщение = Новый СообщениеПользователю;
        Сообщение.Текст = "Рад знакомству: " + перемСтрока;
        Сообщение.Сообщить();
    КонецЕсли;
КонецПроцедуры

//Диалоговое окно запрос ДАТЫ
Процедура ПоказатьДиалогВводаДаты (Команда)
    перемНачальнаяДата = Неопределено;
    КакуюПроцедуруВыполнитьПосле = Новый ОписаниеОповещения("ПослеВводаДаты", ЭтотОбъект);
    ПоказатьВводДаты(КакуюПроцедуруВыполнитьПосле, перемНачальнаяДата, "Введите год рождения", ЧастиДаты.Дата); //Вызов процедуры диалога!
 
КонецПроцедуры
 
Процедура ПослеВводаДаты (перемДаты, ДополнительныеПараметры) Экспорт //Обязательно Экспотная
    Если перемДаты <> Неопределено Или ПустаяСтрока(перемДаты) Тогда
        Сообщение = Новый СообщениеПользователю;
        Сообщение.Текст = "Год рождения: " + Формат(перемДаты, "ДЛФ=DD");
        Сообщение.Сообщить();
    КонецЕсли;
КонецПроцедуры

//Диалоговое окно ПРЕДУПРЕЖДЕНИЯ
Процедура КомандаДиалогПредупреждение(Команда)
    Оповещение = Новый ОписаниеОповещения ("ПоказПредупреждение", ЭтотОбъект);
    ПоказатьПредупреждение(Оповещение, "Текст сообщения"); //Процедура заглушка не обязательна. Без нее вид Предупреждения должен быть следующим - ПоказПредупреждение (, "Текст сообщения");
КонецПроцедуры
 
Процедура ПоказПредупреждение(ДополнительныеПараметры) Экспорт //Процедура заглушка Экспотная
 
КонецПроцедуры

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

//Диалоговое окно ВОПРОСА (со своими кнопками
Процедура КомандаДиалогВопросСоСвоимиКнопками(Команда)
    Оповещение = Новый ОписаниеОповещения ("ВопросСоСвоимиКнопками", ЭтотОбъект);  
    
    СписокКнопок = Новый СписокЗначений;
    СписокКнопок.Добавить("СоздатьНовый", "Создать новый Документ");
    СписокКнопок.Добавить("ОткрытьСписокДокументов", "Открыть список Документов");
    СписокКнопок.Добавить("КнопкаОтмена", "Отмена");
    
    ПоказатьВопрос(Оповещение, "Выберете действие", СписокКнопок);
КонецПроцедуры
 
Процедура ВопросСоСвоимиКнопками(РезультатВыбора, ДополнительныеПараметры) Экспорт 
    Если РезультатВыбора = "СоздатьНовый" Тогда
        СозданиеНовогоДокументаНаСервере();
    ИначеЕсли РезультатВыбора = "ОткрытьСписокДокументов" Тогда
        ОткрытьСписокДокументов();
    ИначеЕсли РезультатВыбора = "КнопкаОтмена" Тогда
        Сообщение = Новый СообщениеПользователю;
        Сообщение.Текст = "Отмена операции";
        Сообщение.Сообщить();
    КонецЕсли;
КонецПроцедуры
 
#Область ПроцедурыДляВопроса
&НаСервере
Процедура СозданиеНовогоДокументаНаСервере()
    НовыйДокумент = Документы.ЗаказКлиента.СоздатьДокумент();  
    НовыйДокумент.ПолучитьФорму("ФормаДокумента").Открыть();
КонецПроцедуры
 
&НаКлиенте
Процедура ОткрытьСписокДокументов()
    ПараметрыФормы = Новый Структура("КлючНазначенияФормы", "ДокументыПродажи");
    
    ОткрытьФорму("Обработка.ЖурналДокументовПродажи.Форма.СписокДокументов", ПараметрыФормы);
КонецПроцедуры 
 
#КонецОбласти

//Уведомление в ОПОВЕЩЕНИЯХ 1С (Верхний правый угол)
&НаКлиенте
Процедура ВыводОповещений(МассивПросроченныхЗадач)
    Для каждого ЭлементМассива Из МассивПросроченныхЗадач Цикл
        Оповещения = Новый ОписаниеОповещения("НажатиеОповещения", ЭтотОбъект, ЭлементМассива);
        ПоказатьОповещениеПользователя("Просроченная задача: " + ЭлементМассива.Наименование, Оповещения,  
                                       "Открыть задачу", БиблиотекаКартинок.ОткрытьФайл, СтатусОповещенияПользователя.Важное);
    КонецЦикла;
КонецПроцедуры        
 
&НаКлиенте
Процедура НажатиеОповещения(ДополнительныеПараметры) Экспорт 
    ПараметрОтрытия = Новый Структура ("Ключ", ДополнительныеПараметры);
    ОткрытьФорму("Справочник.Встречи.Форма.ФормаЭлемента", ПараметрОтрытия);
КонецПроцедуры

//Шаблон для открытия отчета из Обработки
&НаСервере
Функция Команда1НаСервере()
    ОбработкаОбъект = РеквизитФормыВЗначение("Объект"); //Стандартная строка ОбработкаОбъект - через данный параметр обращаемся в Модуль обработки
    МассивОбъектов = Новый Массив(); //Стандартная строка
    МассивОбъектов.Добавить(СсылкаНаОбъект);//СсылкаНаОбъект - Имя реквизита на форме
    //Стандартный код
    //++
    ОбъектыПечати = Новый СписокЗначений;
    ОбъектыПечати.ЗагрузитьЗначения(МассивОбъектов); 
    //--
    
    //Данную таблицу получаем если в основном модуле вызывается данная таблица
    ТаблицаСведенийАктаОбОказанииУслуг = ОбработкаОбъект.ПолучитьТаблицуСведенийАктаОбОказанииУслуг(МассивОбъектов); 
 
    //Данная структура полностью копируется из модуля
    ПараметрыПечати = Новый Структура;
    ПараметрыПечати.Вставить("ВидДокументаПечати", "ПоступлениеТоваровУслуг");
    ПараметрыПечати.Вставить("ИмяПараметровПечати", "ПАРАМЕТРЫ_ПЕЧАТИ_ПоступлениеТоваровУслуг_Акт");
    ПараметрыПечати.Вставить("ИмяМакетаПечати", "ПФ_MXL_Акт"); //Обязательно заменить на Макет из Обработки
    
    //Получаем таблицу значений обращаясь в Функцию с основного Модуля
    //!!!!!ВЫЗЫВАЕМАЯ ПРОЦЕДУРА ОБЯЗАТЕЛЬНО ДОЛЖНА БЫЛЬ ЭКСПОРТНОЙ
    
    Таб = ОбработкаОбъект.ПечатьАктаОбОказанииУслуг(ТаблицаСведенийАктаОбОказанииУслуг, ОбъектыПечати, ПараметрыПечати);
        
    Возврат Таб;
КонецФункции

&НаКлиенте
Процедура ВыполнитьПечать(Команда)
    //Стандартный код
    ТабДок = Команда1НаСервере();
    ТабДок.Показать();
КонецПроцедуры

//Стандартная Функция 
Функция СведенияОВнешнейОбработке() Экспорт
    ПараметрыРегистрации = Новый Структура;
    МассивНазначений = Новый Массив;
    МассивНазначений.Добавить("Документ.РеализацияТоваровУслуг"); //Указываем документ к которому делаем внешнюю печ. форму
    
    ПараметрыРегистрации.Вставить("Вид", "ПечатнаяФорма"); //может быть - ПечатнаяФорма, ЗаполнениеОбъекта, ДополнительныйОтчет, СозданиеСвязанныхОбъектов... 
    ПараметрыРегистрации.Вставить("Назначение", МассивНазначений); //Выбираем заранее готовый массив с документами
    ПараметрыРегистрации.Вставить("Наименование", "Счет на оплату (шаблон)"); //имя под которым обработка будет зарегестрирована в справочнике внешних обработок
    ПараметрыРегистрации.Вставить("БезопасныйРежим", ЛОЖЬ); //В безопасном режим некоторые функции не работают
    ПараметрыРегистрации.Вставить("Версия", "1.0"); //Произвольное число. На усмотрение программиста
    ПараметрыРегистрации.Вставить("Информация", "Эту ВПФ мы сделали для того что бы посмотреть возможности БСП "); //Происзольная информация
    ТаблицаКоманд = ПолучитьТаблицуКоманд();
    ДобавитьКоманду(ТаблицаКоманд, "Счет на оплату (шаблон)", "СчетНаОплатуВРТУ", "ВызовСерверногоМетода", Истина, "ПечатьMXL");
    ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд);
 
    Возврат ПараметрыРегистрации;
КонецФункции

//Стандартная Функция (Без изменений)
Функция ПолучитьТаблицуКоманд()
    Команды = Новый ТаблицаЗначений;
    Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка"));//как будет выглядеть описание печ.формы для пользователя
    Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка")); //имя макета печ.формы
    Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка")); //ВызовСерверногоМетода (без изменения!)
    Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));
    Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка"));// ПечатьMXL (без изменения!)
    Возврат Команды;
КонецФункции

//Стандартная Функция (Без изменений)
Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = "")
 
    НоваяКоманда = ТаблицаКоманд.Добавить();
    НоваяКоманда.Представление = Представление; 
    НоваяКоманда.Идентификатор = Идентификатор;
    НоваяКоманда.Использование = Использование;
    НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение;
    НоваяКоманда.Модификатор = Модификатор;
 
КонецПроцедуры

Процедура Печать(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт
    Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "НоменклатураСШтрихкодами") Тогда
        ТабличныйДокумент = СформироватьПечатнуюФорму (МассивОбъектов[0]);
        УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "НоменклатураСШтрихкодами", НСтр("ru = 'Номенклатура с Штрихкодами'"), ТабличныйДокумент);
    КонецЕсли; 
КонецПроцедуры

Функция СформироватьПечатнуюФорму (СсылкаНаДокумент) Экспорт 
    ТабличныйДокумент = Новый ТабличныйДокумент;
    
    Макет = ПолучитьМакет("Макет");
    
    //ШапкаДокумента
    Область = Макет.ПолучитьОбласть("ШапкаМакета");
    Область.Параметры.НаименованиеДокумента = СсылкаНаДокумент;
    ТабличныйДокумент.Вывести(Область);
    
    //ШапкаТЧ
    Область = Макет.ПолучитьОбласть("ШапкаТЧ");
    ТабличныйДокумент.Вывести(Область);
    
    //ДанныеТЧ     
    Область = Макет.ПолучитьОбласть("ДанныеТЧ");  
 
    Для каждого СтрокаТаблицы Из ПолучениеЗапроса(СсылкаНаДокумент) Цикл
        Область.Параметры.Артикул = СтрокаТаблицы.НоменклатураАртикул; 
        Область.Параметры.Наименование = СтрокаТаблицы.НоменклатураНаименованиеПолное;
        Область.Параметры.Штрихкод = СтрокаТаблицы.Штрихкод;
        ТабличныйДокумент.Вывести(Область);
    КонецЦикла;
    
    Возврат ТабличныйДокумент;
КонецФункции