v7: Можно ли исправить загруженные данные повторной загрузкой?

Вот, спионерила код)
Посмотрите, пожалуйста, можно ли повторной загрузкой исправить неправильно ранее загруженные данные?:
Перем НомерРедактора, ДетСад, Каталог, ИмяФайла;
//******************************
Функция ОшибкиПолейБазы(Реестр, ИмяФайла, ДетСад)
    Перем НазваниеПоля, Тип, Длина, Точность; Ошибка=0; Реестр.ОписаниеПоля(1,НазваниеПоля,Тип,Длина,Точность);
    Если НазваниеПоля<>"KOD" Тогда
        Ошибка=1; Сообщить("Ошибка файла "+ИмяФайла+": Название 1-го столбца - "+НазваниеПоля+", должно быть - KOD (все буквы латинские)","!")
    КонецЕсли;
    Если Тип<>1 Тогда
        Ошибка=1; Сообщить("Ошибка файла "+ИмяФайла+": Тип данных 1-го столбца должен ,быть целым положительным числом","!")
    КонецЕсли;

    Реестр.ОписаниеПоля(3,НазваниеПоля,Тип,Длина,Точность);
    Если НазваниеПоля<>"SUMNAC" Тогда
        Ошибка=1; Сообщить("Ошибка файла "+ИмяФайла+": Название 3-го столбца - "+НазваниеПоля+", должно быть - SUMNAC (все буквы латинские)","!")
    КонецЕсли;
    Если Тип<>1 Тогда
        Ошибка=1; Сообщить("Ошибка файла "+ИмяФайла+": Тип данных 3-го столбца должен быть числом")
    Иначе
        Если Точность<>2 Тогда
            Ошибка=1; Сообщить("Ошибка файла "+ИмяФайла+": Точность дробной части 3-го столбца - "+Точность+" знаков после запятой, должна быть 2 знака (копейки)","!")
        КонецЕсли;
    КонецЕсли;

    Реестр.ОписаниеПоля(4,НазваниеПоля,Тип,Длина,Точность);
    Если НазваниеПоля<>"SUMOPL" Тогда
        Ошибка=1; Сообщить("Ошибка файла "+ИмяФайла+": Название 4-го столбца - "+НазваниеПоля+", должно быть - SUMOPL (все буквы латинские)","!")
    КонецЕсли;
    Если Тип<>1 Тогда
        Ошибка=1; Сообщить("Ошибка файла "+ИмяФайла+": Тип данных 4-го столбца должен быть числом","!")
    Иначе
        Если Точность<>2 Тогда
            Ошибка=1; Сообщить("Ошибка файла "+ИмяФайла+": Точность дробной части 4-го столбца - "+Точность+" знаков после запятой, должна быть 2 знака (копейки)","!")
        КонецЕсли;
    КонецЕсли;
    Если Ошибка=1 Тогда
        Сообщить("Данные по "+ДетСад.Наименование+" не загружены, ошибки следует исправить...","!")
    КонецЕсли;
    Возврат Ошибка
КонецФункции
//******************************
Функция ЗанестиДанные(ДетСад,Каталог,ИмяФайла)
    Занесено=0; Дети.ИспользоватьВладельца(ДетСад); Реестр.ОткрытьФайл(Каталог+ИмяФайла,,1);
    Если ОшибкиПолейБазы(Реестр,ИмяФайла,ДетСад)=0 Тогда Реестр.Первая();
        Пока Реестр.ВКонце()=0 Цикл
            Если Дети.НайтиПоКоду(Число(Реестр.Kod), 1)=1 Тогда Начисления.ИспользоватьВладельца(Дети);
                Состояние("Идет запись данных: "+ДетСад.Наименование+" :"+Дети.Наименование);
                Если (Реестр.SumNac>0) Или (Реестр.SumOpl>0) Тогда
                    Если Начисления.НайтиПоРеквизиту("РасчетнаяДата", Константа.РасчетнаяДата,0)=1 Тогда
                        Начисления.Начислено=Реестр.SumNac;
                        Начисления.Уплачено=Реестр.SumOpl;
                        Начисления.Процент=Дети.ПроцентКомпенсации;
                        Начисления.Компенсация=Реестр.SumOpl*Дети.ПроцентКомпенсации.Значение/100;
                        Начисления.Записать()
                    Иначе
                        Начисления.Новый();
                        Начисления.Начислено=Реестр.SumNac;
                        Начисления.Уплачено=Реестр.SumOpl;
                        Начисления.Процент=Дети.ПроцентКомпенсации;
                        Начисления.Компенсация=Реестр.SumOpl*Дети.ПроцентКомпенсации.Значение/100;
                        Начисления.РасчетнаяДата=Константа.РасчетнаяДата;
                        Начисления.Записать()
                    КонецЕсли
                Иначе
                    Если Начисления.НайтиПоРеквизиту("РасчетнаяДата", Константа.РасчетнаяДата,0)=1 Тогда Начисления.Удалить() КонецЕсли
                КонецЕсли;
            Иначе
                Сообщить("Не найден ребенок по коду "+Строка(Реестр.Kod)+" ("+СокрЛП(Реестр.FamName)+ "), данные по нему не загружены...")
            КонецЕсли;
            Реестр.Следующая()
        КонецЦикла;
        Занесено=1
    КонецЕсли; //ошибки базы
    Реестр.ЗакрытьФайл();
    Возврат Занесено;
КонецФункции
//*****************************************
Функция Загрузка(ДетСад)Загружен=0;
    Каталог=?(ДетСад.Расположение=Перечисление.Расположение.УНО,КаталогЗагрузки,"A:\");
    ИмяФайла=Строка(Формат(ДетСад.Код, "Ч(0)2"))+".dbf"; НеверныйФайл=Строка(Формат(ДетСад.Код, "Ч(0)2"))+".xls";
    Если ФС.ВыбратьФайл(0,ИмяФайла,Каталог,"Выберите файл","Файлы баз данных (*.dbf)|*.dbf",".dbf")=1 Тогда //СуществуетФайл(Каталог+ИмяФайла)=1 Тогда
        Если ДетСады.НайтиПоКоду(Число(Лев(ИмяФайла,2)))=1 Тогда ВыбрДетСад=ДетСады.ТекущийЭлемент(); глДетСад=ВыбрДетСад;
            Если ЗанестиДанные(ВыбрДетСад,Каталог,ИмяФайла)=1 Тогда
                Загружен=1; ФС.ПереименоватьФайл(Каталог+ИмяФайла,КаталогАрхива+Строка(Формат(ВыбрДетСад.Код,"Ч(0)2"))+
                Строка(Формат(ДатаМесяц(Константа.РасчетнаяДата),"Ч(0)2"))+Прав(Строка(ДатаГод(Константа.РасчетнаяДата)),2)+".dbf",1);
            КонецЕсли
        КонецЕсли
    Иначе
        Если ФС.СуществуетФайл(Каталог+НеверныйФайл)=1 Тогда
            Сообщить("В каталоге "+Каталог+" найден файл "+НеверныйФайл+" в формате XLS (Книга Excel), такой файл загружен не будет. Сохраните файл в формате как DBF 4 (dBase IV)...");
        КонецЕсли;
        Предупреждение("Не найден файл "+ИмяФайла+" в каталоге "+Каталог);
    КонецЕсли;
    Возврат Загружен
КонецФункции
//****************************************
Процедура Проверка()
    Перем Коды[50], Количество; ОчиститьОкноСообщений(); ДетСады.ПорядокКодов();
    Если ДетСады.ВыбратьЭлементыПоРеквизиту("Расположение",Перечисление.Расположение.УНО)=1 Тогда  Количество=0;
        Пока ДетСады.ПолучитьЭлемент()=1 Цикл
            ИмяФайла=Строка(Формат(ДетСады.Код, "Ч(0)2"))+".dbf";
            Если ФС.СуществуетФайл(КаталогЗагрузки+ИмяФайла)=1 Тогда
                Количество=Количество+1; Коды[Количество]=Число(ДетСады.Код)
            КонецЕсли
        КонецЦикла;
        Если Количество>0 Тогда
            Стр=?(Количество>1,"Имеются готовые файлы на сервере:","Имеется готовый файл на сервере:"); Сообщить(Стр);
            Для К=1 По Количество Цикл
                ДетСады.НайтиПоКоду(Коды[К]); Сообщить("("+Строка(Формат(ДетСады.Код, "Ч(0)2"))+") "+ДетСады.Наименование)
            КонецЦикла;
            Если Вопрос("Имеются готовые файлы на сервере."+РазделительСтрок+"Загрузить их сейчас?", 4)=6 Тогда
                Загружен=0; ОчиститьОкноСообщений();
                Для К=1 По Количество Цикл ДетСады.НайтиПоКоду(Коды[К]);
                    Если Загрузка(ДетСады)=1 Тогда
                        Загружен=1; Сообщить("("+Строка(Формат(ДетСады.Код, "Ч(0)2"))+") "+ДетСады.Наименование+" загружено");
                    КонецЕсли;
                КонецЦикла;
                Если Загружен=1 Тогда Состояние("Готово"); Предупреждение("Готово",2) КонецЕсли
            КонецЕсли
        Иначе Сообщить("Нет готовых файлов на сервере...")
        КонецЕсли
    КонецЕсли;

    Если ДетСады.ВыбратьЭлементыПоРеквизиту("Расположение",Перечисление.Расположение.ДС)=1 Тогда Количество=0;
        Пока ДетСады.ПолучитьЭлемент()=1 Цикл
            ИмяФайла=Строка(Формат(ДетСады.Код, "Ч(0)2"))+".dbf"; НеверныйФайл=Строка(Формат(ДетСады.Код, "Ч(0)2"))+".xls";
            Если ФС.СуществуетФайл("A:\"+ИмяФайла)=1 Тогда
                Количество=Количество+1; Коды[Количество]=Число(ДетСады.Код);
            Иначе
                Если ФС.СуществуетФайл("A:\"+НеверныйФайл)=1 Тогда
                    Сообщить("На дискете найден файл "+НеверныйФайл+" в формате XLS (Книга Excel), такой файл загружен не будет. Сохраните файл в формате как DBF 4 (dBase IV)...");
                КонецЕсли;
            КонецЕсли;
        КонецЦикла;
        Если Количество>0 Тогда
            Стр=?(Количество>1,"Имеются готовые файлы на дискете:","Имеется готовый файл на дискете:"); Сообщить(Стр);
            Для К=1 По Количество Цикл ДетСады.НайтиПоКоду(Коды[К]);
                Сообщить("("+Строка(Формат(ДетСады.Код, "Ч(0)2"))+") "+ДетСады.Наименование)
            КонецЦикла;
            Если Вопрос("Имеются готовые файлы на дискете."+РазделительСтрок+"Загрузить их сейчас?", 4)=6 Тогда
                Загружен=0; ОчиститьОкноСообщений();
                Для К=1 По Количество Цикл ДетСады.НайтиПоКоду(Коды[К]); ВыбрДетСад=ДетСады.ТекущийЭлемент(); глДетСад=ВыбрДетСад;
                    Если Загрузка(ДетСады)=1 Тогда
                        Загружен=1; Сообщить("("+Строка(Формат(ДетСады.Код, "Ч(0)2"))+") "+ДетСады.Наименование+" загружено")
                    КонецЕсли
                КонецЦикла;
                Если Загружен=1 Тогда Состояние("Готово"); Предупреждение("Готово", 2) КонецЕсли
            КонецЕсли;
        Иначе Сообщить("Нет готовых файлов на дискете...")
        КонецЕсли
    КонецЕсли
КонецПроцедуры
//*******************************************
Процедура ПриОткрытии()
    Если ПустоеЗначение(глДетСад)=1 Тогда
        Если ДетСады.ВыбратьЭлементы()=1 Тогда
            Если ДетСады.ПолучитьЭлемент()=1 Тогда
                ВыбрДетСад=ДетСады.ТекущийЭлемент(); глДетСад=ВыбрДетСад
            КонецЕсли
        Иначе Предупреждение("Детские сады не найдены..."); Форма.Закрыть()
        КонецЕсли
    Иначе ВыбрДетСад=глДетСад
    КонецЕсли;
    Если Форма.Параметр<>2 Тогда Проверка() КонецЕсли
КонецПроцедуры
//*******************************************
Процедура ПриВыбореДетСада() глДетСад=ВыбрДетСад; Форма.КнопкаРучнойВвод.Доступность(1) КонецПроцедуры
//****************************************
Процедура Загрузить()
    Если ПустоеЗначение(ВыбрДетСад)=0 Тогда
        Если Загрузка(ВыбрДетСад)=1 Тогда Состояние("Готово"); Предупреждение("Готово", 2) КонецЕсли
    Иначе Предупреждение("Выберите детский сад...") КонецЕсли
КонецПроцедуры