ЭСМ-7 справка выполненных работ и услуг

Новая тема
"Здравствуйте подскажите я в тупике...как сделать что бы одна только услуга попадала в печатную форму...я не могу понять как вывесите во внешнею печатную форму доп реквизиты я создал их в 1с предприятие к документу реализация товаров и услуг..или же я что то не то делаю
   
ЗапросШапка = Новый Запрос;       ЗапросШапка.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.СсылкаНаОбъект);       ЗапросШапка.Текст =       "ВЫБРАТЬ       |    РеализацияТоваровУслуг.Номер,       |    РеализацияТоваровУслуг.Дата,       |    РеализацияТоваровУслуг.Контрагент КАК Заказчик,       |    РеализацияТоваровУслуг.Организация КАК Организация,       |    РеализацияТоваровУслуг.ВалютаДокумента,       |    РеализацияТоваровУслуг.УчитыватьНДС,       |    РеализацияТоваровУслуг.СуммаВключаетНДС,       |    РеализацияТоваровУслуг.Организация.КодПоОКПО КАК ОрганизацияОКПО,       |    РеализацияТоваровУслуг.Контрагент.КодПоОКПО КАК КонтрагентОКПО       |ИЗ       |    Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг       |ГДЕ       |    РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент";              Шапка = ЗапросШапка.Выполнить().Выбрать();       Шапка.Следующий();              ТабДокумент = Новый ТабличныйДокумент;       ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_РеализацияТоваровУслуг_ЭСМ7";       Макет       = ПолучитьМакет("ЭСМ7");       ОбластьМакета = Макет.ПолучитьОбласть("Шапка");       ОбластьМакета.Параметры.Заполнить(Шапка);       ОбластьМакета.Параметры.ДатаДень = Лев(СсылкаНаОбъект.Дата,2);       ОбластьМакета.Параметры.ДатаМесяц = Сред(СсылкаНаОбъект.Дата,4,2);       ОбластьМакета.Параметры.ДатаГод = Сред(СсылкаНаОбъект.Дата,9,2);       ОбластьМакета.Параметры.Организация = ФормированиеПечатныхФорм.ОписаниеОрганизации(УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Организация, Шапка.Дата), "НаименованиеДляПечатныхФорм,");       ОбластьМакета.Параметры.Заказчик = ФормированиеПечатныхФорм.ОписаниеОрганизации(УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Заказчик, Шапка.Дата), "ПолноеНаименование,");       ТабДокумент.Вывести(ОбластьМакета);        Запрос = Новый Запрос;       Запрос.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект);       Запрос.Текст ="ВЫБРАТЬ                           |    РеализацияТоваровУслугУслуги.Номенклатура,                           |    РеализацияТоваровУслугУслуги.Содержание,                           |    РеализацияТоваровУслугУслуги.Количество,                           |    РеализацияТоваровУслугУслуги.Цена,                           |    РеализацияТоваровУслугУслуги.Сумма,                           |    РеализацияТоваровУслугУслуги.СуммаНДС                           |ИЗ                           |    Документ.РеализацияТоваровУслуг.Услуги КАК РеализацияТоваровУслугУслуги";       ТаблицаУслуги = Запрос.Выполнить().Выгрузить();              // Вывести табличную часть       ОбластьСтроки = Макет.ПолучитьОбласть("Строка");       НомерСтроки = 0;       Для Каждого СтрокаТабличнойЧасти Из ТаблицаУслуги Цикл           НомерСтроки = НомерСтроки + 1;           СтрокаУслуги = """"+СтрокаТабличнойЧасти.Номенклатура.НаименованиеПолное+" ("+СтрокаТабличнойЧасти.Содержание+")";           ОбластьСтроки.Параметры.Заполнить(СтрокаТабличнойЧасти);           ОбластьСтроки.Параметры.СтрокаУслуги = СокрЛП(СтрокаУслуги);           ОбластьСтроки.Параметры.КодНоменклатуры = СокрЛП(СтрокаТабличнойЧасти.Номенклатура.Код);                                                                                   ОбластьСтроки.Параметры.Цена = ОбщегоНазначения.ФорматСумм(СтрокаТабличнойЧасти.Цена);           ОбластьСтроки.Параметры.Сумма = ОбщегоНазначения.ФорматСумм(СтрокаТабличнойЧасти.Сумма);           ТабДокумент.Вывести(ОбластьСтроки);       КонецЦикла;       ИтогоСумма    = ТаблицаУслуги.Итог("Сумма");       ИтогоКоличество = ТаблицаУслуги.Итог("Количество");              СуммаНДС = ТаблицаУслуги.Итог("СуммаНДС");       Если Шапка.УчитыватьНДС Тогда                   Всего = ?(Шапка.СуммаВключаетНДС,ИтогоСумма,ИтогоСумма + СуммаНДС);       Иначе           Всего = ИтогоСумма;       КонецЕсли;              ОбластьМакета = Макет.ПолучитьОбласть("Подвал");       ОбластьМакета.Параметры.ИтогоСумма = ОбщегоНазначения.ФорматСумм(ИтогоСумма);       ОбластьМакета.Параметры.ИтогоКоличество = ИтогоКоличество;       ОбластьМакета.Параметры.Всего = ОбщегоНазначения.ФорматСумм(Всего);       ПарПредмета="час,часа,часов,м,,,,,0";       ПрописьЧасов = ЧислоПрописью(Цел(ИтогоКоличество),, ПарПредмета);       Минут = Цел((ИтогоКоличество-Цел(ИтогоКоличество))*60);       ПарПредмета="минута,минуты,минут,ж,,,,,0";       ПрописьМинут = ЧислоПрописью(Минут,, ПарПредмета);                      ОбластьМакета.Параметры.ПечЧасы  = """"+ПрописьЧасов+" "+НРЕГ(ПрописьМинут);              //Руководитель = ОбщегоНазначения.ОтветственныеЛица();       //ОбластьМакета.Параметры.ФИОРуководителя       = ФИОРуководителя;       //ОбластьМакета.Параметры.ДолжностьРуководителя = ДолжностьРуководителя;                      Если Шапка.УчитыватьНДС Тогда           Если СуммаНДС <> 0 Тогда               ОбластьМакета.Параметры.ВсегоНДС = ОбщегоНазначения.ФорматСумм(СуммаНДС);               ОбластьМакета.Параметры.СтрокаНДС      = ?(Шапка.СуммаВключаетНДС, "В том числе НДС:", " Сумма НДС:");           Иначе               ОбластьМакета.Параметры.ВсегоНДС = "-";               ОбластьМакета.Параметры.СтрокаНДС      = "Без налога (НДС)";           КонецЕсли;           ТабДокумент.Вывести(ОбластьМакета);           КонецЕсли;                    Возврат ТабДокумент; 

пдскажите пожалуйста!"
Во втором запросе он выбирает табличную часть все документов Реализация товаров и услуг.
"Ага спасибо я исправил т.е. надо условие поставить да?....а вот еще вопросик небольшой как обратиться к доп реквизитам этого док. что бы их вывести на печатную форму..делаю доп реквизиты к этому док и потом вот такой запрос
 
     Запрос = Новый Запрос;       Запрос.УстановитьПараметр("Объект",СсылкаНаОбъект);       Запрос.УстановитьПараметр("Свойство","Машина");       Запрос.Текст = "ВЫБРАТЬ                      |    ЗначенияСвойствОбъектов.Значение КАК Автомобиль                      |ИЗ                      |    РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов                      |ГДЕ                      |    ЗначенияСвойствОбъектов.Объект = &Объект                      |    И ЗначенияСвойствОбъектов.Свойство = &Свойство";       Результат = Запрос.Выполнить().Выбрать(); 


тип значения реквизита выбираю справочник но нет там такого справочника Значение доп. реквизитов...а если акцентировать 2е последние строки в запросе то запрос возвращает значение...как быть подскажите?"
Учится программированию по форуму не самая лучшая идея и Вам об этом уже говорили!
спс за ответ...я учусь по кнгам делаю всекак читал все как описывается в книгах курсах но все рвно ошибки выходят...мне что теперь нельзя за помощью оратится...вот вы же тоже всеравно нет нет да обращаетесь
Вы не учитесь, Вы пытаетесь переложить свою работу на плечи пользователей форума! Вы работаете где то и Вам дают задания, у Вас не получается их сделать и Вы начинаете задавать вопросы, сами даже не пытаетесь что либо найти, сразу на форум, авось кто-нибудь решит проблему!? Это неправильно, Вы же получаете ЗП, надеюсь по крайней мере!?
> вот вы же тоже всеравно нет нет да обращаетесь

  Хм-ммм. Ну это ты погорячился.

  Задай нужный поиск в конфигураторе и посмотри как там используется подобное.
Читают тему
(гостей: 1)

Быстрый переход