Использую в документах, при очистке/смене реквизита(общего/шапки ) типа справочник, если в документе есть другие реквизиты тип которых подчиненный справочник справочнику очищаемого реквизита.

//очищает реквизиты типа справочник.ххх которые подчинены типу реквизита ИмяРеквизита,
//ИмяРеквизита - наименование реквизита с типом справочник.ххх
Процедура глОчиститьПодчиненныеРеквизиты(Конт,ВидДокумента,ИмяРеквизита) Экспорт
	Попытка
		ЭтоДок = ?(ПустоеЗначение(Конт.НазваниеДокумента) = 0,1,1)
	Исключение
		ЭтоДок = 0;
		Возврат;
	КонецПопытки;

	ПолныйТипВидСпр = "";
	//проверка входных данных
	Если ПустоеЗначение(ИмяРеквизита) = 0 Тогда
		Если (Метаданные.ОбщийРеквизитДокумента(ИмяРеквизита).Выбран() = 1)
			или(Метаданные.Документ(ВидДокумента).РеквизитШапки(ИмяРеквизита).Выбран() = 1) Тогда
				Попытка
					Если (Метаданные.ОбщийРеквизитДокумента(ИмяРеквизита).Тип = "Справочник") Тогда
						ПолныйТипВидСпр = "Справочник." + ПолныйТипВидСпр + Метаданные.ОбщийРеквизитДокумента(ИмяРеквизита).Вид;
					КонецЕсли;
				Исключение
					Попытка
						Если Метаданные.Документ(ВидДокумента).РеквизитШапки(ИмяРеквизита).Тип = "Справочник" Тогда
							ПолныйТипВидСпр = "Справочник." + Метаданные.Документ(ВидДокумента).РеквизитШапки(ИмяРеквизита).Вид
						КонецЕсли;
					Исключение
					КонецПопытки;
				КонецПопытки;
				//ПолныйТипВидСпр = п = етаданные.ОбщийРеквизитДокумента(ИмяРеквизита).Вид);
		КонецЕсли;
	КонецЕсли;
	Если ПолныйТипВидСпр = "" Тогда
		Возврат;
	КонецЕсли;
	//очистка
	//общие реквизиты
	for ж=1 to Метаданные.ОбщийРеквизитДокумента()
	do
		if Метаданные.ОбщийРеквизитДокумента(ж).Тип = "Справочник" then
			Попытка
				if ) = 1 then
					if дентификатор() = ПолныйТипВидСпр then
						Конт.УстановитьАтрибут(Метаданные.ОбщийРеквизитДокумента(ж).Идентификатор ;
						//Сообщить("очищен " +Метаданные.ОбщийРеквизитДокумента(ж).Идентификатор);
					endif
				endif
			Исключение
			КонецПопытки;
		endif;
	EndDo;
	//реквизиты шапки
	for жж=1 to Метаданные.Документ(ВидДокумента).РеквизитШапки()
	Do
		Попытка
			if ладелец.Выбран() = 1 then
				if ладелец.ПолныйИдентификатор() = ПолныйТипВидСпр then
					ификатор Шапки(жж).Вид));
					//Сообщить("очищен " +Метаданные.Документ(ВидДокумента).РеквизитШапки(жж).Идентификатор);
				endif;
			endif;
		Исключение
		КонецПопытки;
	EndDo;

КонецПроцедуры //ОчиститьПодчиненныеРеквизиты(Конт,ВидДокумента,ИмяРеквизита) 

Например распространенная пара реквизитов Контрагент, Договор

А что такое Конт.НазваниеДокумента ??
Это же не универсально

ev-kov писал(а) 05. Сентября 2008 :: 01:38:

Неуниверсальность в том, что нету у документов стандартного реквизита "НазваниеДокумента"
А определить, что контекст это документ, просто - Конт.ДатаДок в попытке.
Если исключения нет, это документ.
И никаких левых реквизитов

ev-kov писал(а) 05. Сентября 2008 :: 04:21:

Прочитав сообщение, очень удивился. Неужели  не заметил такое важное свойство?
Решил проверить. В процедуре ПриОткрытии() написал следующее:

Сообщить(глВзятьКонтекст(Контекст).НазваниеДокумента); 

Ан нет, чуда не произошло. Программа выдала вполне ожидаемый результат:

Сообщить(глВзятьКонтекст(Контекст).НазваниеДокумента);
{Документ.ПредварительныйСчет.Форма.Модуль(2795)}: Поле агрегатного объекта не обнаружено (НазваниеДокумента) 

Напрашивается следующий вывод: или я не умею готовить   упомянутое свойство, или уважаемый ev-kov что-то путает. Рискну предположить, что "НазваниеДокумента" - общий реквизит документа.

Предложение artbear универсально на все 100%. Более того, подобный подход я встречал в конфигурации Rocket Launcher (поправьте, если неправильно написал) - перенос данных по OLE. Там для того, чтобы определить, со значением какого типа приходится работать, в блоке Попытка-КонецПопытки вывался атрибут или метод объекта, уникальный только для объектов этого типа: например, для справочника "Код", для документа - "НомерДок" и т.д.

artbear писал(а) 05. Сентября 2008 :: 03:30:


вариант конечно проще моего, спасибо

dnp писал(а) 05. Сентября 2008 :: 09:01:

мда, тупанул, спасибо что поправили
LOL

ЗЫ: конфа самописка, но на форме есть такое реквизит, вспомнил