|
580 | 580 |
|
581 | 581 | КонецЕсли;
|
582 | 582 |
|
583 |
| - Иначе |
584 |
| - |
585 |
| - ОчиститьЦелевойКаталогВыгрузки(КаталогВыгрузки); |
586 |
| - |
587 | 583 | КонецЕсли;
|
588 | 584 |
|
589 | 585 | КонецЕсли;
|
|
2069 | 2065 | // Функция проверяет возможность обновления файлов выгрузки, для каталога или конкретного файла версий
|
2070 | 2066 | //
|
2071 | 2067 | Функция ПроверитьВозможностьОбновленияФайловВыгрузки(Знач КаталогВыгрузки, Знач ПутьКФайлуВерсийДляСравнения = "", Знач ФорматВыгрузки = "")
|
2072 |
| - |
| 2068 | + |
2073 | 2069 | ПутьКФайлуИзменений = ВременныеФайлы.НовоеИмяФайла();
|
| 2070 | + ОбновлениеВозможно = Ложь; |
2074 | 2071 |
|
2075 | 2072 | ТекущийФайлВерсийМетаданных = Новый Файл(ОбъединитьПути(КаталогВыгрузки,"ConfigDumpInfo.xml"));
|
2076 | 2073 | ФайлВерсийДляСравнения = Новый Файл(ПутьКФайлуВерсийДляСравнения);
|
2077 | 2074 |
|
2078 |
| - Если НЕ (ТекущийФайлВерсийМетаданных.Существует() ИЛИ (ФайлВерсийДляСравнения.Существует())) Тогда |
2079 |
| - Возврат Ложь; |
| 2075 | + Если НЕ ТекущийФайлВерсийМетаданных.Существует() И ПустаяСтрока(ПутьКФайлуВерсийДляСравнения) Тогда |
| 2076 | + Возврат ОбновлениеВозможно; |
2080 | 2077 | КонецЕсли;
|
2081 |
| - |
| 2078 | + |
2082 | 2079 | ВыгрузитьИзмененияКонфигурацииВФайл(КаталогВыгрузки, ПутьКФайлуИзменений, ПутьКФайлуВерсийДляСравнения, ФорматВыгрузки);
|
2083 | 2080 |
|
2084 | 2081 | ФайлИзменений = Новый Файл(ПутьКФайлуИзменений);
|
2085 |
| - |
| 2082 | + |
2086 | 2083 | Если ФайлИзменений.Существует() Тогда
|
2087 |
| - |
| 2084 | + СтрокаПолныйДамп = ВРег("FullDump"); |
2088 | 2085 | чтениеФайла = Новый ЧтениеТекста(ПутьКФайлуИзменений);
|
2089 |
| - Если ВРег(чтениеФайла.ПрочитатьСтроку()) = ВРег("FullDump") Тогда |
2090 |
| - Возврат Ложь; |
2091 |
| - Иначе |
2092 |
| - Возврат Истина; |
| 2086 | + СтрокаВыгрузки = Лев(ВРег(чтениеФайла.ПрочитатьСтроку()),СтрДлина(СтрокаПолныйДамп)); |
| 2087 | + |
| 2088 | + Если Не ПустаяСтрока(СокрЛП(СтрокаВыгрузки)) Тогда |
| 2089 | + |
| 2090 | + Лог.Отладка("Строка проверки на возможность выгрузки конфигурации: <%1> = <%2> ", СтрокаПолныйДамп, СтрокаВыгрузки); |
| 2091 | + ОбновлениеВозможно = НЕ (СтрокаВыгрузки = СтрокаПолныйДамп); |
| 2092 | + |
2093 | 2093 | КонецЕсли;
|
2094 | 2094 | чтениеФайла.Закрыть();
|
2095 |
| - |
| 2095 | + |
2096 | 2096 | КонецЕсли;
|
2097 |
| - |
2098 |
| - Возврат Ложь; |
| 2097 | + |
| 2098 | + Возврат ОбновлениеВозможно; |
2099 | 2099 |
|
2100 | 2100 | КонецФункции
|
2101 | 2101 |
|
|
0 commit comments