ПутьПодключения = "c:\";

	СтрокаПодключения 	= "Driver={Microsoft Text Driver (*.txt; *.csv)};"; 

	СтрокаПодключения 	= СтрокаПодключения + "Dbq=" + ПутьПодключения + ";"; 

	СтрокаПодключения 	= СтрокаПодключения + "Uid=" + "Extensions=txt" + ";"; 

	

	Conn = Новый COMОбъект("ADODB.Connection"); 

	Conn.ConnectionString = СтрокаПодключения; 

	Conn.Open();

	

	

	rst = Новый COMОбъект("ADODB.Recordset"); 

	

	Попытка

		rst.Open("S_elect * from file#txt", Conn); 

		

				

		Пока rst.EOF() = 0 Цикл

			

			textstr="";



			Для iCount = 0 По rst.Fields.Count-1 Цикл

				

				textstr =  textstr   + "|" + rst.Fields(iCount).Value;

							

			КонецЦикла;

			Сообщить(textstr);

             rst.MoveNext();	

		КонецЦикла;

	Исключение

		rst.Close();

		Conn.Close();

		

		Предупреждение(ОписаниеОшибки());

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

 // Загружает данные из текстовых данных

//

// Параметры

// Стр_КаталогДанных - <Строка>

//

// Автор: Gmix 04.05.2006 12:22:09

//     

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

//   <Булево>

//

Функция ЗагрузитьДанныеИзtxt(Стр_КаталогДанных)

            // проверки заполнения

           

            ОБ_ФайлДанных=Новый Файл(Стр_КаталогДанных);

            Если НЕ ОБ_ФайлДанных.ЭтоКаталог() Тогда

                        Сообщить("Необходимо указать каталог данных!",СтатусСообщения.ОченьВажное);

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

            КонецЕсли;

          

            Если НЕ ОБ_ФайлДанных.Существует() Тогда

                Сообщить("Каталог """+Стр_КаталогДанных+""" не существует!",СтатусСообщения.ОченьВажное);

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

            КонецЕсли;

           

            ОБ_АДОКонект = Новый COMОбъект("ADODB.Connection");

            ОБ_АДОРекордсетШапка = Новый COMОбъект("ADODB.Recordset");

            ОБ_АДОРекордсетСтроки = Новый COMОбъект("ADODB.Recordset");

           

            //Определяем пару файлов

            Стр_ОкончаниеФайла="";

            ФайлыШапок = НайтиФайлы(Стр_КаталогДанных, "Head_*.txt");

            Для каждого ФайлШапки Из ФайлыШапок Цикл

                        Стр_ОкончаниеФайла=Сред(ФайлШапки.ИмяБезРасширения,6);

                        Стр_таблицаШапки=ФайлШапки.Имя;

                       

                        Стр_ТаблицаСтрок="Rows_"+Стр_ОкончаниеФайла+".txt";

                        Стр_ИмяФайлСтрок=ДобавлениеСлеша(Стр_КаталогДанных)+Стр_ТаблицаСтрок;

                        ФайлСтрок=Новый Файл(Стр_ИмяФайлСтрок);

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

                            Сообщить("Не найден файл строк для файла шапки """+Стр_таблицаШапки+"""! Пара файлов не обработана",СтатусСообщения.Важное);

                                   Продолжить;

                        КонецЕсли;

                       

                        //Создаем схему данных

                        ФайлСхемыДанных=Новый Файл(ДобавлениеСлеша(Стр_КаталогДанных)+"schema.ini");

                        Если ФайлСхемыДанных.Существует() Тогда

                                  Попытка

                                       УдалитьФайлы(ФайлСхемыДанных.Путь,ФайлСхемыДанных.Имя);

                                   Исключение

                                       Сообщить("Не возможно удалить файл """+ФайлСхемыДанных.ПолноеИмя+""" для создания новой схемы данных! Проверте атрибуты файла",СтатусСообщения.Важное);

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

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

                        КонецЕсли;

                       

                        Стр_СхемаДанныхТхт="["+Стр_таблицаШапки+"]

                                                                                  |ColNameHeader=False

                                                                                  |Format=FixedLength

                                                                                  |Col1=NumberNote Text Width 20

                                                                                  |Col2=StoreNum Text Width 5

                                                                                  |Col3=DataNote DateTime Width 10

                                                                                  |Col4=DataDev DateTime Width 10

                                                                                  |Col5=DataDes DateTime Width 10

                                                                                  |Col6=CountLine Long Width 4

                                                                                 

                                                                                  |["+Стр_ТаблицаСтрок+"]

                                                                                  |ColNameHeader=False

                                                                                  |Format=FixedLength

                                                                                  |Col1=NumberNote Text Width 20

                                                                                  |Col2=Articul Text Width 7

                                                                                  |Col3=Counts Double Width 9";

                       

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

                        ТекстСхемы.Записать(Стр_СхемаДанныхТхт);

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

                       

                        // Создаем коннект

                        Попытка

                                   ОБ_АДОКонект.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Стр_КаталогДанных+";Extended Properties='text;FMT=Delimited;HDR=NO'");

                       Исключение

                                   Сообщить("Невозможно открыть соединение!"+ОписаниеОшибки(),СтатусСообщения.Важное);

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

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

 

                       Стр_SQL = "S_elect * FROM "+Стр_таблицаШапки;

                      

                        Попытка

                                    ОБ_АДОРекордсетШапка=ОБ_АДОКонект.Execute(Стр_SQL);                

                        Исключение

                            Сообщить("Ошибка выполнения запроса """+Стр_SQL+"""!"+ОписаниеОшибки(),СтатусСообщения.Важное);

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

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

 

                        Пока НЕ ОБ_АДОРекордсетШапка.EOF Цикл

                                  

                                   // Заказ

                                   Стр_НомерЗаказа     = ОБ_АДОРекордсетШапка.Fields("NumberNote").Value;

                                  Стр_КодКА= ОБ_АДОРекордсетШапка.Fields("StoreNum").Value;

                              

                                   Д_ДатаЗаказа= ОБ_АДОРекордсетШапка.Fields("DataNote").Value;

                                   Д_ДатаДоставки= ОБ_АДОРекордсетШапка.Fields("DataDev").Value;

                                   Д_ДатаСбора= ОБ_АДОРекордсетШапка.Fields("DataDes").Value;

                                   Ч_КоличествоСтрок            = ОБ_АДОРекордсетШапка.Fields("CountLine").Value;

                                 

                                   Сообщить("Заказ № "+Стр_НомерЗаказа+" от " +Д_ДатаЗаказа+ " Код контрагента: "+Стр_КодКА+" Дата доставки: "+Д_ДатаДоставки);

                                  

                                   // Обработка строк заказа

                                   Стр_SQL = "S_elect * FROM "+Стр_ТаблицаСтрок+" WHERE NumberNote='"+Стр_НомерЗаказа+"'";



                                   Попытка

                                               ОБ_АДОРекордсетСтроки=ОБ_АДОКонект.Execute(Стр_SQL);               

                                  Исключение

                                               Сообщить("Ошибка выполнения запроса """+Стр_SQL+"""!"+ОписаниеОшибки(),СтатусСообщения.Важное);

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

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



                                   Сч=0;

                                   Сообщить(" №           Артикул                     Количество");

                                   Пока НЕ ОБ_АДОРекордсетСтроки.EOF Цикл

                                              //Заполняем таб часть документа

                                               Сч=Сч+1;

                                               Стр_Артикул=СокрЛП(ОБ_АДОРекордсетСтроки.Fields("Articul").Value);

                                               Ч_Количество=ОБ_АДОРекордсетСтроки.Fields("Counts").Value;

                                               Сообщить(""+Сч+"    " +Стр_Артикул+ "               "+Ч_Количество);

                                               ОБ_АДОРекордсетСтроки.MoveNext();

                                   КонецЦикла;



                                   ОБ_АДОРекордсетШапка.MoveNext();

                        КонецЦикла;

           КонецЦикла;

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

КонецФункции // ЗагрузитьДанныеИзtxt() Gmix 04.05.2006 12:22:21   

 

// Автор elena777

Процедура 1с_обмен_с_WEB() //отдает файл на сайт и забирает ответ

СтруктураАдреса= ЭлектронныеДокументы.РазобратьАдрес("http://site.ru/index.php");

ОбменПорт = СтруктураАдреса.HTTPПорт;

ОбменСервер = СтруктураАдреса.HTTPСервер;

РесурсСервера = "/" + СтруктураАдреса.HTTPАдресСкрипта;



ИмяФайла = "C:\in.xml";



ОбъектXML = Новый ЗаписьXML;

ОбъектXML.ОткрытьФайл(ИмяФайла, "UTF-8");

ОбъектXML.ЗаписатьОбъявлениеXML();



ОбъектXML.ЗаписатьБезОбработки("");

ОбъектXML.Закрыть();



ЗаголовокHTTP = Новый Соответствие();

ЗаголовокHTTP.Вставить("Content-Type", "text/xml; charset=utf-8");



HTTP = Новый HTTPСоединение(ОбменСервер);



ИмяПолученногоФайла = "C:\out.txt";

Попытка

HTTP.ОтправитьДляОбработки(ИмяФайла, РесурсСервера, ИмяПолученногоФайла, ЗаголовокHTTP);

Сообщить( "ok" + ИмяФайла + " " + ИмяПолученногоФайла);

Исключение

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

Возврат;

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

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

   

  // Пример Defender aka LINN

ВремяНачала = ТекущаяДата(); 

Сообщить("Обработка начата: " + ВремяНачала); 



ТЗ = Новый ТаблицаЗначений; 

Текст = ПолучитьМакет("Макет").ПолучитьТекст(); 



RE = New COMObject("VBScript.RegExp"); 

RE.Global        = Истина; 

RE.IgnoreCase    = Истина; 

RE.Multiline    = Истина; 



RE.Pattern = "^.*$"; 



Строки = RE.Execute(Текст); 



RE.Pattern = "([^\|]+?|\|)(?=\|)"; 



ДобавитьКолонки = Истина; 



Для Каждого СтрокаТекста из Строки Цикл 

   СтрокаДляРазбора = СтрокаТекста.Value; 

    

   Результат = RE.Execute(СтрокаДляРазбора); 

    

   Если ДобавитьКолонки Тогда 

       НомерКолонки = 0; 

       Для Каждого Совпадение Из Результат Цикл 

           НомерКолонки = НомерКолонки + 1; 

           ТЗ.Колонки.Добавить("Колонка" + НомерКолонки); 

       КонецЦикла; 

       ДобавитьКолонки = Ложь; 

   КонецЕсли; 

    

   НоваяСтрока = ТЗ.Добавить(); 

    

   НомерКолонки = 0; 

   Для Каждого Совпадение Из Результат Цикл 

        

       Значение = Совпадение.Value; 

        

       НоваяСтрока[НомерКолонки] = ?(Значение = "|", "", Значение); 

       НомерКолонки = НомерКолонки + 1; 

   КонецЦикла; 

КонецЦикла; 



ВремяОкончания = ТекущаяДата(); 



Сообщить("Обработка завершена: " + ВремяОкончания + ", время обработки: " + Формат('00010101' + (ВремяОкончания-ВремяНачала), "ДФ=мм:сс")); 

Сообщить("Количество строк: " + ТЗ.Количество());   

 // Пример  aleks-id

Функция InitRegExp(Разделитель = "|")

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

    

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

    RegExp.MultiLine = Истина;  // истина — текст многострочный, ложь — одна строка 

    RegExp.Global = Истина;   // истина — поиск по всей строке, ложь — до первого совпадения 

    RegExp.IgnoreCase = Ложь; // истина — игнорировать регистр строки при поиске 

    

    RegExp.Pattern = "[^\" + Разделитель + "]+";

    Возврат RegExp;

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



Функция РазложитьСтрокуВМассив(RegExp, Строка)

    

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

    

    Массив = Новый Массив;

    

    Для Сч = 0 По Matches.Count - 1 Цикл

        Массив.Добавить(Matches.Item(Сч).Value);

    КонецЦикла;

    

    

    Возврат Массив;

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



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

    Текст = Новый ЧтениеТекста("C:\aktivy.txt", КодировкаТекста.ANSI);

    RegExp = InitRegExp();

    Стр = Текст.ПрочитатьСтроку();

    Пока Стр <> Неопределено Цикл

        масс = РазложитьСтрокуВМассив(RegExp, Стр);

        Стр = Текст.ПрочитатьСтроку();

    КонецЦикла;

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

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

   

 C:\Program Files\1cv81\bin\1cv8.exe» /out»C:\1c_work\Log.txt   

 C:\Program Files\1cv8\bin\1cv8.exe" CONFIG /F"C:\DemoTrd2" /N"Федоров (администратор)" /P"" /OutD:\my\log.txt /ReduceEventLogSize 2004-12-26 -saveAsC:\OldLog.elf    

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

ЭлементыФормы.ТекВремя.Заголовок = ТекущаяДата();

Батник = Новый ТекстовыйДокумент;

Батник.ДобавитьСтроку("echo off");

Батник.ДобавитьСтроку("w32tm /config /syncfromflags:manual /manualpeerlist:ntp.time.in.ua");

Батник.ДобавитьСтроку("w32tm /config /update");

Батник.ДобавитьСтроку("w32tm /resync > c:\res_set_time.txt");

Батник.Записать("c:\settime.bat",КодировкаТекста.OEM);



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

//WshExec = WshShell.Exec("c:\settime.bat");

СтрокаЗапуска = "c:\settime.bat";

WshShell.Run(СтрокаЗапуска,0,Истина);



Результат = Новый ТекстовыйДокумент;

Попытка

Результат.Прочитать("c:\res_set_time.txt",КодировкаТекста.OEM);

Исключение

Сообщить("Ошибка открытия файла!");

Возврат;

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

Рез = Результат.ПолучитьСтроку(2);

Сообщить(?(Найти(Рез,"успешно") > 0,"ОК!","Не удалось"));

Попытка

УдалитьФайлы("c:\settime.bat");

УдалитьФайлы("c:\res_set_time.txt");

Исключение

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

ЭлементыФормы.ТекВремя.Заголовок = ТекущаяДата();

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

 Документ  = Новый Файл("G:\модуль.txt");

Если Документ.Существует() Тогда

         ФайлСТекстом = "G:\модуль.txt";

         Док = Новый ЧтениеТекста(ФайлСТекстом);

         ВыбФайл = Док.Прочитать();

         //Выполним считанный код из файла  модуль.txt

         Выполнить(ВыбФайл);

Иначе

         Предупреждение("Файла с модулем НЕТ !");

КонецЕсли;   

 Option Explicit

Const Server = "62.76.65.113" ' Здесь мы зададим ip нашего общего ресурса (можно задать через имя компьютера)



If Ping (Server) = True Then ' проверим доступно ли место

Dim ProductCod 'код продукта (Смотри в каталоге каждого дистрибутива платформы в файле setup.ini

Dim DistrFolder 'каталог в которм находится дистрибутив платформы

Dim cmdLine 'Параметры запуска дистрибутива



'Деинсталируем предыдущие платформы

cmdLine = "REMOVE=ALL"



ProductCod = "{375C3BB1-6F1E-4D93-9AF7-6A379133CA81}"

DistrFolder= "\\" & Server & "\1s\8.2.10.73\"

    If Ustanovlena(ProductCod) Then ' Здесь и далее идет проверка на наличие установленной данной версии платформы

    SdelatEto ProductCod, DistrFolder + "1CEnterprise 8.2.msi", cmdLine

    'Иногда папка остается в каталоге installer после удаления - исправим это

    UdalitFolder ProductCod

    End If

    

ProductCod = "{8150646B-4F88-4415-AF2A-F96199E3DA37}"

DistrFolder= "\\" & Server & "\1s\8.2.10.77\"

    If Ustanovlena(ProductCod) Then 

    SdelatEto ProductCod, DistrFolder + "1CEnterprise 8.2.msi", cmdLine

    End If



'Установим текущую платформу

ProductCod = "{3D5173F0-371D-4B5D-B96A-9340D7F30431}"

DistrFolder= "\\" & Server & "\1s\8.2.10.82\"

cmdLine = "TRANSFORMS=adminstallrelogon.mst;1049.mst DESIGNERALLCLIENTS=0 THICKCLIENT=0 THINCLIENTFILE=1 THINCLIENT=1 WEBSERVEREXT=0 SERVER=0 CONFREPOSSERVER=0 CONVERTER77=0 SERVERCLIENT=0 LANGUAGES=RU" 

'В данном случае мне нужны только установленные тонкие клиенты, если надо больше - поменяйте на 1, то что надо установить   

    If Not Ustanovlena(ProductCod) Then ' Если текущая версия не установлена - установим ее

    SdelatEto ProductCod, DistrFolder + "1CEnterprise 8.2.msi", cmdLine

    End If    



ScopirovatSpisokBaz ' В любом случае обновим список ИБ (Вдруг или мы или пользователи, что-то поменяли)



End If  



Sub SdelatEto (ByVal productCode, ByVal msiPackage, ByVal CmdLine)

    On Error Resume Next

    Dim installer

    Set installer = Nothing

    Set installer = Wscript.CreateObject("WindowsInstaller.Installer")

    installer.UILevel = 2 'молчаливая установка (варианты смотрите в Руководстве администратора 8.2 стр.185

    installer.InstallProduct msiPackage,cmdLine

    Set installer = Nothing

End Sub



Sub UdalitFolder (ProductCod)

On Error Resume Next

Dim fso1, WSH1

set WSH1 = WScript.CreateObject("WScript.Shell")

Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")

fso1.DeleteFolder WSH1.ExpandEnvironmentStrings("%systemroot%") & "\Installer\" & ProductCod, True

End Sub



'Создаем список баз данных (копируем наш фал с сервера на клиент

Sub ScopirovatSpisokBaz

On Error Resume Next

Dim fso1, WSH1

Set WSH1 = WScript.CreateObject("WScript.Shell")

Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")

fso1.CopyFile "\\" & Server & "\1s\1CEStart\ibases.v8i",WSH1.ExpandEnvironmentStrings("%AppData%") & "\1C\1CEStart\ibases.v8i", True

End Sub



'создание ярлыка

Sub createShurtcut

    Dim WshShell, oShellLink, ServerBD, NameBD

    ServerBD = "IZO-NoteBook"

    NameBD = "1C_Dec_82" 

    Set WshShell = WScript.CreateObject("WScript.Shell")

    Dim strDesktop : strDesktop = WshShell.SpecialFolders("Desktop")

    Set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & shortcutName & ".lnk")

    oShellLink.TargetPath = WSHShell.ExpandEnvironmentStrings("%ProgramFiles%") & "\1cv82\Common\1cestart.exe /S" & ServerBD & "\" & NameBD 'Если не указывать параметры, то будет появлятся стандартное окно выбора ИБ, если укажем, то сразу имя пользователя-пароль 

    oShellLink.WindowStyle = 1

    oShellLink.Description = shortcutName

    oShellLink.Save 

    Set oShellLink = Nothing

    Set WshShell = Nothing

End Sub



Function Ustanovlena(ProductCod)

On Error Resume Next

Dim fso1, oFolders, WSH1

set WSH1 = WScript.CreateObject("WScript.Shell")

Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")

Set oFolders = Nothing

Set oFolders = fso1.GetFolder(WSH1.ExpandEnvironmentStrings("%systemroot%") & "\Installer\" & ProductCod)

If OFolders  Is Nothing Then

Ustanovlena = False

Else

Ustanovlena = True

End If

End Function



Function Ping(strHost)

' Просто пингуем наш компутер, проверяя включен ли он

        Dim objPing, objRetStatus

        Set objPing = GetObject("winmgmts:\\.\root\CIMV2").ExecQuery _

        ("S_elect * FROM Win32_PingStatus WHERE address = '" & strHost & "'")

        for Each objRetStatus in objPing

          if IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode<>0 Then

            Ping = False

          Else

            Ping = True

          End If

        Next

End Function   

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

//Выберем файл для сохранения выгрузки

Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);

Диалог.Заголовок = "Выберите файл для сохранения данных";

Диалог.ПолноеИмяФайла = "NDFL_"+Формат(НачПериода,"ДФ=MM_yyyy");

Диалог.Фильтр = "TXT (*.txt)|*.txt";

Диалог.МножественныйВыбор = Ложь; Диалог.Каталог = "D:\";

Если Диалог.Выбрать() Тогда 

	ФайлСохранения = Диалог.ПолноеИмяФайла; 

	//Выгрузим результат отчета СКД в Таблицу Значений	

	КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

	МакетКомпоновкиДанных = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, КомпоновщикНастроек.Настройки, , , Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений"));

	ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных; 

	ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновкиДанных);

	ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений;

	ДанныеТЗ = Новый ТаблицаЗначений;

	ПроцессорВывода.УстановитьОбъект(ДанныеТЗ);

	ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);

	

	//Выгрузим данные из Таблицы значений в Файл, запись данных в файл построчно

	Текст = Новый ЗаписьТекста(ФайлСохранения, КодировкаТекста.ANSI);

	Текст.ЗаписатьСтроку("Организация~КПП~Начислено13~Начислено30");

	Для Каждого стр из ДанныеТЗ Цикл

		Текст.ЗаписатьСтроку(СокрЛП(Строка(стр.Организация))+"~"+СокрЛП(стр.ПодразделениеОрганизацииКПП)+"~"+Формат(стр.Начислено13,"ЧГ=0")+"~"+Формат(стр.Начислено30,"ЧГ=0"));

	КонецЦикла;

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

КонецЕсли;

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



Процедура ВыбПериодНажатие(Элемент)

	НастройкаПериода = Новый НастройкаПериода;

	НастройкаПериода.УстановитьПериод(НачПериода, ?(КонПериода='0001-01-01', КонПериода, КонецДня(КонПериода)));

	НастройкаПериода.РедактироватьКакИнтервал = Истина;

	НастройкаПериода.РедактироватьКакПериод = Истина;

	НастройкаПериода.ВариантНастройки = ВариантНастройкиПериода.Период;

	Если НастройкаПериода.Редактировать() Тогда

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

		КонПериода = НастройкаПериода.ПолучитьДатуОкончания();

	КонецЕсли;

	// установить парметры периода для отчета СКД

	КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[4].Значение = НачПериода;

	КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы[5].Значение = КонПериода;

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

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

oWord.WindowState = 1;

oWord.Height = 0;

oWord.Width = 0;

myopendial = oWord.FileDialog(3);

myopendial.AllowMultiSelect = -1;

myopendial.Title = "Выбирайте файлы...";

Для i = 1 По myopendial.Filters.Count Цикл

       myopendial.Filters.Delete();

КонецЦикла;

myopendial.Filters.Add("1С файлы", "*.ert; *.mxl; *.txt", 1);

oWord.Visible=-1;

oWord.Activate();

myopendial.Show();

Для i = 1 По myopendial.SelectedItems.Count Цикл

   Сообщить(myopendial.SelectedItems.Item(i));

КонецЦикла;

oWord.Quit();

 // Сформировать почтовый профиль.

// При отправке нет необходимости указывать настройки, связанные с POP сервером.

ИПП = Новый ИнтернетПочтовыйПрофиль;

ИПП.АдресСервераSMTP = Константы.АдресСервераSMTP.Получить();

ИПП.ВремяОжидания = Константы.ВремяОжидания.Получить();

ИПП.Пароль = Константы.Пароль.Получить();

ИПП.ПарольSMTP = Константы.ПарольSMTP.Получить();

ИПП.Пользователь = Константы.Пользователь.Получить();

ИПП.ПользовательSMTP = Константы.ПользовательSMTP.Получить();

ИПП.ПортSMTP = Константы.ПортSMTP.Получить();



// Создать сообщение.

Сообщение = Новый ИнтернетПочтовоеСообщение;

Сообщение.Получатели.Добавить("file@server.ru");

Сообщение.Отправитель.Адрес = "test@serv.ru";

Сообщение.Тема = "Срочно в номер!";

Сообщение.Тексты.Добавить("Доброе время суток!");



Вложение = Новый ДвоичныеДанные(ПутьКФайлуВложения);

Сообщение.Вложения.Добавить(Вложение,"attach.txt");



// Подключиться и отправить.

Почта = Новый ИнтернетПочта;

Почта.Подключиться(ИПП);

Почта.Послать(Сообщение);

Почта.Отключиться();



// Формирование почтового профиля.

// При получении нет необходимости указывать настройки, связанные с SMTP сервером.

СостояниеПриема = "Подключение к серверу";

ИПП = Новый ИнтернетПочтовыйПрофиль;

ИПП.АдресСервераPOP3 = Константы.АдресСервераPOP3.Получить();

ИПП.ВремяОжидания = Константы.ВремяОжидания.Получить();

ИПП.Пароль = Константы.Пароль.Получить();

ИПП.Пользователь = Константы.Пользователь.Получить();

ИПП.ПортPOP3 = Константы.ПортPOP3.Получить();



Соединение = Новый ИнтернетПочта;

Соединение.Подключиться(ИПП);

СостояниеПриема = "Получение выборки писем";

Выборка = Соединение.Выбрать(ЗабиратьССервера);

СостояниеПриема = "Создание документов - писем";

КоличествоВВыборке = Выборка.Количество();

Индекс = 1;



Для Каждого Письмо Из Выборка Цикл

ТекПозиция = Окр(Индекс * 100/КоличествоВВыборке);

Если ТекПозиция <> Позиция Тогда

Позиция = ТекПозиция;

КонецЕсли;



Док = Документы.Письмо.СоздатьДокумент();

Док.Тема = Письмо.Тема;

СтрПолучатели = "";



Для Каждого Адрес Из Письмо.Получатели Цикл

СтрПолучатели = СтрПолучатели + Адрес.Адрес + ",";

КонецЦикла;



Док.Получатели = СтрПолучатели;

Если ТипЗнч(Письмо.Отправитель) = Тип("Строка") Тогда

Отправитель = Письмо.Отправитель;

Иначе

Отправитель = Письмо.Отправитель.Адрес;

КонецЕсли;



Док.Отправитель = Отправитель;

Содержание = "";



Для Каждого ТекстСообщения Из Письмо.Тексты Цикл

Содержание = Содержание + ТекстСообщения.Текст + Символы.ПС;

КонецЦикла;



Док.Содержание = Содержание;

Индекс = Индекс + 1;

Док.Записать();

КонецЦикла;



Соединение.Отключиться();    

 // Отправка почты

Почта = Новый Почта;

Почта.Подключиться("login", "password");



Сообщ = Новый ПочтовоеСообщение;

Сообщ.Текст = "Вот файл!";

Сообщ.Тема = "Срочно!!!";



Данные = Новый ДвоичныеДанные("c:\file.txt");

Сообщ.Вложения.Добавить(Данные,"file.txt");

Сообщ.Получатели.Добавить("file@server.ru");



Почта.Послать(Сообщ, Ложь);

Почта.Отключиться();



// Получим почту

Почта = Новый Почта;

Почта.Подключиться("login", "password");



Выборка = Почта.Выбрать(Истина, Ложь);

Для Каждого Сообщение Из Выборка Цикл

Сообщить("Тема: " + Строка(Сообщение.Тема));

Сообщить("Текст: " + Строка(Сообщение.Текст));



Для Каждого Вложение Из Сообщение.Вложения Цикл

   Сообщить(Строка(Вложение.Наименование));

КонецЦикла;

КонецЦикла;    

  // Загрузка файлов на FTP сервер

Процедура ЗагрузитьОтмеченные(Кнопка)

Сервер = Новый FTPСоединение(FTPServer);

Для Каждого Файл Из ПолеСписка Цикл

   Если Файл.Пометка Тогда

     Сервер.Получить(Файл.Значение.ПолноеИмя, "с:\temp" + Файл.Значение.ПолноеИмя);

     Файл.Пометка = Ложь;

   КонецЕсли;

КонецЦикла;

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



// Просмотр файлов на FTP сервере

Процедура Просмотреть(Кнопка)

Сервер = Новый FTPСоединение(FTPServer);

МассивФайлов = Сервер.НайтиФайлы("/","*.*");

Для Каждого Файл Из МассивФайлов Цикл

   Если Файл.ЭтоФайл() Тогда

     ПолеСписка.Добавить(Файл, Файл.Имя)

   КонецЕсли;

КонецЦикла;

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

  ПапкаКонтрагена = "Kontr";

    Попытка

        ИмяFTPСервера               = "*******";

        ПортFTPСоединения           = "21";

        ПользовательFTPСоединения   = "****" ;

        ПарольFTPСоединения         =  "*****" ;

        ПассивноеFTPСоединение      =  Ложь;

        Соединение = Новый FTPСоединение(ИмяFTPСервера, ПортFTPСоединения,ПользовательFTPСоединения,ПарольFTPСоединения, ,ПассивноеFTPСоединение);

        Массив = Соединение.НайтиФайлы("/"+ПапкаКонтрагена+"/", "");

        Если Массив.Количество() = 0 Тогда

           Соединение.СоздатьКаталог(ПапкаКонтрагена);           

         КонецЕсли;

        Соединение.УстановитьТекущийКаталог(ПапкаКонтрагена);

        Соединение.Записать(ИмяФайлаЗаписи, "file.txt"); 

    Исключение

        Сообщить("Ошибка записи файла на FTP!!!");

        Возврат ""; 

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