Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 сен 2021, 14:39

Не отрабатывает регламентное задание

Автор HiVvich, 20 дек 2016, 11:54

0 Пользователей и 1 гость просматривают эту тему.

HiVvich

Ребята подскажите, где я не права. У меня обычные формы, в общем модуле с галочками (Сервер, Вызов Сервера, Внешнее соединение, Клиент (обычное приложение)) написан код для переноса данных из нескольких excel-файлов на сервере в базу 1с:

Каталог = "\\it-file\--------\ФайлыПроверки";
Расш = ".xlsx";

//подключаемся к эксел

Excel = Новый COMОбъект("Excel.Application");

НайденныеФайлы = НайтиФайлы(Каталог,"*.xls",);
   
    Для каждого ТекФайл Из НайденныеФайлы Цикл
   Попытка
Excel.WorkBooks.Open(ТекФайл.ПолноеИмя);
//Excel.WorkBooks.Open(Дир + (ИмяФайла+Строка(х)) + Расш);
    Исключение
        Продолжить;
    КонецПопытки;

Попытка
    //Открываем необходимый лист
    Excel.Sheets(1).Select();  // лист 1, по умолчанию 
Исключение
//Закрываем Excel
    Excel.ActiveWorkbook.Close();
Excel = 0;
Возврат;
КонецПопытки;


    //Получим количество строк и колонок.
    //В разных версиях Excel получаются по-разному, поэтому сначала определим версию Excel
    Версия = Лев(Excel.Version,Найти(Excel.Version,".")-1);
    Если Версия = "8" тогда
        ФайлСтрок   = Excel.Cells.CurrentRegion.Rows.Count;
        ФайлКолонок = Макс(Excel.Cells.CurrentRegion.Columns.Count, 13);
Иначе
ФайлСтрок   = Excel.Cells(1,1).SpecialCells(11).Row;
ФайлКолонок = Excel.Cells(1,1).SpecialCells(11).Column;   
Конецесли;
       
       НовыйДокумент = Документы.СуточныеПоказателиСкважин.СоздатьДокумент();
   НовыйДокумент.УстановитьНовыйНомер();
   
Для НС = 2 по ФайлСтрок Цикл  // НС указываем с какой строки начинать обработку       

  Водозабор = Excel.Cells(НС, 1).Text;
                  --------------------
          КонецЦикла;

Excel.Application.Quit();
Excel = Неопределено;
 

При нажатии на кнопку в обработке выполняется исправно, а регламентное задание не выполняет тот же самый модуль, при этом в консоли заданий ошибок не видит и отрабатывает нормально, методом проб и ошибок выставлены эти галочки, т.к. сама функция глобального контекста не нравилась: НайтиФайлы(Каталог,"*.xls",);
Но в итоге, в чем проблема и как ее можно решить?

alex0402

Цитата: HiVvich от 20 дек 2016, 11:54При нажатии на кнопку в обработке выполняется исправно

нужно запустить обработку и нажать кнопку на самом сервере и посмотреть результат.
Спасибо за Сказать спасибо

HiVvich

На сервере и делаю, не нравится ему конкретно НайтиФайлы(Каталог,"*.xls",).

Andrey_Batuev

Цитата: HiVvich от 20 дек 2016, 11:54Но в итоге, в чем проблема и как ее можно решить?

Проверьте с машины где сервис 1с крутится есть ли доступ к этой папке

HiVvich

Сервер поднят у меня на машине, доступ к папкам есть и эксель установлен, права админские, все нормально вроде бы, но регламентное задание не отрабатывает, а конкретно функция НайтиФайлы(Каталог,"*.xls",), потому что она по всей видимости просто не находит экселевские файлы. Я пробовала ставить галочки - Серве и Вызов сервера, но функция с ними не отрабатывает, надо обязательно ставить Клиент (обычное приложение), при этом раскладе по кнопке модуль отрабатывает,а тот же самый модуль но регламентным заданием - не отрабатывает, аж раздражает, если честно, или я туплю. Скажите, куда еще смотреть?
Добавлено: 22 дек 2016, 15:42


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

Теги:

Похожие темы (5)

Рейтинг@Mail.ru Rambler's Top100

Поиск