Конвертация данных. Передача из ПВД

@OverDozero · Регистрация: 07.04.2011

Студворк — интернет-сервис помощи студентам

Всем доброго времени суток.
Задача:из табличной части документа источника необходимо создать такое же количество документов в приемнике.По определенным критериям.
Например: В ТЧ источника склады, и номенклатура, которая привязана к этим складам.
Выглядит так:
Склад 1_номенклатура 1
Склад 1_номенклатура 2
...
Склад 1_номенклатура N
Потом склад 2 и тд..

Вот и нужно разделить по количеству складов в документе на новые документы, с переносом номенклатуры на этих складах.
Собственно сабж:

Для этого сделал отдельное ПВД, которое разбивает документы, и в цикле вызываю ПКО выгрузки документа.

1C
1
2
3
4
5
6
ВходящиеДанные = Новый Структура("ТоварыВС");
 
//Для переноса товаров именно этого склада
ВходящиеДанные.ТоварыВС = Новый ТаблицаЗначений();
ВходящиеДанные.ТоварыВС.Колонки.Добавить("Цена");//
ВходящиеДанные.ТоварыВС.Колонки.Добавить("Товар");//имеет тип в приемнике "СправочникСсылка.Номенклатура"

В запросе выполняется выборка, обход по группировкам и заполнение таблицы значений данными товаров

1C
1
2
3
4
5
6
СтрокаТЗ =  ВходящиеДанные.ТоварыВС.Добавить();
СтрокаТЗ.Цена = ВыборкаПоТоварамСклада.Цена;
//и тд
 
//после заполнения товаров по каждому складу вызываю ПКО 
ВыгрузитьПоПравилу(,,ВходящиеДанные,,"СНТ_СчетИсходящийТЕСТ");

И так как Товар это ссылочный тип - описываю ПКО для добавления номенклатуры
ПКО:ДобавитьНоменклатуру,
ПКС:
Код
Наименование
Артикул

И в ПКО "СНТ_СчетИсходящийТЕСТ", для табличной части ставлю флажок "Получить из входящих данных"
Не для каждого реквизита ТЧ флажок,а именно на уровне ПКГС.

В табличной части приемника у меня есть поле "товар" с правилом конвертации "ПКО:ДобавитьНоменклатуру"
То есть в итоге у меня в структуре "ВходящиеДанные" есть поле "Товар", соответствующее полю "Товар" в ПКГС,которое ссылочного типа.

Когда вызывается правило выгрузки "СНТ_СчетИсходящийТЕСТ" - заканчивается ошибкой

Кликните здесь для просмотра всего текста

Ошибка получения свойства объекта из входящих данных
ПКО = ДобавлениеИСопоставлениеНоменклатураТЕСТ (Справочник: Номенклатура)
ПКС = 1 (--> Код)
Объект = Структура (Структура)
СвойствоПриемника = Код (Строка)
ОписаниеОшибки = Получение элемента по индексу для значения не определено
ПозицияМодуля = Обработка.УниверсальныйОбменДаннымиXML.М одульОбъекта(8282)
КодСообщения = 68

Ошибка в обработчике события ПередОбработкойПравилаВыгрузки
ПВД = ТМЗ_СчетИсходящий00001
Обработчик = ПередОбработкойВыгрузкиДанных
ОписаниеОшибки = Ошибка получения свойства объекта из входящих данных
ПКО = ДобавлениеИСопоставлениеНоменклатураТЕСТ (Справочник: Номенклатура)
ПКС = 1 (--> Код)
Объект = Структура (Структура)
СвойствоПриемника = Код (Строка)
ОписаниеОшибки = Получение элемента по индексу для значения не определено
ПозицияМодуля = Обработка.УниверсальныйОбменДаннымиXML.М одульОбъекта(8282)
КодСообщения = 68
ПозицияМодуля = Обработка.УниверсальныйОбменДаннымиXML.М одульОбъекта(1693)
КодСообщения = 31

Ошибка при выгрузке данных: {Обработка.УниверсальныйОбменДаннымиXML. МодульОбъекта(1716)}: Ошибка в обработчике события ПередОбработкойПравилаВыгрузки
ПВД = ТМЗ_СчетИсходящий00001
Обработчик = ПередОбработкойВыгрузкиДанных
ОписаниеОшибки = Ошибка получения свойства объекта из входящих данных
ПКО = ДобавлениеИСопоставлениеНоменклатураТЕСТ (Справочник: Номенклатура)
ПКС = 1 (--> Код)
Объект = Структура (Структура)
СвойствоПриемника = Код (Строка)
ОписаниеОшибки = Получение элемента по индексу для значения не определено
ПозицияМодуля = Обработка.УниверсальныйОбменДаннымиXML.М одульОбъекта(8282)
КодСообщения = 68
ПозицияМодуля = Обработка.УниверсальныйОбменДаннымиXML.М одульОбъекта(1693)
КодСообщения = 31

Вроде и передается в ПКГС,в поле "Товар" структура, которая содержится в строке таблицы значений с наименованием поля "Товар" - в чем ошибка?

Добавлено через 5 часов 18 минут
Методом тыка было выяснено что эта ошибка возникает в том случае, когда в ПКС не установлен источник.
В этом случае в ПКС нужно переменной "Значение" обязательно что-то присвоить.

Видимо проблема в том, что правило добавления номенклатуры вызывается не через "ВыгрузитьПоПравилу", а в ходе выполнения основного правила.То есть явно структура данных не передается через "ВыгрузитьПоПравилу"

Вопрос риторический, но все же..что делать?)

@Dethmontt · 04.06.2020, 02:31

ничего не понял....
1. Зачем?

Сообщение от OverDozero

И в ПКО "СНТ_СчетИсходящийТЕСТ", для табличной части ставлю флажок "Получить из входящих данных"
Не для каждого реквизита ТЧ флажок,а именно на уровне ПКГС.

Добавлено через 6 минут
И никаких входящих данных, они же у тебя уже все есть в ТЗ

1C
1
ВыгрузитьПоПравилу(ВходящиеДанные,,,,"СНТ_СчетИсходящийТЕСТ");

@OverDozero · 04.06.2020, 11:48 **[ТС]**

У меня нет объекта выборки,и стоит вид обработки "произвольный алгоритм",т.к. я из сотни документов собираю запросом только подходящие.
Все отрабатывает. Именно проблема с передачей параметров ПКО подбора и добавления номенклатуры для строки ТЧ.

Добавлено через 2 часа 59 минут
Да и еще непонятка..В ПВД, в событии "Перед выгрузкой" написано

1C
1
2
3
4
5
Если Объект.флНакладная ИЛИ Объект.флСчетНаОплату ИЛИ Объект.Контрагент.Тип <> Перечисления.ТипыКонтрагентов.ФЛ Тогда
    Отказ = ИСТИНА;
Иначе
Сообщить(Объект.Ссылка);
КонецЕсли;

Далее код обхода...

1C
1
2
ИсходящиеДанные = Новый Структура("ТоварыВС, Дата, ДатаОтгрузкиТовара, Номер, Организация, БезДоговора,
|ДоговорПоставки, АдресДоставки, Грузополучатель,Грузоотправитель, Получатель, СкладОтправитель, Поставщик, РегистрационныйНомерИСЭСФ");

Отбирается в "Сообщить(Объект.Ссылка);" верно,а вот код отрабатывает все объекты в заданном периоде..Почему?
Отказ не прерывает выгрузку?
в ПВД указан "Источник",и "Стандартная выборка"

Добавлено через 4 часа 13 минут
Проблема решена = )

@Dethmontt · 05.06.2020, 03:41

Сообщение от OverDozero

Отказ не прерывает выгрузку?

Прерывает!!! Стандартную выгрузку!

Но ты же хочешь через "Попу" сделать

И самостоятельно инициализируешь исходящие данные, которые потом передаешь в ПКО

Добавлено через 49 секунд

Сообщение от OverDozero

У меня нет объекта выборки,и стоит вид обработки "произвольный алгоритм",т.к. я из сотни документов собираю запросом только подходящие.

Это ничего не меняет, и произвольным алгоритмом ~~можно~~ НУЖНО использовать стандартную выгрузку

@OverDozero · 05.06.2020, 10:00 **[ТС]**

Сообщение от Dethmontt

Но ты же хочешь через "Попу" сделать

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
ОчиститьСообщения();
Если Объект.флНакладная ИЛИ Объект.флСчетНаОплату ИЛИ Объект.Контрагент.Тип <> Перечисления.ТипыКонтрагентов.ФЛ Тогда
    Отказ = ИСТИНА;
КонецЕсли; 
  
ИсходящиеДанные = Новый Структура("ТоварыВС, Дата, ДатаОтгрузкиТовара, Номер, Организация, БезДоговора,
|ДоговорПоставки, АдресДоставки, Грузополучатель,Грузоотправитель, Получатель, СкладОтправитель, Поставщик,
|РегистрационныйНомерИСЭСФ, флНакладная, флСчетНаОплату, этоФизЛицо");
 
ИсходящиеДанные.ТоварыВС = Новый ТаблицаЗначений();
ИсходящиеДанные.ТоварыВС.Колонки.Добавить("Цена");//
ИсходящиеДанные.ТоварыВС.Колонки.Добавить("Товар");//Товар//заменяемыйтовар
ИсходящиеДанные.ТоварыВС.Колонки.Добавить("ТоварНаименование");//По условию или полное название или само название
ИсходящиеДанные.ТоварыВС.Колонки.Добавить("Количество");//Кол
ИсходящиеДанные.ТоварыВС.Колонки.Добавить("ЕдиницаИзмерения");//796
ИсходящиеДанные.ТоварыВС.Колонки.Добавить("ЕдиницаИзмеренияКод");//796
ИсходящиеДанные.ТоварыВС.Колонки.Добавить("СтавкаНДС");//
ИсходящиеДанные.ТоварыВС.Колонки.Добавить("СтавкаНДСЧисло");//
ИсходящиеДанные.ТоварыВС.Колонки.Добавить("СуммаБезНалогов");//ОбъектКоллекции.СуммаСНДС - ОбъектКоллекции.СуммаНДС
ИсходящиеДанные.ТоварыВС.Колонки.Добавить("ОборотПоРеализации");//ОбъектКоллекции.СуммаСНДС - ОбъектКоллекции.СуммаНДС;
ИсходящиеДанные.ТоварыВС.Колонки.Добавить("СуммаНДС");//ОбъектКоллекции.СуммаНДС
ИсходящиеДанные.ТоварыВС.Колонки.Добавить("Сумма");//ОбъектКоллекции.СуммаСНДС
ИсходящиеДанные.ТоварыВС.Колонки.Добавить("ОблагаемыйИмпорт");//ОбъектКоллекции.СуммаСНДС - ОбъектКоллекции.СуммаНДС
ИсходящиеДанные.ТоварыВС.Колонки.Добавить("КодТНВЭД");//ОбъектКоллекции.СуммаСНДС - ОбъектКоллекции.СуммаНДС
 
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
|   ВЫБОР
|       КОГДА Товары.Склад = ЗНАЧЕНИЕ(Справочник.Склады.ПустаяСсылка)
|           ТОГДА Товары.Ссылка.Склад
|       ИНАЧЕ Товары.Склад
|   КОНЕЦ КАК Склад,
|   ВЫБОР
|       КОГДА Товары.ЗаменяемыйТовар = ЗНАЧЕНИЕ(Справочник.Номенклатура.ПустаяСсылка)
|           ТОГДА Товары.Товар
|       ИНАЧЕ Товары.ЗаменяемыйТовар
|   КОНЕЦ КАК Товар,
|   Товары.Цена КАК Цена,
|   Товары.Кол КАК Количество,
|   Товары.СуммаСНДС - Товары.СуммаНДС КАК СуммаБезНалогов,
|   Товары.СуммаСНДС - Товары.СуммаНДС КАК ОборотПоРеализации,
|   Товары.СуммаСНДС - Товары.СуммаНДС КАК ОблагаемыйИмпорт,
|   Товары.СуммаСНДС КАК Сумма,
|   ""796"" КАК ЕдиницаИзмерения,
|   ""796"" КАК ЕдиницаИзмеренияКод,
|   ""000000001"" КАК СтавкаНДС,
|   12 КАК СтавкаНДСЧисло,
|   Товары.СуммаНДС КАК СуммаНДС
|ИЗ
|   Документ.ТМЗ_СчетИсходящий.Товары КАК Товары
|ГДЕ
|   Товары.Ссылка = &Ссылка
 
|СГРУППИРОВАТЬ ПО
|   Товары.Склад,
|   Товары.Цена,
|   Товары.Кол,
|   Товары.СуммаСНДС,
|   Товары.СуммаНДС,
|   ВЫБОР
|       КОГДА Товары.ЗаменяемыйТовар = ЗНАЧЕНИЕ(Справочник.Номенклатура.ПустаяСсылка)
|           ТОГДА Товары.Товар
|       ИНАЧЕ Товары.ЗаменяемыйТовар
|   КОНЕЦ,
|   ВЫБОР
|       КОГДА Товары.Склад = ЗНАЧЕНИЕ(Справочник.Склады.ПустаяСсылка)
|           ТОГДА Товары.Ссылка.Склад
|       ИНАЧЕ Товары.Склад
|   КОНЕЦ
|ИТОГИ ПО
|   Склад"; 
 
Запрос.УстановитьПараметр("Ссылка", Объект.Ссылка);
ВыборкаПоСкладу = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам,"Склад");
ПорядковыйНомерДокументаПоСкладу = 0;
 
Пока  ВыборкаПоСкладу.Следующий() Цикл
    
    ИсходящиеДанные.Дата                = НачалоДня(Объект.Дата);
    ИсходящиеДанные.ДатаОтгрузкиТовара = НачалоДня(Объект.Дата);
    ПорядковыйНомерДокументаПоСкладу   = ПорядковыйНомерДокументаПоСкладу + 1;
    ИсходящиеДанные.Номер              = Объект.Номер + "_" + ПорядковыйНомерДокументаПоСкладу;      
    ИсходящиеДанные.Организация      = Объект.Фирма;
    ИсходящиеДанные.БезДоговора      = ИСТИНА;
    ИсходящиеДанные.Грузополучатель      = Объект.Контрагент;
    ИсходящиеДанные.Грузоотправитель   = Объект.Фирма;
    ИсходящиеДанные.Получатель            = Объект.Фирма;   
    ИсходящиеДанные.Поставщик          = Объект.Фирма;   
    ИсходящиеДанные.СкладОтправитель   = Объект.Склад;
    ИсходящиеДанные.РегистрационныйНомерИСЭСФ = Строка(Объект.Склад);  
    
    ВыборкаДетальныеЗаписи = ВыборкаПоСкладу.Выбрать();
    
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл         
        СтрокаТЗ                       = ИсходящиеДанные.ТоварыВС.Добавить();
        СтрокаТЗ.Цена                  = ВыборкаДетальныеЗаписи.Цена;
        СтрокаТЗ.Товар                    = ВыборкаДетальныеЗаписи.Товар;
        СтрокаТЗ.ТоварНаименование     = ВыборкаДетальныеЗаписи.Товар.Наименование;
        СтрокаТЗ.Количество          = ВыборкаДетальныеЗаписи.Количество;
        СтрокаТЗ.ЕдиницаИзмерения      = ВыборкаДетальныеЗаписи.ЕдиницаИзмерения;
        СтрокаТЗ.ЕдиницаИзмеренияКод   = ВыборкаДетальныеЗаписи.ЕдиницаИзмеренияКод;
        СтрокаТЗ.СтавкаНДС                = ВыборкаДетальныеЗаписи.СтавкаНДС;
        СтрокаТЗ.СтавкаНДСЧисло          = ВыборкаДетальныеЗаписи.СтавкаНДСЧисло;
        СтрокаТЗ.СуммаБезНалогов        = ВыборкаДетальныеЗаписи.СуммаБезНалогов;
        СтрокаТЗ.ОборотПоРеализации    = ВыборкаДетальныеЗаписи.ОборотПоРеализации;
        СтрокаТЗ.СуммаНДС              = ВыборкаДетальныеЗаписи.СуммаНДС;     
        СтрокаТЗ.Сумма                    = ВыборкаДетальныеЗаписи.Сумма;   
        СтрокаТЗ.ОблагаемыйИмпорт      = ВыборкаДетальныеЗаписи.ОблагаемыйИмпорт;
        СтрокаТЗ.КодТНВЭД              = ВыборкаДетальныеЗаписи.Товар.ТНВЭД;        
    
    КонецЦикла;//ВыборкаДетальныеЗаписи  
    ВыгрузитьПоПравилу(ИсходящиеДанные,,,,"СНТ_СчетИсходящийТЕСТ");
    //Очистить таблицу значений перед каждой итерацией заполнения
    ИсходящиеДанные.ТоварыВС.Очистить();
    ПорядковыйНомерДокументаПоСкладу = 0;
КонецЦикла;//ВыборкаПоСкладам

ПВД,событие "Перед выгрузкой"
Объект выборки:ДокументСсылка.ТМЗ_СчетИсходящий
Способ выборки:Стандартная выборка
Правило конвертации в ПВД:СНТ_СчетИсходящийТЕСТ

ПКО:СНТ_СчетИсходящийТЕСТ
Источник:ДокументСсылка.ТМЗ_СчетИсходящи й
Приемник:ДокументСсылка.СНТ

Если отказ работает, то какого ... у меня выгружаются в файл все документы, которые попадают и под ограничения,и левые документы?

Я вот в это въехать не могу.

Я в рабочем алгоритме в ПВД в "Перед обработкой" все выбрал..в в этом случае у меня передается 8 ссылок(как раз то количество, которое реально)
А в этом коде, хоть и идет отсев - все равно выгружается.

Или уже нужно отсеивать в ПКО "СНТ_СчетИсходящийТЕСТ" - тогда не понимаю смысла использования
Если Объект.флНакладная ИЛИ Объект.флСчетНаОплату ИЛИ Объект.Контрагент.Тип <> Перечисления.ТипыКонтрагентов.ФЛ Тогда
Отказ = ИСТИНА;
КонецЕсли; в ПВД в "Перед выгрузкой"

Вот этот момент можно растолковать?

Добавлено через 3 часа 6 минут
Доперло...сомневаюсь, но кажется так..Отказ НЕ ПРЕРЫВАЕТ обработку выборки.
Заблуждался, думая что отказ прерывает дальнейшее выполнение моего алгоритма.
Нужно было так:
Если Объект.флНакладная ИЛИ Объект.флСчетНаОплату ИЛИ Объект.Контрагент.Тип <> Перечисления.ТипыКонтрагентов. ФЛ Тогда
Отказ = ИСТИНА;
ИНАЧЕ
МойАлгоритм;
КонецЕсли;

@Dethmontt · 05.06.2020, 12:29

Сообщение от OverDozero

Доперло...сомневаюсь, но кажется так..Отказ НЕ ПРЕРЫВАЕТ обработку выборки.

Стандартную прерывает! Инициализированную тобой ты должен прерывать сам.

@OverDozero · 05.06.2020, 13:59 **[ТС]**

Сообщение от Dethmontt

Стандартную прерывает! Инициализированную тобой ты должен прерывать сам.

Я уже сделал через стандартный алгоритм.Не запускал сам выборку.
ПКО:
Источник : ДокументСсылка.ТМЗ_СчетИсходящий
Способ выборки: Стандартная выборка
В событии "Перед обработкой"

Если Объект.флНакладная ИЛИ Объект.флСчетНаОплату ИЛИ Объект.Контрагент.Тип <> Перечисления.ТипыКонтрагентов.ФЛ Тогда
Сообщить("Отказ для:" + Объект.Ссылка);
Отказ = ИСТИНА;
КонецЕсли;
Сообщить("После отказа:" + Объект.Ссылка);

В логе:
Сообщить("Отказ для:" + Счет №1);
Сообщить("После отказа:" + Счет №1);

Сообщить("Отказ для:" + Счет №2);
Сообщить("После отказа:" + Счет №2);

Парные сообщения. То есть после отказа продолжалось выполнение моего алгоритма.
Пока я не вынес эту часть в блок "Иначе"

@Dethmontt · 05.06.2020, 15:23

OverDozero, да раздели ты уже наконец-то Событие ПередОбработкой и Выгрузку

Это разные события

Добавлено через 40 секунд
Отказ прекращает ВЫГРУЗКУ! Не обработку события ПередОбработкой

Добавлено через 4 минуты
Обработчики "Правила выгрузки данных"

Перед обработкой

Условия возникновения события

Событие выполняется перед обработкой каждого правила выгрузки один раз. Используется для установки дополнительных параметров перед выгрузкой данных, для переопределения выборки объектов, подлежащей выгрузке, либо для выгрузки дополнительной информации

Параметры:

Отказ - Булево. Если установить значение Истина, то выгрузка данных по данному правилу не производится

Параметры - Структура, в которой хранятся переменные доступные во всех обработчиках

ИмяПКО - Строка. Имя правила конвертации объектов, указанное по умолчанию в правиле выгрузки данных. При выгрузке конкретных объектов может быть изменено

Правило - ссылка на данное правило выгрузки данных

ИсходящиеДанные - Произвольный. Произвольные вспомогательные данные, доступные при выгрузке объектов выборки

ВыборкаДанных - Запрос, Результат запроса, Выборка из результата запроса или произвольная коллекция выгружаемых объектов. Используется, когда способ выгрузки данных - Произвольный алгоритм. Если определить данную переменную, то обход коллекции и выгрузка объектов будет осуществляться автоматически

Важно:
Если для выборки данных ПВД используется произвольный алгоритм и в обработчике ПВД "Перед обработкой" инициируется параметр ВыборкаДанных, то для ПКО следует установить признак "Не запоминать выгруженные объекты".

Добавлено через 4 минуты
Если бы ты написал вот так, то и не узнал бы как работает событие ПередОбработкой

1C
1
ВыборкаДанных = ИсходящиеДанные;

Добавлено через 1 минуту
Так и думал бы что установка булевого значения в коде может прервать его ВЫПОЛНЕНИЕ

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

Конвертация данных. Передача из ПВД

Решение