В начало

Загрузить отмеченные

 

Процедура ЗагрузитьОтмеченные (Кнопка)

            Сервер = Новый FTPСоединение (FTPServer);

            Для Каждого Файл Из ПолеСписка Цикл

                        Если Файл.Пометка Тогда

                                   Сервер.Получить (Файл.Значение.ПолноеИмя, "с:\temp" + Файл.Значение.ПолноеИмя);

                                   Файл.Пометка = Ложь;

                        КонецЕсли;

            КонецЦикла;

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