Как выгрузить реквизит документа в XML файл
X

Привет дорогой друг

Наш сайт существует и развиваетется за счет рекламы. Пожалуйста, отключите блокировку рекламы AdBlock или подобное, для нашего сайта. Спасибо!
Показано с 1 по 5 из 5
  1. #1
    Гость форума

    Регистрация
    10.06.2009
    Сообщений
    5
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях

    По умолчанию Как выгрузить реквизит документа в XML файл

    Добрый день! Подскажите, как выгрузить реквизит документа в XML файл? Создаю новую команду в документе "Взвешивание". Там добавляю процедуру, но не хватает ума написать правильно код. Нужно, чтоб при нажатии кнопки с этого документа создавался файл XML и туда записан был реквизит документа "НомерТТН".
    Вот какой код пробую доделать, но чего то не хватает :

    &НаКлиенте

    Процедура ОбработкаКоманды(Параметр� �оманды, ПараметрыВыполненияКоманд ы)
    ЗаписьXML = Новый ЗаписьXML;
    ЗаписьXML.ОткрытьФайл("D:\ТТН. xml");
    ЗаписьXML.ЗаписатьНачалоЭле мента("Главный"); //записываем первый элемент

    //указываем все атрибуты первого элемента в документе
    ЗаписьXML.ЗаписатьАтрибут("Н омерТТН", Строка(ЭтотОбъект.НомерТТН ));
    ЗаписьXML.ЗаписатьКонецЭлем ента();
    ЗаписьXML.Закрыть();
    КонецПроцедуры

  2. #2
    Гость форума

    Регистрация
    10.06.2009
    Сообщений
    5
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях

    По умолчанию Re: Как выгрузить реквизит документа в XML файл

    Дошел до такого кода:
    &НаКлиенте
    Процедура ОбработкаКоманды(Параметр� �оманды, ПараметрыВыполненияКоманд ы)

    Запись=Новый ЗаписьXML;
    Запись.ОткрытьФайл("D:\document.x ml");
    Запись.ЗаписатьОбъявлениеX ML();
    Запись.ЗаписатьНачалоЭлем� �нта("Корневой");
    Запись.ЗаписатьАтрибут("До� �мент", "Взвешивание");
    Выборка = ЭтотОбъект.Ссылка;

    Запись.ЗаписатьНачалоЭлем� �нта("Элемент");
    Запись.ЗаписатьАтрибут("Но� �ер", Строка(Выборка.НомерТТН));
    Запись.ЗаписатьКонецЭлеме� �та();

    Запись.ЗаписатьКонецЭлеме� �та();
    Запись.Закрыть();
    КонецПроцедуры

    Однако 1с ругается на эту строку: Выборка = ЭтотОбъект.Ссылка;
    подскажите как правильно сослаться на форму открытого документа и оттуда взять реквизит НомерТТН?

  3. #3
    Гость форума

    Регистрация
    10.06.2009
    Сообщений
    5
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях

    По умолчанию Re: Как выгрузить реквизит документа в XML файл

    Дошел до такого кода:
    &НаКлиенте
    Процедура ОбработкаКоманды(Параметр� �оманды, ПараметрыВыполненияКоманд ы)

    Запись=Новый ЗаписьXML;
    Запись.ОткрытьФайл("D:\document.x ml");
    Запись.ЗаписатьОбъявлениеX ML();
    Запись.ЗаписатьНачалоЭлем� �нта("Корневой");
    Запись.ЗаписатьАтрибут("До� �мент", "Взвешивание");
    Выборка = ЭтотОбъект.Ссылка;

    Запись.ЗаписатьНачалоЭлем� �нта("Элемент");
    Запись.ЗаписатьАтрибут("Но� �ер", Строка(Выборка.НомерТТН));
    Запись.ЗаписатьКонецЭлеме� �та();

    Запись.ЗаписатьКонецЭлеме� �та();
    Запись.Закрыть();
    КонецПроцедуры

    Однако 1с ругается на эту строку: Выборка = ЭтотОбъект.Ссылка;
    подскажите как правильно сослаться на форму открытого документа и оттуда взять реквизит НомерТТН???

  4. #4
    Гость форума

    Регистрация
    10.06.2009
    Сообщений
    5
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях

    По умолчанию Re: Как выгрузить реквизит документа в XML файл

    в форме документа, это в разделе "Команды".

    Документ взвешивание -> формы
    -> Команды
    -> Макеты

    Так вот я добавил Команду и в ней пишу данную процедуру
    получилось пока так:
    Процедура ОбработкаКоманды(Параметр� �оманды, ПараметрыВыполненияКоманд ы)

    Запись=Новый ЗаписьXML;
    Запись.ОткрытьФайл("D:\document.x ml");
    Запись.ЗаписатьОбъявлениеX ML();
    Запись.ЗаписатьНачалоЭлем� �нта("Корневой");
    Запись.ЗаписатьАтрибут("До� �мент", "Взвешивание");

    Запись.ЗаписатьНачалоЭлем� �нта("Номер");
    Запись.ЗаписатьТекст(Парам етрКоманды.Номер);
    Запись.ЗаписатьКонецЭлеме� �та();

    Запись.ЗаписатьНачалоЭлем� �нта("Нетто");
    Запись.ЗаписатьТекст(Парам етрКоманды.Дата);
    Запись.ЗаписатьКонецЭлеме� �та();

    Запись.Закрыть();
    КонецПроцедуры

    Номер выводит отлично, так как надо, но вот Дату выдает ошибку:
    {Документ.Взвешивание.Кома� �да.Меркурий.МодульКоманды( 16)}: Ошибка при вызове метода контекста (ЗаписатьТекст)
    Запись.ЗаписатьТекст(Парам етрКоманды.Дата);
    по причине:
    Несоответствие типов (параметр номер '1')

    Помогите решить проблему. Может лучше было бы делать с формы документа, тогда бы не было данных ошибок

  5. #5
    Помогает людям

    Регистрация
    27.01.2012
    Сообщений
    284
    Сказал(а) спасибо
    31
    Поблагодарили 1052 раз(а) в 326 сообщениях

    По умолчанию Re: Как выгрузить реквизит документа в XML файл

    Цитата Сообщение от x-perec Посмотреть сообщение
    в форме документа, это в разделе "Команды".

    Документ взвешивание -> формы
    -> Команды
    -> Макеты

    Так вот я добавил Команду и в ней пишу данную процедуру
    получилось пока так:
    Процедура ОбработкаКоманды(Параметр� �оманды, ПараметрыВыполненияКоманд ы)

    Запись=Новый ЗаписьXML;
    Запись.ОткрытьФайл("D:\document.x ml");
    Запись.ЗаписатьОбъявлениеX ML();
    Запись.ЗаписатьНачалоЭлем� �нта("Корневой");
    Запись.ЗаписатьАтрибут("До� �мент", "Взвешивание");

    Запись.ЗаписатьНачалоЭлем� �нта("Номер");
    Запись.ЗаписатьТекст(Парам етрКоманды.Номер);
    Запись.ЗаписатьКонецЭлеме� �та();

    Запись.ЗаписатьНачалоЭлем� �нта("Нетто");
    Запись.ЗаписатьТекст(Парам етрКоманды.Дата);
    Запись.ЗаписатьКонецЭлеме� �та();

    Запись.Закрыть();
    КонецПроцедуры

    Номер выводит отлично, так как надо, но вот Дату выдает ошибку:
    {Документ.Взвешивание.Кома� �да.Меркурий.МодульКоманды( 16)}: Ошибка при вызове метода контекста (ЗаписатьТекст)
    Запись.ЗаписатьТекст(Парам етрКоманды.Дата);
    по причине:
    Несоответствие типов (параметр номер '1')

    Помогите решить проблему. Может лучше было бы делать с формы документа, тогда бы не было данных ошибок
    решил или ещё актуально?

Похожие темы

  1. Реквизит документа составного типа данных
    от konst2k6 в разделе Конфигурирование, программирование 1С - Предприятие
    Ответов: 2
    Последнее сообщение: 23.03.2017, 14:00
  2. КД 2 Реквизит документа в реквизит ТЧ
    от kolinmk в разделе Конфигурирование, программирование 1С - Предприятие
    Ответов: 1
    Последнее сообщение: 14.03.2017, 15:00
  3. Ответов: 5
    Последнее сообщение: 19.05.2016, 13:22
  4. Доп. реквизит
    от Akom132 в разделе 1С - Предприятие 8.0, 8.1, 8.2, 8.3
    Ответов: 0
    Последнее сообщение: 29.05.2014, 17:30
  5. Ответов: 1
    Последнее сообщение: 19.02.2013, 00:22

Социальные закладки

Социальные закладки

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •