&НаКлиенте

Функция ИмяПринтераRDP(ИмяПринтера) 

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

	Task = Shell.Exec("query session");

	РезультатЗапроса = Task.StdOut.ReadAll();

	РезультатЗапроса = Декодер(РезультатЗапроса, "windows-1251", "cp866");

        Task.Terminate();

	Shell = Неопределено;

	

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

	ПользовательОС = Network.UserName();

	Network = Неопределено;

	

        НомерСеанса = RegExpGetFirstMatch("rdp-tcp\S+\s+" + ПользовательОС + "\s+(\d+)", РезультатЗапроса);

	

	Возврат ИмяПринтера + " (перенаправлено " + НомерСеанса + ")";

	

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





Функция Декодер(Стр, Вход, Выход)

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

	Stream.Type = 2;

	Stream.Mode = 3;

	Stream.Charset = Вход;

	Stream.Open();

	Stream.WriteText(Стр);

	Stream.Position = 0;

	Stream.Charset = Выход;

	Результат = Stream.ReadText(-1);

	Stream.Close();

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

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



Функция RegExpGetFirstMatch(Маска, Строка, МногострочныйРежим = Истина, ГлобальныйПоиск = Истина, БезУчетаРегистра = Истина) 

	

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

	

	// Параметры

	RegExp.Multiline = МногострочныйРежим; 

	RegExp.Global = ГлобальныйПоиск;

	RegExp.IgnoreCase = БезУчетаРегистра;	

	RegExp.Pattern = Маска;	

	

	Matches = RegExp.Execute(Строка);

	

	Если Matches.Count = 1 тогда

		Возврат Matches.Item(0).SubMatches.Item(0);



	Иначе

		Возврат Неопределено;

			

	КонецЕсли;

		

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



   

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



Путь = КаталогИБ() + "DialMail.dll";

Если ЗагрузитьВнешнююКомпоненту(Путь) = 0 Тогда Сообщить("Неудачная попытка загрузить DialMail.dll"); КонецЕсли;



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

 Процедура ОтправитьПочту()

ОтправкаПочты = СоздатьОбъект("AddIn.SMTP");

ОтправкаПочты.РабочийКаталог=СокрЛП(КаталогИБ());

ОтправкаПочты.УстановитьКодировкуИСпособКодирования(14, 1);

ОтправкаПочты.MakeContentDescriptionTag = 0;

ОтправкаПочты.ПочтоваяПрограмма = "Имя почтовой программы";

//В моем случае ошибки пишутся в отдельный каталог в текстовые файлы, имена которых соответствуют дате.

ВыбФайл = СокрЛП(КаталогОшибок) +"\"+ СокрЛП(ДатаЧисло(ТекущаяДата())) + СокрЛП(ДатаМесяц(ТекущаяДата()))+ СокрЛП(ДатаГод(ТекущаяДата())) + ".txt";

//имя файла - вложения должно быть в кавычках.

ВыбФайл = """" + ВыбФайл + """";

// От кого, Кому, Копии - это адреса почты.

ОтправкаПочты.СоздатьПисьмо(ОтКого,Кому,СокрЛП(СпрПочта.Копии),"Ошибки обмена в " + СокрЛП(Константа.Магазин.Наименование),,"Данное письмо сформировано автоматически. Смотри вложение",СокрЛП(ВыбФайл));

Если ОтправкаПочты.Подключиться("smtp.mail.ru","25",ИмяПользователя,Пароль)=0 тогда

Сообщить("Не смогли подключиться к SMTP-серверу");

КонецЕсли;

Если ОтправкаПочты.ОтправитьВсеПисьма(0,1,0) = -100 Тогда

Сообщить("Успешно отправлено");

КонецЕсли;

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

 Получ=СоздатьОбъект("AddIn.POP3");

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

Получ.РабочийКаталог="c:\Export\";

Отпр.РабочийКаталог="c:\Import\";

  //Глобальный модуль

========================================

Перем КонтекстНашейФормы Экспорт;

...

Процедура ВзятьКонтекст(Конт) Экспорт

   КонтекстНашейФормы=Конт;

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



Процедура ОсвободитьКонтекст() Экспорт

   КонтекстНашейФормы=-1;

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

...

Процедура ОбработкаВнешнегоСобытия(Источник,Событие,Данные)

   ...

   Если КонтекстНашейФормы<>-1 тогда

     КонтекстНашейФормы.КоличествоСобытий=КоличествоСобытий+1;   

     КонтекстНашейФормы.Форма.Обновить(0);

   КонецЕсли;

   ...

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

...

КонтекстНашейФормы=-1;

========================================



Модуль нашей формы

========================================

Перем Дозвон;



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

   ...

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

   Дозвон=СоздатьОбъект("AddIn.RasDial");



   ВзятьКонтекст(Конт);

   ...

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



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

   ...

   ОсвободитьКонтекст(Конт)

   ...

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



Процедура НашДозвон()

   Дозвон.Дозвониться("Мое соединение",

	"логин","пароль","p1055555",1);

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

        pop3.ПолучитьВсеПисьма(0,1,1);

       pop3.Отключиться();

 

Процедура Отправить()

	Флаг=0;

	Попытка

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

			Сообщить("Не удалось загрузить ROM-Mail.dll");

			Возврат;

		КонецЕсли;

	Исключение

		Возврат;

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



	ВК=СоздатьОбъект("AddIn.AddInMail");

	ВК.СерверОтправки=СокрЛП(СерверОтправки);

	ВК.ПортОтправки=СокрЛП(ПортОтправки);

	ВК.Логин=СокрЛП(Логин);

	ВК.Пароль=СокрЛП(Пароль);

	ВК.АутентификацияПриОтправке=флАутентификацияПриОтправке;

	Если ВК.Подключиться("Отправка")=0 Тогда

	    Предупреждение("Не удалось подключиться к серверу!");

		Возврат;

	КонецЕсли;

	ВК.АдресОтправителя=СокрЛП(АдресОтправителя);

	ВК.ИмяОтправителя=СокрЛП(ИмяОтправителя);

	ВК.АдресПолучателя=СокрЛП(АдресПолучателя);

	ВК.Тема=СокрЛП(Тема);

	ВК.Тело="";

	ВК.Вложения=СокрЛП(Вложения);

	ВК.Кодировка="windows-1251";

	ВК.ТипПисьма=2;

	ВК.Тело=СокрЛП(Тело);

	

	Если ВК.Отправить()=1 Тогда

	    Предупреждение("Сообщение отправлено!");

	Иначе

	    Предупреждение("Не удалось отправить сообщение!");

	КонецЕсли;

    ВК.Отключиться();

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



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

	

	//

	// Чтобы картинка отображалась в теле письма - цепляем ее как вложение.

	// Ссылка на картинку в исходном коде html-файла не должна содержать пути.

	// Т.е. <img src=""xRom.gif"" height=""40"" width=""40"" alt=""xRom.gif"" border=""0"">

	

	СерверОтправки 	= "192.168.1.11";

	ПортОтправки	= "25";

	ИмяОтправителя="Пупкин Василий";

	АдресОтправителя="pupkin@kiev.ua";

	АдресПолучателя="Вася Пупкин <pupkin@kiev.ua>; Василиса Пупкина<pupkina@kiev.ua>";

	Тема="ВК. Пример отправки почты ROM-Mail";

	Тело="текст сообщения";



	ПутьЕРТ="";ИмяЕРТ="";

	РасположениеФайла(ПутьЕРТ,ИмяЕРТ);

	Вложения=ПутьЕРТ+"xRom.gif";

	флАутентификацияПриОтправке=1;

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



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

	Имя=""; Каталог="";

	Если ФС.ВыбратьФайл(0,Имя,Каталог,"Выбор файла вложения","Все(*.*)|*.*")=1 Тогда

	    Вложения=СокрЛП(Вложения)+?(ПустоеЗначение(Вложения)=0,";","")+Каталог+Имя;

	КонецЕсли;

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

 Функция InputData(User, Command)



    обДанные = Справочники.Данные.СоздатьЭлемент();



    обДанные.Наименование = User + ":" + Command;



    обДанные.Записать();



    Возврат Истина;



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

 Функция GetClientOrders()

    МассивЗаказовПокупателейТип = ФабрикаXDTO.Тип("http://company.com/1C/ClientOrder", "ArrayOfClientOrders");

    ЗаказПокупателяТип = ФабрикаXDTO.Тип("http://company.com/1C/ClientOrder", "ClientOrder");

    ЗаказПокупателяСтрокаТип = ФабрикаXDTO.Тип("http://company.com/1C/ClientOrder", "ClientOrderRow");

    НоменклатураТип = ФабрикаXDTO.Тип("http://company.com/1C/Nomenclature", "Nomenclature");

    Запрос = Новый Запрос;

    Запрос.Текст = 

        "ВЫБРАТЬ

        |	ЗаказПокупателя.Ссылка,

        |	ЗаказПокупателя.Номер,

        |	ЗаказПокупателя.Дата

        |ИЗ

        |	Документ.ЗаказПокупателя КАК ЗаказПокупателя";

    Результат = Запрос.Выполнить();

    Выборка = Результат.Выбрать();

    Если Выборка.Количество() = 0 Тогда

        Возврат Null;

    КонецЕсли;

    МассивЗаказовПокупателей = ФабрикаXDTO.Создать(МассивЗаказовПокупателейТип);

    

    Пока Выборка.Следующий() Цикл

        ЗаказПокупателя = ФабрикаXDTO.Создать(ЗаказПокупателяТип);

        ЗаказПокупателя.Number = Выборка.Номер;

        ЗаказПокупателя.Date = Выборка.Дата;

            Для каждого Строка Из Выборка.Ссылка.Товары Цикл

            ЗаказПокупателяСтрока = ФабрикаXDTO.Создать(ЗаказПокупателяСтрокаТип);

            Номенклатура = ФабрикаXDTO.Создать(НоменклатураТип);

            Номенклатура.Code = Строка.Номенклатура.Код;

            Номенклатура.Name = Строка.Номенклатура.Наименование;

            ЗаказПокупателяСтрока.Nomenclature = Номенклатура;

            ЗаказПокупателяСтрока.Count = Строка.Количество;

            ЗаказПокупателя.Products.Добавить(ЗаказПокупателяСтрока);

        КонецЦикла;

        МассивЗаказовПокупателей.ClientOrder.Добавить(ЗаказПокупателя);

    КонецЦикла;

    Возврат МассивЗаказовПокупателей;

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

 Если ПустаяСтрока(ТелефонКлиента) Тогда

		Сообщить("Не определен телефон экспедитора загрузки");

		Предупреждение("СМС не может быть отправлено");

	Иначе

		

		Адресат = ТелефонКлиента;

		Адресат = СтрЗаменить(СтрЗаменить(Адресат, "(", ""), ")", "");

		Адресат = СтрЗаменить(СтрЗаменить(СтрЗаменить(Адресат, ".", ""), "-", ""), " ", "");

		Адресат = СтрЗаменить(Адресат, "+", "");

		

		WinHttp = Новый COMОбъект("WinHttp.WinHttpRequest.5.1");

		WinHttp.Option(2, "Windows-1251");

		WinHttp.Open("POST", "http://mtscommunicator.ru/m2m/m2m_api.asmx/SendMessage", 0);



		WinHttp.SetRequestHeader("Accept-Language", "ru");

		WinHttp.SetRequestHeader("Accept-Charset","Windows-1251");

		WinHttp.setRequestHeader("Content-Language", "ru");

		WinHttp.setRequestHeader("Content-Charset", "Windows-1251");

		WinHttp.setRequestHeader("Content-Type","application/x-www-form-urlencoded");



		ПараметрыPOST = "msid=" + Адресат + "&message=" + ПодготовитьСообщение(ТекстСМС) + "&naming=USER&login=NUMERLOGIN&password=PASSWORD";



		Ошибка = Ложь;

		ИДСообщения = "";

		

		Попытка

			

			WinHttp.Send(ПараметрыPOST);



			ИмяФайлаЗапроса = ПолучитьИмяВременногоФайла();



			Текст = Новый ЗаписьТекста(ИмяФайлаЗапроса, КодировкаТекста.UTF8);

			Текст.ЗаписатьСтроку(WinHttp.ResponseText());

			Текст.Закрыть();

		

			Ошибка = (WinHttp.Status <> 200);

			

		Исключение

			Ошибка = Истина;

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

		

		Если НЕ Ошибка Тогда 

			

			Попытка

				

				XMLОтвет = Новый ЧтениеXML;

				XMLОтвет.ОткрытьФайл(ИмяФайлаЗапроса);	

				

				Пока XMLОтвет.Прочитать() Цикл

					Если XMLОтвет.ТипУзла = ТипУзлаXML.НачалоЭлемента И (XMLОтвет.Имя = "long")  Тогда

						XMLОтвет.Прочитать();

						ИДСообщения = XMLОтвет.Значение;

						Прервать;

					КонецЕсли;

				КонецЦикла;		

				

			Исключение

				Ошибка = Истина;

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

			

		КонецЕсли;

		

		Если Ошибка Тогда 

			Сообщить("Не удалось отправить СМС. Проверьте настройки подключения");

			Предупреждение("СМС не было отправлено");

		Иначе

	

			ПоказатьОповещениеПользователя("Отправка СМС",, "СМС-сообщение отправлено ", БиблиотекаКартинок.СМС);

			

		КонецЕсли;

КонецЕсли;



//Преобразование текста сообщения

Функция ПодготовитьСообщение(Сообщение)

	

	ВрСообщение = "";

	

	Для ТекСимвол = 1 По СтрДлина(Сообщение) Цикл

		Если КодСимвола(Сред(Сообщение, ТекСимвол, 1)) = 10 Тогда

			ВрСообщение = ВрСообщение + " ";

		Иначе

			ВрСообщение = ВрСообщение + Сред(Сообщение, ТекСимвол, 1);

		КонецЕсли;

	КонецЦикла;

	

	Сообщение = ВрСообщение;

	Сообщение = СтрЗаменить(Сообщение, "%", "%25");

	Сообщение = СтрЗаменить(Сообщение, " ", "%20");

	Сообщение = СтрЗаменить(Сообщение, "&", "%26");

	Сообщение = СтрЗаменить(Сообщение, "#", "%23");

	Сообщение = СтрЗаменить(Сообщение, "*", "%2A");

	Сообщение = СтрЗаменить(Сообщение, "|", "%7C");

	Сообщение = СтрЗаменить(Сообщение, "\", "%5C");

	Сообщение = СтрЗаменить(Сообщение, "/", "%2F");

	Сообщение = СтрЗаменить(Сообщение, "?", "%3F");

	Сообщение = СтрЗаменить(Сообщение, "^", "%5E");

	

	Возврат Сообщение;

	

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



   

 

// Функция считывает в табличный документ данные из файла в формате ODF Calc(ods)

//

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

// ТабличныйДокумент – ТабличныйДокумент, в который необходимо прочитать данные

// ИмяФайла – имя файла в формате ODF, из которого необходимо прочитать данные

// НомерЛистаCalc – номер листа книги Calc, из которого необходимо прочитать данные

//

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

// Истина, если файл прочитан, Ложь – иначе

//

Функция мПрочитатьТабличныйДокументИзCalc(ТабличныйДокумент, ИмяФайла, НомерЛистаCalc = 1) Экспорт



ВыбФайл = Новый Файл(ИмяФайла);

Если НЕ ВыбФайл.Существует() Тогда

Сообщить(“Файл не существует!”);

Возврат Ложь;

КонецЕсли;



Попытка

ServiceManager = Новый COMОбъект(“com.sun.star.ServiceManager”);

Desktop = ServiceManager.CreateInstance(“com.sun.star.frame.Desktop”);

Desktop.getCurrentFrame().getContainerWindow().setVisible(Ложь); //сделаем невидимым основное окно.



//установим параметры – не показывать таблицу Calc

Параметры = Новый COMSafeArray(“VT_DISPATCH”, 1);

Свойство = ServiceManager.Bridge_GetStruct(“com.sun.star.beans.PropertyValue”);

Свойство.Name = “Hidden”;

Свойство.Value = true;

Параметры.SetValue(0,Свойство);



Document = Desktop.LoadComponentFromURL(“file:///” + ИмяФайла, “_blank”, 0, Параметры);

Состояние(“Обработка файла Office Calc …”);

Листы = Document.getSheets();

Лист = Листы.getByIndex(НомерЛистаCalc-1);

Исключение

Сообщить(“Ошибка загрузки данных. Возможно неверно указан номер листа книги Calc.”);

Возврат ложь;

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



ТабличныйДокумент.Очистить();



//Определение максимум ячейки с данными…

НульЯчейка = Лист.GetCellbyPosition(0,0);

НульКурсор = Лист.createCursorByRange(НульЯчейка);

НульКурсор.GotoEndOfUsedArea(1);

НульАдрес = НульКурсор.RangeAddress;

ПослСтрока = НульАдрес.EndRow;

ПослКолонка = НульАдрес.EndColumn;



//Для Column = 1 По ПослКолонка + 1 Цикл

// ТабличныйДокумент.Область(“C” + Формат(Column, “ЧГ=”)).ШиринаКолонки = Лист.getColumns.getByIndex(Column-1).Width;

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



Для Row = 1 По ПослСтрока + 1 Цикл



Если Лист.getCellByPosition(Column-1,Row-1).getType() = 0 Или Лист.getCellByPosition(Column-1,Row-1).getType() = 1 Тогда ТабличныйДокумент.Область(“R” + Формат(Row, “ЧГ=”) +”C” + Формат(Column, “ЧГ=”)).Текст = Лист.getCellByPosition(Column-1,Row-1).value;

ИначеЕсли Лист.getCellByPosition(Column-1,Row-1).getType() = 2 Тогда ТабличныйДокумент.Область(“R” + Формат(Row, “ЧГ=”) +”C” + Формат(Column, “ЧГ=”)).Текст = Лист.getCellByPosition(Column-1,Row-1).string;

КонецЕсли;

КонецЦикла;



//ServiceManager.quit();

Document.Dispose();

Document = 0;

Параметры = 0;

Desktop = 0;

ServiceManager = 0;



Возврат Истина;



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

 ДиалогВыбораФайла.Фильтр = “Табличный документ (*.mxl)|*.mxl|Лист Calc (*.ods)|*.ods|Лист Excel (*.xls)|*.xls|Текстовый документ (*.txt)|*.txt|dBase III (*.dbf)|*.dbf|”;   

 МакетНаименование="WodrFile";

	ИмяФайла = "t" + МакетНаименование + ".tmp";

	

	ОбъектВорд = Новый COMObject("Word.Application");

	ОбъектВорд.Documents.Add(ИмяФайла,,, Истина);

	ОбъектВорд.ActiveWindow.Caption = МакетНаименование;

	ОбъектВорд.Visible = 0;

	//...

	// ТУТ ЧТО-ТО ЗАПИСЫВАЕМ В ДОКУМЕНТ

	//...

	ДокДляСохранения = ОбъектВорд.ActiveDocument();

	

	//УСТАНАВЛИВАЕМ ПАРОЛЬ

	ДокДляСохранения.Protect(2, 0, "P@ssW0rd"); 

	

	ДокДляСохранения.SaveAs(ИмяФайла, 0);

	ДокДляСохранения.Close();

	ОбъектВорд.Quit();