БП 3.0.143.42 "Лишнее" в документе, полученном через ЭДО

Форум Программирование Общие вопросы программирования (Dev)

1. pentanom 25 21.11.23 11:19 Сейчас в теме

В печатной форме УПД, который получают контрагенты есть некоторая дополнительная информация, которая раздражает некоторых из них (см. картинку). Понятно, что она записывается в исходном файле, который мы закачиваем в ЭДО

<ТаблСчФакт>
<СведТов НомСтр="1" НаимТов="Аккумуляторная батарея "ERGINEX" (6СТ - 95) АЗИЯ о/п" ОКЕИ_Тов="796" КолТов="1" ЦенаТов="6250" СтТовБезНДС="6250" НалСт="20%" СтТовУчНал="7500">
<Акциз>
<БезАкциз>без акциза</БезАкциз>
</Акциз>
<СумНал>
<СумНал>1250</СумНал>
</СумНал>
<ДопСведТов ПрТовРаб="1" КодТов="УТ000005247" НаимЕдИзм="шт"/>
<ИнфПолФХЖ2 Идентиф="Для1С_Идентификатор" Значен="ab647606-1144-11e8-80e6-0cc47a72f298##"/>
<ИнфПолФХЖ2 Идентиф="Для1С_Наименование" Значен="Аккумуляторная батарея "ERGINEX" (6СТ - 95) АЗИЯ о/п"/>
<ИнфПолФХЖ2 Идентиф="Для1С_ЕдиницаИзмерения" Значен="шт"/>
<ИнфПолФХЖ2 Идентиф="Для1С_ЕдиницаИзмеренияКод" Значен="796"/>
<ИнфПолФХЖ2 Идентиф="Для1С_Артикул" Значен="ERG950A"/>
<ИнфПолФХЖ2 Идентиф="Для1С_СтавкаНДС" Значен="20"/>
<ИнфПолФХЖ2 Идентиф="ИД" Значен="ab647606-1144-11e8-80e6-0cc47a72f298##"/>
</СведТов>

Показать

. Хотелось бы убрать эти строки из файла, но не могу найти место где они формируются. Есть ли какие-то настройки, которые позволяют убрать эту информацию? Может кто-то сталкивался с такой проблемой?

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

Ответы

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

Свернуть все

2. user1533175 11.09.24 12:00 Сейчас в теме

Общий модуль.ФорматыЭДО_ФНС

// Заполнить разделы дополнительных полей. См. ФорматыЭДО.РазделыДополнительныхПолейФорматаЭлектронногоДокумента
// 
// Параметры:
//  РазделыДополнительныхПолей - см. ФорматыЭДО.РазделыДополнительныхПолейФорматаЭлектронногоДокумента
//  ТипЭлектронногоДокумента - ПеречислениеСсылка.ТипыДокументовЭДО
//  Формат - Строка - см. ФорматыЭДО.ПоддерживаемыеФорматы

Процедура ЗаполнитьРазделыДополнительныхПолей(РазделыДополнительныхПолей, ТипЭлектронногоДокумента, Формат) Экспорт
	Форматы = ПоддерживаемыеФорматы();
	ТипыРазделовДопПолей = ЭлектронныеДокументыЭДОКлиентСервер.ТипыРазделовДополнительныхПолей();
	Если Формат = Форматы.УПД.ИнформацияПродавца
		ИЛИ Формат = Форматы.УПД2019.ИнформацияПродавца Тогда
		
		Раздел = РазделыДополнительныхПолей.Добавить();
		Раздел.Имя = "Шапка";
		Раздел.Тип = ТипыРазделовДопПолей.Шапка;
		Раздел.Представление = НСтр("ru = 'Документ'");
		Раздел.ПутьКЭлементуXML = "Файл.Документ.СвСчФакт.ИнфПолФХЖ1.ТекстИнф";
		Раздел.ПутьКРеквизитуДереваДопДанные = "ДопДанныеСчетаФактуры.ТекстоваяИнформация";
		Раздел.ПутьКРеквизитуДереваСумма = "ВсегоКОплате.ВсегоСтоимостьТоваровСНалогом";
		
		Если ТипЭлектронногоДокумента <> Перечисления.ТипыДокументовЭДО.СчетФактура Тогда
			Раздел = РазделыДополнительныхПолей.Добавить();
			Раздел.Имя = "СведенияОбОтгрузке";
			Раздел.Тип = ТипыРазделовДопПолей.Шапка;
			Раздел.Представление = НСтр("ru = 'Сведения об отгрузке'");
			Раздел.ПутьКЭлементуXML = "Файл.Документ.СвПродПер.ИнфПолФХЖ3";
			Раздел.ПутьКРеквизитуДереваДопДанные = "ДопДанныеДокументаОтгрузки.ТекстоваяИнформация";
			Раздел.ПутьКРеквизитуДереваСумма = "СведенияОТоварах.НомерСтроки.СтоимостьТоваровСНалогом";
		КонецЕсли;
		
		Раздел = РазделыДополнительныхПолей.Добавить();
		Раздел.Имя = "ТоварыУслуги";
		Раздел.Тип = ТипыРазделовДопПолей.Таблица;
		Раздел.Представление = НСтр("ru = 'Товары / услуги / права'");
		Раздел.ПутьКЭлементуXML = "Файл.Документ.ТаблСчФакт.СведТов.ИнфПолФХЖ2";
		Раздел.ПутьКРеквизитуДереваДопДанные = "СведенияОТоварах.НомерСтроки.ДопДанныеПодписанные";
		Раздел.ПутьКРеквизитуДереваСумма = "СведенияОТоварах.НомерСтроки.СтоимостьТоваровСНалогом";
		
	ИначеЕсли Формат = Форматы.УКД.ИнформацияПродавца
	 	Или Формат = Форматы.УКД2020.ИнформацияПродавца Тогда
		
		Раздел = РазделыДополнительныхПолей.Добавить();
		Раздел.Имя = "Шапка";
		Раздел.Тип = ТипыРазделовДопПолей.Шапка;
		Раздел.Представление = НСтр("ru = 'Документ'");
		Раздел.ПутьКЭлементуXML = "Файл.Документ.СвКСчФ.ИнфПолФХЖ1.ТекстИнф";
		Раздел.ПутьКРеквизитуДереваДопДанные = "ДопДанныеСчетаФактуры.ТекстоваяИнформация";
		
		Раздел = РазделыДополнительныхПолей.Добавить();
		Раздел.Имя = "ТоварыУслуги";
		Раздел.Тип =  ТипыРазделовДопПолей.Таблица;
		Раздел.Представление = НСтр("ru = 'Товары / услуги / права'");
		Раздел.ПутьКЭлементуXML = "Файл.Документ.ТаблКСчФ.СведТов.ИнфПолФХЖ2";
		Раздел.ПутьКРеквизитуДереваДопДанные = "СведенияОТоварах.НомерСтроки.ДопДанныеПодписанные";
		
	ИначеЕсли Формат = Форматы.ПередачаТоваров.ИнформацияПродавца Тогда
		
		Раздел = РазделыДополнительныхПолей.Добавить();
		Раздел.Имя = "Шапка";
		Раздел.Тип =  ТипыРазделовДопПолей.Шапка;
		Раздел.Представление = НСтр("ru = 'Документ'");
		Раздел.ПутьКЭлементуXML = "Файл.Документ.СодФХЖ3.ИнфПолФХЖ3";
		Раздел.ПутьКРеквизитуДереваДопДанные = "ДопДанные.Подписанные";
		Раздел.ПутьКРеквизитуДереваСумма = "ВсегоПоНакладной.СуммаСНДС";
		
		Раздел = РазделыДополнительныхПолей.Добавить();
		Раздел.Имя = "ТоварыУслуги";
		Раздел.Тип =  ТипыРазделовДопПолей.Таблица;
		Раздел.Представление = НСтр("ru = 'Товары'");
		Раздел.ПутьКЭлементуXML = "Файл.Документ.СвДокПТПрКроме.СодФХЖ2.СвТов.НомТов.ИнфПолФХЖ2";
		Раздел.ПутьКРеквизитуДереваДопДанные = "ТаблицаТоваров.НомерСтроки.ДопДанныеПодписанные";
		Раздел.ПутьКРеквизитуДереваСумма = "ТаблицаТоваров.НомерСтроки.СуммаСНДС";
		
	ИначеЕсли Формат = Форматы.ПередачаРабот.ИнформацияПродавца Тогда
		
		Раздел = РазделыДополнительныхПолей.Добавить();
		Раздел.Имя = "Шапка";
		Раздел.Тип = ТипыРазделовДопПолей.Шапка;
		Раздел.Представление = НСтр("ru = 'Документ'");
		Раздел.ПутьКЭлементуXML = "Файл.Документ.СодФХЖ2.ИнфПолФХЖ2";
		Раздел.ПутьКРеквизитуДереваДопДанные = "ДопДанные.Подписанные";
		Раздел.ПутьКРеквизитуДереваСумма = "ОписаниеУслуги.СуммаСНДСИтого";
		
		Раздел = РазделыДополнительныхПолей.Добавить();
		Раздел.Имя = "ТоварыУслуги";
		Раздел.Тип =  ТипыРазделовДопПолей.Таблица;
		Раздел.Представление = НСтр("ru = 'Услуги'");
		Раздел.ПутьКЭлементуXML = "Файл.Документ.СвДокПРУ.СодФХЖ1.ОписРабот.Работа.ИнфПолеОписРабот";
		Раздел.ПутьКРеквизитуДереваДопДанные = "ТаблицаУслуг.НомерСтроки.ДопДанныеПодписанные";
		Раздел.ПутьКРеквизитуДереваСумма = "ТаблицаУслуг.НомерСтроки.СуммаСНДС";

	КонецЕсли;

Показать

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

E-mail: