Авто-формирование счета-фактуры при проведении реализации для УТ 11

29.08.19

Кому надоело нажимать "Сформировать счет-фактуру", посвящается.

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование	Скачано	Купить файл	По подписке PRO
Авто-формирование счет-фактуры при проведении реализации для УТ 11: .cfe 7,22Kb 89	89	1 850 руб. Купить	1 SM Скачать

Достаточно провести реализацию из формы документа. Счет-фактура формируется только если организация на ОСН для любого склада этой организации (даже склады ЕНВД).

Не будет работать при проведении из формы списка (не открывая документа) и при программном проведении.

Не забывайте пользоваться помощником продаж - тогда вам эта разработка не понадобится. Еще можно использовать форму "Документы продажи (к оформлению)". Скриншоты тоже привел.

Будет работать в УТ 11.4.5, КА 2.4.5, ERP 2.4.5.

Тестировалось на 1С:Комплексная автоматизация 2 (2.4.5.129) Платформа 8.3.13.1513.

Инструкция по установке расширений доступна по ссылке: //infostart.ru/public/1112547/

Вступайте в нашу телеграмм-группу Инфостарт

автоматическое формирование счет-фактура. реализация

+9 –

См. также

Автоматический заказ поставщику в 1С: загрузка прайсов и анализ цен

Оптовая торговля Розничная торговля Логистика, склад и ТМЦ Анализ продаж Пользователь 1С:Предприятие 7.7 1С:Предприятие 8 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Управление нашей фирмой 1.6 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Беларусь Украина Россия Казахстан Управленческий учет Платные (руб)

Автоматизация заказа поставщику через 1С. Загрузка прайсов, анализ цен, управление заказами в УТ 10.3, УТ 11, КА2, УНФ, УПП, ERP, Розница 2

34500 руб.

21.04.2017 106682 174 44

242

ЕГАИС++. Опт, производство, импорт

Оптовая торговля Розничная торговля Обмен с ГосИС Бухгалтер 1С:Предприятие 8 1С:Управление торговлей 10 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Рестораны, кафе и фаст-фуд Россия Бухгалтерский учет Управленческий учет Акцизы Платные (руб)

Автоматизация учета ЕГАИС в 1С для оптовой торговли, производства и импорта алкогольной продукции. Получение и отправка ТТН, отправка акта о постановке на баланс и акта о списании. Получение остатков. Загрузка и сопоставление номенклатуры и контрагентов. Оправка в ЕГАИС отчетов о производстве и импорте.

8970 руб.

15.12.2015 179843 1199 374

416

Переработка давальческого сырья в 1С:КА

Производство готовой продукции (работ, услуг) Бухгалтер 1С:Предприятие 8 1С:Комплексная автоматизация 2.х Россия Бухгалтерский учет Платные (руб)

Учет у переработчика теперь и в КА 2.5. без внесения изменений в конфигурацию.

18000 руб.

22.02.2019 76667 353 96

249

Расширенная форма списка Номенклатура и Корзина для 1С:УТ11, ERP и КА

Рабочее место Оптовая торговля Розничная торговля Логистика, склад и ТМЦ Ценообразование, анализ цен Бухгалтер Пользователь 1С:Предприятие 8 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Управленческий учет Платные (руб)

Расширение для работы с номенклатурой: отображение остатков, цен, изображений, аналитики по каждой позиции, подбор товаров в документы через корзину и оптимизация интерфейса.

17000 руб.

26.04.2016 668551 1391 625

675

Обмен 1С с системой ЦРПТ (Универсальная конфигурация ХамелеонЦРПТ + маркировка табака, обуви, одежды, лекарств, фото, молока, духов(парфюма), питьевой воды, велосипедов и шин)

Оптовая торговля Розничная торговля Обмен с ГосИС Программист Бухгалтер Пользователь 1С:Предприятие 8 1C:Бухгалтерия Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Россия Бухгалтерский учет Управленческий учет Платные (руб)

Решение создано для помощи разработчикам, интеграторам и другим заинтересованным лицам по настройке системы маркировки обуви, одежды, лекарств, табака, фото, молока, духов(парфюма), питьевой воды, велосипедов и шин. Задавайте вопросы по работе с ЦРПТ, GS1, ЭДО, Национальным каталогом, накоплен опыт и знания по данным темам.

24000 руб.

18.03.2019 118333 50 115

190

SALE! 15%

Из Excel в 1С "одним нажатием"

Загрузка и выгрузка в Excel Оптовая торговля Бухгалтер Пользователь 1С:Предприятие 8 1С:Бухгалтерия 2.0 1С:Бухгалтерия 3.0 1С:Управление производственным предприятием 1С:ERP Управление предприятием 2 1С:Управление холдингом 1С:Комплексная автоматизация 1.х 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 1.6 1С:Управление нашей фирмой 3.0 1С:Управление торговлей 10 1С:Управление торговлей 11 1С:Розница 2 1С:Розница 3.0 Бухгалтерский учет Управленческий учет Платные (руб)

Универсальная обработка для загрузки документов из Excel в 1С. Забудьте о ручном вводе: загружайте документы из Excel в 1С за секунды! Не требует указания параметров (номера колонок, номер первой строки таблицы и т.д.) и предварительной настройки. Просто выбираете файл эксель, документ 1С и нажимаете кнопку "Загрузить"

8000 руб.

09.11.2016 264392 1164 942

1089

SALE! 50%

Отчет "Полный анализ себестоимости выпущенной продукции" для 1С:ERP (ЕРП), 1С:КА, 1С:ERP УХ

Производство готовой продукции (работ, услуг) Учет доходов и расходов Бухгалтер Пользователь 1С:Предприятие 8 1С:ERP Управление предприятием 2 1С:Управление холдингом 1С:Комплексная автоматизация 2.х Бухгалтерский учет Управленческий учет Платные (руб)

Данный отчет показывает себестоимость выпущенной продукции с разузлованием полуфабрикатов любых уровней, входящих в ее состав, до статей затрат и материалов. Отчет работает независимо от метода оценки стоимости товаров и подходит для любых производственных компаний с многопередельным производством. Отчет можно использовать как в типовой 1С:ERP, так и в отраслевых решениях на ее базе (например, 1С:ERP Управление птицеводческим предприятием и т.д.). Отчет подходит для анализа затрат на гособоронзаказы ГОЗ.

~~84000~~ 42000 руб.

08.12.2021 33556 47 77

SALE! 50%

Отчет "Полный анализ себестоимости реализованной продукции"

Данный отчет показывает себестоимость реализованной продукции в разузлованном виде, как с выделением входящих в нее полуфабрикатов любых уровней, так и свернутый до статей затрат и материалов, видов работ. Отчет работает независимо от метода оценки стоимости товаров и подходит для любых производственных компаний с многопередельным производством. Отчет можно использовать как в типовой 1С:ERP, так и в отраслевых решениях на ее базе (например, 1С:ERP Управление птицеводческим предприятием, Молокозавод и т.д.).Отчет подходит для анализа затрат на гособоронзаказы ГОЗ.

~~84000~~ 42000 руб.

30.11.2022 28033 41 35

Отзывы

9. R_o_n_n_y 86 27.12.24 17:31 Сейчас в теме

Сейчас (если нужно прицепить в режиме "НаСервере" например к групповому проведению Реализаций) можно так:

Процедура Расш1_ОбработкаПроведения(Объект, Отказ, РежимПроведения)
	
	Если Объект.НалогообложениеНДС = Перечисления.ТипыНалогообложенияНДС.ПродажаНеОблагаетсяНДС Тогда
		Возврат;
	КонецЕсли;
	
	ЮрФизЛицо = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Объект.Контрагент, "ЮрФизЛицо");
	Если ЮрФизЛицо = Перечисления.ЮрФизЛицо.ФизЛицо Тогда
		Возврат;
	КонецЕсли;	

	ИмяДокумента = УчетНДСУП.ПолноеИмяСчетФактурыВыданный();
	Если ЗначениеЗаполнено(ИмяДокумента) Тогда
			
		МенеджерДокумента = ОбщегоНазначения.МенеджерОбъектаПоПолномуИмени(ИмяДокумента);
		ТипДокумента = Тип(СтрЗаменить(ИмяДокумента, "Документ", "ДокументСсылка"));
			
		ПараметрыРегистрации = УчетНДСУПКлиентСервер.ПараметрыРегистрацииСчетовФактурВыданных();
		ПараметрыРегистрации.Ссылка = Объект.Ссылка;
		ПараметрыРегистрации.Дата = Объект.Дата;
		ПараметрыРегистрации.Организация = Объект.Организация;
		ПараметрыРегистрации.Контрагент = Объект.Контрагент;
		ПараметрыРегистрации.НалогообложениеНДС = Объект.НалогообложениеНДС;
		ПараметрыРегистрации.РеализацияТоваров = Истина;
		ПараметрыРегистрации.РеализацияРаботУслуг = Истина;

		СчетаФактурыВыданныеНаОсновании = УчетНДСУП.СчетаФактурыВыданныеНаОсновании(ПараметрыРегистрации);
		Если Не СчетаФактурыВыданныеНаОсновании.ЕстьПравоИнтерактивногоДобавленияДокументаПоОснованию 
			Или Не СчетаФактурыВыданныеНаОсновании.ДокументПоОснованиюТребуется Тогда
			Возврат;
		КонецЕсли;       
		Если СчетаФактурыВыданныеНаОсновании.СчетаФактуры.Количество() > 0 Тогда
			Возврат;
		КонецЕсли;
		
		ДокументОбъект = МенеджерДокумента.СоздатьДокумент();
		ДокументОбъект.Дата = Объект.Дата;

		Результат = УчетНДСУП.ЗаполнитьСчетФактураВыданный(ДокументОбъект, ПараметрыРегистрации);
		
	КонецЕсли;
	
КонецПроцедуры

Показать

Ответить

Остальные комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. RustIG 1931 16.11.18 23:07 Сейчас в теме

(0) прикольно.а через расширение нельзя сделать?

2. kwazi 771 19.11.18 11:07 Сейчас в теме

дак...:№"№%:;%:№?*?:№"

3. EVKash 16 09.12.19 10:09 Сейчас в теме

Расширение не качал. Считаю, что стартмани не стоит 15 строк кода...

&НаКлиенте
Процедура Расш1_ПослеЗаписиПосле(ПараметрыЗаписи)
	
	Если Объект.Проведен И НЕ ЭтаФорма.Модифицированность 
			И Объект.НалогообложениеНДС = ПредопределенноеЗначение("Перечисление.ТипыНалогообложенияНДС.ПродажаОблагаетсяНДС")
			И УчетНДСУПСлужебныйВызовСервера.СчетФактураВыданныйПоОснованию(Объект.Ссылка, Объект.Организация) = Неопределено Тогда
		
		ПараметрыРегистрации = ПараметрыРегистрацииСчетовФактурВыданныхСервер(Объект);
		
		ПараметрыОткрытия = Новый Структура;
		ПараметрыОткрытия.Вставить("ДокументОснование", Объект.Ссылка);
		ПараметрыОткрытия.Вставить("Организация",       ПараметрыРегистрации.Организация);
		ПараметрыОткрытия.Вставить("Контрагент",        ПараметрыРегистрации.Контрагент);
		ПараметрыОткрытия.Вставить("Исправление",       ПараметрыРегистрации.ИсправлениеОшибок);
		ПараметрыОткрытия.Вставить("Корректировочный",  ПараметрыРегистрации.КорректировкаПоСогласованиюСторон);
		
		ПараметрыФормы = Новый Структура("Основание, ДокументОснование",ПараметрыОткрытия, Объект.Ссылка);
		ФормаСФ = ОткрытьФорму("Документ.СчетФактураВыданный.ФормаОбъекта", ПараметрыФормы, ЭтаФорма);
		ФормаСФ.Объект.Дата = ЭтаФорма.Объект.Дата;
		
		ОбщегоНазначенияУТКлиент.ПровестиИЗакрыть(ФормаСФ);
		
	КонецЕсли;

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

Показать

Ответить

11. Гость 13.08.25 14:28

(3) Актуализировал чутка

&НаКлиенте
&После("ПослеЗаписи")
Процедура BC_ПослеЗаписи(ПараметрыЗаписи)
	Если Объект.Проведен И НЕ ЭтаФорма.Модифицированность 
		И Объект.НалогообложениеНДС = ПредопределенноеЗначение("Перечисление.ТипыНалогообложенияНДС.ПродажаОблагаетсяНДС")
		И УчетНДСРФВызовСервера.СчетФактураВыданныйПоОснованию(Объект.Ссылка, Объект.Организация) = Неопределено Тогда
		
		ПараметрыРегистрации = ПараметрыРегистрацииСчетовФактурВыданныхСервер(Объект);
		
		ПараметрыОткрытия = Новый Структура;
		ПараметрыОткрытия.Вставить("ДокументОснование", Объект.Ссылка);
		ПараметрыОткрытия.Вставить("Организация",       ПараметрыРегистрации.Организация);
		ПараметрыОткрытия.Вставить("Контрагент",        ПараметрыРегистрации.Контрагент);
		ПараметрыОткрытия.Вставить("Исправление",       ПараметрыРегистрации.ИсправлениеОшибок);
		ПараметрыОткрытия.Вставить("Корректировочный",  ПараметрыРегистрации.КорректировкаПоСогласованиюСторон);
		
		ПараметрыФормы = Новый Структура("Основание, ДокументОснование",ПараметрыОткрытия, Объект.Ссылка);
		//       ФормаСФ = ОткрытьФорму("Документ.СчетФактураВыданный.ФормаОбъекта", ПараметрыФормы, ЭтаФорма);
		ФормаСФ = ПолучитьФорму("Документ.СчетФактураВыданный.ФормаОбъекта",ПараметрыФормы, ЭтаФорма);
		ФормаСФ.Объект.Дата = ЭтаФорма.Объект.Дата;
		
		ОбщегоНазначенияУТКлиент.Провести(ФормаСФ);
	КонецЕсли;
КонецПроцедуры

Показать

4. Technician666 25.03.22 15:22 Сейчас в теме

КА 2.5 получаю ошибку
{Документ.РеализацияТоваровУслуг.Форма.ФормаДокумента.Форма(8436,2)}: Процедура или функция с указанным именем не определена (ОбновитьТекстСчетаФактуры)
<<?>>ОбновитьТекстСчетаФактуры(); (Проверка: Сервер)

5. vlasoroman 13.04.22 20:22 Сейчас в теме

КА 2.4 получаю такую ошибку

СА_АвтоФормированиеСчетФактуры (1.01): Критичная: Значение контролируемого свойства РежимСовместимости у объекта не совпадает со значением в расширяемой конфигурации

6. Igor_stv 17.04.22 08:24 Сейчас в теме

Ошибка - 17.04.2022 8:21:48
СА_АвтоФормированиеСчетФактуры (1.01): Критичная: Значение контролируемого свойства РежимСовместимости у объекта не совпадает со значением в расширяемой конфигурации

7. pentanom 31 10.07.23 16:28 Сейчас в теме

На УТ 11.5.12.87 работать будет?

8. kwazi 771 10.07.23 16:39 Сейчас в теме

(7) не тестировал. ну там кода почти ничего. подправить легко.

9. R_o_n_n_y 86 27.12.24 17:31 Сейчас в теме

Сейчас (если нужно прицепить в режиме "НаСервере" например к групповому проведению Реализаций) можно так:

Процедура Расш1_ОбработкаПроведения(Объект, Отказ, РежимПроведения)
	
	Если Объект.НалогообложениеНДС = Перечисления.ТипыНалогообложенияНДС.ПродажаНеОблагаетсяНДС Тогда
		Возврат;
	КонецЕсли;
	
	ЮрФизЛицо = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Объект.Контрагент, "ЮрФизЛицо");
	Если ЮрФизЛицо = Перечисления.ЮрФизЛицо.ФизЛицо Тогда
		Возврат;
	КонецЕсли;	

	ИмяДокумента = УчетНДСУП.ПолноеИмяСчетФактурыВыданный();
	Если ЗначениеЗаполнено(ИмяДокумента) Тогда
			
		МенеджерДокумента = ОбщегоНазначения.МенеджерОбъектаПоПолномуИмени(ИмяДокумента);
		ТипДокумента = Тип(СтрЗаменить(ИмяДокумента, "Документ", "ДокументСсылка"));
			
		ПараметрыРегистрации = УчетНДСУПКлиентСервер.ПараметрыРегистрацииСчетовФактурВыданных();
		ПараметрыРегистрации.Ссылка = Объект.Ссылка;
		ПараметрыРегистрации.Дата = Объект.Дата;
		ПараметрыРегистрации.Организация = Объект.Организация;
		ПараметрыРегистрации.Контрагент = Объект.Контрагент;
		ПараметрыРегистрации.НалогообложениеНДС = Объект.НалогообложениеНДС;
		ПараметрыРегистрации.РеализацияТоваров = Истина;
		ПараметрыРегистрации.РеализацияРаботУслуг = Истина;

		СчетаФактурыВыданныеНаОсновании = УчетНДСУП.СчетаФактурыВыданныеНаОсновании(ПараметрыРегистрации);
		Если Не СчетаФактурыВыданныеНаОсновании.ЕстьПравоИнтерактивногоДобавленияДокументаПоОснованию 
			Или Не СчетаФактурыВыданныеНаОсновании.ДокументПоОснованиюТребуется Тогда
			Возврат;
		КонецЕсли;       
		Если СчетаФактурыВыданныеНаОсновании.СчетаФактуры.Количество() > 0 Тогда
			Возврат;
		КонецЕсли;
		
		ДокументОбъект = МенеджерДокумента.СоздатьДокумент();
		ДокументОбъект.Дата = Объект.Дата;

		Результат = УчетНДСУП.ЗаполнитьСчетФактураВыданный(ДокументОбъект, ПараметрыРегистрации);
		
	КонецЕсли;
	
КонецПроцедуры

Показать