Прячем колонку старой закупочной цены. Розница 3

Клиенту понадобилось скрыть колонку старой цены для закупочной цены.

Сначала скрываем в форме документа. В форме документа «Установка цен»:

&НаСервере
&После("ДобавитьРеквизитыИЭлементыТабличнойЧастиПоВидуЦен")
Процедура дор_ДобавитьРеквизитыИЭлементыТабличнойЧастиПоВидуЦен(ИмяТабличнойЧасти, ВыбранныйВидЦенСоответствие)
	//Прячем колонку старой закупочной цены
	Если 
		//ИСТИНА ИЛИ 
		НЕ Пользователи.РолиДоступны("ПолныеПрава") Тогда
		Если Элементы.Найти("ТЧНоменклатураЗакупочная_ЦенаДо") <> Неопределено Тогда
			Элементы.ТЧНоменклатураЗакупочная_ЦенаДо.Видимость = ложь;
		КонецЕсли;                                         
	КонецЕсли;
КонецПроцедуры

Выглядит так под полными и ограниченными правами:

Затем скрываем в печатной форме. В форме документа «Установка цен»:

&ИзменениеИКонтроль("ПечатнаяФормаТабличнаяЧастьУстановкаЦен")
Функция дор_ПечатнаяФормаТабличнаяЧастьУстановкаЦен1(МассивОбъектов, ОбъектыПечати)

	...

		// 1. получим СКД
		СхемаКомпоновкиДанных = Документы.УстановкаЦенНоменклатуры.ПолучитьМакет("ТабличнаяЧасть");
#Вставка	 
		//Прячем колонку старой закупочной цены
		Если 
			//ИСТИНА ИЛИ 
			НЕ Пользователи.РолиДоступны("ПолныеПрава") Тогда
			СхемаКомпоновкиДанных.НаборыДанных[0].Запрос = 
			СтрЗаменить(СхемаКомпоновкиДанных.НаборыДанных[0].Запрос, "УстановкаЦенНоменклатурыЗапасы.ЦенаСтарая",
			"ВЫБОР КОГДА УстановкаЦенНоменклатурыЗапасы.ВидЦены.Наименование = ""Закупочная"" Тогда 
			|0 ИНАЧЕ 
			|УстановкаЦенНоменклатурыЗапасы.ЦенаСтарая КОНЕЦ");
		КонецЕсли;
#КонецВставки
		
		// 2. создаем настройки для схемы 
		...
		
	Возврат ТабличныйДокументОбщий;

КонецФункции

Печатная форма выводится через СКД, приходится попотеть. Сначала хотел удалять колонку, но там нужно определять области условного формата, это сложно. Проще оказалось поправить СКД.

Выглядит так под полными и ограниченными правами:

Среда: Розница 3.0.12.237 Объем: 0.7 час

image_pdfimage_print

fixin

Программирую на 1С с 1999 года. В 1С просто Гений. В 2020 году ушел из офиса на вольные хлеба фриланса. Принимаю заказы.

Вам может также понравиться...

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *