Ошибки при новом запуске выгрузки из Альфа в БП

Внимание! Данный форум является модерируемым.
Для получения к нему доступа необходимо зарегистрироваться или авторизоваться на сайте.

Доступ к форуму партнерам «1C-Рарус» по дистрибуции предоставляется на сайте rarus-soft.ru

RSS

Ошибки при новом запуске выгрузки из Альфа в БП

Сергей Большаков

Заглянувший

Сообщений: 344 Регистрация: 18.02.2010

17.08.2010 09:58:23

Здравствуйте! Прошу исправить такую ситуацию: когда у пользователя нет прав что-либо записывать в каталог Program Files (а это почти всегда так, так как права пользователей должны быть ограничены), то при новом запуске обработки выгрузки в Альфа-Авто выдается ошибка и обработка выгрузки закрывается. Обработка выгрузки не может создать папку Exchange в папке с программой 1С.

Владимир Кудрявченко

Заглянувший

Сообщений: 96 Регистрация: 09.02.2010

17.08.2010 11:55:04

Здравствуйте,

в обработке Альфа-Авто ВыгрузкаДанныхБух в модуле формы в обработчике ПриОткрытии()
был изменен участок кода:

Код

   Если ИмяПути = Неопределено ИЛИ ПустаяСтрока(ИмяПути) Тогда
      ИмяПути = КаталогПрограммы();
      
      // В случае отсутствия подкаталога "Exchange", создадим его
      Если НайтиФайлы(ИмяПути, "Exchange").Количество() = 0 Тогда СоздатьКаталог(ИмяПути + "Exchange"); КонецЕсли;
      ВыбКаталог = ИмяПути + "Exchange";
      
   Иначе
      ВыбКаталог = ИмяПути;
   КонецЕсли;

на

Код

   ИмяПути = ВосстановитьЗначение("КаталогВыгрузкиДанныхБухгалтерия");
   Если ИмяПути = Неопределено ИЛИ ПустаяСтрока(ИмяПути) Тогда
      ИмяПути = КаталогВременныхФайлов();
      
      // В случае отсутствия подкаталога "Exchange", создадим его
      Если НайтиФайлы(ИмяПути, "Exchange").Количество() = 0 Тогда СоздатьКаталог(ИмяПути + "Exchange"); КонецЕсли;
      ВыбКаталог = ИмяПути + "Exchange";
      
   Иначе
      ВыбКаталог = ИмяПути;
   КонецЕсли;

Изменено: Владимир Кудрявченко - 17.08.2010 11:55:24

Читают тему

Поддержка отраслевых решений «1С-Рарус»

Узнать подробнее