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

Вид для печати

05.10.2010, 14:31
svetuek

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

Установила программу 1С 8.1 (8.1.15.14). Не устраивает печатная форма счета на оплату покупателю. Попыталась самостоятельно сформировать свой вариант на основе имеющейся формы (руководствовалась рекомендациями на сайте для программистов). Но при выборе моего варианта на печать, программа выдает:
Не удалось сформировать внешнюю печатную форму!
Поле объекта не обнаружено (Ссылка)

Хоть убей не пойму где ошибка, может вы подскажете? Порграммисты не помогли((
Может есть какой-то образец модуля этой внешней формы?
Спасибо заранее!
05.10.2010, 15:25
АнонимХ

выложи его сюда
05.10.2010, 15:28
Климов Сергей

Гдето вы в коде обработки обращаетесь к рекизиту Ссылка какого-то объекта. А унего такого реквизита нет. Рекомендации по созданию внешних печатных форм есть на ИТС в разделе "Методическая поддержка".
05.10.2010, 15:33
svetuek

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

ФормаСчетаФактуры = ПолучитьФорму("ФормаДляПроцедурМодуляДокумента");
ФормаСчетаФактуры.ДокументОбъект = СсылкаНаОбъект.ПолучитьОбъект();
ФормаСчетаФактуры.ЭтаОбработка = ЭтотОбъект;

Возврат ФормаСчетаФактуры.НапечататьВнешнююФорму();

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

Функция ВернутьРасчетныйСчет(СчетКонтрагента)

БанкДляРасчетов = СчетКонтрагента.БанкДляРасчетов;
Результат = ?(БанкДляРасчетов.Пустая(), СчетКонтрагента.НомерСчета, СчетКонтрагента.Банк.КоррСчет);

Возврат Результат;

КонецФункции // ВернутьРасчетныйСчет()

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

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

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

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

ЧастьЗапросаДляВыбораСодержанияУслуг = ФормированиеПечатныхФорм.ПолучитьЧастьЗапросаДляВыбораСодержанияУслуг("ЗаказПокупателя");

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

ЗапросТовары = Запрос.Выполнить().Выгрузить();

Макет = ПолучитьМакет("СчетЗаказ");

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

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

ОбластьМакета.Параметры.БИКБанкаПолучателя = БИК;
ОбластьМакета.Параметры.БанкПолучателя = Банк;
ОбластьМакета.Параметры.БанкПолучателяПредставление = СокрЛП(Банк) + " " + ГородБанка;
ОбластьМакета.Параметры.СчетБанкаПолучателя = КоррСчет;
ОбластьМакета.Параметры.СчетБанкаПолучателяПредставление = КоррСчет;
ОбластьМакета.Параметры.СчетПолучателяПредставление = НомерСчета;
ОбластьМакета.Параметры.СчетПолучателя = НомерСчета;
КонецЕсли;

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

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

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

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

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

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

ОбластьНомера = Макет.ПолучитьОбласть("ШапкаТаблицы|НомерСтроки");
ОбластьДанных = Макет.ПолучитьОбласть("ШапкаТаблицы|Данные");
ОбластьСуммы = Макет.ПолучитьОбласть("ШапкаТаблицы|Сумма");

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

ОбластьКолонкаТовар = Макет.Область("Товар");

ОбластьНомера = Макет.ПолучитьОбласть("Строка|НомерСтроки");
ОбластьДанных = Макет.ПолучитьОбласть("Строка|Данные");
ОбластьСуммы = Макет.ПолучитьОбласть("Строка|Сумма");

Сумма = 0;
СуммаНДС = 0;
ВсегоСкидок = 0;
ВсегоБезСкидок = 0;

Для каждого ВыборкаСтрокТовары Из ЗапросТовары Цикл

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

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

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

КонецЦикла;

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

ТабДокумент.Вывести(ОбластьНомера);
ТабДокумент.Присоединить(ОбластьДанных);
ОбластьСуммы.Параметры.Всего = ОбщегоНазначения.ФорматСумм(Сумма);
ТабДокумент.Присоединить(ОбластьСуммы);

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

ТабДокумент.Вывести(ОбластьНомера);
Если СуммаНДС <> 0 Тогда
ОбластьДанных.Параметры.НДС = ?(Шапка.СуммаВключаетНДС, "В том числе НДС:", "Сумма НДС:");
ОбластьСуммы.Параметры.ВсегоНДС = ОбщегоНазначения.ФорматСумм(СуммаНДС);
Иначе
ОбластьДанных.Параметры.НДС = "Без налога (НДС)";
ОбластьСуммы.Параметры.ВсегоНДС = "-";
КонецЕсли;
ТабДокумент.Присоединить(ОбластьДанных);

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

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

// Вывести подписи
Если Тип = "Счет" Тогда
ОбластьМакета = Макет.ПолучитьОбласть("ПодвалСчета");

Руководители = РегламентированнаяОтчетность.ОтветственныеЛицаОрганизаций(Шапка.Руководители, Шапка.Дата,);
Руководитель = Руководители.Руководитель;
Бухгалтер = Руководители.ГлавныйБухгалтер;

ОбластьМакета.Параметры.ФИОРуководителя = Руководитель;
ОбластьМакета.Параметры.ФИОБухгалтера = Бухгалтер;

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

Возврат ТабДокумент;
КонецФункции // ПечатьСчетаЗаказа()
05.10.2010, 15:37
АнонимХ

Вложений: 1

вот тебе рыба, правь на здоровье
скачать и изменить расширение txt на epf
05.10.2010, 21:56
svetuek

Спасибо, добрый человек! Завтра попробую! А расширение как менять? Переименовать и заменить txt на epf, что ли?
06.10.2010, 02:03
pr-1c

Нет просто замени функцию "Печать" в своей внешней печатной форме
06.10.2010, 11:09
АнонимХ

Переименовать и заменить txt на epf, что ли

ну да, просто сюда с епф не выкладывается
06.10.2010, 19:43
svetuek

Дорогой АнонимХ! Если вас не затруднит, пришлите мне на почту уже в epf-ском расширении, потому как не понимаю я как его менять! sreydes@gmail.com
Заранее спасибо!
06.10.2010, 20:04
АнонимХ

ну переименуй впфСчетЗаказ.txt на впфСчетЗаказ.epf
11.10.2010, 13:44
svetuek

АнонимХ, расширение вашего файла я поменяла, но он не открывается в Конфигураторе.

Пишет следующее: Ошибка при выполнении файловой операции по причине: Неверный формат хранилища данных. Хотя у файла 1С-овская иконка, как и у других обработок...
Может он не для моей версии программы?
У меня 8.1 (8.1.15.14), Бухгалтерия предприятия (базовая), редакция 1.6 (1.6.24.7).
11.10.2010, 13:48
1C_rvoicer

Цитата:

Сообщение от svetuek

Установила программу 1С 8.1 (8.1.15.14). Не устраивает печатная форма счета на оплату покупателю. Попыталась самостоятельно сформировать свой вариант на основе имеющейся формы (руководствовалась рекомендациями на сайте для программистов). Но при выборе моего варианта на печать, программа выдает:
Не удалось сформировать внешнюю печатную форму!
Поле объекта не обнаружено (Ссылка)

Хоть убей не пойму где ошибка, может вы подскажете? Порграммисты не помогли((
Может есть какой-то образец модуля этой внешней формы?
Спасибо заранее!

В программе выберите пункт "Файл -> Открыть..."
Найдите Вашу обработку и "запустите".
В открывшейся форме обработки уведите поле ввода (выбора) документа - этот элемент и "отвечает" за наличие ссылки на документ.
11.10.2010, 13:56
1C_rvoicer

Если Вы в функции Печать() запроса не переопределяли переменную ЭтотОбъект, то у вас ошибка здесь:

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

Впам нужен документ, а ссылка указывает на текущий объект - обработку...
11.10.2010, 14:22
svetuek

И что вы посоветуете? У меня переменная ЭтотОбъект несколько раз встречается...
11.10.2010, 14:52
1C_rvoicer

Судя по тому как Вы "юзаете" код ( :yes: ) :
1. Проверьте наличие в перечне реквизитов, а также на форме обработки реквизита - например "ДокументСсылка".
2. Затем во всех местах, где устанавливается значение параметров запросов для документов ссылок записывать примерно так:

Если в запросе записано -

|ГДЕ
| ЗаказПокупателя.Ссылка = &ТекущийДокумент

то

при установке запроса надо написать (если печатаете из документа в котором есть поле "Заказ покупателя") -

Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.ДокументСсылка.ЗаказПокупателя.Ссылка);

или, если печатаете непосредственно документа "Заказ покупателя"

Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.ДокументСсылка.Ссылка);

Обработка печати выходных форм вызывается в "фоновом" режиме и как правило предварительно передается (заполняется) ссылка на вызвавший эту печать документ...
12.10.2010, 11:42
TRIAN

Цитата:

руководствовалась рекомендациями на сайте для программистов

Цитата:

Порграммисты не помогли((

Супер программисты, из Вас тоже такой же горе-программист...
Вы прочитали что Вам Климов Сергей рекомендовал: "Рекомендации по созданию внешних печатных форм на ИТС в разделе "Методическая поддержка".

Цитата:

А расширение как менять? Переименовать и заменить txt на epf, что ли?

но судя по этому - лучше оставь эту затею, заплати от 100 до 500 руб и обратись к истинным программистам...
12.10.2010, 12:41
АнонимХ

Цитата:

Сообщение от svetuek

У меня 8.1 (8.1.15.14), Бухгалтерия предприятия (базовая), редакция 1.6 (1.6.24.7).

хммм, интересный вопрос, а базовая ваще может редактировать формы, модули?

выложенная форма сохранена на движке 8.1.15.14 не базовом.
12.10.2010, 12:42
TRIAN

а причем тут конфигурация, речь идет о внешнем отчете... ;)
12.10.2010, 12:48
АнонимХ

а хрен его знает, никогда не сталкивался, мож там засада какая
12.10.2010, 13:14
svetuek

Ладненько, всем

Цитата:

Сообщение от TRIAN

истинным программистам...

спасибо за помощь!
12.10.2010, 13:38
TRIAN

Цитата:

Ладненько, всем
Цитата:
Сообщение от TRIANПосмотреть сообщение
истинным программистам...

к сведению, я себя к ним не отношу... ;) - но все равно спасибо за комплимент...
12.10.2010, 14:24
1C_rvoicer

Цитата:

Сообщение от svetuek

И что вы посоветуете? У меня переменная ЭтотОбъект несколько раз встречается...

Выложите внешнюю форму. Добавлю комментарии, прочтете на досуге, где были проблемсы...
12.10.2010, 14:35
svetuek

Вложений: 1

Вот моя внешняя обработка в формате txt.
12.10.2010, 17:28
1C_rvoicer

Вложений: 1

Цитата:

Сообщение от svetuek

Вот моя внешняя обработка в формате txt.

Вложение 45719
12.10.2010, 18:10
svetuek

1C_rvoicer, спасибище.
По крайней мере она открывается!
Осталось макет поправить и все ок!
14.06.2018, 08:46
buh665813

Спасибо и от меня!))