09.10.2025

Полезные, Универсальные Функции

Полезные, Универсальные Функции

Для включения интерактивной помощи в приложение на платформе 1С версии 7.7 достаточно добавить на форму кнопку вызова...
Функция Перекодировка(Стр="",Кодировка="windows-1251") Стрим = СоздатьОбъект("Adodb.Stream"); Стрим.Type = 2; Стрим.Mode= 3; Стрим.charset="iso-8859-5"; Стрим.Open(); Стрим.WriteText(Стр); Стрим.Position=0; Стрим.charset=Кодировка; Рез=Стрим.ReadText(-1); Стрим.Close();...
Для наглядного представления продолжительного процесса выполнения обработки данных можно реализовать строку прогресса в строке состояния при помощи...
Процедура глЗаполнитьШапку(Конт, Скопирован=0) Экспорт ... //Блокировка ввода новых документов СтатусВозврата(0); ... КонецПроцедуры Хотя наиболее правильно будет изменять...
Функция осуществляет сортировку числового ряда (в массиве) от малого к большему http://ru.wikipedia.org/wiki/Сортировка_пузырьком методом "пузырька"[/url] Область применения достаточно...
Функция возвращает вариант базы данных "Файловая" или "Серверная": Функция КакаяБаза() СтрокаСоединенияСБД = СтрокаСоединенияИнформационнойБазы(); // в зависимости от...
Вариант сортировки числового ряда (от малого к великому) методом шейкера. Считается более оптимизированным и быстрым алгоритмом сортировки...
// Функция определяет пол работника по его отчеству Функция ПолучитьПол(ОтчествоРаботника) Экспорт Если Прав(ОтчествоРаботника, 2) = "ич" Тогда...
// При старте проверяем наличие компоненты "Бухгалтерский Учет" 1С:Предприятия Попытка БухИтоги = СоздатьОбъект("БухгалтерскиеИтоги"); Исключение Предупреждение("Для работы конфигурации...