1С 8.3 Приложение, система, интерфейс
Данные > Примеры кода 1С > 1С 8.3 Приложение, система, интерфейс
Программа 1С 8.3 - это приложение состоящее из платформы и конфигурации, которое предназначено для автоматизации хозяйственной деятельности на предприятии. Платформа используется для запуска и работы с различными конфигурациями. Каждая конфигурация это набор механизмов и данных для определенной системы учёта и/или организационной деятельности предприятия. Кроме встроенных функций и механизмов для работы с данными и прямыми задачами конфигурации, в 1С реализованы дополнительные функции, которые предназначены для облуживания самого приложения.
Оглавление:
Получение / изменение заголовка окна в 1С 8.3:
&НаКлиенте
Процедура ПолучениеИзменениеЗаголовкаОкна(Команда)
ПерваяЧасть_короткая_Префикс=ПолучитьКраткийЗаголовокПриложения(); // Часто пустой
ВтораяЧасть_длинная=ПолучитьЗаголовокКлиентскогоПриложения(); // Название конфигурации, например ЗУП 3.1
// Переименуем в новый заголовок - ЗУП3.Акваферма
УстановитьКраткийЗаголовокПриложения("ЗУП3");
УстановитьЗаголовокКлиентскогоПриложения("Акваферма");
КонецПроцедуры
Процедура ПолучениеИзменениеЗаголовкаОкна(Команда)
ПерваяЧасть_короткая_Префикс=ПолучитьКраткийЗаголовокПриложения(); // Часто пустой
ВтораяЧасть_длинная=ПолучитьЗаголовокКлиентскогоПриложения(); // Название конфигурации, например ЗУП 3.1
// Переименуем в новый заголовок - ЗУП3.Акваферма
УстановитьКраткийЗаголовокПриложения("ЗУП3");
УстановитьЗаголовокКлиентскогоПриложения("Акваферма");
КонецПроцедуры
Получение варианта интерфейса в 1С 8.3:
&НаКлиенте
Процедура ПолучениеВариантаИнтерфейса(Команда)
ТекИнтерфейс=ТекущийВариантИнтерфейсаКлиентскогоПриложения(); // например, Версия8_3
КонецПроцедуры
Процедура ПолучениеВариантаИнтерфейса(Команда)
ТекИнтерфейс=ТекущийВариантИнтерфейсаКлиентскогоПриложения(); // например, Версия8_3
КонецПроцедуры
Получение текущего размера основного шрифта в 1С 8.3:
&НаКлиенте
Процедура ПолучениеТекущегоРазмераОсновногоШрифта(Команда)
ТекОснШрифт=ТекущийВариантОсновногоШрифтаКлиентскогоПриложения(); // Обычный или Крупный
КонецПроцедуры
Процедура ПолучениеТекущегоРазмераОсновногоШрифта(Команда)
ТекОснШрифт=ТекущийВариантОсновногоШрифтаКлиентскогоПриложения(); // Обычный или Крупный
КонецПроцедуры
Подключение / отключение обработчика ожидания (УФ) в 1С 8.3:
&НаКлиенте
Процедура ПодключениеОтключениеОбработчикаОжидания(Команда)
// *** Подключение обработчика ожидания
ПодключитьОбработчикОжидания("ПечатьЗаказНаряда", 7, Истина);
// *** Отключение обработчика ожидания
ОтключитьОбработчикОжидания("ПечатьЗаказНаряда");
КонецПроцедуры
&НаКлиенте
Процедура ПечатьЗаказНаряда()
ТабДок = Новый ТабличныйДокумент;
Макет = Документы.ЗаказНаряд.ПолучитьМакет("Печать");
МакетДок = Макет.ПолучитьОбласть("МакетДок");
МакетДок.Параметры.Заполнить(ЭтотОбъект);
ТабДок.Вывести(МакетДок);
ТабДок.Показать();
КонецПроцедуры
Процедура ПодключениеОтключениеОбработчикаОжидания(Команда)
// *** Подключение обработчика ожидания
ПодключитьОбработчикОжидания("ПечатьЗаказНаряда", 7, Истина);
// *** Отключение обработчика ожидания
ОтключитьОбработчикОжидания("ПечатьЗаказНаряда");
КонецПроцедуры
&НаКлиенте
Процедура ПечатьЗаказНаряда()
ТабДок = Новый ТабличныйДокумент;
Макет = Документы.ЗаказНаряд.ПолучитьМакет("Печать");
МакетДок = Макет.ПолучитьОбласть("МакетДок");
МакетДок.Параметры.Заполнить(ЭтотОбъект);
ТабДок.Вывести(МакетДок);
ТабДок.Показать();
КонецПроцедуры
Подключение / отключение глобального обработчика оповещения в 1С 8.3:
&НаКлиенте
Процедура ПодключениеОтключениеГлобальногоОбработчикаОповещения(Команда)
// *** Подключение обработчика ожидания экспортируемой процедуры
// из модуля управляемого приложения (можно располагать и в одном из общих модулей)
ПодключитьОбработчикОповещения("глОбработкаОповещения");
// Тест процедуры
Оповестить("СоединениеСКерио", "ВерсияКонтроля4", ЭтаФорма);
// *** Отключение обработчика оповещения
ОтключитьОбработчикОповещения("глОбработкаОповещения");
КонецПроцедуры
Процедура ПодключениеОтключениеГлобальногоОбработчикаОповещения(Команда)
// *** Подключение обработчика ожидания экспортируемой процедуры
// из модуля управляемого приложения (можно располагать и в одном из общих модулей)
ПодключитьОбработчикОповещения("глОбработкаОповещения");
// Тест процедуры
Оповестить("СоединениеСКерио", "ВерсияКонтроля4", ЭтаФорма);
// *** Отключение обработчика оповещения
ОтключитьОбработчикОповещения("глОбработкаОповещения");
КонецПроцедуры
Получение текущего режим запуска в 1С 8.3:
&НаКлиенте
Процедура ПолучениеТекущегоРежимЗапуска(Команда)
ТекРежимЗапуска=ТекущийРежимЗапуска();
// Авто, ОбычноеПриложение, УправляемоеПриложение, Неопределено (Внешнее соединение)
КонецПроцедуры
Процедура ПолучениеТекущегоРежимЗапуска(Команда)
ТекРежимЗапуска=ТекущийРежимЗапуска();
// Авто, ОбычноеПриложение, УправляемоеПриложение, Неопределено (Внешнее соединение)
КонецПроцедуры
Получение скорости клиентского соединения в 1С 8.3:
&НаКлиенте
Процедура ПолучениеСкоростиКлиентскогоСоединения(Команда)
СкоростьСоединения=ПолучитьСкоростьКлиентскогоСоединения(); // Низкая или Обычная
КонецПроцедуры
Процедура ПолучениеСкоростиКлиентскогоСоединения(Команда)
СкоростьСоединения=ПолучитьСкоростьКлиентскогоСоединения(); // Низкая или Обычная
КонецПроцедуры
Получение строки соединения информационной базы в 1С 8.3:
&НаКлиенте
Процедура ПолучениеСтрокиСоединенияИБ(Команда)
Сообщить(СтрокаСоединенияИнформационнойБазы()); // Например, File="E:\Base\ERP";
КонецПроцедуры
Процедура ПолучениеСтрокиСоединенияИБ(Команда)
Сообщить(СтрокаСоединенияИнформационнойБазы()); // Например, File="E:\Base\ERP";
КонецПроцедуры
Завершение работы системы (с обработчиком закрытия) в 1С 8.3:
&НаКлиенте
Процедура ЗавершениеРаботыСистемы(Команда)
ЗавершитьРаботуСистемы(Истина,Ложь,"");
// Параметры:
// Запрашивать возможность
// Перезапустить после завершения (необ.)
// Дополнительные параметры, если делается перезапуск (необ.)
КонецПроцедуры
Процедура ЗавершениеРаботыСистемы(Команда)
ЗавершитьРаботуСистемы(Истина,Ложь,"");
// Параметры:
// Запрашивать возможность
// Перезапустить после завершения (необ.)
// Дополнительные параметры, если делается перезапуск (необ.)
КонецПроцедуры
Завершение работы системы (без обработчика закрытия) в 1С 8.3:
&НаКлиенте
Процедура ПрекращениеРаботыСистемы(Команда)
ПрекратитьРаботуСистемы(Ложь, "");
// Параметры:
// Перезапустить после завершения (необ.)
// Дополнительные параметры, если делается перезапуск (необ.)
КонецПроцедуры
Процедура ПрекращениеРаботыСистемы(Команда)
ПрекратитьРаботуСистемы(Ложь, "");
// Параметры:
// Перезапустить после завершения (необ.)
// Дополнительные параметры, если делается перезапуск (необ.)
КонецПроцедуры
Запуск ещё одного экземпляра 1С Предприятия в 1С 8.3:
&НаКлиенте
Процедура ЗапускЕщёОдногоЭкземпляра1СПредприятия(Команда)
ЗапуститьСистему("", Истина);
КонецПроцедуры
Процедура ЗапускЕщёОдногоЭкземпляра1СПредприятия(Команда)
ЗапуститьСистему("", Истина);
КонецПроцедуры
Получение часового пояса сеанса в 1С 8.3:
&НаСервере
Процедура ПолучениеЧасовогоПоясаСеанса()
ЧПС=ЧасовойПоясСеанса(); // Например, Europe/Minsk
КонецПроцедуры
Процедура ПолучениеЧасовогоПоясаСеанса()
ЧПС=ЧасовойПоясСеанса(); // Например, Europe/Minsk
КонецПроцедуры
Получение текущей даты сеанса в 1С 8.3:
&НаСервере
Процедура ПолучениеТекущейДатыСеанса()
ТДС=ТекущаяДатаСеанса(); // Например, 24.05.2017 20:16:18
КонецПроцедуры
Процедура ПолучениеТекущейДатыСеанса()
ТДС=ТекущаяДатаСеанса(); // Например, 24.05.2017 20:16:18
КонецПроцедуры
💡 Шаблоны (готовые модели) кода 1С 8.3 с тегом #Приложение, система, интерфейс:
- Программное отключение защиты от опасных действий
📰 Актуальные новости с тегом #Приложение, система, интерфейс:
- В версии 8.3.27 реализовано отображение прогресса заполнения копии данных.
- В версии 8.3.26 проведена оптимизация запуска клиентского приложения, конфигуратора. Снижено потребление оперативной памяти полнотекстовым поиском.
- В версии 8.3.26 уменьшено время проверки наличия циклических ссылок, методом ПроверитьЦиклическиеСсылкиВстроенногоЯзыка(ТаблицаЗначений).
- В версии 8.3.24 появилась возможность программной работы с буфером обмена из встроенного языка – это позволит использовать различные сценарии интеграции с офисными приложениями.
- В версии 8.3.24 реализовано автоматическое удаление устаревших версий платформы.
- В версии 8.3.24 собственные открытые сеансы, мешающие входу в информационную базу, можно завершать дистанционно.
- В версии 8.3.22 поддержано внешнее управление сеансами в файловых информационных базах
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник