НаКлиенте
Документы.ПоступлениеТоваровУслуг.СоздатьДокумент()
//
Переменная не определена (Документы)
   ДокументОбъект =  <<?>>Документы.ПоступлениеТоваровУслуг.СоздатьДокумент(); (Проверка: Тонкий клиент)

На сервере создавай

(0) на клиенте создать нельзя

(0) На сервере надо делать потому что

На клиенте нельзя создавать документы! Создавай на сервере.

про сервер уже говорили?

Про клиента уже сказали?

понятно, спасибо

(7) обращайся еси шо )

(0) Документы можно создавать только &НаСервере, то есть &НаКлиенте документы создавать нельзя.

присоединяюсь к вышесказанному. надо создавать на сервере.

На клиенте создать не получится

А если я ставлю НаСервере то совсем в процедуру внешней обработки не заходит. Почему?

Полный код выкладывай.

Код давай

&НаКлиенте
Процедура ИмяФайлаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
   // Отключение стандартной обработки
   СтандартнаяОбработка = Ложь;
   
   // Выбор файла Microsoft Excel
   ВыборФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
   ВыборФайла.Фильтр = "Документ Excel (*.xls)|*.xls";
   ВыборФайла.ПроверятьСуществованиеФайла = Истина;
   ВыборФайла.ПолноеИмяФайла = ИмяФайла;
   Выбор = ВыборФайла.Выбрать();
   Если НЕ Выбор Тогда
       
       Возврат;
       
   КонецЕсли;
   ИмяФайла = ВыборФайла.ВыбранныеФайлы[0];    
   
КонецПроцедуры

//&НаСервере
Процедура ЗагрузкаФайла(Команда)

   

КонецПроцедуры

&НаСервере
Процедура Тестовая(Команда)
   // Вставить содержимое обработчика.
   Сообщить("даНуНа");
       Если ПустаяСтрока(ИмяФайла) Тогда        
       Сообщить("Для запуска обработки необходимо предварительно выбрать файл Microsoft Excel.");
       Возврат;        
   КонецЕсли;
   Если  Не(ЗначениеЗаполнено(ДатаЗагрузки)) Тогда    
       Сообщить("Для запуска обработки необходимо предварительно заполнить дату загрузки.");
       Возврат;                
   КонецЕсли;

   Попытка
       Excel = Новый COMОбъект("Excel.Application");
       Excel.WorkBooks.Open(ИмяФайла);
       ExcelЛист = Excel.Sheets(1);
   Исключение
       Сообщить("Не установлено приложение MS Excel!");
       Возврат;
   КонецПопытки;
   
   //--
   //НовыйДок =  Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
   //НовыйДок.Номер = "ХХХХХХХХ";
   //НовыйДок.Дата = ДатаЗагрузки;    
   //--
   
   ПоследнееПрочитаноеЗначение = 1;
   ТекущаяСтрока = 1;
   Счетчик = 0;

   ТекущееЗначение = СокрЛП(ExcelЛист.Cells(ТекущаяСтрока, 1).Value);
   Пока Истина Цикл
       //Состояние("Загрузка данных... строка " + Строка(ТекущаяСтрока-1));
       ТекущаяСтрока    = ТекущаяСтрока + 1;
       ТекущееЗначение = СокрЛП(ExcelЛист.Cells(ТекущаяСтрока, 1).Value);
       Если ТекущееЗначение = ПоследнееПрочитаноеЗначение Тогда
           ПоследнееПрочитаноеЗначение    = ПоследнееПрочитаноеЗначение + 1;
       КонецЕсли;
       Если ТекущееЗначение = "" Тогда
           Счетчик = Счетчик + 1;
       КонецЕсли;
       Если Счетчик = 50 Тогда
           Прервать;
       КонецЕсли;
   КонецЦикла;
   Excel.Quit();
   //НовыйДок.Записать();
   //Сообщить("Создан документ"+НовыйДок);

КонецПроцедуры

(15) Процедура Тестовая(Команда) должна быть на клиенте и уже из неё надо вызывать процедуру, которая &НаСервере.

Самое главное забыли сказать тут - документы можно создавать только на сервере!

Типа:

&НаКлиенте
Процедура Тестовая(Команда)
  ТестоваяНаСервере();
КонецПроцедуры

&НаСервере
Процедура ТестоваяНаСервере()
  Сообщить("даНуНа");
  Если ПустаяСтрока(ИмяФайла) Тогда        
    Сообщить("Для запуска обработки необходимо предварительно выбрать файл Microsoft Excel.");
    Возврат;        
  КонецЕсли;
  Если  Не(ЗначениеЗаполнено(ДатаЗагрузки)) Тогда    
    Сообщить("Для запуска обработки необходимо предварительно заполнить дату загрузки.");
    Возврат;                
  КонецЕсли;
  Попытка
    Excel = Новый COMОбъект("Excel.Application");
    Excel.WorkBooks.Open(ИмяФайла);
    ExcelЛист = Excel.Sheets(1);
  Исключение
    Сообщить("Не установлено приложение MS Excel!");
    Возврат;
  КонецПопытки;
  ПоследнееПрочитаноеЗначение = 1;
  ТекущаяСтрока = 1;
  Счетчик = 0;
  ТекущееЗначение = СокрЛП(ExcelЛист.Cells(ТекущаяСтрока, 1).Value);
  Пока Истина Цикл
    ТекущаяСтрока    = ТекущаяСтрока + 1;
    ТекущееЗначение = СокрЛП(ExcelЛист.Cells(ТекущаяСтрока, 1).Value);
    Если ТекущееЗначение = ПоследнееПрочитаноеЗначение Тогда
       ПоследнееПрочитаноеЗначение    = ПоследнееПрочитаноеЗначение + 1;
    КонецЕсли;
    Если ТекущееЗначение = "" Тогда
        Счетчик = Счетчик + 1;
    КонецЕсли;
    Если Счетчик = 50 Тогда
        Прервать;
    КонецЕсли;
  КонецЦикла;
  Excel.Quit();
КонецПроцедуры

(16) Вот же сложности то какие... А эти режимы никак не отключаются, мне нужно просто файл в базу загрущить?

(19) переходите на 8.1 или в обычное приложение вместо управляемого. Там это реализовано.

(19)какие сложности? все очень просто и доступно

(19) можешь перейти на толстый клиент

(18) Первая строчка серверной функции:  Сообщить(...)
хорошее начало :))

(23)енто он проверяет исполняется ли код :))

(24) легко исполняется но без результата ))

(25) проверил?)

(25) А чо? Разве накопленные сообщения не вывалятся при возвращении с сервера на клиента?

Докумет я создал, но чтобы он отобразился в списке, мне надо перещелкнуть пункт "Документы поступления" в УТ11, как список обновить?

>mikecool 13.08.11 - 12:27
>в подчиненном Оповестить
>во владельце ОбработкаОповещения