Имя: Пароль:
1C
1С v8
Интернет прокси
, ,
0 DeMi4
 
20.01.12
10:36
Нужно ли указывать при сединении по ФТП прокси если его нету.
1 Черт
 
20.01.12
10:37
а что можно указать, если ничего нет
2 Wobland
 
20.01.12
10:37
<Прокси> (необязательный)
с вас 500 руб
3 DeMi4
 
20.01.12
10:39
Почему то просто метод не работает найти файлы, ошибку аутентификации выдает. Не хочет по всем каталогам искать
4 Wobland
 
20.01.12
10:40
(3) FTPСоединение в Попытке же, правда?
5 DeMi4
 
20.01.12
10:41
Ну да в попытке
6 DeMi4
 
20.01.12
10:42
Попытка
   ФТП = Новый FTPСоединение(СокрЛП(Константы.АдресFTPЗагрузки.Получить()),21,СокрЛП(Константы.ЛогинЗагрузки.Получить()), СокрЛП(Константы.ПарольЗагрузка.Получить()),,Истина);
   ФТП.ТекущийКаталог();
   ФТП.УстановитьТекущийКаталог(СокрЛП(Константы.КаталогЗагрузки.Получить()));
   НайденныеФайлы = ФТП.НайтиФайлы(СокрЛП(Константы.КаталогЗагрузки.Получить()),"*.dbf",Истина);
   Файлы=НайденныеФайлы;
7 DeMi4
 
20.01.12
10:43
Что именно в этом проблема
8 Wobland
 
20.01.12
10:43
(6) Попытка
Новый FTPСоединение("");
Исключение
Предупреждение("я дурак!");
КонецПопытки
9 DeMi4
 
20.01.12
10:46
Сообщение = Новый СообщениеПользователю;
   СпрСтрок = Справочники.СтрокиФ130;
   ДБФ = Новый("XBase");
   Попытка
   ФТП = Новый FTPСоединение(СокрЛП(Константы.АдресFTPЗагрузки.Получить()),21,СокрЛП(Константы.ЛогинЗагрузки.Получить()), СокрЛП(Константы.ПарольЗагрузка.Получить()),,Истина);
   ФТП.ТекущийКаталог();
   ФТП.УстановитьТекущийКаталог(СокрЛП(Константы.КаталогЗагрузки.Получить()));
   НайденныеФайлы = ФТП.НайтиФайлы(СокрЛП(Константы.КаталогЗагрузки.Получить()),"*.dbf",Истина);
   Файлы=НайденныеФайлы;
   Если Файлы.Количество()>0 Тогда
       Для каждого ТекущийФайл из файлы Цикл
           Сообщение.Текст="Выполняется обработка файла: "+ТекущийФайл.ПолноеИмя;
           ФТП.Получить(ТекущийФайл.ПолноеИмя,КаталогВременныхФайлов()+ТекущийФайл.Имя);//Перетащим на компьютер с ФТП файл для более быстрого чтения
           //Определим в какой именно документ будет заносить данные
           //Если есть _К то в товары
           //Если нету то в строки
           Если Прав(ТекущийФайл.ИмяБезРасширения,2)="_K" Тогда
               
               РезультатПоиска=ПоискДокумента(ТекущийФайл.ИмяБезРасширения);
               
               Если РезультатПоиска="НеНайден" Тогда
               Док= Документы.ТоварыИзОС;    
               НовыйДок=Док.СоздатьДокумент();
               ЗаполнитьОсновныеДанные(НовыйДок,ТекущийФайл.ИмяБезРасширения);
               ЗаполнениеТоварногоДокумента(НовыйДок,ТекущийФайл.Имя);
               НовыйДок.Записать();
               Иначе
               ДокОбъект=РезультатПоиска.ПолучитьОбъект();
               Если ДокОбъект.Проведен=Истина Тогда
                   ДокОбъект.Проведен=Ложь
               КонецЕсли;
               ЗаполнитьОсновныеДанные(ДокОбъект,ТекущийФайл.ИмяБезРасширения);
               ДокОбъект.ТоварыКасса.Очистить();
               ЗаполнениеТоварногоДокумента(ДокОбъект,ТекущийФайл.Имя);
               ДокОбъект.Записать();
               конецЕсли;
               
           Иначе
               
               РезультатПоиска=ПоискДокумента(ТекущийФайл.ИмяБезРасширения);
               Если РезультатПоиска="НеНайден" Тогда
               Док= Документы.ДанныеИзОС;    
               НовыйДок=Док.СоздатьДокумент();
               ЗаполнитьОсновныеДанные(НовыйДок,ТекущийФайл.ИмяБезРасширения);
               ЗаполнениеСтроковогоДокумента(НовыйДок,ТекущийФайл.Имя);
               НовыйДок.Записать();
               Иначе
               ДокОбъект=РезультатПоиска.ПолучитьОбъект();
               Если ДокОбъект.Проведен=Истина Тогда
                   ДокОбъект.Проведен=Ложь
               КонецЕсли;
               ЗаполнитьОсновныеДанные(ДокОбъект,ТекущийФайл.ИмяБезРасширения);
               ДокОбъект.Строки.Очистить();
               ЗаполнениеСтроковогоДокумента(ДокОбъект,ТекущийФайл.Имя);
               ДокОбъект.Записать();
               КонецЕсли
           КонецЕсли;
               Сообщение.Сообщить();
       КонецЦикла    
   КонецЕсли;
   Сообщение.Текст="Загрузка данных с FTP выполнена успешно "+ТекущаяДата();
   Сообщение.Сообщить();    
   Исключение
   Сообщение.Текст=ОписаниеОшибки();
   Сообщение.Сообщить();
   КонецПопытки;
10 DeMi4
 
20.01.12
10:46
Дак нет какая связь попытки и соединения по ФТП
11 Wobland
 
20.01.12
10:46
(9) читать (8) до просветления
12 DeMi4
 
20.01.12
10:48
Все абсолютно так же написано
13 Wobland
 
20.01.12
10:49
(12) у тебя между Попыткой и Исключением чуть более одной строки
14 DeMi4
 
20.01.12
10:50
А это то как может повлиять
15 Ковычки
 
20.01.12
10:50
проверь експлорером, не ие
16 Defender aka LINN
 
20.01.12
10:51
(3) "ошибку аутентификации выдает" - ну да, это ж явно с прокси проблема.
17 Wobland
 
20.01.12
10:51
(14) на какой строке оно у тебя в исключение вываливается?
18 Wobland
 
20.01.12
10:52
(16) не ври, проблема с тем, кто прокси не указывает
19 DeMi4
 
20.01.12
10:52
17 на методе найти файлы
20 Wobland
 
20.01.12
10:53
(19) -> (15)
21 Ковычки
 
20.01.12
10:54
видать стенка не может обеспечить активный режим (в восьмерке не знаю есть ли возможноть с пассивным работать)
22 Wobland
 
20.01.12
10:55
(21) предпоследний (вроде) параметр у FTPСоединение("");
23 DeMi4
 
20.01.12
10:57
Все нормально работает если через експлорер, и в 8 захожу используя пассивный режим
24 Ковычки
 
20.01.12
11:03
(23) именно через експлорер, а не через интернет експлорер ?
25 DeMi4
 
20.01.12
11:04
Да именно через проводник
26 Ковычки
 
20.01.12
11:09
<ПассивноеСоединение> (необязательный)

Тип: Булево. Определяет тип ftp-соединения.
Значение по умолчанию: Ложь
27 Ковычки
 
20.01.12
11:10
<Прокси> (необязательный)

Тип: ИнтернетПрокси. Прокси, используемый для соединения с сервером.
Значение по умолчанию: Системные установки прокси-сервера
28 DeMi4
 
20.01.12
11:11
Ну и так и так пробовал
29 DeMi4
 
20.01.12
11:12
ФТП = Новый FTPСоединение(СокрЛП(Константы.АдресFTPЗагрузки.Получить()),21,СокрЛП(Константы.ЛогинЗагрузки.Получить()), СокрЛП(Константы.ПарольЗагрузка.Получить()));
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.