v8: как исправить? УТ 11. внешняя печатная форма

1С v8

06.03.13

✎

12:06

Функция Печать() Экспорт
Ссылка = СсылкаНаОбъект.Ссылка;

//Сообщить(Ссылка.Организация.НаименованиеПолное);

Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Ссылка", Ссылка);
Запрос.УстановитьПараметр("Адрес", Справочники.ВидыКонтактнойИнформации.ФактАдресОрганизации);
Запрос.УстановитьПараметр("Телефон", Справочники.ВидыКонтактнойИнформации.ТелефонОрганизации);

Запрос.Текст = "ВЫБРАТЬ
| ЗаказПокупателя.Номер,
| ЗаказПокупателя.Дата,
| ЗаказПокупателя.Организация,
| ЗаказПокупателя.Организация.ИНН КАК ИНН,
| ЗаказПокупателя.Организация.КПП КАК КПП,
| ЗаказПокупателя.Организация.КодПоОКПО КАК ОКПО,
| ЗаказПокупателя.Организация.ОсновнойБанковскийСчет.НомерСчета КАК НомерСчета,
| ЗаказПокупателя.Организация.ОсновнойБанковскийСчет.Банк.Наименование КАК Банк,
| ЗаказПокупателя.Организация.ОсновнойБанковскийСчет.Банк.КоррСчет КАК КоррСчет,
| ЗаказПокупателя.Организация.КодОКВЭД КАК ОКВЭД,
| ЗаказПокупателя.Организация.ОГРН КАК ОГРН,
| ВложенныйЗапрос.Адрес,
| ВложенныйЗапрос1.Телефон,
| ЗаказПокупателя.Организация.ОсновнойБанковскийСчет.Банк.Код КАК БИК,
| РегистрацияВИФНС.КПП КАК КПП1
|ИЗ
| Документ.ЗаказПокупателя КАКЗаказПокупателя
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.РегистрацияВИФНС КАК РегистрацияВИФНС
| ПО ЗаказПокупателя.Организация.Ссылка = РегистрацияВИФНС.Владелец.Ссылка,
| (ВЫБРАТЬ
| КонтактнаяИнформация.Представление КАК Адрес
| ИЗ
| РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ВидыКонтактнойИнформации КАК ВидыКонтактнойИнформации
| ПО КонтактнаяИнформация.Вид = ВидыКонтактнойИнформации.Ссылка
| ГДЕ
| КонтактнаяИнформация.Вид = &Адрес) КАК ВложенныйЗапрос,
| (ВЫБРАТЬ
| КонтактнаяИнформация.Представление КАК Телефон
| ИЗ
| РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ВидыКонтактнойИнформации КАК ВидыКонтактнойИнформации
| ПО КонтактнаяИнформация.Вид = ВидыКонтактнойИнформации.Ссылка
| ГДЕ
| КонтактнаяИнформация.Вид = &Телефон) КАК ВложенныйЗапрос1,
|ГДЕ
| ЗаказПокупателя.Ссылка = &Ссылка";

Результат = Запрос.Выполнить();

Выборка = Результат.Выбрать();

Запрос1 = Новый Запрос;
Запрос1.УстановитьПараметр("Ссылка", Ссылка);
Запрос1.Текст = "ВЫБРАТЬ
| ЗаказПокупателя.Контрагент.НаименованиеПолное КАК Контрагент,
| ЗаказПокупателя.Контрагент.ИНН КАК ИНН,
| ЗаказПокупателя.Контрагент.ОсновнойБанковскийСчет.НомерСчета КАК Счет,
| ЗаказПокупателя.Контрагент.ОсновнойБанковскийСчет.Банк.КоррСчет КАК КоррСчет,
| ЗаказПокупателя.Контрагент.ОсновнойБанковскийСчет.Банк.Наименование КАК Банк,
| ЗаказПокупателя.Контрагент.ОсновнойБанковскийСчет.Банк.Код КАК БИК,
| ЗаказПокупателя.Контрагент.КПП КАК КПП
|ИЗ
| Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
|ГДЕ
| РеализацияТоваровУслуг.Ссылка = &Ссылка";

Результат1 = Запрос1.Выполнить();
Выборка1 = Результат1.Выбрать();

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

Результат2 = Запрос2.Выполнить();
Выборка2 = Результат2.Выбрать();

//////////////
ЗапросДолжность = Новый Запрос;
ЗапросДолжность.УстановитьПараметр("Должность", "%"+"ректор"+"%");
ЗапросДолжность.УстановитьПараметр("Ссылка", Ссылка.Контрагент.Ссылка);
ЗапросДолжность.Текст = "ВЫБРАТЬ
| КонтактныеЛица.Наименование КАК ФИО2,
| КонтактныеЛица.Должность КАК Должность2,
| ВложенныйЗапрос.ФИООсновной,
| ВложенныйЗапрос.ДолжностьОсновной
|ИЗ
| Справочник.КонтактныеЛица КАК КонтактныеЛица
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты КАК Контрагенты
| ПО КонтактныеЛица.ОбъектВладелец = Контрагенты.Ссылка,
| (ВЫБРАТЬ
| КонтактныеЛица.Наименование КАК ФИООсновной,
| КонтактныеЛица.Должность КАК ДолжностьОсновной
| ИЗ
| Справочник.Контрагенты КАК Контрагенты
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.КонтактныеЛица КАК КонтактныеЛица
| ПО Контрагенты.ОсновноеКонтактноеЛицо = КонтактныеЛица.Ссылка) КАК ВложенныйЗапрос
|ГДЕ
| КонтактныеЛица.Должность ПОДОБНО &Должность
| И Контрагенты.Ссылка = &Ссылка";

РезультатДолжность = ЗапросДолжность.Выполнить();
ВыборкаДолжность = РезультатДолжность.Выбрать();

Запрос3 = Новый Запрос;
Запрос3.УстановитьПараметр("Ссылка", Ссылка);
Запрос3.Текст = "ВЫБРАТЬ
| ЗаказПокупателя.Номенклатура КАК ПП,
| СУММА(ЗаказПокупателя.Сумма) КАК Сумма,
| МАКСИМУМ(ЗаказПокупателя.СтавкаНДС) КАК НДС,
| СУММА(ЗаказПокупателя.СуммаНДС) КАК СуммаНДС
|ИЗ
| Документ.ЗаказПокупателя.Товары КАК РеализацияТоваровУслугТовары
|ГДЕ
| ЗаказПокупателя.Ссылка = &Ссылка
|
|СГРУППИРОВАТЬ ПО
| ЗаказПокупателя.Номенклатура
|ИТОГИ ПО
| ОБЩИЕ";

Результат3 = Запрос3.Выполнить();
Выборка3 = Результат3.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

Запрос4 = Новый Запрос;
Запрос4.УстановитьПараметр("Ссылка", Ссылка.Контрагент.Ссылка);
Запрос4.УстановитьПараметр("Наименование", "Основание" );
Запрос4.Текст = "ВЫБРАТЬ
| ЗначенияСвойствОбъектов.Значение КАК Документ2
|ИЗ
| РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
|ГДЕ
| ЗначенияСвойствОбъектов.Объект = &Ссылка
| И ЗначенияСвойствОбъектов.Свойство.Наименование = &Наименование
|
|СГРУППИРОВАТЬ ПО
| ЗначенияСвойствОбъектов.Значение";

Результат4 = Запрос4.Выполнить();
Выборка4 = Результат4.Выбрать();

///////////////
//ТабДок=Новый ТабличныйДокумент;
//ТабДок.АвтоМасштаб = Истина;

ТабДокумент = Новый ТабличныйДокумент;
ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Договор на поставку ПП С НДС";

Макет = ПолучитьМакет("ДоговорНаПоставкуППСНдс");

Если Ссылка.Организация.ЮрФизЛицо=Перечисления.ЮрФизЛицо.ЮрЛицо
Тогда Документ="Устава"; Иначе Документ="Свидетельства о государственной регистрации серии 02 № 005276351 от 01.03.2007г.";
КонецЕсли;

Шапка = Макет.ПолучитьОбласть("Шапка");
ШапкаДоговора = Макет.ПолучитьОбласть("ШапкаДоговора");
Договор = Макет.ПолучитьОбласть("Договор");
РеквизитыПродавца = Макет.ПолучитьОбласть("РеквизитыПродавца");
РеквизитыПокупателя = Макет.ПолучитьОбласть("РеквизитыПокупателя");
Подвал = Макет.ПолучитьОбласть("Подвал");

Выборка.Следующий();
Выборка1.Следующий();
Выборка2.Следующий();
Выборка4.Следующий();
ВыборкаДолжность.Следующий();

Шапка.Параметры.Заполнить(Выборка);
ШапкаДоговора.Параметры.Заполнить(Выборка);
ШапкаДоговора.Параметры.Заполнить(Выборка1);
ШапкаДоговора.Параметры.Заполнить(Выборка4);
ШапкаДоговора.Параметры.Заполнить(ВыборкаДолжность);
ШапкаДоговора.Параметры.Должность2 = НРег(ВыборкаДолжность.Должность2);

Руководители = ОбщегоНазначения.ОтветственныеЛица(Ссылка.Организация, Ссылка.Дата);
ШапкаДоговора.Параметры.ФИО1 = Руководители.РуководительФИО.Фамилия+" "+Руководители.РуководительФИО.Имя+" "+Руководители.РуководительФИО.Отчество;
ШапкаДоговора.Параметры.Должность1 =НРег(Руководители.РуководительДолжность);
ШапкаДоговора.Параметры.Документ = Документ;

//Попытка
////Загружаем внешнюю компоненту
//ЗагрузитьВнешнююКомпоненту("NameDecl.dll");
//Объект = Новый("AddIn.NameDeclension");
//Падеж=2;
//РезультатДолжность1 = Объект.Просклонять(ШапкаДоговора.Параметры.Должность1, Падеж);
//РезультатДолжность2 = Объект.Просклонять(ШапкаДоговора.Параметры.Должность2, Падеж);
//РезультатФИО1 = Объект.Просклонять(ШапкаДоговора.Параметры.ФИО1, Падеж);
//РезультатФИО2 = Объект.Просклонять(ШапкаДоговора.Параметры.ФИО2, Падеж);
//ШапкаДоговора.Параметры.Должность1=РезультатДолжность1;
//ШапкаДоговора.Параметры.Должность2=РезультатДолжность2;
//ШапкаДоговора.Параметры.ФИО1=РезультатФИО1;
//ШапкаДоговора.Параметры.ФИО2=РезультатФИО2;
//Исключение
//Сообщить("Ошибка загрузки внешней компоненты для склонения ФИО! Функции склонения будут недоступны!" + ОписаниеОшибки());
//КонецПопытки;

Результат3 = Запрос3.Выполнить();
Выборка3 = Результат3.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока Выборка3.Следующий() Цикл
Договор.Параметры.Заполнить(Выборка3);
Договор.Параметры.СуммаПрописью=ЧислоПрописью(Выборка3.Сумма,"L=ru_RU","рубль, рубля, рублей, м, копейка, копейки, копеек, ж, 2");
Выборка3Детали = Выборка3.Выбрать();
СтрокаПП = "";
Пока Выборка3Детали.Следующий() Цикл
Если СтрокаПП <> "" Тогда
СтрокаПП = СтрокаПП+", "+ Строка(Выборка3Детали.ПП.НаименованиеПолное);
Иначе
СтрокаПП = Строка(Выборка3Детали.ПП.НаименованиеПолное);
КонецЕсли;
КонецЦикла;
Договор.Параметры.ПП = СтрокаПП+".";

КонецЦикла;

ТабДокумент.Вывести(Шапка);
ТабДокумент.Вывести(ШапкаДоговора);
ТабДокумент.Вывести(Договор);

РеквизитыПродавца.Параметры.Заполнить(Выборка);
ТабДокумент.Вывести(РеквизитыПродавца);

РеквизитыПокупателя.Параметры.Заполнить(Выборка1);
РеквизитыПокупателя.Параметры.Заполнить(Выборка2);
ТабДокумент.Вывести(РеквизитыПокупателя);

Подвал.Параметры.Заполнить(Выборка);
Подвал.Параметры.Заполнить(Выборка1);
Подвал.Параметры.ФИО1 = Руководители.РуководительПредставление;
Подвал.Параметры.ФИО2 = ОбщегоНазначения.ФамилияИнициалыФизЛица(ВыборкаДолжность.ФИО2);
Подвал.Параметры.Должность2=ВыборкаДолжность.Должность2;
Подвал.Параметры.Должность1 = Руководители.РуководительДолжность;

ТабДокумент.Вывести(Подвал);

Возврат ТабДокумент;

КонецФункции //Договор Купли-Продажи

1 Vladislabvka

06.03.13

✎

12:07

2 Wobland

06.03.13

✎

12:07

> Возврат ТабДокумент;
всё верно

3 Тролль главный

06.03.13

✎

12:08

какая ошибка?

4 zippygrill

06.03.13

✎

12:08

что исправить?
обычно делают другую печ форму собственную

5 Тролль главный

06.03.13

✎

12:08

>>ПО ЗаказПокупателя.Организация.Ссылка = РегистрацияВИФНС.Владелец.Ссылка

так пишут только *удаки

6 Vladislabvka

06.03.13

✎

12:09

Ошибка при вызове метода контекста (Выполнить): {(16, 18)}: Синтаксическая ошибка "|ИЗ"
<<?>>|ИЗ

7 Vladislabvka

06.03.13

✎

12:09

это печатная форма, была с бухгалтерии

8 Vladislabvka

06.03.13

✎

12:09

я сейчас пытаюсь подстроить под УТ

9 Галахад

гуру

06.03.13

✎

12:10

Странно гугл не знает свидетельства 005276351 ...

10 Галахад

гуру

06.03.13

✎

12:11

А вообще КАКЗаказПокупателя

11 Vladislabvka

06.03.13

✎

12:12

пофиг со свидетельством, я сейчас о другом. Самый верхний Запрос надо, правильно написать. то есть без строк

| РегистрацияВИФНС.КПП КАК КПП1
|ИЗ
| Документ.ЗаказПокупателя КАКЗаказПокупателя
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.РегистрацияВИФНС КАК РегистрацияВИФНС
| ПО ЗаказПокупателя.Организация.Ссылка = РегистрацияВИФНС.Владелец.Ссылка,

как правильно написать?

12 Vladislabvka

06.03.13

✎

12:13

я эту тоже исправил) галахад

13 Vladislabvka

06.03.13

✎

13:55

Функция Печать() Экспорт
Ссылка = СсылкаНаОбъект.Ссылка;
// Ссылка = ЭтотОбъект.Ссылка;
//Сообщить(Ссылка.Организация.НаименованиеПолное);

Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Ссылка", Ссылка);
Запрос.УстановитьПараметр("Адрес", Справочники.ВидыКонтактнойИнформации.ФактАдресОрганизации);
Запрос.УстановитьПараметр("Телефон", Справочники.ВидыКонтактнойИнформации.ТелефонОрганизации);
Запрос.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект.Ссылка);

Запрос.Текст = "ВЫБРАТЬ
| ЗаказПокупателя.Номер,
| ЗаказПокупателя.Дата,
| ЗаказПокупателя.Организация,
| ЗаказПокупателя.Организация.ИНН КАК ИНН,
| ЗаказПокупателя.Организация.КПП КАК КПП,
| ЗаказПокупателя.Организация.КодПоОКПО КАК ОКПО,
| ЗаказПокупателя.Организация.ОсновнойБанковскийСчет.НомерСчета КАК НомерСчета,
| ЗаказПокупателя.Организация.ОсновнойБанковскийСчет.Банк.Наименование КАК Банк,
| ЗаказПокупателя.Организация.ОсновнойБанковскийСчет.Банк.КоррСчет КАК КоррСчет,
| ЗаказПокупателя.Организация.ОГРН КАК ОГРН,
| ВложенныйЗапрос.Адрес,
| ВложенныйЗапрос1.Телефон,
| ЗаказПокупателя.Организация.ОсновнойБанковскийСчет.Банк.Код КАК БИК
|ИЗ
| Документ.ЗаказПокупателя КАК ЗаказПокупателя,
| (ВЫБРАТЬ
| КонтактнаяИнформация.Представление КАК Адрес
| ИЗ
| РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ВидыКонтактнойИнформации КАК ВидыКонтактнойИнформации
| ПО КонтактнаяИнформация.Вид = ВидыКонтактнойИнформации.Ссылка
| ГДЕ
| КонтактнаяИнформация.Вид = &Адрес) КАК ВложенныйЗапрос,
| (ВЫБРАТЬ
| КонтактнаяИнформация.Представление КАК Телефон
| ИЗ
| РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ВидыКонтактнойИнформации КАК ВидыКонтактнойИнформации
| ПО КонтактнаяИнформация.Вид = ВидыКонтактнойИнформации.Ссылка
| ГДЕ
| КонтактнаяИнформация.Вид = &Телефон) КАК ВложенныйЗапрос1
|ГДЕ
| ЗаказПокупателя.Ссылка = &ТекущийДокумент";

Результат = Запрос.Выполнить();

Выборка = Результат.Выбрать();

Запрос1 = Новый Запрос;
//Запрос1.УстановитьПараметр("Ссылка", Ссылка);
Запрос1.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект.Ссылка);

Запрос1.Текст = "ВЫБРАТЬ
| ЗаказПокупателя.Контрагент.НаименованиеПолное КАК Контрагент,
| ЗаказПокупателя.Контрагент.ИНН КАК ИНН,
| ЗаказПокупателя.Контрагент.ОсновнойБанковскийСчет.НомерСчета КАК Счет,
| ЗаказПокупателя.Контрагент.ОсновнойБанковскийСчет.Банк.КоррСчет КАК КоррСчет,
| ЗаказПокупателя.Контрагент.ОсновнойБанковскийСчет.Банк.Наименование КАК Банк,
| ЗаказПокупателя.Контрагент.ОсновнойБанковскийСчет.Банк.Код КАК БИК,
| ЗаказПокупателя.Контрагент.КПП КАК КПП
|ИЗ
| Документ.ЗаказПокупателя КАК ЗаказПокупателя
|ГДЕ
| ЗаказПокупателя.Ссылка = &ТекущийДокумент";

Результат1 = Запрос1.Выполнить();
Выборка1 = Результат1.Выбрать();

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

Результат2 = Запрос2.Выполнить();
Выборка2 = Результат2.Выбрать();

//////////////
//ЗапросДолжность = Новый Запрос;
//ЗапросДолжность.УстановитьПараметр("Должность", "%"+"ректор"+"%");
//ЗапросДолжность.УстановитьПараметр("Ссылка", Ссылка.Контрагент.Ссылка);
//ЗапросДолжность.Текст = "ВЫБРАТЬ
// | КонтактныеЛицаКонтрагентов.Наименование КАК ФИО2,
// | КонтактныеЛицаКонтрагентов.Должность КАК Должность2,
// | ВложенныйЗапрос.ФИООсновной,
// | ВложенныйЗапрос.ДолжностьОсновной
// |ИЗ
// | Справочник.КонтактныеЛицаКонтрагентов КАК КонтактныеЛицаКонтрагентов
// | ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты КАК Контрагенты
// | ПО КонтактныеЛицаКонтрагентов.ОбъектВладелец = Контрагенты.Ссылка,
// | (ВЫБРАТЬ
// | КонтактныеЛицаКонтрагентов.Наименование КАК ФИООсновной,
// | КонтактныеЛицаКонтрагентов.Должность КАК ДолжностьОсновной
// | ИЗ
// | Справочник.Контрагенты КАК Контрагенты
// | ЛЕВОЕ СОЕДИНЕНИЕ Справочник.КонтактныеЛицаКонтрагентов КАК КонтактныеЛицаКонтрагентов
// | ПО Контрагенты.ОсновноеКонтактноеЛицо = КонтактныеЛицаКонтрагентов.Ссылка) КАК ВложенныйЗапрос
// |ГДЕ
// | КонтактныеЛицаКонтрагентов.Должность ПОДОБНО &Должность
// | И Контрагенты.Ссылка = &Ссылка";
//
//РезультатДолжность = ЗапросДолжность.Выполнить();
//ВыборкаДолжность = РезультатДолжность.Выбрать();
ВыборкаДолжность = "";

Запрос3 = Новый Запрос;
Запрос3.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект.Ссылка);
Запрос3.УстановитьПараметр("Ссылка", Ссылка);
Запрос3.Текст = "ВЫБРАТЬ
| ЗаказПокупателя.Номенклатура КАК ПП,
| СУММА(ЗаказПокупателя.Сумма) КАК Сумма,
| МАКСИМУМ(ЗаказПокупателя.СтавкаНДС) КАК НДС,
| СУММА(ЗаказПокупателя.СуммаНДС) КАК СуммаНДС
|ИЗ
| Документ.ЗаказПокупателя.Товары КАК ЗаказПокупателяТовары
|ГДЕ
| ЗаказПокупателя.Ссылка = &ТекущийДокумент
|
|СГРУППИРОВАТЬ ПО
| ЗаказПокупателя.Номенклатура
|ИТОГИ ПО
| ОБЩИЕ";

Результат3 = Запрос3.Выполнить();
Выборка3 = Результат3.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

Запрос4 = Новый Запрос;
Запрос4.УстановитьПараметр("Ссылка", Ссылка.Контрагент.Ссылка);
Запрос4.УстановитьПараметр("Наименование", "Основание" );
Запрос4.Текст = "ВЫБРАТЬ
| ЗначенияСвойствОбъектов.Значение КАК Документ2
|ИЗ
| РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
|ГДЕ
| ЗначенияСвойствОбъектов.Объект = &Ссылка
| И ЗначенияСвойствОбъектов.Свойство.Наименование = &Наименование
|
|СГРУППИРОВАТЬ ПО
| ЗначенияСвойствОбъектов.Значение";

Результат4 = Запрос4.Выполнить();
Выборка4 = Результат4.Выбрать();

///////////////
//ТабДок=Новый ТабличныйДокумент;
//ТабДок.АвтоМасштаб = Истина;

ТабДокумент = Новый ТабличныйДокумент;
ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Договор на поставку ПП С НДС";

Макет = ПолучитьМакет("ДоговорНаПоставкуППСНдс");

Если Ссылка.Организация.ЮрФизЛицо=Перечисления.ЮрФизЛицо.ЮрЛицо
Тогда Документ="Устава"; Иначе Документ="Свидетельства о государственной регистрации серии 02 № 005276351 от 01.03.2007г.";
КонецЕсли;

Шапка = Макет.ПолучитьОбласть("Шапка");
ШапкаДоговора = Макет.ПолучитьОбласть("ШапкаДоговора");
Договор = Макет.ПолучитьОбласть("Договор");
РеквизитыПродавца = Макет.ПолучитьОбласть("РеквизитыПродавца");
РеквизитыПокупателя = Макет.ПолучитьОбласть("РеквизитыПокупателя");
Подвал = Макет.ПолучитьОбласть("Подвал");

Выборка.Следующий();
Выборка1.Следующий();
Выборка2.Следующий();
Выборка4.Следующий();
ВыборкаДолжность.Следующий();

Шапка.Параметры.Заполнить(Выборка);
ШапкаДоговора.Параметры.Заполнить(Выборка);
ШапкаДоговора.Параметры.Заполнить(Выборка1);
ШапкаДоговора.Параметры.Заполнить(Выборка4);
ШапкаДоговора.Параметры.Заполнить(ВыборкаДолжность);
ШапкаДоговора.Параметры.Должность2 = НРег(ВыборкаДолжность.Должность2);

Руководители = ОбщегоНазначения.ОтветственныеЛица(Ссылка.Организация, Ссылка.Дата);
ШапкаДоговора.Параметры.ФИО1 = Руководители.РуководительФИО.Фамилия+" "+Руководители.РуководительФИО.Имя+" "+Руководители.РуководительФИО.Отчество;
ШапкаДоговора.Параметры.Должность1 =НРег(Руководители.РуководительДолжность);
ШапкаДоговора.Параметры.Документ = Документ;

//Попытка
////Загружаем внешнюю компоненту
//ЗагрузитьВнешнююКомпоненту("NameDecl.dll");
//Объект = Новый("AddIn.NameDeclension");
//Падеж=2;
//РезультатДолжность1 = Объект.Просклонять(ШапкаДоговора.Параметры.Должность1, Падеж);
//РезультатДолжность2 = Объект.Просклонять(ШапкаДоговора.Параметры.Должность2, Падеж);
//РезультатФИО1 = Объект.Просклонять(ШапкаДоговора.Параметры.ФИО1, Падеж);
//РезультатФИО2 = Объект.Просклонять(ШапкаДоговора.Параметры.ФИО2, Падеж);
//ШапкаДоговора.Параметры.Должность1=РезультатДолжность1;
//ШапкаДоговора.Параметры.Должность2=РезультатДолжность2;
//ШапкаДоговора.Параметры.ФИО1=РезультатФИО1;
//ШапкаДоговора.Параметры.ФИО2=РезультатФИО2;
//Исключение
//Сообщить("Ошибка загрузки внешней компоненты для склонения ФИО! Функции склонения будут недоступны!" + ОписаниеОшибки());
//КонецПопытки;

Результат3 = Запрос3.Выполнить();
Выборка3 = Результат3.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока Выборка3.Следующий() Цикл
Договор.Параметры.Заполнить(Выборка3);
Договор.Параметры.СуммаПрописью=ЧислоПрописью(Выборка3.Сумма,"L=ru_RU","рубль, рубля, рублей, м, копейка, копейки, копеек, ж, 2");
Выборка3Детали = Выборка3.Выбрать();
СтрокаПП = "";
Пока Выборка3Детали.Следующий() Цикл
Если СтрокаПП <> "" Тогда
СтрокаПП = СтрокаПП+", "+ Строка(Выборка3Детали.ПП.НаименованиеПолное);
Иначе
СтрокаПП = Строка(Выборка3Детали.ПП.НаименованиеПолное);
КонецЕсли;
КонецЦикла;
Договор.Параметры.ПП = СтрокаПП+".";

КонецЦикла;

ТабДокумент.Вывести(Шапка);
ТабДокумент.Вывести(ШапкаДоговора);
ТабДокумент.Вывести(Договор);

РеквизитыПродавца.Параметры.Заполнить(Выборка);
ТабДокумент.Вывести(РеквизитыПродавца);

РеквизитыПокупателя.Параметры.Заполнить(Выборка1);
РеквизитыПокупателя.Параметры.Заполнить(Выборка2);
ТабДокумент.Вывести(РеквизитыПокупателя);

Подвал.Параметры.Заполнить(Выборка);
Подвал.Параметры.Заполнить(Выборка1);
Подвал.Параметры.ФИО1 = Руководители.РуководительПредставление;
Подвал.Параметры.ФИО2 = ОбщегоНазначения.ФамилияИнициалыФизЛица(ВыборкаДолжность.ФИО2);
Подвал.Параметры.Должность2=ВыборкаДолжность.Должность2;
Подвал.Параметры.Должность1 = Руководители.РуководительДолжность;

ТабДокумент.Вывести(Подвал);

Возврат ТабДокумент;

КонецФункции //Договор Купли-Продажи

теперь другая ошибка.

14 Vladislabvka

06.03.13

✎

13:55

Ошибка при вызове метода контекста (Выполнить): {(9, 2)}: Поле не найдено "ЗаказПокупателя.Ссылка"
<<?>>ЗаказПокупателя.Ссылка = &ТекущийДокумент