Вывод дополнительных реквизитов печатную форму

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

        «ВЫБРАТЬ

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

        |ИЗ

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

        |ГДЕ

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

        «ВЫБРАТЬ

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

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

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

        |ВЫБОР

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

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

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

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

        |ВЫБОР

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

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

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

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

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

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

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

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

        |ИЗ

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

        |ГДЕ

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

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

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

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

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

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

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

    СуммаВес = 0;

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

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

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

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

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

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

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

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

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

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

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

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

        Иначе

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

        КонецЕсли;

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

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

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

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

            ТекущВес = 0;

        КонецЕсли;

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

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

        
    
    
  
    КонецЦикла;

//    

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Добрый день.
Есть организация, занимающаяся мелкооптовой торговлей.
Работа только с юрлицами и исключительно по безналу с комплектом документов: счет+Торг12 (НДС нет, ибо УСН).
Набор контрагентов более-менее стабильный (их штук 30-40), но контактные лица у контрагентов зачастую меняются.
В день — три-пять развозок.
Из-за смены контактных лиц у покупателей часто бывает проблема с тем, что экспедитор приезжает на адрес, и не может найти нужного человека, ибо периодичность доставок — где-то раз в две-три недели, и за это время контактный человек может смениться (а в телефон экспедитор слышит «что вы мне звоните я уже месяц там не работаю!»)
Насколько я знаю, у 1С Бухгалтерии есть механизм сохранения дополнительных сведений и, возможно, его было бы удобно использовать в моей ситуации, например, при выписке счета сразу в этих дополнительных сведениях указывать, кого искать на адресе при разгрузке.
Единственное, что я не понял в справке 1С — это как с этими доп.сведениями работать.
Может быть, здесь есть кто-то, кто мог бы «на пальцах» объяснить или посоветовать, где почитать при применение их в такой ситауции.
1С Бухгалтерия 8.3, редакция 3.0.60.44

Заранее благодарен за дельные советы!

Заполнить и подать уведомление об исчисленных суммах налогов и взносов

Заполняйте платежки с актуальными на сегодня КБК, кодами дохода и другими обязательными реквизитами

Пройти подготовку на соответствие профстандарту «Бухгалтер» (код А, В) при ОСНО

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

• Строка – доступна настройка длины строки, настройки элемента ввода элемента (однострочноемногострочное поле ввода)
• Число – доступны настройки длины числа, точности, флажок неотрицательное, представления нуля и отрицательных чисел.
•  Булево – Просто флажок.
• Дата – Есть возможность выбора формата даты, состава даты (дата, время, дата и время), а также представления пустой даты
• Составной тип данных – Пользователь сам выбирает тип данных при вводе.
• Дополнительные значения – При выборе данного типа значения задаются на вкладке «значения», рисунок 3.
• Пользователь – значение из справочника пользователи.

Нужна помощь с 1С?

Мы можем взять на себя ваш бухгалтерский учет. Вам не нужно будет думать о расчете налогов и сдаче отчетности. Мы будем вести финансовую ответственность за ошибки. Мы — команда профессионалов, а не один бухгалтер, мы не заболеем, не пропадем и не уйдем внезапно в отпуск. Сосредоточьтесь на управлении. А учет и отчетность мы возьмем на себя. Чтобы получить бесплатную консультацию по автоматизации своего бизнеса Вы можете пообщаться с нашими специалистами в офисе компании или позвонив по телефону: 8-800-707-01-02.

Сопровождение 1С

Чем мы можем быть вам полезны?

1. Добрый день!
   Имеется УНФ 1С:Предприятие 8.3 (8.3.15.1489), необходимо создать печатную форму для документа «Заказ на производство», причем в документ добавлен дополнительный реквизит с наименованием «Места выдачи». Проблема в том, что
   не могу получить значение дополнительного реквизита. Делаю так:

   ДопСвойство = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию(«Места выдачи»);
   Значение = СсылкаНаОбъект.ДополнительныеРеквизиты.Найти(ДопСвойство);
   ОбластьШапки.Параметры.МестаВыдачи = Значение;

   В результате получаю пустое поле (ошибок не выдается). Что здесь не так?

2. 
   

   Offline

   1cUserAndrew
   Профессионал в 1С
   Команда форума

   Регистрация:

   27 май 2010

   Сообщения:

   5.153

   Симпатии:

   217

   Баллы:

   104

   Попробуйте так:

   Значение = УправлениеСвойствами.ЗначениеСвойства(СсылкаНаОбъект, ДопСвойство);

3. Большое спасибо! Сработало!

4. Столкнулся с неожиданной проблемой:
   Имеется три дополнительных реквизита, все три пытаюсь выводить так:

   ДопСвойство = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию(«Дополнительный реквизит1»);
   Значение = УправлениеСвойствами.ЗначениеСвойства(СсылкаНаОбъект, ДопСвойство);
   ОбластьШапки.Параметры.ТипКлиента = Значение;

   В результате Дополнительный реквизит1 и Дополнительный реквизит2 выводятся нормально, а вместо значения Дополнительный реквизит3 — пустое поле. Что может быть не так с третьим реквизитом? Может быть дело в том, что первые два реквизита относятся к документу, для которого делается печатная форма, а третий к справочнику Контрагенты?

5. 
   

   Offline

   1cUserAndrew
   Профессионал в 1С
   Команда форума

   Регистрация:

   27 май 2010

   Сообщения:

   5.153

   Симпатии:

   217

   Баллы:

   104

   Ну да, в параметр СсылкаНаОбъект нужно передавать владельца доп.свойства.
   В третьем случае, получается, что нужно передавать не документ, а контрагента.

6. Не совсем понял: из документа «Заказы на производство» единственный путь добраться до справочника Контрагенты через поле «Заказ покупателя», т.е. так СсылкаНаОбъект.ЗаказПокупателя.Контрагент, пробовал так:

   Значение = УправлениеСвойствами.ЗначениеСвойства(СсылкаНаОбъект.ЗаказПокупателя.Контрагент, ДопСвойство);

   — безрезультатно.

7. 
   

   Offline

   1cUserAndrew
   Профессионал в 1С
   Команда форума

   Регистрация:

   27 май 2010

   Сообщения:

   5.153

   Симпатии:

   217

   Баллы:

   104

   Точнее, к сожалению, не могу сказать. Нужно разбираться с конкретным случаем.
   В общем случае, судя по описанию, вроде, все верно.

8. Помогла статья http://1c-bezproblem.ru/blog/v-pomo…polnitelnye-rekvizity-v-1c-8-3-na-primere-unf . Работоспособным оказался следующий код:

   ЗакКонтрагент = СсылкаНаОбъект.ЗаказПокупателя.Контрагент;
   …

   ДопСвойство = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию(«Тип клиента (Контрагенты)»);
   Значение = ЗакКонтрагент.ДополнительныеРеквизиты.Найти(ДопСвойство).Значение;