0
ams666
04.10.21
✎
07:52
|
В обещем живет одна конторка, Обратились за помощью с проблемой в виде вирусов. В общем как обычно, когда уже все пиши-пропало. Все почти поднял и восстановил, но вот беда, есть у них копия базы в которую они часть документов переносят. Была у них обработка из двух файлов. Выгрузка.Ert и Загрузка.Ert
Вот файла загрузка больше нет. По виду это слегка отредактированная какая-то стандартная обработка
Может кто сможет найти вторую часть от нее
|
|
1
ams666
04.10.21
✎
07:52
|
Начинается код обработки так Перем глЧислоСтрок Экспорт;
Перем УзелСпр, УзелДок, глКорень, КореньПер, яКорень;
Перем СписокВыгруженных;
Перем глТерминальныеТипы;
Перем СписокПериодических;
Перем Документы; // список значений с идентификаторами видов документов системы
Перем ОтобранныеДокументы; // список отобранных документов
Перем НеПечатаемыеСимволы;
Перем МеткаЕсть, МеткиНет; // Номера иконок пометки строки таблицы
Процедура Выполнить() Далее
Процедура ЗаписатьОбъект(Корень, Ид, Ссылка, БезИд=0) Далее
Процедура ЗаписатьДокументXML(Корень, Док, НазваниеУзла) Далее
Процедура ЗаписатьСчетХМЛ(Корень, элСчет) Далее
Процедура ЗаписатьИсторию(Корень, Ссылка, Ид, ПолныйИД) Далее
Функция Инициализация() Далее
Функция ЗаписатьХМЛ(ИмяФайла) Далее
// ================= УПРАВЛЕНИЕ ИНТЕРФЕЙСОМ ================================
//{
//******************************************************************************
// глЕстьРеквизитШапки(ИмяРеквизита, ВидДокумента)
//
// Параметры:
// ИмяРеквизита - имя реквизита (строка)
// ВидДокумента - вид документа (строка)
//
// Возвращаемое значение:
// 0 - нет реквизита,
// 1 - есть реквизит
//
// Описание:
// Проверяет, есть ли в структуре метаданных документа указанного вида
// реквизит шапки с указанным названием
|
|