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

20.01.14

Разработка - Универсальные функции

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

Файлы

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

Наименование Скачано Купить файл
пример файла
.epf 6,77Kb ver:1.00
2 2 500 руб. Купить

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой

Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».

  • 0% комиссии — оплата напрямую исполнителю;
  • Исполнители любого масштаба — от отдельных специалистов до команд под проект;
  • Прямой обмен контактами между заказчиком и исполнителем;
  • Безопасная сделка — при необходимости;
  • Рейтинги, кейсы и прозрачная система откликов.

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

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

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

 

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

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

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

 

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


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



Вступайте в нашу телеграмм-группу Инфостарт

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

+3 –1

См. также

ДО+ для 1С:Документооборот

Универсальные функции 1С 8.3 1С:Документооборот Россия Платные (руб)

ДО+ — расширение конфигурации, в котором собран постоянно пополняемый набор из 33 востребованных доработок для 1С:Документооборот КОРП 3.0: согласование задач прямо из мессенджеров MAX и Telegram, отзыв согласования и исполнения, гибкие повторные круги, эскалация с точностью до минут, контроль исполнительской дисциплины, выгрузка вложений в ZIP и склейка PDF, реестр документов в Excel, проверка дублей контрагентов и регистрационных номеров. Каждая возможность активируется отдельным флажком в режиме предприятия — включается только то, что нужно конкретной организации. Список функций расширяется с каждым релизом — текущая версия 2.1.0. Режим AddOn: типовая конфигурация не модифицируется, обновления ДО ставятся штатно, дополнительные лицензии и внешние компоненты не требуются. Внедрение силами администратора — около часа.

30000 руб.

09.07.2026    1453    1    0    

2
Заполнение формул в файлах Excel (кроссплатформенное решение)

Загрузка и выгрузка в Excel Универсальные функции Разработчик 1С:Предприятие 8 Россия Бесплатно (free)

Описанный ниже подход позволяет в три шага заполнять формулы в Excel файлы, вне зависимости от ОС сервера (MS Windows Server или Linux). Подход подразумевает отказ от работы с COM-объектом в пользу работы через "объектную модель документа" (DOM).

30.10.2025    8803    Abysswalker    11    

49
Отключение уведомления "Расширение конфигурации неактивно"

Универсальные функции Работа с интерфейсом Разработчик 1С:Предприятие 8 Бесплатно (free)

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

14.05.2025    14583    DeerCven    16    

66
В помощь разработчику: преобразование табличного документа в запрос

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

Внешняя обработка для создания запроса на основании табличных данных.

22.07.2024    11990    278    ixijixi    10    

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

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

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

21.05.2024    68942    dimanich70    87    

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

Универсальные функции Разработчик 1С:Предприятие 8 1C:Бухгалтерия Абонемент ($m)

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

1 стартмани

18.03.2024    9336    7    John_d    13    

59
GUID в 1С 8.3

Универсальные функции Разработчик Стажер 1С:Предприятие 8 1C:Бухгалтерия Бесплатно (free)

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

12.02.2024    85989    atdonya    31    

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

Универсальные функции Разработчик 1С:Предприятие 8 Бесплатно (free)

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

30.11.2023    13511    ke.92@mail.ru    18    

68
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. awk 745 21.01.14 11:51 Сейчас в теме
(0) Для всего этого есть:
1. Объект 1С ЗаписьТекста.
2. Журнал регистрации
Использование СОМ объекта для данной задачи - это...............
levante90; cool.vlad4; +2 – Ответить
2. Franco 86 21.01.14 13:18 Сейчас в теме
вместо

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

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

ИмяФайлаОбработки = ИспользуемоеИмяФайла;
Файл = Новый Файл(ИмяФайлаОбработки);
Каталог = СокрЛП(Файл.Путь);
Файл = Неопределено;
Melvia; +1 – Ответить
3. Franco 86 21.01.14 13:22 Сейчас в теме
а чтобы проверить на конечный слэш, то

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

Функция ПолучитьРаздПутиСервера()
сисИнфо = Новый СистемнаяИнформация;
Если Найти(НРег(СокрЛП(Строка(сисИнфо.ТипПлатформы))), "windows") Тогда
Разделитель = "\";
Иначе
Разделитель = "/";
КонецЕсли;
сисИнфо = Неопределено;
Возврат Разделитель;
КонецФункции
+ – Ответить
4. aximo 2772 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")+": "+М+Символы.ПС);
    ЛогФайл.Закрыть();
КонецПроцедуры
Показать
kladovoy; user1492823; KazanKokos; Новичок1с; +4 – Ответить
7. ymarch 30.07.19 14:31 Сейчас в теме
Спасибо, пригодилось
+ – Ответить
Для отправки сообщения требуется регистрация/авторизация