Универсальные функции с примерами использования

// Описание разницы времени в формате "чч:мм:сс (ВсегоСекунд.ОстатокМиллисекунд сек.)"
//
// Параметры:
//  Старт - Число - результат значения работы функции "ТекущаяУниверсальнаяДатаВМиллисекундах()"
//  Финиш - Число - результат значения работы функции "ТекущаяУниверсальнаяДатаВМиллисекундах()"\r
//
// Возвращаемое значение:
//  Строка
//
Функция ОписаниеЗамераВремени(Старт, Финиш)
КолМлСекундЛог = Финиш - Старт;
КолСекундЛог = ЦЕЛ(КолМлСекундЛог / 1000);
КолМлСекунд = КолМлСекундЛог - КолСекундЛог;

ФорматКолМС = "" + КолМлСекунд;
ФорматКолМС = СтрЗаменить(ФорматКолМС, ",", "");
ФорматКолМС = СтрЗаменить(ФорматКолМС, " ", "");
ФорматКолМС = Лев(ФорматКолМС, 3);
Пока Прав(ФорматКолМС, 1) = "0" Цикл
ФорматКолМС = Сред(ФорматКолМС, 1, СтрДлина(ФорматКолМС)-1);
КонецЦикла;
ФорматСекунд = "" + КолСекундЛог + "." + ФорматКолМС;

чч = ЦЕЛ(КолСекундЛог/3600);
мм = ЦЕЛ((КолСекундЛог - чч*3600)/60);
сс =  КолСекундЛог - чч*3600 - мм*60;
СтрокаВремя = Формат(чч, "ЧЦ=2; ЧН=; ЧВН=") + ":" +
Формат(мм, "ЧЦ=2; ЧН=; ЧВН=") + ":" +
Формат(сс, "ЧЦ=2; ЧН=; ЧВН=") + " ("+ ФорматСекунд +" сек.)";

Возврат СтрокаВремя;
КонецФункции 

Пример использования:

 Старт = ТекущаяУниверсальнаяДатаВМиллисекундах();
//.. код
Финиш = ТекущаяУниверсальнаяДатаВМиллисекундах();
Сообщить("Обработка завершена за " + ОписаниеЗамераВремени(Финиш, Старт));
// -> Обработка завершена за 00:00:03 (3.303 сек.)

// Проверка значения на вхождение в некоторый интервал
//
// Параметры:
//  Значение - Число, Дата - Проверяемое значение
//  НачалоИнтервала - Число, Дата
//  КонецИнтервала - Число, Дата
//  СтрогаяПроверка - Булево
//
// Возвращаемое значение:
//  Булево
//
Функция ЗначениеВИнтервале(Значение, НачалоИнтервала, КонецИнтервала, СтрогаяПроверка = Ложь)

Если СтрогаяПроверка Тогда
Возврат НачалоИнтервала < Значение И Значение < КонецИнтервала;
Иначе
Возврат НачалоИнтервала <= Значение И Значение <= КонецИнтервала;
КонецЕсли;

КонецФункции

Пример использования:

//.....
Если НЕ ЗначениеВИнтервале(ДатаПоказателя, НачалоПериода, КонецПериода) Тогда
Продолжить;
КонецЕсли;
//...

// Универсальная функция для парсинга строк
//
// Параметры:
//  ИсходнаяСтрока - Строка
//  СтрокаРазделитель - Строка
//  ОбрезатьПробелы - Булево
//
// Возвращаемое значение:
//  СтруктураЧастиСтроки - Структура
//   * Левая - Строка - Левая часть строки (до начала СтрокаРазделитель)
//   * Правая - Строка - Правая часть строки (после окончания СтрокаРазделитель)
//   * Разбито - Булево - флаг указывающий что в исходной строке есть СтрокаРазделитель
//
Функция РазбитьСтроку(ИсходнаяСтрока, СтрокаРазделитель, ОбрезатьПробелы = Истина)

поз = Найти(ИсходнаяСтрока, СтрокаРазделитель);
ДлинаРазделителя = СтрДлина(СтрокаРазделитель);
Разбито = поз > 0;
ЛеваяЧастьСтроки = Лев(ИсходнаяСтрока, поз - 1);
Если ОбрезатьПробелы Тогда
ЛеваяЧастьСтроки = СокрЛП(ЛеваяЧастьСтроки);
КонецЕсли;

ПраваяЧастьСтроки = Сред(ИсходнаяСтрока, поз + ДлинаРазделителя);
Если ОбрезатьПробелы Тогда
ПраваяЧастьСтроки = СокрЛП(ПраваяЧастьСтроки);
КонецЕсли;

СтруктураЧастиСтроки = Новый Структура("Левая, Правая, Разбито"
, ЛеваяЧастьСтроки
, ПраваяЧастьСтроки
, Разбито);

Возврат СтруктураЧастиСтроки;

КонецФункции

Пример использования:

//Парсинг строки вида "дд.мм.гггг":
Результат = Дата(1,1,1);
СтруктураЧастиСтроки = РазбитьСтроку(ЗначениеЯчейки, ".");

Если СтруктураЧастиСтроки.Разбито Тогда
ст_дд = Прав(СтруктураЧастиСтроки.Левая, 2);
чс_дд = Число(ст_дд);

СтруктураЧастиСтроки = РазбитьСтроку(СтруктураЧастиСтроки.Правая, ".");

Если СтруктураЧастиСтроки.Разбито Тогда
ст_мм = Прав(СтруктураЧастиСтроки.Левая, 2);
чс_мм = Число(ст_мм);

ст_гггг = Лев(СтруктураЧастиСтроки.Правая, 4);
чс_гггг = Число(ст_гггг);

Результат = Дата(чс_гггг, чс_мм,  чс_дд);

КонецЕсли;
КонецЕсли;
Возврат Результат;

 Приведенный ниже код иллюстрирует работу с файлом типа "xlsx". Работа ведется из управляемой формы:

• пользователь выбирает файл;

• файл помещается в временное хранилище, и становится доступен на сервере в виде двоичных данных;

• производится запись двоичных данных в временный файл на сервере, с проверкой: если запись временного файла занимает более 30 секунд, пользователь получит уведомление о прерывании загрузки.

// Выбор загружаемого файла, заполнение служебного реквизита формы "АдресФайлаВВременномХранилище"
//
// Возвращаемое значение:
//  Булево - Истина при успешном выборе файла
//
&НаКлиенте
Функция ПроизведенУспешныйВыборФайла()

ЭтаФорма.АдресФайлаВВременномХранилище = "";

#Если ВебКлиент Тогда

Если НЕ ПодключитьРасширениеРаботыСФайлами() Тогда
УстановитьРасширениеРаботыСФайлами();
ПодключитьРасширениеРаботыСФайлами();
КонецЕсли;

ПоместитьФайл(ЭтаФорма.АдресФайлаВВременномХранилище);

#Иначе

ДиалогФыбораФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);

ДиалогФыбораФайла.Фильтр = "Таблица(*.xlsx)|*.xlsx";
ДиалогФыбораФайла.Заголовок = "Выберите файл";
ДиалогФыбораФайла.ПредварительныйПросмотр = Ложь;
ДиалогФыбораФайла.Расширение = "xlsx";
ДиалогФыбораФайла.МножественныйВыбор = Ложь;

Если ДиалогФыбораФайла.Выбрать() Тогда
ФайлЗагрузки = ДиалогФыбораФайла.ПолноеИмяФайла;
Иначе
Возврат Ложь;
КонецЕсли;

ЭтаФорма.АдресФайлаВВременномХранилище = ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(ДиалогФыбораФайла.ПолноеИмяФайла));

#КонецЕсли

Возврат НЕ ПустаяСтрока(ЭтаФорма.АдресФайлаВВременномХранилище);

КонецФункции

Пример использования:

//...
&НаКлиенте
Процедура ЗагрузитьФайл(Команда)

Если ПроизведенУспешныйВыборФайла() Тогда
ВыполнитьЗагрузкуФайлаНаСервере();
КонецЕсли;

КонецПроцедуры

//...
&НаСервере
Процедура ВыполнитьЗагрузкуФайлаНаСервере()

АдресВременногоФайла = ПолучитьИмяВременногоФайла("xlsx");

// Запись двоичных данных из вр. хранилища:
ДвДанные = ПолучитьИзВременногоХранилища(ЭтаФорма.АдресФайлаВВременномХранилище);

Если ЗаписьФайлаПроизошлаУспешно(ДвДанные, АдресВременногоФайла) Тогда // см. ниже "Проверка записи файла
// обработка данных файла...
Иначе
ЛОГ("загрузка прервана на сервере - файл """+ АдресВременногоФайла +""" не обнаружен...");
КонецЕсли;

КонецПроцедуры
//...

// Попытка записи данных в файл с таймаутом на время записи
//
// Параметры:
//  Источник - Произвольный объект 1С, поддерживающий запись в файл через метод "Записать" - например ДвоичныеДанные или ТекстовыйДокумент
//  АдресФайла - Строка
//  ОграничениеВремениЗаписи - Число, количество секунд в течение которого будет выполнятся проверка существования файла
//  КомандаЗаписи - Строка, для различных случаев сохранения файла, в алгоритме будет параметром метода "Выполнить"
//
// Возвращаемое значение:
//  Булево
//
Функция ЗаписьФайлаПроизошлаУспешно(Источник, АдресФайла, ОграничениеВремениЗаписи = 30, КомандаЗаписи = "")

Попытка

Если ПустаяСтрока(КомандаЗаписи) Тогда
Источник.Записать(АдресФайла);
Иначе
Выполнить(КомандаЗаписи);
КонецЕсли;

ТекДата = ТекущаяДата();
ПредСекунда = 0;
Пока Истина Цикл

КолСекунд = ТекущаяДата() - ТекДата;
ТекСекунда = КолСекунд;

Если ПредСекунда < ТекСекунда Тогда
// Раз в секунду - проверка существования записываемого файла
ЗаписываемыйФайл = Новый Файл(АдресФайла);
Если ЗаписываемыйФайл.Существует() Тогда
Возврат Истина;
КонецЕсли;

ПредСекунда = ТекСекунда;
КонецЕсли;

Если КолСекунд > ОграничениеВремениЗаписи Тогда
ВызватьИсключение "время записи файла превысило "+ ОграничениеВремениЗаписи +" секунд";
КонецЕсли;
КонецЦикла;

Исключение
Лог("неудачная попытка записи файла на сервере - " + ОписаниеОшибки());
Возврат Ложь;
КонецПопытки;

КонецФункции

Пример использования:

//...
ТекстXSD = ЭтотОбъект.ПолучитьМакет("МакетXSD");
ИмяВременногоФайла = ПолучитьИмяВременногоФайла("xsd");

// Запись xsd файла с проверкой по тайм-ауту
Если НЕ ЗаписьФайлаПроизошлаУспешно(ТекстXSD, ИмяВременногоФайла, 5) Тогда
Возврат;
КонецЕсли;

// Или, если нужна запись с параметром:
Если НЕ ЗаписьФайлаПроизошлаУспешно(ТекстXSD, ИмяВременногоФайла, 5, "Источник.Записать(АдресФайла, КодировкаТекста.UTF8);") Тогда
Возврат;
КонецЕсли;
//...

// Проверка доступности переданного узла с помощью команды ping
//
// Параметры:
//  АдресURL - пингуемый адрес
//
// Возвращаемое значение:
//  Булево
//
Функция Пинг(АдресURL = "")

Если ПустаяСтрока(АдресURL) Тогда
АдресURL = "www.ya.ru";
КонецЕсли;

objShell = Новый COMОбъект("WScript.Shell") ;
objScriptExec = objShell.Exec("ping.exe -n 1 " + АдресURL);
strPingResults = НРег(objScriptExec.StdOut.ReadAll());
ЕстьСоединение = Найти(strPingResults, "ttl=") > 0;

Возврат ЕстьСоединение;

КонецФункции

Пример использования:

//...
ЕстьСоединениеСИнтернетом = Пинг(); // По-умолчанию пингуется www.ya.ru
//... 

// Упрощенный конструктор описания типа
//
// Параметры:
//  ИмяТипа - Строка, Массив элементов типа "Тип" - первый параметр конструктора ОписаниеТипов()
//  п1 - Произвольный, первый параметр квалификатора
//  п2 - Произвольный, второй параметр квалификатора
//  п3 - Произвольный, третий параметр квалификатора
//
// Возвращаемое значение:
//  ОписаниеТипов
//
Функция ОписаниеТипа(ИмяТипа, п1 = Неопределено, п2 = Неопределено, п3 = Неопределено)

Перем Результат;

Если ИмяТипа = "Строка" Тогда

п1 = ?(п1 = Неопределено, 0, п1);
Если п2 = Неопределено Тогда
п2 = ДопустимаяДлина.Переменная;
КонецЕсли;

КвалСтроки = Новый КвалификаторыСтроки(п1, п2);
Результат = Новый ОписаниеТипов(ИмяТипа,,,,КвалСтроки);

ИначеЕсли ИмяТипа = "Число" Тогда

п1 = ?(п1 = Неопределено, 0, п1);
п2 = ?(п2 = Неопределено, 0, п2);
Если п3 = Неопределено Тогда
п3 = ДопустимыйЗнак.Любой;
КонецЕсли;

КвалЧисла = Новый КвалификаторыЧисла(п1, п2, п3);
Результат = Новый ОписаниеТипов(ИмяТипа,,,КвалЧисла);

ИначеЕсли ИмяТипа = "Дата" Тогда

Если п1 = Неопределено Тогда
п1 = ЧастиДаты.ДатаВремя;
КонецЕсли;

КвалДаты = Новый КвалификаторыДаты(п1);
Результат = Новый ОписаниеТипов(ИмяТипа,,,,,КвалДаты);

Иначе
Результат = Новый ОписаниеТипов(ИмяТипа);
КонецЕсли;

Возврат Результат;

КонецФункции

Пример использования:

//...
Функция НоваяТаблицаОписанияОпераций()

тз = Новый ТаблицаЗначений;
тз.Колонки.Добавить("Сумма"         , ОписаниеТипа("Число", 15, 2));
тз.Колонки.Вставить("Описание"      , ОписаниеТипа("Строка", 100));
тз.Колонки.Вставить("ДатаОперации"  , ОписаниеТипа("Дата"));

МассивТипов = Новый Массив();
МассивТипов.Добавить(Тип("ДокументСсылка.Встреча"));
МассивТипов.Добавить(Тип("ДокументСсылка.ЗапланированноеВзаимодействие"));
тз.Колонки.Вставить("Событие"       , ОписаниеТипа(МассивТипов));

тз.Колонки.Вставить("Ответственный" , ОписаниеТипа("СправочникСсылка.Пользователи"));
Возврат тз;

КонецФункции
//... 

    ADODBConnection = Новый COMОбъект("ADODB.Connection");
ADODBConnection.Provider = "Microsoft.ACE.OLEDB.12.0";
ADODBConnection.Properties("Data Source").Value = СокрЛП(ЭтотОбъект.ПутьКФайлу);
ADODBConnection.Properties("Extended Properties").Value = "Excel 12.0;HDR=Yes;IMEX=1";
ADODBConnection.Open();

//  Получить список имен листов:
//    ADODBRecordset = Новый COMОбъект("ADODB.Recordset");
//    ADODBRecordset = ADODBConnection.OpenSchema(20);
//    СписокЛистов = Новый СписокЗначений;
//    Пока НЕ ADODBRecordset.EOF Цикл
//        ИмяЛиста = ADODBRecordset.Fields("TABLE_NAME").Value;
//        Если Найти(ИмяЛиста, "_xlnm#_FilterDatabase") = 0 Тогда
//            СписокЛистов.Добавить(ИмяЛиста);
//        КонецЕсли;
//        ADODBRecordset.MoveNext();
//    КонецЦикла;
//    ADODBRecordset.Close();

//    СписокЛистов.СортироватьПоЗначению(НаправлениеСортировки.Убыв);
//    ИмяЛиста = СписокЛистов[0].Значение;

ТекстЗапроса = "SELECT * FROM [" + ЭтотОбъект.ИмяЛиста + "$]";

ADODBRecordset = Новый COMОбъект("ADODB.Recordset");
ADODBRecordset.Open(ТекстЗапроса, ADODBConnection);

КолвоКолонокExcel = ADODBRecordset.Fields.Count;

СчетчикСтрок = 1;
Пока ADODBRecordset.EOF() = 0 Цикл

Для СчетчикКолонок = 1 ПО КолвоКолонокExcel Цикл

Поле = ADODBRecordset.Fields.Item(СчетчикКолонок - 1);

Если Поле.ActualSize = 0 Тогда// Пустое поле EXCEL.
Продолжить;
КонецЕсли;

ЗначениеЯчейки = Поле.Value;
// Обработка значения ячейки

КонецЦикла;

ADODBRecordset.MoveNext();   // Следующая строка.
СчетчикСтрок = СчетчикСтрок + 1;

КонецЦикла;

ADODBConnection.Close();

ADODBRecordset = Неопределено;
ADODBConnection = Неопределено;   

Этот метод служит для решения частной задачи отображения группировок колонок в табличных документах, полученных с помощью СКД. Исходная идея вот здесь: СКД. Как объединить заголовки родительских группировок колонок в таблице, я лишь причесал код. Этот вариант не будет работать с уже объединенными ячейками. Может позже допилю, пока нет нужды. Как использовать: в СКД делаем одну группировку колонок, в которую добавлем необходимые поля. После вывода табличного документа на форму вызываем метод.

// Объединяет ячейки шапки табличного документа с повторяющимся текстом
// Служит для решения задачи отображения группировок колонок в табличных документах, полученных с помощью СКД
//
// Параметры:
//  ТабДок - ТабличныйДокумент
//  ВысотаШапки - Число, если не передана, высотой шапки считается высота фиксации таблицы
//
Процедура СвернутьЗаголовкиШапкиТабличногоДокумента(ТабДок, ВысотаШапки = 0)

ВысотаШапки = ?(ВысотаШапки = 0, ТабДок.ФиксацияСверху, ВысотаШапки);
НачалоШапки = ?(ТабДок.ФиксацияСлева = 0, 1, ТабДок.ФиксацияСлева);

ЭтоПервоеОбъединение = Истина;

Для СчетчикСтрок=1 По ВысотаШапки Цикл

НомерПервойКолонкиОбъединения = 0;
Для СчетчикКолонок=НачалоШапки По ТабДок.ШиринаТаблицы Цикл

ОбъединятьЯчейки = Ложь;
Ячейка = ТабДок.Область(СчетчикСтрок, СчетчикКолонок);
Если ПустаяСтрока(Ячейка.Текст) Тогда
Продолжить;
КонецЕсли;
ЯчейкаСлед = ТабДок.Область(СчетчикСтрок, СчетчикКолонок+1);
ОбъединятьЯчейки = Ячейка.Текст = ЯчейкаСлед.Текст;

Если ОбъединятьЯчейки Тогда
НомерПервойКолонкиОбъединения = ?(НомерПервойКолонкиОбъединения = 0, СчетчикКолонок, НомерПервойКолонкиОбъединения);

ИначеЕсли НомерПервойКолонкиОбъединения > 0 Тогда
ТекстЗаголовка = ТабДок.Область(СчетчикСтрок, СчетчикКолонок).Текст;
ОбъединяемаяОбласть = ТабДок.Область(СчетчикСтрок, НомерПервойКолонкиОбъединения, СчетчикСтрок, СчетчикКолонок);
ОбъединяемаяОбласть.Объединить();

ОбъединяемаяОбласть.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
ОбъединяемаяОбласть.Текст = ТекстЗаголовка;
НомерПервойКолонкиОбъединения = 0;
КонецЕсли;
КонецЦикла;
КонецЦикла;

КонецПроцедуры

// Формирование идентификатора по правилам образования имен переменных 1С по входящей строке
// Пример "Статья возмещение НДС" => "СтатьяВозмещениеНДС"
//
// Параметры:
//  стр - Строка - от которой необходимо получить идентификатор
//
// Возвращаемое значение:
//  Строка
//
Функция ИдентификаторПоСтроке(ЗНАЧ стр)
    ДопустимыеСимволы = "ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮЁQWERTYUIOPASDFGHJKLZXCVBNM" + 
    "йцукенгшщзхъфывапролджэячсмитьбюёqwertyuiopasdfghjklzxcvbnm_ ";
    СимволыЦифр = "0987654321";
    ДопустимыеСимволы = СимволыЦифр + ДопустимыеСимволы;
    
    Пока Найти(стр, "  ") > 0 Цикл
        стр = СтрЗаменить(стр, "  ", " ");            
    КонецЦикла; 
    
    ДлинаСтроки = СтрДлина(стр);
    СледующаяЗаглавная = Истина;
    Идентификатор = "";
    Для сч=1 По ДлинаСтроки Цикл
        
        сим = Сред(стр, сч, 1);
        
        Если Найти(ДопустимыеСимволы, сим) = 0 Тогда
            сим = "_";           
        КонецЕсли; 
        
        Если сч = 1 И сим = "_" Тогда
            Продолжить;            
        КонецЕсли; 
                
        Если сим = " " Тогда
            СледующаяЗаглавная = Истина;
            Продолжить;
        КонецЕсли; 
        
        Если СледующаяЗаглавная Тогда
            СледующаяЗаглавная = Ложь;
            Сим = Врег(Сим);            
        КонецЕсли; 
        ЭтоЦифра = Найти(СимволыЦифр, сим) > 0;            
        Если сч = 1 И ЭтоЦифра Тогда
            сим = "_" + сим;                
        КонецЕсли;             
        Если ЭтоЦифра Тогда
            СледующаяЗаглавная = Истина;                
        КонецЕсли; 
        
        Идентификатор = Идентификатор + Сим;                
    КонецЦикла; 
        
    Возврат Идентификатор;
КонецФункции

// Преобразование переданного идентификатора в представление
//
// Параметры:
//  Идентификатор - Строка - образованная по правилам формирования идентификаторов 1С
//
// Возвращаемое значение:
//  Строка - преобразованный идентификатор.
//   - Первая буква всегда заглавная
//   - Первое подчеркивание пропускается
//   - Прочие заглавные буквы преобразуются в нижний регистр, после вставляется пробел
//   - Между цифрой и буквой вставляется пробел, между подряд идущими цифрами пробелов нет
//   - Несколько сплошных подчеркиваний воспринимаются как один, превращаются в пробел
//   - В строке может присутствовать символ, отличный от допустимых в идентификаторе - не обрабатывается
//   - Учитывается капитель (аббревиатуры) и спецсимволы в капители
//
// Примеры:
//   "ЭтоДата23_05_06" -> "Это дата 23 05 06"
//   "Это____ПримерС_Подчеркиваниями" -> "Это пример с подчеркиваниями"
//   "это_ПримерС_ПервойНеЗаглавной" -> "Это пример с первой не заглавной"
//   "Это_ПримерС_НевернымИден???тификатором*" -> "Это пример с неверным иден???тификатором*"
//   "_Это_ПримерС_первымПодчеркиванием" -> "Это пример с первым подчеркиванием"
//   "Это_КАПИ_ТЕЛЬ" -> "Это КАПИТЕЛЬ"
//   "Это_КАПИ99ТЕЛЬ" -> "Это КАПИ 99 ТЕЛЬ"
//   "Это_КАПИ??ТЕЛЬ" -> "Это КАПИ??ТЕЛЬ"
//
Функция ИдентификаторВПредставление(Идентификатор) Экспорт
Цифры = "0123456789";
Алфавит = "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ" + "ABCDEFGHIJKLMNOPQRSTUVWXYZ";

ИдентификаторКОбработке = СокрЛП(Идентификатор);
Пока Найти(ИдентификаторКОбработке, "__") Цикл
ИдентификаторКОбработке = СтрЗаменить(ИдентификаторКОбработке, "__", "_");
КонецЦикла;
Пока Лев(ИдентификаторКОбработке, 1) = "_" Цикл
ИдентификаторКОбработке = Сред(ИдентификаторКОбработке, 2);
КонецЦикла;

ПредыдущийЗнакЭтоПробел = Ложь;
ПредыдущийЗнакЭтоЦифра = Ложь;
ПредыдущийЗнакЭтоЗаглавная = Ложь;
ПредыдущийЗнакЭтоСпецСимвол = Ложь;
Слово = "";
Для сч=1 По СтрДлина(ИдентификаторКОбработке) Цикл
ДобавитьПробел = Ложь;

Сим = Сред(ИдентификаторКОбработке, сч, 1);
ВрегСим = Врег(Сим);
НрегСим = Нрег(Сим);
СимВСлово = Сим;

ЭтоНижнийСлэш = сим = "_";
ЭтоЦифра = Найти(Цифры, Сим) > 0;
ЭтоБуква = Найти(Алфавит, ВрегСим) > 0;
ЭтоПрочийЗнак = НЕ (ЭтоНижнийСлэш ИЛИ ЭтоЦифра);
ЭтоЗаглавная = (Сим = ВрегСим) И (Сим <> НрегСим);

Если сч=1 Тогда
СимВСлово = ВрегСим;

ИначеЕсли ЭтоЦифра И НЕ ПредыдущийЗнакЭтоЦифра Тогда
ДобавитьПробел = Истина;

ИначеЕсли ЭтоНижнийСлэш Тогда
ДобавитьПробел = Истина;
СимВСлово = "";

ИначеЕсли ЭтоПрочийЗнак И ЭтоЗаглавная И НЕ ПредыдущийЗнакЭтоЗаглавная И НЕ ПредыдущийЗнакЭтоСпецСимвол Тогда
ДобавитьПробел = Истина;
СимВСлово = НрегСим;
КонецЕсли;

ЭтоВторойСимволКапители = ЭтоЗаглавная И ПредыдущийЗнакЭтоЗаглавная;
Если ЭтоВторойСимволКапители Тогда
ПоследнийСимвол = Прав(Слово, 1);
Слово = Сред(Слово, 1, СтрДлина(Слово)-1) + ВРЕГ(ПоследнийСимвол);
КонецЕсли;

ДобавитьПробел = ДобавитьПробел И НЕ ПредыдущийЗнакЭтоПробел;
Если ДобавитьПробел Тогда
СимВСлово = " " + СимВСлово;
КонецЕсли;

Слово = Слово + СимВСлово;

ПредыдущийЗнакЭтоПробел = СимВСлово = " ";
ПредыдущийЗнакЭтоЦифра = ЭтоЦифра;
ПредыдущийЗнакЭтоЗаглавная = ЭтоЗаглавная;
ПредыдущийЗнакЭтоСпецСимвол = НЕ (ЭтоБуква ИЛИ ЭтоНижнийСлэш ИЛИ ЭтоЦифра);
КонецЦикла;
Возврат Слово;

КонецФункции 

// Формирование структуры для первой (единственной) записи результата запроса
//
// Параметры:
//  РезультатЗапроса - РезультатЗапроса, источник данных
//
// Возвращаемое значение:
//  Структура - Набор ключей повторяет набор колонок результат запроса, значения заполняются
// значениями первой записи выборки
//
Функция РезультатЗапросаВСтруктуру(РезультатЗапроса) Экспорт

СтруктураРезультат = Новый Структура;
Выборка = РезультатЗапроса.Выбрать();
Выборка.Следующий();

Для каждого Колонка Из РезультатЗапроса.Колонки Цикл

Если Выборка.Количество() = 0 Тогда
МассивТипов = Колонка.ТипЗначения.Типы();
ОбщегоНазначенияКлиентСервер.УдалитьЗначениеИзМассива(МассивТипов, Тип("Null"));
ОписаниеТиповБезNULL = Новый ОписаниеТипов(МассивТипов);
ЗначениеПоля = ОписаниеТиповБезNULL.ПривестиЗначение();

Иначе
ЗначениеПоля = Выборка[Колонка.Имя];

КонецЕсли;

СтруктураРезультат.Вставить(Колонка.Имя, ЗначениеПоля);
КонецЦикла;

Возврат СтруктураРезультат;

КонецФункции