1С-Bitrix. Выгрузка множественного свойства.

1. Добавить в схему возможность выгрузки значений множественного свойства.

2. Указать, что свойство множественное в классификаторе

XDTOСвойство 				    = ПараметрыОбмена.МояФабрикаXDTO.Создать(XDTOСвойствоТип);  
XDTOСвойство.Ид 			    = XMLСтрока(ТекСвойство.Идентификатор);
XDTOСвойство.НомерВерсии 	    = Б_ОбщиеПроцедурыИФункцииОбменаССайтом.ПолучитьВерсиюОбъекта(ПараметрыОбмена, ТекСвойство.ВерсияДанных, "Свойств");
XDTOСвойство.ПометкаУдаления    = XMLСтрока(ТекСвойство.ПометкаУдаления);
XDTOСвойство.Наименование	    = Лев(ТекСвойство.СвойствоНаименование, 250);
//mike(b) множественные
XDTOСвойство.Множественное	    = КастомныеПроцедурыСервер.ЭтоМножественноеСвойство(ТекСвойство.СвойствоНоменклатуры);
//mike(е) множественные

XDTOСвойство = ПараметрыОбмена.МояФабрикаXDTO.Создать(XDTOСвойствоТип);

XDTOСвойство.Ид = XMLСтрока(ТекСвойство.Идентификатор);

XDTOСвойство.НомерВерсии = Б_ОбщиеПроцедурыИФункцииОбменаССайтом.ПолучитьВерсиюОбъекта(ПараметрыОбмена, ТекСвойство.ВерсияДанных, "Свойств");

XDTOСвойство.ПометкаУдаления = XMLСтрока(ТекСвойство.ПометкаУдаления);

XDTOСвойство.Наименование = Лев(ТекСвойство.СвойствоНаименование, 250);

//mike(b) множественные

XDTOСвойство.Множественное = КастомныеПроцедурыСервер.ЭтоМножественноеСвойство(ТекСвойство.СвойствоНоменклатуры);

//mike(е) множественные

3. Выгрузить свойства как множественные

ВыборкаСвойств = Выборка.Выбрать();
XDTOЗначенияСвойств = ПараметрыОбмена.МояФабрикаXDTO.Создать(XDTOЗначенияСвойствТип);
                                                 
Пока ВыборкаСвойств.Следующий() Цикл
    Если НЕ КастомныеПроцедурыСервер.ЭтоМножественноеСвойство(ВыборкаСвойств.ИдентификаторСвойства) Тогда
        //Штатный механизм
        XDTOЗначенияСвойства = ПараметрыОбмена.МояФабрикаXDTO.Создать(XDTOЗначенияСвойстваТип);
        
        XDTOЗначенияСвойства.Ид = XMLСтрока(ВыборкаСвойств.ИдентификаторСвойства);
        
        XDTOЗначенияСвойства.Значение.Добавить(XMLСтрока(ВыборкаСвойств.ИдентификаторЗначения));
        
        XDTOЗначенияСвойств.ЗначенияСвойства.Добавить(XDTOЗначенияСвойства);
    иначе
        //mike (b) Выгрузка множественного свойства
        XDTOЗначенияСвойства = ПараметрыОбмена.МояФабрикаXDTO.Создать(XDTOЗначенияСвойстваТип);
        XDTOЗначенияСвойства.Ид = XMLСтрока(ВыборкаСвойств.ИдентификаторСвойства);
        
        ЗначенияЭлемента = КастомныеПроцедурыСервер.ПолучитьСписокЗначенийМножественногоСвойства(ВыборкаНоменклатуры.Номенклатура,ВыборкаСвойств.ИдентификаторСвойства);
        Для каждого Значение из ЗначенияЭлемента Цикл
            ЗначениеСвойства 			= ПараметрыОбмена.МояФабрикаXDTO.Создать(XDTOЗначенияСвойстваТип.Свойства.Получить("ЗначениеСвойства").Тип);	
            ЗначениеСвойства.Значение 	= XMLСтрока(Значение);	
            XDTOЗначенияСвойства.ЗначениеСвойства.Добавить(ЗначениеСвойства);			
        КонецЦикла;	
        XDTOЗначенияСвойств.ЗначенияСвойства.Добавить(XDTOЗначенияСвойства);
    КонецЕсли;	
    
КонецЦикла;
Владелец.ЗначенияСвойств = XDTOЗначенияСвойств;

ВыборкаСвойств = Выборка.Выбрать();

XDTOЗначенияСвойств = ПараметрыОбмена.МояФабрикаXDTO.Создать(XDTOЗначенияСвойствТип);

Пока ВыборкаСвойств.Следующий() Цикл

Если НЕ КастомныеПроцедурыСервер.ЭтоМножественноеСвойство(ВыборкаСвойств.ИдентификаторСвойства) Тогда

//Штатный механизм

XDTOЗначенияСвойства = ПараметрыОбмена.МояФабрикаXDTO.Создать(XDTOЗначенияСвойстваТип);

XDTOЗначенияСвойства.Ид = XMLСтрока(ВыборкаСвойств.ИдентификаторСвойства);

XDTOЗначенияСвойства.Значение.Добавить(XMLСтрока(ВыборкаСвойств.ИдентификаторЗначения));

XDTOЗначенияСвойств.ЗначенияСвойства.Добавить(XDTOЗначенияСвойства);

иначе

//mike (b) Выгрузка множественного свойства

XDTOЗначенияСвойства = ПараметрыОбмена.МояФабрикаXDTO.Создать(XDTOЗначенияСвойстваТип);

XDTOЗначенияСвойства.Ид = XMLСтрока(ВыборкаСвойств.ИдентификаторСвойства);

ЗначенияЭлемента = КастомныеПроцедурыСервер.ПолучитьСписокЗначенийМножественногоСвойства(ВыборкаНоменклатуры.Номенклатура,ВыборкаСвойств.ИдентификаторСвойства);

Для каждого Значение из ЗначенияЭлемента Цикл

ЗначениеСвойства = ПараметрыОбмена.МояФабрикаXDTO.Создать(XDTOЗначенияСвойстваТип.Свойства.Получить("ЗначениеСвойства").Тип);

ЗначениеСвойства.Значение = XMLСтрока(Значение);

XDTOЗначенияСвойства.ЗначениеСвойства.Добавить(ЗначениеСвойства);

КонецЦикла;

XDTOЗначенияСвойств.ЗначенияСвойства.Добавить(XDTOЗначенияСвойства);

КонецЕсли;

КонецЦикла;

Владелец.ЗначенияСвойств = XDTOЗначенияСвойств;

Для того, чтобы касса передавала данные в ОФД нужно:
1. Настроить и запустить службу Ethernet over USB:

Основная настройка заключается в указании номера порта связи с ККМ. Как правило это один из двух портов, которые служат для связи с ККМ, с меньшим номером. Порт с большим номером — служит для передачи данных чека в ККМ.
2. Чтобы нормально проходил тест связи с ОФД.

Материалы здесь:
https://www.ss-20.ru/index.php?topic=397.0
http://support.merkata.ru/hc/ru/articles/115002972805-%D0%94%D0%B8%D0%B0%D0%B3%D0%BD%D0%BE%D1%81%D1%82%D0%B8%D0%BA%D0%B0-%D1%81%D0%BE%D0%B5%D0%B4%D0%B8%D0%BD%D0%B5%D0%BD%D0%B8%D1%8F-%D1%81-%D0%9E%D0%A4%D0%94-%D0%BD%D0%B0-%D0%90%D0%A2%D0%9E%D0%9B-FPrint-%D1%81%D0%B5%D1%80%D0%B8%D0%B8-%D0%A4
https://xn--80aapgmbx5f.xn--80asehdb/files/OFD_test.pdf
Тест должен проходить со значением ЕСТЬ или УСПЕШНО во всех строках.

У меня в результате обработки команды «82 01 06 00», помимо прочих строк, говорящих, что все отлично, в строке «Доступ к тест. стр.:» было значение «Отсутствует». Это говорит о том, что деньги в ОФД за подключения новых касс бухгалтерия перечислить забыла.

Blog, malfunction log…

Самый пустой в мире сайт.

Архив за месяц: Июль 2017

1С-Bitrix. Выгрузка множественного свойства.

Bitrix. Обмен заказами. Формирование имени контрагента.

Как удалить C:\hiberfil.sys

Электронный документооборот из 1С через SOAP. Подготовка.

54ФЗ. Касса не передает данные в ОФД.