Имя: Пароль:
1C
1С v8
Люди, подскажите!!!
0 yariksuray
 
14.12.11
12:38
Как мне передать параметр ПредставлениеДоговора из Запроса???

ПечатьДокумента1()   Экспорт
   Запрос= Новый Запрос;
   Запрос.УстановитьПараметр("ТекущийДокумент",Ссылка) ;
   Запрос.Текст=    
   "ВЫБРАТЬ
   |    НалоговаяНакладная.ДоговорКонтрагента,
   |    НалоговаяНакладная.Контрагент,
   |    НалоговаяНакладная.Организация,
   |    НалоговаяНакладная.Ссылка,
   |    НалоговаяНакладная.ПредставлениеОрганизации,
   |    НалоговаяНакладная.Организация.Код КАК Код,
   |    НалоговаяНакладная.Дата
   |ИЗ
   |    Документ.НалоговаяНакладная КАК НалоговаяНакладная
   |ГДЕ
   |    НалоговаяНакладная.Ссылка = &ТекущийДокумент";
   Шапка=Запрос.Выполнить().Выбрать();
   Шапка.Следующий();
   
   Запрос= Новый Запрос;
   Запрос.УстановитьПараметр("ТекущийДокумент",Ссылка) ;
   Запрос.Текст=
   "ВЫБРАТЬ
   |    НалоговаяНакладнаяТовары.Номенклатура КАК Товар,
   |    НалоговаяНакладнаяТовары.Количество,
   |    НалоговаяНакладнаяТовары.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
   |    НалоговаяНакладнаяТовары.Цена,
   |    НалоговаяНакладнаяТовары.Сумма,
   |    НалоговаяНакладнаяТовары.СтавкаНДС,
   |    НалоговаяНакладнаяТовары.СуммаНДС,
   |    НалоговаяНакладнаяТовары.НомерСтроки
   |ИЗ
   |    Документ.НалоговаяНакладная.Товары КАК НалоговаяНакладнаяТовары
   |ГДЕ
   |    НалоговаяНакладнаяТовары.Ссылка = &ТекущийДокумент";
   Выборка=Запрос.Выполнить().Выбрать();
   
   ТабДокумент = Новый ТабличныйДокумент;
   ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_НалоговаяНакладгная_ПереченьТоваров";
   
   Макет = ПолучитьМакет("ПереченьТоваров");
   
   //КодЯзыкаПечать = Локализация.ПолучитьЯзыкФормированияПечатныхФорм(УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "РежимФормированияПечатныхФорм"));
   //Макет.КодЯзыкаМакета = КодЯзыкаПечать;

   
   СведенияОрганизация        = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Организация, Шапка.Дата);
   СведенияКонтрагент         = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Контрагент, Шапка.Дата);
   

   ОбластьМакета =Макет.ПолучитьОбласть("Заголовок");
   ОбластьМакета.Параметры.ПредставлениеОрганизации = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОрганизация, "ПолноеНаименование,");
   ОбластьМакета.Параметры.ДопИнфОрганизации = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОрганизация, "НомерСчета,Банк,МФО,/,ЮридическийАдрес,Телефоны,/,КодПоЕДРПОУ,КодПоДРФО,ИНН,НомерСвидетельства,/,ПлательщикНалогаНаПрибыль,");
   ОбластьМакета.Параметры.ПредставлениеКонтрагента = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияКонтрагент, "ПолноеНаименование,");
   ОбластьМакета.Параметры.ДопИнфКонтрагента = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияКонтрагент, "ФактическийАдрес,Телефоны,");
   ОбластьМакета.Параметры.ПредставлениеДоговора=
   ТабДокумент.Вывести(ОбластьМакета);
           
   
   ОбластьШапкаТаблицы= Макет.ПолучитьОбласть("ШапкаТаблицы");
   ТабДокумент.Вывести(ОбластьШапкаТаблицы);
       
   
   // Выведем таблицу.
   Пока Выборка.Следующий() Цикл
        ОбластьМакета= Макет.ПолучитьОбласть("Строка");
          ОбластьМакета.Параметры.Заполнить(Выборка);
        ТабДокумент.Вывести(ОбластьМакета);

   КонецЦикла;
   
  Возврат ТабДокумент;
   
КонецФункции    


Как мне передать параметр ПредставлениеДоговора из Запроса???
1 Wobland
 
14.12.11
12:39
не хочу код читать. что такое "передать параметр из запроса"?
Груви, он не умеет!
2 le_
 
14.12.11
12:42
(0) В запрос добавь:
Представление(НалоговаяНакладная.ДоговорКонтрагента) КАК ДоговорПредставление,

далее:
ОбластьМакета.Параметры.ПредставлениеДоговора = Шапка.ДоговорПредставление;
3 yariksuray
 
14.12.11
12:58
спасибо!!! Врпинципе можно было и без захода в Запрос достаточно было ОбластьМакета.Параметры.ПредставлениеДоговора = Шапка.ДоговорКонтрагента;
4 Starhan
 
14.12.11
13:05
:) Ну ничего, когда начнешь работать с выводом большого количества инфы тогда дойдет.
5 yariksuray
 
14.12.11
13:27
согласен!!!