Заполнение ТД Счет-фактуры в БП 3.0

Форум Программирование Внешние компоненты и работа с оборудованием (ВК)

1С:Бухгалтерия 3.0

1. Az18011993 11.03.20 15:22 Сейчас в теме

Добрый вечер!
Не подскажите в каком документе находится функция для формирования табличной документа Счет-фактур и УПД?(БП 3.0)
Пишу внешнюю обработку и нужен код типовой. Заранее спасибо!

По теме из базы знаний

Ответы

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

Свернуть все

2. uriah 18 11.03.20 15:37 Сейчас в теме

УПД?

- Такого документа в БП 3.0 нет. Это вообще-то просто печатная форма, формируется в документе Реализация товаров и услуг. А в документе счет-фактура выданная три табличные части

3. Az18011993 11.03.20 15:44 Сейчас в теме

(2)Мне нужно узнать в каком документе находится функция формирование печатной формы УПД или Счет Фактуры.Я в курсе,что УПД нет в БП 3.0.
Надеюсь поймете

4. FetisovAN 11.03.20 15:44 Сейчас в теме

в общем модуле УчетНДС

5. Az18011993 11.03.20 15:50 Сейчас в теме

Напишите ваше сообщение
(4)А конкретнее?
Мне нужно написать функцию для формирования печатной формы УПД , мне бы узнать где идет заполнение данных в Счет-фактуре

6. FetisovAN 11.03.20 15:51 Сейчас в теме

Зайдите в модуль, сделайте поиск "Печать", там целый блок процедур печати счет-фактур, УПД, УКД

7. Az18011993 11.03.20 15:56 Сейчас в теме

(6)Не нашел( Или не там смотрел.Вы же про Общие модули?

8. FetisovAN 11.03.20 15:58 Сейчас в теме

да. про общие модули.

собственно вам нужна процедура "ПодготовитьДанныеДляпечатиУниверсального ... "

Прикрепленные файлы:

9. Az18011993 11.03.20 16:03 Сейчас в теме

Напишите ваше сообщение
(8)Не нашел.

10. FetisovAN 11.03.20 16:04 Сейчас в теме

(9) ты угораешь ... ©

не нашел общий модуль УчетНДС ? конфигурация точно БП 3.0 ? :)

11. Az18011993 11.03.20 16:07 Сейчас в теме

Напишите ваше сообщение
(10)УчетНДС нашел,просто только начинаю осваивать азы этой профессии

12. FetisovAN 11.03.20 16:09 Сейчас в теме

(11) ну я вам даже название одной из процедур написал - воспользуйтесь поиском текста, в модуле

13. Az18011993 11.03.20 16:12 Сейчас в теме

Напишите ваше сообщение
(12)Спасибо Вам,нашел. А вот еще не можете подсказать в какой функции происходит заполнение макета?

14. starik-2005 3167 11.03.20 16:30 Сейчас в теме

(13)

в какой функции происходит заполнение макета

А зачем? Добавить фио и должность руководителя?

15. Az18011993 12.03.20 07:45 Сейчас в теме

(14f Да что-то наподобии...Нужно в полях внести изменения реквизитов заполнения

16. Az18011993 12.03.20 12:46 Сейчас в теме

Добрый день!
Вроде смог перенести формирование УПД,но возникла проблема с формированием макета,не находит Макет
Код

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

	Если ЕстьСчетаФактурыПолученные И УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "УПДСтатус1") Тогда
		
		УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "УПДСтатус1", "УПД (статус 1)",
			УчетНДС.ПечатьУниверсальныхПередаточныхДокументов(МассивОбъектов, ОбъектыПечати, 
			Документы.СчетФактураПолученный.ТекстЗапросаПечатьСчетовФактур(Истина, Ложь),,, ПараметрыПечати),,
			"ПФ_MXL_УПД");
			
	КонецЕсли;
		
	Если ЕстьСчетаФактурыВыданные И УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "УПДСтатус1_981") Тогда
		
		УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "УПДСтатус1_981", "УПД (статус 1)",
			УчетНДС.ПечатьУниверсальныхПередаточныхДокументов981(МассивОбъектов, ОбъектыПечати, 
			Документы.СчетФактураВыданный.ТекстЗапросаПечатьСчетовФактур(Истина, Истина, Истина),,, ПараметрыПечати),,
			"ПФ_MXL_УПД");
			
	КонецЕсли;
		
	Если ЕстьСчетаФактурыПолученные И УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "УПДСтатус1_981") Тогда
		
		УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "УПДСтатус1_981", "УПД (статус 1)",
			УчетНДС.ПечатьУниверсальныхПередаточныхДокументов981(МассивОбъектов, ОбъектыПечати, 
			Документы.СчетФактураПолученный.ТекстЗапросаПечатьСчетовФактур(Истина, Истина),,, ПараметрыПечати),,
			"ПФ_MXL_УПД");
			
	КонецЕсли;
	
	Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "УПДСтатус2") Тогда
		ТекстЗапросаПечатьУниверсальныхПередаточныхДокументов = "";
		Для каждого Объект Из МассивОбъектов Цикл
			Если ТипЗнч(Объект) <> Тип("ДокументСсылка.СчетФактураВыданный")
			   И ТипЗнч(Объект) <> Тип("ДокументСсылка.СчетФактураПолученный") Тогда
				ТекстЗапросаПечатьУниверсальныхПередаточныхДокументов = 
					Документы[Объект.Метаданные().Имя].ТекстЗапросаПечатьУниверсальныхПередаточныхДокументов(Ложь);
				Прервать;
			КонецЕсли;
		КонецЦикла;
		Если НЕ ПустаяСтрока(ТекстЗапросаПечатьУниверсальныхПередаточныхДокументов) Тогда
			УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "УПДСтатус2", "УПД (статус 2)",
					УчетНДС.ПечатьУниверсальныхПередаточныхДокументов(МассивОбъектов, ОбъектыПечати, 
					ТекстЗапросаПечатьУниверсальныхПередаточныхДокументов, Истина,, ПараметрыПечати),,
					"ПФ_MXL_УПД");
		КонецЕсли;
	КонецЕсли;
	
	Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "УПДСтатус2_981") Тогда
		ТекстЗапросаПечатьУниверсальныхПередаточныхДокументов = "";
		Для каждого Объект Из МассивОбъектов Цикл
			Если ТипЗнч(Объект) <> Тип("ДокументСсылка.СчетФактураВыданный")
			   И ТипЗнч(Объект) <> Тип("ДокументСсылка.СчетФактураПолученный") Тогда
				ТекстЗапросаПечатьУниверсальныхПередаточныхДокументов = 
					Документы[Объект.Метаданные().Имя].ТекстЗапросаПечатьУниверсальныхПередаточныхДокументов(Истина);
				Прервать;
			КонецЕсли;
		КонецЦикла;
		Если НЕ ПустаяСтрока(ТекстЗапросаПечатьУниверсальныхПередаточныхДокументов) Тогда
			УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "УПДСтатус2_981", "УПД (статус 2)",
					УчетНДС.ПечатьУниверсальныхПередаточныхДокументов981(МассивОбъектов, ОбъектыПечати, 
					ТекстЗапросаПечатьУниверсальныхПередаточныхДокументов, Истина,, ПараметрыПечати),,
					"ПФ_MXL_УПД");
		КонецЕсли;
	КонецЕсли;
	
	ОбщегоНазначенияБП.ЗаполнитьДополнительныеПараметрыПечати(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода);	
	
КонецПроцедуры

Показать

Оставьте свое сообщение

E-mail: