// Выводит данные ДереваЗначений в ТекстовыйДокумент, пригодный к рассмотрению в отладчике, окне сообщений и показу.

//

// Параметры:

//    рВетка - дерево значений, подлежащее выводу. Может иметь почти любую глубину иерархии, количество и тип колонок. Если хватит

//        объявленных позиционных строк-заполнителей, всё поместится. Если иерархия слишком глубока, строки просто надо нарастить;

//    рТекст - на входе должен быть равен Неопределено; на выходе по окончании работы содержит результатный текстовый документ;

//    рПараметры - структура дополнительных настроек, допустимые ключи:

//        Колонки - структура колонок, которые подлежат выводу. Если пуста или имеет тип, отличный от структуры, выводятся все колонки;

//           если в ключах структуры указаны имена колонок, будут выведены только они. В значениях структуры можно передать строковое

//           представление формата, согласно которому должны будут форматироваться выводимые значения. По умолчанию формата нет;

//        ПоказыватьУровни - булево, управляет выводом №№ уровней (метод Уровень()), по умолчанию выключено;

//        ШагОтступа - число, определяющее шаг в символах, используемый для показа псевдографики иерархии веток в дереве.

//

&НаСервереБезКонтекста

Процедура ВывестиДеревоЗначенийВТекст(Знач рВетка,рТекст,Знач рПараметры=Неопределено)

Попытка

    Если рТекст=Неопределено Тогда // первая итерация, шапочный вызов исходной части

        //---------------------------------------------------------------------------------------------------------------------------

        // Разбираем входные данные

        Если ТипЗнч(рВетка)<>Тип("ДеревоЗначений") Тогда Возврат КонецЕсли;

        Если ТипЗнч(рПараметры)<>Тип("Структура") Тогда рПараметры=Новый Структура КонецЕсли;

        стрКолонок=?(рПараметры.Свойство("Колонки"),рПараметры.Колонки,Неопределено);

        Если ТипЗнч(стрКолонок)<>Тип("Структура") Тогда стрКолонок=Новый Структура КонецЕсли;

        рПоказыватьУровни=?(рПараметры.Свойство("ПоказыватьУровни"),рПараметры.ПоказыватьУровни,Ложь); // затратное дело, кстати

        рШагОтступа=?(рПараметры.Свойство("ШагОтступа"),рПараметры.ШагОтступа,2); // для отображения отступа в колонке иерархии





        //---------------------------------------------------------------------------------------------------------------------------

        // Определяем максимальное количество уровней

        // Также можно получить максимальный уровень, "плоско" перебрав все строки (например, получив их через НайтиСтроки)

        // и в цикле для каждой вызывая Уровень() и определяя максимум.

        // Вариант через СКД и служебное поле "Уровень" ни на одной известной мне платформе не работоспособен (нехватка памяти).

        //

        //

        //рДеревоДляТеста=КакНибудьСкопироватьДерево(рВетка);

        //рДеревоДляТеста.Колонки.Вставить(0,"_Level",Новый ОписаниеТипов("Булево")); // самый экономный вариант, с сохранением иерархии

        //мНенужных=Новый Массив;

        //Для й=1 По рДеревоДляТеста.Колонки.Количество()-1 Цикл

        //  мНенужных.Добавить(рДеревоДляТеста.Колонки[й]);

        //КонецЦикла;

        //Для каждого кол Из мНенужных Цикл

        //  рДеревоДляТеста.Колонки.Удалить(кол);

        //КонецЦикла;

        //

        рДеревоДляТеста=рВетка; // пока сериализуем прямо всё дерево (неоптимально, но...)

        рЗапись=Новый ЗаписьXML;

        рЗапись.УстановитьСтроку();

        СериализаторXDTO.ЗаписатьXML(рЗапись,рДеревоДляТеста);

        стро=рЗапись.Закрыть();

        //

        стро=СтрЗаменить(стро,"xmlns=","xmlns:myns1C="); // иначе не будет работать XPath

        //

        рЧтение=Новый ЧтениеXML;

        рЧтение.УстановитьСтроку(стро);

        постр=Новый ПостроительDOM;

        рДокументДОМ=постр.Прочитать(рЧтение);





        рВыражение="/ValueTree/row"; максКолвоУровней=1;

        рРазыменователь=Новый РазыменовательПространствИменDOM(рДокументДОМ);

        Пока Истина Цикл

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

                ОбработкаПрерыванияПользователя();

            #КонецЕсли

            рРезультат=рДокументДОМ.ВычислитьВыражениеXPath(рВыражение,рДокументДОМ,рРазыменователь,ТипРезультатаDOMXPath.Любой);

            Если рРезультат.ПолучитьСледующий()=Неопределено Тогда Прервать КонецЕсли;

            рВыражение=рВыражение+"/row";

            максКолвоУровней=максКолвоУровней+1;

        КонецЦикла;

        максКолвоУровней=максКолвоУровней-1; // можно и так: СтрЧислоВхождений(рВыражение,"/row")-1;





        //---------------------------------------------------------------------------------------------------------------------------

        // готовим исходный макет вывода

        строПробелы="                                                                                                                                                                                                                 ";

        строРазделители="===============================================================================================";

        строОтступы="___________________________________________________________________________________________"; // тут нужны чуть для другого

        //

        секШапка1="|[_HCS"+Лев(строПробелы,максКолвоУровней*рШагОтступа)+"]|"; // HierarchyColumnShow

        секГорРазделитель1="|"+Лев(строОтступы,максКолвоУровней*рШагОтступа+6)+"|"; // здесь именно Отступы!

        рШиринаКолонкиИерархии=СтрДлина(секШапка1)-2;

        строПолейШапки="#Поле _HCS

        |   #Выравнивание Центр";

        строПолейЗаписи="";

        //

        Если рПоказыватьУровни Тогда

            секШапка1=секШапка1+"[_Level]|";

            секГорРазделитель1=секГорРазделитель1+Лев(строРазделители,8)+"|";

            строПолейШапки=строПолейШапки+"

            |#Поле _Level

            |   #Выравнивание Центр";

            строПолейЗаписи="#Поле _Level

            |   #Выравнивание Центр

            |   #Забивать Истина";

        КонецЕсли;

        //

        мИменКолонок=Новый Массив;

        Для каждого кол Из рВетка.Колонки Цикл

            Если стрКолонок.Количество()<>0 и не стрКолонок.Свойство(кол.Имя) Тогда Продолжить КонецЕсли; // чётко указаны конкретные колонки

            рДлинаИмениКолонки=СтрДлина(кол.Имя);

            рНужнаяШирина=Макс(?(кол.Ширина<3,10,кол.Ширина),рДлинаИмениКолонки);

            // к сожалению, ключевое слово "#Поля" неприменимо - платформа падает - поэтому делаем всё сами

            секШапка1=секШапка1+"["+кол.Имя+Лев(строПробелы,рНужнаяШирина-рДлинаИмениКолонки)+"]|";

            секГорРазделитель1=секГорРазделитель1+Лев(строРазделители,рНужнаяШирина+1)+"=|";

            строПолейШапки=строПолейШапки+"

            |#Поле "+кол.Имя+"

            |   #Выравнивание Центр";

            рОписТипов=кол.ТипЗначения;

            Если рОписТипов.Типы().Количество()=1 и рОписТипов.СодержитТип(Тип("Булево")) Тогда

                рВыравнивание="Центр";

            ИначеЕсли рОписТипов.СодержитТип(Тип("Число")) Тогда

                рВыравнивание="Право";

            ИначеЕсли рОписТипов.СодержитТип(Тип("Строка")) и рОписТипов.КвалификаторыСтроки.Длина=0 Тогда

                рВыравнивание="ПоШирине";

            Иначе

                рВыравнивание="Лево";

            КонецЕсли;

            строПолейЗаписи=строПолейЗаписи+?(ПустаяСтрока(строПолейЗаписи),"",Символы.ПС)+"#Поле "+кол.Имя+"

            |   #Выравнивание "+рВыравнивание;

            Попытка

                Если ЗначениеЗаполнено(стрКолонок[кол.Имя]) Тогда // указан формат, уточняющий показ колонки

                    строПолейЗаписи=строПолейЗаписи+"

                    |   #Формат """+СокрЛП(стрКолонок[кол.Имя])+"""";

                КонецЕсли;

            Исключение

            КонецПопытки;

            мИменКолонок.Добавить(кол.Имя);

        КонецЦикла;

        секШапка2=СтрЗаменить(СтрЗаменить(секШапка1,"[","<"),"]",">");

        секЗапись1=секШапка1; секЗапись2=секШапка2; // пусть они по дизайну пока не отличаются

        секГорРазделитель2=СтрЗаменить(СтрЗаменить(секГорРазделитель1,"=","-"),"|","+");

        // обработаем нормальное обрамление шапки колонки иерархии

        секГорРазделитель1=СтрЗаменить(секГорРазделитель1,"_","=");

        секГорРазделитель2=СтрЗаменить(секГорРазделитель2,"_"," ");

        //

        тМакет=Новый ТекстовыйДокумент;

        тМакет.ДобавитьСтроку("#Область Шапка");

        тМакет.ДобавитьСтроку(строПолейШапки);

        тМакет.ДобавитьСтроку(секГорРазделитель1);

        тМакет.ДобавитьСтроку(секШапка1);

        тМакет.ДобавитьСтроку(секШапка2);

        тМакет.ДобавитьСтроку(секГорРазделитель1);

        тМакет.ДобавитьСтроку("#КонецОбласти");

        тМакет.ДобавитьСтроку("");

        тМакет.ДобавитьСтроку("#Область Запись");

        тМакет.ДобавитьСтроку(строПолейЗаписи);

        тМакет.ДобавитьСтроку(секЗапись1);

        тМакет.ДобавитьСтроку(секЗапись2);

        тМакет.ДобавитьСтроку(секГорРазделитель2);

        тМакет.ДобавитьСтроку("#КонецОбласти");

        рПараметры.Вставить("ИсходныйМакет",тМакет); // пусть будет





        //---------------------------------------------------------------------------------------------------------------------------

        // Запускаем вывод в итоговый документ

        рТекст=Новый ТекстовыйДокумент;

        сек=тМакет.ПолучитьОбласть("Шапка");

        сек.Параметры._HCS="Иерархия";

        Для каждого имякол Из мИменКолонок Цикл

            кол=рВетка.Колонки[имякол];

            сек.Параметры[кол.Имя]=?(ПустаяСтрока(кол.Заголовок),кол.Имя,кол.Заголовок);

        КонецЦикла;

        рТекст.Вывести(сек);

        //

        пар=Новый Структура;

        пар.Вставить("МассивИмёнКолонок",мИменКолонок);

        пар.Вставить("ТекущаяСекция",тМакет.ПолучитьОбласть("Запись"));

        пар.Вставить("ШиринаКолонкиИерархии",рШиринаКолонкиИерархии);

        пар.Вставить("ПоказыватьУровни",рПоказыватьУровни);

        пар.Вставить("Отступ",0);

        пар.Вставить("ШагОтступа",рШагОтступа);

        ВывестиДеревоЗначенийВТекст(рВетка,рТекст,пар);





    Иначе

        // очередная итерация, вывод в текстовый документ

        мИменКолонок=рПараметры.МассивИмёнКолонок;

        рСекция=рПараметры.ТекущаяСекция;

        рОтступ=рПараметры.Отступ;

        рШиринаКолонкиИерархии=рПараметры.ШиринаКолонкиИерархии;

        рПоказыватьУровни=рПараметры.ПоказыватьУровни;

        //

        строОтступы="_________________________________________________________________________________________________________";

        строПробелы="                                                                                                                                                                                                                 ";

        //

        пар=Новый Структура;

        пар.Вставить("МассивИмёнКолонок",мИменКолонок);

        пар.Вставить("ТекущаяСекция",рПараметры.ТекущаяСекция);

        пар.Вставить("ШиринаКолонкиИерархии",рШиринаКолонкиИерархии);

        пар.Вставить("ПоказыватьУровни",рПоказыватьУровни);

        пар.Вставить("ШагОтступа",рПараметры.ШагОтступа);

        пар.Вставить("Отступ",рОтступ+рПараметры.ШагОтступа);

        //

        Для каждого рПодветка Из рВетка.Строки Цикл

            рСекция.Параметры._HCS=Лев(строПробелы,рОтступ)+"\"+Лев(строОтступы,рШиринаКолонкиИерархии-рОтступ-1);

            Если рПоказыватьУровни Тогда

                рСекция.Параметры._Level=рПодветка.Уровень();

            КонецЕсли;

            Для каждого имякол Из мИменКолонок Цикл

                рСекция.Параметры[имякол]=рПодветка[имякол];

            КонецЦикла;

            рТекст.Вывести(рСекция);

            ВывестиДеревоЗначенийВТекст(рПодветка,рТекст,пар)

        КонецЦикла;

        //

    КонецЕсли;

Исключение

    Сообщить("ВывестиДеревоЗначенийВТекст, ошибка: "+ОписаниеОшибки(),СтатусСообщения.ОченьВажное);

КонецПопытки;

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

 // Функция определяет основные настройки базы 1с 77 расположенной в каталоге "КаталогБазы"

 //

 // функция возвращает соответствие определяющее структуру базы

 // "Имя MD файла"         - вместе с полным путем

 // "Имя Users файла"     - вместе с полным путем

 // "Имя Links файла"     - вместе с полным путем

 // "Имя DBA файла"         - вместе с полным путем

 // "Вариант установки"     - перечисление

 // "Имя SQL сервера"

 // "Имя SQL базы"

 // "Имя DBO пользователя"

 // "Пароль DBO пользователя"

 // "Контрольная сумма DBO"

 // "Каталог базы"

 

Функция ПолучитьПараметрыБазы77 (КаталогБазы, ПолучатьПараметрыSQL = Истина) Экспорт 

    Результат = Новый Соответствие;

    // заполним пустые значения

    Результат.Вставить("Имя MD файла", "");

    Результат.Вставить("Дата MD файла", неопределено);

    Результат.Вставить("Размер MD файла", 0);

    Результат.Вставить("Имя Users файла", "");

    Результат.Вставить("Имя Links файла", "");

    Результат.Вставить("Имя DBA файла", "");

    Результат.Вставить("Вариант установки", Перечисления.ВариантБазы77.Ошибка);

    Результат.Вставить("Имя SQL сервера", "");

    Результат.Вставить("Имя SQL базы", "");

    Результат.Вставить("Имя DBO пользователя", "");

    Результат.Вставить("Пароль DBO пользователя", "");

    Результат.Вставить("Контрольная сумма DBO", 0);

    Результат.Вставить("Каталог базы", СокрЛП(КаталогБазы));

    

    // поехали анализировать

  

    _КаталогБазы = СокрЛП(КаталогБазы);

    Если Прав(_КаталогБазы, 1) <> "\" Тогда

        _КаталогБазы = _КаталогБазы + "\";

    КонецЕсли;

    

    ИмяФайла = _КаталогБазы + "1Cv7.MD";

    ВыбФайл = Новый Файл(ИмяФайла);

    Если не ВыбФайл.Существует() Тогда

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

    КонецЕсли;

    

    // вроде база есть, теперь будем заполнять поля ключевых файлов

 

    

    Результат.Вставить("Имя MD файла", ВыбФайл.ПолноеИмя);

    

    Результат.Вставить("Дата MD файла", ВыбФайл.ПолучитьВремяИзменения());

    Результат.Вставить("Размер MD файла", ВыбФайл.Размер());

    Результат.Вставить("Имя Links файла", _КаталогБазы + "SYSLOG\links.tmp");

    

    ИмяФайла = _КаталогБазы + "usrdef\users.usr";

    ВыбФайл = Новый Файл(ИмяФайла);

    Если ВыбФайл.Существует() Тогда

        Результат.Вставить("Имя Users файла", ВыбФайл.ПолноеИмя);

    КонецЕсли;

    

    ИмяФайла = _КаталогБазы + "1Cv7.DBA";

    ВыбФайл = Новый Файл(ИмяФайла);

    Если ВыбФайл.Существует() Тогда

        Результат.Вставить("Имя DBA файла", ВыбФайл.ПолноеИмя);

        Результат.Вставить("Вариант установки", Перечисления.ВариантБазы77.SQL);

        // здесь надо расшифровать параметры доступа к SQL

Иначе

        // для файловой версии надо посмотреть наличие dbf файлов, по крайне мере должен быть "1SJOURN.DBF"

         ИмяФайла = _КаталогБазы + "1SJOURN.DBF";

        ВыбФайл = Новый Файл(ИмяФайла);

        Если ВыбФайл.Существует() Тогда

            Результат.Вставить("Вариант установки", Перечисления.ВариантБазы77.Файловая);

        Иначе

            // для файловой версии надо посмотреть наличие dbf файлов, по крайне мере должен быть "1SJOURN.DBF"

             Результат.Вставить("Вариант установки", Перечисления.ВариантБазы77.Ошибка);

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

        КонецЕсли;

    КонецЕсли;   

 

// Пример форматной строки для вывода числа прописью на русском

// языке, с выводом целой и дробной части прописью и выводом

// предмета исчисления.

ФормСтрока = "Л = ru_RU; ДП = Истина";

ПарПредмета="доллар,доллара,долларов,м,цент,цента,центов,м,2";

ПрописьЧисла = ЧислоПрописью(2341.56, ФормСтрока, ПарПредмета);

// Результат вычисления: "Две тысячи триста сорок один доллар пятьдесят шесть центов"   

   

 

Пропись = ЧислоПрописью(1832, “L=pl_PL;SN=true;FN=true;FS=true”, “z?oty, z?ote, z?otych, m, grosz, grosze, groszy, m, 2”);

   

 x = ЧислоПрописью(123456.78,"ДП=Истина" ,"тонна, тонны, тонн, ж, кг., кг., кг., м,3" );

//x = "Сто двадцать три тысячи четыреста пятьдесят шесть тонн семьсот восемьдесят кг."



x = ЧислоПрописью(123456.78, ,",,,,,,,,0" );

//x = "Сто двадцать три тысячи четыреста пятьдесят семь "



x = ЧислоПрописью(123456.78, ,",,,,,,,,2" );

//x = "Сто двадцать три тысячи четыреста пятьдесят шесть 78 "



x = ЧислоПрописью(123456.78,"Л=ru_RU; ДП=Ложь","рубль, рубля, рублей, м, копейка, копейки, копеек, ж" );

//x = "Сто двадцать три тысячи четыреста пятьдесят шесть рублей 78 копеек"



x = ЧислоПрописью(123456.78, "Л = ru_RU; ДП = Истина", "доллар,доллара,долларов,м,цент,цента,центов,м,2" );

//x = "Сто двадцать три тысячи четыреста пятьдесят шесть долларов семьдесят восемь центов"



ЧислоПрописью(1457.25,"L=en_US","dollar, dollars, cent, cents, 2"); 

// One thousand four hundreds fifty seven dollars 25 cents.    

 

//Функция формирует удобное для чтения представление значений.



// Примеры форматирования чисел

ЗначФормат = Формат(123456.789, "ЧЦ=10; ЧДЦ=2");      // ЗначФормат = "123 456,79"

ЗначФормат = Формат(123456.789, "ЧГ=0; ЧДЦ=2");      // ЗначФормат = "123456,79"

ЗначФормат = Формат(123456.789, "ЧРД='-'");           // ЗначФормат = "123 456-789"

ЗначФормат = Формат(-123456.789, "ЧО=0");             // ЗначФормат = "(123 456,789)";

ЗначФормат = Формат(13, "ЧЦ=5; ЧВН=; ЧГ=0");      // ЗначФормат = "00013";



//В 8 версии для вывовода чисел прописью используется ЧислоПрописью

ЧислоПрописью(Сумма, "L=ru_RU", Валюта.ПараметрыПрописиНаРусском)  

ЧислоПрописью(1457.25,"L=en_US","dollar, dollars, cent, cents, 2"); // One thousand four hundreds fifty seven dollars 25 cents. 

ЧислоПрописью(Сумма,"Рубль,рубля,рублей,м,копейка,копейки,копеек,ж,2");



//Пример представления Числа в виде Даты

ЗначФормат = Формат(25021949, "ЧЦ=8; ЧРГ=.; ЧВН=; ЧГ=4,2,0");      // ЗначФормат = "25.02.1949"



// Примеры форматирования дат

ЗначФормат = Формат('20020820153309', "ДФ=""дд ММММ гггг 'г.' ЧЧ:мм:сс""");     // ЗначФормат = "20 августа 2002 г. 15:33:09"

ЗначФормат = Формат('20020820153309', "ДФ=""дд/ММ-гггг""");                     // ЗначФормат = "20/08-2002"

ЗначФормат = Формат('20020820153309', "ДФ='q ""кв."" yyyy'"); 		            // ЗначФормат = "3 кв. 2002";

ЗначФормат = Формат('20020820153309', "ДФ='""Итого"" q ""квартал""'") ;	   // ЗначФормат = "Итого 3 квартал";

ЗначФормат = Формат('20020820153309', "ДФ='ММММ гггг'");  		            // ЗначФормат = "Август 2002 г.";

ЗначФормат = Формат('20020820153309', "ДЛФ=ДД");                                // ЗначФормат = "20 августа 2002 г.";

ЗначФормат = Формат('20020820153309', "ДЛФ=Д");                                 // ЗначФормат = "20.08.2002";

ЗначФормат = Формат('20020820153309', "ДЛФ=В");                                 // ЗначФормат = "15:33:09";



ЗначФормат = Формат('20020820153309', "ДФ=HHmmssyyyyMMdd");                                 // ЗначФормат = "15330920020820";

ЗначФормат = Формат('20020820153309', "ДФ=HH:mm:ss yyyy MM dd");                                 // Время 24 часа  - ЗначФормат = "15:33:09 2002 08 20";

ЗначФормат = Формат('20020820153309', "ДФ=hh:mm:ss yyyy MM dd");                                 // Время 12 часов - ЗначФормат = "03:33:09 2002 08 20";



Формат(Дата(2009, 1, 1), "ДЛФ=DD") + ", " + ОпределитьДеньНедели(ДеньНедели(Дата(2009, 1, 1)));   // 1 января 2009 г., Четверг (Смотрите в "Работаем с Датами" Функция Определить день недели)

Формат(Дата(2009, 1, 1), "ДФ=ММММ") + ", " + Формат(Дата(2009, 1, 1), "ДФ=yyyy") + " г.";         // Январь, 2009 г.

Формат(НачалоНедели(Дата(2009, 1, 1)), "ДФ='dd MMMM yyyy'") + " г. - " + Формат(КонецНедели(Дата(2009, 1, 1)), "ДФ='dd MMMM yyyy'") + " г."; // 29 декабря 2008 г. - 04 января 2009 г.



// ДЕКАДУ нельзя вывести через формат, но можно так:

Строка(Цел(День(Дата('20020820153309')) / 10) + 1)+" декада"  = 2 декада



// Примеры форматирования логических выражений

ЗначФормат = Формат(Истина, "БЛ=Отсутствует; БИ=Доступен");                     // ЗначФормат = "Доступен";

ЗначФормат = Формат(Ложь, "БЛ=Нет; БИ=Да");                     				// ЗначФормат = "Нет";

   

 

// Символы, определяющие тип форматируемых данных: 

// Ч — число (Англоязычный синоним: N)  

ЗначФормат = Формат(123.15, "Ч(0)10.2") // 0000123.15

Долг = Строка(Формат(Долг(), "Ч12.2")) + " " + Валюта.Сокр_назв;



// Возможен вывод денежных величин и просто целых чисел прописью. В этом случае форматная строка должна иметь вид "ЧПДС".

// Наличие буквы "П" (в английском варианте для аналогичной цели используется буква "S") определяет сам факт вывода числа прописью. 

// Символ "Д" (в английском варианте — "M") обозначает вывод денежной величины и является необязательным. 

// Символ "С" (в английском варианте — "H") также необязателен и означает вывод с копейками.

ИтогоСуммаПрописью  = Формат(Итог("Сумма"), "ЧПДС");

КоличествоНаименованийПрописью = Формат(КоличествоСтрок(), "ЧП");



// С — строка (Англоязычный синоним: S) 

// "Сn", где n — положительное целое число определяющее ширину поля, в котором будет размещаться строка. 

// В случае, если ширина поля превосходит длину строки сформатированная строка будет дополнена справа пробелами, если же ширина поля меньше длины строки — строка будет усечена справа.





// Д — дата (Англоязычный синоним: D)

ДатаДокумента = Формат(Док.ДатаДок,"Д ДД.ММ.ГГ");  //12.03.08

ДатаДокумента = Формат("01.01.1999", "Д(0)ДДММММГГГГ"); // 01 Января 1999 г.



//Для форматирования даты используется форматная строка вида "Д<ПодстрокаФормата>", где <Подстрока Формата> представляет собой строку, определяющую вид сформатированного представления даты:

//DDMMYY (ДДММГГ)  дата в виде ДД.ММ.ГГ 

//DDMMYYYY (ДДММГГГГ)  дата в виде ДД.ММ.ГГГГ 

//DDMMMMYYYY (ДДММММГГГГ)  дата в виде ДД месяц прописью ГГГГ 

//(0)DDMMMMYYYY ((0)ДДММММГГГГ) этот формат представляет собой вариант предыдущего формата с тем отличием, что число месяца всегда выводится двумя цифрами, т. е. для чисел меньших 10 спереди будет добавлен 0. Например: Формат('01.01.1999', ' 'Д(0)ДДММММГГГГ' ') = 01 Января 1999 г. 

//MMMMYYYY (ММММГГГГ) дата в виде месяц прописью ГГГГ 

//MMMMYY (ММММГГ) дата в виде месяц прописью ГГ 

//ММММ (ММММ) дата в виде месяц прописью 

//QQQQYYYY (ККККГГГГ) дата в виде N квартала ГГГГ 

//QQQQYY (ККККГГ) дата в виде N квартала ГГ 

//QQQQ дата в виде N квартала 

//YYYYMMDD (ГГГГММДД) дата в виде ГГГГММДД, то есть дата '10.11.1998' будет представлена как строка "19981110" 

//WWWW (HHHH) выводит наименование дня недели, соответствующее указанной дате. Наименования дней недели берутся из файла прописи.

 

// сравнение значений перечислений на больше/меньше

// применяется для перечислений, для которых последовательность 

// значений имеет определяющее значение

//

// Параметры:

//  Значение1, Значение2 - сравниваемые значения перечислений

//

// Возвращаемое значение: число

//   1 - если Значение1 > Значение2

//  -1 - если Значение1 < Значение2

//   0 - если Значение1 = Значение2

//

Функция СравнениеПеречислений(Значение1, Значение2) Экспорт

    ИмяПеречисления = Метаданные.НайтиПоТипу(ТипЗнч(Значение1)).Имя;

    Менеджер = Перечисления[ИмяПеречисления];

    Если Менеджер.Индекс(Значение1) > Менеджер.Индекс(Значение2) Тогда

        Возврат 1;

    ИначеЕсли Менеджер.Индекс(Значение1) < Менеджер.Индекс(Значение2) Тогда

        Возврат -1;

    Иначе

        Возврат 0;

    КонецЕсли;

    

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