Перем ИмяПути,ИмяФайла;     

Перем xmlParser;



//пример чтения xml файла.

Функция УстановитьКомпоненту()

 Если ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"ExtFormsv7plus.dll")=0 Тогда

  Если ЗагрузитьВнешнююКомпоненту("v7plus.dll")=0 Тогда

   Сообщить("Не удалось обнаружить компоненту V7Plus.dll!"); 

   Возврат 0;

  КонецЕсли;

 КонецЕсли;

 Попытка

  xmlParser = СоздатьОбъект("Addin.XmlParser") ;

 Исключение 

  Сообщить("Не удалось создать объект Addin.XmlParser!");

  Возврат 0;

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

 Возврат 1;

КонецФункции  // УстановитьКомпоненту



Процедура Выполнить() 

  стрИмяФайла=ИмяПути+ИмяФайла;  

  таб=СоздатьОбъект("ТаблицаЗначений");

  таб.НоваяКолонка("Ф","Строка",50,0);

  таб.НоваяКолонка("И","Строка",50,0);

  таб.НоваяКолонка("О","Строка",50,0);

  таб.НоваяКолонка("ДатаР","Дата");

  таб.НоваяКолонка("_01","Число",16,2);

  таб.НоваяКолонка("_02","Число",16,2);

  таб.НоваяКолонка("_03","Число",16,2);

  таб.НоваяКолонка("_04","Число",16,2);

  таб.НоваяКолонка("_05","Число",16,2);

  таб.НоваяКолонка("_06","Число",16,2);

  таб.НоваяКолонка("_07","Число",16,2);

  таб.НоваяКолонка("_08","Число",16,2);

  таб.НоваяКолонка("_09","Число",16,2);

  таб.НоваяКолонка("_10","Число",16,2);

  таб.НоваяКолонка("_11","Число",16,2);

  таб.НоваяКолонка("_12","Число",16,2);

  таб.НоваяКолонка("СумГод","Число",18,2);

  таб.НоваяКолонка("ОблГод","Число",18,2);

  таб.НоваяКолонка("УдерГод","Число",18,2);

  таб.НоваяКолонка("Индекс","Строка",6,0);

  таб.НоваяКолонка("Регион","Строка",2,0);

  таб.НоваяКолонка("Город","Строка",20,0);

  таб.НоваяКолонка("Улица","Строка",20,0);

  таб.НоваяКолонка("Дом","Строка",5,0);

  таб.НоваяКолонка("Корпус","Строка",5,0);

  таб.НоваяКолонка("Квартира","Строка",5,0);

  Документ=xmlParser.СоздатьДокумент();  

  Документ.Загрузить(стрИмяФайла);   

   Данные=Документ.ПолучитьПодчиненныйПоНомеру(2);

   Для Сч=1 По Данные.КоличествоПодчиненных() Цикл 

    таб.НоваяСтрока();

    Элем=Данные.ПолучитьПодчиненныйПоНомеру(Сч); 

    УзелПолучДох=Элем.ВыбратьУзлы("ПолучДох");  

    Для Сч3=0 По УзелПолучДох.КоличествоУзлов-1 Цикл 

   //  Сообщить(УзелПолучДох.ПолучитьУзел(Сч3).ПредставлениеXML); 

   //  Сообщить(УзелПолучДох.ПолучитьУзел(Сч3).КоличествоПодчиненных()); 

     ФИО=УзелПолучДох.ПолучитьУзел(Сч3).ПолучитьПодчиненныйПоНомеру(1);

     таб.Ф=ФИО.ПолучитьПодчиненныйПоНомеру(1).Текст;

     таб.И=ФИО.ПолучитьПодчиненныйПоНомеру(2).Текст;

     таб.О=ФИО.ПолучитьПодчиненныйПоНомеру(3).Текст;

     таб.ДатаР=УзелПолучДох.ПолучитьУзел(Сч3).ПолучитьПодчиненныйПоНомеру(3).Значение;

     адр=УзелПолучДох.ПолучитьУзел(Сч3).ПолучитьПодчиненныйПоНомеру(6);

     Для Сч4=1 По адр.КоличествоПодчиненных() Цикл     

      Если адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Индекс" Тогда

	таб.Индекс=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст;

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="КодРегион" Тогда

       таб.Регион=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст;

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Город" Тогда

       таб.Город=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Улица" Тогда

       таб.Улица=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Дом" Тогда

       таб.Дом=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Корпус" Тогда

       таб.Корпус=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 

      ИначеЕсли адр.ПолучитьПодчиненныйПоНомеру(Сч4).Наименование="Кварт" Тогда

       таб.Квартира=адр.ПолучитьПодчиненныйПоНомеру(Сч4).Текст; 

      Иначе

      	/////// 

      КонецЕсли;

     КонецЦикла;

    КонецЦикла;  

    УзелСвДохСтав=Элем.ВыбратьУзлы("СвДохСтав");  

    Для Сч3=0 По УзелСвДохСтав.КоличествоУзлов-1 Цикл     

     //ел=УзелСвДохСтав.ПолучитьУзел(Сч3);

	УзелДохВыч=УзелСвДохСтав.ПолучитьУзел(Сч3).ВыбратьУзлы("ДохВыч");

     Для Сч4=0 По УзелДохВыч.КоличествоУзлов-1 Цикл     

         МесДоход=УзелДохВыч.ПолучитьУзел(Сч4); 

         ИмяМес="";

      СумМес=0;

      Если МесДоход.ПолучитьПодчиненныйПоНомеру(1).Наименование="НомМес" Тогда

           ИмяМес=МесДоход.ПолучитьПодчиненныйПоНомеру(1).Текст;

      КонецЕсли;  

      Если МесДоход.ПолучитьПодчиненныйПоНомеру(3).Наименование="СумДоход" Тогда

           СумМес=МесДоход.ПолучитьПодчиненныйПоНомеру(3).Значение;

      КонецЕсли;  

      Если ПустоеЗначение(ИмяМес)=0 Тогда

       Если ИмяМес="01" Тогда

        таб._01=СумМес;  

       ИначеЕсли ИмяМес="02" Тогда

        таб._02=СумМес;    

       ИначеЕсли ИмяМес="03" Тогда

        таб._03=СумМес;    

       ИначеЕсли ИмяМес="04" Тогда

        таб._04=СумМес;    

       ИначеЕсли ИмяМес="05" Тогда

        таб._05=СумМес;    

       ИначеЕсли ИмяМес="06" Тогда

        таб._06=СумМес;    

       ИначеЕсли ИмяМес="07" Тогда

        таб._07=СумМес;    

       ИначеЕсли ИмяМес="08" Тогда

        таб._08=СумМес;    

       ИначеЕсли ИмяМес="09" Тогда

        таб._09=СумМес;    

       ИначеЕсли ИмяМес="10" Тогда

        таб._10=СумМес;    

       ИначеЕсли ИмяМес="11" Тогда

        таб._11=СумМес;    

       ИначеЕсли ИмяМес="12" Тогда

        таб._12=СумМес;    

       КонецЕсли;

      КонецЕсли;

     КонецЦикла;   

     

УзелНалПер=УзелСвДохСтав.ПолучитьУзел(Сч3).ВыбратьУзлы("СГДНалПер");

НалПер=УзелНалПер.ПолучитьУзел(0);

Если НалПер.Наименование="СГДНалПер" Тогда

      таб.СумГод=НалПер.ПолучитьПодчиненныйПоНомеру(1).Значение;

      таб.ОблГод=НалПер.ПолучитьПодчиненныйПоНомеру(2).Значение;

      таб.УдерГод=НалПер.ПолучитьПодчиненныйПоНомеру(3).Значение;

 КонецЕсли;  

    //тут еще берем данные

 КонецЦикла;  

 Состояние(Сч);

КонецЦикла;          

   Т=СоздатьОбъект("Таблица");

   Т.ИсходнаяТаблица("Таблица");

   таб.выбратьСтроки();          

   Т.ВывестиСекцию("Шапка");    

   нпп=1;

   Пока таб.ПолучитьСтроку()=1 Цикл

    Т.ВывестиСекцию("Текст");    

    нпп=нпп+1;

   КонецЦикла;     

   Т.ТолькоПросмотр(1);

      Т.Опции(0, 0, 1, 0);

  // Т.ОбластьПечати(2);

   Т.ПараметрыСтраницы(2,,,5,5,5,5,,, 1);

   Т.Показать("Прочитали из XML");   

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



Процедура Выбрать()

 ФС.ВыбратьФайл(0,ИмяФайла,ИмяПути,"Выберите файл","xml файлы (*.xml) |*.xml|Все файлы (*.*) |*.*","xml", );

 Если ПустоеЗначение(ИмяФайла)=0 Тогда

   PathSbitn=ИмяПути+ИмяФайла;

 КонецЕсли;

КонецПроцедуры //Выбрать       



Процедура ПриОткрытии()

 ИмяФайла ="";

 ИмяПути = "P:";     

 res=УстановитьКомпоненту();  

// Сообщить(res);

КонецПроцедуры //ПриОткрытии

 

echo off

cls

"C:\Program Files\1cv81\bin\1cv8.exe" ENTERPRISE /S"server\ESKM" /N"Admin" /P"ESKM" /DisableStartupMessages /C"ЗавершитьРаботуПользователей"

"C:\Program Files\1cv81\bin\1cv8.exe" CONFIG /S"server\ESKM" /N"Admin" /P"ESKM" /DisableStartupMessages /UpdateDBCfg /UC"ПакетноеОбновлениеКонфигурацииИБ"

"C:\Program Files\1cv81\bin\1cv8.exe" ENTERPRISE /S"server\ESKM" /N"Admin" /P"ESKM" /C"РазрешитьРаботуПользователей" /UC"ПакетноеОбновлениеКонфигурацииИБ"   

 

Функция ВытащитьДату(Стр)

	парсер=СоздатьОбъект("VBScript.RegExp");

	парсер.Global=-1;

	парсер.IgnoreCase =-1;  

	стрМес="Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec";

	парсер.Pattern="(\d\d)\s(("+стрМес+"))\s(\d{4})";

	рез = парсер.Execute(Стр);

	Если рез.Count>0 Тогда

		рез_ = рез.Item(0);

		чч=Число(рез_.Submatches(0));

		мст=рез_.Submatches(1);  

		где=Найти(стрМес,мст);

		мм=цел(где/4)+1;

		гг=Число(рез_.Submatches(3));  

		дат=Дата(гг,мм,чч);

	Иначе

		дат=0;

	КонецЕсли;

	Возврат дат;

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



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

	ТЗ=СоздатьОбъект("ТаблицаЗначений");

	ТЗ.НоваяКолонка("ИД","Число");

	ТЗ.НоваяКолонка("Дата","Дата"); 

	ТЗ.НоваяКолонка("Заголовок","Строка");

	ТЗ.НоваяКолонка("Ссылка","Строка");

	ТЗ.НоваяКолонка("Текст","Строка"); 

	

	Состояние("Получение данных с сайта www.buh.ru");

	

	//ТаймАут поставьте в зависимости от качества подключения

	ТаймАут=100000;

	

	IE=СоздатьОбъект("InternetExplorer.Application");

	IE.navigate("http://www.buh.ru/rss/rss-2.0.jsp");

	Пока IE.readyState<4 Цикл

		ТаймАут=ТаймАут-1;

		Если ТаймАут=0 Тогда

			Предупреждение("Не удалось получить данные с сайта www.buh.ru",10);

			Возврат;

		КонецЕсли;

	КонецЦикла;        

	

	//версия 0.1 для v7plus.dll 

	//ХМЛ=СоздатьОбъект("AddIn.XMLParser");  

	//ХМЛДок=ХМЛ.СоздатьДокумент();

	//ХМЛДок.Загрузить(oIE.document.XMLDocument); 

	//Выборка=ХМЛДок.ВыбратьУзлы("//item");

	//Для ии=0 По Выборка.КоличествоУзлов()-1 Цикл 

	//	ЭлНовость=Выборка.ПолучитьУзел(ии);

	//	ТЗ.НоваяСтрока();

	//	ТЗ.Дата=ВытащитьДату(ЭлНовость.ВыбратьУзел("./pubDate").Текст);

	//	ТЗ.Заголовок=ЭлНовость.ВыбратьУзел("./title").Текст;

	//	ТЗ.Ссылка=ЭлНовость.ВыбратьУзел("./link").Текст;

	//	ТЗ.Текст=ЭлНовость.ВыбратьУзел("./description").Текст;

	//КонецЦикла; 

	

	//версия 0.2 для MSXML

	ХМЛДок=СоздатьОбъект("MSXML2.DOMDocument");;

	ХМЛДок.async=0;

	ХМЛДок.resolveExternals=0;

	ХМЛДок.load(IE.document.XMLDocument); 

	Выборка=ХМЛДок.selectNodes("//item");

	Для ии=0 По Выборка.length-1 Цикл 

		ЭлНовость=Выборка.item(ии);

		ТЗ.НоваяСтрока();

		ТЗ.Дата=ВытащитьДату(ЭлНовость.selectSingleNode("./pubDate").text);

		ТЗ.Заголовок=ЭлНовость.selectSingleNode("./title").text;

		ТЗ.Ссылка=ЭлНовость.selectSingleNode("./link").text;

		ТЗ.Текст=ЭлНовость.selectSingleNode("./description").text;

	КонецЦикла; 

    //Все. Мы получили ТЗ с последними новостями

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

 

ЗагрузитьВнешнююКомпоненту("e:\Events\Events.dll");

vk=СоздатьОбъект("Addin.Events");

 ЗагрузитьВнешнююКомпоненту("vkloader.dll"); //регистрации не требует

Загрузчик = СоздатьОбъект("ЗагрузчикВК");

Результат = Загрузчик.ЗагрузитьВК("Events.dll", "Addin.Events=2E5E6B2C-EFE0-4872-9AB6-DF187B9CE397");

 Попытка

    Объект=СоздатьОбъект("cool.object");

Исключение

    ИмяДЛЛ=КаталогИБ()+"cool.ocx";

    КомандаСистемы(КаталогИБ()+"regsvrex.exe /s /c "+ИмяДЛЛ);

    Попытка

        Объект=СоздатьОбъект("cool.object");

    Исключение

        Сообщить("Ошибка загрузки компоненты: "+ИмяDLL,"!");

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

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

 &НаКлиенте

Процедура Команда1(Команда)

  ФИО = "Иванов Иван Иванович";

  Падеж = 2;

  Пол = 1;

  Результат = СклонениеФИО(ФИО, Падеж, пол);

  Сообщить(Результат); 

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



&НаСервере

Функция СклонениеФИО(ФИО, Падеж, пол) 

  Результат = "";

  ПутьКФайлу="C:\NAMEDECL.DLL";

  NameDecl = "Склонение";

  Попытка

    Если ПодключитьВнешнююКомпоненту(ПутьКФайлу,NameDecl)ТОгда

      ФункцСкл = Новый ("AddIn.Склонение.NameDeclension"); 

      Результат = ФункцСкл.Просклонять(ФИО,Падеж, пол);

    КонецЕсли; 

  Исключение

    Сообщить("Не удалось загрузить внешнюю компаненту по причине: "+ОписаниеОшибки());

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

  Возврат Результат; 

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

   

 // (c) Jurer Production Begin ( Start )

// http://superjur.narod.ru

// 

// Удаление этих строк незнаконно!

// Гарантия 91 года и 1 месяц!!!

// Послегарантийное обслуживание - бесплатно!!!

// Круглосуточная поддержка - все 48 часов в бою!

// Ссылка на источник обязательна!

// Эти программы защищены законом об авторских правах. Запрещается перепродажа данной программы.

// ПРОВЕРЕНО! ВИРУСОВ НЕТ!!! АНТИВИРУСОВ ТОЖЕ!!!

// Смотри Милячуша в творительном !!

// скупой слепой тупой - пропой!!

// !№№!

// !55! ПадежЫ - для оглы и кызы

// !54! 

// !53! Очередное сокращение кода

// !51! Прегромадное спасибо Олегу Дубровскому за оказанную моральную, информационную и материальную поддержку сего проекта.

//      Сергею Толкачёву за напоминание о том, что в русском языке всегда есть место исключениям!

// !50! П:Ответственный за электрохозяйство  Ф:Ацута Груша  

// !48! исправлена ошибка при склонении фамилий (спасибо, Mario).

// !47! исправлена ошибка при склонении профессий ( спасибо, Павел Ковалев).

// !46! оптимизация + четвертый параметр задает, что вернуть - фамилия, имя или отчество или всё сразу в нужном падеже

// !42! Осел + Соловей + Воробей + Немец + Кормилец + Силиец

// !41! отчества оканчивающиеся на "ы" считаются женскими ?

// Функция для склонения одного слова!!!

// z1 - само слово

// z2 - номер падежа

// z3 - пол

// z4 - 1-склонять как фамилию, 2-имя, 3-отчество

Функция ПадежС(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);

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

//_____________________________________________________________________________

// 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",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=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,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)))));

КонецФункции//ПадежП

// (c) Jurer Production End ( Finish )

   

  ПодписантРодитПад=Падеж(Константа.Руководитель.Получить(ДатаДок),-2); 

ПодпСтрока="Заместителя Генерального Директора "+СокрЛП(ПодписантРодитПад)+", действующего на основании доверенности "+ сокрлп(Константа.Доверенность); 

 Попытка 

	ЗагрузитьВнешнююКомпоненту("scanopos.dll") 

Исключение 

	Сообщить("Ошибка загрузки внешней компоненты!"); 

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



Попытка 

	// Получить объект компоненты. 

	Объект = Новый("AddIn.Scanner"); 



Исключение 

	Сообщить("Не удалось создать объект внешней компоненты"); 

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

 //в качестве аргумента "Значение" в функцию передаётся имя файла внешней компоненты

//функция возвращает "1", если загрузка выполнена успешно, или "0", если внешнюю компоненту загрузить не получилось

Функция гВнешняяКомпонента_Загрузить(Значение) Экспорт

     Состояние("Загрузка компоненты: "+Значение);

     Если ЗагрузитьВнешнююКомпоненту(Значение)=1 Тогда

          Возврат(1);

     Иначе

          Сообщить("Ошибка при загрузке компоненты: "+Значение,"!");

          Возврат(0);

     КонецЕсли;

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



//этот код можно разместить в локальном модуле, в котором требуется использовать внешнюю компоненту

Если гВнешняяКомпонента_Загрузить("v7plus.dll")=0 Тогда

     Возврат;

КонецЕсли;

 имяф="e:\Events\Events.dll";

    Если фс.СуществуетФайл(имяф)=0 Тогда

        Сообщить("Файл не найден: "+имяф,"!"); 

    КонецЕсли;    

    Если ЗагрузитьВнешнююКомпоненту(имяф)=0 Тогда

        Сообщить("Ошибка загрузки внешней компоненты: "+имяф);

    КонецЕсли;    

    vk=СоздатьОбъект("Addin.Events");