Всех приветствую! Периодически возникает проблема, решение которой пока не нашлось. Иногда пользователи не могут зайти в базу (Бухгалтерский учет) их выкидывает. База вроде грузится, а потом сама закрывается.
В журнале событий пишет:
Событие – Ошибка времени выполнения.
Комментарий - Сообщение.Записать(); : {Глобальный модуль(5983)}: Код не уникальный!

Что здесь можно сделать? Заранее спасибо!
(Windows 2000 Server +SQL2000+1Сv77)

Из-за чего она может нарушаться?

Возможно ошибка вылетает где то здесь (не знаю как точно определить)
Глобальный модуль

Процедура ВыводСообщения()
Если Сообщение.НайтиПоНаименованию(ИмяПользователя(),,1)=0 Тогда
Сообщение.Новый();
Сообщение.Наименование=ИмяПользователя();
Сообщение.ОсталосьСекунд=0;
Сообщение.ЗакрытьСистему="";
Сообщение.Записать();
КонецЕсли;

Если ФС.СуществуетФайл(КаталогИБ() + "\AUTO\QUIT.1C") = 1 Тогда
ЗаписьЖурналаРегистрации("QUIT",,"Автоматическое отключение", ИмяКомпьютера(), 3);
пФС = СоздатьОбъект("Текст");
пФС.Открыть(КаталогИБ() + "\AUTO\QUIT.1C");
пФС.ДобавитьСтроку(("" + ТекущаяДата() + " " + ТекущееВремя() + " " +
ИмяПользователя() + " " + ИмяКомпьютера()));
пФС.Записать(КаталогИБ() + "\AUTO\QUIT.1C");
ВыходимАвтоматически = 1;
глЗапрашиватьПодтверждениеПриВыходе=7;
ЗавершитьРаботуСистемы(0);
КонецЕсли;

Если СтрДлина(СокрЛП(Сообщение.Сообщение))>0 Тогда
ОткрытьФорму("Обработка.адмПолучитьСообщение",ФрмСообщения);
Если ТипЗначения(ФрмСообщения)<>100 Тогда
Возврат;
КонецЕсли;
КонецЕсли;

Если Сообщение.ЗакрытьСистему=Перечисление.Булево.Да Тогда
Сообщение.ОсталосьСекунд=Сообщение.ОсталосьСекунд-1;//Константа.ВремяОпросаАдмина;
Если НомерВызова=1 Тогда
НомерВызова=2;
ОбработкаОжидания("",0);
ОбработкаОжидания("ВыводСообщения",1);
КонецЕсли;
Сообщение.Записать();
Если Сообщение.ОсталосьСекунд < 1 Тогда
ЗаписьЖурналаРегистрации("QUIT",,"Автоматическое отключение", ИмяКомпьютера(), 3);
ВыходимАвтоматически = 1;
глЗапрашиватьПодтверждениеПриВыходе=7;
ЗавершитьРаботуСистемы(0);
КонецЕсли;
Если ТипЗначения(ФрмЗакрытьСистему)<>100 Тогда
ОткрытьФорму("Обработка.адмЗакрытьСистему",ФрмЗакрытьСистему);
КонецЕсли;
ФрмЗакрытьСистему.Форма.Обновить();
ИначеЕсли Сообщение.ЗакрытьСистему=Перечисление.Булево.Нет Тогда
Если Сообщение.ОсталосьСекунд>0 Тогда
Предупреждение("Система не будет закрыта");
КонецЕсли;

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

Сообщение.ОсталосьСекунд=0;
Сообщение.ЗакрытьСистему="";
ФрмЗакрытьСистему=0;
Сообщение.Записать();
КонецЕсли;
КонецПроцедуры

Процедура ПриНачалеРаботыСистемы()
…
Сообщение=СоздатьОбъект("Справочник.адмСообщения");
Если Сообщение.НайтиПоНаименованию(Автор.Код,,1)=1 Тогда
Сообщение.Удалить(1);
КонецЕсли;
Если МонопольныйРежим()=1 Тогда
Если Сообщение.ВыбратьЭлементы()=1 Тогда
Пока Сообщение.ПолучитьЭлемент()=1 Цикл
Сообщение.Удалить(1);
КонецЦикла;
КонецЕсли;
Если Автор.МонопольныйДоступ = 2 тогда
Конецесли;
КонецЕсли;
Сообщение.Новый();
Сообщение.Наименование=ИмяПользователя();
Сообщение.ОсталосьСекунд=0;
Сообщение.ЗакрытьСистему="";
Сообщение.Записать();
…

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

Программист 1спочисти файл \AUTO\QUIT.1C

Даже любопытно узнать где такой файл находится, я его не нашёл