1С Видео : Отдаем PDF файл через Web-сервис

 Функция 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>   

 &НаСервере
Функция ПолучитьПДФ()


 ОпределениеВС = Новый 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>