&НаСервере

Процедура ОбновитьНоваяНаСервере()

    Справочники.ИдентификаторыОбъектовМетаданных.ВыполнитьОбновлениеДанных(Истина, ЛОЖЬ,Ложь);

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

  &НаКлиенте

Процедура ОбработатьВыборФайла(Результат, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры) Экспорт

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

 Возврат; 

КонецЕсли;

// Много кода обработки

//...

//...

//...





// ОБНОВИМ динамический список файлы

Элементы.Файлы.Обновить();



// для обновления Реквизитов

ЭтаФорма.Прочитать();



// Обновление данных

ЭтаФорма.ОбновитьОтображениеДанных();



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

Думаю, что все знают, как работает 1с с FTP сервером, но вот как работать с sFTP или FTPs сервером?
Первое что Вам нужно сделать - это установить бесплатную программу WinSCP, скачать ее Вы сможете здесь, также там есть вся необходимая литература по пользованию данной программы.
После того как Вы установили программу, Вам нужно добавить сессию, там все просто, прописываете узел, порт, логин и пароль к серверу.
Так же посоветую Вам вести логи данной программы, что бы потом можно было в любой момент посмотреть из-за чего не произошел обмен данными или проверять лог на успех или не успех синхронизации файлов. Для того что бы у Вас создавался лог нужно зайти на закладку «Журнализация» установить флажок записывать у файл и выбрать путь, имя файл советую сделать таким образом !S!Y!M!D.txt, это означает, что каждый день будет создаваться новый файл для лога с таким наименованием S – имя сессии, Y – год, M – месяц, D – день, то есть Вам потом будет намного удобнее считывать данные из логов.
Теперь приступим непосредственно к программирования в 1с и для этого нам нужно только знать основные команды WinSCP, весь список которых можно посмотреть на сайте программы. А я Вам приведу только те команды которые использовал я и которых на мой взгляд хватит для того что бы 1с успешно обменивалось данными с sFTP или FTPs серверами. Также я напишу что, зачем и в какой последовательности делал:
1. Перед тем как делать синхронизацию данных, нужно проверить есть ли вообще соединение с сервером, для этого мы делаем следующее:

Код 1C v 8.х

 ПроверимСоединение = """" +  ПутьWinSCP + """" + " /console /command " +  """option batch abort"" " + """open " + ПрофильWinSCP + """ " + " ""close"" ""exit""";

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

net.Run(ПроверимСоединение, 0, Истина);   

где ПутьWinSCP – строка – путь к программе (c:\Program Files (x86)\WinSCP\WinSCP.com, ОБРАТИТЕ внимание, что расширение файла должно быть com), ПрофильWinSCP – строка – профиль сессии, то как Вы назвали Вашу сессию, к примеру test_sFTP.
2. После того как мы выполнили предыдущую команду, настоятельно рекомендую делать следующее, искать по дате лог WinSCP и проверять его, не было ли ошибки в соединении, вариантов как это сделать много, но я делал так: с конца текста искал строку «Failed», до тех пор, пока не находил «Session name: " + ПрофильWinSCP», после этого поиск прерываем, ну и собственно если была обнаружена строка «Failed», то при подключении была ошибка.
3. Делаем синхронизацию файлов:

Код 1C v 8.х

 СтрокаСинхронизация = """" +  ПутьWinSCP + """" + " /console /command " +  """option batch abort"" " + """open " + ПрофильWinSCP + """ " + """synchronize both " + КаталогНаСервере1С + " " + КаталогНаSFTPСервере  + """ " + """ close"" ""exit""";

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

net.Run(СтрокаСинхронизация, 0, Истина);   

После этого снова проверяем лог.

Остальные команды которые могут Вам понадобится:
Запись файла на SFTP сервер:

Код 1C v 8.х

 СтрокаСинхронизация = """" +  ПутьWinSCP + """" + " /console /command " +  """option batch abort"" " + """open " + ПрофильWinSCP + """ " + """synchronize both " + КаталогНаСервере1С + " " + КаталогНаSFTPСервере  + """ " + """ close"" ""exit""";

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

net.Run(СтрокаСинхронизация, 0, Истина);   

Скопировать файл с SFTP сервера:

Код 1C v 8.х

 СтрокаПрограммы = """" +  ПутьWinSCP + """" + " /console /command " +  """option batch abort""    " + """open " + ПрофильWinSCP + """ " + """get "  + КаталогНаSFTPСервере + "/" + ИмяФайлаСтр + " " + КаталогНаСервере1С + "\" + """ " + """close"" ""exit"";

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

net.Run(СтрокаПрограммы, 0, Истина);   

Получить список файлов на SFTP серверу и записать его в файл:

Код 1C v 8.х

 СтрокаПрограммы = "cmd.exe /c """"" + ПутьWinSCP + """ /console /command " +  """option batch abort"" " + """open " + ПрофильWinSCP + """ " + """ls " + КаталогНаSFTPСервере + """""" + """ " + """ close""" + " > FMfiles.txt 2>&1" + """ " + """ exit""";

ЗапуститьПриложение(СтрокаПрограммы, ПутьКЛогам, Истина, КодВозврата);   

Источник: www.odincplus.com

В октябре 2009 года вышел в свет очередной релиз платформы 1С:Предприятия 8.2 под номером 8.2.9.356, а уже в ноябре планируется выход релиза номер 8.2.10. Столь уверенное развитие платформы естественно вызывает тягу к её изучению, а изучение, как правило, происходит параллельно с использованием уже проверенной версии. И так у нас возникла необходимость установки сервера предприятия 1С 8.2 на сервер с уже работающим сервером версии 8.1, без остановки последнего. В книге «1С:Предприятие 8.2. Клиент-серверный вариант. Руководство администратора» такая ситуация хоть и названа «достаточно редкой и специфичной», но допускается и рассматривается, как нормальная. Следуя рекомендациям книги и подсказкам всемирной сети, мы выполнили эту задачу и хотим поделиться своим опытом с вами в виде пошаговой инструкции.

В ветке реестра HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\1C:Enterprise 8.2 Server Agent Параметр ImagePath меняем номера портов, добавляя смещение: "C:\Program Files\1cv82\8.2.9.356\bin\ragent.exe" -srvc -agent -regport 1641 -port 1640 -range 1660:1691 -d "C:\Program Files\1cv82\srvinfo"

У кластера 8.1 они по умолчанию такие HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\1C:Enterprise 8.1 Server Agent "C:\Program Files\1cv81\bin\ragent.exe" -srvc -agent -regport 1541 -port 1540 -range 1560:1591 -d "C:\Program Files\1cv81\server"

Обращаем ваше внимание, что "C:\Program Files\1cv82\8.2.9.356» и "C:\Program Files\1cv81» - каталоги установки 8.2 и 8.1 по-умолчанию. Если у вас они другие, то обязательно должно выполняться условие различных каталогов служебных файлов, используемых разными агентами, в нашем случае «C:\Program Files\1cv82\srvinfo» и "C:\Program Files\1cv81\server".

Очищаем папку C:\Program Files\1cv82\srvinfo, проверяем доступ на запись в неё для пользователя USR1CV82 (при установке 1С 8.2 автоматически создается папка «reg_1541» и файл описания кластера с портом 1541, а при создании пользователя для старта сервера вручную он не обязательно может обладать правами на запись в «Program Files». И первое и второе приводит к остановке сервиса сразу после старта со следующей ошибкой "The Агент сервера 1С:Предприятия 8.2 service on Local Computer started and then stopped. Some services stop automatically if they have no work to do, for example, the Performance Logs and Alerts service.").

Стартуем второй ragent. с user name USR1CV82. Первый для 8.1 должен быть уже запущен.

В консоли управления серверами:
Создаем сервер с именем компьютера и портом 1640
Создаем кластер с портом 1641 (если его нет)
Создаем Рабочий сервер с портом 1640 и диапазоном 1660:1691 (если его нет)
Создаем Рабочий процесс
При добавлении базы в окне запуска 1С при записи Кластера серверов нужно указывать порт Пример: Имя_Компьютера:1641

Если запуск сервера планируется не от локальной системной записи, то лучше выбрать (создать предлагаемого USR1CV82) пользователя при установке 1С.

Все.

Кузнецов Александр Виталиевич
Управление программных разработок
Ведущий специалист ЗАТ "Спец-інвест"

Пример ярлык для запуска:
"C:\Program Files\1cv82\common\1cestart.exe" ENTERPRISE /S"server-1C:1641\BASAZUP"