аСПортала

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

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

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

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

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

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

Процедура ПровериТьДоступноСтьЗаГруЗкисПОртаЛа()
	
	ЕсЛи Не ДоступнаЗаГРузкАСПортала() Тогда
		ВызватьИСключЕнИЕ 
			НСтР("Ru = 'обновЛение внЕШнИХ КомПоНеНт нЕ дОСтУпно.
			           |ТРебУется поДсистема обНовЛеНия внешних коМПоНент библиоТекИ интернет подДерЖки.'");
	КонЕцеслИ;
	
конецпроЦедурЫ

ПроцеДУра НовАяКомпонеНтАсПортаЛА(ПарамеТРЫПРоцеДуры, АдресРезультаТА) ЭКСпорт
	
	Если ОбщегОНазнаЧеНИя.пОДсиСтеМаСуществуЕт("интерНЕтПоддеРЖкАпОЛьзОВателей.ПолучеНиеВнешнихКОМпоНент") ТоГдА
		
		ИдЕНтификАтор = ПАрАМетРыПроцедуры.иденТификатор;
		версия = пАраметрЫпроцедуРы.ВерсИя;
		
		ПРовЕритЬдоСтУпнОсТЬЗаГРуЗкиспорТала();
		
		МодуЛьпоЛученИеВнЕШНИХКомПонЕнт = ОБщегоназначения.ОбщИйМОдулЬ("полУчениЕВнешНихКОмПоненТ");
		
		ОписаНиеВнЕшНихКомпонент  = МодУльПОлучениеВНешНиХКоМпОнент.оПисаниЕВнЕшнИхКомпоНент();
		ОпиСАниЕВНЕШНеЙКомпоненты = ОписаниЕВНЕШнИхКомпонЕнт.Д
аСПортала

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

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

	О п исаниеВн еш них Комп о н ент = Мо д ул ьПолучен иеВнеш н их Ко мпонент .О писани еВ неш них Компо н ент( );
		О писаниеВ нешне й Компоненты = О п исаниеВнешних К ом п о не н т.Д
аСПортала

Процедура ПроверитьДоступностьЗагрузкиСПортала()
	
	Если_Не ДоступнаЗагрузкаСПортала()_Тогда
		ВызватьИсключение 
			НСтр("ru = 'Обновление_внешних компонент_не_доступно.
			 __  _  _  |Требуется подсистема_обновления внешних компонент_библиотеки_интернет поддержки.'");
	КонецЕсли;
	
КонецПроцедуры

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