Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Помогите ,не могу отловить установку панели в счёте , в свою печатную форму вывести такую же панель.          
roman457 Подменю пользователя
сообщение 30.01.14, 15:11
Сообщение #1

Говорящий
***
Группа: Пользователи
Сообщений: 55
Спасибо сказали: 2 раз
Рейтинг: 0

1с 8.2 УТП
Требуется изменить печатную форму счёта до неузнаваемости .
Изменил запустил отобразил , но потерял панель которая печатается с универсальной обработке .
пробовал в отладчике отловить появление ( видимо не внимательность и спешка делает свои сроки . )
Если не затруднит Вас ткнуть меня носом какая процедура запускает панель .

очень хотелось бы её видеть в своих формах.
---
Буду признателен за полученные от Вас знания и опыт.

Ardi Подменю пользователя
сообщение 30.01.14, 15:19
Сообщение #2

Живет на форуме
***********
Гений телепатии и социального моделирования
Группа: Пользователи
Сообщений: 4121
Из: Киев
Спасибо сказали: 957 раз
Рейтинг: 0

Код вывода на экран в студию.


Signature
Услуги 1С программиста 8.2, 7.7 (Плохо, дорого, очередь). Киев.

roman457 Подменю пользователя
сообщение 30.01.14, 16:24
Сообщение #3

Говорящий
***
Группа: Пользователи
Сообщений: 55
Спасибо сказали: 2 раз
Рейтинг: 0

Цитата(Ardi @ 30.01.14, 15:19) *
Код вывода на экран в студию.

Процедура Печать(ИмяМакета, КоличествоЭкземпляров = 1, НаПринтер = Ложь) Экспорт
    Если ЭтоНовый() Тогда
        Предупреждение("Документ можно распечатать только после его записи");
        Возврат;
    КонецЕсли;
    Если Не РаботаСДиалогами.ПроверитьМодифицированность(ЭтотОбъект) Тогда
        Возврат;
    КонецЕсли;
    Если ИмяМакета = "Счет" Тогда
        // Печать счета на оплату
        ТабДокумент     = ПечатьСчетаЗаказа(ИмяМакета);
    ИначеЕсли ТипЗнч(ИмяМакета) = Тип("ДвоичныеДанные") Тогда
ТабДокумент = УниверсальныеМеханизмы.НапечататьВнешнююФорму(Ссылка, ИмяМакета);
        Если ТабДокумент = Неопределено Тогда
            Возврат
        КонецЕсли;
    КонецЕсли;
    //УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент, КоличествоЭкземпляров,НаПринтерОбщегоНазначения.СформироватьЗаголовокДокумента(ЭтотОбъект, ""), Ссылка);
    ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет ("счетЗаказ");
Область=Макет. ПолучитьОбласть ("ЗаголовокСчета");
ТабДок. Вывести (Область);
Область = макет.ПолучитьОбласть("заголовок");
ДатаП = формат (Этотобъект.дата,"Л=uk_UA; ДЛФ=DD");
наз=строка ("Рахунок-фактура № " +номер + "від " + датаП);
область.Параметры.текстзаголовка =  наз;
табДОк.Вывести(область);
Область = макет.ПолучитьОбласть("ШапкаЗеркало");
табдок.Вывести(Область);
Для каждого текущаястрока Из ЭтотОбъект.Товары Цикл
Область=Макет. ПолучитьОбласть ("СтрокаЗеркало");
Область. Параметры. ном          = текущаястрока.НомерСтроки  ;
область. Параметры. кодрисунка   = текущаястрока.КодРисунка   ;
область. Параметры. ТМЦ          = Текущаястрока.Номенклатура ;
ширин = строка(текущаястрока.ширина);   высотка = строка(текущаяСтрока.Высота);
списокразмеров = строка(ширин + " * "+ Высотка);
область. Параметры. размер       = СписокРазмеров;
Область. Параметры. Еденица      = Текущаястрока.ЕдиницаИзмерения;
Область. Параметры. КВО          = Текущаястрока.Количество      ;
Область. Параметры. Цена         = Текущаястрока.Цена            ;
Область. Параметры. СуммаСтроки  = ТекущаяСтрока.Сумма             ;
ТабДок. Вывести (Область);
//порНом=порНом+1;
КонецЦикла;
Область = макет.ПолучитьОбласть("Итого");
Область. параметры. Всего         = Этотобъект.СуммаДокумента;
табдок.вывести(область);
Область = макет.ПолучитьОбласть("СуммаПрописью");
ТабДок.вывести(область);
Область = макет.ПолучитьОбласть("ДНО");
ТабДок.вывести(область);
//Область=Макет. ПолучитьОбласть ("Подписи");
//ТабДок. Вывести (Область);
ТабДок. АвтоМасштаб=Истина;
ТабДок. ПолеСлева=10;
ТабДок. ПолеСправа=5;
ТабДок. ПолеСверху=5;
ТабДок. ПолеСнизу=5;
ТабДок. Показать (наз);

это просто и сердито тут панеле нет .
а в стандартной конфе код примерно такой
Процедура Печать(ИмяМакета, КоличествоЭкземпляров = 1, НаПринтер = Ложь) Экспорт

    Если ЭтоНовый() Тогда
        Предупреждение("Документ можно распечатать только после его записи");
        Возврат;
    КонецЕсли;

    Если Не РаботаСДиалогами.ПроверитьМодифицированность(ЭтотОбъект) Тогда
        Возврат;
    КонецЕсли;

    
    Если ИмяМакета = "Счет" Тогда
        // Печать счета на оплату
        ТабДокумент     = ПечатьСчетаЗаказа(ИмяМакета);
        
    ИначеЕсли ТипЗнч(ИмяМакета) = Тип("ДвоичныеДанные") Тогда

        ТабДокумент = УниверсальныеМеханизмы.НапечататьВнешнююФорму(Ссылка, ИмяМакета);
        
        Если ТабДокумент = Неопределено Тогда
            Возврат
        КонецЕсли;
        
    КонецЕсли;

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

logist Подменю пользователя
сообщение 30.01.14, 16:30
Сообщение #4

Про1С-ник
Иконка группы
Квалифицированный бухгалтерГений телепатии и социального моделированияЗа заслуги на форуме в 2010 годуМодератору Про1С (за заслуги в 2011 году)
Группа: Местный
Сообщений: 9564
Из: Kharkiv, UA
Спасибо сказали: 2539 раз
Рейтинг: 0

Цитата(roman457 @ 30.01.14, 17:24) *
УниверсальныеМеханизмы.НапечататьДокумент

эта процедура осуществляет показ формы универсальной формы с панелью которая вам нужна.


Signature
Личные бесплатные консультации не даю, для этого есть форум!

roman457 Подменю пользователя
сообщение 30.01.14, 16:34
Сообщение #5

Говорящий
***
Группа: Пользователи
Сообщений: 55
Спасибо сказали: 2 раз
Рейтинг: 0

Цитата(logist @ 30.01.14, 16:30) *
эта процедура осуществляет показ формы универсальной формы с панелью которая вам нужна.

Спасибо . это я понимаю . можно как-то самому без Универсального механизма вытащить эту форму .
в какую сторону копать . где посмотреть или в какой момент он применяет эту форму .
как определить этот момент .
Спасибо .

logist Подменю пользователя
сообщение 30.01.14, 16:45
Сообщение #6

Про1С-ник
Иконка группы
Квалифицированный бухгалтерГений телепатии и социального моделированияЗа заслуги на форуме в 2010 годуМодератору Про1С (за заслуги в 2011 году)
Группа: Местный
Сообщений: 9564
Из: Kharkiv, UA
Спасибо сказали: 2539 раз
Рейтинг: 0

Цитата(roman457 @ 30.01.14, 17:34) *
как определить этот момент .

Если бы Вы не ленились пролистать 1,5 десятка строк этой процедуры, то увидели бы, что есть общая форма "ПечатьДокументов" wink.gif


Signature
Личные бесплатные консультации не даю, для этого есть форум!

Спасибо сказали: roman457,

roman457 Подменю пользователя
сообщение 30.01.14, 16:51
Сообщение #7

Говорящий
***
Группа: Пользователи
Сообщений: 55
Спасибо сказали: 2 раз
Рейтинг: 0

Цитата(logist @ 30.01.14, 16:45) *
Если бы Вы не ленились пролистать 1,5 десятка строк этой процедуры, то увидели бы, что есть общая форма "ПечатьДокументов" wink.gif

Спасибо вам большое ,искренее.
вопрос больше не в лени прогнал всё раз 5 и не разу ен въехал где искать .(вероятнее это не опытность ).
пошёл листать , искать и удивлять .
Если кому-то интересно могу выложить уже итоговый результат .
Надеюсь он будет положительный.

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 16.06.25, 8:57
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!