Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
11 дек 2024, 12:27

внешняя печатная форма требование-накладная м11

Автор studentca, 23 авг 2012, 17:07

0 Пользователей и 1 гость просматривают эту тему.

studentca

 Выдает такую ошибку, не могу понять почему:
Не удалось сформировать внешнюю печатную форму!
Метод объекта не обнаружен (Печать)

Реквизит ссылкаНаОбъект есть, параметры_Авторегистрации также


#Если Клиент Тогда


Функция ПечатьТребованияНакладнойМ11() Экспорт
   
   Дата = ЭтотОбъект.СсылкаНаОбъект.Дата;
   Запрос = Новый Запрос;
   Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.СсылкаНаОбъект.Ссылка);

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

   #КонецЕсли

Klyacksa

В ошибке же написано - не найден метод объекта Печать
xxx: Спасибо! Я бы загуглил, но ты интересней. Материшься. Злишься. Послать можешь...

Мысль - это оргазм мозга. Кто способен его испытать - получают истинное наслаждение, остальным приходится имитировать

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск