Внешняя печатная форма

Новая тема
Показывать по 10 20 40 сообщений
"Добрый день! Создаю внешнюю  печатную форму Заявка на расходование средств.
Проверяю модуль на синтаксические ошибки говорит что нет ошибок

Функция ПечатьЗаявка() Экспорт


СсылкаНаОбъект.РасчетыСКонтрагентами = СсылкаНаОбъект.ВидОперации;
СсылкаНаОбъект.РасчетыСПодотчетником = СсылкаНаОбъект.ВидОперации;

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

Макет = ПолучитьМакет("Заявка");
Обл   = Макет.ПолучитьОбласть("Шапка");
Обл.Параметры.ЗаголовокЗаявки=""""+ЭтотОбъект+СсылкаНаОбъект.Символы.ПС+СсылкаНаОбъект.ВидОперации;

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


Если СсылкаНаОбъект.РасчетыСПодотчетником тогда
ОбластьСтрока = Макет.ПолучитьОбласть("ТаблицаПодотчетник");
ОбластьСтрока.Параметры.ДолгПодотчетника =СсылкаНаОбъект.Ссылка;
Иначе
ОбластьСтрока = Макет.ПолучитьОбласть("ТаблицаКонтрагент");
КонецЕсли;
ОбластьСтрока.Параметры.Заполнить(ЭтотОбъект);




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


Обл   = Макет.ПолучитьОбласть("Подвал");
Обл.Параметры.Заполнить(СсылкаНаОбъект);
Обл.Параметры.РуководительЦФО = СсылкаНаОбъект.РуководительЦФО;

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


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

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


но когда тестирую выдает ошибку

Ошибка при вызове метода контекста (ПолучитьФорму): Недопустимое значение параметра (параметр номер '1')
Что я не так делаю?"
А Функция Печать () все-таки присутствует?
"Да!
Функция Печать() Экспорт

ТабДокумент = ПечатьЗаявка();

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

КонецФункции"
"А я так делал, в этом случае оно вписывается в задуманную концепцию внешних печатных форм типовой конфигурации (в моем случае было Управление торговлей, редакция 11.0 (11.0.5.4)):

Функция СведенияОВнешнейОбработке() Экспорт  ПараметрыРегистрации = Новый Структура;   МассивНазначений = Новый Массив;    ПараметрыРегистрации.Вставить("Вид", "ПечатнаяФорма");  МассивНазначений.Добавить("Документ.ЗаказКлиента");  ПараметрыРегистрации.Вставить("Назначение", МассивНазначений);  ПараметрыРегистрации.Вставить("Наименование", "Заказ клиента с выводом итога по таблице товаров с учетом НДС при ситуации 'Цена без НДС'");  ПараметрыРегистрации.Вставить("Версия", "1.0");  ПараметрыРегистрации.Вставить("БезопасныйРежим", Истина);  ПараметрыРегистрации.Вставить("Информация", "Версия от 11.02.2011 г.");  ТаблицаКоманд = ПолучитьТаблицуКоманд();  ДобавитьКоманду(ТаблицаКоманд, "Заказ клиента с итогом по таблице при 'Цена без НДС'", "СчетЗаказ", "ВызовСерверногоМетода", Истина, "ПечатьMXL");  ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд);    Возврат ПараметрыРегистрации;КонецФункции
Функция ПолучитьТаблицуКоманд()  Команды = Новый ТаблицаЗначений;  Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка"));  Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка"));  Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка"));  Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));  Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка"));  Возврат Команды;КонецФункции
Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = """")  НоваяКоманда = ТаблицаКоманд.Добавить();  НоваяКоманда.Представление = Представление;  НоваяКоманда.Идентификатор = Идентификатор;  НоваяКоманда.Использование = Использование;  НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение;  НоваяКоманда.Модификатор = Модификатор;КонецПроцедуры// Сформировать печатные формы объектов//// ВХОДЯЩИЕ:// ИменаМакетов    - Строка    - Имена макетов, перечисленные через запятую// МассивОбъектов  - Массив    - Массив ссылок на объекты которые нужно распечатать// ПараметрыПечати - Структура - Структура дополнительных параметров печати//// ИСХОДЯЩИЕ:// КоллекцияПечатныхФорм - Таблица значений - Сформированные табличные документы// ПараметрыВывода       - Структура        - Параметры сформированных табличных документов//Процедура Печать(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт  Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "СчетЗаказ") Тогда  УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "СчетЗаказ", "Заказ клиента", СформироватьПечатнуюФорму(МассивОбъектов, ОбъектыПечати)); КонецЕсли; КонецПроцедуры // Печать() Функция СформироватьПечатнуюФорму(МассивОбъектов, ОбъектыПечати)  УстановитьПривилегированныйРежим(Истина);  ТабличныйДокумент = Новый ТабличныйДокумент;.... ТабличныйДокумент.АвтоМасштаб = Истина;  Если ПривилегированныйРежим() Тогда  УстановитьПривилегированныйРежим(Ложь); КонецЕсли;  Возврат ТабличныйДокумент; КонецФункции // ПечатнаяФорма()
"
А что подразумевалось под
> но когда тестирую
Вы подключили в сервис-дополнительные внешние отчеты...-Печатные формы, а потом из документа нажали печать и получили ошибку?
но у меня не типовая :( У меня УПП проф 1.2. (.1.2.36.1).
Думайте подойдет?
> А что подразумевалось под
> > но когда тестирую
> Вы подключили в сервис-дополнительные внешние отчеты...-Печатные формы, а потом из документа нажали печать и получили ошибку?
Да!
Приведите полный текст ошибки - там еще должна быть ссылка на строку, где произошла ошибка.
У вас Клиент-Серверный вариант?
Включите в конфигураторе (в режиме отладки) остановку по ошибке и посмотрите что за строка вызывает ошибку, и что за параметр передается.
Ничего себе не типовая :)
С изменениями наверно, но внешние формы работают на ура.
> Приведите полный текст ошибки - там еще должна быть ссылка на строку, где произошла ошибка.
> У вас Клиент-Серверный вариант?
> Включите в конфигураторе (в режиме отладки) остановку по ошибке и посмотрите что за строка вызывает ошибку, и что за параметр передается.

Вот именно нет не какой строки. Если была бы можно было понять что я не так делаю. А он только и пишет
"Не удалось сформировать внешнюю печатную форму
Ошибка при вызове метода контекста (ПолучитьФорму): Недопустимое значение параметра (параметр номер '1')"
Читают тему
(гостей: 1)

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