Внешняя печатная форма
Показывать по
10
20
40
сообщений
- 1
- 2
24.03.2011
11:22
#1
"Добрый день! Создаю внешнюю печатную форму Заявка на расходование средств.
Проверяю модуль на синтаксические ошибки говорит что нет ошибок
Функция ПечатьЗаявка() Экспорт
СсылкаНаОбъект.РасчетыСКонтрагентами = СсылкаНаОбъект.ВидОперации;
СсылкаНаОбъект.РасчетыСПодотчетником = СсылкаНаОбъект.ВидОперации;
ТабДокумент = Новый ТабличныйДокумент;
ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ЗаявкаНаРасходованиеСредств";
Макет = ПолучитьМакет("Заявка");
Обл = Макет.ПолучитьОбласть("Шапка");
Обл.Параметры.ЗаголовокЗаявки=""""+ЭтотОбъект+СсылкаНаОбъект.Символы.ПС+СсылкаНаОбъект.ВидОперации;
Обл.Параметры.Заполнить(СсылкаНаОбъект);
ТабДокумент.Вывести(Обл);
Если СсылкаНаОбъект.РасчетыСПодотчетником тогда
ОбластьСтрока = Макет.ПолучитьОбласть("ТаблицаПодотчетник");
ОбластьСтрока.Параметры.ДолгПодотчетника =СсылкаНаОбъект.Ссылка;
Иначе
ОбластьСтрока = Макет.ПолучитьОбласть("ТаблицаКонтрагент");
КонецЕсли;
ОбластьСтрока.Параметры.Заполнить(ЭтотОбъект);
ТабДокумент.Вывести(ОбластьСтрока);
Обл = Макет.ПолучитьОбласть("Подвал");
Обл.Параметры.Заполнить(СсылкаНаОбъект);
Обл.Параметры.РуководительЦФО = СсылкаНаОбъект.РуководительЦФО;
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| ОтветственныеЛицаОрганизацииСрезПоследних.ОтветственноеЛицо,
| ОтветственныеЛицаОрганизацииСрезПоследних.ФизическоеЛицо
|ИЗ
| РегистрСведений.ОтветственныеЛицаОрганизации.СрезПоследних(&Дата, СтруктурнаяЕдиница = &Организация) КАК ОтветственныеЛицаОрганизацииСрезПоследних";
Запрос.УстановитьПараметр("Дата", СсылкаНаОбъект);
Запрос.УстановитьПараметр("Организация",СсылкаНаОбъект);
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий()Цикл
Если Выборка.ОтветственноеЛицо = СсылкаНаОбъект.ОтветственныеЛицаОрганизации.ГлавныйБухгалтер Тогда
Обл.Параметры.ГлБухгалтер = СсылкаНаОбъект.Выборка.ФизическоеЛицо;
ИначеЕсли Выборка.ОтветственноеЛицо = СсылкаНаОбъект.ОтветственныеЛицаОрганизации.БюджетныйКонтролер Тогда
Обл.Параметры.БюджетныйКонтролер = СсылкаНаОбъект.Выборка.ФизическоеЛицо;
ИначеЕсли Выборка.ОтветственноеЛицо = СсылкаНаОбъект.ОтветственныеЛицаОрганизации.ФинДиректор Тогда
Обл.Параметры.ФинДиректор =СсылкаНаОбъект.Выборка.ФизическоеЛицо;
КонецЕсли;
КонецЦикла;
ТабДокумент.Вывести(Обл);
Возврат ТабДокумент;
КонецФункции
но когда тестирую выдает ошибку
Ошибка при вызове метода контекста (ПолучитьФорму): Недопустимое значение параметра (параметр номер '1')
Что я не так делаю?"
Проверяю модуль на синтаксические ошибки говорит что нет ошибок
Функция ПечатьЗаявка() Экспорт
СсылкаНаОбъект.РасчетыСКонтрагентами = СсылкаНаОбъект.ВидОперации;
СсылкаНаОбъект.РасчетыСПодотчетником = СсылкаНаОбъект.ВидОперации;
ТабДокумент = Новый ТабличныйДокумент;
ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ЗаявкаНаРасходованиеСредств";
Макет = ПолучитьМакет("Заявка");
Обл = Макет.ПолучитьОбласть("Шапка");
Обл.Параметры.ЗаголовокЗаявки=""""+ЭтотОбъект+СсылкаНаОбъект.Символы.ПС+СсылкаНаОбъект.ВидОперации;
Обл.Параметры.Заполнить(СсылкаНаОбъект);
ТабДокумент.Вывести(Обл);
Если СсылкаНаОбъект.РасчетыСПодотчетником тогда
ОбластьСтрока = Макет.ПолучитьОбласть("ТаблицаПодотчетник");
ОбластьСтрока.Параметры.ДолгПодотчетника =СсылкаНаОбъект.Ссылка;
Иначе
ОбластьСтрока = Макет.ПолучитьОбласть("ТаблицаКонтрагент");
КонецЕсли;
ОбластьСтрока.Параметры.Заполнить(ЭтотОбъект);
ТабДокумент.Вывести(ОбластьСтрока);
Обл = Макет.ПолучитьОбласть("Подвал");
Обл.Параметры.Заполнить(СсылкаНаОбъект);
Обл.Параметры.РуководительЦФО = СсылкаНаОбъект.РуководительЦФО;
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| ОтветственныеЛицаОрганизацииСрезПоследних.ОтветственноеЛицо,
| ОтветственныеЛицаОрганизацииСрезПоследних.ФизическоеЛицо
|ИЗ
| РегистрСведений.ОтветственныеЛицаОрганизации.СрезПоследних(&Дата, СтруктурнаяЕдиница = &Организация) КАК ОтветственныеЛицаОрганизацииСрезПоследних";
Запрос.УстановитьПараметр("Дата", СсылкаНаОбъект);
Запрос.УстановитьПараметр("Организация",СсылкаНаОбъект);
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий()Цикл
Если Выборка.ОтветственноеЛицо = СсылкаНаОбъект.ОтветственныеЛицаОрганизации.ГлавныйБухгалтер Тогда
Обл.Параметры.ГлБухгалтер = СсылкаНаОбъект.Выборка.ФизическоеЛицо;
ИначеЕсли Выборка.ОтветственноеЛицо = СсылкаНаОбъект.ОтветственныеЛицаОрганизации.БюджетныйКонтролер Тогда
Обл.Параметры.БюджетныйКонтролер = СсылкаНаОбъект.Выборка.ФизическоеЛицо;
ИначеЕсли Выборка.ОтветственноеЛицо = СсылкаНаОбъект.ОтветственныеЛицаОрганизации.ФинДиректор Тогда
Обл.Параметры.ФинДиректор =СсылкаНаОбъект.Выборка.ФизическоеЛицо;
КонецЕсли;
КонецЦикла;
ТабДокумент.Вывести(Обл);
Возврат ТабДокумент;
КонецФункции
но когда тестирую выдает ошибку
Ошибка при вызове метода контекста (ПолучитьФорму): Недопустимое значение параметра (параметр номер '1')
Что я не так делаю?"
24.03.2011
12:10
#3
"Да!
Функция Печать() Экспорт
ТабДокумент = ПечатьЗаявка();
Возврат ТабДокумент;
КонецФункции"
Функция Печать() Экспорт
ТабДокумент = ПечатьЗаявка();
Возврат ТабДокумент;
КонецФункции"
24.03.2011
12:19
#4
"А я так делал, в этом случае оно вписывается в задуманную концепцию внешних печатных форм типовой конфигурации (в моем случае было Управление торговлей, редакция 11.0 (11.0.5.4)):
Функция СведенияОВнешнейОбработке() Экспорт ПараметрыРегистрации = Новый Структура; МассивНазначений = Новый Массив; ПараметрыРегистрации.Вставить("Вид", "ПечатнаяФорма"); МассивНазначений.Добавить("Документ.ЗаказКлиента"); ПараметрыРегистрации.Вставить("Назначение", МассивНазначений); ПараметрыРегистрации.Вставить("Наименование", "Заказ клиента с выводом итога по таблице товаров с учетом НДС при ситуации 'Цена без НДС'"); ПараметрыРегистрации.Вставить("Версия", "1.0"); ПараметрыРегистрации.Вставить("БезопасныйРежим", Истина); ПараметрыРегистрации.Вставить("Информация", "Версия от 11.02.2011 г."); ТаблицаКоманд = ПолучитьТаблицуКоманд(); ДобавитьКоманду(ТаблицаКоманд, "Заказ клиента с итогом по таблице при 'Цена без НДС'", "СчетЗаказ", "ВызовСерверногоМетода", Истина, "ПечатьMXL"); ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд); Возврат ПараметрыРегистрации;КонецФункции
Функция ПолучитьТаблицуКоманд() Команды = Новый ТаблицаЗначений; Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка")); Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка")); Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка")); Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево")); Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка")); Возврат Команды;КонецФункции
Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = """") НоваяКоманда = ТаблицаКоманд.Добавить(); НоваяКоманда.Представление = Представление; НоваяКоманда.Идентификатор = Идентификатор; НоваяКоманда.Использование = Использование; НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение; НоваяКоманда.Модификатор = Модификатор;КонецПроцедуры// Сформировать печатные формы объектов//// ВХОДЯЩИЕ:// ИменаМакетов - Строка - Имена макетов, перечисленные через запятую// МассивОбъектов - Массив - Массив ссылок на объекты которые нужно распечатать// ПараметрыПечати - Структура - Структура дополнительных параметров печати//// ИСХОДЯЩИЕ:// КоллекцияПечатныхФорм - Таблица значений - Сформированные табличные документы// ПараметрыВывода - Структура - Параметры сформированных табличных документов//Процедура Печать(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "СчетЗаказ") Тогда УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "СчетЗаказ", "Заказ клиента", СформироватьПечатнуюФорму(МассивОбъектов, ОбъектыПечати)); КонецЕсли; КонецПроцедуры // Печать() Функция СформироватьПечатнуюФорму(МассивОбъектов, ОбъектыПечати) УстановитьПривилегированныйРежим(Истина); ТабличныйДокумент = Новый ТабличныйДокумент;.... ТабличныйДокумент.АвтоМасштаб = Истина; Если ПривилегированныйРежим() Тогда УстановитьПривилегированныйРежим(Ложь); КонецЕсли; Возврат ТабличныйДокумент; КонецФункции // ПечатнаяФорма() " 24.03.2011
12:22
#5
А что подразумевалось под
> но когда тестирую
Вы подключили в сервис-дополнительные внешние отчеты...-Печатные формы, а потом из документа нажали печать и получили ошибку?
> но когда тестирую
Вы подключили в сервис-дополнительные внешние отчеты...-Печатные формы, а потом из документа нажали печать и получили ошибку?
24.03.2011
12:24
#7
> А что подразумевалось под
> > но когда тестирую
> Вы подключили в сервис-дополнительные внешние отчеты...-Печатные формы, а потом из документа нажали печать и получили ошибку?
Да!
> > но когда тестирую
> Вы подключили в сервис-дополнительные внешние отчеты...-Печатные формы, а потом из документа нажали печать и получили ошибку?
Да!
24.03.2011
12:27
#8
Приведите полный текст ошибки - там еще должна быть ссылка на строку, где произошла ошибка.
У вас Клиент-Серверный вариант?
Включите в конфигураторе (в режиме отладки) остановку по ошибке и посмотрите что за строка вызывает ошибку, и что за параметр передается.
У вас Клиент-Серверный вариант?
Включите в конфигураторе (в режиме отладки) остановку по ошибке и посмотрите что за строка вызывает ошибку, и что за параметр передается.
24.03.2011
13:37
#10
> Приведите полный текст ошибки - там еще должна быть ссылка на строку, где произошла ошибка.
> У вас Клиент-Серверный вариант?
> Включите в конфигураторе (в режиме отладки) остановку по ошибке и посмотрите что за строка вызывает ошибку, и что за параметр передается.
Вот именно нет не какой строки. Если была бы можно было понять что я не так делаю. А он только и пишет
"Не удалось сформировать внешнюю печатную форму
Ошибка при вызове метода контекста (ПолучитьФорму): Недопустимое значение параметра (параметр номер '1')"
> У вас Клиент-Серверный вариант?
> Включите в конфигураторе (в режиме отладки) остановку по ошибке и посмотрите что за строка вызывает ошибку, и что за параметр передается.
Вот именно нет не какой строки. Если была бы можно было понять что я не так делаю. А он только и пишет
"Не удалось сформировать внешнюю печатную форму
Ошибка при вызове метода контекста (ПолучитьФорму): Недопустимое значение параметра (параметр номер '1')"
- 1
- 2
Субконто с типом "сотрудники" в Бюджетной Бухгалтерии 1 на платформе 8.21С 8.2 Бухгалтерия бюджетного учреждения
Читают тему
(гостей: 1)