Простейший лог-файл

20.01.14

Представляю вам процедуру, которая помимо того как выводит сообщение, пишет это сообщение в настраиваемый лог-файл.

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование		По подписке [?]	Купить один файл
пример файла .epf 6,77Kb ver:1.00 2	2	Скачать (1 SM)	Купить за 1 850 руб.

"Зубрам 1С" процедура будет малоинтересна, новичкам - поможет отследить "деяния" юзеров с вашей обработкой.

Привожу пример данной процедуры (она помещается в модуль обработки как экспортная:

Процедура ЛогСообщить(М) Экспорт

	Сообщить(Формат(ТекущаяДата(),"ДЛФ=DT")+": "+М);
	
	ИмяФайла = "LogFile.txt";
	OShell = Новый COMОбъект("WScript.Shell");
 	ТекДирек = OShell.CurrentDirectory+"\";
	ЛогФайл = Новый ЗаписьТекста(ТекДирек+ИмяФайла, КодировкаТекста.ANSI,,Истина,);
	ЛогФайл.Записать(Формат(ТекущаяДата(),"ДЛФ=DT")+": "+М+Символы.ПС);
	ЛогФайл.Закрыть();
	
КонецПроцедуры

обращаться к этой процедуре очень просто:

ЛогСообщить("Привет, запись добавлена в файл");

Думаю, кому-нибудь данная процедура пригодится.

логфайл сообщения запись текст

+3 –1

См. также

Загрузка табличного документа в таблицу значений. Пять строк кода, которые изменили мир

Универсальные функции Программист Платформа 1С v8.3 1C:Бухгалтерия Бесплатно (free)

Благодаря этим пяти строчкам можно больше не заморачиваться с загрузкой из внешних файлов. Пользуюсь везде, всегда и постоянно.

21.05.2024 25173 dimanich70 82

149

Вставляем картинку из буфера обмена (платформа 1С 8.3.24)

Универсальные функции Программист Платформа 1С v8.3 1C:Бухгалтерия Абонемент ($m)

Задача: вставить картинку из буфера обмена на форму средствами платформы 1С.

1 стартмани

18.03.2024 4508 3 John_d 11

GUID в 1С 8.3

Универсальные функции Программист Стажер Платформа 1С v8.3 1C:Бухгалтерия Бесплатно (free)

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024 25523 atdonya 25

Переоткрытие внешних обработок

Универсальные функции Программист Платформа 1С v8.3 Бесплатно (free)

На заключительных этапах, когда идет отладка или доработка интерфейса, необходимо много раз переоткрыть внешний объект. Вот один из способов автоматизации этого.

30.11.2023 6080 ke.92@mail.ru 17

Генерация штрихкода и QR, разбор настроек и примеры

БСП (Библиотека стандартных подсистем) Сканер штрих-кода Универсальные функции Этикетки, ценники Программист Бизнес-аналитик 1C:Бухгалтерия Бесплатно (free)

Разберем на примерах использование компоненты из БСП для генерации штрихкода и матричных кодов.

15.09.2023 22112 YA_418728146 9

120

Валидация JSON через XDTO (включая массивы)

WEB-интеграция Универсальные функции Механизмы платформы 1С Программист Платформа 1С v8.3 1C:Бухгалтерия Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023 16568 YA_418728146 8

170

Печать непроведенных документов для УТ, КА, ERP. Настройка печати по пользователям, документам и печатным формам

Пакетная печать Печатные формы Адаптация типовых решений Универсальные функции Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Абонемент ($m)

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

2 стартмани

22.08.2023 4273 73 progmaster 10

Расширение: Быстрые отборы через буфер [Alt+C] Копировать список, [Alt+V] Вставить список, [Ctrl+C] Копировать из файлов

Инструментарий разработчика Универсальные функции Платформа 1С v8.3 1C:Бухгалтерия 1С:Розница 2 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Абонемент ($m)

Копирует в буфер значения из списков, из ячеек отчетов, таблиц, настроек списков, других отборов и вставляет в выбранную настройку отбора. Работает с Объект не найден. Работает как в одной так и между разными базами 1С. Использует комбинации [Alt+C] Копировать список, [Alt+V] Вставить список. Также для копирования данных используется стандартная [Ctrl+C] (например из открытого xls, mxl, doc и т.п. файла скопировать список наименований)

1 стартмани

13.10.2022 19142 180 sapervodichka 112

136

Комментарии

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

Свернуть все

1. awk 745 21.01.14 11:51 Сейчас в теме

(0) Для всего этого есть:
1. Объект 1С ЗаписьТекста.
2. Журнал регистрации
Использование СОМ объекта для данной задачи - это...............

2. Franco 83 21.01.14 13:18 Сейчас в теме

вместо

OShell = Новый COMОбъект("WScript.Shell");
ТекДирек = OShell.CurrentDirectory+"\";

можно использовать в модуле обработки

ИмяФайлаОбработки = ИспользуемоеИмяФайла;
Файл = Новый Файл(ИмяФайлаОбработки);
Каталог = СокрЛП(Файл.Путь);
Файл = Неопределено;

3. Franco 83 21.01.14 13:22 Сейчас в теме

а чтобы проверить на конечный слэш, то

Разделитель = ПолучитьРаздПутиСервера(); //в 8.2
Если Не Прав(Каталог, 1) = Разделитель Тогда
Каталог = Каталог + Разделитель;
КонецЕсли;

Функция ПолучитьРаздПутиСервера()
сисИнфо = Новый СистемнаяИнформация;
Если Найти(НРег(СокрЛП(Строка(сисИнфо.ТипПлатформы))), "windows") Тогда
Разделитель = "\";
Иначе
Разделитель = "/";
КонецЕсли;
сисИнфо = Неопределено;
Возврат Разделитель;
КонецФункции

4. aximo 2135 22.01.14 06:37 Сейчас в теме

Думаю, что данная процедура все-таки имеет место быть, для быстрого определения "когда, как и сколько раз" запускалась внешняя обработка, на каком этапе в ней произошла "загвоздка"...

Тем более, если обработка запускается через планировщик задач.

На счет применения этой процедуры - это уже вам решать...

5. Virikus 64 22.01.14 07:10 Сейчас в теме

(4) да это все чушь.

Использовать скрипт для этой цели не годится. А если база серверная, где потом искать этот лог?

6. basta-one2007 28.01.15 06:10 Сейчас в теме

Немного переписал, может кому пригодится:

Функция пр_ЛогСоздать () Экспорт
	КаталогИБ = НСтр(СтрокаСоединенияИнформационнойБазы(), "File");
	ИмяФайла = КаталогИБ+ "\LogFile_"+Формат(ТекущаяДата(),"ДФ=""ггггММдд_ччммсс""") +".txt";
 	Возврат ИмяФайла;
КонецФункции	
Процедура пр_ЛогСообщить(М,ИмяФайла) Экспорт
    Сообщить(Формат(ТекущаяДата(),"ДЛФ=DT")+": "+М);
    ЛогФайл = Новый ЗаписьТекста(ИмяФайла, КодировкаТекста.ANSI,,Истина,);
    ЛогФайл.Записать(Формат(ТекущаяДата(),"ДЛФ=DT")+": "+М+Символы.ПС);
    ЛогФайл.Закрыть();
КонецПроцедуры

Показать