- Ориентация печатной формы для нового счёта-фактуры
- Ориентация страницы ТабДок.ОринтацияСтраницы = ОриентацияСтраницы.Ландшафт
- Как из 1С 8 сохранить табличный документ в MS Word в альбомной (ландшафтной) ориентации страниц
- Скачать файлы
- Специальные предложения
- См. также
- FormCodeGenerator Программная доработка форм. Часть 2 (Режим работы «Режим сравнения форм») на примере ERP 2.5 Промо
- Интерактивная справка по объектам 1С (подключаемое расширение)
- Конвейер проверки качества кода
- Алгоритмы поиска пути в графе
- Вам нравятся запросы в 1С? Промо
- Работа с публикациями «Инфостарт»
- HTTP Сервисы: Путь к своему сервису. Часть 3
- Позиционирование в помещении с помощью нейросети по сигналу Wi-Fi. Интерактивная карта склада в 1С с показом позиции
- ВСТАВИТЬ В Справочник.Номенклатура (Код, Наименование) ЗНАЧЕНИЯ («001», «Новый товар») Промо
- Работа с данными выбора
- Полезные примеры составления схемы компоновки данных #2
- Печатная форма, сделанная как расширение конфигурации для БП 3.0. Новые возможности БСП
- Заполняем по шаблону (по умолчанию) Промо
- Паузы при исполнении кода (Sleep для 1С)
- Макет в СКД — пример всех возможных типовых вариантов
- Telegram-боты
- Нечеткий поиск одним запросом Промо
- Умный дом на 1С + ардуино
- Расширения конфигураций 1С: учимся перехватывать методы
- Регулярные выражения – это просто. Построитель и отладчик регулярных выражений
- 1С: Предприятие + корпоративный чат, как наладить оперативные уведомления за 10 минут Промо
- Распознавание текста с помощью нейросетей Google Cloud Vision и 1С
- Графическая схема. Управление при помощи XDTO.
- Простой редактор плана помещения JavaScript
- Быстрое определение интервалов в запросе Промо
- Работа с двоичными данными на примере чтения файлов изображений. Новые возможности 8.3.9
- Загрузка файлов на сервер с прогрессом и докачкой
- Несколько шаблонов для доработки типовых конфигураций
- HTTP-сервис: отчеты [Расширение]
- Недокументированное использование стандартных форм Upd.
- Хранение файлов в томах на диске (для УПП 1.3)
- БСП 2.3 и БСП 3.0: Просто про выполнение внешней обработки в фоне (c индикацией прогресса выполнения)
- Остатки на каждый день в запросе
- Еще один способ расчета остатков на каждый день в запросе
- Вывод печатных форм с запросом данных в форму «Печать документов» из подсистемы БСП «Печать».
Ориентация печатной формы для нового счёта-фактуры
Функция Печать() Экспорт
ТабДокумент = Новый ТабличныйДокумент;
ТабДокумент.ИмяПараметровПечати = «ПАРАМЕТРЫ_ПЕЧАТИ_СчетФактураВыданный_СчетФактура1137»;
ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
ТабДокумент.ПолеСверху = 13;
Сообщить(ТабДокумент.ОриентацияСтраницы);
Сообщить(ТабДокумент.ИмяПараметровПечати);
Возврат ТабДокумент;
Письмо Минфина России от 31.01.2012 г. № 03-07-15/11
О применении новой формы счет-фактуры
Министерство финансов Российской Федерации в связи с принятием постановления Правительства Российской Федерации от 26 декабря 2011 г. N 1137 «О формах и правилах заполнения (ведения) документов, применяемых при расчетах по налогу на добавленную стоимость» сообщает.
Вышеназванным постановлением вводятся в действие новые формы счета-фактуры и порядок его заполнения, формы и порядок ведения журнала учета полученных и выставленных счетов-фактур, книг покупок и книг продаж.
Вместе с тем, учитывая опубликование текста постановления в «Собрании законодательства Российской Федерации» в январе 2012 года, полагаем возможным применение до начала очередного налогового периода, то есть до 1 апреля 2012 года, новых форм соответствующих документов наряду с формами, которые были утверждены постановлением Правительства Российской Федерации от 2 декабря 2000 г. N 914 «Об утверждении Правил ведения журналов учета полученных и выставленных счетов-фактур, книг покупок и книг продаж при расчетах по налогу на добавленную стоимость».
С.Д.ШАТАЛОВ
Источник статьи: http://forum.infostart.ru/forum83/topic51956/
Ориентация страницы ТабДок.ОринтацияСтраницы = ОриентацияСтраницы.Ландшафт
Не получается печатную форму в ландшафтной ориентации:
Делаю так:
Инвойс = СТ_ПроцедурыОбщегоНазначения.ПолучитьИнвойс(ЭтотОбъект.Ссылка);
Если ТипЗнч(Инвойс) = Тип(«ДокументСсылка.Инвойс») Тогда
Макет = ПолучитьМакет(«СличительнаяВедомость»);
ТабДокумент = Новый ТабличныйДокумент;
ТабДокумент.ИмяПараметровПечати = «ПАРАМЕТРЫ_ПЕЧАТИ_ПоступлениеТоваровУслуг_ТОРГ12»;
ДатаОстатков = Новый Граница(ЭтотОбъект.МоментВремени(),ВидГраницы.Исключая);
Запрос.УстановитьПараметр(«ДатаПоступления», ДатаОстатков);
Запрос.УстановитьПараметр(«Организация», Организация);
Запрос.УстановитьПараметр(«Подразделение», Подразделение);
Запрос.УстановитьПараметр(«Склад», СкладОрдер);
Запрос.УстановитьПараметр(«Поставка», Инвойс);
Запрос.УстановитьПараметр(«Контрагент», Инвойс.Контрагент);
Запрос.УстановитьПараметр(«Договор», Инвойс.ДоговорКонтрагента);
Шапка = Макет.ПолучитьОбласть(«Шапка»);
Шапка.Параметры.Поставщик = Контрагент;
Шапка.Параметры.Склад = СкладОрдер;
ТабДокумент.Вывести(Шапка);
ДанныеПоступления = Макет.ПолучитьОбласть(«ДанныеПоступлени»);
ДанныеПоступления.Параметры.НомерПоступления = Номер;
ДанныеПоступления.Параметры.ДатаПоступления = Дата;
ДанныеПоступления.Параметры.НомерИнвойса = Инвойс.Номер;
ДанныеПоступления.Параметры.ДатаИнвойса = Инвойс.Дата;
ТабДокумент.Вывести(ДанныеПоступления);
ШапкаЗаголовкаПодписи = Макет.ПолучитьОбласть(«ШапкаЗаголовокПодписи»);
ШапкаЗаголовкаПодписи.Параметры.ОтветственныйИнвойс = Инвойс.Ответственный;
ШапкаЗаголовкаПодписи.Параметры.ОтветственныйПоступление = Ответственный;
ТабДокумент.Вывести(ШапкаЗаголовкаПодписи);
ШапкаТаблицы = Макет.ПолучитьОбласть(«ШапкаТаблицы»);
ТабДокумент.Вывести(ШапкаТаблицы);
Если Результат.Количество() <> 0 Тогда
НомерСтрокиОтчета = 0;
ИтогКолИзлишек = 0;
ИтогоСуммаИзлишек = 0;
ИтогоКолНедостача = 0;
ИтогоСуммаНедостача = 0;
Если Инвойс.ВалютаДокумента <> Справочники.Валюты.НайтиПоНаименованию(«руб.») Тогда
КурсИвойса = Инвойс.КурсВзаиморасчетов;
КонецЕсли;
Для Каждого Строка Из Результат Цикл
НомерСтрокиОтчета = НомерСтрокиОтчета + 1;
Строки = Макет.ПолучитьОбласть(«Строки»);
Строки.Параметры.Номер = НомерСтрокиОтчета;
Строки.Параметры.Номенклатура = Строка.Номенклатура;
Строки.Параметры.Намотка = Строка.Намотка;
Строки.Параметры.ЕдиницаИзмерения = Строка.Номенклатура.БазоваяЕдиницаИзмерения;
Если Строка.ПутьКоличество > 0 Тогда
Строки.Параметры.КоличесвтоНедостача = (Строка.ПутьКоличество) ;
Если Инвойс.ВалютаДокумента <> Справочники.Валюты.НайтиПоНаименованию(«руб.») Тогда
Строки.Параметры.СуммаНедостача = МодульВалютногоУчета.ПересчитатьИзВалютыВВалюту(Строка.СуммаОстаток, Инвойс.ВалютаДокумента, Справочники.Валюты.НайтиПоНаименованию(«руб.»), КурсИвойса, 1, Инвойс.КратностьВзаиморасчетов, 1);
Иначе
Строки.Параметры.СуммаНедостача = Строка.СуммаОстаток
КонецЕсли;
ИтогоКолНедостача = ИтогоКолНедостача + (Строка.ПутьКоличество);
ИтогоСуммаНедостача = ИтогоСуммаНедостача + Строки.Параметры.СуммаНедостача;
Иначе
Строки.Параметры.КоличествоИзлишек = Строка.ПутьКоличество * -1;
Если Инвойс.ВалютаДокумента <> Справочники.Валюты.НайтиПоНаименованию(«руб.») Тогда
Строки.Параметры.СуммаИзлишек = МодульВалютногоУчета.ПересчитатьИзВалютыВВалюту(Строка.СуммаОстаток, Инвойс.ВалютаДокумента, Справочники.Валюты.НайтиПоНаименованию(«руб.»), КурсИвойса, 1, Инвойс.КратностьВзаиморасчетов, 1);
Иначе
Строки.Параметры.СуммаИзлишек = Строка.СуммаОстаток;
КонецЕсли;
ИтогКолИзлишек = ИтогКолИзлишек + Строка.ПутьКоличество;
ИтогоСуммаИзлишек = ИтогоСуммаИзлишек + Строки.Параметры.СуммаИзлишек;
КонецЕсли;
ТабДокумент.Вывести(Строки);
КонецЦикла;
Итого = Макет.ПолучитьОбласть(«Итого»);
Итого.Параметры.ИтогКолИзлишек = ИтогКолИзлишек * -1;
Итого.Параметры.ИтогоСуммаИзлишек = ИтогоСуммаИзлишек;
Итого.Параметры.ИтогоКолНедостача = ИтогоКолНедостача;
Итого.Параметры.ИтогоСуммаНедостача = ИтогоСуммаНедостача;
ТабДокумент.Вывести(Итого);
Подвал = Макет.ПолучитьОбласть(«Подвал»);
ТабДокумент.Вывести(Подвал);
ТабДокумент.АвтоМасштаб = Истина;
ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
ТабДокумент.ТолькоПросмотр = Истина;
Возврат ТабДокумент;
КонецЕсли;
Источник статьи: http://forum.mista.ru/topic.php?id=469828
Как из 1С 8 сохранить табличный документ в MS Word в альбомной (ландшафтной) ориентации страниц
Оказалось, что 1С не умеет сохранять табличный документ в формат DOCX с ландшафтной ориентацией страниц. Т.е. код ниже никак не меняет ориентацию страниц при сохранении в формат DOCX.
Был немного озадачен, т.к. поиск решения не привел ни к чему.
Пришлось выкручиваться самому )))
Решение с COM объектами мне не понравилось, т.к. может не работать на сервере (на сервере 1С не все устанавливают офисный пакет MS Office или пользуются онлайн версией 365-го)
В голову пришло простое решение.
DOCX по сути ZIP архив. В нем обычные XML файлы. Найти чего не хватает оказалось легко.
Это файл ..\word\document.xml
Просто сравнить два файла с портретной и альбомной ориентацией.
Ну и реализация напрашивается сама собой — либо прочитать документ XML как строку и СтрЗаменить, либо прочитать как XML и вставить недостающие элементы и атрибуты.
Во вложении две процедуры ОриентацияЛандшафтСтр(ПолныйПутьФайл) и ОриентацияЛандшафтXML(ПолныйПутьФайл) для тех кому лень кодить 😀
Проверено на платформе 8.3.13.1926, конфигурация УТП 1.2.48.1.
З.Ы. Работает с файлами только что созданными из 1С, не надо дважды применять этот код на один и тот же файл. Сломается ))) Лень было писать еще и проверку на наличие элементов XML в файле. Так что аккуратней!
Скачать файлы
| Наименование | Файл | Версия | Размер |
|---|---|---|---|
