Mail.ru
Почта
Мой Мир
Одноклассники
ВКонтакте
Игры
Знакомства
Новости
Календарь
Облако
Заметки
Все проекты
Все проекты
выход
Регистрация
Вход
Категории
Все вопросы проекта
Компьютеры, Интернет
Темы для взрослых
Авто, Мото
Красота и Здоровье
Товары и Услуги
Бизнес, Финансы
Наука, Техника, Языки
Философия, Непознанное
Города и Страны
Образование
Фотография, Видеосъемка
Гороскопы, Магия, Гадания
Общество, Политика, СМИ
Юридическая консультация
Досуг, Развлечения
Путешествия, Туризм
Юмор
Еда, Кулинария
Работа, Карьера
О проектах Mail
Животные, Растения
Семья, Дом, Дети
Другое
Знакомства, Любовь, Отношения
Спорт
Золотой фонд
Искусство и Культура
Стиль, Мода, Звезды
Полный список
Спросить
Лидеры
Поиск по вопросам
Ответы Mail
Программирование
Android
C/C++
C#
iOS
Java
JavaScript
jQuery
SQL
Perl
PHP
Python
Веб-дизайн
Верстка, CSS, HTML, SVG
Системное администрирование
Другие языки и технологии
Вопросы - лидеры.
Чем Луа лучше Пайтона и наоборот? Буду использовать в целях написания сценариев.
1 ставка
Лидеры категории
Лена-пена
Искусственный Интеллект
М.И.
Искусственный Интеллект
Y.Nine
Искусственный Интеллект
•••
Помогите с кодом 1С
Степан Боксгорн
Ученик
(107), на голосовании
4 месяца назад
Появляется ошибка:
{Обработка.загрузка.Форма.Форма.Форма(60,21)}: Конструктор не найден
ФормаВвода = Новый <<?>>Форма; (Проверка: Тонкий клиент)
Сам код:
&НаКлиенте
Процедура ПутьКФайлуНачалоВыбора(Элемент, ДанныеВыбора, ВыборДобавлением, СтандартнаяОбработка)
Проводник=Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Проводник.Заголовок="Выберите Файл";
Оповещение = Новый ОписаниеОповещения("ПослеВыбораФайла", ЭтотОбъект);
Проводник.Показать(Оповещение);
КонецПроцедуры
&НаКлиенте
Процедура ПослеВыбораФайла(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт
Если ВыбранныеФайлы = Неопределено Тогда
Возврат;
КонецЕсли;
Объект.ПутьКФайлу = ВыбранныеФайлы[0];
КонецПроцедуры
&НаКлиенте
Процедура ЗагрузитьДанныеИзExcel(Команда)
ПутьКФайлу=ВыбратьФайл();
Если ПутьКФайлу=Неопределено Тогда
Предупреждение("Файл не выбран");
Возврат;
КонецЕсли;
// Открытие книги
Книга =
Excel.Workbooks.Open
(ПутьКФайлу);
Лист = Книга.Worksheets(1);
// Ввод номера строки
НомерСтроки = ВвестиНомерСтроки();
Если НомерСтроки = Неопределено Тогда
Предупреждение("Номер строки не введен!");
Возврат;
КонецЕсли;
// Получение данных из указанной строки
ДанныеСтроки = Лист.Rows(NомерСтроки).Value;
// Закрытие книги и Excel
Книга.Close();
Excel.Quit();
// Обработка данных и их загрузка в 1С
ОбработатьДанные(ДанныеСтроки);
Сообщить("Данные успешно загружены!");
КонецПроцедуры
&НаКлиенте
Функция ВыбратьНомерСтроки() Экспорт
ФормаВвода = Новый Форма; //Жалуется на эту строку
Поле = ФормаВвода.Элементы.Добавить("НомерСтроки", Тип("Число"));
ФормаВвода.ОткрытьМодально();
Возврат Поле.Значение;
КонецФункции
Голосование за лучший ответ
3681
Просветленный
(20671)
5 месяцев назад
Ошибка возникает потому, что в 1С нет конструктора "Форма" без параметров. Вместо этого можно использовать например:
ФормаВвода = ПолучитьФорму("ОбщаяФорма.ИмяТвоейФормы");
ФормаВвода = УправляемаяФорма();
Степан Боксгорн
Ученик (107)
5 месяцев назад
Я либо глупый, либо это не помогло
1Сник
Мудрец (14630) Степан Боксгорн, Нет, получитьформу() это для обычных форм, мой ответ смотрите
1Сник
Мудрец
(14630)
5 месяцев назад
ОткрытьФорму("Справочник.ИмяСправочника.ФормаВыбора");
только смотрите форма чего у вас, правильно пропишите путь к ней, впрочем там увидите, будет предлагать выбрать
Александр Чарухин
Знаток
(424)
5 месяцев назад
Степан, ты лох)
Похожие вопросы
{Обработка.загрузка.Форма.Форма.Форма(60,21)}: Конструктор не найден
ФормаВвода = Новый <<?>>Форма; (Проверка: Тонкий клиент)
Сам код:
&НаКлиенте
Процедура ПутьКФайлуНачалоВыбора(Элемент, ДанныеВыбора, ВыборДобавлением, СтандартнаяОбработка)
Проводник=Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Проводник.Заголовок="Выберите Файл";
Оповещение = Новый ОписаниеОповещения("ПослеВыбораФайла", ЭтотОбъект);
Проводник.Показать(Оповещение);
КонецПроцедуры
&НаКлиенте
Процедура ПослеВыбораФайла(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт
Если ВыбранныеФайлы = Неопределено Тогда
Возврат;
КонецЕсли;
Объект.ПутьКФайлу = ВыбранныеФайлы[0];
КонецПроцедуры
&НаКлиенте
Процедура ЗагрузитьДанныеИзExcel(Команда)
ПутьКФайлу=ВыбратьФайл();
Если ПутьКФайлу=Неопределено Тогда
Предупреждение("Файл не выбран");
Возврат;
КонецЕсли;
// Открытие книги
Книга = Excel.Workbooks.Open (ПутьКФайлу);
Лист = Книга.Worksheets(1);
// Ввод номера строки
НомерСтроки = ВвестиНомерСтроки();
Если НомерСтроки = Неопределено Тогда
Предупреждение("Номер строки не введен!");
Возврат;
КонецЕсли;
// Получение данных из указанной строки
ДанныеСтроки = Лист.Rows(NомерСтроки).Value;
// Закрытие книги и Excel
Книга.Close();
Excel.Quit();
// Обработка данных и их загрузка в 1С
ОбработатьДанные(ДанныеСтроки);
Сообщить("Данные успешно загружены!");
КонецПроцедуры
&НаКлиенте
Функция ВыбратьНомерСтроки() Экспорт
ФормаВвода = Новый Форма; //Жалуется на эту строку
Поле = ФормаВвода.Элементы.Добавить("НомерСтроки", Тип("Число"));
ФормаВвода.ОткрытьМодально();
Возврат Поле.Значение;
КонецФункции