Имя: Пароль:
1C
1С v8
Запутался с внешней формой
0 franchisees
 
12.01.12
20:36
Прошу консультации
ЭтотОбъект , поменял СсылкаНаОбъект при распечатывание выдает сообщение
Не удалось сформировать внешнюю печатную форму!
Поле объекта не обнаружено (Ссылка)

Конфигурация Бухгалтерия 2.0

Сам код
-----------------------------------------------------------------

Функция ПечатьОтчетаКомитенту()
   
   ДопКолонка = Константы.ДополнительнаяКолонкаПечатныхФормДокументов.Получить();
   Если ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Артикул Тогда
       ВыводитьКоды    = Истина;
       Колонка         = "Артикул";
       ТекстКодАртикул = "Артикул";
   ИначеЕсли ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Код Тогда
       ВыводитьКоды    = Истина;
       Колонка         = "Код";
       ТекстКодАртикул = "Код";
   Иначе
       ВыводитьКоды    = Ложь;
       Колонка         = "";
       ТекстКодАртикул = "Код";
   КонецЕсли;

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

   
   Шапка.Следующий();

   ВыборкаСтрокТовары = Шапка.Товары.Выбрать();

   ТабДокумент = Новый ТабличныйДокумент;
   ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ОтчетКомитентуОПродажах_ОтчетКомитентуОПродажах";
   Макет       = ПолучитьМакет("ОтчетКомитентуОПродажах");

   // Выводим шапку накладной

   ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
   ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, "Отчет комитенту");
   ТабДокумент.Вывести(ОбластьМакета);

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

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

   ОбластьМакета = Макет.ПолучитьОбласть(ОбластьШапки);
   Если ВыводитьКоды Тогда
       ОбластьМакета.Параметры.ИмяКодАртикул = ТекстКодАртикул;
   КонецЕсли;
   ТабДокумент.Вывести(ОбластьМакета);

   ОбластьМакета = Макет.ПолучитьОбласть(ОбластьСтроки);

   Итого         = 0;

   Пока ВыборкаСтрокТовары.Следующий() Цикл

       ОбластьМакета.Параметры.Заполнить(ВыборкаСтрокТовары);
       ТабДокумент.Вывести(ОбластьМакета);

       Итого = Итого + ВыборкаСтрокТовары.СуммаПоступления;

   КонецЦикла;

   ОбластьМакета = Макет.ПолучитьОбласть("Итого");
   ОбластьМакета.Параметры.Всего = Итого;
   ТабДокумент.Вывести(ОбластьМакета);

   ОбластьМакета = Макет.ПолучитьОбласть("СуммаПрописью");
   ОбластьМакета.Параметры.СуммаПрописью       = ОбщегоНазначения.СформироватьСуммуПрописью(Итого, Шапка.ВалютаДокумента);
   ОбластьМакета.Параметры.СуммаВознаграждения = "Сумма комиссионного вознаграждения составила "
                                               + ОбщегоНазначения.СформироватьСуммуПрописью(Шапка.СуммаВознаграждения, Шапка.ВалютаДокумента);
   ОбластьМакета.Параметры.ИтоговаяСтрока      = "Всего наименований " + ВыборкаСтрокТовары.Количество()
                                               + ", на сумму " + ОбщегоНазначения.ФорматСумм(Итого, Шапка.ВалютаДокумента);
   ТабДокумент.Вывести(ОбластьМакета);

   ОбластьМакета = Макет.ПолучитьОбласть("Подписи");
   ОбластьМакета.Параметры.Заполнить(Шапка);
   ТабДокумент.Вывести(ОбластьМакета);

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

КонецФункции // ПечатьОтчетаКомитенту()

Функция Печать(КоличествоЭкземпляров = 1, НаПринтер = Ложь, НепосредственнаяПечать = Ложь) Экспорт
   ТабДокумент =ПечатьОтчетаКомитенту();
       
   УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент, КоличествоЭкземпляров, НаПринтер, ОбщегоНазначения.СформироватьЗаголовокДокумента(ЭтотОбъект, ЭтотОбъект.Метаданные().Представление()), НепосредственнаяПечать);
   
КонецФункции // Печать
1 franchisees
 
12.01.12
20:37
Делаю внешний  отчет по комитентам
2 Гот
 
12.01.12
20:38
Номер строки в скобочках
3 franchisees
 
12.01.12
20:58
Номер строки не выдает , сообщает Поле объекта не обнаружено (Ссылка)
4 sanja26
 
12.01.12
21:30
СсылкаНаОбъект.Ссылка
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший