Вывод на печать дополнительных реквизитов 1с

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

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

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

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

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

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

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

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

    ПараметрыРегистрации.Вставить(«Версия», «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)