Библиотека продвинутых функцй| В этой статье я буду собирать полезные функции для 1С.
Это даст программистам готовый, отлаженный функционал и избавит их от необходимости "изобретать велосипед".
Вы можете также поучавствовать в составлении библиотеки, находя ошибки и добавляя свои полезные функции.
| | Автор статьи: Гений 1С | Редакторы: Волшебник, BlackTiger,
Последняя редакция №6 от 10.05.07 | История
URL: http://kb.mista.ru/article.php?id=373 | |
Библиотека продвинутых функций
Лучше использовать библиотеку целиком, тогда не надо выявлять, какая из функций использует другие функции.
Если для функции есть статья в книге знаний, ссылка на эту статью и название статьи отмечается в комментариях к заголовку функции.
Все функции начинаются с префикса "об".
Если вы хотите добавить свою функцию, допишите ее в разделе "Добавьте свои функции ЗДЕСЬ", потому что основной текст затирается из общего модуля, в котором я веду список функций и ваши изменения будут затерты, если вы их вносите в библиотеку.
Выявленные ощибки и замечания о нерациональностях оставляйте в конце, в разделе "Замечания и выявленные баги".
История библиотеки записана в комментариях в конце кода.
Код библиотеки
//Библиотека функций для продвинутой работы в 1С 80.
//Версия от 20070510
//Создана: 20060922
//Создатель и ведущий библиотеки: Гений 1С
//Локальные переменные в функциях не обязательно объявляются
//Предполагается, что глобальные переменные именуются с использованием префикса
//Предполагается также, что эти функции располагаются в общих модулях, а не в модулях форм
//Префиксы всех функций начинаются на "об" или "pub" для англоязычных функций.
//Некоторые часто применяемые функции используются без префиксов
//
//Библиотеки расположены в алфавитном порядке
//На данный момент включены библиотеки:
// Взаимодействие с пользователем
// Внешние обработки
// Встроенный язык
// Даты
// Коллекции
// Контексты
// Метаданные
// Навигация
// Нумераторы
// ОЛЕ
// Отчеты - функции для вывода отчетов
// Отладка
// Печать
// Прочее
// Строки
// Сериализация - функции по сохраниению/восстанавлению значений
// Типы
// Уникальный идентификатор
// Файлы
// Формы
// Хранилище значений
//Функции, которые используют методы/свойства клиента, заключаются в скобки #Если Клиент, причем эта конструкция должна располагаться внутри функции, т.к. каждая функция должна использоваться самостоятельно
//У каждой функции указано назначение параметров и список функций, которые вызываются непосредственно из нее.
//Библиотека:ВЗАИМОДЕЙСТВИЕ С ПОЛЬЗОВАТЕЛЕМ
//fixin 20070510
//Безопасное с точки клиент-сервера обращение к функции Состояние
Функция обксСостояние(С) Экспорт
#Если Клиент Тогда
Состояние(С);
#КонецЕсли
КонецФункции
//fixin 20070510
//Безопасное с точки клиент-сервера обращение к функции ОбработкаПрерыванияПользователя
Функция обксОбработкаПрерыванияПользователя() Экспорт
#Если Клиент Тогда
ОбработкаПрерыванияПользователя();
#КонецЕсли
КонецФункции
//fixin 20070510
//Безопасное с точки клиент-сервера обращение к функции Предупреждение
Функция обксПредупреждение(С) Экспорт
#Если Клиент Тогда
Предупреждение(С);
#Иначе
Сообщить(С, СтатусСообщения.Важное);
#КонецЕсли
КонецФункции
//Библиотека:ВНЕШНИЕ ОБРАБОТКИ
//Содержит функции для работы с внешними обработками
//Создает внешнюю обработку по переданному имени файла обработки
//Если файла нет, возвращает неопределено
//Возврат:
//Статус - ФайлНеСуществует,НеУказаноИмяФайла
Функция обСоздатьВнешнююОбработку(Знач ФайлОбработки, Статус=Неопределено) Экспорт
ФайлОбработки = СокрЛП(ФайлОбработки);
Если ФайлОбработки="" Тогда
Статус="НеУказаноИмяФайла";
Возврат Неопределено;
КонецЕсли;
ФайлДляПроверки = Новый Файл(ФайлОбработки);
Если НЕ ФайлДляПроверки.Существует() Тогда
Статус="ФайлНеСуществует";
Возврат Неопределено;
КонецЕсли;
Возврат ВнешниеОбработки.Создать(ФайлОбработки);
КонецФункции
//Библиотека:ВСТРОЕННЫЙ ЯЗЫК
//Усовершенствования встроенного языка
//Если делитель равен нулю, возвращает ноль
//Есть возможность округления
Функция обБезопасноеДеление(А,Б,Окр=Неопределено) Экспорт
Рез=?(Б=0,0,А/Б);
Если Окр<>Неопределено Тогда
Рез=Окр(Рез, Окр);
КонецЕсли;
Возврат Рез;
КонецФункции
//Присваивает значение Б переменной А только если значение реально изменилось
//Удобно, когда нужно защититься от модифицированности
Функция обПрисвоитьБезопасно(А,Б) Экспорт
Если А<>Б Тогда
А=Б;
КонецЕсли;
Возврат А;
КонецФункции
//Библиотека:Даты, время
//Содержит функции для работы с датами
//Количество дней, прошедших после Дата2 до даты Дата1, т.е. Дата1-Дата2
Функция обРазностьДней(Дата1,Дата2) Экспорт
Возврат (НачалоДня(Дата1)-НачалоДня(Дата2))/86400; //60*60*24
КонецФункции
//fixin 20070510
//Добавляет к дате определенное количество дней
//Возможны отрицательные значение - тогда не добавление, а отнимание
//Пример: 20070510 + 1 день = 20070511
Функция обДобавитьДни(Дата, КоличествоДней) Экспорт
Возврат Дата+(КоличествоДней-1)*86400; //60*60*24
КонецФункции
//fixin 20070510
//Добавляет к дате определенное количество месяцев
//Возможны отрицательные значение - тогда не добавление, а отнимание
Функция обДобавитьМесяцы(Дата, КоличествоМесяцев) Экспорт
Возврат ДобавитьМесяц(Дата, КоличествоМесяцев);
КонецФункции
//fixin 20070510
//Добавляет к дате определенное количество лет
//Возможны отрицательные значение - тогда не добавление, а отнимание
Функция обДобавитьГоды(Дата, КоличествоМесяцев) Экспорт
Возврат ДобавитьМесяц(Дата, КоличествоМесяцев*12);
КонецФункции
//Задержка на указанное число секунд
Функция обЗадержка(Секунд) Экспорт
Перем Начало, Конец;
Начало=ТекущаяДата();
Конец=Начало+Секунд;
Пока ТекущаяДата()<=Конец Цикл
#Если Клиент Тогда
ОбработкаПрерыванияПользователя();
#КонецЕсли
КонецЦикла;
КонецФункции
//Библиотека:ЗНАЧЕНИЯ
//Работа со значениями
//Возвращает ссылку на объект или Неопределено, если объект не имеет ссылки
Функция обСсылка(Объект) Экспорт
КонецФункции
//Проверяет, является ли значение пустым
//Еще не реализована
Функция обПусто(Объект) Экспорт
КонецФункции
//Проверяет, что значение не заполнено
//Еще не реализована
Функция обНеПусто(Объект) Экспорт
Возврат НЕ обПусто(Объект);
КонецФункции
//Получаем значения свойств
Функция обПолучитьЗначенияСвойств(Свойства, Объект) Экспорт
Стр=Новый Структура(Свойства);
ЗаполнитьЗначенияСвойств(Стр, Объект);
Возврат Стр;
КонецФункции
//Если объекту не назначена ссылка, назначает эту ссылку
Функция обДатьТочнуюСсылку(Объект) Экспорт
Перем Ссылка, Вид;
Ссылка=Объект.Ссылка;
Если Ссылка.Пустая() Тогда
Ссылка = Объект.ПолучитьСсылкуНового();
Если Ссылка.Пустая() Тогда
Вид=обМетаданные(Объект);
Ссылка = обМенеджерОбъекта(Объект)[Вид].ПолучитьСсылку();
Объект.УстановитьСсылкуНового(Ссылка);
КонецЕсли;
КонецЕсли;
Возврат Ссылка;
КонецФункции
//Библиотека:КОЛЛЕКЦИИ
//Содержит функции для работы с коллекциями
//Коллекция элементов коллекции
Функция обРазмерКоллекции(К) Экспорт
КонецФункции
//Массив элементов коллекции, для дальнейшего перебора
Функция обЭлементыКоллекции(К) Экспорт
КонецФункции
Функция обЭлементКоллекцииПоИндексу(К, Индекс) Экспорт
КонецФункции
Функция обИндексЭлементаКоллекции(К, Эл) Экспорт
КонецФункции
Функция обДобавитьВКоллекцию(К, Эл) Экспорт
КонецФункции
Функция обВставитьВКоллекцию(К, Эл, Позиция) Экспорт
КонецФункции
Функция обСортироватьКоллекцию(К, Порядок) Экспорт
КонецФункции
Функция обОбъединитьКоллекции(К1, К2, Новая=истина) Экспорт
КонецФункции
Функция обПересечьКоллекции(К1, К2, Новая=истина) Экспорт
КонецФункции
Функция обСоединитьКоллекции(К1, К2, Новая=истина) Экспорт
КонецФункции
//Подбиблиотека: СПИСКИ ЗНАЧЕНИЙ
//Конструктор типка значений
//Если передается массив, составляет список из этого массива
//Если передаестся хранилище значений, извлекает значение и рекурсивно вызывает себя
//Если передается структура или соответствие, тогда значения списка берутся из значений коллекции,
//а представления из ключей (еще не оттестировано для этого случая)
//Если передается пустое значение, тогда возвращает пустой список
//Иначе возвращается список из одного значения
Функция обСписокЗначений(Значение) экспорт
Если ТипЗнч(Значение)=Тип("Массив") Тогда
С=Новый СписокЗначений();
С.ЗагрузитьЗначения(Значение);
Возврат С;
КонецЕсли;
Если ТипЗнч(Значение)=Тип("СписокЗначений") Тогда
Возврат С;
КонецЕсли;
Если ТипЗнч(Значение)=Тип("ХранилищеЗначения") Тогда
Возврат обСписокЗначений(Значение.Получить());
КонецЕсли;
Если ТипЗнч(Значение)=Тип("Структура") ИЛИ ТипЗнч(Значение)=Тип("Соответствие") Тогда
С=Новый СписокЗначений();
Для Каждого Эл ИЗ Значение Цикл
С.Добавить(Значение, Эл.Значение, Эл.Ключ);
КонецЦикла;
Возврат С;
КонецЕсли;
С=Новый СписокЗначений();
Если НЕ ЗначениеНеЗаполнено(Значение) Тогда
С.Добавить(Значение);
КонецЕсли;
Возврат С;
КонецФункции
//Функция для установки/сброса/инверсии всех пометок списка
//Список:СписокЗначений
//Зн:(истина,ложь,Неопределено) - истина - установить пометки, ложь - сбросить, Неопределено - инвертировать
//Отлажена: 20060922 Гений 1С
Функция обУстановитьВсеПометкиСписка(Список, Зн) Экспорт
Для Каждого Поз Из Список Цикл
Если Зн=истина Тогда
Поз.Пометка=Истина;
ИначеЕсли Зн=ложь Тогда
Поз.Пометка=ложь;
Иначе //инверсия
Поз.Пометка=Не Поз.Пометка;
КонецЕсли;
КонецЦикла;
КонецФункции
//Функция для установки пометок списка-получателя согласно пометок списка-источника
//Источник:СписокЗначений - источник пометок
//Получатель:СписокЗначений - получатель пометок
//Возврат: Получатель
//Отлажена: 20060925 Гений 1С
Функция обУстановитьПометкуСпискаСогласноДругогоСписка(Получатель, Источник) Экспорт
Для Каждого Эл из Источник Цикл
Зн=Получатель.НайтиПоЗначению(Эл.Значение);
Если Зн<>Неопределено Тогда
Зн.Пометка=Эл.Пометка;
КонецЕсли;
КонецЦикла;
Возврат Получатель;
КонецФункции
//Список, состоящий из элементов, которые есть в обоих списков
//Не отлаживалась
Функция обОбъединитьСписки(К1, К2, Уникальность=истина, флНовый=истина) Экспорт
Если флНовый Тогда
Получатель=К1.Скопировать();
Иначе
Получатель=К1;
КонецЕсли;
Для Каждого Эл ИЗ К2 Цикл
Если Получатель.НайтиПоЗначению(Эл.Значение) Тогда
Продолжить;
КонецЕсли;
Получатель.Добавить(Эл);
КонецЦикла;
Возврат Получатель;
КонецФункции
//В хвост списка К1 добавляется К2
//Не отлаживалась
Функция обСклеитьСписки(К1, К2, флНовый=истина) Экспорт
Если флНовый Тогда
Получатель=К1.Скопировать();
Иначе
Получатель=К1;
КонецЕсли;
Для Каждого Эл ИЗ К2 Цикл
Получатель.Добавить(Эл.Значение);
КонецЦикла;
Возврат Получатель;
КонецФункции
//Список, состоящий из элементов, которые есть в обоих списков
//Не отлаживалась
Функция обПересечьСписки(К1, К2, флНовый=истина) Экспорт
Получатель=Новый СписокЗначений();
Для Каждого Эл ИЗ К2 Цикл
Если К1.НайтиПоЗначению(Эл.Значение) Тогда
Получатель.Добавить(Эл.Значение);
КонецЕсли;
КонецЦикла;
Если НЕ флНовый Тогда
К1=Получатель;
КонецЕсли;
Возврат Получатель;
КонецФункции
Функция обСписокВСтроку(С,Разделитель=",") Экспорт
Перем Р;
Р="";
Для Каждого Эл ИЗ С Цикл
Р=Р+?(Р="","",Разделитель)+Строка(Эл.Значение);
КонецЦикла;
Возврат Р;
КонецФункции
//Конструктор списка значений из массива
Функция обСписокЗначенийИзМассива(М) Экспорт
Перем С;
С=Новый СписокЗначений();
С.ЗагрузитьЗначения(М);
Возврат С;
КонецФункции
//Подбиблиотека: КОНВЕРТАЦИЯ
//Конвертация одних коллекций в другие
Функция обСкопироватьМассив(М) Экспорт
Рез=Новый Массив();
Для Каждого Эл ИЗ М Цикл
Рез.Вставить(Эл);
КонецЦикла;
Возврат Рез;
КонецФункции
Функция обОбъединитьМассивы(М1,М2, флНовый=ложь) Экспорт
Если флНовый Тогда
Получатель=обСкопироватьМассив(М1);
Иначе
Получатель=М1;
КонецЕсли;
Для Каждого Эл ИЗ М2 Цикл
Получатель.Вставить(Эл);
КонецЦикла;
Возврат Получатель;
КонецФункции
Функция обКоллекцияВМассив(Коллекция, Реквизит) Экспорт
Рез=Новый Массив();
Для Каждого Эл Из Коллекция Цикл
Рез.Добавить(Эл[Реквизит]);
КонецЦикла;
Возврат Рез;
КонецФункции
Функция обКоллекцияВТаблицуЗначений(Коллекция, Реквизиты) Экспорт
Поля=Новый Структура();
Рез=Новый ТаблицаЗначений();
Для Каждого Поле Из Поля Цикл
Рез.Колонки.Добавить(Поле);
КонецЦикла;
Для Каждого Эл Из Коллекция Цикл
Стр=Рез.Добавить();
Для Каждого Поле Из Поля Цикл
Рез.Колонки.Добавить(Эл[Поле]);
КонецЦикла;
КонецЦикла;
Возврат Рез;
КонецФункции
//Библиотека:КОНТЕКСТЫ
//Содержит функции для работы с контекстами
//Позволяет из любого общего модуля получить переменную приложения
//Требует наличия в базе обработки "обПолучитьПеременнуюПриложения", без формы, модуль которой содержит код:
//Функция Получить(Имя) Экспорт
//Возврат Вычислить(Имя);
//КонецФункции
Функция обПолучитьПеременнуюПриложения(Имя) Экспорт
Возврат Обработки.обПолучитьПеременнуюПриложения.Получить(Имя);
КонецФункции
//Функция определяет, определена ли в данном контексте функция
//Причем возвращает количество параметров функции
//Работаетс только для функций с 0-10 параметрами
//Нужно отладить
Функция обФункцияОпределена(ИмяФункции, КоличествоПараметров=Неопределено)
Параметры="";
Для Инд=0 По 10 Цикл
Параметры=Параметры+?(Параметры="","",",")+"0";
Код="Р=истина; "+ИмяФункции+"("+Параметры+");";
Попытка
Выполнить(Код);
КоличествоПараметров=Инд;
Возврат истина;
Исключение
КонецПопытки;
КонецЦикла;
Возврат ложь;
КонецФункции
//Библиотека:МЕТАДАННЫЕ
//Содержит функции для работы с метаданными
//Функция осуществляет более быстрый поиск метаданных, чем Объект.Метаданные()
Функция обМетаданные(Объект) Экспорт
Если ТипЗнч(Объект)=Тип("Тип") Тогда
Иск=Объект;
Иначе
Иск=ТипЗнч(Объект);
КонецЕсли;
Возврат Метаданные.НайтиПоТипу(Иск);
КонецФункции
//Функция проверяет, что ТипМастер является владельцем ТипРаб
//ТипМастер:Тип
//ТипРаб:Тип
//Результат:Булево
Функция обТипЯвляетсяВладельцемТипа(ТипМастер, ТипРаб) Экспорт
МДРаб=обМетаданные(ТипРаб);
МДМастер=обМетаданные(ТипМастер);
Если МДРаб=Неопределено Тогда
Возврат Ложь;
КонецЕсли;
Если обЭтоЗначениеМенеджера(ТипРаб, Справочники) Тогда //сыро
Если МДРаб.Владельцы.Содержит(МДМастер) Тогда
Возврат истина;
КонецЕсли;
Иначе
Возврат ложь;
КонецЕсли;
Возврат ложь;
КонецФункции
//Библиотека:НАВИГАЦИЯ
//Содержит функции для навигации по базе данных
//Библиотека:ОЛЕ
//Содержит функции для навигации по базе данных
//Добавление этой функции в базу позволяет выполнить любой код в базе.
//Т.к. к сожалению нет функции, которая была бы аналогом оператора Выполнить(Execute)
Function pubRunScript(AnyCode) Export
try
Execute (AnyCode);
Возврат истина;
except
Возврат ОписаниеОшибки();
endtry
EndFunction
//Библиотека:НУМЕРАТОРЫ
//Содержит функции для нумерации и нумераторов, а также для разных числовых кодировок
//Функция для преобразования иерархического кода в код сортировки с нужным числом разрядов.
//Пример 1.3.7 -> 001.003.007
//fixin 20070510
Функция обПреобразоватьИерКодВСортКод(Код, Разделители=".", Разрядность=3) Экспорт
Перем СписокРазделителей, С, Р;
СписокРазделителей=Новый СписокЗначений();
Если ТипЗнч(Разделители)=Тип("Массив") Тогда
СписокРазделителей.ЗагрузитьЗначения(Разделители);
Иначе
СписокРазделителей.Добавить(Разделители);
КонецЕсли;
С=СокрЛП(Строка(Код));
Р="";
ТекЧисло="";
Для Инд=1 По СтрДлина(С)+1 Цикл
Симв=Сред(С, Инд,1);
ЭтоРазделитель=ложь;
Если СписокРазделителей.НайтиПоЗначению(Симв)<>Неопределено ИЛИ Симв="" Тогда
Если ТекЧисло<>"" Тогда
ЭтоЧисло=ложь;
Зн=обВЧисло(ТекЧисло,,ЭтоЧисло);
Если ЭтоЧисло Тогда
ПредставлениеЗн=Формат(Зн,"ЧЦ="+Формат(Разрядность, "ЧГ=;")+"; ЧВН=; ЧГ=");
Иначе
ПредставлениеЗн=обДополнитьСтрокуСимволами(СокрЛП(Строка(ТекЧисло)), Разрядность, "_", ложь);
КонецЕсли;
Р=Р+ПредставлениеЗн;
КонецЕсли;
ТекЧисло="";
Иначе
ТекЧисло=ТекЧисло+Симв;
КонецЕсли;
КонецЦикла;
Возврат Р;
КонецФункции
//Библиотека:ОТЛАДКА
//Содержит функции, упрощающие отладку приложений
//Присваивает значению А значение Б
//Используется для изменения значения в табло и прерывания кода, путем присваивания переменной значения, которое вызовет ошибку
Функция Присвоить(А,Б) Экспорт
А=Б;
Возврат А;
КонецФункции
Функция ПрекратитьФорму(ЭтаФорма) Экспорт
ЭтаФорма.Закрыть();
Возврат истина;
КонецФункции
Функция Ду(Код, П=Неопределено) Экспорт
Перем Р;
Выполнить(Код);
Возврат Р;
КонецФункции
Функция Соо(Сообщение) Экспорт
Сообщить(Сообщение);
КонецФункции
//20070510
//Для оперативного отображения макета
Функция ПоказатьМакет(ТД) Экспорт
ТД.Показать();
КонецФункции
//Библиотека:ОТЧЕТЫ
//Содержит функции для вывода отчетов
Функция обВывестиДанныеВОтчет(П) Экспорт
Перем Источник, Таб, Макет, спзГруппы, спзИтоги, ПараметрыПостроителя, ПостроительОтчета;
Перем
ПараметрыШапки, //Параметры, передаваемые в шапку
ПараметрыПодвала,//Параметры, передаваемые в подвал
ИмяШапки, //Имя шапки в макете
ИмяСтроки, //Имя строки в макете
ИмяПодвала, //Имя подвала
Показывать; //Показывать ли таблицу, по умолчанию истина
П.Свойство("Источник", Источник);
П.Свойство("Таб", Таб);
П.Свойство("Макет", Макет);
П.Свойство("Группы", спзГруппы);
П.Свойство("Итоги", спзИтоги);
П.Свойство("ПараметрыПостроителя", ПараметрыПостроителя);
//Данные по умолчанию
Если спзИтоги=Неопределено Тогда
спзИтоги=Новый СписокЗначений();
КонецЕсли;
Если спзГруппы=Неопределено Тогда
спзГруппы=Новый СписокЗначений();
КонецЕсли;
Если Таб=Неопределено Тогда
Таб=Новый ТабличныйДокумент();
П.Вставить("Таб", Таб);
КонецЕсли;
П.Свойство("ПараметрыШапки", ПараметрыШапки);
П.Свойство("ПараметрыПодвала", ПараметрыПодвала);
Если НЕ П.Свойство("ИмяШапки", ИмяШапки) Тогда
П.Вставить("ИмяШапки", "Шапка");
КонецЕсли;
Если НЕ П.Свойство("ИмяСтроки", ИмяСтроки) Тогда
П.Вставить("ИмяСтроки", "Строка");
КонецЕсли;
Если НЕ П.Свойство("ИмяПодвала", ИмяПодвала) Тогда
П.Вставить("ИмяПодвала", "Подвал");
КонецЕсли;
Если НЕ П.Свойство("Показывать", Показывать) Тогда
П.Вставить("Показывать", Истина);
КонецЕсли;
//Выводим шапку, если надо
Если ИмяШапки<>Неопределено Тогда
Шапка=Макет.ПолучитьОбласть(П.ИмяШапки);
Если ПараметрыШапки<>Неопределено Тогда
Шапка.Параметры.Заполнить(ПараметрыШапки);
КонецЕсли;
Таб.Вывести(Шапка);
КонецЕсли;
ПостроительОтчета=Новый ПостроительОтчета();
Если ТипЗнч(Источник)=Тип("ОписаниеИсточникаДанных") Тогда
ПостроительОтчета.ИсточникДанных=Источник;
Иначе
ПостроительОтчета.ИсточникДанных=Новый ОписаниеИсточникаДанных(Источник);
КонецЕсли;
обУстановитьИзмеренияПостроителяОтчета(ПостроительОтчета, спзГруппы);
обУстановитьИтогиПостроителяОтчета(ПостроительОтчета, спзИтоги);
ПостроительОтчета.ЗаполнитьНастройки();
обСкорректироватьПорядокИзмеренийПостроителяОтчета(ПостроительОтчета, спзГруппы);
ПостроительОтчета.Выполнить();
Если Макет<>Неопределено Тогда
ПостроительОтчета.Макет=обПреобразоватьМакетПостроителя(Макет, спзГруппы);
КонецЕсли;
Если ПараметрыПостроителя<>Неопределено Тогда
ЗаполнитьЗначенияСвойств(ПостроительОтчета, ПараметрыПостроителя);
КонецЕсли;
обПреобразоватьМакетПостроителя(Макет, спзГруппы);
Если Таб<>Неопределено Тогда
ПостроительОтчета.Вывести(Таб);
КонецЕсли;
П.Вставить("ПостроительОтчета", ПостроительОтчета);
//Выводим подвал, если надо
Если ИмяПодвала<>Неопределено Тогда
Подвал=Макет.ПолучитьОбласть(П.ИмяПодвала);
Если ПараметрыПодвала<>Неопределено Тогда
Подвал.Параметры.Заполнить(ПараметрыПодвала);
КонецЕсли;
Таб.Вывести(Подвал);
КонецЕсли;
Если П.Свойство("ПараметрыТаблицы") Тогда
ЗаполнитьЗначенияСвойств(Таб, П.ПараметрыТаблицы);
КонецЕсли;
Если П.Показывать Тогда
Таб.Показать();
КонецЕсли;
Возврат ПостроительОтчета;
КонецФункции
Функция обУстановитьИзмеренияПостроителяОтчета(ПостроительОтчета, спзГруппы) Экспорт
Перем Эл;
Для Каждого Эл из спзГруппы Цикл
ПостроительОтчета.ИсточникДанных.Колонки[Эл.Значение].Измерение=истина;
КонецЦикла;
КонецФункции
Функция обУстановитьИтогиПостроителяОтчета(ПостроительОтчета,спзИтоги) Экспорт
Перем Эл;
Для Каждого Эл Из спзИтоги Цикл
ПостроительОтчета.ИсточникДанных.Колонки[Эл.Значение].Итог = ""+Эл.Представление+"("+Эл.Значение+")";
КонецЦикла;
КонецФункции
Функция обСкорректироватьПорядокИзмеренийПостроителяОтчета(ПостроительОтчета, спзГруппы) Экспорт
Перем Уровень, Эл, ИмяГруппировки, Элементы, Элемент;
Уровень=0;
Для Каждого Эл из спзГруппы Цикл
ИмяГруппировки=Эл.Значение;
Элементы=ПостроительОтчета.ИзмеренияСтроки;
Элемент=Элементы.Найти(ИмяГруппировки);
Если Элемент<>Неопределено Тогда
Элементы.Сдвинуть(Элемент, Уровень-Элементы.Индекс(Элемент));
Уровень=Уровень+1;
КонецЕсли;
КонецЦикла;
КонецФункции
//Заменяет названия уровней на конкретные названия полей
Функция обПреобразоватьМакетПостроителя(Макет, спзГруппы) Экспорт
Перем Эл, Уровень, ИмяУровня, ИмяГруппы, НазваниеГруппы, сУровеньПуть;
Для Каждого Эл ИЗ спзГруппы Цикл
Уровень=спзГруппы.Индекс(Эл);
ИмяУровня="Уровень"+Уровень;
ИмяГруппы=Эл.Значение;
НазваниеГруппы=Эл.Представление;
обЗаменитьТекстМакета(Макет, "Параметр", ИмяУровня, ИмяГруппы);
обЗаменитьТекстМакета(Макет, "Текст", "имя"+ИмяУровня, НазваниеГруппы);
обПереименоватьОбластьМакета(Макет, ""+ИмяУровня, ИмяГруппы);
КонецЦикла;
сУровеньПуть="";
Для Каждого Эл ИЗ спзГруппы Цикл
сУровеньПуть=сУровеньПуть+?(сУровеньПуть="","",Символы.ПС)+Эл.Представление;
КонецЦикла;
обЗаменитьТекстМакета(Макет, "Текст", "УровеньПуть", сУровеньПуть);
//Убираем ненужные группировки и реквизиты в колонках
Уровень=спзГруппы.Количество();
Пока Истина Цикл
ИмяУровня="кУровень"+Уровень;
Область=Макет.Области.Найти(ИмяУровня);
Если Область=Неопределено Тогда
Прервать;
КонецЕсли;
Макет.УдалитьОбласть(Область,ТипСмещенияТабличногоДокумента.ПоГоризонтали);
Уровень=Уровень+1;
КонецЦикла;
Возврат Макет;
КонецФункции
Функция обЗаменитьТекстМакета(Макет, Параметр, сИсточник, сЗамена) Экспорт
Перем Область, СледОбласть;
СледОбласть=Неопределено;
Пока (истина) Цикл
Область=Макет.НайтиТекст(сИсточник,СледОбласть);
Если Область=Неопределено Тогда
Прервать;
КонецЕсли;
Если Область[Параметр]=сИсточник тогда
Область[Параметр]=сЗамена;
КонецЕсли;
СледОбласть=Область;
КонецЦикла;
КонецФункции
Функция обПереименоватьОбластьМакета(Макет, сИсточник, сЗамена) Экспорт
Перем Область;
Область=Макет.Области.Найти(сИсточник);
Если Область<>Неопределено Тогда
Область.Имя=сЗамена;
КонецЕсли;
КонецФункции
//Библиотека:ПЕЧАТЬ
//Содержит функции для распечатки значений
//Автор:Гений 1С 20070221
//Создана:Гений 1С 20070221
//Параметры:
// ТЗ - таблица значений, выводимая в отчет
// Макет - макет, который используется для вывода в отчет, может отсутствовать
// Т - таблица, в которую выводить отчет, если не задана, создается
// ПараметрыШапки - параметры, передаваемые в шапку
// ПараметрыПодвала - параметры, передаваемые в подвал
// ИмяШапки - имя шапки в макете, по умолчанию Шапка
// ИмяСтроки - имя строки в макете, по умолчанию Строка
// Показывать - показывать ли таблицу, по умолчанию истина
// ИмяПодвала - имя подвала, по умолчанию Подвал
// Показывать - показывать ли таблицу, по умолчанию истина
// РасчитыватьИтоги - расчитывать ли итоги, по умолчанию истина
//Описание:
// Сначала выводится шапка, затем строки, затем подвал.
// Если указан флаг "Расчитывать итоги", то подвал заполняется итогами таблицы,
// а затем из структуры "Параметры подвала".
Функция обВывестиТаблицуЗначений(П) Экспорт
Перем
ТЗ,
Макет,
Т,
ПараметрыШапки,
ПараметрыПодвала,
ИмяШапки,
ИмяСтроки,
ИмяПодвала,
Показывать,
РасчитыватьИтоги,
НачальнаяСтрока;
П.Свойство("ТЗ", ТЗ);
П.Свойство("Макет", Макет);
П.Свойство("Т", Т);
П.Свойство("ПараметрыШапки", ПараметрыШапки);
П.Свойство("ПараметрыПодвала", ПараметрыПодвала);
Если НЕ П.Свойство("ИмяШапки", ИмяШапки) Тогда
ИмяШапки="Шапка";
КонецЕсли;
Если НЕ П.Свойство("ИмяСтроки", ИмяСтроки) Тогда
ИмяСтроки="Строка";
КонецЕсли;
Если НЕ П.Свойство("ИмяПодвала", ИмяПодвала) Тогда
ИмяПодвала="Подвал";
КонецЕсли;
Если НЕ П.Свойство("Показывать", Показывать) Тогда
Показывать=Истина;
КонецЕсли;
Если НЕ П.Свойство("РасчитыватьИтоги", РасчитыватьИтоги) Тогда
РасчитыватьИтоги=Истина;
КонецЕсли;
//Если таблица не задана, создаем ее
Если Т=Неопределено Тогда
Т=Новый ТабличныйДокумент();
НачальнаяСтрока=1;
Иначе
НачальнаяСтрока=Т.ВысотаТаблицы+1;
КонецЕсли;
//Выводим шапку через макет
Если ИмяШапки<>Неопределено И Макет<>Неопределено Тогда
Шапка=Макет.ПолучитьОбласть(ИмяШапки);
Если ПараметрыШапки<>Неопределено Тогда
Шапка.Параметры.Заполнить(ПараметрыШапки);
КонецЕсли;
Т.Вывести(Шапка);
Иначе
//выводим шапку непосредственно в ячейки
Для Каждого Кол ИЗ ТЗ.Колонки Цикл
Заг=СокрЛП(Кол.Заголовок);
Заг=?(Заг="",Кол.Имя, Заг);
Т.Область(НачальнаяСтрока, 1+ТЗ.Колонки.Индекс(Кол), НачальнаяСтрока, 1+ТЗ.Колонки.Индекс(Кол)).Текст=Заг;
КонецЦикла;
КонецЕсли;
Для Каждого Стр ИЗ ТЗ Цикл
Если ИмяСтроки<>Неопределено И Макет<>Неопределено Тогда
Строка=Макет.ПолучитьОбласть(ИмяСтроки);
Строка.Параметры.Заполнить(Стр);
Т.Вывести(Строка);
Иначе
//выводим строки
Для Каждого Кол ИЗ ТЗ.Колонки Цикл
Т.Область(НачальнаяСтрока+1+ТЗ.Индекс(Стр), 1+ТЗ.Колонки.Индекс(Кол), НачальнаяСтрока+1+ТЗ.Индекс(Стр), 1+ТЗ.Колонки.Индекс(Кол)).Текст=Стр[Кол.Имя];
КонецЦикла;
КонецЕсли;
КонецЦикла;
Если ИмяПодвала<>Неопределено И Макет<>Неопределено Тогда
Подвал=Макет.ПолучитьОбласть(ИмяПодвала);
Если РасчитыватьИтоги=истина Тогда
ПараметрыИтогов=Новый Структура();
Для Каждого Кол ИЗ ТЗ.Колонки Цикл
ПараметрыИтогов.Вставить(Кол.Имя, ТЗ.Итог(Кол.Имя));
КонецЦикла;
Подвал.Параметры.Заполнить(ПараметрыИтогов);
КонецЕсли;
Если ПараметрыПодвала<>Неопределено Тогда
Подвал.Параметры.Заполнить(ПараметрыПодвала);
КонецЕсли;
Т.Вывести(Подвал);
КонецЕсли;
Если Показывать Тогда
Т.Показать();
КонецЕсли;
Возврат Т;
КонецФункции
//Библиотека:ПРОЧЕЕ
//Содержит некоторые особенные функции
//// АЛЬТЕРНАТИВА СТЕКУ ////
//П, Стр - структуры
//П - родительская структура, Стр - дочерняя
Функция НовПрм(П, Стр) Экспорт
Стр.Вставить("___Родитель", П);
Возврат Стр;
КонецФункции
//Ищет свойство сначала в структуре П, а затем во всех ее родительских структурах
Функция Прм(П, Свойство) Экспорт
Перем Р;
Если П.Свойство(Свойство, Р) Тогда
Возврат Р;
КонецЕсли;
Если П.Свойство("___Родитель", Р) Тогда
Возврат Прм(Р, Свойство);
КонецЕсли;
Возврат Неопределено;
КонецФункции
//Библиотека:СЕРИАЛИЗАЦИЯ
//Прочие полезные функции с коллекциями
//Функция загружает весь макет в таблицу значений
//Первая строка содержит подписи колонок (должны быть правильные идентификаторы)
//Пустые строки (состоящией из пробелов, переводов строки и т.п.) заменяет на Неопределено
//Если в ячейке есть значение, в ячейку таблицы значений попадает именно это значение
//Отлажено:20060929
//Автор:Гений1С
Функция обМакетВТаблицуЗначений(Макет) Экспорт
Перем ТЗ;
ТЗ=Новый ТаблицаЗначений();
#Если Клиент Тогда
//Считываем колонки
Для Стр=1 По Макет.ВысотаТаблицы Цикл
Если Стр>1 Тогда
ТекСтр=ТЗ.Добавить();
КонецЕсли;
ПустаяСтрока=истина;
Для Кол=1 По Макет.ШиринаТаблицы Цикл
Яч=Макет.Область(Стр, Кол);
Если Яч.СодержитЗначение Тогда
Зн=Яч.Значение;
Иначе
Зн=Яч.Текст;
КонецЕсли;
Если ТипЗнч(Зн)=Тип("Строка") И ПустаяСтрока(Зн) Тогда
Зн=Неопределено;
КонецЕсли;
//Добавляем колонку
Если Стр=1 Тогда
ТЗ.Колонки.Добавить(Зн);
Иначе
ТекСтр[Кол-1]=Зн;
КонецЕсли;
КонецЦикла;
КонецЦикла;
#КонецЕсли
Возврат ТЗ;
КонецФункции
//Библиотека:СТРОКИ
//Содержит функции для работы со строками
//Проверяет, является ли символ цифрой
Функция обЭтоЦифра(С) Экспорт
Возврат Найти("0123456789", С)<>0;
КонецФункции
//Проверяет, является ли символ буквой
Функция обЭтоБуква(С) Экспорт
Возврат обЭтоРусскаяБуква(С) ИЛИ обЭтоЛатинскаяБуква(С);
КонецФункции
Функция обЭтоРусскаяБуква(С) Экспорт
Возврат Найти("АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЫЬЪЭЮЯ", ВРег(С))<>0;
КонецФункции
Функция обЭтоЛатинскаяБуква(С) Экспорт
Возврат Найти("ABCDEFGHIJKLMNOPQRSTUVWXYZ", ВРег(С))<>0;
КонецФункции
Функция обЭтоИдентификатор(С) Экспорт
Для Инд=1 По СтрДлина(С) Цикл
Симв=Сред(С, Инд, 1);
Если Инд=1 И обЭтоЦифра(Симв) Тогда
Возврат ложь;
ИначеЕсли НЕ (обЭтоБуква(Симв) ИЛИ Симв="_") Тогда
Возврат ложь;
КонецЕсли;
КонецЦикла;
Возврат истина;
КонецФункции
//20070510 fixin
//Дополняет строку С символами Символ до нужной длины Длина слева или справа, в зависимости от флага Справа
//Используется для форматирования строк
Функция обДополнитьСтрокуСимволами(С, Длина, Символ, Справа=истина)
Перем Р;
Р=С;
Пока СтрДлина(Р)<Длина Цикл
Если Справа Тогда
Р=Р+Символ;
Иначе
Р=Символ+Р;
КонецЕсли;
КонецЦикла;
Возврат Р;
КонецФункции
//Библиотека:ТИПЫ
//Содержит функции для работы с типами
//Проверяет, является ли объект ссылкой или экземпляром объекта менеджера
Функция обЭтоЗначениеМенеджера(Объект, Менеджер) Экспорт
Возврат обЭтоСсылкаМенеджера(Объект, Менеджер) ИЛИ обЭтоЭкземплярМенеджера(Объект, Менеджер);
КонецФункции
//Проверяет, что объект - это экземпляр объекта менеджера
Функция обЭтоЭкземплярМенеджера(Объект, Менеджер) Экспорт
Возврат обСодержитСсылку(Объект) И обЭтоСсылкаМенеджера(Объект.Ссылка, Менеджер) И Объект.Ссылка<>Объект;
КонецФункции
//Проверяет, что объект - это ссылка на объект менеджера
Функция обЭтоСсылкаМенеджера(Объект, Менеджер) Экспорт
Возврат Менеджер.ТипВсеСсылки().СодержитТип(ТипЗнч(Объект)) И Объект<>Неопределено;
КонецФункции
//Проверяет, что значение Зн - это ссылка
//Написал, отладил 20070227 fixin
Функция обЭтоСсылка(Зн) экспорт
Перем Ссылка;
Ссылка=обИзвлечьСсылку(Зн);
Возврат Зн=Ссылка и Ссылка<>Неопределено;
КонецФункции
//Проверяет, что значение Зн - это объект, который содержит ссылку
//Написал, отладил 20070227 fixin
Функция обСодержитСсылку(Зн) экспорт
Перем Ссылка;
Ссылка=обИзвлечьСсылку(Зн);
Возврат Зн<>Ссылка и Ссылка<>Неопределено;
КонецФункции
//Проверяет, что значение Зн - это примитивный тип (простым перебором)
//Написал, отладил 20070227 fixin
Функция обЭтоПримитивныйТип(Зн) экспорт
Возврат
ТипЗнч(Зн)=Тип("Null") ИЛИ
ТипЗнч(Зн)=Тип("Неопределено") ИЛИ
ТипЗнч(Зн)=Тип("Число") ИЛИ
ТипЗнч(Зн)=Тип("Строка") ИЛИ
ТипЗнч(Зн)=Тип("Дата") ИЛИ
ТипЗнч(Зн)=Тип("Булево") ИЛИ
ТипЗнч(Зн)=Тип("Тип");
КонецФункции
//Извлекает ссылку из объекта или ссылки.
//Если извлечь ссылку невозможно, возвращает Неопределено.
//Работает корректно для всех типов, в том числе и для примитивных
//Написал, отладил 20070227 fixin
Функция обИзвлечьСсылку(Зн) экспорт
Перем С;
Если обЭтоПримитивныйТип(Зн) Тогда
Возврат Неопределено;
КонецЕсли;
С=Новый Структура("Ссылка", Неопределено);
ЗаполнитьЗначенияСвойств(С, Зн);
Возврат С.Ссылка;
КонецФункции
//Проверяет, что это экземпляр прикладного объекта
Функция обЭтоЭкземпляр(Объект) Экспорт
Возврат обСодержитСсылку(Объект) И Объект<>Объект.Ссылка;
КонецФункции
//Проверяет, что объект является менеджером
Функция обЭтоМенеджер(Объект) Экспорт
СтруктураМенеджеров=обСтруктураМенеджеров();
Для Каждого Эл Из СтруктураМенеджеров Цикл
Если Эл.Значение=Объект Тогда
Возврат Истина;
КонецЕсли;
КонецЦикла;
Возврат Ложь;
КонецФункции
//Возвращает список всех менеджеров и соответствующих им названий метаданных
Функция обСтруктураМенеджеров() Экспорт
Возврат Новый Структура(
"
|Справочники,
|Документы,
|Перечисления,
|Константы,
|БизнесПроцессы,
|КритерииОтбора,
|Последовательности,
|ЖурналыДокументов,
|Отчеты,
|Обработки,
|ПланыВидовХарактеристик,
|ПланыСчетов,
|ПланыВидовРасчета,
|Задачи,
|РегистрыСведений,
|РегистрыНакопления,
|РегистрыРасчета,
|ПланыОбмена
|",
Справочники,
Документы,
Перечисления,
Константы,
БизнесПроцессы,
КритерииОтбора,
Последовательности,
ЖурналыДокументов,
Отчеты,
Обработки,
ПланыВидовХарактеристик,
ПланыСчетов,
ПланыВидовРасчета,
Задачи,
РегистрыСведений,
РегистрыНакопления,
РегистрыРасчета,
ПланыОбмена
);
КонецФункции
//Возвращает менеджер объекта, например для справочника возвращает Справочники
//Нужно дописать для всех прикладных объектов
//Отлажена: 20060922 Гений 1С
Функция обМенеджерОбъекта(Объект) Экспорт
МД=обМетаданные(Объект);
СтруктураМенеджеров=обСтруктураМенеджеров();
Для Каждого Эл Из СтруктураМенеджеров Цикл
Если Метаданные[Эл.Ключ].Содержит(МД) Тогда
Возврат Эл.Значение;
КонецЕсли;
КонецЦикла;
Возврат Неопределено;
КонецФункции
//20070209 fixin
//Добавлено, потому что в 1С нет нормальной функции преобразования числа в строку без региональных стандартов
//Как во всех нормальных языках программирования
Функция обЧислоВСтроку(Ч) Экспорт
Возврат Формат(Ч, "ЧГ=");
КонецФункции
//fixin add 20070424
//Преобразует строку в число
//Если преобразовать невозможно, возвращает 0
//В переменной Р возвращает ту часть строки, которую можно распознать как число
//В переменную Ошибка возвращается флаг ошибки
Функция обВЧисло(С, Р=Неопределено, ЭтоЧисло=ложь) Экспорт
Перем Симв;
Р="";
ЭтоЧисло=ложь;
БылаТочка=ложь;
БылЗнак=ложь;
Для Инд=1 По СтрДлина(С) Цикл
Симв=Сред(С, Инд,1);
Если Симв=" " Тогда
Продолжить;
КонецЕсли;
Если Симв="." ИЛИ Симв="," Тогда
Если БылаТочка Тогда
Возврат 0;
КонецЕсли;
Р=Р+".";
БылаТочка=истина;
Продолжить;
КонецЕсли;
Если Симв="+" ИЛИ Симв="-" Тогда
Если БылЗнак ИЛИ Р<>"" Тогда
Возврат 0;
КонецЕсли;
Р=Р+Симв;
БылЗнак=истина;
Продолжить;
КонецЕсли;
Если Найти("0123456789", Симв)=0 Тогда
Возврат 0;
КонецЕсли;
Р=Р+Симв;
КонецЦикла;
Если Р="" Тогда
Возврат 0;
КонецЕсли;
ЭтоЧисло=истина;
Возврат Число(Р);
КонецФункции
//Библиотека:УникальныйИдентификатор
//Содержит функции для работы с уникальным идентификатором
Функция обГУИДВЧисло(GUID) Экспорт
СтрGUID=обГУИДВСтроку(GUID);
Сумма=0; Множитель=1;
Для Инд=1 По СтрДлина(СтрGUID) Цикл
Симв=ВРЕГ(Сред(СтрGUID, Инд, 1));
Поз=Найти("123456789ABCDEF", Симв);
Сумма=Сумма+Поз*Множитель;
Множитель=Множитель*16;
КонецЦикла;
Возврат Сумма;
КонецФункции
//В 32-разрядную строку
Функция обГУИДВСтроку(GUID) Экспорт
Возврат СтрЗаменить(GUID, "-", "");
КонецФункции
//Выдает новый уникальный идентификатор, который можно использовать в 1С везде, где требуется обычный идентификатор
//В структурах, в параметрах запросов и т.п.
Функция обУникальныйИдентификатор(GUID) Экспорт
Возврат "_"+обГУИДВСтроку(Новый УникальныйИдентификатор);
КонецФункции
//Библиотека:ФАЙЛЫ
//Содержит функции для работы с файлами
//Функция корректирует путь - удаляет из него краевые пробелы и если в конце нет символа слеша, добавляет его
//Примеры:
// c: -> c:\
// c:\ -> c:\
//Возврат:Строка
//Автор:Гений1С
Функция обПутьСоСлешем(ИсходныйПуть, Слеш="/") Экспорт
Рез=СокрЛП(ИсходныйПуть);
Если Прав(Рез,1)=Слеш Тогда
Возврат Рез;
Иначе
Возврат Рез+Слеш;
КонецЕсли;
КонецФункции
//Библиотека:ФОРМЫ
//Содержит функции для работы с формами
#Если Клиент Тогда
//Еще сырая
Функция обЭтоФормаДокумента(Форма, Вид) Экспорт
Попытка
Если Форма.ЭтотОбъект.Метаданные().Имя=Вид Тогда
Возврат истина;
КонецЕсли;
Исключение КонецПопытки;
Попытка
Если ТипЗнч(Форма.ДокументСписок)=Тип("ДокументСписок."+Вид) Тогда
Возврат истина;
КонецЕсли;
Исключение КонецПопытки;
Возврат ложь;
КонецФункции
//Еще сырая
Функция обЭтоФормаСправочника(Форма, Вид) Экспорт
Попытка
Если Форма.ЭтотОбъект.Метаданные().Имя=Вид Тогда
Возврат истина;
КонецЕсли;
Исключение КонецПопытки;
Попытка
Если ТипЗнч(Форма.СправочникСписок)=Тип("СправочникСписок."+Вид) Тогда
Возврат истина;
КонецЕсли;
Исключение КонецПопытки;
Возврат ложь;
КонецФункции
Функция обВидСправочникаСправочникСписка(ТипСправочникСписок) Экспорт
Для Каждого Эл Из Метаданные.Справочники Цикл
Если Тип("СправочникСписок."+Эл.Имя)=ТипСправочникСписок Тогда
Возврат Эл.Имя;
КонецЕсли;
КонецЦикла;
Возврат Неопределено;
КонецФункции
Функция обВидДокументаДокументСписка(ТипДокументСписок) Экспорт
Для Каждого Эл Из Метаданные.Документы Цикл
Если Тип("ДокументСписок."+Эл.Имя)=ТипДокументСписок Тогда
Возврат Эл.Имя;
КонецЕсли;
КонецЦикла;
Возврат Неопределено;
КонецФункции
//Еще сырая
//Возвращает ссылку на объект, форма которого открыта или текущего элемента
//Возврат:Статус - ЭтотОбъект, ТекущийЭлемент
Функция обПолучитьСсылкуИзФормы(Форма, Статус=Неопределено) Экспорт
Ссылка=Неопределено;
Попытка
Ссылка=Форма.ЭтотОбъект.Ссылка;
Исключение
КонецПопытки;
Если Ссылка=Неопределено Тогда
Для н=0 по Форма.ЭлементыФормы.Количество()-1 Цикл
ТекДанные=Форма.ЭлементыФормы[н].Данные;
Если ТекДанные<>"" И Найти(Строка(Форма[ТекДанные]),"ДокументСписок")<>0 Тогда
СписокФормы=Форма.ЭлементыФормы[н];
Прервать;
КонецЕсли;
КонецЦикла;
Если СписокФормы<>Неопределено Тогда
Если СписокФормы.ТекущиеДанные<>Неопределено Тогда
Ссылка=СписокФормы.ТекущиеДанные.Ссылка;
Иначе
Сообщить("Не могу найти в данной форме текущий элемент.",СтатусСообщения.Важное);
КонецЕсли;
КонецЕсли;
КонецЕсли;
Возврат Ссылка;
КонецФункции
//Устанавливает/сбрасывает/инвертирует пометку всем элементам указанного списка
//Список:СписокЗначений
//Кнопка:Кнопка - кнопка, которой нажата
//КнопкаУстановить:Кнопка - кнопка, котороя устанавливает все пометки
//КнопкаСнять:Кнопка - кнопка, которая снимает все пометки
//КнопкаИнверсия:Кнопка - кнопка, которая инвертирует все пометки
//Пример вызова:
//Процедура УстановитьФлажки(Элемент)
// обУстановитьПометкуСпискаВФорме(СписокОтчетов, Элемент, ЭлементыФормы.КнПометитьВсе, ЭлементыФормы.КнСнятьВсе);
//КонецПроцедуры
//Отлажена: 20060922 Гений 1С
Функция обУстановитьПометкуСпискаВФорме(Список, Кнопка, КнопкаУстановить=Неопределено, КнопкаСнять=Неопределено, КнопкаИнверсия=Неопределено) Экспорт
Если Кнопка=Неопределено Тогда
Возврат Неопределено;
КонецЕсли;
Если Кнопка=КнопкаУстановить Тогда
обУстановитьВсеПометкиСписка(Список, истина);
ИначеЕсли Кнопка=КнопкаСнять Тогда
обУстановитьВсеПометкиСписка(Список, ложь);
ИначеЕсли Кнопка=КнопкаИнверсия Тогда
обУстановитьВсеПометкиСписка(Список, Неопределено);
КонецЕсли;
КонецФункции
#КонецЕсли
//Библиотека:Хранилище значений
//Содержит функции для работы с хранилищами значений
//Функция сохраняет внешний отчет в значение типа ХранилищеЗначений
#Если Клиент Тогда
Функция обВнешняяОбработкаВХранилищеЗначений(ИмяФайла, СтепеньСжатия=9) Экспорт
Попытка
ОбъектДляХранилища = Новый ДвоичныеДанные(ИмяФайла);
Исключение
Сообщить("Не удалось загрузить внешний отчет!");
Возврат Неопределено;
КонецПопытки;
ФайлХранилище = Новый ХранилищеЗначения(ОбъектДляХранилища, Новый СжатиеДанных(9));
Возврат ФайлХранилище;
КонецФункции
#КонецЕсли
//Функция восстанавливает внешний отчет из значения типа ХранилищеЗначений
//Замечание:использует для восстановления временый файл.
#Если Клиент Тогда
Функция обВнешняяОбработкаИзХранилищаЗначений(Хранилище) Экспорт
ХранимоеЗначение=Хранилище.Получить();
Если ХранимоеЗначение=Неопределено Тогда
Сообщить("В хранилище пустое значение!");
Возврат Неопределено;
КонецЕсли;
Если ТипЗнч(ХранимоеЗначение)<>Тип("ДвоичныеДанные") Тогда
Сообщить("В хранилище не хранится двоичный файл!");
Возврат Неопределено;
КонецЕсли;
ВремФайлВнешнегоОтчета = ПолучитьИмяВременногоФайла();
Попытка
ХранимоеЗначение.Записать(ВремФайлВнешнегоОтчета);
ВнешняяОбработка=ВнешниеОбработки.Создать(ВремФайлВнешнегоОтчета);
Возврат ВнешняяОбработка;
Исключение
ОписаниеОшибки=ОписаниеОшибки();
Сообщить("При чтении файла обработки произошла ошибка: "+ОписаниеОшибки);
КонецПопытки;
Возврат Неопределено;
КонецФункции
#КонецЕсли
//20060926 fixin добавил
// обОбъединитьМассивы, обСкопироватьМассив,обКоллекцияВМассив,обКоллекцияВТаблицуЗначений
//20060926 fixin добавил функции для быстрого вывода таблиц значений в отчет
// обВывестиДанныеВОтчет
// обУстановитьИзмеренияПостроителяОтчета, обУстановитьИтогиПостроителяОтчета, обСкорректироватьПорядокИзмеренийПостроителяОтчета
// обПреобразоватьМакетПостроителя, обЗаменитьТекстМакета, обПереименоватьОбластьМакета
//20060927 fixin добавил
// обПутьСоСлешем, обМакетВТаблицуЗначений, обЭтоБуква, обЭтоЦифра, обЭтоИдентификатор
//20061004 fixin добавил
// обОбъединитьСписки, обСклеитьСписки
//20061006 fixin добавил
// обВнешняяОбработкаИзХранилищаЗначений,обВнешняяОбработкаВХранилищеЗначений
//20070209 fixin добавил
// обЧислоВСтроку
//20070210 fixin добавил
// обСписокВСтроку
//20070216 fixin РЕВИЗИЯ названий функций, чтобы названия были естественными
//20070221 fixin добавил обВывестиТаблицуЗначений
//20070227 fixin добавил
// обИзвлечьСсылку, обЭтоПримитивныйТип,обСписокЗначений
//20070227 fixin изменил
// обЭтоСсылка, обСодержитСсылку
//20070510 fixin добавил
// обксСостояние, обксОбработкаПрерыванияПользователя, обксПредупреждение
// обДобавитьДни, обДобавитьМесяцы, обДобавитьГоды
// обДополнитьСтрокуСимволами, обВЧисло, обПреобразоватьИерКодВСортКод
// ПоказатьМакет
Добавьте свои функции ЗДЕСЬ
...
Замечания и выявленные баги
... |