Показано с 1 по 10 из 15
Комбинированный просмотр
-
16.07.2013, 13:41 #1
- Регистрация
- 25.01.2012
- Сообщений
- 66
- Сказал(а) спасибо
- 1
- Поблагодарили 21 раз(а) в 16 сообщениях
Можно больше кода
-
16.07.2013, 14:16 #2
- Регистрация
- 07.10.2009
- Сообщений
- 10
- Сказал(а) спасибо
- 0
- Поблагодарили 0 раз(а) в 0 сообщениях
Конфигурация БП 2.0. Не получается вывести данные из второго запроса
Функция ПечатьРеализацияТоваровУс луг()
ЗапросШапка = Новый Запрос;
ЗапросШапка.УстановитьПар� �метр("ТекущийДокумент", СсылкаНаОбъект);
ЗапросШапка.Текст =
"ВЫБРАТЬ
| РеализацияТоваровУслуг.Но� �ер,
| РеализацияТоваровУслуг.Да� �а,
| РеализацияТоваровУслуг.До� �оворКонтрагента,
| РеализацияТоваровУслуг.Ко� �трагент,
| РеализацияТоваровУслуг.Ру� �оводитель КАК Руководитель,
| РеализацияТоваровУслуг.Су� �маДокумента,
| РеализацияТоваровУслуг.Ко� �трагент.НаименованиеПолно е КАК Контрагент,
| РеализацияТоваровУслуг.Ко� �трагент.ОсновноеКонтактно еЛицо.Должность КАК Должность,
| РеализацияТоваровУслуг.Ко� �трагент.ОсновноеКонтактно еЛицо.Представление КАК КонтактноеЛицо,
| РеализацияТоваровУслуг.Ор� �анизация.НаименованиеПолн ое КАК Организация,
| РеализацияТоваровУслуг.За� �уководителяПоПриказу
|ИЗ
| Документ.РеализацияТоваро� �Услуг КАК РеализацияТоваровУслуг
|ГДЕ
| РеализацияТоваровУслуг.Сс� �лка = &ТекущийДокумент";
Шапка = ЗапросШапка.Выполнить().Выб рать();
Шапка.Следующий();
Запрос = Новый Запрос;
Запрос.УстановитьПараметр( "ТекущийДокумент", СсылкаНаОбъект);
Запрос.Текст ="ВЫБРАТЬ
| РеализацияТоваровУслугТов ары.Номенклатура КАК Номенклатура,
| РеализацияТоваровУслугТов ары.Номенклатура.Наименова ниеПолное КАК Товар,
| РеализацияТоваровУслугТов ары.Количество КАК Количество,
| РеализацияТоваровУслугТов ары.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
| РеализацияТоваровУслугТов ары.Цена КАК Цена,
| РеализацияТоваровУслугТов ары.Сумма КАК Сумма,
| РеализацияТоваровУслугТов ары.СтавкаНДС КАК СтавкаНДС,
| РеализацияТоваровУслугТов ары.СуммаНДС КАК СуммаНДС
|ИЗ
| Документ.РеализацияТоваро� �Услуг.Товары КАК РеализацияТоваровУслугТов ары
|ГДЕ
| РеализацияТоваровУслугТов ары.Ссылка = &ТекущийДокумент";
ТаблицаУслуги = Запрос.Выполнить().Выгрузит ь();
ТабДокумент = Новый ТабличныйДокумент;
ТабДокумент.ИмяПараметров� �ечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Реализац� �яТоваровУслугТовары";
Макет = ПолучитьМакет("Акт");
ОбластьМакета = Макет.ПолучитьОбласть("Заг� �ловок");
НомерАкт = Шапка.Номер;
НомерАкт = ОбщегоНазначения.Получить� �омерНаПечать(СсылкаНаОбъе кт);
ОбластьМакета.Параметры.Но мер = "Акт № " + НомерАкт;
ТабДокумент.Вывести(Област ьМакета);
ОбластьМакета = Макет.ПолучитьОбласть("Дат� �");
ОбластьМакета.Параметры.Да та = Формат (Шапка.Дата, "ДФ=dd.MM.yyyy") + "г.";
ТабДокумент.Вывести(Област ьМакета);
ОбластьМакета = Макет.ПолучитьОбласть("Шап� �а");
ТабДокумент.Вывести(Област ьМакета);
ОбластьСтроки = Макет.ПолучитьОбласть("Стр� �ка");
НомерСтроки = 0;
Для Каждого СтрокаТабличнойЧасти Из ТаблицаУслуги Цикл
НомерСтроки = НомерСтроки + 1;
ОбластьСтроки.Параметры.За полнить(СтрокаТабличнойЧа� �ти);
ОбластьСтроки.Параметры.Но мерСтроки = НомерСтроки;
ТабДокумент.Вывести(Област ьСтроки);
КонецЦикла;
Номенклатура = ОбластьСтроки.Параметры.То вар;
ОбластьМакета = Макет.ПолучитьОбласть("Тел� �");
РуководительР = Шапка.КонтактноеЛицо;
ОбластьМакета.Параметры.Те кст = Шапка.Контрагент + " в лице, " + ПадежП(Шапка.Должность, 2) + " " + Падеж(РуководительР)
+ ", действующего на основании Устава с одной стороны, и " + Шапка.Организация + " ";
ТабДокумент.Вывести(Област ьМакета);
Возврат ТабДокумент;
КонецФункции
Социальные закладки