Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Тип не определен , ошибка          
fagust1982 Подменю пользователя
сообщение 15.02.14, 13:55
Сообщение #1

Молчаливый
*
Группа: Пользователи
Сообщений: 5
Из: Украина
Спасибо сказали: 0 раз
Рейтинг: 0

{Обработка.Тест.Форма.Форма.Форма(6,31)}: Тип не определен (ДиалогВыбораФайла)
ДиалогОткрытияФайла = Новый <<?>>ДиалогВыбораФайла(Режим);
Мобильное приложение содержит синтаксические ошибки.

Если  ПодключитьРасширениеРаботыСФайлами() Тогда
        Режим = РежимДиалогаВыбораФайла.Открытие;
        ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
        ДиалогОткрытияФайла.ПолноеИмяФайла = "";
        Фильтр = "Таблица(*.xls)|*.xls";
        ДиалогОткрытияФайла.Фильтр               = Фильтр;
        ДиалогОткрытияФайла.МножественныйВыбор   = Ложь;
        ДиалогОткрытияФайла.Заголовок            = "Выберите файл c описью вложения";
        
        Если ДиалогОткрытияФайла.Выбрать() Тогда
            ПутьКФайлу = ДиалогОткрытияФайла.ПолноеИмяФайла;
        Иначе
            Возврат;
        КонецЕсли;
        
        Попытка
            Excel = Новый COMОбъект("Excel.Application");
            Excel.WorkBooks.Open(ПутьКФайлу);
            ExcelЛист = Excel.Sheets(1);
        Исключение
            Сообщить("Ошибка открытия файла!");
            Возврат;
        КонецПопытки;
        
        ТекущаяСтрока = 1;
        ЧитатьПо=ExcelЛист.Usedrange.Rows.Count;    КонецЕсли;
    ТекущаяСтрока = 1;

    ЧитатьПо=ExcelЛист.Usedrange.Rows.Count;
        Для н=ТекущаяСтрока по ЧитатьПо Цикл
            А=1; В=2;
            Элементы.Тест.ДобавитьСтроку();
            Элементы.Тест.ТекущиеДанные.Вопрос=А;
            Элементы.Тест.ТекущиеДанные.Ответ=В;
            Элементы.Тест.ТекущиеДанные.Вопрос=" "+сокрЛП(ExcelЛист.Cells(н,1).Value);
            Элементы.Тест.ТекущиеДанные.Ответ=" "+сокрЛП(ExcelЛист.Cells(н,2).Value);
            КонецЦикла;



 ! 

Выделяйте код
 


Сообщение отредактировал Vofka - 15.02.14, 14:15

logist Подменю пользователя
сообщение 15.02.14, 16:11
Сообщение #2

Про1С-ник
Иконка группы
Квалифицированный бухгалтерГений телепатии и социального моделированияЗа заслуги на форуме в 2010 годуМодератору Про1С (за заслуги в 2011 году)
Группа: Местный
Сообщений: 9564
Из: Kharkiv, UA
Спасибо сказали: 2536 раз
Рейтинг: 0

Перед процедурой указано &НаКлиенте ?

upd:
Судя по всему вы не знаете как работать с управляемым приложением.
Вот это
Элементы.Тест.ДобавитьСтроку();

работать не будет. Элементы это элементы формы, а не объект данных.
Надо так
Строка = Тест.ДобавитьСтроку();


А судя по этому вы плохо знакомы с 1с вообще
Элементы.Тест.ТекущиеДанные.Вопрос=А;

надо так
Строка = Тест.ДобавитьСтроку();
Строка.Вопрос=А;


Сообщение отредактировал logist - 15.02.14, 16:12


Signature
Личные бесплатные консультации не даю, для этого есть форум!

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 29.03.24, 7:49
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!