Код

Процедура СтоимостьТабличноеПолеВыбор(Конт)
	ТЗ_Стоимость.ПолучитьСтрокуПоНомеру(Конт.ТекущаяСтрока);
	ИмяКолонки=Конт.ТекущаяКолонка.Имя;
	Если ИмяКолонки="ВидСтоимости" Тогда
		ТЗ_Стоимость.ФлагВывода=?(ТЗ_Стоимость.ФлагВывода=1,0,1);
	ИначеЕсли ИмяКолонки="Валюта" Тогда
		ВыбВалюта=ТЗ_Стоимость.Валюта;
		СпрВал=CreateObject("Valuelist");
		_rs=CreateObject("ODBCRecordset");
		_rs.RPCMode(1);
		_rs.ExecuteStatement("
		|set nocount on
		|select
		|	val.id as [Элемент $Справочник.Валюты]
		|,	$val.Кратко+' '+val.descr
		|from
		|	$Справочник.Валюты val
		|where
		|	val.ismark = 0",СпрВал);
		//Если СпрВал.ВыбратьЗначение(ВыбВалюта,,,20,2)=0 Тогда
		Если глСервис.ВыбратьЗначение(СпрВал,ВыбВалюта,,0,2)=0 Тогда
			Возврат;
		КонецЕсли;
		ТЗ_Стоимость.Валюта=ВыбВалюта;
	КонецЕсли;
	Конт.ОбновитьСтроки();
КонецПроцедуры