О, теперь нашел, да.
И кусок этот нашёл. Удалил всё нахрен, что касалось резервного копирования. Теперь пишет при запуске базы "Ошибка компиляции глобального модуля".
Заново восстановил базу из выгрузки. Вот этот кусок:
Скрытый текст
// ПРЕДОПРЕДЕЛЕННЫЕ ПРОЦЕДУРЫ
//
//******************************************************************************
// Предопределенная процедура
//
Процедура ПриНачалеРаботыСистемы()
Текст=СоздатьОбъект("Текст");
Текст.ДобавитьСтроку("[General]
|Output=""D:\1sbases\1Cv77\1SBDB\Архивы\ОтчСохрАрх.txt""
|SaveData=1
|Quit=1
|[SaveData]");
Текст.Шаблон(1);
Текст.ДобавитьСтроку("SaveToFile=""D:\1sbases\1Cv77\1SBDB\АрхивыКаждыйДень\РезАрхБухОт[Формат(ТекущаяДата(),""Д ГГГГММДД"")].zip""");
Если ФС.СуществуетФайл("\\Glavbuh\1Cv77\1SBDB\Архивы\РезАрхБухКажДень.txt")=1 Тогда
Текст.Записать("\\Glavbuh\1Cv77\1SBDB\Архивы\РезАрхБухКажДень.txt");
Иначе
Текст.Записать("D:\1sbases\1Cv77\1SBDB\Архивы\РезАрхБухКажДень.txt");
КонецЕсли;
Текст.ЗаменитьСтроку(2,"Output=""D:\1sbases\PRBasic\Архивы\ОтчСохрАрхЗарПл.txt""");
Текст.ЗаменитьСтроку(6,"SaveToFile=""D:\1sbases\PRBasic\АрхКаждДень\РезАрхЗарПлОт[Формат(ТекущаяДата(),""Д ГГГГММДД"")].zip""");
Если ФС.СуществуетФайл("\\Buhzarpl\PRBasic\Архивы\РезАрхЗарПлКажДень.txt")=1 Тогда
Текст.Записать("\\Buhzarpl\PRBasic\Архивы\РезАрхЗарПлКажДень.txt");
КонецЕсли;
//Если (ФС.СуществуетФайл("C:\1sBases\2005\ЭтоНеКаталогСервера.txt")=1) Тогда //м_№ D:\1sbases\1Cv77\ССМУ-24\1sbdb
Если (ФС.СуществуетФайл("\\Glavbuh\1Cv77\1SBDB\АрхивыКаждыйДень\РезАрхБухОт*")=1) Тогда //м_№
СписАрхивов=СоздатьОбъект("СписокЗначений"); //м_№
ПервАрх =""; //м_№
ПервАрх = ФС.НайтиПервыйФайл("\\Glavbuh\1Cv77\1SBDB\АрхивыКаждыйДень\РезАрхБухОт*"); //м_№
СписАрхивов.ДобавитьЗначение(ПервАрх,ПервАрх); //м_№
СледАрх = "1"; //м_№
Пока (ПервАрх <> СледАрх) Цикл //м_№
СледАрх = ФС.НайтиСледующийФайл(); //м_№
Если СписАрхивов.НайтиЗначение(СледАрх)=0 Тогда //м_№
Если (СледАрх = "") Тогда
Прервать //м_№
КонецЕсли; //м_№
СписАрхивов.ДобавитьЗначение(СледАрх,СледАрх); //м_№
КонецЕсли; //м_№
КонецЦикла; //м_№
Пока СписАрхивов.РазмерСписка()>90 Цикл //м_№
СписАрхивов.Сортировать(,); //м_№
Если СписАрхивов.РазмерСписка()>90 Тогда //м_№
ПервАрх = ФС.НайтиПервыйФайл("\\Glavbuh\1Cv77\1SBDB\АрхивыКаждыйДень\"+СписАрхивов.ПолучитьЗначение(1,)); //м_№
ФС.УдалитьФайл(Строка("\\Glavbuh\1Cv77\1SBDB\АрхивыКаждыйДень\"+ПервАрх)); //м_№
СписАрхивов.УдалитьЗначение(1); //м_№
КонецЕсли; //м_№
КонецЦикла; //м_№
Если (ФС.СуществуетФайл("\\BuhZarpl\Не_Стирать\РезАрхБухОт*")=1) Тогда //м_№
// Если (ФС.СвободноеМестоНаДиске("E:")>15000000) Тогда //м_№
СписАрхивов.Сортировать(1,); //м_№
ПервАрх = ФС.НайтиПервыйФайл("\\Glavbuh\1Cv77\1SBDB\АрхивыКаждыйДень\"+СписАрхивов.ПолучитьЗначение(1,)); //м_№
ФС.КопироватьФайл(Строка("\\Glavbuh\1Cv77\1SBDB\АрхивыКаждыйДень\"+ПервАрх),Строка("\\BuhZarpl\Не_Ст ирать\"+ПервАрх),0); //м_№
// КонецЕсли; //м_№
КонецЕсли; //м_№
КонецЕсли; //м_№
Если (ФС.СуществуетФайл("\\BuhZarpl\Не_Стирать\ItIsReserv.txt")=1) Тогда //м_№
Если (ФС.СуществуетФайл("\\BuhZarpl\Не_Стирать\РезАрхБухОт*")=1) Тогда //м_№
СписАрхивов=СоздатьОбъект("СписокЗначений"); //м_№
ПервАрх =""; //м_№
ПервАрх = ФС.НайтиПервыйФайл("\\BuhZarpl\Не_Стирать\РезАрхБухОт*"); //м_№
СписАрхивов.ДобавитьЗначение(ПервАрх,ПервАрх); //м_№
СледАрх = "1"; //м_№
Пока (ПервАрх <> СледАрх) Цикл //м_№
СледАрх = ФС.НайтиСледующийФайл(); //м_№
Если СписАрхивов.НайтиЗначение(СледАрх)=0 Тогда //м_№
Если (СледАрх = "") Тогда
Прервать //м_№
КонецЕсли; //м_№
СписАрхивов.ДобавитьЗначение(СледАрх,СледАрх); //м_№
КонецЕсли; //м_№
КонецЦикла; //м_№
Пока СписАрхивов.РазмерСписка()>10 Цикл //м_№
СписАрхивов.Сортировать(,); //м_№
Если СписАрхивов.РазмерСписка()>10 Тогда //м_№
ПервАрх = ФС.НайтиПервыйФайл("\\BuhZarpl\Не_Стирать\"+СписАрхивов.ПолучитьЗначение(1,)); //м_№
ФС.УдалитьФайл(Строка("\\BuhZarpl\Не_Стирать\"+ПервАрх)); //м_№
СписАрхивов.УдалитьЗначение(1); //м_№
КонецЕсли; //м_№
КонецЦикла; //м_№
КонецЕсли; //м_№
КонецЕсли; //м_№
//КонецЕсли; //м_№
Как его корректно удалить?
P.S. Оказывается, чтобы русские символы копировались нормально в буфер обмена, надо раскладку на русскую сменить. Жесть... Эту 1С какие-то больные люди писали.
