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