Имя: Пароль:
1C
1С v8
Передать активную строку во внешнюю печатную форму.
0 Boleev v2
 
16.10.12
01:40
Обычные формы. Использую типовой механизм печати внешникх печатных форм.Как можно реализовать передачу активной строки во внешнюю печатную форму?
1 France
 
16.10.12
01:44
зачЭм?
2 Boleev v2
 
16.10.12
02:10
(1) в зависимости от значения данных в этой строке будут по разному обрабатываться печатные формы
3 zladenuw
 
16.10.12
02:11
ну так передавай как параметр. и потом уже при печати смотри.
4 Boleev v2
 
16.10.12
02:12
(3) ап чем и вопрос. как передать параметр во внешнюю печатную форму?
5 France
 
16.10.12
02:13
а я бы на активную строку не положился..
кто этих юзверов поймет: сейчас эта строка нравиццо, а через миллисекунду другую выберут.
6 zladenuw
 
16.10.12
02:14
и если 100 строк. разные отчет ? хм. что за отчет хоть. ну можно посмотреть.
7 Boleev v2
 
16.10.12
02:16
(6) не отчет. У справочника договоры есть ТЧ Допсоглашения с колонками Дата и Номер.

Пользователь встает на нужное допсоглашение и печатает его.
Форма доп.соглашения внешняя.
8 zladenuw
 
16.10.12
02:17
и. где проблема ?
9 Boleev v2
 
16.10.12
02:18
(8) проблема в сабже
10 zladenuw
 
16.10.12
02:19
давай так. само доп соглашение отправить на печать можешь, если переоткрывать ?
11 Boleev v2
 
16.10.12
02:23
(10) могу
12 zladenuw
 
16.10.12
02:24
ну так повтори кнопку печати с элемента только со списка. ты же передаешь объект
13 zladenuw
 
16.10.12
02:25
Процедура ОсновныеДействияФормыСправа_Заява_Рішення_РішенняПроВидачу(Кнопка)
   мДеревоМакетов = УниверсальныеМеханизмы.ПолучитьДеревоМакетовПечати(ДокСписок[0].Ссылка, Новый Структура(), Новый Действие("ОсновныеДействияФормыПечать"), Новый Действие("ОсновныеДействияФормыУстановитьПечатьПоУмолчанию"));
   
   Для каждого СтрСписка Из ДокСписок Цикл
       лОбъект = СтрСписка.Ссылка.ПолучитьОбъект();
       Для каждого СтрМакеты Из мДеревоМакетов.Строки Цикл
           Если СокрЛП(СтрМакеты.Текст) = "СправаСпецификация_Сертф" ИЛИ СокрЛП(СтрМакеты.Текст) = "ЗаявкаСпецификации_Сертф" ИЛИ СокрЛП(СтрМакеты.Текст) = "Рішення_Сертф"  ИЛИ СокрЛП(СтрМакеты.Текст) = "РішенняЗаЗаявкою_Сертф"  ИЛИ СокрЛП(СтрМакеты.Текст) = "Угода_Сертф" Тогда
               УниверсальныеМеханизмы.ПечатьПоДополнительнойКнопке(мДеревоМакетов, лОбъект, ЭтаФорма, СтрМакеты.Текст);
           КонецЕсли;
       КонецЦикла;
   КонецЦикла;    
КонецПроцедуры
14 mxs089
 
16.10.12
02:26
если попробовать так:

Форма = СсылкаНаОбъект.ПолучитьФорму();
Если Форма.Открыта() Тогда
ТекущиеДанные = Форма.ЭлементыФормы.ТаблицаЗначений.ТекущиеДанные;
КонецЕсли;
15 Boleev v2
 
16.10.12
02:26
(12) тогда смысл внешней печатной формы теряется
16 zladenuw
 
16.10.12
02:28
(13) оно ?
17 Boleev v2
 
16.10.12
02:30
(16) не. в (14) подошло. спс