КА 20. Как дописать правила обмена, чтобы номенклатура схлопывалась

Форум Программирование Интеграция и обмен данными, конвертация данных (Обмен)

1С:Комплексная автоматизация 2.х Платформа 1С v8.3 8.3.14

1. fedor40 705 09.05.23 13:19 Сейчас в теме

Скажите, как дописать правило обмена, чтобы табличная часть Товары схлопылась по ставкам НДС?

У нас будет 2 определенных элемента Номенклатуры. СНДС и БезНДС.

Ответы

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

Свернуть все

2. Borisych 503 09.05.23 13:36 Сейчас в теме

(1) мы делали в приемнике доработку в расширении
В большинстве случаев товары заменяются на "Товар", кроме топлива, и некоторых других моментах. Оставили возможность создавать документы без свёртки в "Товар", позиции, которые не превращаются в товары.
У нас односторонний обмен УНФ - БП (бухгалтерия на аутсорсе, а номенклатуры много разной, база БП используется для учёта НДС. Прибыль по итогу считается одним большим котлом, без разбивок по номенклатурным группам.

12. Borisych 503 11.05.23 13:11 Сейчас в теме

(1) такие правила писали лет 10 назад ещё для БП 2.0, насколько помню

13. lefthander 11.05.23 13:32 Сейчас в теме

(12)Их и сейчас можно писать. И пишут, и они нормально работают.

3. Borisych 503 09.05.23 13:46 Сейчас в теме

Ещё сделали интересную доработку в УНФ - для каждого документа интеркампани создаётся и проводится два документа счета-фактуры - входящий и исходящий. Это позволило использовать полностью типовую синхронизацию УНФ - БП

4. karamazoff 96 09.05.23 15:32 Сейчас в теме

Это все очень здорово, но вопрос то то был про КА, УНФ как бы не совсем то...

5. Torin 752 09.05.23 17:48 Сейчас в теме

(4) Создаем расширение, заимствуем общий модуль МенеджерОбменаЧерезУниверсальныйФормат и делаем то что нам нужно

6. fedor40 705 09.05.23 19:01 Сейчас в теме

(5)

МенеджерОбменаЧерезУниверсальныйФормат

Не думаю, что это верно. У нас старая УТ 103 и хотелось на этапе выгрузки свернуть.

Надо создать правило/алгоритм для табличной части Товары.

8. Torin 752 09.05.23 19:39 Сейчас в теме

(6) Аля алгоритм

Алгоритм
ТЗ = Объект[ИмяТабЧасти].Выгрузить(); Попытка ТЗ.Свернуть("СтавкаНДС", "Сумма, Количество, СуммаНДС, Себестоимость"); Исключение ТЗ.Свернуть("СтавкаНДС", "Сумма, Количество, СуммаНДС"); КонецПопытки; Объект[ИмяТабЧасти].Загрузить(ТЗ); Для Каждого СтрокаТовары Из Объект[ИмяТабЧасти] Цикл Если СтрокаТовары.СтавкаНДС = Перечисления.СтавкиНДС.НДС10 Тогда СтавкаНДССтрокой = "10%"; ВидСтавкиНДС = Перечисления.ВидыСтавокНДС.Пониженная; ИначеЕсли СтрокаТовары.СтавкаНДС = Перечисления.СтавкиНДС.НДС20 Тогда СтавкаНДССтрокой = "20%"; ВидСтавкиНДС = Перечисления.ВидыСтавокНДС.Общая; Иначе СтавкаНДССтрокой = "Без НДС"; ВидСтавкиНДС = Перечисления.ВидыСтавокНДС.БезНДС; КонецЕсли; Наименование = "Товар (" + СтавкаНДССтрокой + ")"; Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(Наименование); Если Не ЗначениеЗаполнено(Номенклатура) Тогда НоваяНоменклатура = Справочники.Номенклатура.СоздатьЭлемент(); НоваяНоменклатура.Наименование = Наименование; НоваяНоменклатура.ВидСтавкиНДС = ВидСтавкиНДС; НоваяНоменклатура.ВидНоменклатуры = Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Товары"); НоваяНоменклатура.ЕдиницаИзмерения = Справочники.КлассификаторЕдиницИзмерения.НайтиПоКоду("796"); НоваяНоменклатура.НоменклатурнаяГруппа = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("Основная номенклатурная группа"); НоваяНоменклатура.Записать(); Номенклатура = НоваяНоменклатура.Ссылка; КонецЕсли; СтрокаТовары.Номенклатура = Номенклатура; СтрокаТовары.Цена = ?(СтрокаТовары.Количество = 0,0, СтрокаТовары.Сумма / СтрокаТовары.Количество); СтрокаТовары.СчетУчета = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах; КонецЦикла; Показать

Алгоритм

ТЗ = Объект[ИмяТабЧасти].Выгрузить();
Попытка
	ТЗ.Свернуть("СтавкаНДС", "Сумма, Количество, СуммаНДС, Себестоимость");
Исключение
	ТЗ.Свернуть("СтавкаНДС", "Сумма, Количество, СуммаНДС");
КонецПопытки;

Объект[ИмяТабЧасти].Загрузить(ТЗ);

Для Каждого СтрокаТовары Из Объект[ИмяТабЧасти] Цикл
	
	Если СтрокаТовары.СтавкаНДС = Перечисления.СтавкиНДС.НДС10 Тогда
		СтавкаНДССтрокой = "10%";
		ВидСтавкиНДС = Перечисления.ВидыСтавокНДС.Пониженная;
	ИначеЕсли СтрокаТовары.СтавкаНДС = Перечисления.СтавкиНДС.НДС20 Тогда
		СтавкаНДССтрокой = "20%";
		ВидСтавкиНДС = Перечисления.ВидыСтавокНДС.Общая;
	Иначе
		СтавкаНДССтрокой = "Без НДС";
		ВидСтавкиНДС = Перечисления.ВидыСтавокНДС.БезНДС;
	КонецЕсли;
	
	Наименование = "Товар (" +  СтавкаНДССтрокой + ")";
	
	Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(Наименование);
	
	Если Не ЗначениеЗаполнено(Номенклатура) Тогда
		
		НоваяНоменклатура = Справочники.Номенклатура.СоздатьЭлемент();
		НоваяНоменклатура.Наименование = Наименование;
		НоваяНоменклатура.ВидСтавкиНДС = ВидСтавкиНДС;
		
		НоваяНоменклатура.ВидНоменклатуры = Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Товары");
		НоваяНоменклатура.ЕдиницаИзмерения = Справочники.КлассификаторЕдиницИзмерения.НайтиПоКоду("796");
		НоваяНоменклатура.НоменклатурнаяГруппа = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("Основная номенклатурная группа");
		НоваяНоменклатура.Записать();	
		
		Номенклатура = НоваяНоменклатура.Ссылка;
	КонецЕсли;
	
	СтрокаТовары.Номенклатура = Номенклатура;
	
	СтрокаТовары.Цена = ?(СтрокаТовары.Количество = 0,0, СтрокаТовары.Сумма / СтрокаТовары.Количество);
	СтрокаТовары.СчетУчета = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах;
	
		
	
КонецЦикла;

Показать

7. Naumov 24 09.05.23 19:35 Сейчас в теме

Обобщенная номенклатура? Если в БП это взлетает, то в КА это будет полная хрень

9. fedor40 705 09.05.23 19:54 Сейчас в теме

(7)

Обобщенная номенклатура?

2 позиции и все

10. fedor40 705 09.05.23 20:05 Сейчас в теме

Запрос по табличной части свернет все в 2 строки

"ВЫБРАТЬ
		|	СУММА(РеализацияТоваровУслугТовары.Количество) КАК Количество,
		|	РеализацияТоваровУслугТовары.СтавкаНДС,
		|	СУММА(РеализацияТоваровУслугТовары.Сумма) КАК Сумма,
		|	СУММА(РеализацияТоваровУслугТовары.СуммаНДС) КАК СуммаНДС,
		|	РеализацияТоваровУслугТовары.ЕдиницаИзмерения
		|ПОМЕСТИТЬ вт
		|ИЗ
		|	Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары
		|
		|СГРУППИРОВАТЬ ПО
		|	РеализацияТоваровУслугТовары.СтавкаНДС,
		|	РеализацияТоваровУслугТовары.ЕдиницаИзмерения
		|;
		|
		|////////////////////////////////////////////////////////////////////////////////
		|ВЫБРАТЬ
		|	вт.Количество,
		|	вт.СтавкаНДС,
		|	вт.Сумма,
		|	вт.СуммаНДС,
		|	1 КАК Коэффициент,
		|	вт.Сумма / вт.Количество КАК Цена,
		|	ВЫБОР
		|		КОГДА вт.СтавкаНДС.Наименование = ""БезНДС""
		|			ТОГДА &НомБез
		|		ИНАЧЕ &НомС
		|	КОНЕЦ КАК Номенклатура
		|ИЗ
		|	вт КАК вт";

Показать

11. Naumov 24 09.05.23 21:55 Сейчас в теме

(9) ДА я понял, понял. Не взлетит

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

E-mail: