Vofka @ 22.02.18, 14:17
, Честно говоря вообще не понимаю. В редакции 1.2 все было четко и ясно. В настройках нашей организации в учетной политике и так все настроено как надо.
На дату создания счетов, мы и так являемся плательщиками НДС. Но каждый раз делая счет покупателю нужно ставить галочку "Цена включает НДС" Вариант с договорами конечно исправляет ситуацию. Но блин нужно редактировать каждый договор вручную. Чтоб установить там основную цену продажи. А это куча лишних движений, и в добавок тратиться уйма времени.
andr_ @ 22.02.18, 15:46
Цитата(andr_ @ 22.02.18, 15:46)
І, якщо в договорі контрагента буде прописаний потрібний тип ціни, то воно все гарно підставиться в рахунок.
Когда мы переходили с 7ки мы редактировали каждого контрагента и добавляли им эти договора. (По сей день еще не все контрагенты отредактированы) теперь спустя год нужно снова редактировать договора чтоб добавить там эту основную цену продажи. Это слишком напряжно. В редакции 1.2 Я в карточке пользователя галочку поставил, и на этом все мои проблемы закончились. Все счета выставлялись исключительно "Включая НДС" После перехода на редакцию 2.0 выяснилось что делается все вот это нажатием 150 кнопок, и редакцией всех договоров контрагентов. В связи с чем возникает вопрос. О чем думали разработчики делая вот это? Зачем лечить гланды залезая через жопу?
Vofka @ 22.02.18, 14:17
, Подскажите а если все же создать к примеру новый тип цен номеклатуры, выставить чтоб все цены бились с НДС. Можно ли потом массово у всех контрагентов поставить в договорах основную цену продажи на ту что создали ранее. Ну или просто поставить основная цена продажи. Потому как 1500 тыс договоров редактировать в ручную совсем не интересно.
Доброго времени суток 1С Предприятие 8.3 (8,3,9,2233) Конфигурация: Бухгалтерия для Украины редакция 2,0 (2,0,8,2)
Столкнулся с такой проблемой. Нужно сделать документы на Украинском языке. В печатную форму "Счет на оплату" вносил корректировку " Добавлял строку о действии счета, а так же об изменение банковских реквизитов" Вносились все изменения в русскую печатную форму, так как она у меня одна, украинскую я так и не смог найти.
Суть проблемы заключается в том, что при выборе печати документов на украинском языке, Мой добавленный и отредактированный текст не отображается. Выводится стандартный шаблон, но с примененными свойствами русскоязычной формы. Где найти украинский вариант печатной формы чтоб внести нужные правки? Спасибо
В учетной политике организации должно быть установлено что на дату документа она является плательщиком НДС.
Не совсем понял, в карточке контрагента и так стоит что он является плательщиком налога на прибыль. Но выставляя ему счет в редакции 2.0 Счета выставляются исключительно Без НДС, а НДС уже добавляется сверху. в редакции 1,2 в настройках пользователя, я каждому пользователю 1С поставил галочку " выставлять счета включая НДС" точно уже не помню. И каждый раз клацать эту галочку совсем неудобно. А если еще и забываешь, то счет автоматом выходит дороже на 20 процентов. Картинки
Доброго времени суток 1С Предприятие 8.3 (8,3,9,2233) Конфигурация: Бухгалтерия для Украины редакция 2,0 (2,0,8,2)
Суть вопроса такого, в редакции 1.2 все счета выставлялись у нас включая НДС. После перехода на редакцию 2,0 начались проблемы, каждый раз выставляя счета приходится ставить галочку, "цена включает НДС" Где в данной редакции включается принудительно выставление счетов с НДС.
Запрос.Текст = "ВЫБРАТЬ | ВложенныйЗапрос.Номенклатура, | ВЫРАЗИТЬ(ВложенныйЗапрос.Номенклатура.НаименованиеПолное КАК Строка(1000)) КАК Товар, | ВложенныйЗапрос.Номенклатура.Артикул КАК Артикул, | ВложенныйЗапрос.Номенклатура.Код КАК Код, | ВложенныйЗапрос.Количество, | ВложенныйЗапрос.ЕдиницаИзмерения КАК ЕдиницаИзмерения, | ВложенныйЗапрос.Цена, | ВложенныйЗапрос.СуммаБезСкидки, | ВложенныйЗапрос.СуммаСкидки, | ВложенныйЗапрос.Сумма, | ВложенныйЗапрос.СуммаНДС, | ВложенныйЗапрос.НомерСтроки КАК НомерСтроки, | 1 КАК ID |ИЗ | (ВЫБРАТЬ | ЗаказПокупателя.Номенклатура КАК Номенклатура, | ЗаказПокупателя.ЕдиницаИзмерения КАК ЕдиницаИзмерения, | ЗаказПокупателя.Цена КАК Цена, | СУММА(ЗаказПокупателя.Количество) КАК Количество, | СУММА(ЗаказПокупателя.СуммаБезСкидки) КАК СуммаБезСкидки, | СУММА(ЗаказПокупателя.СуммаСкидки) КАК СуммаСкидки, | СУММА(ЗаказПокупателя.Сумма) КАК Сумма, | СУММА(ЗаказПокупателя.СуммаНДС) КАК СуммаНДС, | МИНИМУМ(ЗаказПокупателя.НомерСтроки) КАК НомерСтроки | ИЗ | Документ.СчетНаОплатуПокупателю.Товары КАК ЗаказПокупателя | | ГДЕ | ЗаказПокупателя.Ссылка = &ТекущийДокумент | | СГРУППИРОВАТЬ ПО | ЗаказПокупателя.Номенклатура, | ЗаказПокупателя.ЕдиницаИзмерения, | ЗаказПокупателя.Цена, | ЗаказПокупателя.СтавкаНДС) КАК ВложенныйЗапрос | |ОБЪЕДИНИТЬ ВСЕ | |ВЫБРАТЬ | " + ЧастьЗапросаДляВыбораСодержанияУслуг + ", | " + ЧастьЗапросаДляВыбораСодержанияУслуг + ", | ЗаказПокупателя.Номенклатура.Артикул КАК Артикул, | ЗаказПокупателя.Номенклатура.Код КАК Код, | ЗаказПокупателя.Количество, | ЗаказПокупателя.Номенклатура.БазоваяЕдиницаИзмерения.Наименование, | ЗаказПокупателя.Цена, | ЗаказПокупателя.СуммаБезСкидки, | ЗаказПокупателя.СуммаСкидки, | ЗаказПокупателя.Сумма, | ЗаказПокупателя.СуммаНДС, | ЗаказПокупателя.НомерСтроки, | 2 |ИЗ | Документ.СчетНаОплатуПокупателю.Услуги КАК ЗаказПокупателя | |ГДЕ | ЗаказПокупателя.Ссылка = &ТекущийДокумент | |УПОРЯДОЧИТЬ ПО | ID, | НомерСтроки";
ЗапросТовары = Запрос.Выполнить().Выгрузить();
Запрос = Новый Запрос; Запрос.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект); Запрос.Текст = "ВЫБРАТЬ | ВложенныйЗапрос.Номенклатура, | ВЫРАЗИТЬ(ВложенныйЗапрос.Номенклатура.НаименованиеПолное КАК Строка(1000)) КАК Товар, | ВложенныйЗапрос.Номенклатура.Артикул КАК Артикул, | ВложенныйЗапрос.Номенклатура.Код КАК Код, | ВложенныйЗапрос.Количество, | ВложенныйЗапрос.ЕдиницаИзмерения, | ВложенныйЗапрос.Цена, | ВложенныйЗапрос.Сумма, | ВложенныйЗапрос.НомерСтроки КАК НомерСтроки |ИЗ | (ВЫБРАТЬ | ЗаказПокупателя.Номенклатура КАК Номенклатура, | ЗаказПокупателя.Номенклатура.БазоваяЕдиницаИзмерения.Наименование КАК ЕдиницаИзмерения, | ЗаказПокупателя.Цена КАК Цена, | СУММА(ЗаказПокупателя.Количество) КАК Количество, | СУММА(ЗаказПокупателя.Сумма) КАК Сумма, | МИНИМУМ(ЗаказПокупателя.НомерСтроки) КАК НомерСтроки | ИЗ | Документ.СчетНаОплатуПокупателю.ВозвратнаяТара КАК ЗаказПокупателя | | ГДЕ | ЗаказПокупателя.Ссылка = &ТекущийДокумент | | СГРУППИРОВАТЬ ПО | ЗаказПокупателя.Номенклатура, | ЗаказПокупателя.Цена) КАК ВложенныйЗапрос | |УПОРЯДОЧИТЬ ПО | НомерСтроки"; ЗапросТара = Запрос.Выполнить().Выгрузить();
Макет = ПолучитьМакет("СчетЗаказ");
// печать производится на языке, указанном в настройках пользователя КодЯзыкаПечать = Локализация.ПолучитьЯзыкФормированияПечатныхФорм(УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "РежимФормированияПечатныхФорм")); Макет.КодЯзыкаМакета = КодЯзыкаПечать;
Если Тип = "Счет" Тогда ОбластьМакета = Макет.ПолучитьОбласть("ЗаголовокСчета"); ОбластьМакета.Параметры.НазваниеОрганизации = СведенияОПоставщике.ПолноеНаименование; ОбластьМакета.Параметры.ЕДРПОУОрганизации = УправлениеКонтактнойИнформацией.ПолучитьКодОрганизации(СведенияОПоставщике); Если ТипЗнч(СтруктурнаяЕдиница) = Тип("СправочникСсылка.БанковскиеСчета") Тогда Банк = СтруктурнаяЕдиница.Банк; МФО = Банк.Код; НомерСчета = СтруктурнаяЕдиница.НомерСчета; Иначе // покажем банковские реквизиты основного счета организации Банк = СведенияОПоставщике.Банк; МФО = СведенияОПоставщике.МФО; НомерСчета = СведенияОПоставщике.НомерСчета; КонецЕсли;
Если НЕ Шапка.ВидДоговораКонтрагента = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером И НЕ Шапка.ВалютаДокумента <> СсылкаНаОбъект.мВалютаРегламентированногоУчета Тогда ТабДокумент.Вывести(ОбластьМакета); КонецЕсли; КонецЕсли;
ОбластьМакета = Макет.ПолучитьОбласть("Заголовок"); Если Шапка.ВидДоговораКонтрагента = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером Тогда ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, НСтр("ru='Список товаров на комиссию';uk='Список товарів на комісію'",КодЯзыкаПечать),КодЯзыкаПечать); Иначе ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, НСтр("ru='Счет на оплату';uk='Рахунок на оплату'",КодЯзыкаПечать),КодЯзыкаПечать); КонецЕсли;
ТабДокумент.Вывести(ОбластьМакета);
ОбластьМакета = Макет.ПолучитьОбласть("Поставщик"); ОбластьМакета.Параметры.Заполнить(Шапка); ОбластьМакета.Параметры.ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "ПолноеНаименование,",,КодЯзыкаПечать); Если Тип = "Счет" Тогда ОбластьМакета.Параметры.РеквизитыПоставщика = НСтр("ru='Т/с ';uk='П/р '",КодЯзыкаПечать) + НомерСчета + НСтр("ru=', Банк ';uk=', Банк '",КодЯзыкаПечать) + Банк + НСтр("ru=', МФО ';uk=', МФО '",КодЯзыкаПечать) + МФО + Символы.ПС + ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "ЮридическийАдрес,Телефоны,/,КодПоЕДРПОУ,КодПоДРФО,ИНН,НомерСвидетельства,/,ИнформацияОСтатусеПлательщикаНалогов,",,КодЯзыкаПечать); КонецЕсли; ТабДокумент.Вывести(ОбластьМакета);
// Выводим дополнительно информацию о договоре и сделке СписокДополнительныхПараметров = "ДоговорНаименованиеДляПечати,"; МассивСтруктурСтрок = ФормированиеПечатныхФорм.ДополнительнаяИнформация(Шапка,СписокДополнительныхПараметров,КодЯзыкаПечать); ОбластьМакета = Макет.ПолучитьОбласть("ДопИнформация"); Для каждого СтруктураСтроки Из МассивСтруктурСтрок Цикл ОбластьМакета.Параметры.Заполнить(СтруктураСтроки); ТабДокумент.Вывести(ОбластьМакета); КонецЦикла;
// Вывести табличную часть ОбластьИтого = "Итого";
ТабДокумент.Вывести(ОбластьНомера); Если ВыводитьКоды Тогда ОбластьКодов.Параметры.ИмяКолонкиКодов = Колонка; ТабДокумент.Присоединить(ОбластьКодов); КонецЕсли;
Суффикс = ""; Если Шапка.УчитыватьНДС Тогда Если Шапка.СуммаВключаетНДС Тогда Суффикс = Суффикс + НСтр("ru=' с ';uk=' з '",КодЯзыкаПечать); Иначе Суффикс = Суффикс + НСтр("ru=' без ';uk=' без '",КодЯзыкаПечать); КонецЕсли; Суффикс = Суффикс + НСтр("ru='НДС';uk='ПДВ'",КодЯзыкаПечать); КонецЕсли; ОбластьДанных.Параметры.Цена = НСтр("ru='Цена';uk='Ціна'",КодЯзыкаПечать) + Суффикс; ТабДокумент.Присоединить(ОбластьДанных); Если ЕстьСкидки Тогда ТабДокумент.Присоединить(ОбластьСкидка); КонецЕсли;
ОбластьКолонкаТовар = Макет.Область("Товар"); Если Не ВыводитьКоды Тогда ОбластьКолонкаТовар.ШиринаКолонки = ОбластьКолонкаТовар.ШиринаКолонки + Макет.Область("КолонкаКодов").ШиринаКолонки; КонецЕсли; Если НЕ ЕстьСкидки Тогда ОбластьКолонкаТовар.ШиринаКолонки = ОбластьКолонкаТовар.ШиринаКолонки + Макет.Область("СуммаБезСкидки").ШиринаКолонки + Макет.Область("СуммаСкидки").ШиринаКолонки; КонецЕсли;
Для каждого ВыборкаСтрокТовары Из ЗапросТовары Цикл
Если НЕ ЗначениеЗаполнено(ВыборкаСтрокТовары.Номенклатура) Тогда Сообщить(НСтр("ru='В одной из строк не заполнено значение номенклатуры - строка при печати пропущена.';uk='В одному з рядків не заповнене значення номенклатури - рядок під час друку буде пропущений.'"), СтатусСообщения.Важное); Продолжить; КонецЕсли;
Если ВыводитьКоды Тогда Если Колонка = "Артикул" Тогда ОбластьКодов.Параметры.Артикул = ВыборкаСтрокТовары.Артикул; Иначе ОбластьКодов.Параметры.Артикул = ВыборкаСтрокТовары.Код; КонецЕсли; ТабДокумент.Присоединить(ОбластьКодов); КонецЕсли;
ТабДокумент.Вывести(ОбластьНомера); Если ВыводитьКоды Тогда ТабДокумент.Присоединить(ОбластьКодов); КонецЕсли; ТабДокумент.Присоединить(ОбластьДанных);
Если ЕстьСкидки Тогда ОбластьСкидки.Параметры.ВсегоСуммаБезСкидки = ОбщегоНазначения.ФорматСумм(СуммаБезСкидки); ОбластьСкидки.Параметры.ВсегоСуммаСкидки = ОбщегоНазначения.ФорматСумм(СуммаСкидки); ТабДокумент.Присоединить(ОбластьСкидки); КонецЕсли;
// Вывести ИтогоНДС Если Шапка.УчитыватьНДС Тогда // НДС ОбластьМакета = Макет.ПолучитьОбласть("ИтогоНДС"); ОбластьМакета.Параметры.ВсегоНДС = ОбщегоНазначения.ФорматСумм(СуммаНДС,,""""); ОбластьМакета.Параметры.НДС = ?(Шапка.СуммаВключаетНДС, НСтр("ru='В том числе НДС:';uk='У тому числі ПДВ:'",КодЯзыкаПечать), НСтр("ru='Сумма НДС:';uk='Сума ПДВ:'",КодЯзыкаПечать)); ТабДокумент.Вывести(ОбластьМакета);
// всего с НДС (если сумма не включает НДС) Если НЕ Шапка.СуммаВключаетНДС Тогда ОбластьМакета = Макет.ПолучитьОбласть("ИтогоНДС"); ОбластьМакета.Параметры.ВсегоНДС = ОбщегоНазначения.ФорматСумм(Сумма + СуммаНДС); ОбластьМакета.Параметры.НДС = НСтр("ru='Всего с НДС:';uk='Всього із ПДВ:'",КодЯзыкаПечать); ТабДокумент.Вывести(ОбластьМакета); КонецЕсли; КонецЕсли;
// выведем таблицу с возвратной тарой Если ЗапросТара.Количество() > 0 Тогда // сделаем отступ от основной таблицы ОбластьПробел = Макет.ПолучитьОбласть("Пробел"); ТабДокумент.Вывести(ОбластьПробел);
ТабДокумент.Вывести(ОбластьНомера); Если ВыводитьКоды Тогда ОбластьКодов.Параметры.ИмяКолонкиКодов = Колонка; ТабДокумент.Присоединить(ОбластьКодов); КонецЕсли; ТабДокумент.Присоединить(ОбластьДанных);
ОбластьКолонкаТара = Макет.Область("Тара"); Если Не ВыводитьКоды Тогда ОбластьКолонкаТара.ШиринаКолонки = ОбластьКолонкаТара.ШиринаКолонки + Макет.Область("КолонкаКодовТара").ШиринаКолонки; КонецЕсли;
Если НЕ ЗначениеЗаполнено(ВыборкаСтрокТара.Номенклатура) Тогда Сообщить(НСтр("ru='В одной из строк не заполнено значение тары - строка при печати пропущена.';uk='В одному з рядків не заповнене значення тари - рядок під час друку буде пропущений.'"), СтатусСообщения.Важное); Продолжить; КонецЕсли;
Если ВыводитьКоды Тогда Если Колонка = "Артикул" Тогда ОбластьКодов.Параметры.Артикул = ВыборкаСтрокТара.Артикул; Иначе ОбластьКодов.Параметры.Артикул = ВыборкаСтрокТара.Код; КонецЕсли; ТабДокумент.Присоединить(ОбластьКодов); КонецЕсли;
Доброго времени суток. Нужна помощь. в подключении внешней печатной формы. При открытии внешней обработки в 1с через Файл-->открыть, и выбрав любой счет, все нормально открывается и отображается. Но уже подключив внешнюю обработку через "Сервис" "дополнительные отчеты и обработки" Открыв любой счет и выбрав печать уже через эту обработку выдает ошибку:
Цитата
Не удалось сформировать внешнюю печатную форму! Поле объекта не обнаружено (мВалютаРегламентированногоУчета)
Где у меня может быть ошибка? В конфигурации ошибки не вылазят.
1с Предприятие 8,3 (8,3,9,2233) Конфигурация: Бухгалтерия для Украины, редакция 1,2(1,2,42,1)
Запрос.Текст = "ВЫБРАТЬ | ВложенныйЗапрос.Номенклатура, | ВЫРАЗИТЬ(ВложенныйЗапрос.Номенклатура.НаименованиеПолное КАК Строка(1000)) КАК Товар, | ВложенныйЗапрос.Номенклатура.Артикул КАК Артикул, | ВложенныйЗапрос.Номенклатура.Код КАК Код, | ВложенныйЗапрос.Количество, | ВложенныйЗапрос.ЕдиницаИзмерения КАК ЕдиницаИзмерения, | ВложенныйЗапрос.Цена, | ВложенныйЗапрос.СуммаБезСкидки, | ВложенныйЗапрос.СуммаСкидки, | ВложенныйЗапрос.Сумма, | ВложенныйЗапрос.СуммаНДС, | ВложенныйЗапрос.НомерСтроки КАК НомерСтроки, | 1 КАК ID |ИЗ | (ВЫБРАТЬ | ЗаказПокупателя.Номенклатура КАК Номенклатура, | ЗаказПокупателя.ЕдиницаИзмерения КАК ЕдиницаИзмерения, | ЗаказПокупателя.Цена КАК Цена, | СУММА(ЗаказПокупателя.Количество) КАК Количество, | СУММА(ЗаказПокупателя.СуммаБезСкидки) КАК СуммаБезСкидки, | СУММА(ЗаказПокупателя.СуммаСкидки) КАК СуммаСкидки, | СУММА(ЗаказПокупателя.Сумма) КАК Сумма, | СУММА(ЗаказПокупателя.СуммаНДС) КАК СуммаНДС, | МИНИМУМ(ЗаказПокупателя.НомерСтроки) КАК НомерСтроки | ИЗ | Документ.СчетНаОплатуПокупателю.Товары КАК ЗаказПокупателя | | ГДЕ | ЗаказПокупателя.Ссылка = &ТекущийДокумент | | СГРУППИРОВАТЬ ПО | ЗаказПокупателя.Номенклатура, | ЗаказПокупателя.ЕдиницаИзмерения, | ЗаказПокупателя.Цена, | ЗаказПокупателя.СтавкаНДС) КАК ВложенныйЗапрос | |ОБЪЕДИНИТЬ ВСЕ | |ВЫБРАТЬ | " + ЧастьЗапросаДляВыбораСодержанияУслуг + ", | " + ЧастьЗапросаДляВыбораСодержанияУслуг + ", | ЗаказПокупателя.Номенклатура.Артикул КАК Артикул, | ЗаказПокупателя.Номенклатура.Код КАК Код, | ЗаказПокупателя.Количество, | ЗаказПокупателя.Номенклатура.БазоваяЕдиницаИзмерения.Наименование, | ЗаказПокупателя.Цена, | ЗаказПокупателя.СуммаБезСкидки, | ЗаказПокупателя.СуммаСкидки, | ЗаказПокупателя.Сумма, | ЗаказПокупателя.СуммаНДС, | ЗаказПокупателя.НомерСтроки, | 2 |ИЗ | Документ.СчетНаОплатуПокупателю.Услуги КАК ЗаказПокупателя | |ГДЕ | ЗаказПокупателя.Ссылка = &ТекущийДокумент | |УПОРЯДОЧИТЬ ПО | ID, | НомерСтроки";
ЗапросТовары = Запрос.Выполнить().Выгрузить();
Запрос = Новый Запрос; Запрос.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект); Запрос.Текст = "ВЫБРАТЬ | ВложенныйЗапрос.Номенклатура, | ВЫРАЗИТЬ(ВложенныйЗапрос.Номенклатура.НаименованиеПолное КАК Строка(1000)) КАК Товар, | ВложенныйЗапрос.Номенклатура.Артикул КАК Артикул, | ВложенныйЗапрос.Номенклатура.Код КАК Код, | ВложенныйЗапрос.Количество, | ВложенныйЗапрос.ЕдиницаИзмерения, | ВложенныйЗапрос.Цена, | ВложенныйЗапрос.Сумма, | ВложенныйЗапрос.НомерСтроки КАК НомерСтроки |ИЗ | (ВЫБРАТЬ | ЗаказПокупателя.Номенклатура КАК Номенклатура, | ЗаказПокупателя.Номенклатура.БазоваяЕдиницаИзмерения.Наименование КАК ЕдиницаИзмерения, | ЗаказПокупателя.Цена КАК Цена, | СУММА(ЗаказПокупателя.Количество) КАК Количество, | СУММА(ЗаказПокупателя.Сумма) КАК Сумма, | МИНИМУМ(ЗаказПокупателя.НомерСтроки) КАК НомерСтроки | ИЗ | Документ.СчетНаОплатуПокупателю.ВозвратнаяТара КАК ЗаказПокупателя | | ГДЕ | ЗаказПокупателя.Ссылка = &ТекущийДокумент | | СГРУППИРОВАТЬ ПО | ЗаказПокупателя.Номенклатура, | ЗаказПокупателя.Цена) КАК ВложенныйЗапрос | |УПОРЯДОЧИТЬ ПО | НомерСтроки"; ЗапросТара = Запрос.Выполнить().Выгрузить();
Макет = ПолучитьМакет("СчетЗаказ");
// печать производится на языке, указанном в настройках пользователя КодЯзыкаПечать = Локализация.ПолучитьЯзыкФормированияПечатныхФорм(УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "РежимФормированияПечатныхФорм")); Макет.КодЯзыкаМакета = КодЯзыкаПечать;
Если Тип = "Счет" Тогда ОбластьМакета = Макет.ПолучитьОбласть("ЗаголовокСчета"); ОбластьМакета.Параметры.НазваниеОрганизации = СведенияОПоставщике.ПолноеНаименование; ОбластьМакета.Параметры.ЕДРПОУОрганизации = УправлениеКонтактнойИнформацией.ПолучитьКодОрганизации(СведенияОПоставщике); Если ТипЗнч(СтруктурнаяЕдиница) = Тип("СправочникСсылка.БанковскиеСчета") Тогда Банк = СтруктурнаяЕдиница.Банк; МФО = Банк.Код; НомерСчета = СтруктурнаяЕдиница.НомерСчета; Иначе // покажем банковские реквизиты основного счета организации Банк = СведенияОПоставщике.Банк; МФО = СведенияОПоставщике.МФО; НомерСчета = СведенияОПоставщике.НомерСчета; КонецЕсли;
Если НЕ Шапка.ВидДоговораКонтрагента = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером И НЕ Шапка.ВалютаДокумента <> мВалютаРегламентированногоУчета Тогда ТабДокумент.Вывести(ОбластьМакета); КонецЕсли; КонецЕсли;
ОбластьМакета = Макет.ПолучитьОбласть("Заголовок"); Если Шапка.ВидДоговораКонтрагента = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером Тогда ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, НСтр("ru='Список товаров на комиссию';uk='Список товарів на комісію'",КодЯзыкаПечать),КодЯзыкаПечать); Иначе ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, НСтр("ru='Счет на оплату';uk='Рахунок на оплату'",КодЯзыкаПечать),КодЯзыкаПечать); КонецЕсли;
ТабДокумент.Вывести(ОбластьМакета);
ОбластьМакета = Макет.ПолучитьОбласть("Поставщик"); ОбластьМакета.Параметры.Заполнить(Шапка); ОбластьМакета.Параметры.ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "ПолноеНаименование,",,КодЯзыкаПечать); Если Тип = "Счет" Тогда ОбластьМакета.Параметры.РеквизитыПоставщика = НСтр("ru='Т/с ';uk='П/р '",КодЯзыкаПечать) + НомерСчета + НСтр("ru=', Банк ';uk=', Банк '",КодЯзыкаПечать) + Банк + НСтр("ru=', МФО ';uk=', МФО '",КодЯзыкаПечать) + МФО + Символы.ПС + ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "ЮридическийАдрес,Телефоны,/,КодПоЕДРПОУ,КодПоДРФО,ИНН,НомерСвидетельства,/,ИнформацияОСтатусеПлательщикаНалогов,",,КодЯзыкаПечать); КонецЕсли; ТабДокумент.Вывести(ОбластьМакета);
// Выводим дополнительно информацию о договоре и сделке СписокДополнительныхПараметров = "ДоговорНаименованиеДляПечати,"; МассивСтруктурСтрок = ФормированиеПечатныхФорм.ДополнительнаяИнформация(Шапка,СписокДополнительныхПараметров,КодЯзыкаПечать); ОбластьМакета = Макет.ПолучитьОбласть("ДопИнформация"); Для каждого СтруктураСтроки Из МассивСтруктурСтрок Цикл ОбластьМакета.Параметры.Заполнить(СтруктураСтроки); ТабДокумент.Вывести(ОбластьМакета); КонецЦикла;
// Вывести табличную часть ОбластьИтого = "Итого";
ТабДокумент.Вывести(ОбластьНомера); Если ВыводитьКоды Тогда ОбластьКодов.Параметры.ИмяКолонкиКодов = Колонка; ТабДокумент.Присоединить(ОбластьКодов); КонецЕсли;
Суффикс = ""; Если Шапка.УчитыватьНДС Тогда Если Шапка.СуммаВключаетНДС Тогда Суффикс = Суффикс + НСтр("ru=' с ';uk=' з '",КодЯзыкаПечать); Иначе Суффикс = Суффикс + НСтр("ru=' без ';uk=' без '",КодЯзыкаПечать); КонецЕсли; Суффикс = Суффикс + НСтр("ru='НДС';uk='ПДВ'",КодЯзыкаПечать); КонецЕсли; ОбластьДанных.Параметры.Цена = НСтр("ru='Цена';uk='Ціна'",КодЯзыкаПечать) + Суффикс; ТабДокумент.Присоединить(ОбластьДанных); Если ЕстьСкидки Тогда ТабДокумент.Присоединить(ОбластьСкидка); КонецЕсли;
ОбластьКолонкаТовар = Макет.Область("Товар"); Если Не ВыводитьКоды Тогда ОбластьКолонкаТовар.ШиринаКолонки = ОбластьКолонкаТовар.ШиринаКолонки + Макет.Область("КолонкаКодов").ШиринаКолонки; КонецЕсли; Если НЕ ЕстьСкидки Тогда ОбластьКолонкаТовар.ШиринаКолонки = ОбластьКолонкаТовар.ШиринаКолонки + Макет.Область("СуммаБезСкидки").ШиринаКолонки + Макет.Область("СуммаСкидки").ШиринаКолонки; КонецЕсли;
Для каждого ВыборкаСтрокТовары Из ЗапросТовары Цикл
Если НЕ ЗначениеЗаполнено(ВыборкаСтрокТовары.Номенклатура) Тогда Сообщить(НСтр("ru='В одной из строк не заполнено значение номенклатуры - строка при печати пропущена.';uk='В одному з рядків не заповнене значення номенклатури - рядок під час друку буде пропущений.'"), СтатусСообщения.Важное); Продолжить; КонецЕсли;
Если ВыводитьКоды Тогда Если Колонка = "Артикул" Тогда ОбластьКодов.Параметры.Артикул = ВыборкаСтрокТовары.Артикул; Иначе ОбластьКодов.Параметры.Артикул = ВыборкаСтрокТовары.Код; КонецЕсли; ТабДокумент.Присоединить(ОбластьКодов); КонецЕсли;
ТабДокумент.Вывести(ОбластьНомера); Если ВыводитьКоды Тогда ТабДокумент.Присоединить(ОбластьКодов); КонецЕсли; ТабДокумент.Присоединить(ОбластьДанных);
Если ЕстьСкидки Тогда ОбластьСкидки.Параметры.ВсегоСуммаБезСкидки = ОбщегоНазначения.ФорматСумм(СуммаБезСкидки); ОбластьСкидки.Параметры.ВсегоСуммаСкидки = ОбщегоНазначения.ФорматСумм(СуммаСкидки); ТабДокумент.Присоединить(ОбластьСкидки); КонецЕсли;
// Вывести ИтогоНДС Если Шапка.УчитыватьНДС Тогда // НДС ОбластьМакета = Макет.ПолучитьОбласть("ИтогоНДС"); ОбластьМакета.Параметры.ВсегоНДС = ОбщегоНазначения.ФорматСумм(СуммаНДС,,""""); ОбластьМакета.Параметры.НДС = ?(Шапка.СуммаВключаетНДС, НСтр("ru='В том числе НДС:';uk='У тому числі ПДВ:'",КодЯзыкаПечать), НСтр("ru='Сумма НДС:';uk='Сума ПДВ:'",КодЯзыкаПечать)); ТабДокумент.Вывести(ОбластьМакета);
// всего с НДС (если сумма не включает НДС) Если НЕ Шапка.СуммаВключаетНДС Тогда ОбластьМакета = Макет.ПолучитьОбласть("ИтогоНДС"); ОбластьМакета.Параметры.ВсегоНДС = ОбщегоНазначения.ФорматСумм(Сумма + СуммаНДС); ОбластьМакета.Параметры.НДС = НСтр("ru='Всего с НДС:';uk='Всього із ПДВ:'",КодЯзыкаПечать); ТабДокумент.Вывести(ОбластьМакета); КонецЕсли; КонецЕсли;
// выведем таблицу с возвратной тарой Если ЗапросТара.Количество() > 0 Тогда // сделаем отступ от основной таблицы ОбластьПробел = Макет.ПолучитьОбласть("Пробел"); ТабДокумент.Вывести(ОбластьПробел);
ТабДокумент.Вывести(ОбластьНомера); Если ВыводитьКоды Тогда ОбластьКодов.Параметры.ИмяКолонкиКодов = Колонка; ТабДокумент.Присоединить(ОбластьКодов); КонецЕсли; ТабДокумент.Присоединить(ОбластьДанных);
ОбластьКолонкаТара = Макет.Область("Тара"); Если Не ВыводитьКоды Тогда ОбластьКолонкаТара.ШиринаКолонки = ОбластьКолонкаТара.ШиринаКолонки + Макет.Область("КолонкаКодовТара").ШиринаКолонки; КонецЕсли;
Если НЕ ЗначениеЗаполнено(ВыборкаСтрокТара.Номенклатура) Тогда Сообщить(НСтр("ru='В одной из строк не заполнено значение тары - строка при печати пропущена.';uk='В одному з рядків не заповнене значення тари - рядок під час друку буде пропущений.'"), СтатусСообщения.Важное); Продолжить; КонецЕсли;
Если ВыводитьКоды Тогда Если Колонка = "Артикул" Тогда ОбластьКодов.Параметры.Артикул = ВыборкаСтрокТара.Артикул; Иначе ОбластьКодов.Параметры.Артикул = ВыборкаСтрокТара.Код; КонецЕсли; ТабДокумент.Присоединить(ОбластьКодов); КонецЕсли;
Здравствуйте, Извиняюсь заранее если не в той теме пишу. В поиске ничего не нашел. Не исключаю что не правильно писал. Суть вопроса состоит в том что имеется 1с предприятие 8.2 И очень хотелось бы при выставлении счета (Особенно при отправке на почту) Чтоб в счет добавлялась печать предприятия и подпись. Ткните пожалуйста носом где копать. Или это только через специалистов ?
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!
Открытая тема (есть новые ответы)
Опрос (есть новые голоса)
Открытая тема (нет новых ответов)
Опрос (нет новых голосов)
Горячая тема (есть новые ответы)
Закрытая тема
Горячая тема (нет новых ответов)
Тема перемещена