УзелПарам=СоздатьУзел("ЗначениеПараметра");
УстановитьАтрибут(УзелПарам,"Имя","НашПараметр1");
УстановитьАтрибут(УзелПарам,"Тип","Строка");
ЗаписатьЭлемент(УзелПарам,"Значение","Значение нашего параметра 1");
ДобавитьПодчиненный(rootNode,УзелПарам);


УзелПарам=СоздатьУзел("ЗначениеПараметра");
УстановитьАтрибут(УзелПарам,"Имя","НашПараметр2");
УстановитьАтрибут(УзелПарам,"Тип","Булево");
ЗаписатьЭлемент(УзелПарам,"Значение","true");
ДобавитьПодчиненный(rootNode,УзелПарам);   

 АлгПослеЗагрузкиПараметров=
"СтрокаКода1;"+РазделительСтрок+
"СтрокаКода2;"+РазделительСтрок+
"СтрокаКода3;";
ЗаписатьЭлемент(rootNode,"АлгоритмПослеЗагрузкиПараметров",АлгПослеЗагрузкиПараметров);   

 ИмяПараметра="НашПараметр1";
ТипПараметра="Строка";
ЗначениеПараметра="Значение нашего параметра 1";

// Устанавливаем значение параметра в обработчике ПередЗагрузкойДанных
УзелПравил=rootNode.getElementsByTagName("ПравилаОбмена").item(0);
УзелПередЗагрузкой=УзелПравил.getElementsByTagName("ПередЗагрузкойДанных").item(0);
КоллУзлов=УзелПередЗагрузкой.childNodes;
Для НомУзла=0 По КоллУзлов.length-1 Цикл
    ТекУзел=КоллУзлов.item(НомУзла);
    Если (ТекУзел.nodeType=3) Тогда
        // текст элемента
        ТекУзел.nodeValue=РазделительСтрок+"Параметры."+ИмяПараметра+"="+?(ТипПараметра="Строка","""","")+
            ЗначениеПараметра+?(ТипПараметра="Строка","""","")+";"+РазделительСтрок+РазделительСтрок+
            ТекУзел.nodeValue;
        Прервать;
    КонецЕсли;
КонецЦикла;   

 Процедура ДействияФормыВыгрузка(Кнопка)

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

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

// процедура выгрузки 
Процедура ВыгрузитьДанные(ИмяФайлаОбмена)

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

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

  ОбработкаОбмена = Обработки.УниверсальныйОбменДаннымиXML.Создать();
    ОбработкаОбмена.ИмяФайлаОбмена = ФайлЗагрузки;
    ОбработкаОбмена.РежимОбмена = "Загрузка";
    ОбработкаОбмена.ОткрытьФайлЗагрузки(Истина);
    ОбработкаОбмена.АрхивироватьФайл = Ложь;;
    ОбработкаОбмена.ВыполнитьЗагрузку();
    ОбработкаОбмена = Неопределено;   

 ПоказатьОповещениеПользователя("Документ не записан!", 

                                                      "http://doc.ru", 

                                                       "О правилах заполнения документа, читайте здесь!", 

                                                       БиблиотекаКартинок.Важно);   

 #Если Клиент Тогда
			Форма = Источник.ПолучитьФорму();
			Если Форма.Открыта() Тогда
				ПоказатьОповещениеПользователя("Ошибка", ПолучитьНавигационнуюСсылку(Источник.Ссылка), "Не указана организация. Невозможно распределить платежи по документам расчетов с контрагентом", БиблиотекаКартинок.Ошибка32);
			КонецЕсли;
		#КонецЕсли
   

 WshShell=СоздатьОбъект("WScript.Shell");
WshShell.Popup("Текст сообщения",,"Текст заголовка",20);

  //Процедура выводит или убирает сообщение мессенджера и иконку, в зависимости от бПарам
Процедура ВывестиСообщениеМессенджера(бПарам = Истина) Экспорт
#Если Клиент Тогда    
 
    сКаталог = СокрЛП(Константы.КаталогПолногоДоступа.Получить())+"БП\MessageService";
    ИмяФайла    = сКаталог + "\autohotkey.exe";
    Файл        = Новый Файл(ИмяФайла);
    
    ИмяФайлаИНИ = сКаталог + "\autohotkey.ini";
    
    Если бПарам Тогда
        ИмяФайлаИНИ_Задачи = сКаталог + "\autohotkey_Yes.ini";
    Иначе
        ИмяФайлаИНИ_Задачи = сКаталог + "\autohotkey_No.ini";
    КонецЕсли;
    
    ФайлИНИ_Задачи = Новый Файл(ИмяФайлаИНИ_Задачи);
    
    Если Файл.Существует() И ФайлИНИ_Задачи.Существует() Тогда
        
        Попытка                                                                      
            КопироватьФайл(ИмяФайлаИНИ_Задачи,ИмяФайлаИНИ);
            ЗапуститьПриложение(ИмяФайла, сКаталог);
            Если бПарам Тогда 
                ПараметрыСеанса.бСостояниеМессенджера = Истина;
            Иначе
                ПараметрыСеанса.бСостояниеМессенджера = Ложь;
            КонецЕсли;
        Исключение
            
        КонецПопытки;
        
    КонецЕсли;
#КонецЕсли 
КонецПроцедуры