Собственные шаблоны первичных документов

[Белокопытов Геннадий]

Олександр_Р
Уточните, пожалуйста, чаркод такого шаблона если он опубликован для всех.
Если это ваш личный шаблон, покажите как созданы поля название и ЕДРПОУ контрагента на бланке шаблона скрином, либо предоставьте пример такого шаблона.

[Олександр_Р]

Для всех пока не опубликован, выгрузка шаблона в аттаче.
Большое спасибо.

[Inkognito]

при выходе из документа через "сохранить" в "Реестре электронных документов" очищаются название и ОКПО контрагента, при этом в самом документе они остаются.

Проверьте, чтобы передавались/выгружались системные поля: SIDE_CD_K (название контрагента), SIDE_EDRPOU_K (код ЕДРПОУ-ДРФО контрагента), - именно они отображаются в Реестре. Возможно, Вы передаете/выгружаете свои поля, названные как-то иначе - именно поэтому они и отображаются в документе, а в Реестре - нет.

[Олександр_Р]

Проверил, поля в шаблоне есть, и в документе они заполнены.

[Олександр_Р]

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

[Inkognito]

Покажите код выгрузки этих полей. Формат СОМ, ZDI, XML ?

[Олександр_Р]

СОМ

Код: Виділити все

Если ЗначениеЗаполнено(СокрЛП(СведенияОПокупателе.КодПоЕДРПОУ)) Тогда	
	
			rsMain.Fields.Item("SIDE_EDRPOU_K").Value  =  СокрЛП(СведенияОПокупателе.КодПоЕДРПОУ); 
		Иначе 
		
			rsMain.Fields.Item("SIDE_EDRPOU_K").Value  =  СокрЛП(Контрагент.ОКПО);
		КонецЕсли;
		
rsMain.Fields.Item("SIDE_CD_K").Value = СокрЛП(СведенияОПокупателе.ПолноеНаименование);
		

[Inkognito]

Странно, вроде все верно. Чудеса

[Олександр_Р]

Может быть, при заполнении можно выполнить процедуру перевыбора из справочника?

[Олександр_Р]

ЭГЕГЕЙ! Скажите что-нибудь. Пожалуйста

[vnkor]

А по другим контрагентам такая же самая ситуация?

[Олександр_Р]

Да.

[Inkognito]

В коде шаблона, нет случайно какого-то присвоения этим полям пустого значения? Вкладка "Програми" в шаблоне.

[Олександр_Р]

Нет, ничего такого

[Олександр_Р]

Можно такое сделать? Нельзя такое сделать?
Пожалуйста, скажите что-нибудь

[PetroP]

Может по полному коду можно что-то сказать. А так, действительно, мистика...

[Олександр_Р]

Пожалуйста, вот полный код заполнения шаблона

Код: Виділити все

Процедура Формирование_АктПП(App, pd, orgId, Документ, Бланк, ИД)
	
	ДатаДоКоторойСуммаБраласьИзСебестоимости = '20140409';
	КОдЯзыкаПечать = "ua";
	ДокументСсылка = Документ.Ссылка;
	ДокументОбъект = Документ.ПолучитьОбъект();

	ВидДокумента = ДокументОбъект.Метаданные().Имя;
	Если ВидДокумента = "ПриходнаяНакладная" Тогда
		Префикс = "ПН";
	ИначеЕсли ВидДокумента = "Перемещение" Тогда    
		Префикс = "ПМ";
	КонецЕсли;
	Если Документ.Фирма.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ЮрЛицо Тогда
			ЮрикФизик = "Юрик";
		Иначе
			ЮрикФИзик = "Физик";
		КонецЕсли;

	Запрос = Новый Запрос;
	ТекстЗапроса = 
	"ВЫБРАТЬ
	|   Перемещение.Номер,
	|   Перемещение.Дата,
	|   Перемещение.Фирма,
	|   Перемещение.СкладПолучатель.Хранитель КАК Контрагент,
	|   Перемещение.СкладПолучатель.ДоговорСХранителем КАК Договор,
	|   Перемещение.Валюта КАК Валюта,
	|   КонтактныеЛица.Фамилия КАК ФамилияДиректораИсполнителя,
	|   КонтактныеЛица.Имя КАК ИмяДиректораИсполнителя,
	|   КонтактныеЛица.Отчество КАК ОтчествоДиректораИсполнителя,
	|   ПараметрыФирмСрезПоследних.Значение КАК ПредставлениеДиректораОрганизации,
	|   Перемещение.СкладПолучатель.Город КАК МестоСоставленияДокумента
	|ИЗ
	|   Документ.Перемещение КАК Перемещение
	|       ЛЕВОЕ СОЕДИНЕНИЕ Справочник.КонтактныеЛица КАК КонтактныеЛица
	|       ПО Перемещение.СкладПолучатель.Хранитель = КонтактныеЛица.Владелец
	|           И (КонтактныеЛица.Должность.Наименование = ""Директор"")
	|       ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПараметрыФирм.СрезПоследних(, Фирма = &Фирма И Параметр = &Параметр) КАК ПараметрыФирмСрезПоследних
	|		ПО ИСТИНА
	|ГДЕ
	|   Перемещение.Ссылка = &Ссылка";
	
	Запрос.УстановитьПараметр("Фирма", ДокументОбъект.Фирма);
	ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "Перемещение", ВидДокумента);
	Если ВидДокумента = "ПриходнаяНакладная" Тогда
		ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "СкладПолучатель", "Склад");
		ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "ФирмаПолучатель", "Фирма");
	ИначеЕсли ВидДокумента = "Перемещение" Тогда    
		Если ПолучитьРеквизитСсылки(ДокументОбъект.ФирмаПолучатель, "Филиал") = Ложь Тогда
			ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "Перемещение.СкладПолучатель.Город", "Перемещение.Склад.Город");
			//ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "ПО Перемещение.ФирмаПолучатель = ПараметрыФирмСрезПоследних.Фирма", "ПО Перемещение.Фирма = ПараметрыФирмСрезПоследних.Фирма");
		КонецЕсли;
		Если ЗначениеЗаполнено(ДокументОбъект.Склад.Фирма) Тогда
			Запрос.УстановитьПараметр("Фирма", ДокументОбъект.Склад.Фирма);
		КонецЕсли;
		ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "Перемещение.Валюта КАК Валюта,", "");
	Иначе
		
	КонецЕсли;
	Запрос.Текст = ТекстЗапроса;
	Запрос.УстановитьПараметр("Ссылка", ДокументСсылка);
	Запрос.УстановитьПараметр("Параметр", ПланыВидовХарактеристик.ПараметрыФирм.ДиректорФирмыДляПечати);
	
	Шапка = Запрос.Выполнить().Выбрать();
	Шапка.Следующий();
	
	Если Шапка.Дата < ДатаДоКоторойСуммаБраласьИзСебестоимости Тогда
		ТекстЗапроса = 
		"ВЫБРАТЬ
		|   Таблица.Номенклатура,
		|   Таблица.Характеристика,
		|   Таблица.Ширина,
		|   Таблица.Длина,
		|   Таблица.ЕдиницаИзмерения.Наименование КАК ЕдиницаИзмерения,
		|   СУММА(ТоварыНаСкладе.Количество) КАК Количество,
		|   СУММА(ТоварыНаСкладе.Сумма - ТоварыНаСкладе.НаценкаПродукции) КАК Сумма
		|ИЗ
		|   Документ.Перемещение.Товары КАК Таблица
		|       ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ТоварыНаСкладе КАК ТоварыНаСкладе
		|       ПО Таблица.Номенклатура = ТоварыНаСкладе.Номенклатура
		|           И Таблица.Ссылка = ТоварыНаСкладе.Регистратор
		|           И Таблица.Характеристика = ТоварыНаСкладе.Характеристика
		|           И ТоварыНаСкладе.ВидДвижения = Значение(ВидДвиженияНакопления.Расход)
		|ГДЕ
		|   Таблица.Ссылка = &Ссылка
		|
		|СГРУППИРОВАТЬ ПО
		|   Таблица.Номенклатура,
		|   Таблица.Характеристика,
		|   Таблица.НомерСтроки,
		|   Таблица.Ширина,
		|   Таблица.Длина,
		|   Таблица.ЕдиницаИзмерения.Наименование
		|
		|УПОРЯДОЧИТЬ ПО
		|   Таблица.НомерСтроки";
		
		Если ВидДокумента = "ПриходнаяНакладная" Тогда
			ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "ВидДвиженияНакопления.Расход", "ВидДвиженияНакопления.Приход");
		КонецЕсли;
	Иначе
		ТекстЗапроса = 
		"ВЫБРАТЬ
		|   Таблица.Номенклатура,
		|   Таблица.Характеристика,
		|   Таблица.Ширина,
		|   Таблица.Длина,
		|   Таблица.ЕдиницаИзмерения.Наименование КАК ЕдиницаИзмерения,
		|   Таблица.Количество КАК Количество,
		|   Таблица.Сумма КАК Сумма,
		|   Таблица.НомерСтроки КАК НомерСтроки,
		|   ЦеныСрезПоследних.Цена КАК Цена
		|ИЗ
		|   Документ.Перемещение.Товары КАК Таблица
		|       ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Цены.СрезПоследних(&ДатаДокумента, 
		|           Фирма = &Фирма и ТипЦен = Значение(Справочник.ТипыЦен.ЦеныОтветХранения)
		|           И Контрагент = Неопределено) КАК ЦеныСрезПоследних
		|       ПО Таблица.Номенклатура = ЦеныСрезПоследних.Номенклатура
		|           И Таблица.ЕдиницаИзмерения = ЦеныСрезПоследних.ЕдИзм
		|ГДЕ
		|   Таблица.Ссылка = &Ссылка
		|
		|УПОРЯДОЧИТЬ ПО
		|   Таблица.НомерСтроки";
		
		Если ВидДокумента = "ПриходнаяНакладная" Тогда
			ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "Таблица.Количество", "Таблица.Кво");
		КонецЕсли;
	КонецЕсли;
	ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "Перемещение", ВидДокумента);
	
	
	Запрос.Текст = ТекстЗапроса;
	Запрос.УстановитьПараметр("Ссылка", ДокументСсылка);
	Запрос.УстановитьПараметр("ДатаДокумента", Шапка.Дата);
	Запрос.УстановитьПараметр("Фирма", Шапка.Фирма);
	
Попытка
		Doc  =  pd.OpenOrCreateDocument(orgId,  Бланк, , ,  ИД,  0);
		Попытка
			Doc.DisableScripts();
		Исключение
			Сообщить(НСТР("ru  =  'Не подключена возможность передачи данных между M.E.Doc и Вашей учетной системой. С условиями подключения можно ознакомиться в разделе «Інтеграція» в M.E.Doc'; uk  =  'Не підключено можливість передачі даних між M.E.Doc та Вашою обліковою системою. З умовами підключення можливо ознайомитись у розділі «Інтеграція» в M.E.Doc'"));
			ВызватьИсключение
		КонецПопытки;
		
		
		rsMain = Doc.DataSets();     	  		  
		rsMain.Edit();              
		rsMain.Append();
		rsMain.Post();
		//***
	
	ВыборкаТовары = Запрос.Выполнить().Выбрать();
	
			СведенияОПоставщике = обПолучитьРеквизитыФирмы(ДокументОбъект.Фирма, Шапка.Дата);
		СведенияОПокупателе = обПолучитьРеквизитыКонтрагента(Шапка.Контрагент, Шапка.Дата);
	
	ПредставлениеОрганизации = ОписаниеОрганизации(СведенияОПоставщике, "ПолноеНаименование,",, КодЯзыкаПечать);
	ПредставлениеИсполнителя = обПолучитьПолноеНаименование(Шапка.Контрагент, Шапка.Дата, ВидДокумента).ПолноеНаименование;
	ПредставлениеДиректораОрганизации = Шапка.ПредставлениеДиректораОрганизации;
	ПредставлениеДиректораИсполнителя = "" + Шапка.ФамилияДиректораИсполнителя + " " + Лев(Шапка.ИмяДиректораИсполнителя, 1) + "." + Лев(Шапка.ОтчествоДиректораИсполнителя, 1) + ".";
	
	Если ЗначениеЗаполнено(Шапка.Договор) Тогда
		струкНомерДоговора = ПолучитьНомерДоговораКонтрагентаНаПечать(Шапка.Договор, Шапка.Дата);
		ТекстДоговора = " згідно договору № " + струкНомерДоговора.Номер + " від " + Формат(струкНомерДоговора.Дата, "ДФ=dd.MM.yyyy");
	Иначе
		ТекстДоговора = "";
	КонецЕсли;
	ДатаДокумента =Документ.Дата;
		rsMain.Fields.Item("DOCDATE").Value  =  ДатаДокумента;
		//rsMain.Fields.Item("NUM").Value = ПолучитьНомерБезНулей(Документ); 
		rsMain.Fields.Item("NUM").Value = ПолучитьНомерНаПечать(Документ); 
		
		rsMain.Fields.Item("FIRM_NAME").Value = СокрЛП(СведенияОПоставщике.ПолноеНаименование);
		rsMain.Fields.Item("FIRM_RUKPOS").Value = "Директор";
		rsMain.Fields.Item("FIRM_RUK").Value = СокрЛП(ПредставлениеДиректораОрганизации);
		rsMain.Fields.Item("SIDE_DIR_POS").Value = "Директор";
		rsMain.Fields.Item("SIDE_DIR_FIO").Value = СокрЛП(ПредставлениеДиректораИсполнителя);
		
		Если ЮрикФизик = "Юрик" Тогда 
			rsMain.Fields.Item("FIRM_EDRPOU").Value  =  СокрЛП(СведенияОПоставщике.КодПоЕДРПОУ); 
			//rsMain.Fields.Item("TEXT_FIRM_E_D").Value  =  "код за ЄДРПОУ"; 
		Иначе 
			rsMain.Fields.Item("FIRM_EDRPOU").Value  =  СокрЛП(СведенияОПоставщике.КодПоДРФО); 
			//rsMain.Fields.Item("TEXT_FIRM_E_D").Value  =  "код за ДРФО";
		КонецЕсли;
		rsMain.Fields.Item("SIDE_CD_K").Value = СокрЛП(СведенияОПокупателе.ПолноеНаименование);
				
		Если ЗначениеЗаполнено(СокрЛП(СведенияОПокупателе.КодПоЕДРПОУ)) Тогда	
		//	//rsMain.Fields.Item("TEXT_SIDE_E_D").Value  =  "код за ЄДРПОУ";
			rsMain.Fields.Item("SIDE_EDRPOU_K").Value  =  СокрЛП(СведенияОПокупателе.КодПоЕДРПОУ); 
		Иначе 
		//	//rsMain.Fields.Item("TEXT_SIDE_E_D").Value  =  "код за ДРФО";
			rsMain.Fields.Item("SIDE_EDRPOU_K").Value  =  СокрЛП(Контрагент.ОКПО);
		КонецЕсли;
		
		
		
		Если ЗначениеЗаполнено(СокрЛП(Документ.СкладПолучатель.ДоговорСХранителем)) Тогда
			rsMain.Fields.Item("DOG_NUM").Value = СокрЛП(струкНомерДоговора.Номер);
			rsMain.Fields.Item("DOG_DATE").Value = Формат(струкНомерДоговора.Дата,  "ДЛФ = Д");
		КонецЕсли;
		//Отгрузил = "";
		Если СокрЛП(Документ.Отгрузил) = "" Тогда
			Отгрузил = "Завідувач складу Лапа Ю.В.";
		Иначе
			Отгрузил = СокрЛП(Документ.Отгрузил);
		КонецЕсли;
		
		//Сообщить(Отгрузил);
		rsMain.Fields.Item("WARRANT_NAME").Value = ФИОИзСтроки(Отгрузил);
		rsMain.Fields.Item("FIELD2").Value = Отгрузил;
		rsMain.Fields.Item("FIELD3").Value = СокрЛП(Документ.Получил);
		rsMain.Fields.Item("SIDE_OTV_FIO").Value = ФИОИЗСтроки(СокрЛП(Документ.Получил));


	ВалютаБаланса = обВалютаБаланса(Шапка.Дата, Шапка.Фирма);
	Если ВидДокумента = "Перемещение" Тогда
		ВалютаДокумента = ВалютаБаланса;
	Иначе    
		ВалютаДокумента = Шапка.Валюта;
	КонецЕсли;
	
	КурсГрн = ПолучитьКурсВалюты(Шапка.Фирма, ПараметрыСеанса.ВалютаГривнаБН, Шапка.Дата);
	СтавкаНДС = Расчеты.ПолучитьНДС(Справочники.ВидыНалогов.НДС20, Шапка.Дата);
	ЭтоФирма5 = ПолучитьРеквизитСсылки(Шапка.Фирма, "Код") = 5;
	
	СуммаТоваров = 0;
	СуммаБНДС = 0;
	Н = 1;
	 rsMain = Doc.DataSets("TAB1");
	Пока ВыборкаТовары.Следующий() Цикл 
		
		Если НЕ ЗначениеЗаполнено(ВыборкаТовары.Номенклатура) Тогда
			Сообщить(НСтр("ru='В одной из строк не заполнено значение номенклатуры - строка при печати пропущена.';uk='В одному з рядків не заповнене значення номенклатури - рядок під час друку буде пропущений.'"), СтатусСообщения.Важное);
			Продолжить;
		КонецЕсли;
		
		//ОбластьМакета.Параметры.Заполнить(ВыборкаТовары);
		//ОбластьМакета.Параметры.Товар 		= ?(ВидДокумента = "ПередачаТоваров", ВыборкаТовары.Номенклатура, обПечатьНоменклатураСХарактеристикой(ВыборкаТовары, ДокументОбъект));
		//ОбластьМакета.Параметры.НомерСтроки = Н;
		
		Если Шапка.Дата < ДатаДоКоторойСуммаБраласьИзСебестоимости Тогда
			Сумма = ВыборкаТовары.Сумма * КурсГрн / (1 + СтавкаНДС);
		Иначе
			Если ВалютаДокумента = ПараметрыСеанса.ВалютаГривнаБН или ВалютаДокумента = ПараметрыСеанса.ВалютаГривна Тогда
				Сумма = ВыборкаТовары.Сумма;
			Иначе
				Сумма = обПересчетВВалютуБаланса(ВыборкаТовары.Сумма, ВалютаДокумента, ВалютаБаланса, Шапка.Дата) * КурсГрн;
			КонецЕсли;
		КонецЕсли;
		
		Если ЭтоФирма5 и Шапка.Дата >= '20140409' Тогда
			Если ЗначениеЗаполнено(ВыборкаТовары.Цена) Тогда
				Цена = ВыборкаТовары.Цена;
			Иначе
				Цена = 0;
				Сообщить("Строка " + ВыборкаТовары.НомерСтроки + ": Не установлена цена вида ""Цены ответ-хранения""! Номенклатура " + 
				ПолучитьРеквизитСсылки(ВыборкаТовары.Номенклатура, "КодСТочкой"), СтатусСообщения.Информация);
			КонецЕсли;
			
			Сумма = Цена * ВыборкаТовары.Количество;
		Иначе
			Цена = ?(ВыборкаТовары.Количество = 0, Сумма, Окр(Сумма / ВыборкаТовары.Количество, 2));
			Сумма = ?(ВыборкаТовары.Количество = 0, Цена, Окр(Цена * ВыборкаТовары.Количество, 2));    
		КонецЕсли;
		
		
		//ОбластьМакета.Параметры.Цена = Цена;
		//ОбластьМакета.Параметры.Сумма = Сумма;
		
		СуммаТоваров = СуммаТоваров + Сумма;
		   
			rsMain.Edit(); 
			rsMain.Fields.Item("TAB1_FIELD1").Value = Н;
			rsMain.Fields.Item("TAB1_FIELD2").Value = СокрЛП(обПечатьНоменклатураСХарактеристикой(ВыборкаТовары, ДокументОбъект));
			rsMain.Fields.Item("TAB1_FIELD3").Value = СокрЛП(ВыборкаТовары.Количество);
			 rsMain.Fields.Item("TAB1_FIELD4").Value = СокрЛП(ВыборкаТовары.ЕдиницаИзмерения);
			 rsMain.Fields.Item("TAB1_FIELD5").Value = Цена;
			 rsMain.Fields.Item("TAB1_FIELD6").Value = Сумма;

		//ТабДокумент.Вывести(ОбластьМакета);
		Н = Н + 1;
		rsMain.Post();
				rsMain.Append();

	КонецЦикла;
	rsMain.Post();
rsMain = Doc.DataSets();     	  		  
	    rsMain.Edit(); 
	   rsMain.Fields.Item("FIELD1").Value = (Н-1); 
	   
	   
	   // Вывести Итого
	//ОбластьМакета = Макет.ПолучитьОбласть("Итого");
	//
	//ОбластьМакета.Параметры.Всего = ФорматСумм(СуммаТоваров);	
	//
	//ТабДокумент.Вывести(ОбластьМакета);
	
	//Если ЗначениеЗаполнено(Шапка.Контрагент.ИНН) Тогда
	// Вывести ИтогоНДС
	СуммаНДС = Окр(СуммаТоваров * СтавкаНДС, 2);
	СуммаБНДС = СуммаТоваров;
	СуммаТоваров = СуммаТоваров + СуммаНДС;
	
		rsMain.Fields.Item("SUMWITHOUTPDV").Value = Формат(СуммаБНДС,"ЧДЦ=2");  
		rsMain.Fields.Item("SUMPDV").Value = СуммаНДС; 
		rsMain.Fields.Item("DOCSUM").Value = СуммаТоваров;

	
	//-----------------------------------------------------
		rsMain = Doc.DataSets();     	  		  
		rsMain.Edit();              
		//rsMain.Fields.Item("ZNYGKA").Value = ZNYGKA;// записываем сумму скидки под таблицей
		rsMain.Post();
		//-----------------------------------------------------
		Doc.EnableScripts();	
		Doc.Save();  
		Doc.Close();  
		
				
	Исключение
		Сообщить(ПолучитьТекстОшибки(ИнформацияОбОшибке()));
		ВызватьИсключение;
	КонецПопытки;  

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

[Белокопытов Геннадий]

Олександр_Р
Добрый день.
На примере вашего шаблона повторить описанную ситуацию не удалось, все поля сохраняются и отображаются корректно.
Уточните, пожалуйста, при создании документа в ручном режиме, в программе, поля отображаются в реестре или тоже нет?
Если нет, необходим пример базы данных для проверки.

[Олександр_Р]

Добрый день!
В документе все сохраняется и отображается корректно, так и есть.
Перестает отображаться только в "Реестре электронных документов", если из загруженного документа выйти кнопкой "Сохранить".
Вручную лечится перевыбором контрагента из справочника. Но вручную, сами понимаете, не вариант.

[Олександр_Р]

Добрый день! Возник еще один вопрос. Шаблон удалили с сервера Птах, из списка первичных шаблонов в Медке он исчез.
При попытке загрузить из файла ругается, что шаблон уже есть в системе. Как его найти?