Имя: Пароль:
1C
1С v8
Печать в тонком клиенте
0 AllJoke
 
07.11.11
10:55
Всем день добрый. Подскажите пожалуйста, как осуществить печать в веб-клиенте? Делаю таким образом:

&НаСервере
Функция ПолучитьМакетНаСервере(Наим, ДР, Серия, Номер, КемВыдан, ДатаВыдачи)
   ВремМакет = Справочники.ФизическиеЛица.ПолучитьМакет("Макет");
   ВремМакет.Параметры.ФИО_Охотника          = Наим;
   ВремМакет.Параметры.ДатаРождения_Охотника = ДР;
   ВремМакет.Параметры.Серия_ОхотБилет          = Серия;
   ВремМакет.Параметры.Номер_ОхотБилет       = Номер;
   ВремМакет.Параметры.КемВыдан_ОхотБилет    = КемВыдан;
   ВремМакет.Параметры.ДатаВыдачи_ОхотБилет  = ДатаВыдачи;
   Возврат ВремМакет;
КонецФункции

&НаКлиенте
Процедура СформироватьВыписку(Команда)
   
   СтрокаМинПриродыРК = "Министерство природных ресурсов и охраны окружающей среды Республики Коми";
   
   Макет = ПолучитьМакетНаСервере(ЭтаФорма.Наименование, ЭтаФорма.ДатаРождения, ЭтаФорма.СерияОхотБилет, ЭтаФорма.НомерОхотБилет, СтрокаМинПриродыРК, ЭтаФорма.ДатаВыдачиОхотБилет);
   
   Макет.Показать("Выписка об охотнике");
КонецПроцедуры

Параметры передаются, но при возвращении на клиента они то ли скидываются, то ли не может их прочитать. В типовых смотрел, но уж слишком там все запутанно.
1 RomaH
 
naïve
07.11.11
11:09
Новый табдок
табдок.вывести(макет)
2 AllJoke
 
07.11.11
11:11
(1) В какую функцию вставлять?
3 RomaH
 
naïve
07.11.11
11:12
ПолучитьМакетНаСервере
надо не макет получить, а табличный документ
4 AllJoke
 
07.11.11
11:14
Можно более подробно?
5 RomaH
 
naïve
07.11.11
11:15
вывести надо обязательно
6 Wobland
 
07.11.11
11:16
(4) возвращай ТабДок. (1) уже всё рассказал
7 AllJoke
 
07.11.11
11:16
&НаСервере
Функция ПолучитьМакетНаСервере(Наим, ДР, Серия, Номер, КемВыдан, ДатаВыдачи)
   
   ВремМакет = Справочники.ФизическиеЛица.ПолучитьМакет("Макет");
   ВремМакет.Параметры.ФИО_Охотника          = Наим;
   ВремМакет.Параметры.ДатаРождения_Охотника = ДР;
   ВремМакет.Параметры.Серия_ОхотБилет          = Серия;
   ВремМакет.Параметры.Номер_ОхотБилет       = Номер;
   ВремМакет.Параметры.КемВыдан_ОхотБилет    = КемВыдан;
   ВремМакет.Параметры.ДатаВыдачи_ОхотБилет  = ДатаВыдачи;
   ТабДок = Новый ТабличныйДокумент;
   Возврат ТабДок.Вывести(ВремМакет);
КонецФункции

&НаКлиенте
Процедура СформироватьВыписку(Команда)
   
   СтрокаМинПриродыРК = "Министерство природных ресурсов и охраны окружающей среды Республики Коми";
   
   Макет = ПолучитьМакетНаСервере(ЭтаФорма.Наименование, ЭтаФорма.ДатаРождения, ЭтаФорма.СерияОхотБилет, ЭтаФорма.НомерОхотБилет, СтрокаМинПриродыРК, ЭтаФорма.ДатаВыдачиОхотБилет);
   
   
КонецПроцедуры


Так ругается на "Отсутствует отображения для типов - ОбластьЯчеекТабличногоДокумента"
8 RomaH
 
naïve
07.11.11
11:17
ТабДок = Новый ТабличныйДокумент;
ТабДок.Вывести(ВремМакет);

   Возврат Табдок;

а так?
9 AllJoke
 
07.11.11
11:20
(8) а так сработало.
Спасибо. Но теперь нужно все это в Ексель выгрузить. На клиенте это реально?
10 MRAK
 
07.11.11
11:21
(9) реально
11 RomaH
 
naïve
07.11.11
11:25
но лучше на сервере
12 AllJoke
 
07.11.11
11:30
хм... странно. В эксплорере выводит инфу, а в мозилле пустое окно... Что это может быть?
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn