Если (ПустоеЗначение(Док.Контрагент) = 0) и (Док.Контрагент.Выбран() = 0)  Тогда

    Сообщить("В документе " + Док + " в реквизите Контрагент битая ссылка");

КонецЕсли;

 Функция ПолучитьСИнетаКакСтроку(АдресП) 

	соминет = Новый COMОбъект("MSXML2.XMLHTTP");

	соминет.open ("GET", АдресП, Ложь);

	соминет.send();

	Возврат соминет.responseText;

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

 

Функция ФамилияИО(ПолнИмя) Экспорт

	ПервПроб = Найти(ПолнИмя," ");

	Если ПервПроб=0 Тогда

		Возврат ПолнИмя;

	Иначе

		Фамилия = Лев(ПолнИмя,ПервПроб);

		ИО = Сред(ПолнИмя,ПервПроб+1);

		ИО = СокрЛ(ИО);

		Имя = Лев(ИО,1)+".";

		ВтПроб = Найти(ИО," ");

		Если ВтПроб=0 Тогда

			Возврат Фамилия+Имя;

		Иначе

			Возврат Фамилия+Имя+" "+Лев(СокрЛ(Сред(ИО,ВтПроб+1)),1)+".";

		КонецЕсли;

	КонецЕсли;

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



//Пример обращения

Текст = "Андреева Алла Александровна";

Сообщить(ФамилияИО(Текст)); //Выведет - Андреева А. А.

   

 Функция ИОФамилия(Сотрудник) Экспорт

	Пока Найти(Сотрудник, "  ") <> 0 Цикл

		Сотрудник = СтрЗаменить(Сотрудник,"  "," ");	

	КонецЦикла;

	

	Сотрудник = СтрЗаменить(Сотрудник," ",Символы.ПС);

	Возврат Лев(СтрПолучитьСтроку(Сотрудник,2),1) + ". "+Лев(СтрПолучитьСтроку(Сотрудник,3),1) + ". "+СтрПолучитьСтроку(Сотрудник,1);

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

 Функция ФамилияИО(ПолнИмя) Экспорт

	// позиция первого пробела

	ПервПроб = Найти(ПолнИмя," ");

	Если ПервПроб=0 Тогда

		Возврат ПолнИмя;

	Иначе

		Фамилия = Лев(ПолнИмя,ПервПроб);

		ИО = Сред(ПолнИмя,ПервПроб+1);

		ИО = СокрЛ(ИО);

		Имя = Лев(ИО,1)+".";

		// позиция второго пробела

		ВтПроб = Найти(ИО," ");

		Если ВтПроб=0 Тогда

			Возврат Фамилия+Имя;

		Иначе

			Возврат Фамилия+Имя+" "+Лев(СокрЛ(Сред(ИО,ВтПроб+1)),1)+".";

		КонецЕсли;

	КонецЕсли;

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

 

//Возвращает что-то типо: C:\Documents and Settings\E.S.Migachev\Мои документы\

Функция КаталогМоиДокументы() Экспорт

	

	App = Новый COMОбъект("Shell.Application");

	Folder = App.Namespace(5);

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

	Попытка

		Результат = Folder.Self.Path;

	Исключение

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

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

	Если Результат = "" Тогда

		Результат = КаталогВременныхФайлов();

	КонецЕсли; 

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

	

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

   

  // Параметры:

//  Адрес        - адрес файла на сервере

//  ЛокальныйПуть - путь для сохранения файла на локальном компьютере

//  ВыдаватьСообщения - признак необходимости выдачи сообщений в случае ошибки

//                      (необязательный, по умолчаню равен Истина)

//

// Возвращаемое значение:

//  Число - результат получения файла с сервера

//	0 - успешно;

//  1 - неправильный параметр

//  2 - неправильные код пользователя или пароль для доступа к "закрытой" части сайта

//  3 - ошибка подключения к веб-сайту.

//

Функция ПолучитьФайлССервера(Знач Адрес, Знач ЛокальныйПуть, Знач ВыдаватьСообщения = Истина, 

	Знач Соединение = Неопределено) Экспорт

	

	Если НЕ ЗначениеЗаполнено(Адрес) ИЛИ НЕ ЗначениеЗаполнено(ЛокальныйПуть) Тогда

		ЗаписатьОшибку("Невозможно подключиться к сети Интернет: не инициализированы внутренние переменные.");

		Возврат 1;

	КонецЕсли;

	

	Если Соединение = Неопределено Тогда

		// Установка параметров прокси-сервера

		Если ПроксиСерверТребуетАутентификации Тогда

			ПроксиСервер = Новый ИнтернетПрокси();

			ПроксиСервер.Пользователь = ПользовательПроксиСервера;

		ПроксиСервер.Пароль       = ПарольПроксиСервера;

		КонецЕсли;

	

		// Создание HTTP-соединения с сервером обновлений

		Соединение = Новый HTTPСоединение(СерверОбновлений,

	                                  ,

	                                  КодПользователяСервераОбновлений,

	                                  ПарольСервераОбновлений,

	                                  ?(ПроксиСерверТребуетАутентификации, ПроксиСервер, Неопределено));



	КонецЕсли;

	

	Попытка

		СоздатьКаталог(ПолучитьКаталогФайла(ЛокальныйПуть));

		Соединение.Получить(Адрес, ЛокальныйПуть);

	Исключение

		

		// "Ошибка аутентификации при доступе Адресу"

		ОписаниеОшибки = ОписаниеОшибки();

		Если Найти(ОписаниеОшибки, Адрес) > 0 И НЕ Найти(ОписаниеОшибки, "не обнаружен") Тогда   

			

			ЗаписатьПредупреждение("Ошибка при обращении к http://" + Соединение.Сервер + "/" + Адрес + "

		    	             |" + ОписаниеОшибки);

			Если ВыдаватьСообщения Тогда 

				ОбщегоНазначения.ПредупреждениеОбОшибке("Неправильно указан код пользователя или пароль.");

			КонецЕсли;

			Возврат 2;

		КонецЕсли;

		

		// Файл не обнаружен

		Если Найти(ОписаниеОшибки, "не обнаружен") Тогда   

			Сообщение = "Ошибка при обращении к http://" + Соединение.Сервер + "/" + Адрес + "

			    	             |" + ОписаниеОшибки;

			ЗаписатьПредупреждение("Ошибка при обращении к http://" + Соединение.Сервер + "/" + Адрес + "

		    	             |" + ОписаниеОшибки);

			Если ВыдаватьСообщения Тогда 

				ОбщегоНазначения.СообщитьОбОшибке(Сообщение);

			КонецЕсли;					 

			Возврат 3;

		КонецЕсли;

		

		// Ошибка работы с Интернет: a timeout was reached

		Сообщение = "Ошибка при обращении к http://" + Соединение.Сервер + "/" + Адрес + "

		    	             |" + ОписаниеОшибки;

		ЗаписатьПредупреждение(Сообщение);

		Если ВыдаватьСообщения Тогда 

			ОбщегоНазначения.СообщитьОбОшибке(Сообщение);

		КонецЕсли;					 

		Возврат 3;

		

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

	

	ЗаписатьИнформацию("Файл успешно получен (адрес: http://" + Соединение.Сервер + "/" + Адрес + 

		"; локальный файл: " + ЛокальныйПуть + ").");

	Возврат 0;

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

  Процедура ВводНового(Копирование) 

 

//E_Migachev автоматический расчет следующего номера             

//Выберем документы в обратном порядке

ДокНачислениеОтпуска = СоздатьОбъект("Документ.НачислениеОтпуска"); 

ДокНачислениеОтпуска.ОбратныйПорядок(1);

ДокНачислениеОтпуска.ВыбратьДокументы(НачКвартала(РабочаяДата()-15),КонКвартала(РабочаяДата()+27));

ДокНачислениеОтпуска.ПолучитьДокумент();  

//Получим последний числовой номер

новномдк=Строка(число(Сред(ДокНачислениеОтпуска.НомерДок,3,7)));

стрдлинаномдк=СтрДлина(Строка(СокрЛП(Сред(ДокНачислениеОтпуска.НомерДок,3,7))));

новномдк=Число(новномдк)+1; 

иткол=стрдлинаномдк-СтрДлина(новномдк); 

префиксдк="ОТ";

если иткол>0 тогда 

	для н=1 по иткол цикл

		префиксдк=префиксдк+строка(0);		

	конеццикла;

конецесли;	

докном=префиксдк+новномдк;   

//Если документ исправление то нужен префикс И

Если Исправление=1 Тогда 

	знтри=Прав(ДокНачислениеОтпуска.НомерДок,3);

	Если Строка(Лев(знтри,1))="И" Тогда

		чзнтри=Число(Прав(знтри,2));

		чзнтри=чзнтри+1;

	Иначе

		чзнтри=1;

	КонецЕсли;     

	Если СтрДлина(чзнтри)=1 Тогда

	докном=докном+"-И0"+Строка(чзнтри);	

	Иначе

	докном=докном+"-И"+Строка(чзнтри);	

	КонецЕсли;

КонецЕсли;    

//Присвоим новый номер

НомерДок=докном; //E_Migachev автоматич расчет номера

 // Пример 1

// Для регистра с измерениями «Товар», «Склад», «МОЛ» запись

Рег.СводныйОстаток(Тов1, , "ОстатокТовара");

//означает, что ресурс «ОстатокТовара» будет получен только по одному товару (Тов1), но по всем складам и всем МОЛам.

Процедура ПолучитьСводныйОстаток(Товар, Ост);

   Ост = Регистр.УчетТовара.СводныйОстаток(Товар, , "ОстаткиТовара");

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



// Пример 2

РегТовары = СоздатьОбъект("Регистр.Товары")

//получить остаток данного товара на всех складах

КолвоТовара = РегТовары.СводныйОстаток (ТекТовар,,"Количество");

СтоимостьТовара = РегТовары.СводныйОстаток (ТекТовар,,"Стоимость");

//получить стоимость всех товаров на данном складе

СтоимостьПоСкладу = РегТовары.СводныйОстаток (,ТекСклад,"Стоимость");

 

ЗагрузитьВнешнююКомпоненту("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,"!");

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

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

 // Процедура получает из реестра список зарегистрированных ИБ 7.7

Процедура ПолучитьСписокИБ() 

	Попытка

		ScrptCtrl=Новый COMObject("MSScriptControl.ScriptControl");

		ScrptCtrl.Language="vbscript";

		ScrptCtrl.AddCode("

		|Function Get1CV77Titles()

		|	const HKEY_CURRENT_USER = &H80000001

		|	Set oReg=GetObject(""winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv"")

		|	strKeyPath = ""Software\1C\1Cv7\7.7\Titles""

		|	oReg.EnumValues HKEY_CURRENT_USER, strKeyPath, arrValues

		|	strInfo=vbNullString

		|   Get1CV77Titles = strInfo

		|	On Error Resume Next

		|	For i = LBound(arrValues) To UBound(arrValues)

		|		call oReg.GetStringValue(HKEY_CURRENT_USER,strKeyPath,arrValues(i),Value)

		|		strInfo=strInfo & arrValues(i) & vbTab & Value & vbCrLf

		|	Next		

		| 	Get1CV77Titles = strInfo

		|End Function

		|");

		Текст=СокрЛП(ScrptCtrl.Run("Get1CV77Titles"));

	Исключение

		Сообщить(ОписаниеОшибки());

		Возврат;

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

	

	ТаблицаПути.Очистить();

	

	Если НЕ ЗначениеЗаполнено(Текст) Тогда

		Возврат;

	КонецЕсли;

		

	Для Ном=1 По СтрЧислоСтрок(Текст) Цикл

		СтрБазы=СтрПолучитьСтроку(Текст,Ном);

		Разд=Найти(СтрБазы,Символы.Таб);

		Путь=Лев(СтрБазы,Разд-1);

		Название=Прав(СтрБазы,СтрДлина(СтрБазы)-Разд);

		

		НоваяСтрока = ТаблицаПути.Добавить();

		НоваяСтрока.Имя = Название;

		НоваяСтрока.Путь = Путь;

	КонецЦикла;

	

	ТаблицаПути.Сортировать("Имя");



КонецПроцедуры //ПолучитьСписокИБ

 

функция сзПолучитьСписокБаз()

    попытка

        // Создаем объект Microsoft Script Control.

        олеСкрипт = создатьобъект("MSScriptControl.ScriptControl");

        // Устанавливаем в качестве языка для выполнения сценариев Visual Basic

        олеСкрипт.Language = "VBScript";

        // Формируем код на VB.

        // В принципе он все делает. Создает объект

        // Windows Management Instrumentation и уже через него

        // получает значение ключи реестра преобразовывая данные

        // в строку.

        стрКод =

        "function strGetListBase()

        |  const RootKey = &H80000001

        |  set Reg = GetObject(""winmgmts:{impersonationLevel=impersonate}!\\."" &_

        |                      ""\root\default:StdRegProv"")

        |  PathKey = ""Software\1C\1Cv7\7.7\Titles""

        |  Reg.EnumValues RootKey, PathKey, Arr

        |  Answer = ""{""""СписокЗначений"""",{""

        |  for x = LBound(Arr) to UBound(Arr)

        |    call Reg.GetStringValue(RootKey, PathKey, Arr(x), Value)

        |    Answer = Answer & ""{{""""Строка"""","""""" &_

        |             Arr(x) & """"""},"""""" & replace(Value, """""""", """""""""""") &_

        |             """""",""""0""""}""

        |    if x <> UBound(Arr) then Answer = Answer & "",""

        |  next

        |  Answer = Answer & ""}}""

        |  strGetListBase = Answer

        |end function";

        // Добавляем наш код.

        олеСкрипт.AddCode(стрКод);

        // Вызываем его на выполнение, и пытаемся из полученного результата

        // сформировать список значений.

        Ответ = значениеизстроки(олеСкрипт.Run("strGetListBase"));

        // Отсортируем список по Представлению баз

        Ответ.СортироватьПоПредставлению();

    исключение

        // Если произошла ошибка. Значит вернем "Error".

        Ответ = "Error";

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

    возврат Ответ;

конецфункции

 

Функция глРазложить(Знач Стр, Разделитель = ",") Экспорт

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

	Если Разделитель = " " Тогда

		Стр = СокрЛП(Стр);

		Пока 1=1 Цикл

			Поз = Найти(Стр,Разделитель);

			Если Поз=0 Тогда

				СЗ.ДобавитьЗначение(Стр);

				Возврат СЗ;

			КонецЕсли;

			СЗ.ДобавитьЗначение(Лев(Стр,Поз-1));

			Стр = СокрЛ(Сред(Стр,Поз));

		КонецЦикла;

	Иначе

		ДлинаРазделителя = СтрДлина(Разделитель);

		Пока 1=1 Цикл

			Поз = Найти(Стр,Разделитель);

			Если Поз=0 Тогда

				СЗ.ДобавитьЗначение(Стр);

				Возврат СЗ;

			КонецЕсли;

			СЗ.ДобавитьЗначение(Лев(Стр,Поз-1));

			Стр = Сред(Стр,Поз+ДлинаРазделителя);

		КонецЦикла;

	КонецЕсли;

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

 

Функция глРазложить(Знач Стр, Разделитель = ",") Экспорт

	СЗ = Новый СписокЗначений;

	Если Разделитель = " " Тогда

		Стр = СокрЛП(Стр);

		Пока 1=1 Цикл

			Поз = Найти(Стр,Разделитель);

			Если Поз=0 Тогда

				СЗ.Добавить(Стр);

				Возврат СЗ;

			КонецЕсли;

			СЗ.Добавить(Лев(Стр,Поз-1));

			Стр = СокрЛ(Сред(Стр,Поз));

		КонецЦикла;

	Иначе

		ДлинаРазделителя = СтрДлина(Разделитель);

		Пока 1=1 Цикл

			Поз = Найти(Стр,Разделитель);

			Если Поз=0 Тогда

				СЗ.Добавить(Стр);

				Возврат СЗ;

			КонецЕсли;

			СЗ.Добавить(Лев(Стр,Поз-1));

			Стр = Сред(Стр,Поз+ДлинаРазделителя);

		КонецЦикла;

	КонецЕсли;

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

   

 Процедура ЗапуститьПриложениеShell(Команда)

	Попытка

		Shell = Новый COMОбъект("Shell.Application");

		Shell.ShellExecute(Команда, "", "", "open", 1);

	Исключение

		Сообщить(ОписаниеОшибки());

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

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





//Пример обращения к процедуре



//Запустить Открытие файла

ЗапуститьПриложениеShell("d:\primer.xls");



//Запустить Веб-сайт

ЗапуститьПриложениеShell("https://helpf.pro");



//Запустить Веб-сайт ICQ c информацией о контакте 12345

ЗапуститьПриложениеShell("http://wwp.icq.com/scripts/contact.dll?msgto=12345");



//Запустить Отправление письма на Info@helpf.pro и в теме указать "Вопрос!" и в тексте "Здравствуй, уважаемый Веб-мастер!"

ЗапуститьПриложениеShell("mailto:Info@helpf.pro?Subject=Вопрос!&body=Здравствуй, уважаемый Веб-мастер!");