Загрузка Классификатора банков из Бухгалтерии 2.0 (возможно в других конфигурациях) без прав на скачивание и запуск *.EXE-файлов
Учетные задачи - Банковские операции
Файлы
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний
Оформите подписку на компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкойВы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
В нашей сети пользователям категорически запрещено скачивание exe-файлов из интернета и запуск их на компьютерах. Отсюда возникла проблема скачивания файла cbrates.rbc.ru/bnk/bnk.exe и разархивирования его в %TEMP%\tempBik.
Файл bnk.exe - самораспаковывающийся архив, в котором содержится 3 текстовых файла: bnkdel.txt, bnkseek.txt и reg.txt
Попробовал в браузере поменять расширение EXE на ZIP и оказалось, что файл хранится на сервере и в этом варианте. Поэтому решил скорректировать стандартный код обработки "ЗагрузкаБанков":
В процедуре ПолучитьФайлРБК():
Адрес = "bnk/bnk.zip"; //exe заменил на zip +++АК--- 17.12.2013
...
//+++АК+++ Нет прав на запуск EXE, распаковываем файл с расширением ZIP
//КомандаСистемы(""""+ ВремКаталог + "\" + мИмяФайлаЗип + """", ВремКаталог);
ФайлыБанковZip = Новый ЧтениеZipФайла(ВремКаталог + "\" + мИмяФайлаЗип);
ФайлыБанковZip.ИзвлечьВсе(ВремКаталог + "\");
//---АК---
В разделе основной программы (внизу модуля):
мИмяФайлаЗип = "bnk.zip"; //+++АК--- 17.12.2013 Переименовал exe в zip
Т.е. при наличии у пользователя доступа в интернет и запрета на скачивание/запуск исполняемых файлов (*.exe) данный способ позволяет решить данную проблему средствами 1С.
Вступайте в нашу телеграмм-группу Инфостарт
