Функция ВыбратьПуть(ФорматФайла)
    Если ФС.ВыбратьФайл(1, ИмяФайла, Каталог, "Выберите папку для сохранения отчета.", "(*."+ФорматФайла+")| *."+ФорматФайла+"", ""+ФорматФайла+"" ) = 0 Тогда
        Возврат "";
    КонецЕсли;
    Каталог_Плюс_ИмяФайла = ""+Каталог + ИмяФайла+"";
    ИмяФайла = СтрЗаменить(ВРЕГ(ИмяФайла), "."+ВРЕГ(ФорматФайла), "");
    Возврат(Каталог_Плюс_ИмяФайла); 
КонецФункции

Процедура ЗагрузитьДЛЛ()
            
    Попытка
        КонвертерPDF = СоздатьОбъект ("Йоксель.ГрафическийКонвертер.PDF");
    Исключение
        Если ЗагрузитьВнешнююКомпоненту ("SpreadSheet.dll") = 0 Тогда
            Предупреждение ("Не удалось загрузить компоненту SpreadSheet.dll");
            Форма.Закрыть(0);
        КонецЕсли;
        Попытка
            КонвертерPDF = СоздатьОбъект ("Йоксель.ГрафическийКонвертер.PDF");
        Исключение
            Сообщить("Ошибка Йоксель!");
            Сообщить(ОписаниеОшибки());
            Форма.Закрыть();
        КонецПопытки;
        
    КонецПопытки;
    
    
    Попытка
        МойФормекс = СоздатьОбъект("Сервис");        
    Исключение
        Если ЗагрузитьВнешнююКомпоненту ("Formex.dll") = 0 Тогда
            Предупреждение ("Не удалось загрузить компоненту Formex.dll");
            Форма.Закрыть(0);
        КонецЕсли;
        Попытка
            МойФормекс = СоздатьОбъект("Сервис");        
        Исключение
            Сообщить("Ошибка Формекс!");
            Сообщить("Ошибка: " + ОписаниеОшибки());
            Форма.Закрыть(0);
        КонецПопытки;
    КонецПопытки;


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

Процедура Сохранить_Как_Изображение()

    ЗагрузитьДЛЛ();

    ФорматыИзображений = СоздатьОбъект("СписокЗначений");
    ФорматыИзображений.ДобавитьЗначение("JPG", "Формат JPG");
    ФорматыИзображений.ДобавитьЗначение("BMP", "Формат BMP");
    ФорматыИзображений.ДобавитьЗначение("PNG", "Формат PNG");
    
    ФорматИзображения = 0;    
    Если МойФормекс.ВыбратьЗначение(ФорматыИзображений, ФорматИзображения, , 2) = 0 Тогда
        Возврат;
    КонецЕсли;
    
    ПутьКФайлу = ВыбратьПуть(ФорматИзображения);    
    Если ПустоеЗначение(ПутьКФайлу) = 1 Тогда
        Возврат;
    КонецЕсли;
    
    Если ПустоеЗначение(Таб) = 1 Тогда
        Возврат;
    КонецЕсли;
    
    Попытка        
        ТабДок = СоздатьОбъект("ТабличныйДокумент");
        ТабДок.ЗагрузитьИзТаблицы(Таб);
        ТабДок.ЗаписатьКакИзображение(ПутьКФайлу, ФорматИзображения);
        
        //** качество вроде тоже, а размер файла больше....
        //Конвертер = СоздатьОбъект ("Йоксель.ГрафическийКонвертер");
        //Конвертер.УстановитьДокумент (ТабДок);
        //Конвертер.КоличествоБитНаПиксел = 24;
        //
        //Картинка = Конвертер.ПолучитьИзображение ();        
        //Картинка.Записать (ПутьКФайлу, 1);

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

ОбъектСсылка = Справочники.Номенклатура.НайтиПоКоду(КодТовара).Ссылка;
ЗначениеСвойства = РегистрыСведений.ЗначенияСвойствОбъектов.Получить(Новый Структура("Объект, Свойство", ОбъектСсылка, ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию(ИмяСвойства))).Значение;

    БухИтоги.ВыбратьСчета();
       Пока БухИтоги.ПолучитьСчет()=1 Цикл
           БухИтоги.ВыбратьПериоды();
        Пока БухИтоги.ПолучитьПериод() = 1 Цикл 
            Если ((БухИтоги.ДО(1)<>0) ИЛИ (БухИтоги.КО(1)<>0))   Тогда
                Док        = БухИтоги.Операция.Документ;
                Сумма    = Формат(БухИтоги.Операция.Сумма,"Ч12.2");
                Таб.ВывестиСекцию("Док");
            КонецЕсли;
        КонецЦикла;
    КонецЦикла;

        
    спр=СоздатьОбъект("Справочник.Цены");
    спр.ИспользоватьВладельца(Товар);
    Цена    = 0;
    Если спр.НайтиПоРеквизиту("КатегорияЦены",ВыбКатегорияЦен,0)=1 Тогда   // пишите например сюда "Учетная" или там какую хотите получать цену
           ЦенаСтарая=спр.Цена.Получить(ДатаДок);                         // или например НачМесяца(Датадок) будем получать цену на начало месяца 01/06/2024 и т.д.
    КонецЕсли;

//Как легко запускать выполнение в фоне, не прибегая к долгому описанию фоновых процедур.
//Не буду растекаться мыслью по дереву и тянуть кота за все известные места, так как надеюсь, все согласятся, что фоновое выполнение это хорошо. Есть простой путь запускать любой код в фоне. Специалисты скорее //всего такой способ используют, но что-то в инете я описания не встретил, решил выложить. 

//Перво-наперво создаем общий модуль с именем например "ФоновоеВыполнение" с галкой "Сервер". Добавим туда пару процедур:

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

Процедура ФоноваяПроцедура(ТекстМодуля,ПараметрыВыполнения) Экспорт
    ПолныйТекстМодуля = "";
    Для Каждого ТекПараметр Из ПараметрыВыполнения Цикл
        ПолныйТекстМодуля = ПолныйТекстМодуля+ТекПараметр.Ключ+"=ПараметрыВыполнения."+ТекПараметр.Ключ+";"+Символы.ПС;
    КонецЦикла;
    ПолныйТекстМодуля = ПолныйТекстМодуля + ТекстМодуля;
    Выполнить(ПолныйТекстМодуля);
КонецПроцедуры
//И готово!

//Теперь для выполнения когда в любой момент мы можем поместить любую процедуру в текстовую переменную:

ТекстФоновойПроцедуры = "
|//Тут передаем текст фоновой процедуры, это может быть вызов каких то процедур или полноценный код
|//вызов процедур проще, т.к. тупо легче отлаживать, т.к. код в этой процедуре обычной отладке не поддастся,
|//а при вызове процедуры или функции мы ставим там точку останова и включаем в отладке автоматическое
|//подключение  фоновых заданий. Запускать можно любые методы для выполнения на сервере.
|
|ОбщийМодульСервер.ВыполнитьНужнуюЗадачу(Парметр1,Парметр2);"
И вызывать ее выполнение:

 ФоновоеВыполнение.ЗапуститьФоновоеВыполнение(ТекстФоновойПроцедуры,Новый Структура("Параметр1,Параметр2",Параметр1,Параметр2));

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

Процедура ВыполнитьКоманду(Идентификатор,ОбъектыНазначения) Экспорт
    Если Идентификатор =   "КорректировкаОтветственныхВДокументах" ТОгда
        КорректировкаОтветственныхВДокументах();
    КонецЕсли;    
КонецПроцедуры

&НаСервере
Процедура КорректировкаОтветственныхВДокументах() Экспорт
              //тут был текст запросов и т.д.
КонецПроцедуры

//Обработка элементов форматированного документа, входящего в состав параграфа, может оказаться полезной в том случае, 
//если нужно, например, убрать все оформление в виде курсива или полужирного шрифта.

//Пример:

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

//==========================================
Функция ПроверитьВид()
    Если ПустоеЗначение(ТекущийДокумент) = 0 Тогда
        //Если ТекущийДокумент.ЗапретРедактирования = 1 Тогда
        //    Возврат "BRUSH["+глПолучитьЦвет(204,204,204)+"]";      //серый фон
        Если ((ТекущийДокумент.Контрагент.КонтрольДокументов = 1) И (ТекущийДокумент.Проверен = 1)) Тогда
            Возврат "FONT["+глПолучитьЦвет(0,0,0)+"] BRUSH["+глПолучитьЦвет(255,255,255)+"]"; //белый  фон
        ИначеЕсли ((ТекущийДокумент.Контрагент.КонтрольДокументов = 1) И (ТекущийДокумент.Проверен = 0)) Тогда
            Возврат "FONT["+глПолучитьЦвет(0,0,0)+"] BRUSH["+глПолучитьЦвет(255, 222, 179)+"]"; //красный  фон
        КонецЕсли;
    КонецЕсли;
    Возврат "";
КонецФункции

Если Сотрудники.ЭтоГруппа() = 0 Тогда
       СписокЭлементов.ДобавитьЗначение(Сотрудники.ТекущийЭлемент());
КонецЕсли;

    текОтвет = Вопрос("У документі змінено реквізит підрозділу. Заповнити підрозділ по рядкам документу?","Да+Нет");
    Если текОтвет = "Да" Тогда
        ВыбратьСтроки();
        Пока ПолучитьСтроку()=1 Цикл
            СтрУчасток = Подразделение;
        КонецЦикла;
    КонецЕсли;

//або ось так: якщо заповнено реквізит "разрешил" в документі "заказ", то ставимо "да" для "готов к получению"
    Если ПустоеЗначение(Разрешил)=0 Тогда
        ГотовКПолучению = Перечисление.ДаНет.Да;
    Иначе
        ГотовКПолучению = Перечисление.ДаНет.Нет;        
    КонецЕсли;