Имя: Пароль:
1C
1С v8
ТекЛист.Cells
0 Генетический мусор
 
28.04.12
11:45
Доброго времени суток. 1С 8.1., самописка, обработка регламентным задание падает на куске кода на стороне сервера
ТекКод = СокрЛП(ТекЛист.Cells(НомерСтроки,Код).Value);

на клиенте работает, заранее благодарен если кто подскажет в чем дело
1 Wobland
 
28.04.12
11:46
ексель стоит же на сервере?
2 Генетический мусор
 
28.04.12
11:47
(1) произошла исключительная ситуация (0x800a03ec), ексель на серваке стоит, единственно 2003 на сервере, у меня на клиенте 2007
3 Wobland
 
28.04.12
11:48
(2) а 2003й умеет 2007й понимать?
4 Рэйв
 
28.04.12
11:49
исключительная ситуация обычно значит, что кто-то или что-то юзает ресурс. Посмотри в памяти сервера и поскидывай все эксели
5 Генетический мусор
 
28.04.12
12:17
(4) этот файлик никто не юзает, а сам то эксель усиленно:), помимо восьмерки есть семерка, печатные формы там как раз через эксель штампуются пачками

(3) формат этот 2003 понимает

ВремКаталог = КаталогВременныхФайлов();
   
   ПроксиСервер = Новый ИнтернетПрокси(ложь);
   ПроксиСервер.Пользователь = "***";
   ПроксиСервер.Пароль = "***";
   ПроксиСервер.Установить("HTTP","***.***.***.***", "****");
   
   ТекСоед = Новый HTTPСоединение("www.***",,,,ПроксиСервер);
   ТекСоед.Получить("***",ВремКаталог + "***");
   Архив = Новый ЧтениеZipФайла(ВремКаталог + "***");
   Архив.ИзвлечьВсе(ВремКаталог);    
   
   Екс = Новый COMОбъект("Excel.Application");
   Попытка
       Екс.Workbooks.Open(ВремКаталог+"\***.xls");
       ТекЛист=Екс.WorkSheets(1);
       Реквизит5=ТекЛист.UsedRange.SpecialCells(11).Row;
       //Реквизит5=24;
       //Екс.Visible = 1;
   Исключение    
       Екс.Application.Quit();
       //Сообщить(ОписаниеОшибки());    
   КонецПопытки;
   
   ТаблицаПоТоварам = Новый ТаблицаЗначений;
   ***
   
   Запрос = Новый Запрос;
   Запрос.Текст =
   "***        
   |";
   
   КонСтрока = ТекЛист.Cells(1,1).SpecialCells(11).Row;
   Для НомерСтроки = 9 По КонСтрока Цикл
   ТекКод = ТекЛист.Cells(НомерСтроки,Код).Value; //тут все умерло, на клиенте нормально
КонецЦикла;
6 Wobland
 
28.04.12
12:19
соединяешься и файл качаешь без попытки?
7 Wobland
 
28.04.12
12:20
Архив.ИзвлечьВсе(ВремКаталог); как работает? может там кем-то занятый файл есть, а оно не перезависывает?
8 Генетический мусор
 
28.04.12
12:20
(6) не в этом проблема, файл качаю, во временную папку он попадает...отлажу - вставлю попытку:)
9 Генетический мусор
 
28.04.12
12:22
(7)а на клиенте то почему работает?
10 Wobland
 
28.04.12
12:31
(9) да хто б его знал.. другая машина
11 ptrtss
 
28.04.12
12:32
В терминале работает?
12 Генетический мусор
 
28.04.12
12:44
я дебил! перменная "Код" не инициализируется на сервере, т.к. интерфейсная часть  не доступна  серверному процессу.

я дебил!
13 Wobland
 
28.04.12
12:45
(12) поздравляю, сэр ;)