Имя: Пароль:
1C
 
Serv-U File Server и 1C
0 Anisa8311
 
05.04.18
12:19
Коллеги, кто работал с Serv-U File Server как научить 1С дружить с этой передачей Ищу компетенции
1 shuhard
 
05.04.18
12:20
(0) это же ftp сервер
2 Cool_Profi
 
05.04.18
12:22
(0) Традиционно - позвать программиста. И не забыть заплатить ему
3 shuhard
 
05.04.18
12:24
(2) или замотивировать иным способом =)
4 g00d
 
05.04.18
12:29
(0) не понятно, что именно выхотите сделать? обмениваться через фтп папку? подключаться к http\https сервисам из 1с?
5 shuhard
 
05.04.18
12:30
(4) [Род занятий:     РП]
чё ты хочешь, ТС побежала за аналитиком и архитектором
6 g00d
 
05.04.18
12:32
(5) РП - руководитель проектов? Тогда все еще более странно, обычно люди этой профессии умеют четко формулировать задачи и мысль
7 novichok79
 
05.04.18
12:39
Попытка
        FTPСоединение = Новый FTPСоединение(ПараметрыПрофиляНастроекЭДО.АдресСервера,
                                            ПараметрыПрофиляНастроекЭДО.Порт,
                                            ПараметрыПрофиляНастроекЭДО.Логин,
                                            ПараметрыПрофиляНастроекЭДО.Пароль,
                                            Прокси,
                                            ПараметрыПрофиляНастроекЭДО.ПассивноеСоединение,
                                            Таймаут);
    Исключение
        ШаблонРезультата = НСтр("ru = '%1
            |%2'");
        ТекстОшибки = ЭлектронноеВзаимодействиеСлужебныйПовтИсп.ПолучитьСообщениеОбОшибке("121");
        РезультатТеста = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ШаблонРезультата, ТекстОшибки,
            КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
        ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ШаблонСообщения, РезультатТеста);
        ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения);
        Возврат Неопределено;
    КонецПопытки;
    
    Если ЭтоТест Тогда
        РезультатТеста = НСтр("ru = 'Пройден успешно.'");
        ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ШаблонСообщения, РезультатТеста);
        ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения);
    КонецЕсли;
    
    Возврат FTPСоединение;



Процедура ПолучитьФайлСFTP(FTPСоединение, Источник, ИмяВыходногоФайла, ЭтоТест = Ложь, РезультатТеста = Неопределено) Экспорт
    
    Попытка
        FTPСоединение.Получить(Источник, ИмяВыходногоФайла);
    Исключение
        РезультатТеста = ЭлектронноеВзаимодействиеСлужебныйПовтИсп.ПолучитьСообщениеОбОшибке("128");
        
        Если НЕ ЭтоТест Тогда
            ОбщегоНазначенияКлиентСервер.СообщитьПользователю(РезультатТеста);
        КонецЕсли;
    КонецПопытки;
    
КонецПроцедуры
8 shuhard
 
05.04.18
12:40
(6) РП на РП не приходиться =)
9 Cool_Profi
 
05.04.18
12:41
Расходимся, в ветке английский террорист ))))))
10 g00d
 
05.04.18
12:42
(7) а это что за яд?
11 novichok79
 
06.04.18
14:01
(10) это типовой код из ERP 2.4