1С как выгрузить фа...
 
Уведомления
Очистить все

1С как выгрузить файл на FTP

1 Записи
1 Пользователи
0 Likes
324 Просмотры
65-150 Okolokompa Форум
(@kalininalex)
Reputable Member
Присоединился: 4 года назад
Записи: 160
Создатель темы  

Выгрузить файл на FTP в 1С:
// Глобальная процедура
Процедура глФТП(СписокКоманд) Экспорт
     Текст = СоздатьОбъект("Текст");
     Для Инд = 1 По СписокКоманд.РазмерСписка() Цикл
          Текст.ДобавитьСтроку(СписокКоманд.ПолучитьЗначение(Инд));
     КонецЦикла;
     Текст.Записать(КаталогИБ() + "ftp\par.ftp");
     ФС.УстТекКаталог(КаталогИБ() + "ftp\");
     КомандаСистемы("ftp -s:" + КаталогИБ() + "ftp\par.ftp");
     ФС.УдалитьФайл(КаталогИБ() + "ftp\par.ftp");
КонецПроцедуры
// При вызове передаем ей список значений с командами, например:
Процедура Сформировать()
     Список = СоздатьОбъект("СписокЗначений");
     Список.ДобавитьЗначение("open " + СокрЛП(Адрес));
     Список.ДобавитьЗначение(СокрЛП(Пользователь));
     Список.ДобавитьЗначение(СокрЛП(Пароль));
     Список.ДобавитьЗначение("get " + СокрЛП(ПутьКФайлу));
     Список.ДобавитьЗначение("quit");
     глФТП(Список);
КонецПроцедуры


   
Цитата
Поделиться: