Имя: Пароль:
1C
1C 7.7
v7: Помогите найти загрузку XML, утерян второй файл, есть выгрузка
0 ams666
 
04.10.21
07:52
В обещем живет одна конторка, Обратились за помощью с проблемой в виде вирусов. В общем как обычно, когда уже все пиши-пропало. Все почти поднял и восстановил, но вот беда, есть у них копия базы в которую они часть документов переносят. Была у них обработка из двух файлов.  Выгрузка.Ert и Загрузка.Ert
Вот файла загрузка больше нет. По виду это слегка отредактированная какая-то стандартная обработка
Может кто сможет найти вторую часть от нее
1 ams666
 
04.10.21
07:52
Начинается код обработки так Перем глЧислоСтрок      Экспорт;
Перем УзелСпр, УзелДок, глКорень, КореньПер, яКорень;

Перем СписокВыгруженных;
Перем глТерминальныеТипы;
Перем СписокПериодических;

Перем Документы;            // список значений с идентификаторами видов документов системы
Перем ОтобранныеДокументы;    // список отобранных документов        

Перем НеПечатаемыеСимволы;
    
Перем МеткаЕсть, МеткиНет;  // Номера иконок пометки строки таблицы

Процедура Выполнить()                                         Далее
Процедура ЗаписатьОбъект(Корень, Ид, Ссылка, БезИд=0)         Далее
Процедура ЗаписатьДокументXML(Корень, Док, НазваниеУзла)     Далее
Процедура ЗаписатьСчетХМЛ(Корень, элСчет)                     Далее
Процедура ЗаписатьИсторию(Корень, Ссылка, Ид, ПолныйИД)        Далее
Функция Инициализация()                                        Далее
Функция ЗаписатьХМЛ(ИмяФайла)                                Далее

// ================= УПРАВЛЕНИЕ ИНТЕРФЕЙСОМ ================================
//{

//******************************************************************************
// глЕстьРеквизитШапки(ИмяРеквизита, ВидДокумента)
//
// Параметры:
//  ИмяРеквизита - имя реквизита (строка)
//  ВидДокумента - вид документа (строка)
//
// Возвращаемое значение:
//  0 - нет реквизита,
//  1 - есть реквизит
//
// Описание:
//  Проверяет, есть ли в структуре метаданных документа указанного вида
//     реквизит шапки с указанным названием