Создание внешней формы счета в 1С 8.2
09.09.2010
22:37
#12
"Попробовал сделать.
Программа при печати выводит ошибку:
Не удалось сформировать внешнюю печатную форму!
Поле объекта не обнаружено (Номер)
И выводит на экран стандартную форму без моих изменений в макете.
Код у меня в результате переноса наполнения процедуры печати в функцию и небольшой правки получился такой:
Функция Печать() Экспорт
ИмяМакета = "Счет";
НаПринтер = Ложь;
КоличествоЭкземпляров = 1;
Если ТипЗнч(ИмяМакета) = Тип("ДвоичныеДанные") Тогда
ТабДокумент = УниверсальныеМеханизмы.НапечататьВнешнююФорму(СсылкаНаОбъект, ИмяМакета);
Если ТабДокумент = Неопределено Тогда
КонецЕсли;
Иначе
ПараметрКоманды = Новый Массив;
ПараметрКоманды.Добавить(СсылкаНаОбъект);
Если НаПринтер Тогда
УправлениеПечатьюКлиент.ВыполнитьКомандуПечатиНаПринтер("Документ.СчетНаОплатуПокупателю", ИмяМакета,
ПараметрКоманды, Неопределено);
Иначе
УправлениеПечатьюКлиент.ВыполнитьКомандуПечати("Документ.СчетНаОплатуПокупателю", ИмяМакета,
ПараметрКоманды, Неопределено, Неопределено);
КонецЕсли;
КонецЕсли;
УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент, КоличествоЭкземпляров, НаПринтер, ОбщегоНазначения.СформироватьЗаголовокДокумента(ЭтотОбъект, """"), СсылкаНаОбъект);
Возврат ТабДокумент;
КонецФункции // Печать
"
Программа при печати выводит ошибку:
Не удалось сформировать внешнюю печатную форму!
Поле объекта не обнаружено (Номер)
И выводит на экран стандартную форму без моих изменений в макете.
Код у меня в результате переноса наполнения процедуры печати в функцию и небольшой правки получился такой:
Функция Печать() Экспорт
ИмяМакета = "Счет";
НаПринтер = Ложь;
КоличествоЭкземпляров = 1;
Если ТипЗнч(ИмяМакета) = Тип("ДвоичныеДанные") Тогда
ТабДокумент = УниверсальныеМеханизмы.НапечататьВнешнююФорму(СсылкаНаОбъект, ИмяМакета);
Если ТабДокумент = Неопределено Тогда
КонецЕсли;
Иначе
ПараметрКоманды = Новый Массив;
ПараметрКоманды.Добавить(СсылкаНаОбъект);
Если НаПринтер Тогда
УправлениеПечатьюКлиент.ВыполнитьКомандуПечатиНаПринтер("Документ.СчетНаОплатуПокупателю", ИмяМакета,
ПараметрКоманды, Неопределено);
Иначе
УправлениеПечатьюКлиент.ВыполнитьКомандуПечати("Документ.СчетНаОплатуПокупателю", ИмяМакета,
ПараметрКоманды, Неопределено, Неопределено);
КонецЕсли;
КонецЕсли;
УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент, КоличествоЭкземпляров, НаПринтер, ОбщегоНазначения.СформироватьЗаголовокДокумента(ЭтотОбъект, """"), СсылкаНаОбъект);
Возврат ТабДокумент;
КонецФункции // Печать
"
09.09.2010
22:47
#13
Что то ты от нас утаиваешь!? Не видно здесь никакого номера! Приведи весь текст ошибки и весь код!
10.09.2010
08:57
#14
Да весь код прикрепил. Все, что было в моем модуле, то и скопировал. И всю ошибку.
Было бы куда, и обработку прикрепил бы.
Было бы куда, и обработку прикрепил бы.
10.09.2010
10:12
#18
"У тебя вот здесь неправильно :
УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент, КоличествоЭкземпляров, НаПринтер, ОбщегоНазначения.СформироватьЗаголовокДокумента(ЭтотОбъект, """"), СсылкаНаОбъект);
Надо :
УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент, КоличествоЭкземпляров, НаПринтер, ОбщегоНазначения.СформироватьЗаголовокДокумента(СсылкаНаОбъект, """"), СсылкаНаОбъект);"
УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент, КоличествоЭкземпляров, НаПринтер, ОбщегоНазначения.СформироватьЗаголовокДокумента(ЭтотОбъект, """"), СсылкаНаОбъект);
Надо :
УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент, КоличествоЭкземпляров, НаПринтер, ОбщегоНазначения.СформироватьЗаголовокДокумента(СсылкаНаОбъект, """"), СсылкаНаОбъект);"
Читают тему
(гостей: 1)