|   |   | 
| 
 | ТекЛист.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) поздравляю, сэр ;)     | 
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |