25.13. Как открыть отчет или обработку в программе?

Ответ: запуск обработки Фузеева мы выполняли из созданного нами меню, выбирая в нем Начало | Пуск. Также мы могли открыть обработку, использовав пункты меню Файл | Открыть, выбрать файл Фузеева.ert

121. Скопируйте из Temp/doc_for_4 папку saper в папку c:/1c

122. Запустите 1С:Предприятие: выберите Пуск | Программы |1С:Предприятие7.7 | 1С:Предприятие, в поле Информационные базы выберите вашу ИБ, например, начало_Фузеева, выберите OK, в списке Пользователь выберите Фузеева, выберите OK.

123. Попробуйте сыграть в сапёра, который реализован в виде обработки: Файл | Открыть, откройте каталоги c:/1c/saper/, выберите файл Сапёр.ert, выберите Открыть, играем…

124. Задача. Откройте сапёра в конфигураторе и измените цвет цифр в диалоге с красного на сиреневый. Время выполнения: 5 мин.

125. Папку с игрой Сапёр скопировать на свою дискету.

При необходимости обработку можно открыть из любой другой формы или программы глобального модуля. Для этого используется функция ОткрытьФорму.

126. Создайте внешнюю обработку: выберите Конструкторы | Новый отчет, выберите Внешний отчет, в поле Имя файла выберите три точки, в поле Имя файла введите ОткрытьФузеева, выберите Сохранить, выберите Далее, выберите Вставить команду в пользовательское меню, выберите Фузеева, выберите Далее, нажмите Готово.

127. Выберите кнопку Сформировать, МП, выберите Свойства, в поле Заголовок введите Открыть обработку, выберите Дополнительно, в поле Формула введите Открыть() нажмите ОК.

128. Введите текст программы: выберите вкладку Модуль, введитекод:

Пример 25.13. Открытие отчета в программе

//Пример 13
процедура Открыть( ) // Открывает обработку Фузеева
перем контОбрФузеева;     //Контекст обработки Фузеева
ОткрытьФорму
("Отчет", контОбрФузеева,
"C:\1C\начало_Фузеева\EXTFORMS\Фузеева.ert");
КонецПроцедуры

 

129. Проверьте синтаксис: выберите Действия | Синтаксический контроль.

130. Сохраните обработку: Ctrl+S

131. Запустите 1С:Предприятие: нажмите F11, выберите Отчеты | ОткрытьФузеева, выберите Открыть обработку, и есливы верно указали полное имя обработки, она должна запуститься.

132. Закройте 1С:Предприятие

Имя файла можно получить, применив метод ВыбратьФайл агрегатного типа ФС.

ВыбратьФайл(0, имяФайла, , "Находим файл Фузеева.ert", "Отчет и обработки | *.ert"); в котором, если его первый параметр равен 0, открывает диалог типа Открыть и возвращает, если файл выбран, во второй параметр имя файла. Третьего параметра нет. Четвертый задает заголовок диалога. Пятый — сообщение выводимое в поле Тип файлов, а после черты — маску, определяющую вид отображаемых в диалоге файлов. То есть у нас будут показаны только файлы с расширением ERT.

133. Выберите Модуль, закомментируйте Пример 13.

134. Введите код

Пример 25.14. Открытие отчета с помощью диалога типа Открыть

//Пример 14  
процедура Открыть( ) // Открывает обработку Фузеева
 перем контОбрФузеева;
 перем флаг, имяФайла;
 флаг = ФС.ВыбратьФайл(0, имяФайла, ,
  "Находим файл Фузеева.ert", "Отчет и обработки | *.ert");
 если флаг = 1 тогда // Если файл обработки выбран
  если ОткрытьФорму("Отчет", контОбрФузеева, имяФайла) = 0 тогда
 Предупреждение("Плохо спали? Не удается открыть обработку " +
имяФайла);
   Возврат;
  конецЕсли;
 иначе
  Предупреждение("Файл обработки не выбран");
 конецЕсли;
конецПроцедуры

 

135. Проверьте синтаксис: выберите Действия | Синтаксический контроль.

136. Сохраните обработку: Ctrl+S

137. Запустите 1С:Предприятие: нажмите F11, выберите Отчеты | ОткрытьФузеева, откройте каталоги С:/1С/начало_Фузеева/EXTFORMS/, выберите Фузеева, выберите Открыть, должна запуститься обработка.

138. Закройте 1С:Предприятие