Имя: Пароль:
1C
1C 7.7
v7: Как получить заголовок печатной формы?
0 Подводный Таракан
 
18.10.12
10:48
Задача следующая - есть сформированная печатная форма с заголовком к примеру "123456_Иванов.ИИ_ТД"

Далее по кнопке в интерфейсе делаю открытие обработки:

Процедура ПриОткрытии()
   перем сервис;
   перем Таб1;
   Перем Ширина,Высота;
   статусвозврата(0);
   
   загрузитьвнешнююкомпоненту(каталогиб() + "FormEx.dll");
   ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"SpreadSheet.dll");
   сервис = создатьобъект("Сервис");
   если сервис.АктивныйКонтекст(Таб1) = 0 тогда
       возврат;
   конецесли;
   если не(типзначениястр(Таб1) = "Таблица") тогда
       возврат;
   конецесли;
   
   Таб = СоздатьОбъект ("ТабличныйДокумент");    
   Таб.ЗагрузитьИзТаблицы(Таб1);
   обл=Таб.Область(1,1,Таб.ВысотаТаблицы(),Таб.ШиринаТаблицы());
   обл.РассчитатьРазмеры(Ширина,Высота);
   Конвертер = СоздатьОбъект ("Йоксель.ГрафическийКонвертер.PDF");
   Конвертер.ВысотаСтраницы = Высота + 210;// * 20 +210 ;
   Конвертер.ШиринаСтраницы = Ширина + 210;// * 105 +210 ;
   Конвертер.КоличествоБитНаПиксел = 24;
   Конвертер.Документ = Таб;
   Конвертер.ПолеСлева = 100;
   Конвертер.ПолеСверху = 100;
   Конвертер.ПолеСправа = 100;
   Конвертер.ПолеСнизу = 100;
   Конвертер.ЗаписатьВФайл ("C:\123\"+ИмяТаб+".pdf");

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

как в этой процедуре получить ИмяТаб="123456_Иванов.ИИ_ТД" ?
1 Подводный Таракан
 
18.10.12
16:06
ап
2 Wobland
 
18.10.12
16:07
имхо никак
3 aka MIK
 
18.10.12
16:11
(0)

   списоктаблиц = Сервис.списоктаблиц();
   Ном = списоктаблиц.найтизначение(Таб);
   если Ном <> 0 тогда
       списоктаблиц.получитьзначение(Ном,ИмяФайла);
4 aka MIK
 
18.10.12
16:12
(0) А что, нормально конвертит? Дашь итоговую обработку
5 Подводный Таракан
 
18.10.12
16:16
(4) да вроде нормально, а итоговая обработка вся в коде и содержится в принципе
6 Подводный Таракан
 
18.10.12
16:30
(3) спасибо, все работает
7 Злопчинский
 
18.10.12
21:20
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование. Фредерик Брукс-младший