Как в печатную форму вставить реквизит формы

Функция СведенияОВнешнейОбработке() Экспорт

    ПараметрыРегистрации = Новый Структура;

    МассивНазначений = Новый Массив;

    МассивНазначений.Добавить(«Документ.ЗаказКлиента»);

    ПараметрыРегистрации.Вставить(«Вид», «ПечатнаяФорма»);  

    ПараметрыРегистрации.Вставить(«Назначение», МассивНазначений);

    ПараметрыРегистрации.Вставить(«Наименование», «ЗаказКлиентаКоличественный»);

    ПараметрыРегистрации.Вставить(«БезопасныйРежим», ЛОЖЬ);

    ПараметрыРегистрации.Вставить(«Версия», «1.0»);

    ПараметрыРегистрации.Вставить(«Информация», «Изготовлено wpg»);

    ТаблицаКоманд = ПолучитьТаблицуКоманд();

    ДобавитьКоманду(ТаблицаКоманд, «Заказ клиента количественный(шаблон)», «ЗаказКлиентаКоличественный», «ВызовСерверногоМетода», Истина, «ПечатьMXL»);

    ПараметрыРегистрации.Вставить(«Команды», ТаблицаКоманд);

Возврат ПараметрыРегистрации;

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

Функция ПолучитьТаблицуКоманд()

    Команды = Новый ТаблицаЗначений;

    Команды.Колонки.Добавить(«Представление», Новый ОписаниеТипов(«Строка»));

    Команды.Колонки.Добавить(«Идентификатор», Новый ОписаниеТипов(«Строка»));

    Команды.Колонки.Добавить(«Использование», Новый ОписаниеТипов(«Строка»));

    Команды.Колонки.Добавить(«ПоказыватьОповещение», Новый ОписаниеТипов(«Булево»));

    Команды.Колонки.Добавить(«Модификатор», Новый ОписаниеТипов(«Строка»));

    Возврат Команды;

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

Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь, Модификатор = «»)

    НоваяКоманда = ТаблицаКоманд.Добавить();

    НоваяКоманда.Представление = Представление;

    НоваяКоманда.Идентификатор = Идентификатор;

    НоваяКоманда.Использование = Использование;

    НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение;

    НоваяКоманда.Модификатор = Модификатор;

    
КонецПроцедуры

Процедура Печать(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт

УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, «ЗаказКлиентаКоличественный», «Заказ клиента с ячейками хранения», СформироватьПечатнуюФорму(МассивОбъектов[0], ОбъектыПечати));

КонецПроцедуры // Печать()

Функция СформироватьПечатнуюФорму(СсылкаНаДокумент, ОбъектыПечати)

ТабличныйДокумент = Новый ТабличныйДокумент;

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

МакетОбработки = ПолучитьМакет(«ПФ_MXL_ЗаказКлиента_Количественный»);

ОбластьЗаголовок=МакетОбработки.ПолучитьОбласть(«Заголовок»);

ОбластьЗаголовок.Параметры.ТекстЗаголовка = «Заказ клиента № «+СсылкаНаДокумент.Номер+» от «+ СсылкаНаДокумент.Дата;

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

ОбластьПоставщик=МакетОбработки.ПолучитьОбласть(«Поставщик»);

ОбластьПоставщик.Параметры.ПредставлениеОрганизации =  СсылкаНаДокумент.Организация;

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

ОбластьПокупатель=МакетОбработки.ПолучитьОбласть(«Покупатель»);

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

        
    Запрос = Новый Запрос;

    Запрос.Текст =

        «ВЫБРАТЬ

        |    ПартнерыКонтактнаяИнформация.Представление КАК Представление

        |ИЗ

        |    Справочник.Партнеры.КонтактнаяИнформация КАК ПартнерыКонтактнаяИнформация

        |ГДЕ

        |    ПартнерыКонтактнаяИнформация.Ссылка = &Ссылка»;

    
    Запрос.УстановитьПараметр(«Ссылка», СсылкаНаДокумент.Партнер.Ссылка);

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

    
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

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

    //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА

Адрес = ВыборкаДетальныеЗаписи.Представление;

ОбластьПокупатель.Параметры.Адрес = Адрес;

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

ОбластьШапкаТаблицы=МакетОбработки.ПолучитьОбласть(«ШапкаТаблицы»);

ТабличныйДокумент.Вывести(ОбластьШапкаТаблицы);

ОбластьСтрокаТаблицы=МакетОбработки.ПолучитьОбласть(«СтрокаТаблицы»);

    //{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА

    // Данный фрагмент построен конструктором.

    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

    
    Запрос = Новый Запрос;

    Запрос.Текст =

        «ВЫБРАТЬ

        |    ЗаказКлиентаТовары.Номенклатура КАК Номенклатура,

        |    ЗаказКлиентаТовары.Номенклатура.Артикул КАК НоменклатураАртикул,

        |    ЗаказКлиентаТовары.Номенклатура.ЕдиницаИзмерения КАК НоменклатураЕдиницаИзмерения,

        |ВЫБОР

        |    КОГДА ЗаказКлиентаТовары.Номенклатура.ВесЗнаменатель <> 0

        |    ТОГДА ЗаказКлиентаТовары.Номенклатура.ВесЧислитель / ЗаказКлиентаТовары.Номенклатура.ВесЗнаменатель * ЗаказКлиентаТовары.Количество

        |    ИНАЧЕ &Ничего

        |КОНЕЦ КАК Вес,

        |ВЫБОР

        |    КОГДА ЗаказКлиентаТовары.Номенклатура.ВесЗнаменатель <> 0

        |    ТОГДА ЗаказКлиентаТовары.Номенклатура.ВесЕдиницаИзмерения

        |    ИНАЧЕ &Ничего

        |КОНЕЦ КАК ВесЕдИзм,

        |    ЗаказКлиентаТовары.Цена КАК Цена,

        |    ЗаказКлиентаТовары.Количество КАК Количество,

        |    ЗаказКлиентаТовары.Сумма КАК Сумма,

        |    ЗаказКлиентаТовары.НомерСтроки КАК НомерСтроки

        |ИЗ

        |    Документ.ЗаказКлиента.Товары КАК ЗаказКлиентаТовары

        |ГДЕ

        |    ЗаказКлиентаТовары.Ссылка = &Ссылка»;

           
    Запрос.УстановитьПараметр(«Ссылка», СсылкаНаДокумент.Ссылка);

    Запрос.УстановитьПараметр(«Ничего», «—«);

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

    
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

    КоличествоСтрок =  ВыборкаДетальныеЗаписи.Количество();

    
    СуммаКоличество = 0;

    СуммаВес = 0;

    СуммаОбъем = 0;

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

        ОбластьСтрокаТаблицы.Параметры.НомерСтроки = ВыборкаДетальныеЗаписи.НомерСтроки;

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

        ОбластьСтрокаТаблицы.Параметры.Количество = ВыборкаДетальныеЗаписи.Количество;

//        ОбластьСтрокаТаблицы.Параметры.Цена = ВыборкаДетальныеЗаписи.Цена;

//        ОбластьСтрокаТаблицы.Параметры.Сумма = ВыборкаДетальныеЗаписи.Сумма;

        ОбластьСтрокаТаблицы.Параметры.Артикул = ВыборкаДетальныеЗаписи.НоменклатураАртикул;

        ОбластьСтрокаТаблицы.Параметры.ЕдИзм = ВыборкаДетальныеЗаписи.НоменклатураЕдиницаИзмерения;

        ОбластьСтрокаТаблицы.Параметры.ЯчейкаХранения = ;

        Если ВыборкаДетальныеЗаписи.Вес = «—» Тогда

            ОбластьСтрокаТаблицы.Параметры.Вес = ВыборкаДетальныеЗаписи.Вес;

        Иначе

            ОбластьСтрокаТаблицы.Параметры.Вес = Формат(Окр(ВыборкаДетальныеЗаписи.Вес,1),»ЧДЦ=1″);

        КонецЕсли;

        
        ОбластьСтрокаТаблицы.Параметры.ВесЕдИзм = ВыборкаДетальныеЗаписи.ВесЕдИзм;

        
        ТабличныйДокумент.Вывести(ОбластьСтрокаТаблицы);

        
        ТекущВес=ВыборкаДетальныеЗаписи.Вес;

        Если ТекущВес = «—» Тогда

            ТекущВес = 0;

        КонецЕсли;

        
        
        СуммаКоличество =  СуммаКоличество +  ВыборкаДетальныеЗаписи.Количество;

        СуммаВес = СуммаВес + ТекущВес;

        
    
    
  
    КонецЦикла;

//    

//    //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА

ОбластьПодвалТаблицы=МакетОбработки.ПолучитьОбласть(«ПодвалТаблицы»);

    ОбластьПодвалТаблицы.Параметры.ИтогКоличество = СуммаКоличество;

    ОбластьПодвалТаблицы.Параметры.ИтогВес = Формат(окр(СуммаВес,1),»ЧДЦ=1″);

ТабличныйДокумент.Вывести(ОбластьПодвалТаблицы);

ОбластьПодписи=МакетОбработки.ПолучитьОбласть(«Подписи»);

ТекстИтоговойСтроки = НСтр(«ru = ‘Всего наименований %ВсегоНаименований% на сумму %Сумма% руб.'»);

ТекстИтоговойСтроки = СтрЗаменить(ТекстИтоговойСтроки,»%ВсегоНаименований%», КоличествоСтрок);

ТекстИтоговойСтроки = СтрЗаменить(ТекстИтоговойСтроки,»%Сумма%», СсылкаНаДокумент.СуммаДокумента);

ОбластьПодписи.Параметры.ИтоговаяСумма =  ТекстИтоговойСтроки;

ОбластьПодписи.Параметры.СуммаПрописью = ЧислоПрописью(СсылкаНаДокумент.СуммаДокумента,»Л = ru_RU; ДП = Истина»,»рубль, рубля, рублей, м, копейка, копейки, копеек, ж, 2″);

ОбластьПодписи.Параметры.Менеджер = СсылкаНаДокумент.Менеджер;

ТабличныйДокумент.Вывести(ОбластьПодписи);

ТабличныйДокумент.АвтоМасштаб = Истина;

Возврат ТабличныйДокумент;

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

Вопрос от новичка (может быть глупым)! Добавление реквизита в печатную форму

Автор Alexandrius, 24 мая 2018, 11:52

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

• Форум 1С
• ►
  Форум 1С — ПРЕДПРИЯТИЕ 8.0 8.1 8.2 8.3 8.4
• ►
  Конфигурирование, программирование в 1С Предприятие 8
• ►
  Вопрос от новичка (может быть глупым)! Добавление реквизита в печатную форму

Поиск

(1 оценок, среднее: 3,00 из 5)

Установив переключатель в нужное положение (выводить артикул или код), указанная колонка добавится в форму документа.

Колонка «Артикул» добавлена в табличную часть формы «Счет на оплату».

Но иногда, внеся изменения в форму, пользователь не может ее изменить, т.к. «подсказка-котик» исчезла из счета.

В этом разделе вы можете изменить настройку видимости этих колонок для документов «Счет», «Реализация (акт, накладная)», «Требование-накладная» и т.п.

А как быть, если пользователь хочет внести более глобальные «нестандартные» изменения в печатную форму? В этом случае придется немного потрудиться.

Шаг 2. Пройдите по гиперссылке «Макеты печатных форм».

В справочнике отображены лишь те формы, в которые пользователь может внести изменения.

Шаг 3. Для внесения изменений в форму щелкните дважды мышкой на выбранном макете и откройте его, установив переключатель в положение «Для просмотра и редактирования». Тот же результат можно получить при нажатии кнопки «Изменить».

Второй способ «пробраться» к макету – непосредственно из самой печатной формы документа.

Макет открыт, перейдем к его изменению.

Как видите, форма макета напоминает таблицу Excel и принцип работы с ней схож. Изменение имен областей и других параметров формы не допустимо, т.к. это может повлечь за собой сбой в работе формы.

Меню для форматирования ячеек доступно и по кнопке «Еще».

Изменить формат ячейки можно щелкнув правой кнопкой мышки на ней и выбрав команду «Свойства».

Меню содержит и другие дополнительные настройки формата ячейки.

В результате наших действий вышла такая ячейка.

На «раз, два» мы получили вот такую форму счета с дополнительной информацией.

Как узнать изменен ли макет?

Не переживайте, что вы испортите шаблон формы.

«Пиктограмма-карандашик» стала блеклой, значит измененный макет отключен.

Шаг 2. Выделите место куда вставить картинку и нажмите кнопку «Еще», далее подберите нужный рисунок по команде «Картинка».

Вы можете воспользоваться стандартной библиотекой рисунков, а можно подобрать свою картинку-логотип по кнопке «Выбрать из файла».

Шаг 3. По гиперссылке или нажав кнопку «Выберите с диска» укажите файл вставляемого рисунка.

Переместив его в библиотеку рисунков, подтвердите выбор, нажав «Ок».

Рекомендуем рисунок сразу загружать небольшого размера. Предварительно уменьшите размер картинки в графическом редакторе. С большим сложнее справиться, придется уменьшать его размер в программе.

Шаг 5. Для просмотра как выглядит вставленная картинка на документе нажмите кнопку «Предварительный просмотр».

Если все устраивает, можно сохранять с помощью кнопки «Записать и закрыть».

Это еще не все возможности в использовании макетов.

Значение ячейки может быть задано с использованием:

Что такое шаблон? Это сочетание текста и параметров.

Отформатируйте текст. Шаблон в ячейке выглядит в формате — <Проверено [ДатаДокумента] _____________>

Добавление колонок и строк в макет, форматирование границ

Для изменения границ ячеек таблицы, в свойствах задаются параметры границ.

Работа схожа с таблицами Excel. Но редактировать готовую таблицу всегда сложнее, чем создавать новую.

Добавить комментарий