|
|
|
@@ -0,0 +1,686 @@
|
|
|
|
|
#Область ОбработчикиСобытийЭлементовШапкиФормы
|
|
|
|
|
|
|
|
|
|
&НаКлиенте
|
|
|
|
|
Процедура КаталогНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
|
|
|
|
|
|
|
|
|
|
СтандартнаяОбработка = Ложь;
|
|
|
|
|
ВыбратьКаталогИзДиалога();
|
|
|
|
|
|
|
|
|
|
КонецПроцедуры
|
|
|
|
|
|
|
|
|
|
#КонецОбласти
|
|
|
|
|
|
|
|
|
|
#Область ОбработчикиКомандФормы
|
|
|
|
|
|
|
|
|
|
&НаКлиенте
|
|
|
|
|
Процедура ВыбратьКаталог(Команда)
|
|
|
|
|
|
|
|
|
|
ВыбратьКаталогИзДиалога();
|
|
|
|
|
|
|
|
|
|
КонецПроцедуры
|
|
|
|
|
|
|
|
|
|
&НаКлиенте
|
|
|
|
|
Процедура Сформировать(Команда)
|
|
|
|
|
|
|
|
|
|
Если Не ЗначениеЗаполнено(Каталог) Тогда
|
|
|
|
|
ПоказатьПредупреждение(, НСтр("ru = 'Укажите каталог с файлами реестров.'"));
|
|
|
|
|
Возврат;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Результат = ПрочитатьРеестры();
|
|
|
|
|
|
|
|
|
|
Если ЗначениеЗаполнено(Результат.ТекстСообщений) Тогда
|
|
|
|
|
ПоказатьПредупреждение(, Результат.ТекстСообщений);
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
КонецПроцедуры
|
|
|
|
|
|
|
|
|
|
&НаКлиенте
|
|
|
|
|
Процедура Печать(Команда)
|
|
|
|
|
|
|
|
|
|
Если ТаблицаРеестра.Количество() = 0 Тогда
|
|
|
|
|
ПоказатьПредупреждение(, НСтр("ru = 'Список строк пуст. Укажите каталог и нажмите «Сформировать».'"));
|
|
|
|
|
Возврат;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
ТабличныйДокумент = СформироватьПечатнуюФорму();
|
|
|
|
|
ТабличныйДокумент.Показать(НСтр("ru = 'Реестр платежей'"));
|
|
|
|
|
|
|
|
|
|
КонецПроцедуры
|
|
|
|
|
|
|
|
|
|
#КонецОбласти
|
|
|
|
|
|
|
|
|
|
#Область СлужебныеПроцедурыИФункции
|
|
|
|
|
|
|
|
|
|
&НаКлиенте
|
|
|
|
|
Процедура ВыбратьКаталогИзДиалога()
|
|
|
|
|
|
|
|
|
|
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога);
|
|
|
|
|
Диалог.Заголовок = НСтр("ru = 'Каталог с файлами реестров'");
|
|
|
|
|
|
|
|
|
|
Если ЗначениеЗаполнено(Каталог) Тогда
|
|
|
|
|
Диалог.Каталог = Каталог;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Если Диалог.Выбрать() Тогда
|
|
|
|
|
Каталог = Диалог.Каталог;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
КонецПроцедуры
|
|
|
|
|
|
|
|
|
|
// Читает все xml-файлы реестров из каталога и заполняет таблицу формы.
|
|
|
|
|
//
|
|
|
|
|
// Возвращаемое значение:
|
|
|
|
|
// Структура - ТекстСообщений - Строка - сообщения об ошибках и итоги чтения.
|
|
|
|
|
//
|
|
|
|
|
&НаСервере
|
|
|
|
|
Функция ПрочитатьРеестры()
|
|
|
|
|
|
|
|
|
|
СтрокиРеестров = НоваяТаблицаСтрок();
|
|
|
|
|
Ошибки = Новый Массив;
|
|
|
|
|
Итоги = ПрочитатьКаталогФайлов(Каталог, СтрокиРеестров, Ошибки);
|
|
|
|
|
|
|
|
|
|
ТаблицаРеестра.Очистить();
|
|
|
|
|
|
|
|
|
|
Для Каждого СтрокаРеестра Из СтрокиРеестров Цикл
|
|
|
|
|
НоваяСтрока = ТаблицаРеестра.Добавить();
|
|
|
|
|
ЗаполнитьЗначенияСвойств(НоваяСтрока, СтрокаРеестра);
|
|
|
|
|
КонецЦикла;
|
|
|
|
|
|
|
|
|
|
ТекстСообщений = СтрСоединить(Ошибки, Символы.ПС);
|
|
|
|
|
|
|
|
|
|
Если Итоги.ОбработаноФайлов = 0 И Не ЗначениеЗаполнено(ТекстСообщений) Тогда
|
|
|
|
|
ТекстСообщений = НСтр("ru = 'В каталоге не найдено ни одного файла реестра.'");
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Если Итоги.ПропущеноФайлов > 0 Тогда
|
|
|
|
|
ИтогиТекст = СтрШаблон(НСтр("ru = 'Обработано файлов: %1, пропущено: %2.'"),
|
|
|
|
|
Итоги.ОбработаноФайлов, Итоги.ПропущеноФайлов);
|
|
|
|
|
ТекстСообщений = ИтогиТекст + ?(ЗначениеЗаполнено(ТекстСообщений), Символы.ПС + ТекстСообщений, "");
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Возврат Новый Структура("ТекстСообщений", ТекстСообщений);
|
|
|
|
|
|
|
|
|
|
КонецФункции
|
|
|
|
|
|
|
|
|
|
&НаСервере
|
|
|
|
|
Функция СформироватьПечатнуюФорму()
|
|
|
|
|
|
|
|
|
|
ТабличныйДокумент = Новый ТабличныйДокумент;
|
|
|
|
|
ТабличныйДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
|
|
|
|
|
ТабличныйДокумент.АвтоМасштаб = Истина;
|
|
|
|
|
|
|
|
|
|
ШрифтОбычный = Новый Шрифт("Arial", 8);
|
|
|
|
|
ШрифтЖирный = Новый Шрифт("Arial", 8, Истина);
|
|
|
|
|
ШрифтЗаголовка = Новый Шрифт("Arial", 12, Истина);
|
|
|
|
|
ЛинияРамки = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 1);
|
|
|
|
|
|
|
|
|
|
Колонки = КолонкиПечати();
|
|
|
|
|
КоличествоКолонок = Колонки.Количество();
|
|
|
|
|
ИндексСуммы = ИндексКолонкиСуммы(Колонки);
|
|
|
|
|
|
|
|
|
|
ОбластьЗаголовка = ТабличныйДокумент.Область(1, 1, 1, КоличествоКолонок);
|
|
|
|
|
ОбластьЗаголовка.Объединить();
|
|
|
|
|
ОбластьЗаголовка.Текст = НСтр("ru = 'Реестр платежей'");
|
|
|
|
|
ОбластьЗаголовка.Шрифт = ШрифтЗаголовка;
|
|
|
|
|
ОбластьЗаголовка.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
|
|
|
|
|
|
|
|
|
|
СтрокаШапки = 3;
|
|
|
|
|
|
|
|
|
|
Для Индекс = 1 По КоличествоКолонок Цикл
|
|
|
|
|
Колонка = Колонки[Индекс - 1];
|
|
|
|
|
ОбластьЯчейки = ТабличныйДокумент.Область(СтрокаШапки, Индекс);
|
|
|
|
|
ОбластьЯчейки.Текст = Колонка.Заголовок;
|
|
|
|
|
ОбластьЯчейки.Шрифт = ШрифтЖирный;
|
|
|
|
|
ОбластьЯчейки.Обвести(ЛинияРамки, ЛинияРамки, ЛинияРамки, ЛинияРамки);
|
|
|
|
|
ОбластьЯчейки.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
|
|
|
|
|
ОбластьЯчейки.ШиринаКолонки = Колонка.Ширина;
|
|
|
|
|
КонецЦикла;
|
|
|
|
|
|
|
|
|
|
НомерСтроки = СтрокаШапки + 1;
|
|
|
|
|
ИтогоСумма = 0;
|
|
|
|
|
|
|
|
|
|
Для Каждого СтрокаРеестра Из ТаблицаРеестра Цикл
|
|
|
|
|
|
|
|
|
|
Для Индекс = 1 По КоличествоКолонок Цикл
|
|
|
|
|
|
|
|
|
|
Колонка = Колонки[Индекс - 1];
|
|
|
|
|
ОбластьЯчейки = ТабличныйДокумент.Область(НомерСтроки, Индекс);
|
|
|
|
|
ОбластьЯчейки.Текст = ТекстЗначения(СтрокаРеестра[Колонка.Данные], Колонка.Формат);
|
|
|
|
|
ОбластьЯчейки.Шрифт = ШрифтОбычный;
|
|
|
|
|
ОбластьЯчейки.Обвести(ЛинияРамки, ЛинияРамки, ЛинияРамки, ЛинияРамки);
|
|
|
|
|
|
|
|
|
|
Если Колонка.Выравнивание = "Право" Тогда
|
|
|
|
|
ОбластьЯчейки.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Право;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
КонецЦикла;
|
|
|
|
|
|
|
|
|
|
ИтогоСумма = ИтогоСумма + СтрокаРеестра.Сумма;
|
|
|
|
|
НомерСтроки = НомерСтроки + 1;
|
|
|
|
|
|
|
|
|
|
КонецЦикла;
|
|
|
|
|
|
|
|
|
|
ОбластьИтога = ТабличныйДокумент.Область(НомерСтроки, 1, НомерСтроки, ИндексСуммы - 1);
|
|
|
|
|
ОбластьИтога.Объединить();
|
|
|
|
|
ОбластьИтога.Текст = НСтр("ru = 'ИТОГО:'");
|
|
|
|
|
ОбластьИтога.Шрифт = ШрифтЖирный;
|
|
|
|
|
ОбластьИтога.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Право;
|
|
|
|
|
|
|
|
|
|
ОбластьСуммы = ТабличныйДокумент.Область(НомерСтроки, ИндексСуммы);
|
|
|
|
|
ОбластьСуммы.Текст = Формат(ИтогоСумма, "ЧДЦ=2; ЧН=0");
|
|
|
|
|
ОбластьСуммы.Шрифт = ШрифтЖирный;
|
|
|
|
|
ОбластьСуммы.Обвести(ЛинияРамки, ЛинияРамки, ЛинияРамки, ЛинияРамки);
|
|
|
|
|
ОбластьСуммы.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Право;
|
|
|
|
|
|
|
|
|
|
Возврат ТабличныйДокумент;
|
|
|
|
|
|
|
|
|
|
КонецФункции
|
|
|
|
|
|
|
|
|
|
&НаСервереБезКонтекста
|
|
|
|
|
Функция КолонкиПечати()
|
|
|
|
|
|
|
|
|
|
Колонки = Новый Массив;
|
|
|
|
|
|
|
|
|
|
Колонки.Добавить(КолонкаПечати("Файл", "Файл", 22));
|
|
|
|
|
Колонки.Добавить(КолонкаПечати("№ ПП", "НомерПП", 8));
|
|
|
|
|
Колонки.Добавить(КолонкаПечати("№ распоряжения", "НомерРаспоряжения", 12));
|
|
|
|
|
Колонки.Добавить(КолонкаПечати("Дата распоряжения", "ДатаРаспоряжения", 12, "ДЛФ=D"));
|
|
|
|
|
Колонки.Добавить(КолонкаПечати("Плательщик", "Плательщик", 28));
|
|
|
|
|
Колонки.Добавить(КолонкаПечати("Счёт плательщика", "СчетПлательщика", 20));
|
|
|
|
|
Колонки.Добавить(КолонкаПечати("Сумма", "Сумма", 14, "ЧДЦ=2; ЧН=0", "Право"));
|
|
|
|
|
Колонки.Добавить(КолонкаПечати("Назначение платежа", "Назначение", 40));
|
|
|
|
|
Колонки.Добавить(КолонкаПечати("Статус", "Статус", 7));
|
|
|
|
|
|
|
|
|
|
Возврат Колонки;
|
|
|
|
|
|
|
|
|
|
КонецФункции
|
|
|
|
|
|
|
|
|
|
&НаСервереБезКонтекста
|
|
|
|
|
Функция КолонкаПечати(Заголовок, Данные, Ширина, ФорматЗначения = "", Выравнивание = "Лево")
|
|
|
|
|
|
|
|
|
|
Колонка = Новый Структура;
|
|
|
|
|
Колонка.Вставить("Заголовок", Заголовок);
|
|
|
|
|
Колонка.Вставить("Данные", Данные);
|
|
|
|
|
Колонка.Вставить("Ширина", Ширина);
|
|
|
|
|
Колонка.Вставить("Формат", ФорматЗначения);
|
|
|
|
|
Колонка.Вставить("Выравнивание", Выравнивание);
|
|
|
|
|
|
|
|
|
|
Возврат Колонка;
|
|
|
|
|
|
|
|
|
|
КонецФункции
|
|
|
|
|
|
|
|
|
|
&НаСервереБезКонтекста
|
|
|
|
|
Функция ИндексКолонкиСуммы(Колонки)
|
|
|
|
|
|
|
|
|
|
Для Индекс = 1 По Колонки.Количество() Цикл
|
|
|
|
|
Если Колонки[Индекс - 1].Данные = "Сумма" Тогда
|
|
|
|
|
Возврат Индекс;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
КонецЦикла;
|
|
|
|
|
|
|
|
|
|
Возврат Колонки.Количество();
|
|
|
|
|
|
|
|
|
|
КонецФункции
|
|
|
|
|
|
|
|
|
|
&НаСервереБезКонтекста
|
|
|
|
|
Функция ТекстЗначения(Значение, ФорматЗначения)
|
|
|
|
|
|
|
|
|
|
Если Значение = Неопределено Тогда
|
|
|
|
|
Возврат "";
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Если ТипЗнч(Значение) = Тип("Дата") И Не ЗначениеЗаполнено(Значение) Тогда
|
|
|
|
|
Возврат "";
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Если ЗначениеЗаполнено(ФорматЗначения) Тогда
|
|
|
|
|
Возврат Формат(Значение, ФорматЗначения);
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Возврат Строка(Значение);
|
|
|
|
|
|
|
|
|
|
КонецФункции
|
|
|
|
|
|
|
|
|
|
// Создаёт пустую таблицу строк реестров.
|
|
|
|
|
//
|
|
|
|
|
// Возвращаемое значение:
|
|
|
|
|
// ТаблицаЗначений - колонки строки реестра.
|
|
|
|
|
//
|
|
|
|
|
&НаСервереБезКонтекста
|
|
|
|
|
Функция НоваяТаблицаСтрок()
|
|
|
|
|
|
|
|
|
|
КвалификаторыСуммы = Новый КвалификаторыЧисла(15, 2);
|
|
|
|
|
ОписаниеСуммы = Новый ОписаниеТипов("Число", КвалификаторыСуммы);
|
|
|
|
|
ОписаниеСтроки = Новый ОписаниеТипов("Строка");
|
|
|
|
|
ОписаниеДаты = Новый ОписаниеТипов("Дата");
|
|
|
|
|
ОписаниеНомера = Новый ОписаниеТипов("Число");
|
|
|
|
|
|
|
|
|
|
Строки = Новый ТаблицаЗначений;
|
|
|
|
|
Строки.Колонки.Добавить("Файл", ОписаниеСтроки);
|
|
|
|
|
Строки.Колонки.Добавить("НомерПП", ОписаниеСтроки);
|
|
|
|
|
Строки.Колонки.Добавить("ДатаПП", ОписаниеДаты);
|
|
|
|
|
Строки.Колонки.Добавить("НомерСтроки", ОписаниеНомера);
|
|
|
|
|
Строки.Колонки.Добавить("НомерРаспоряжения", ОписаниеСтроки);
|
|
|
|
|
Строки.Колонки.Добавить("ДатаРаспоряжения", ОписаниеДаты);
|
|
|
|
|
Строки.Колонки.Добавить("Плательщик", ОписаниеСтроки);
|
|
|
|
|
Строки.Колонки.Добавить("СчетПлательщика", ОписаниеСтроки);
|
|
|
|
|
Строки.Колонки.Добавить("Сумма", ОписаниеСуммы);
|
|
|
|
|
Строки.Колонки.Добавить("Назначение", ОписаниеСтроки);
|
|
|
|
|
Строки.Колонки.Добавить("Получатель", ОписаниеСтроки);
|
|
|
|
|
Строки.Колонки.Добавить("Статус", ОписаниеСтроки);
|
|
|
|
|
|
|
|
|
|
Возврат Строки;
|
|
|
|
|
|
|
|
|
|
КонецФункции
|
|
|
|
|
|
|
|
|
|
// Читает все xml-файлы реестров из каталога и добавляет их строки в общую таблицу.
|
|
|
|
|
//
|
|
|
|
|
// Параметры:
|
|
|
|
|
// Каталог - Строка - путь к каталогу с файлами реестров к платёжным поручениям.
|
|
|
|
|
// СтрокиРеестров - ТаблицаЗначений - таблица, созданная функцией НоваяТаблицаСтрок.
|
|
|
|
|
// Ошибки - Массив из Строка - в него добавляются сообщения о файлах, которые не удалось прочитать.
|
|
|
|
|
//
|
|
|
|
|
// Возвращаемое значение:
|
|
|
|
|
// Структура - итоги чтения:
|
|
|
|
|
// * ОбработаноФайлов - Число - количество прочитанных файлов реестров;
|
|
|
|
|
// * ПропущеноФайлов - Число - количество файлов, которые не удалось прочитать.
|
|
|
|
|
//
|
|
|
|
|
&НаСервереБезКонтекста
|
|
|
|
|
Функция ПрочитатьКаталогФайлов(Каталог, СтрокиРеестров, Ошибки)
|
|
|
|
|
|
|
|
|
|
Итоги = Новый Структура("ОбработаноФайлов, ПропущеноФайлов", 0, 0);
|
|
|
|
|
|
|
|
|
|
Попытка
|
|
|
|
|
Файлы = НайтиФайлы(Каталог, "*.xml");
|
|
|
|
|
Исключение
|
|
|
|
|
Ошибки.Добавить(СтрШаблон("Каталог %1 недоступен - %2", Каталог, ИнформацияОбОшибке().Описание));
|
|
|
|
|
Возврат Итоги;
|
|
|
|
|
КонецПопытки;
|
|
|
|
|
|
|
|
|
|
Для Каждого Файл Из Файлы Цикл
|
|
|
|
|
|
|
|
|
|
Если Файл.ЭтоКаталог() Тогда
|
|
|
|
|
Продолжить;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Если ПрочитатьФайл(Файл.ПолноеИмя, СтрокиРеестров, Ошибки) Тогда
|
|
|
|
|
Итоги.ОбработаноФайлов = Итоги.ОбработаноФайлов + 1;
|
|
|
|
|
Иначе
|
|
|
|
|
Итоги.ПропущеноФайлов = Итоги.ПропущеноФайлов + 1;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
КонецЦикла;
|
|
|
|
|
|
|
|
|
|
Возврат Итоги;
|
|
|
|
|
|
|
|
|
|
КонецФункции
|
|
|
|
|
|
|
|
|
|
// Читает один файл реестра к платёжному поручению на общую сумму с реестром.
|
|
|
|
|
//
|
|
|
|
|
// Параметры:
|
|
|
|
|
// ИмяФайла - Строка - полный путь к файлу.
|
|
|
|
|
// СтрокиРеестров - ТаблицаЗначений - таблица, созданная функцией НоваяТаблицаСтрок.
|
|
|
|
|
// Ошибки - Массив из Строка - в него добавляются сообщения об ошибках чтения.
|
|
|
|
|
//
|
|
|
|
|
// Возвращаемое значение:
|
|
|
|
|
// Булево - Истина, если файл прочитан как реестр.
|
|
|
|
|
//
|
|
|
|
|
&НаСервереБезКонтекста
|
|
|
|
|
Функция ПрочитатьФайл(ИмяФайла, СтрокиРеестров, Ошибки)
|
|
|
|
|
|
|
|
|
|
ЧтениеXML = Новый ЧтениеXML;
|
|
|
|
|
|
|
|
|
|
Попытка
|
|
|
|
|
ЧтениеXML.ОткрытьФайл(ИмяФайла);
|
|
|
|
|
Исключение
|
|
|
|
|
Ошибки.Добавить(СтрШаблон("%1: файл не открыт - %2", ИмяФайлаИзПути(ИмяФайла), ИнформацияОбОшибке().Описание));
|
|
|
|
|
Возврат Ложь;
|
|
|
|
|
КонецПопытки;
|
|
|
|
|
|
|
|
|
|
Результат = Ложь;
|
|
|
|
|
|
|
|
|
|
Попытка
|
|
|
|
|
Результат = РазобратьРеестр(ЧтениеXML, ИмяФайла, СтрокиРеестров, Ошибки);
|
|
|
|
|
Исключение
|
|
|
|
|
Ошибки.Добавить(СтрШаблон("%1: ошибка разбора - %2", ИмяФайлаИзПути(ИмяФайла), ИнформацияОбОшибке().Описание));
|
|
|
|
|
КонецПопытки;
|
|
|
|
|
|
|
|
|
|
ЧтениеXML.Закрыть();
|
|
|
|
|
|
|
|
|
|
Возврат Результат;
|
|
|
|
|
|
|
|
|
|
КонецФункции
|
|
|
|
|
|
|
|
|
|
// Разбирает поток XML и добавляет строки реестра в общую таблицу.
|
|
|
|
|
//
|
|
|
|
|
// Параметры:
|
|
|
|
|
// ЧтениеXML - ЧтениеXML - открытый поток чтения.
|
|
|
|
|
// ИмяФайла - Строка - путь к файлу, для сообщений об ошибках.
|
|
|
|
|
// СтрокиРеестров - ТаблицаЗначений - таблица, созданная функцией НоваяТаблицаСтрок.
|
|
|
|
|
// Ошибки - Массив из Строка - в него добавляются сообщения об ошибках.
|
|
|
|
|
//
|
|
|
|
|
// Возвращаемое значение:
|
|
|
|
|
// Булево - Истина, если файл прочитан как реестр.
|
|
|
|
|
//
|
|
|
|
|
&НаСервереБезКонтекста
|
|
|
|
|
Функция РазобратьРеестр(ЧтениеXML, ИмяФайла, СтрокиРеестров, Ошибки)
|
|
|
|
|
|
|
|
|
|
Шапка = НоваяШапка();
|
|
|
|
|
СтрокиФайла = НоваяТаблицаСтрок();
|
|
|
|
|
|
|
|
|
|
Если Не ПрочитатьУзлы(ЧтениеXML, Шапка, СтрокиФайла) Тогда
|
|
|
|
|
Ошибки.Добавить(СтрШаблон("%1: пропущен, это не реестр к платёжному поручению", ИмяФайлаИзПути(ИмяФайла)));
|
|
|
|
|
Возврат Ложь;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
ДобавитьСтрокиФайла(СтрокиФайла, Шапка, ИмяФайла, СтрокиРеестров, Ошибки);
|
|
|
|
|
|
|
|
|
|
Возврат Истина;
|
|
|
|
|
|
|
|
|
|
КонецФункции
|
|
|
|
|
|
|
|
|
|
// Читает узлы XML, заполняя шапку реестра и строки файла.
|
|
|
|
|
//
|
|
|
|
|
// Параметры:
|
|
|
|
|
// ЧтениеXML - ЧтениеXML - открытый поток чтения.
|
|
|
|
|
// Шапка - Структура - шапка реестра.
|
|
|
|
|
// СтрокиФайла - ТаблицаЗначений - строки текущего файла.
|
|
|
|
|
//
|
|
|
|
|
// Возвращаемое значение:
|
|
|
|
|
// Булево - Истина, если корневой элемент соответствует реестру.
|
|
|
|
|
//
|
|
|
|
|
&НаСервереБезКонтекста
|
|
|
|
|
Функция ПрочитатьУзлы(ЧтениеXML, Шапка, СтрокиФайла)
|
|
|
|
|
|
|
|
|
|
ЭтоРеестр = Ложь;
|
|
|
|
|
ТекущаяСтрока = Неопределено;
|
|
|
|
|
ИмяЭлемента = "";
|
|
|
|
|
|
|
|
|
|
Пока ЧтениеXML.Прочитать() Цикл
|
|
|
|
|
|
|
|
|
|
ТипУзла = ЧтениеXML.ТипУзла;
|
|
|
|
|
|
|
|
|
|
Если ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
|
|
|
|
|
|
|
|
|
|
ИмяЭлемента = ЧтениеXML.Имя;
|
|
|
|
|
|
|
|
|
|
Если ИмяЭлемента = "ProcessRegPayOrder" Тогда
|
|
|
|
|
ЭтоРеестр = Истина;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Если ИмяЭлемента = "RegPP" Тогда
|
|
|
|
|
ТекущаяСтрока = СтрокиФайла.Добавить();
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
ИначеЕсли ТипУзла = ТипУзлаXML.Текст Тогда
|
|
|
|
|
|
|
|
|
|
Значение = СокрЛП(ЧтениеXML.Значение);
|
|
|
|
|
|
|
|
|
|
Если ТекущаяСтрока = Неопределено Тогда
|
|
|
|
|
ЗаполнитьШапку(Шапка, ИмяЭлемента, Значение);
|
|
|
|
|
Иначе
|
|
|
|
|
ЗаполнитьСтроку(ТекущаяСтрока, Шапка, ИмяЭлемента, Значение);
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
ИначеЕсли ТипУзла = ТипУзлаXML.КонецЭлемента Тогда
|
|
|
|
|
|
|
|
|
|
Если ЧтениеXML.Имя = "RegPP" Тогда
|
|
|
|
|
ТекущаяСтрока = Неопределено;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
КонецЦикла;
|
|
|
|
|
|
|
|
|
|
Возврат ЭтоРеестр;
|
|
|
|
|
|
|
|
|
|
КонецФункции
|
|
|
|
|
|
|
|
|
|
// Переносит строки файла в общую таблицу и сверяет их сумму с суммой платёжного поручения.
|
|
|
|
|
//
|
|
|
|
|
// Параметры:
|
|
|
|
|
// СтрокиФайла - ТаблицаЗначений - строки текущего файла.
|
|
|
|
|
// Шапка - Структура - шапка реестра.
|
|
|
|
|
// ИмяФайла - Строка - путь к файлу, для сообщений об ошибках.
|
|
|
|
|
// СтрокиРеестров - ТаблицаЗначений - общая таблица строк реестров.
|
|
|
|
|
// Ошибки - Массив из Строка - в него добавляются сообщения об ошибках.
|
|
|
|
|
//
|
|
|
|
|
&НаСервереБезКонтекста
|
|
|
|
|
Процедура ДобавитьСтрокиФайла(СтрокиФайла, Шапка, ИмяФайла, СтрокиРеестров, Ошибки)
|
|
|
|
|
|
|
|
|
|
СуммаСтрок = 0;
|
|
|
|
|
|
|
|
|
|
Для Каждого СтрокаФайла Из СтрокиФайла Цикл
|
|
|
|
|
|
|
|
|
|
СтрокаФайла.Файл = ИмяФайлаИзПути(ИмяФайла);
|
|
|
|
|
СтрокаФайла.НомерПП = Шапка.НомерПП;
|
|
|
|
|
СтрокаФайла.ДатаПП = Шапка.ДатаПП;
|
|
|
|
|
СтрокаФайла.Получатель = Шапка.Получатель;
|
|
|
|
|
СуммаСтрок = СуммаСтрок + СтрокаФайла.Сумма;
|
|
|
|
|
|
|
|
|
|
НоваяСтрока = СтрокиРеестров.Добавить();
|
|
|
|
|
ЗаполнитьЗначенияСвойств(НоваяСтрока, СтрокаФайла);
|
|
|
|
|
|
|
|
|
|
КонецЦикла;
|
|
|
|
|
|
|
|
|
|
Если Шапка.СуммаПП <> 0 И СуммаСтрок <> Шапка.СуммаПП Тогда
|
|
|
|
|
Ошибки.Добавить(СтрШаблон("%1: сумма строк %2 не равна сумме платёжного поручения %3",
|
|
|
|
|
ИмяФайлаИзПути(ИмяФайла), Формат(СуммаСтрок, "ЧДЦ=2; ЧН=0"), Формат(Шапка.СуммаПП, "ЧДЦ=2; ЧН=0")));
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
КонецПроцедуры
|
|
|
|
|
|
|
|
|
|
// Возвращает пустую шапку платёжного поручения.
|
|
|
|
|
//
|
|
|
|
|
// Возвращаемое значение:
|
|
|
|
|
// Структура - реквизиты шапки реестра.
|
|
|
|
|
//
|
|
|
|
|
&НаСервереБезКонтекста
|
|
|
|
|
Функция НоваяШапка()
|
|
|
|
|
|
|
|
|
|
Шапка = Новый Структура;
|
|
|
|
|
Шапка.Вставить("НомерПП", "");
|
|
|
|
|
Шапка.Вставить("ДатаПП", Дата(1, 1, 1));
|
|
|
|
|
Шапка.Вставить("СуммаПП", 0);
|
|
|
|
|
Шапка.Вставить("НазначениеПП", "");
|
|
|
|
|
Шапка.Вставить("Получатель", "");
|
|
|
|
|
Шапка.Вставить("Исполнитель", "");
|
|
|
|
|
Шапка.Вставить("Телефон", "");
|
|
|
|
|
|
|
|
|
|
Возврат Шапка;
|
|
|
|
|
|
|
|
|
|
КонецФункции
|
|
|
|
|
|
|
|
|
|
// Заполняет реквизит шапки по имени элемента XML.
|
|
|
|
|
//
|
|
|
|
|
// Параметры:
|
|
|
|
|
// Шапка - Структура - шапка реестра.
|
|
|
|
|
// ИмяЭлемента - Строка - имя элемента XML.
|
|
|
|
|
// Значение - Строка - текст элемента.
|
|
|
|
|
//
|
|
|
|
|
&НаСервереБезКонтекста
|
|
|
|
|
Процедура ЗаполнитьШапку(Шапка, ИмяЭлемента, Значение)
|
|
|
|
|
|
|
|
|
|
Если ИмяЭлемента = "NOM_PP" Тогда
|
|
|
|
|
Шапка.НомерПП = Значение;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Если ИмяЭлемента = "DATE_PP" Тогда
|
|
|
|
|
Шапка.ДатаПП = РазобратьДату(Значение);
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Если ИмяЭлемента = "SUM_PP" Тогда
|
|
|
|
|
Шапка.СуммаПП = РазобратьСумму(Значение);
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Если ИмяЭлемента = "PURPOSE_PP" Тогда
|
|
|
|
|
Шапка.НазначениеПП = Значение;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Если ИмяЭлемента = "FIO_ISP" Тогда
|
|
|
|
|
Шапка.Исполнитель = Значение;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Если ИмяЭлемента = "TEL_ISP" Тогда
|
|
|
|
|
Шапка.Телефон = Значение;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
КонецПроцедуры
|
|
|
|
|
|
|
|
|
|
// Заполняет реквизит строки реестра по имени элемента XML.
|
|
|
|
|
//
|
|
|
|
|
// Параметры:
|
|
|
|
|
// Строка - СтрокаТаблицыЗначений - строка реестра.
|
|
|
|
|
// Шапка - Структура - шапка реестра, заполняется получателем средств.
|
|
|
|
|
// ИмяЭлемента - Строка - имя элемента XML.
|
|
|
|
|
// Значение - Строка - текст элемента.
|
|
|
|
|
//
|
|
|
|
|
&НаСервереБезКонтекста
|
|
|
|
|
Процедура ЗаполнитьСтроку(Строка, Шапка, ИмяЭлемента, Значение)
|
|
|
|
|
|
|
|
|
|
Если ИмяЭлемента = "NAME_RCV" Тогда
|
|
|
|
|
Шапка.Получатель = Значение;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Если ИмяЭлемента = "NOM_LINE" И ЗначениеЗаполнено(Значение) Тогда
|
|
|
|
|
Строка.НомерСтроки = Число(Значение);
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Если ИмяЭлемента = "NOM_PAY_DOC" Тогда
|
|
|
|
|
Строка.НомерРаспоряжения = Значение;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Если ИмяЭлемента = "DATE_PAY_DOC" Тогда
|
|
|
|
|
Строка.ДатаРаспоряжения = РазобратьДату(Значение);
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Если ИмяЭлемента = "DATE_REESTR_PP" И Не ЗначениеЗаполнено(Строка.ДатаРаспоряжения) Тогда
|
|
|
|
|
Строка.ДатаРаспоряжения = РазобратьДату(Значение);
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Если ИмяЭлемента = "SUM_REESTR_PP" Тогда
|
|
|
|
|
Строка.Сумма = РазобратьСумму(Значение);
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Если ИмяЭлемента = "NAME_PLAT" Тогда
|
|
|
|
|
Строка.Плательщик = ИмяПлательщика(Значение);
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Если ИмяЭлемента = "FIO_PLAT" И Не ЗначениеЗаполнено(Строка.Плательщик) Тогда
|
|
|
|
|
Строка.Плательщик = Значение;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Если ИмяЭлемента = "NOM_LS_PLAT" Тогда
|
|
|
|
|
Строка.СчетПлательщика = Значение;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Если ИмяЭлемента = "PURPOSE" Тогда
|
|
|
|
|
Строка.Назначение = Значение;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Если ИмяЭлемента = "PAYSTATUS" Тогда
|
|
|
|
|
Строка.Статус = Значение;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
КонецПроцедуры
|
|
|
|
|
|
|
|
|
|
// Извлекает имя плательщика из строки вида "ФИО//адрес//".
|
|
|
|
|
//
|
|
|
|
|
// Параметры:
|
|
|
|
|
// Значение - Строка - значение элемента NAME_PLAT.
|
|
|
|
|
//
|
|
|
|
|
// Возвращаемое значение:
|
|
|
|
|
// Строка - имя плательщика без адреса.
|
|
|
|
|
//
|
|
|
|
|
&НаСервереБезКонтекста
|
|
|
|
|
Функция ИмяПлательщика(Значение)
|
|
|
|
|
|
|
|
|
|
Если Не ЗначениеЗаполнено(Значение) Тогда
|
|
|
|
|
Возврат "";
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Части = СтрРазделить(Значение, "//", Ложь);
|
|
|
|
|
|
|
|
|
|
Если Части.Количество() = 0 Тогда
|
|
|
|
|
Возврат "";
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Возврат СокрЛП(Части[0]);
|
|
|
|
|
|
|
|
|
|
КонецФункции
|
|
|
|
|
|
|
|
|
|
// Преобразует сумму в копейках из файла в рубли.
|
|
|
|
|
//
|
|
|
|
|
// Параметры:
|
|
|
|
|
// Значение - Строка - значение элемента с суммой в копейках.
|
|
|
|
|
//
|
|
|
|
|
// Возвращаемое значение:
|
|
|
|
|
// Число - сумма в рублях.
|
|
|
|
|
//
|
|
|
|
|
&НаСервереБезКонтекста
|
|
|
|
|
Функция РазобратьСумму(Значение)
|
|
|
|
|
|
|
|
|
|
Если Не ЗначениеЗаполнено(Значение) Тогда
|
|
|
|
|
Возврат 0;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
СтрокаСуммы = СтрЗаменить(СтрЗаменить(Значение, " ", ""), Символ(160), "");
|
|
|
|
|
|
|
|
|
|
Если Не СтрПодобнаПоРегулярномуВыражению(СтрокаСуммы, "^-?[0-9]+$") Тогда
|
|
|
|
|
Возврат 0;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Возврат Число(СтрокаСуммы) / 100;
|
|
|
|
|
|
|
|
|
|
КонецФункции
|
|
|
|
|
|
|
|
|
|
// Преобразует дату из формата ГГГГ-ММ-ДД в дату.
|
|
|
|
|
//
|
|
|
|
|
// Параметры:
|
|
|
|
|
// Значение - Строка - значение элемента с датой.
|
|
|
|
|
//
|
|
|
|
|
// Возвращаемое значение:
|
|
|
|
|
// Дата - прочитанная дата, при ошибке - пустая дата.
|
|
|
|
|
//
|
|
|
|
|
&НаСервереБезКонтекста
|
|
|
|
|
Функция РазобратьДату(Значение)
|
|
|
|
|
|
|
|
|
|
ПустаяДата = Дата(1, 1, 1);
|
|
|
|
|
|
|
|
|
|
Если Не ЗначениеЗаполнено(Значение) Тогда
|
|
|
|
|
Возврат ПустаяДата;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Если Не СтрПодобнаПоРегулярномуВыражению(Значение, "^[0-9]{4}-[0-9]{2}-[0-9]{2}") Тогда
|
|
|
|
|
Возврат ПустаяДата;
|
|
|
|
|
КонецЕсли;
|
|
|
|
|
|
|
|
|
|
Части = СтрРазделить(Значение, "-");
|
|
|
|
|
|
|
|
|
|
Попытка
|
|
|
|
|
Возврат Дата(Число(Части[0]), Число(Части[1]), Число(Лев(Части[2], 2)));
|
|
|
|
|
Исключение
|
|
|
|
|
Возврат ПустаяДата;
|
|
|
|
|
КонецПопытки;
|
|
|
|
|
|
|
|
|
|
КонецФункции
|
|
|
|
|
|
|
|
|
|
// Возвращает имя файла без пути.
|
|
|
|
|
//
|
|
|
|
|
// Параметры:
|
|
|
|
|
// Путь - Строка - полный путь к файлу.
|
|
|
|
|
//
|
|
|
|
|
// Возвращаемое значение:
|
|
|
|
|
// Строка - имя файла с расширением.
|
|
|
|
|
//
|
|
|
|
|
&НаСервереБезКонтекста
|
|
|
|
|
Функция ИмяФайлаИзПути(Путь)
|
|
|
|
|
|
|
|
|
|
Части = СтрРазделить(Путь, ПолучитьРазделительПути());
|
|
|
|
|
|
|
|
|
|
Возврат Части[Части.Количество() - 1];
|
|
|
|
|
|
|
|
|
|
КонецФункции
|
|
|
|
|
|
|
|
|
|
#КонецОбласти
|
