Имя: Пароль:
1C
1C 7.7
v7: ПРоблемы при обновлении комплексной 1С77
0 Zlodey1С
 
22.07.11
09:43
Добрый день обновляюсь с релиза 490 на 509 сначала вот так долго думает минут 20 http://s014.radikal.ru/i327/1107/99/73786091433c.jpg , потом выскакиват ошибка мол обновление не произведено закрыть или продолжить работу и вот такое сообщение http://i066.radikal.ru/1107/3b/be4b6e5b90b4.jpg

Итоги пересчитывал, что ей не нравиться понять не могу. В 1С7 не селен.
1 Zlodey1С
 
22.07.11
09:46
И главное не кто работать ведь не может. Перед обновлением сделал выгрузку данных. Если я их загружу все восстановиться (в смысле как будто обновления не делал)или все готовить вазелин.
2 Zlodey1С
 
22.07.11
09:58
Ошибка вот тут

       СчН02_02   = СчетПоКоду("Н02.02");
       СчН02_02_1 = СчетПоКоду("Н02.02.1");
       
       // Замена кодов счетов и типов аналитики в формах документов.
       Состояние("Обновление документов");
       Если ОбработкаСчетовВДокументахВыполнена = 0 Тогда
           ОбработкаСчетовВДокументах();
       КонецЕсли;
       
       Состояние("Обновление операций и проводок");
       Опер = СоздатьОбъект("Операция");
       Опер1 = СоздатьОбъект("Операция");
       Фильтр = "Н02.02,*;*,Н02.02";
       Опер.ВыбратьОперацииСПроводками(,, Фильтр);
       Пока Опер.ПолучитьОперацию() = 1 Цикл
           ОперацияИзменена = 0;
           Опер1.НайтиОперацию(Опер.Документ);
           Опер1.ВыбратьПроводки();
           Пока Опер1.ПолучитьПроводку() = 1 Цикл
               СчетДт = Опер1.Дебет.Счет;
               СчетКт = Опер1.Кредит.Счет;
               
               Если Опер1.Дебет.Счет = СчН02_02 Тогда
                   Опер1.Дебет.Счет = СчН02_02_1;
                   ОперацияИзменена = 1;
               КонецЕсли;
               
               Если Опер1.Кредит.Счет = СчН02_02 Тогда
                   Опер1.Кредит.Счет = СчН02_02_1;
                   ОперацияИзменена = 1;
               КонецЕсли;
           КонецЦикла;
           Если ОперацияИзменена = 1 Тогда
               Опер1.Записать();  вот тут вываливаеться
           КонецЕсли;
           
       КонецЦикла;
3 Zlodey1С
 
22.07.11
10:04
ну хоть из выгрузки данных я восстановлю все ?
4 Zlodey1С
 
22.07.11
10:44
Всем спасибо, восстановил из копии.
Программист всегда исправляет последнюю ошибку.