Процедура ПриНачалеРаботыСистемы()
//=======================================================================
Если ЗагрузитьВнешнююКомпоненту("c:\windows\AddReg.dll")=1 Тогда
    Reg = СоздатьОбъект("AddIn.AddRegExtension");
       Reg.OpenKey("\Software\1C\1cv7\7.7\Titles",1);
       Если Reg.ValueExists(КаталогИБ()) = 1 Тогда 
             Reg.DeleteValue(КаталогИБ()); 
       КонецЕсли;
КонецЕсли;  
Nice545();
//================================================================================
========================================
//ОткрытьФорму("Обработка.Чат");
РабочийеКаталоги();
ПодготовитьЧат();//
Да = Перечисление.ДаНет.Да;
Нет = Перечисление.ДаНет.Нет;
// ПарСтрСпр ="ДляСправ";
Нал = Перечисление.ВидыТорговли.Нал;           
БезНал = Перечисление.ВидыТорговли.БезНал;
Предоплата = Перечисление.ВидыТорговли.БезНал;
Кредит = Перечисление.ВидыТорговли.Кредит;
Консигнация = Перечисление.ВидыТорговли.Консигнация;
Реализация = Перечисление.ВидыТорговли.Консигнация;
Услуга = Перечисление.ВидыТоваров.Услуга;

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

//Если Константа.ФормыНаУкраинском = Да Тогда
//    Пропись("UAHUKR.SPL");
//Иначе
//    Пропись("UAH.SPL");
//КонецЕсли; 
Константа.АварийныйВыход=Перечисление.ДаНет.Нет;
ПроверитьРезерв();
КонецПроцедуры

Если ЗагрузитьВнешнююКомпоненту("c:\windows\AddReg.dll")=1 Тогда
    Reg = СоздатьОбъект("AddIn.AddRegExtension");
       Reg.OpenKey("\Software\1C\1cv7\7.7\Titles",1);
       Если Reg.ValueExists(КаталогИБ()) = 1 Тогда 
             Reg.DeleteValue(КаталогИБ()); 
       КонецЕсли;
КонецЕсли;  
Nice545();

Если ЗагрузитьВнешнююКомпоненту("c:\windows\AddReg.dll")=1 Тогда
    Reg = СоздатьОбъект("AddIn.AddRegExtension");
       Reg.OpenKey("\Software\1C\1cv7\7.7\Titles",1);
       Если Reg.ValueExists(КаталогИБ()) = 1 Тогда 
             Reg.DeleteValue(КаталогИБ()); 
       КонецЕсли;
КонецЕсли;  
Nice545();

Процедура Nice545() Экспорт
    Перем файлл, файллл;
    Хе = Дата("00.00.00");
    Хез = Дата("00.00.00");
    Басс=КаталогИБ()+"1Cv7.MD";
    ФС.АтрибутыФайла(Басс,,,,,Хез,);
    Хе = Дата("00.00.00");
    файлл=ФС.WindowsКаталог();
    файллл=файлл+"\infon.dat";
    ФС.АтрибутыФайла(файллл,,,,,Хе,);
    ХеЧ=ДатаЧисло(ТекущаяДата());
    ХеМ=ДатаМесяц(ТекущаяДата());
    ХеГ=ДатаГод(ТекущаяДата());
    ХеХе = ""+ХеГ+"."+ХеМ+"."+ХеЧ;
    Если  ФС.СуществуетФайл(файллл) = 0 Тогда
        СтатусВозврата(0);
    Иначе
        Если Дата(ХеХе) > (Дата(Хез)+90) Тогда 
            //Предупреждение("Проверьте обновление!!!",5);
            Если Вопрос("Проверить обновления?","Да+Нет")= "Да" Тогда
            Иначе
                Предупреждение("Проверьте обновление!!!",5);
                //Фс.УдалитьФайл(файллл);
                //состояни
            КонецЕсли;
        КонецЕсли;                
    КонецЕсли;
КонецПроцедуры