Простое логирование действий системы

21.03.21

–2

Маленькое расширение для быстрой организации записи и просмота логов действий системы

Скачать файлы

	Наименование	Файл	Версия	Размер
	Простое логирование действий системы: .cfe 15,66Kb 5	.cfe		15,66Kb	5	Скачать

Это маленькое расширение - фрагмент гораздо более серьёзной системы, но его достаточно, чтобы быстро и удобно организовать запись и последующий просмотр логов, протоколов, описаний действий системы. Ничего нового - размещённые в нужных местах кода вызовы функции накопления лога, как строки с разметкой html, и затем её просмотр по завершении операции. Может применяться в фоновых заданиях и потом возвращаться на вызывающую сторону, может использоваться на сервере, на клиенте, во внешнем соединении.

Механизмы не используют объекты, связанные с html как объектом 1С, всё очень примитивно, конкатенация и строковые теги. Нет проверки правильности записываемых в строку данных (валидации html), это на совести разработчика. Зато и разобраться, и доработать под свои нужны совсем просто. Можно использовать как пример, образец, шаблон и основу своих разработок.

Совершенно никакие модули БСП для работы этого расширения не нужны.

На скриншоте показаны результаты одного из вариантов оформления - с таблицей параметров под спойлером и ошибкой, выделенной красным. Читабельнее, чем сообщения внизу окна)

Есть много солидных серьёзных систем, а это скорее мини-заготовка. Если кто качать не хочет, то вот исходники основной механики, она совсем простая:

Общий модуль "Логирование" (сервер, внешнее соединение, вызов сервера)


#Область ВедениеЛога

// Инициализирует лог - строку, в которую при логировании добавляются новые сообщения с разметкой.
// Всегда вписывает имя текущего пользователя ИБ, может вписывать дату и ИБ инициализации.
// Возвращает строку с начальной разметкой HTML.
//
// Параметры:
//    БезШапки - булево; необязательный (по умолчанию Ложь); если Истина - то текущая дата сеанса и строка соединения ИБ не будут вписаны в лог.
//
Функция ИнициироватьЛог(БезШапки=Ложь) Экспорт
	рЛог="<html><head></head><body>#ТекстЛога#</body></html>";
	ВнестиВЛог(рЛог,"Текущий пользователь: "+ИмяПользователя());
	Если не БезШапки Тогда
		ВнестиВЛог(рЛог,"Дата инициации: "+Строка(ТекущаяДатаСеанса()));
		ВнестиВЛог(рЛог,"База инициации: "+СтрокаСоединенияИнформационнойБазы());
	КонецЕсли;
	Возврат рЛог;
КонецФункции

// Добавляет в конец тела лог-строки HTML указанные строковые сведения с нужной разметкой.
// Основная рабочая процедура логирования, вызываемая при фиксации записей.
//
// Параметры:
//    Лог - строка; собственно дописываемый лог действий;
//    Сведения - строка; дописываемые произвольные сведения (могут содержать свои HTML-теги, не противоречащие общим принципам разметки);
//    КакПараграф - булево; необязательный (по умолчанию Ложь); если Истина - то вставляемые сведения будут обрамлены тегами параграфа <P>;
//    ПодСпойлер - булево; необязательный (по умолчанию Ложь); если Истина - то вставляемые сведения будут обрамлены тегом спойлера <details>;
//    ЭтоОшибка - булево; необязательный (по умолчанию Ложь); если Истина - то вставляемые сведения будут даны красным цветом текста.
//
Процедура ВнестиВЛог(Лог, Сведения, КакПараграф=Ложь, ПодСпойлер=Ложь, ЭтоОшибка=Ложь) Экспорт
Попытка
	Если ТипЗнч(Лог)<>Тип("Строка") Тогда Возврат КонецЕсли;
	Если КакПараграф Тогда
		рВставка="<P></P>"+Сведения+"<P></P>";
	Иначе
		рВставка=Сведения+"<br>";
	КонецЕсли;
	Если ЭтоОшибка Тогда
		рВставка="<font color=""#ff0000"">"+рВставка+"</font>";
	КонецЕсли;	
	Если ПодСпойлер Тогда
		рВставка="<details>"+рВставка+"</details>";
	КонецЕсли;	
	рВставка=СтрЗаменить(рВставка,Символы.ПС,"<br>");
	Лог=СтрЗаменить(Лог,"#ТекстЛога#",рВставка+"#ТекстЛога#");
Исключение
КонецПопытки;
КонецПроцедуры

// Добавляет в конец тела лог-строки HTML тег разделителя <hr>
//
// Параметры:
//    Лог - строка; собственно дописываемый лог действий.
//
Процедура ВывестиРазделитель(Лог) Экспорт
	ВнестиВЛог(Лог, Символы.ПС+"<hr>");
КонецПроцедуры

// Фактически, "перегрузка" типового сообщения пользователю, с возможностью при необходимости доработать.
// В текущей версии может включать, например, вызов ВнестиВЛог, где лог ведётся в некоей переменной кэша.
// Также может применяться в фоновых заданиях.
//
// Параметры:
//    Сведения - произвольные выводимые пользователю сведения;
//    СтатусСообщения - неиспользуемый параметр для совместимости с Сообщить при их глобальной замене на Сообщать.
//
Процедура Сообщать(Сведения, СтатусСообщения=Неопределено) Экспорт
	сооб=Новый СообщениеПользователю;
	сооб.Текст=Сведения;
	сооб.Сообщить();
КонецПроцедуры

#КонецОбласти


#Область РаботаСHTML

Функция ПолучитьHTMLизТаблицыЗначений(рТаблица, Знач рПараметры="", докВладелец=Неопределено) Экспорт

    // распознаем параметры

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

    //рКодировка=?(рПараметры.Свойство("Кодировка"),рПараметры.Кодировка,"UTF-8");

    рШиринаРамки=?(рПараметры.Свойство("ШиринаРамки"),рПараметры.ШиринаРамки,0); // в пикселях

    Если рШиринаРамки<>0 Тогда // имеет смысл

        рЦветРамки=?(рПараметры.Свойство("ЦветРамки"),рПараметры.ЦветРамки,"");

        рЦветРамкиЯркий=?(рПараметры.Свойство("ЦветРамкиЯркий"),рПараметры.ЦветРамкиЯркий,"");

        рЦветРамкиТёмный=?(рПараметры.Свойство("ЦветРамкиТемный"),рПараметры.ЦветРамкиТемный,"");

        рТипРамки=?(рПараметры.Свойство("ТипРамки"),рПараметры.ТипРамки,"hsides");

        рЛинии=?(рПараметры.Свойство("Линии"),рПараметры.Линии,"all");

    КонецЕсли;

    рМеждуЯчейками=?(рПараметры.Свойство("МеждуЯчейками"),рПараметры.МеждуЯчейками,0);

    рОтступДоЯчейки=?(рПараметры.Свойство("ОтступДоЯчейки"),рПараметры.ОтступДоЯчейки,1);

    рШирина=?(рПараметры.Свойство("Ширина"),рПараметры.Ширина,100); // макс.ширина, пиксели или проценты

    рВысота=?(рПараметры.Свойство("Высота"),рПараметры.Высота,1);

    рЦветФона=?(рПараметры.Свойство("ЦветФона"),рПараметры.ЦветФона,"");
	
	рЦветФонаЗаголовка=?(рПараметры.Свойство("ЦветФонаЗаголовка"),рПараметры.ЦветФонаЗаголовка,"");

    рВыравнивание=?(рПараметры.Свойство("Выравнивание"),рПараметры.Выравнивание,"center");

    рВыравниваниеГор=?(рПараметры.Свойство("ВыравниваниеГоризонтальное"),рПараметры.ВыравниваниеГоризонтальное,"middle");

    рВыравниваниеВерт=?(рПараметры.Свойство("ВыравниваниеВертикальное"),рПараметры.ВыравниваниеВертикальное,"center");



    // определимся с документом

    Если докВладелец=Неопределено Тогда

        док=Новый ДокументHTML("");

        телдок=док.СоздатьЭлемент("BODY");

        док.Тело=телдок;

    Иначе

        док=докВладелец;

        телдок=док.Тело;

    КонецЕсли;



    // собственно делаем таблицу

    таб=док.СоздатьЭлемент("TABLE");



    // ставим параметры таблицы в целом, имеющие свойства в объектной модели 1С

    таб.Выравнивание=рВыравнивание; // align

    таб.Рамка=СокрЛП(рШиринаРамки); // border

    таб.ОтступДоЯчейки=СокрЛП(рОтступДоЯчейки); // cellPadding

    таб.РасстояниеМеждуЯчейками=СокрЛП(рМеждуЯчейками); // cellSpacing

    таб.ЦветФона=СокрЛП(рЦветФона); // bgColor

    таб.Ширина=СокрЛП(рШирина); // width

    Если рШиринаРамки<>0 Тогда // имеет смысл

        таб.Линии=СокрЛП(рЛинии); // rules (допустимо: all, groups, cols, none, rows)

    КонецЕсли;



    // ставим параметры таблицы в целом, НЕ имеющие свойств в объектной модели 1С

    // ставим их в атрибуты именно к таб, а не ко всему Телу документа, и не к Телу таблицы

    атр=док.СоздатьАтрибут("height");

    атр.Значение=СокрЛП(рВысота);

    таб.Атрибуты.УстановитьИменованныйЭлемент(атр);

    //

    атр=док.СоздатьАтрибут("cols"); // общее объявление

    атр.Значение=СокрЛП(рТаблица.Колонки.Количество());

    таб.Атрибуты.УстановитьИменованныйЭлемент(атр);

    //

    //атр=док.СоздатьАтрибут("nowrap"); // запрет переносов текста (кому понадобится, раскомментите)

    //атр.Значение=Истина;

    //таб.Атрибуты.УстановитьИменованныйЭлемент(атр);

    // аналогичным образом можно устанавливать прочие свойства таблицы в целом, её строк и ячеек



    Если рШиринаРамки<>0 Тогда // имеет смысл

        атр=док.СоздатьАтрибут("borderColor");

        атр.Значение=СокрЛП(рЦветРамки);

        таб.Атрибуты.УстановитьИменованныйЭлемент(атр);

        атр=док.СоздатьАтрибут("borderColorLight");

        атр.Значение=СокрЛП(рЦветРамкиЯркий);

        таб.Атрибуты.УстановитьИменованныйЭлемент(атр);

        атр=док.СоздатьАтрибут("borderColorDark");

        атр.Значение=СокрЛП(рЦветРамкиТёмный);

        таб.Атрибуты.УстановитьИменованныйЭлемент(атр);

        // доступные типы рамок: void, above, below, lhs, rhs, hsides, vsides, box

        атр=док.СоздатьАтрибут("frame");

        атр.Значение=СокрЛП(рТипРамки);

        таб.Атрибуты.УстановитьИменованныйЭлемент(атр);

    КонецЕсли;



    // добавляем таблицу и её тело

    телдок.ДобавитьДочерний(таб);

    телтаб=док.СоздатьЭлемент("TBODY");

    таб.ДобавитьДочерний(телтаб);


	// делаем заголовок
    стро=таб.ВставитьСтроку(1);
    стро.ВертикальноеПоложение=рВыравниваниеВерт;
    стро.Выравнивание=рВыравниваниеГор;
    стро.ЦветФона=рЦветФонаЗаголовка;
	//
	телтаб.ДобавитьДочерний(стро);
    Для каждого кол Из рТаблица.Колонки Цикл
        яч=док.СоздатьЭлемент("TD");
        яч.ТекстовоеСодержимое=СокрЛП(?(ПустаяСтрока(кол.Заголовок),кол.Имя,кол.Заголовок));
        стро.ДобавитьДочерний(яч);
    КонецЦикла;
	
	
    // заполняем таблицу

    Для каждого рСтрока Из рТаблица Цикл

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

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

        #КонецЕсли

        стро=таб.ВставитьСтроку(1); // вопреки документации, Индекс это обязательный параметр

        // хотя, строку можно добавлять и так: стро=док.СоздатьЭлемент("TR"), но ИндексСтроки поменять будет нельзя!

        стро.ВертикальноеПоложение=рВыравниваниеВерт;

        стро.Выравнивание=рВыравниваниеГор;

        стро.ЦветФона=рЦветФона;

        телтаб.ДобавитьДочерний(стро);

        // коллекция Ячейки - для чтения, а нам надо добавлять

        Для каждого кол Из рТаблица.Колонки Цикл

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

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

            #КонецЕсли

            //яч=стро.ВставитьЯчейку(1); // а вот это почему-то вообще не заработало ни при каких...

            яч=док.СоздатьЭлемент("TD");    // поэтому делаем так

            рЗначение=рСтрока[кол.Имя];

            Если ТипЗнч(рЗначение)=Тип("ТаблицаЗначений") Тогда

                яч.ДобавитьДочерний(ПолучитьHTMLизТаблицыЗначений(рЗначение,рПараметры,док));

            ИначеЕсли ТипЗнч(рЗначение)=Тип("Массив") Тогда

                Для каждого знч Из рЗначение Цикл

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

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

                    #КонецЕсли

                    Если ТипЗнч(знч)=Тип("ТаблицаЗначений") Тогда

                        яч.ДобавитьДочерний(ПолучитьHTMLизТаблицыЗначений(знч,рПараметры,док));

                    Иначе // вложенные массивы поддерживать не будем, но при желании можно сделать

                        тек=док.СоздатьЭлемент("P"); // можно, например, так

                        тек.ТекстовоеСодержимое=СокрЛП(Строка(знч));

                        яч.ДобавитьДочерний(тек);

                    КонецЕсли;

                КонецЦикла;

            Иначе // записываем строковое представление

                яч.ТекстовоеСодержимое=СокрЛП(Строка(рЗначение));

            КонецЕсли;

            стро.ДобавитьДочерний(яч);

        КонецЦикла;

    КонецЦикла;



    Если докВладелец<>Неопределено Тогда

        Возврат таб; // нужна таблица как ЭлементHTML

    Иначе

        // нужен полноценный текст результата, записываем получившееся

        зап1=Новый ЗаписьHTML;

        зап1.УстановитьСтроку(); // вопреки документации, параметр Кодировка не допускается

        зап2=Новый ЗаписьDOM; // обойдёмся без явного указания конфигурации записи DOM

        зап2.Записать(док,зап1);

        Возврат зап1.Закрыть();

    КонецЕсли;

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

// Строит и возвращает HTML-строку, содержащую оформленную таблицу по данным переданной таблицы значений.
// При ошибке возвращает пустой тег.
//
// Параметры:
//    тЗначений - таблица значений с произвольным форматом, чьи данные надо преобразовать в HTML-строку;
//    ПодСпойлер - булево; необязательный (по умолчанию Ложь); если Истина - то результатная строка будет обрамлена тегом спойлера <details>.
//
Функция ПостроитьТаблицуHTMLизТаблицыЗначений(тЗначений, ПодСпойлер=Ложь) Экспорт
Попытка
	Если ТипЗнч(тЗначений)<>Тип("ТаблицаЗначений") Тогда Возврат "<>" КонецЕсли;
	//
    рПараметры=Новый Структура;
    рПараметры.Вставить("ШиринаРамки",2);
    рПараметры.Вставить("ТипРамки","box");
    рПараметры.Вставить("ЦветРамки","#99cc00");
    рПараметры.Вставить("ЦветРамкиЯркий","#00ff00");
    рПараметры.Вставить("ЦветРамкиТемный","#339966");
    рПараметры.Вставить("МеждуЯчейками",0);
    рПараметры.Вставить("ОтступДоЯчейки",1);
    рПараметры.Вставить("Ширина","70%");
    рПараметры.Вставить("Высота",1);
    рПараметры.Вставить("ЦветФона","#fffacd");
	рПараметры.Вставить("ЦветФонаЗаголовка","#ccc085");
    рПараметры.Вставить("Выравнивание","center"); // всей таблицы
    рПараметры.Вставить("ВыравниваниеГоризонтальное","middle"); // текста в ячейках
    рПараметры.Вставить("ВыравниваниеВертикальное","center"); // текста в ячейках
	//
	ХТМЛ=ПолучитьHTMLизТаблицыЗначений(тЗначений,рПараметры);
	рез=ПолучитьСодержимоеТела(ХТМЛ); // т.к. базовая функция обрамляет
	//
	Если ПодСпойлер Тогда
		рез="<details>"+рез+"</details>";
	КонецЕсли;	
	//
	Возврат рез;
Исключение
	Возврат "<>";
КонецПопытки;
КонецФункции

// Строит и возвращает HTML-строку, содержащую оформленную таблицу по данным переданной структуры или соответствия.
// При ошибке возвращает пустой тег.
//
// Параметры:
//    КоллекцияДанных - структура или соответствие с произвольным содержимым, чьи данные надо преобразовать в HTML-строку;
//    ПодСпойлер - булево; необязательный (по умолчанию Ложь); если Истина - то результатная строка будет обрамлена тегом спойлера <details>.
//
Функция ПостроитьТаблицуHTMLизКоллекции(КоллекцияДанных, ПодСпойлер=Ложь) Экспорт
Попытка
	Если ТипЗнч(КоллекцияДанных)<>Тип("Структура") и ТипЗнч(КоллекцияДанных)<>Тип("Соответствие") Тогда Возврат "<>" КонецЕсли;
	//
	рТаблица=Новый ТаблицаЗначений;
	рТаблица.Колонки.Добавить("Ключ",Новый ОписаниеТипов("Строка",,Новый КвалификаторыСтроки(250)));
	рТаблица.Колонки.Добавить("Значение");
	рТаблица.Колонки.Добавить("ТипЗначенияКлюча",,"Тип значения");
	//
	Для каждого киз Из КоллекцияДанных Цикл
		строТаблицы=рТаблица.Добавить();
		ЗаполнитьЗначенияСвойств(строТаблицы,киз);
		строТаблицы.ТипЗначенияКлюча=Строка(ТипЗнч(киз.Значение));
	КонецЦикла;
	рТаблица.Сортировать("Ключ ВОЗР");
	//
	рез=ПостроитьТаблицуHTMLизТаблицыЗначений(рТаблица);
	//
	Если ПодСпойлер Тогда
		рез="<details>"+рез+"</details>";
	КонецЕсли;	
	//
	Возврат рез;
Исключение
	Возврат "<>";
КонецПопытки;
КонецФункции

// Возвращает фрагмент HTML, откуда убраны все теги и оставлено только текстовое содержимое.
// При ошибке возвращает пустую строку.
//
// Параметры:
//    ХТМЛ - обрабатываемая исходная строка с тегами;
//    ЗаменятьПереносы - булево; необязательный (по умолчанию Истина), если Истина - параграфы и разрывы строк будут заменены на &BR
//
Функция ПолучитьТекстБезТегов(Знач ХТМЛ, ЗаменятьПереносы=Истина) Экспорт
Попытка
	Если ЗаменятьПереносы Тогда
		ХТМЛ=СтрЗаменить(СтрЗаменить(ХТМЛ,"<br>","&BR"),"<P>","&BR");
	КонецЕсли;
	//
	чтен=Новый ЧтениеHTML;
	чтен.УстановитьСтроку(ХТМЛ);
	постр=Новый ПостроительDOM;
	докДОМ=постр.Прочитать(чтен);
	стро=докДОМ.Тело.ТекстовоеСодержимое;
	стро=СтрЗаменить(стро,"&BR",Символы.ПС);
	//
	Возврат стро;
Исключение
	Возврат "";
КонецПопытки;
КонецФункции

// Возвращает тело HTML, содержащееся между тегами BODY, включая все его остальные теги.
// При ошибке возвращает пустую строку.
//
// Параметры:
//    ХТМЛ - обрабатываемая исходная строка с тегами. Если тегов тела нет, возвращается исходная строка.
//
Функция ПолучитьСодержимоеТела(Знач ХТМЛ) Экспорт
Попытка
	Если ПустаяСтрока(ХТМЛ) Тогда Возврат "" КонецЕсли;
	//
	стро=СтрЗаменить(СтрЗаменить(ХТМЛ,"<BODY>","<body>"),"</BODY>","</body>");
	//
	пози=СтрНайти(стро,"<body>");
	Если пози<>0 Тогда стро=Сред(стро,пози+6) КонецЕсли;
	пози=СтрНайти(стро,"</body>",НаправлениеПоиска.СКонца);
	Если пози<>0 Тогда стро=Лев(стро,пози-1) КонецЕсли;
	//
	Возврат стро;
Исключение
	Возврат "";
КонецПопытки;
КонецФункции

#КонецОбласти

Общий модуль "Логирование клиент" (клиент)


// Инициирует лог аналогично серверной (только без шапки)
// Возвращает строку с начальной разметкой HTML.
//
Функция ИнициироватьЛог() Экспорт
	рЛог="<html><head></head><body>#ТекстЛога#</body></html>";
	Возврат рЛог;
КонецФункции

// Открывает форму просмотра лога как HTML-документа; выполняет финальную обработку переданной строки.
//
// Параметры:
//    Лог - строка; собственно выводимый лог, должен иметь правильную HTML-разметку;
//    ВходПараметры - структура; необязательный (по умолчанию пустая структура), допустимы ключи:
//        Заголовок - строка; если указан, то устанавливается как заголовок формы просмотра лога;
//        Владелец - форма клиентского приложения; если указана, то ставится как владелец формы просмотра.
//
Процедура ОткрытьПросмотрЛога(Знач Лог, ВходПараметры=Неопределено) Экспорт
	Если ТипЗнч(Лог)<>Тип("Строка") Тогда
		Логирование.Сообщать("Лог имеет неверный тип ("+Строка(ТипЗнч(Лог))+"), его просмотр не имеет смысла!"); Возврат;
	КонецЕсли;	
	Если ПустаяСтрока(Лог) Тогда
		Логирование.Сообщать("Лог пуст, его просмотр не имеет смысла!"); Возврат;
	КонецЕсли;
	//
	Лог=СтрЗаменить(Лог,"#ТекстЛога#","");
	
	парф=Новый Структура("ДокументХТМЛ",Лог);	
	Если ТипЗнч(ВходПараметры)<>Тип("Структура") Тогда ВходПараметры=Новый Структура КонецЕсли;
	Если ВходПараметры.Свойство("Заголовок") Тогда парф.Вставить("Заголовок",ВходПараметры.Заголовок) КонецЕсли;
	Если ВходПараметры.Свойство("Владелец") и ТипЗнч(ВходПараметры.Владелец)=Тип("ФормаКлиентскогоПриложения") Тогда
		рВладелец=ВходПараметры.Владелец;
	Иначе
		рВладелец=Неопределено;
	КонецЕсли;	
	//
	ОткрытьФорму("ОбщаяФорма.ПросмотрДокументаHTML",парф,рВладелец,Истина);
КонецПроцедуры

// Собственно выводит сообщение пользователю, но перед этим позволяет его обработать произвольным образом,
// используется по всей конфигурации вместо "Сообщить".
//
Процедура Сообщать(Сведения) Экспорт
	сооб=Новый СообщениеПользователю;
	сооб.Текст=Сведения;
	сооб.Сообщить();
КонецПроцедуры

И ещё там есть простенькая общая форма просмотра html, где размещено одно строковое поле с видом "Поле html-документа" и процедурой:

Единственное, что нужно в модуле формы


&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	ПолеХТМЛ=Параметры.ДокументХТМЛ;
	//
	Если Параметры.Свойство("Заголовок") Тогда
		ЭтотОбъект.Заголовок=Параметры.Заголовок;
	КонецЕсли;
	
КонецПроцедуры

Назначение расширения - "Дополнение", есть основная роль и не-интерфейсная подсистема для всех объектов расширения.

Тестировалось под 8.3.18.1289 и 8.3.18.1363, но заработает на любом релизе выше 8.3.14 (где появился WebKit).

Кому пригодится - будет хорошо.

Логирование протоколирование протокол действий лог ведение логов html

–2

См. также

"2iS:Интеграция" - Центр управления обменом данными. Сервисная шина предприятия (ESB).

Инструменты администратора БД Обмен между базами 1C Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Программный продукт предназначен для построения единой централизованной системы управления инфраструктурой и интеграционными процессами компании.

360000 руб.

10.08.2012 115835 35 121

188

Ускоренное проведение документов (x4), устранение ошибок 60/62 счетов и зачет авансов (Бухгалтерия 3.0)

Закрытие периода Инструменты администратора БД Корректировка данных Бухгалтерский учет 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Расширение «Оперативное проведение» в 4 раза уменьшает время проведения документов и закрытия месяца. Является комплексным решением проблем 62 и 60 счетов. Оптимизирует проведение при включенной функциональной опции «Раздельный учет НДС». Используется в более 10 организациях уже 2 года. Совместимо с конфигурацией Бухгалтерия 3.0 (+КОРП).

14400 руб.

29.04.2020 24187 75 144

Контроль действий пользователей II

Инструменты администратора БД Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Контролируйте, кто и что менял при работе в базах 1С: создание, правки, удаление, поиск потерявшихся данных, вычисление злоумышленников. Подсистема содержит 10 точных отчетов, гибкая настройка контроля. Не тормозит работу, не грузит базу 1С. Позволяет контролировать работу пользователей удаленно со смартфона.

14280 руб.

07.07.2023 3431 1 3

SALE! 25%

PowerTools

Инструментарий разработчика Инструменты администратора БД Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Россия Платные (руб)

Универсальный инструмент программиста для администрирования конфигураций. Сборник наиболее часто используемых обработок под единым интерфейсом.

~~3600~~ 2700 руб.

14.01.2013 170005 1049 0

789

Конфигурация Session Monitor

Мониторинг Инструменты администратора БД Платформа 1С v8.3 Россия Платные (руб)

Конфигурация Session Monitor предназначена для мониторинга сервера 1С с целью отслеживания чрезмерной нагрузки от конкретных сеансов и скорости реакции рабочих процессов.

1500 руб.

01.12.2020 12520 26 0

Сжатие (уменьшение) картинок в базе 1С и приведение их к одинаковой ширине

Инструменты администратора БД Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Платные (руб)

Многие сталкиваются с проблемой когда изображения, находящиеся в базе разные по объему и размерам. Менеджеры могут добавить файлы в очень высоком разрешении, объемом свыше 20 Мегабайт. База данных становится слишком большой, выгрузка на сайт идёт медленно и требуется много место на хостинге. Как сжать картинки и уменьшить размер базы 1С? Это можно сделать с помощью данной обработки. Существует возможность выбрать различные варианты для того чтобы уменьшить картинки: в разы, в процентах от первоначального объема, а также сделать картинки одинаковой ширины. В результате размер базы 1С значительно сократится (в зависимости от количества и размера картинок), а изображения станут небольшого объема, равными по ширине, почти без потери качества. Работает на управляемых формах для УТ 11, КА, ERP.

2000 руб.

21.07.2022 8042 5 3

Завершение сеанса неактивных пользователей на сервере

Инструменты администратора БД Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Обработка позволяет отключить сеанс пользователя 1С при его простое (бездействии).

1000 руб.

30.03.2018 17808 5 5

Инструменты для чистки кэша 1С

Инструменты администратора БД Абонемент ($m)

Публикация содержит набор bat файлов, используемых мной для умной чистки кэша 1С. Основой файлов являются PowerShell скрипты, которые используются для автоматизации чистки кэша, например, удаление кэш файлов старше десяти дней.

1 стартмани

05.06.2023 6560 39 Viki_push 21

139

Комментарии

В избранное Подписаться на ответы

Свернуть все

1. rabid_otter 134 21.03.21 18:10 Сейчас в теме

1) Если логов будет много, конкатенация может занять очень продолжительное время, используйте СтрСоединить.
У меня как-то провисела операция 8 часов из-за конкатенации огромных строк.
2) Зачем такие огромные попытки?
3) Названия переменных ужасны (стро, рез, пози).
4) Куда лог сохраняется? Если все зависнет, где его искать?
5) Зачем на сервере HTML?

Я делал подсистему логирования, делал так:
1. Никаких выводов в html - это лог, а не гирлянда. Сервис должен выполнять то, для чего он предназначен.
2. Каждое сообщение в лог - по сути структура (за неимением классов в 1С, использовал ее), структура получается из функции СообщениеЛога, куда передается контекст логирования, вместе с сообщенькой.
Контекст логирования - структура с настройками логов.
3. Никаких конкатенаций, только СтрШаблон и СтрСоединить.
4. Сделал 2 варианта логирования - в сервис и в текстовый файл. Количество сообщений, которые flush'атся из буфера настраивается в контекст логирования. То есть программист сам выбирает - можно ли потерять пачку сообщений или же надо сохранять каждое.

Ответить

2. Yashazz 4550 21.03.21 21:34 Сейчас в теме

1. Согласен, но эта система была начата ещё на 8.2, а в идеале тогда уж бинаркой лепить быстрее всего.
2. Затем)
3. Не обсуждается
4. Никуда - как сами сделаете, так и будет; и если зависнет - сами думайте, куда надёжнее помещать
5. Не понял, поясните.

1. Это очень даже нормальный лог. Гирлянды, мил-человек, в новый год на ёлку вешают, а лог - это описание действий системы, в читабельном для пользователя виде. Читабельнее хтмл нам 1С ничего не предлагает, даже форматированный документ хуже.
2. Вы не поняли сути публикации, я не об этом. Каждое сообщение в лог должно быть, повторюсь, читабельным для пользователя. Это не технология ведения лога, это механизм накопления читабельных сообщений. Пользователю трижды чхать на внутренность, структура там или нет, ему удобство чтения важнее. Поэтому ежели кому надо, замутит и структуры, и всё остальное.
3. Вот только СтрШаблон с его неявным вызовом сервера нам и не хватало.
4. Рад за вас. Хоть 10 вариантов сделайте, я не об этом. Я за свою практику такие системы логирования делал, что их описание заняло бы неделю даже очень сводно, но, повторюсь, публикация вообще не об этом. Это основа читабельных логов, а не готовая система и тем более не описание принципа.

Собственно, по делу только замечание насчёт конкатенации. Остальное просто не в тему.

3. rabid_otter 134 22.03.21 13:02 Сейчас в теме

(2)

1. Понятно.
2. Cлив засчитан.
3. А как же best practices и все такое?
4. Хм, я может быть в коде не увидел, чтобы он писался куда-то, но по-моему, лог у вас в строке висит в памяти.
5. Я к тому, что HTML - лишняя инфа, лог - это же про описание процесса, а не про украшательства.

1. Не соглашусь, но дело ваше.
2. У нас читателями логов были чаще всего программисты из других ЯП, им HTML не нужен.
3. Хм, про неявный вызов сервера у СтрШаблон не знал. М-да, неужели 1С не додумалась до клиентской реализации строковой функции?! У нас логирование применялось там, где не отладить просто так - в регламентах, на сервере, регламенты работали круглосуточно.
4. Я тоже много чего делал, мне кажется это не относится к этой публикации.