Запись элементов справочника через СериализаторXDTO в формат json
16.09.20, 12:00
Говорящий
Группа: Пользователи
Сообщений: 68
Спасибо сказали: 0 раз
Рейтинг: 0
Добрый день!
помогите найти ошибку ругается несоответствие типов параметр 3 в строке
" СериализаторXDTO.ЗаписатьJSON(ЗаписьJSON,Массив_записи,НастройкиСериализации); "
Код Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ * |ИЗ | Справочник.Организации КАК Организации |"; ЗаписьJSON= Новый ЗаписьJSON; ЗаписьJSON.ПроверятьСтруктуру = Истина; НастройкиСериализации = Новый НастройкиСериализацииJSON; ПараметрыJSON = Новый ПараметрыЗаписиJSON(ПереносСтрокJSON.Авто, " ", Истина); НастройкиСериализации.ВариантЗаписиДаты = ВариантЗаписиДатыJSON.УниверсальнаяДата; // НастройкиСериализации.ФорматСериализацииДат = ФорматДатыJSON.ISO; НастройкиСериализации.СериализовыватьМассивыКакОбъекты = Истина; Выборка = Запрос.Выполнить().Выбрать(); ЗаписьJSON.ОткрытьФайл("E:\Odecom\test.json, , , ПараметрыJSON"); ЗаписьJSON.ЗаписатьНачалоОбъекта(); // ЗаписьJSON.ЗаписатьИмяСвойства("ДатаФормирования"); //ЗаписьJSON.ЗаписатьЗначение(ЗаписатьДатуJSON(ТекущаяДата(), ФорматДатыJSON.ISO, ВариантЗаписиДатыJSON.УниверсальнаяДата)); ЗаписьJSON.ЗаписатьИмяСвойства("Массив_записи"); Массив_записи =Новый массив; Пока Выборка.Следующий() Цикл ОписаниеОбъекта = Новый Структура("Ссылка, Код, Наименование, Префикс,ИНН,НомерСвидетельства,КодПоЕДРПОУ,ФизическоеЛицо,НаименованиеПолное,СвидетельствоСерияНомер,СвидетельствоДатаВыдачи,БанковскийСчетПоУмолчанию,ЮрФизЛицо,ТекущийРуководитель,ТекущаяДолжностьРук оводителя,ТекущийГлавныйБухгалтер,ТекущийКассир,ТекущийПаспортист,ТипОрганизации,УчетнаяЗаписьЭлектроннойПочты,НазваниеДляСвернутыхУслуг,ИнформацияПредупреждениеНовойКвитанции"); ОписаниеОбъекта.Ссылка = Строка(Выборка.Ссылка); ОписаниеОбъекта.Код=Строка(Выборка.Код); ОписаниеОбъекта.Наименование=Строка(Выборка.Наименование); ОписаниеОбъекта.Префикс=Строка(Выборка.Префикс); ОписаниеОбъекта.ИНН=Строка(Выборка.ИНН); ОписаниеОбъекта.НомерСвидетельства=Строка(Выборка.НомерСвидетельства); ОписаниеОбъекта.КодПоЕДРПОУ=Строка(Выборка.КодПоЕДРПОУ); ОписаниеОбъекта.ФизическоеЛицо=Строка(Выборка.ФизическоеЛицо); ОписаниеОбъекта.НаименованиеПолное=Строка(Выборка.НаименованиеПолное); ОписаниеОбъекта.СвидетельствоСерияНомер=Строка(Выборка.СвидетельствоСерияНомер); ОписаниеОбъекта.СвидетельствоДатаВыдачи=Строка(Выборка.СвидетельствоДатаВыдачи); ОписаниеОбъекта.БанковскийСчетПоУмолчанию=Строка(Выборка.БанковскийСчетПоУмолчанию); ОписаниеОбъекта.ЮрФизЛицо=Строка(Выборка.ЮрФизЛицо); ОписаниеОбъекта.ТекущийРуководитель=Строка(Выборка.ТекущийРуководитель); ОписаниеОбъекта.ТекущаяДолжностьРуководителя=Строка(Выборка.ТекущаяДолжностьРуководителя); ОписаниеОбъекта.ТекущийГлавныйБухгалтер=Строка(Выборка.ТекущийГлавныйБухгалтер); ОписаниеОбъекта.ТекущийКассир=Строка(Выборка.ТекущийКассир); ОписаниеОбъекта.ТекущийПаспортист=Строка(Выборка.ТекущийПаспортист); ОписаниеОбъекта.ТипОрганизации=Строка(Выборка.ТипОрганизации); ОписаниеОбъекта.УчетнаяЗаписьЭлектроннойПочты=Строка(Выборка.УчетнаяЗаписьЭлектроннойПочты); ОписаниеОбъекта.НазваниеДляСвернутыхУслуг=Строка(Выборка.НазваниеДляСвернутыхУслуг); ОписаниеОбъекта.ИнформацияПредупреждениеНовойКвитанции=Строка(Выборка.ИнформацияПредупреждениеНовойКвитанции); // ОписаниеОбъекта.Контрагент = Строка(Заказ.Контрагент); Массив_записи.Добавить(ОписаниеОбъекта); КонецЦикла; СериализаторXDTO.ЗаписатьJSON(ЗаписьJSON,Массив_записи,НастройкиСериализации); //НастройкиСериализации ЗаписьJSON.ЗаписатьКонецОбъекта();
Сообщение отредактировал Vofka - 16.09.20, 13:07
17.09.20, 10:55
Говорящий
Группа: Пользователи
Сообщений: 68
Спасибо сказали: 0 раз
Рейтинг: 0
спасибо всем нашла ошибку
&НаСервере Процедура Команда1НаСервере() Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ * |ИЗ | Справочник.Организации КАК Организации |"; Выборка = Запрос.Выполнить().Выбрать(); Массив_записи =Новый массив; Пока Выборка.Следующий() Цикл ОписаниеОбъекта = Новый Структура("Ссылка, Код, Наименование, Префикс,ИНН,НомерСвидетельства,КодПоЕДРПОУ,ФизическоеЛицо,НаименованиеПолное,СвидетельствоСерияНомер,СвидетельствоДатаВыдачи,БанковскийСчетПоУмолчанию,ЮрФизЛицо,ТекущийРуководитель,ТекущаяДолжностьРук оводителя,ТекущийГлавныйБухгалтер,ТекущийКассир,ТекущийПаспортист,ТипОрганизации,УчетнаяЗаписьЭлектроннойПочты,НазваниеДляСвернутыхУслуг,ИнформацияПредупреждениеНовойКвитанции"); ОписаниеОбъекта.Ссылка = Строка(Выборка.Ссылка); ОписаниеОбъекта.Код=Строка(Выборка.Код); ОписаниеОбъекта.Наименование=Строка(Выборка.Наименование); ОписаниеОбъекта.Префикс=Строка(Выборка.Префикс); ОписаниеОбъекта.ИНН=Строка(Выборка.ИНН); ОписаниеОбъекта.НомерСвидетельства=Строка(Выборка.НомерСвидетельства); ОписаниеОбъекта.КодПоЕДРПОУ=Строка(Выборка.КодПоЕДРПОУ); ОписаниеОбъекта.ФизическоеЛицо=Строка(Выборка.ФизическоеЛицо); ОписаниеОбъекта.НаименованиеПолное=Строка(Выборка.НаименованиеПолное); ОписаниеОбъекта.СвидетельствоСерияНомер=Строка(Выборка.СвидетельствоСерияНомер); ОписаниеОбъекта.СвидетельствоДатаВыдачи=Строка(Выборка.СвидетельствоДатаВыдачи); ОписаниеОбъекта.БанковскийСчетПоУмолчанию=Строка(Выборка.БанковскийСчетПоУмолчанию); ОписаниеОбъекта.ЮрФизЛицо=Строка(Выборка.ЮрФизЛицо); ОписаниеОбъекта.ТекущийРуководитель=Строка(Выборка.ТекущийРуководитель); ОписаниеОбъекта.ТекущаяДолжностьРуководителя=Строка(Выборка.ТекущаяДолжностьРуководителя); ОписаниеОбъекта.ТекущийГлавныйБухгалтер=Строка(Выборка.ТекущийГлавныйБухгалтер); ОписаниеОбъекта.ТекущийКассир=Строка(Выборка.ТекущийКассир); ОписаниеОбъекта.ТекущийПаспортист=Строка(Выборка.ТекущийПаспортист); ОписаниеОбъекта.ТипОрганизации=Строка(Выборка.ТипОрганизации); ОписаниеОбъекта.УчетнаяЗаписьЭлектроннойПочты=Строка(Выборка.УчетнаяЗаписьЭлектроннойПочты); ОписаниеОбъекта.НазваниеДляСвернутыхУслуг=Строка(Выборка.НазваниеДляСвернутыхУслуг); ОписаниеОбъекта.ИнформацияПредупреждениеНовойКвитанции=Строка(Выборка.ИнформацияПредупреждениеНовойКвитанции); Массив_записи.Добавить(ОписаниеОбъекта); КонецЦикла; Запись_в_JSON(Массив_записи,"test"); КонецПроцедуры процедура Запись_в_JSON(Массив_записи,имя_файла) ЗаписьJSON= Новый ЗаписьJSON; ЗаписьJSON.ПроверятьСтруктуру = Истина; НастройкиСериализации = Новый НастройкиСериализацииJSON; ПараметрыJSON = Новый ПараметрыЗаписиJSON(ПереносСтрокJSON.Авто, " ", Истина); НастройкиСериализации.ВариантЗаписиДаты = ВариантЗаписиДатыJSON.УниверсальнаяДата; НастройкиСериализации.СериализовыватьМассивыКакОбъекты = Истина; ЗаписьJSON.ОткрытьФайл(Этаформа.ПутьЗаписи+имя_файла+".json"); // , , , ПараметрыJSON ЗаписьJSON.ЗаписатьНачалоОбъекта(); ЗаписьJSON.ЗаписатьИмяСвойства("Массив_записи"); СериализаторXDTO.ЗаписатьJSON(ЗаписьJSON,Массив_записи,НазначениеТипаXML.Явное); //НастройкиСериализации ЗаписьJSON.ЗаписатьКонецОбъекта(); ЗаписьJSON.Закрыть(); КонецПроцедуры
Не нашли ответа на свой вопрос?
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!