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

ВПФ

Автор Zeus_God, 14 сен 2012, 13:47

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

Zeus_God

Доброго времени суток!
Разрабатываю внешнюю печатную форму в Бух 8.2. Но я не знаю какой код надо набрать, чтобы ВПФ появилась в режиме пользователя (после нажатия на кнопку "Печать" не появляется созданный макет). И еще... как получить код ОГРН контрагента и вообще возможно ли это?

Zeus_God

Вот код, который я набрад в модуле объекта

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

// Получаем макет
ТабДок = Новый ТабличныйДокумент;
ТабДок.Очистить();
Макет = ПолучитьМакет("Макет");
//------------------------

//------------------------
ОблМакета = Макет.ПолучитьОбласть("Шапка");
// Надо добавить текущую дату и номер документа

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

ОблМакета = Макет.ПолучитьОбласть("Подвал");
//ОблМакета.Параметры.ЮрАдрес = СсылкаНаОбъект.???
ОблМакета.Параметры.РСчет = СсылкаНаОбъект.ОсновнойБанковскийСчет.НомерСчета;
ОблМакета.Параметры.КорСчет = СсылкаНаОбъект.ОсновнойБанковскийСчет.БанкДляРасчетов.КоррСчет;
ОблМакета.Параметры.Банк = СсылкаНаОбъект.ОсновнойБанковскийСчет.БанкДляРасчетов;
ОблМакета.Параметры.БИК = СсылкаНаОбъект.ОсновнойБанковскийСчет.БанкДляРасчетов.Код;
ОблМакета.Параметры.ИНН = СсылкаНаОбъект.ИНН;
ОблМакета.Параметры.КПП = СсылкаНаОбъект.КПП;
//ОблМакета.Параметры.ОГРН = СсылкаНаОбъект.

КонецФункции

Zeus_God

span style="white-space: pre;">    </span> - это не знаю че за хрень вылезла. Помогите, пожалуйста.... Очень срочно надо....

mixqn

ну вообще, обычно внешнюю печатную форму просто нужно подключить, ничего не меняя в коде объекта - на то она и делается внешней, чтобы не вносить изменения в конфигурацию.
нет "под рукой" бух 8.2, но есть УПП. в УПП это делается так: Сервис-Дополнительные внешние отчеты и обработки-Печатные формы после этого открывается список внешних печатных форм, добавляете туда новый элемент, загружаете обработку и указываете принадлежность и все работает. вероятно в бух 8.2 есть нечто подобное.

Admin

Цитата: Zeus_God от 14 сен 2012, 14:34
span style="white-space: pre;">    </span> - это не знаю че за хрень вылезла. Помогите, пожалуйста.... Очень срочно надо....
у вас какой браузер? предположу что гугл хром либо интернет эксплорер. в Firefoх код отображается нормально (можете проверить). В общем проблема известна, пока нет времени этим заняться, посмотреть, что можно сделать. Возможно, обновление движка форума поможет. Пока придется потерпеть... Ну или не пользоваться хромом и IE.

Dethmontt

span style="white-space: pre;">    </span> - честно, эта штука уже за долбала... У меня Google hrome
Код который вставляют прочитать сложновато =)))
Замените символы Табуляции например на 4е пробела...
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

Zeus_God

Спасибо за советы! У меня Хром стоит

Zeus_God

Я  подключил обработку, открывается форма, и при нажатии на кнопку печать все равно ничего не происходит...

Zeus_God

Скидываю еще раз код, только в нормальном виде  :)
Функция Печать() Экспорт

ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("Макет");

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

Результат = Запрос.Выполнить().Выбрать();
Результат.Следующий();

НазначениеСвойства = Новый СписокЗначений;
// НазначениеСвойства.Добавить(ПланыВидовХарактеристик.НазначенияСвойствКатегорийОбъектов.СправочникСсылка_СотрудникиОрганизаций);
//------------------------

//------------------------
ОблМакета = Макет.ПолучитьОбласть("Шапка");
// Надо добавить текущую дату и номер документа

ОблМакета = Макет.ПолучитьОбласть("Строка");
ОблМакета.Параметры.Заказчик = СсылкаНаОбъект.Контрагент.НаименованиеПолное;

ОблМакета = Макет.ПолучитьОбласть("Подвал");
//ОблМакета.Параметры.ЮрАдрес = СсылкаНаОбъект.???
ОблМакета.Параметры.РСчет = СсылкаНаОбъект.Контрагент.ОсновнойБанковскийСчет.НомерСчета;
ОблМакета.Параметры.КорСчет = СсылкаНаОбъект.Контрагент.ОсновнойБанковскийСчет.БанкДляРасчетов.КоррСчет;
ОблМакета.Параметры.Банк = СсылкаНаОбъект.Контрагент.ОсновнойБанковскийСчет.БанкДляРасчетов;
ОблМакета.Параметры.БИК = СсылкаНаОбъект.Контрагент.ОсновнойБанковскийСчет.БанкДляРасчетов.Код;
ОблМакета.Параметры.ИНН = СсылкаНаОбъект.Контрагент.ИНН;
ОблМакета.Параметры.КПП = СсылкаНаОбъект.Контрагент.КПП;

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

ГК

После получения каждой области и заполнения ее параметров надо вставить метод Вывести(). Например, ТабДок.Вывести(Шапка)

Теги:

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

Рейтинг@Mail.ru

Поиск