фабрикаxdto » Поиск

Результаты по ключевому слову: фабрикаxdto

Проверка регулярного выражения без внешних компонент Категория: Регулярные выражения

Отдаем PDF файл через Web-сервис

В инфраструктурах, активно использующих возможности web-сервисов 1С, нередко возникает потребность получения не только массивов данных из базы, но и различных файлов. Сам файл через веб-сервис так просто не передашь, но на его основе можно создать объект ДвоичныеДанные, который, в свою очередь, уже сериализуется в base64Binary. После такой операции наш веб-сервис без проблем передает данные и получателю остается только выполнить на своей стороне обратное преобразование и сохранить файл.

В качестве примера такого механизма я буду создавать в 1С счет на оплату на основании переданных через сервис ИНН контрагента и суммы, и возвращать PDF печатной формы. На этот раз, кроме примеров кода, дополнительно был записан скринкаст разработки.

Для начала создадим в пустой конфигурации справочник "Контрагенты" с реквизитом "ИНН" и документ "Счет" с реквизитами "Контрагент" и "СуммаДокумента".

Теперь добавим пакет XDTO "test_ws"с пространством имен "http://www.test-ws.org", в котором опишем тип объекта "File". Он будет содержать свойства:

binaryData - (base64Binary (http://www.w3.org/2001/XMLSchema));

ext - string (http://www.w3.org/2001/XMLSchema);

message - string (http://www.w3.org/2001/XMLSchema).

Создаем web-сервис "DocWork", пространство имен "http://www.test-ws.org", выбираем пакет "http://www.test-ws.org". Добавляем в сервис операцию "CreateBill", возвращаемый тип File (http://www.test-ws.org), входные параметры:

INN - string (http://www.w3.org/2001/XMLSchema);

Summ - decimal (http://www.w3.org/2001/XMLSchema).

Код web-сервиса:

Код 1C v 8.3

 Функция CreateBill(INN, Summ)

 

 typeFile = ФабрикаXDTO.Тип("<a href="http://www.test-ws.org" ,"="">http://www.test-ws.org",</a> "File");

 

 текФайл = ФабрикаXDTO.Создать(typeFile);

 текФайл.binaryData = ФабрикаXDTO.Создать(ФабрикаXDTO.Тип("<a href="http://www.w3.org/2001/XMLSchema" ,"="">http://www.w3.org/2001/XMLSchema",</a> "base64Binary"));

 текФайл.ext = ФабрикаXDTO.Создать(ФабрикаXDTO.Тип("<a href="http://www.w3.org/2001/XMLSchema" ,"="">http://www.w3.org/2001/XMLSchema",</a> "string"));

 

 Если ПустаяСтрока(INN) ИЛИ Summ = 0 Тогда

  текФайл.message = "empty data";

  Возврат текФайл;

 КонецЕсли;

 

 Запрос = Новый Запрос;

 Запрос.Текст = 

  "ВЫБРАТЬ ПЕРВЫЕ 1

  | Контрагенты.Ссылка

  |ИЗ

  | Справочник.Контрагенты КАК Контрагенты

  |ГДЕ

  | Контрагенты.ИНН = &ИНН";





 Запрос.УстановитьПараметр("ИНН", INN);





 Результат = Запрос.Выполнить().Выгрузить();

 Если Результат.Количество() = 0 Тогда

  текФайл.message = "client not found";

  Возврат текФайл;

 КонецЕсли;

 

 СчетДок = Документы.Счет.СоздатьДокумент();

 СчетДок.Дата = ТекущаяДата();

 СчетДок.Контрагент = Результат[0].Ссылка;

 СчетДок.СуммаДокумента = Summ;

 СчетДок.Записать();

 

 ТабДок = Новый ТабличныйДокумент;

 Документы.Счет.Печать(ТабДок, СчетДок.Ссылка);

 

 ИмяФайла = ПолучитьИмяВременногоФайла("pdf");

 ТабДок.Записать(ИмяФайла, ТипФайлаТабличногоДокумента.PDF);

 ДанныеФайла = Новый ДвоичныеДанные(ИмяФайла);

 

 текФайл.binaryData = ДанныеФайла;

 текФайл.message = "ok";

 текФайл.ext = "pdf";

 

 Возврат текФайл;

КонецФункции<br>

Тестовая обработка

Код 1C v 8.3

 &НаСервере

Функция ПолучитьПДФ()





 ОпределениеВС = Новый WSОпределения("<a href="http://localhost/testWS/ws/ws1.1cws?wsdl" )"="">http://localhost/testWS/ws/ws1.1cws?wsdl")</a>;

 СсылкаВС = Новый WSПрокси(ОпределениеВС, "<a href="http://www.test-ws.org" ,"="">http://www.test-ws.org",</a> "DocWork", "DocWorkSoap");

 

 ФайлСервис = СсылкаВС.CreateBill(ИНН, Сумма);

 

 Возврат ФайлСервис.binaryData;





КонецФункции// ПолучитьПДФ()









&НаКлиенте

Процедура СоздатьСчет(Команда)

 

 мДанные = ПолучитьПДФ();

 Если мДанные = Неопределено Тогда

  Возврат;

 КонецЕсли;

 мДанные.Записать("c:\temp_bil.pdf");

 

КонецПроцедуры<br>

А так же обещанное видео, как есть, без купюр

Источник

Категория: WEB-сервисы, WS-ссылки, XDTO-пакеты

Как получить результат запроса в web таблицу используя Web сервис? Категория: WEB-сервисы, WS-ссылки, XDTO-пакеты

Обмен 1С c клиентом используя web сервисы 1С Категория: WEB-сервисы, WS-ссылки, XDTO-пакеты

Обмен между базами через XML (создается ФабрикаXDTO)

В процедурах выгрузки/загрузки создается ФабрикаXDTO из схемы, которая хранится в макете как файл. Файл настроек схемы надо использовать один и тот же в обработках Загрузки/Выгрузки
Из Фабрики создается объект, его заполняю выгружаемыми данными
Фабрику сохраняю в XML. В процедуре загрузки из читаю фабрику из XML и пробегаю по объектам
Очень удобно!

Код 1C v 8.х

 Функция СоздатьФайлСхемы()



    ФайлСхемы = Новый Файл(КаталогВременныхФайлов() + "schema.xsd");

    Если ФайлСхемы.Существует() Тогда

        УдалитьФайлы(ФайлСхемы.ПолноеИмя);

    КонецЕсли;



    Ссылка = ПолучитьМакет("schema_xsd");

    Ссылка.Записать(ФайлСхемы.ПолноеИмя);



    Возврат ФайлСхемы.ПолноеИмя;



КонецФункции



Функция ВыгрузитьДокументы()



    ФайлыXSD = Новый Массив();

    ФайлыXSD.Добавить(СоздатьФайлСхемы());

    Фабрика = СоздатьФабрикуXDTO(ФайлыXSD);



    ФайлОбмена = Фабрика.Создать(Фабрика.Тип("http://anton.fly7.ru", "ФайлОбмена"));



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



        Документ = Фабрика.Создать(Фабрика.Тип("http://anton.fly7.ru", "Документ"));

        Документ.ID = Строка(Док.УникальныйИдентификатор());

        Документ.ВидДокумента = Док.Метаданные().Имя;

        Документ.Дата = Док.Дата;

        Документ.Номер = Док.Номер;

        Документ.Статус = ?(Док.Проведен, "Проведен", ?(Док.ПометкаУдаления, "ПометкаУдаления", "НеПроведен"));

        Документ.Комментарий = Док.Комментарий;



    КонецЦикла



    ПараметрыЗаписиXML = Новый ПараметрыЗаписиXML("UTF-8", "1.0", Ложь);



    МойXML = Новый ЗаписьXML;

    МойXML.ОткрытьФайл(ИмяФайла, ПараметрыЗаписиXML);

    МойXML.ЗаписатьОбъявлениеXML();

    Фабрика.ЗаписатьXML(МойXML, ФайлОбмена);

    МойXML.Закрыть();



    ОбщегоНазначенияКлиентСервер.СообщитьПользователю("Создан файл обмена " + ИмяФайла);



КонецФункции



Процедура ЗагрузитьДокументы()



    ФайлыXSD = Новый Массив();

    ФайлыXSD.Добавить(СоздатьФайлСхемы());

    Фабрика = СоздатьФабрикуXDTO(ФайлыXSD);



    ФайлОбмена = Фабрика.Создать(Фабрика.Тип("http://anton.fly7.ru", "ФайлОбмена"));



    ОбменXML = Новый ЧтениеXML;

    ОбменXML.ОткрытьФайл(ИмяФайла);

    ФайлОбмена = Фабрика.ПрочитатьXML(ОбменXML, Фабрика.Тип("http://anton.fly7.ru", "ФайлОбмена"));



    Для Каждого Документ Из ФайлОбмена.Документ Цикл



        ОбработкаПрерыванияПользователя();



        Если Документ.ВидДокумента = "ПоступлениеТоваров" И

             ЗначениеЗаполнено(Поставщик) И

             Документ.Контрагент.ИНН  Поставщик.ИНН Тогда



        КонецЕсли;



    КонецЦикла



    ФайлОбмена = "";

    ОбменXML.Закрыть();

    УдалитьФайлы(ИмяФайла);



КонецПроцедуры

Файл схемы примерно такой (разукрашка съела скобки, но смысл должен быть понятен ))

Код

xs:schema xmlns:tns="http://anton.fly7.ru" xmlns:xs="http://www.w3.org/2001/XMLSchema" targetNamespace="http://anton.fly7.ru" attributeFormDefault="unqualified" elementFormDefault="qualified">

xs:complexType name="ФайлОбмена">
xs:sequence>
xs:element name="Документ" type="tns:Документ" nillable="true" maxOccurs="unbounded"/>
xs:sequence>
xs:complexType>

xs:complexType name="Документ">
xs:sequence>
xs:element name="ID" type="xs:string"/>
xs:element name="ВидДокумента" type="xs:string"/>
xs:element name="Статус" type="xs:string"/>
xs:element name="Дата" type="xs:dateTime"/>
xs:element name="Номер" type="xs:string"/>
xs:element name="Контрагент" type="tns:Контрагент"/>
xs:element name="Свойства" type="tns:ТаблицаСвойства" nillable="true" minOccurs="0"/>
xs:sequence>
xs:complexType>

xs:complexType name="Контрагент">
xs:sequence>
xs:element name="ID" type="xs:string"/>
xs:element name="Наименование" type="xs:string"/>
xs:element name="ИНН" type="xs:string"/>
xs:sequence>
xs:complexType>

xs:complexType name="ТаблицаСвойства">
xs:sequence>
xs:element name="СтрокаСвойства" type="tns:СтрокаСвойство" nillable="true" maxOccurs="unbounded"/>
xs:sequence>
xs:complexType>

xs:complexType name="СтрокаСвойство">
xs:sequence>
xs:element name="Наименование" type="xs:string" nillable="true"/>
xs:element name="Значение" type="xs:string" nillable="true"/>
xs:sequence>
xs:complexType>

xs:schema>

Автор: Абазин Антон

Категория: WEB-сервисы, WS-ссылки, XDTO-пакеты

Подключение к web-сервису и получение от него описание типа

Подключается к 1с82 web-сервису, получает от него описание типа
Создает переменную этого типа, Создает файл (dbf обмена).
Помещает файл в переменную и отдает на web-сервис для обработки, получает от него результат обработки

Код 1C v 8.х

 Определение = Новый WSОпределения(Server, User, Pass);



Прокси = Новый WSПрокси(Определение, "http://www.anton.fly7.ru", "Obmen", "ObmenSoap");

Прокси.Пользователь = User;

Прокси.Пароль = Pass;



Тип = Прокси.ФабрикаXDTO.Тип("http://www.anton.fly7.ru", "ФайлОбмена");

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



Файл = Новый Файл(КаталогВременныхФайлов() + "dat.dbf"); i=1;

Пока Файл.Существует() Цикл



    Файл = Новый Файл(КаталогВременныхФайлов() + "dat" + i + ".dbf");

    i=i+1;



КонецЦикла;



ДБ = Новый XBase;

ЗаполнитьПоляДБ(ДБ, ТабСвойств);

ДБ.СоздатьФайл(Файл.ПолноеИмя);

ДБ.АвтоСохранение = Истина;



            ДБ.Добавить();

            ДБ.Artik    = Номенклатура.Артикул;

            ДБ.Name     = Строка(Номенклатура);

            ДБ.NomGrup  = Строка(Номенклатура.ТипНоменклатуры);

            ДБ.VidNom   = Строка(Номенклатура.ВидНоменклатуры);

            ДБ.Group    = ПолучитьГруппу(Номенклатура);

            ДБ.Strana   = "";

            ДБ.Pol      = "";



ДБ.Записать();

ДБ.ЗакрытьФайл();



ФайлДвоичныеДанные = Новый ДвоичныеДанные(Файл.ПолноеИмя);

ФайлаХранилищеЗначения = Новый ХранилищеЗначения(ФайлДвоичныеДанные, Новый СжатиеДанных(9));



ФайлОбмена.ТипФайла = 1;

ФайлОбмена.ИмяФайла = "data_" + СокрЛП(СсылкаНаОбъект.Номер) + ".dbf";

ФайлОбмена.Данные = ФайлаХранилищеЗначения.Получить();



УдалитьФайлы(Файл.ПолноеИмя);



Результат = Прокси.LoadDocs(ФайлОбмена);



Если ЗначениеЗаполнено(Результат) Тогда

    ОбщегоНазначенияКлиентСервер.СообщитьПользователю(Результат);

КонецЕсли;

Автор: Абазин Антон

Категория: WEB-сервисы, WS-ссылки, XDTO-пакеты

Открытие, перемещение и загрузка файла

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

Код 1C v 8.2 УП

 &НаКлиенте

Процедура ИмяФайлаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)



    Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);

    Диалог.Фильтр = "*.xml|*.xml";

    Если Диалог.Выбрать() Тогда

        Объект.ИмяФайла = Диалог.ПолноеИмяФайла;

    КонецЕсли;



КонецПроцедуры



&НаКлиенте

Процедура ИмяФайлаОткрытие(Элемент, СтандартнаяОбработка)



    СтандартнаяОбработка = Ложь;

    ЗапуститьПриложение(Объект.ИмяФайла);



КонецПроцедуры



&НаКлиенте

Процедура Загрузить(Команда)



    СтрокаСоединения = СтрокаСоединенияИнформационнойБазы();



    ws = НСтр(СтрокаСоединения, "ws");

    ИмяСервера = НСтр(СтрокаСоединения, "Srvr");

    Если ИмяСервера = "" Тогда

        Если ws = "" Тогда

            ПередачаФайлаНаСервер = Ложь;

        Иначе

            ПередачаФайлаНаСервер = Истина;

        КонецЕсли;

    Иначе

        ПередачаФайлаНаСервер = (ИмяКомпьютера() <> ИмяСервера);

    КонецЕсли;



    Если ПередачаФайлаНаСервер Тогда

        ПоместитьФайл(АдресХранилища, Объект.ИмяФайла,, Ложь, УникальныйИдентификатор);

    КонецЕсли;



    ЗагрузитьСервер();



КонецПроцедуры



&НаСервере

Процедура ЗагрузитьСервер()



    ЧтениеXML = Новый ЧтениеXML;



    Если ПередачаФайлаНаСервер Тогда

        ИмяВременногоФайла = ПолучитьИмяВременногоФайла("xml");



        ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресХранилища);

        ДвоичныеДанные.Записать(ИмяВременногоФайла);

        ЧтениеXML.ОткрытьФайл(ИмяВременногоФайла);

    Иначе

        ЧтениеXML.ОткрытьФайл(Объект.ИмяФайла);

    КонецЕсли;



    ОбъектXDTO = ФабрикаXDTO.ПрочитатьXML(ЧтениеXML);

    ЧтениеXML.Закрыть();

    /// Код загрузки

    Сообщить("Загрузка завершена");

КонецПроцедуры

Категория: Работа с Файлами и Каталогами

Использование двух Схем Компоновки Данных - загрузка, получение параметров и настроек

Есть две схемы, основная и не основная:

Код 1C v 8.х

 

//Как для формирования отчета испольновать не основную СКД? так:

НоваяСхема = ПолучитьМакет(НеОсновнаяСхемаКомпоновкиДанных);

Отчет.СхемаКомпоновкиДанных = НоваяСхема;

//Загрузим настройки СКД

Отчет.КомпоновщикНастроек.ЗагрузитьНастройки(НоваяСхема.НастройкиПоУмолчанию);

Код 1C v 8.х

 //Как программно получить параметры не основной СКД? так:

Схема = ПолучитьМакет("НеОсновнаяСхемаКомпоновкиДанных");

ПараметрыСхемы = Схема.Параметры;

Код 1C v 8.х

  // Абазин Антон: мне иногда лень городить программное заполнение схемы,

// я ее делаю в режиме предприятия, сохраняю в xml,

// потом этот xml помещаю в макет как двоичные данные

// потом в коде сохраняю xml из макета в tmp и подставляю ее в скд ))



   Макет = ПолучитьМакет("Настройка");

    Макет.Записать(ИмяФайла);



    Чтение = Новый ЧтениеXML;

    НовыйСXDTO = Новый СериализаторXDTO(ФабрикаXDTO);

    Чтение.ОткрытьФайл(ИмяФайла);

    Настройки = НовыйСXDTO.ПрочитатьXML(Чтение);



    КомпоновщикНастроек1 = Новый КомпоновщикНастроекКомпоновкиДанных;

    КомпоновщикНастроек1.ЗагрузитьНастройки(Настройки);//СхемаКомпоновкиДанных.НастройкиПоУмолчанию);

Категория: Схема Компоновки Данных