Как спросить. Подразделы. Удалённый доступ. Импорт (и прочие факи)

Function Ping(IPАдрес)
    Try
        ServicesSet = GetCOMObject("winmgmts:{impersonationLevel=impersonate}");
        Items = ServicesSet.ExecQuery("SELECT StatusCode from Win32_PingStatus WHERE address = '" + IPАдрес + "' AND Timeout=10");
    Except
        Return False;
    EndTry;
    For Each Item In Items Do
        If Item.StatusCode = 0 Then
            Return True;
        Else
            Return False;
        EndIf;
    Enddo;
    Return False;
EndFunction

Функция ИнициализацияЭкселя()
 
    //Пытаемся подключиться к Excel
    Попытка
        Excel = новый COMОбъект("Excel.Application");
        Сообщить("=====> Загрузка производится через MS Excel...");
        Возврат Истина;
    Исключение
        Возврат Ложь                
    КонецПопытки;     
    
КонецФункции
 
 
Процедура СохранитьНажатие(Элемент) Экспорт
    СтолбЗагр = 1; // задаю номер столбца№1 в эксель
    СтолбБаз = 2;  // задаю номер столбца№2 в эксель
    
    Если ИнициализацияЭкселя() Тогда
        Книга = Excel.WorkBooks.Add(); // создал новый документ
        Sheet = Книга.Sheets(1);          // открыл страницу 1
   
// цикл для заполнения таблицы эксель данными из табличного поля (по двум полям)     
        Для каждого стр из ТПП Цикл
            Sheet.Cells(стр,СтолбЗагр).Value=стр.НоменклатураЗагрузки;
            Sheet.Cells(стр,СтолбБаз).Value=стр.НоменклатураБазы.Наименование;
        КонецЦикла;
 
//выполняю сохранение документа       
        Попытка
            Книга.SaveAs("F:\1CBase\Внешнии обработки\правила12.xlsx");
        Исключение
            Сообщить(ОписаниеОшибки()+" Файл не сохранен!");
            Возврат;
        КонецПопытки;
    КонецЕсли;
    Книга.Application.Quit();
    Сообщить("Готово");
КонецПроцедуры

Процедура ПодключитьсяКFTP(СписокКоманд)
     Текст = СоздатьОбъект("Текст");
     Для Инд = 1 По СписокКоманд.РазмерСписка() Цикл
          Текст.ДобавитьСтроку(СписокКоманд.ПолучитьЗначение(Инд));
     КонецЦикла;
     Текст.Записать(КаталогПользователя() + "par.ftp");
     ФС.УстТекКаталог(КаталогПользователя()); 
     Пауза(2);
     vbs = СоздатьОбъект("Текст");
     vbs.ДобавитьСтроку("Dim oShell");
     vbs.ДобавитьСтроку("Set oShell = WScript.CreateObject ("+ симв(34) + "WSCript.shell"+ симв(34) +")");
     vbs.ДобавитьСтроку("oShell.run " + симв(34) + "ftp.exe -s:" + симв(34) + симв(34)  +  КаталогПользователя() + "par.ftp" + симв(34) + симв(34) + симв(34) + ", 0, -1");
     vbs.ДобавитьСтроку("Set oShell = Nothing"); 
     vbs.Записать(КаталогПользователя() + "ftp.vbs");
     Пауза(1);
     Состояние("Получаю файлы с FTP...");
     WshShell   = СоздатьОбъект("WScript.Shell");
     КодВозвр   = WshShell.Run(Симв(34) + КаталогПользователя() + "ftp.vbs" + симв(34),1,-1);
 
     Состояние("Удаляю временные файлы...");
     ФС.УдалитьФайл(КаталогПользователя() + "par.ftp");
     ФС.УдалитьФайл(КаталогПользователя() + "ftp.vbs");
     ОчиститьОкноСообщений();
КонецПроцедуры
 
//=================================================/
Функция ПолучитьСписокФайловФТП() 
    спФТП.УдалитьВсе();
    Список = СоздатьОбъект("СписокЗначений");
    Список.ДобавитьЗначение("open " + СокрЛП(FTPСервер));
    Список.ДобавитьЗначение(СокрЛП(FTPПользователь));
    Список.ДобавитьЗначение(СокрЛП(FTPПароль));
    Список.ДобавитьЗначение("cd " + СокрЛП(FTPПутьНаСервереДляПолученияФайлов));
    Список.ДобавитьЗначение("dir *.* " + симв(34) + КаталогПользователя() + "dir.ftp" + симв(34));
    Список.ДобавитьЗначение("bye"); 
    Список.ДобавитьЗначение("quit"); 
    ПодключитьсяКFTP(Список);
    Состояние("Получаю файлы...");
    Если ФС.СуществуетФайл(КаталогПользователя() + "dir.ftp") = 1 Тогда 
        тТекст     = СоздатьОбъект("Текст");
        тТекст.Открыть(КаталогПользователя() + "dir.ftp"); 
        Для ы=1 по тТекст.КоличествоСтрок() Цикл
            текСтрока   = тТекст.ПолучитьСтроку(ы);
            спФТП.ДобавитьЗначение(текСтрока);
        КонецЦикла;  
        ФС.УдалитьФайл(КаталогПользователя() + "dir.ftp");
        Возврат 1;
    Иначе
        Возврат 0;
    КонецЕсли;
КонецФункции  
//=================================================/
Процедура ПолучитьФайлыЗаДату(ТипДокумента, Знач НачДата)
    КвоФайловЗаДату  = 0;
    спПараметров     = СоздатьОбъект("СписокЗначений");
    Список = СоздатьОбъект("СписокЗначений");
    Список.ДобавитьЗначение("open " + СокрЛП(FTPСервер));
    Список.ДобавитьЗначение(СокрЛП(FTPПользователь));
    Список.ДобавитьЗначение(СокрЛП(FTPПароль));
    Список.ДобавитьЗначение("cd " + СокрЛП(FTPПутьНаСервереДляПолученияФайлов));
    Если ПолучитьСписокФайловФТП() = 1 Тогда
        Для ч=0 по КонДата-НачДата Цикл
            ЗаДату    = НачДата + ч;
            Для ы=1 по спФТП.РазмерСписка() Цикл
                текСтрока   = спФТП.ПолучитьЗначение(ы);
                ДатаВВидеСтроки = Формат(ЗаДату, "ДггггММДД");
                Если Найти(текСтрока, Нрег(ТипДокумента) + "_" + ДатаВВидеСтроки) = 0 Тогда
                    Продолжить;
                КонецЕсли;
                текСтрока  = СтрЗаменить(текСтрока," ","#");
                текСтрока  = СтрЗаменить(текСтрока,"########","#");
                текСтрока  = СтрЗаменить(текСтрока,"#######","#");
                текСтрока  = СтрЗаменить(текСтрока,"######","#");
                текСтрока  = СтрЗаменить(текСтрока,"#####","#");
                текСтрока  = СтрЗаменить(текСтрока,"####","#");
                текСтрока  = СтрЗаменить(текСтрока,"###","#"); 
                текСтрока  = СтрЗаменить(текСтрока,"##","#");
                текСтрока  = текСтрока + "#";
                Парсить(текСтрока, спПараметров, "#"); 
                имяФайлаФТП   =  спПараметров.ПолучитьЗначение(спПараметров.РазмерСПиска());
                Список.ДобавитьЗначение("recv " + имяФайлаФТП + " " +  симв(34) + РабочийКаталогВременныхФайлов + имяФайлаФТП + симв(34));
                КвоФайловЗаДату  = КвоФайловЗаДату+1;
            КонецЦикла;  
        КонецЦикла;  
    КонецЕсли;
    Если Список.РазмерСписка() > 4 Тогда
        Список.ДобавитьЗначение("bye");
        Список.ДобавитьЗначение("quit"); 
        ПодключитьсяКFTP(Список)
    КонецЕсли;
    Форма.Обновить();
КонецПроцедуры
        
//=================================================/
Процедура ПолучитьФайлы(ТипДокумента)
    ТекДата = НачДата;
    ПолучитьФайлыЗаДату(ТипДокумента, ТекДата);
КонецПроцедуры