Код

RS.УстановитьТекстовыйПараметр("ТекДок",ТабДок.Док.ТекущийДокумент());
ВидДокумента=ТабДок.Док.Вид();

ТекстЗапроса = "
	|SELECT
	|    Док.IDDoc as [Док $Документ."+СокрЛП(ВидДокумента)+"],
	|	$Док.НаклНомер as НаклНомер
	|FROM
	|    $Документ."+СокрЛП(ВидДокумента)+" as Док
	|WHERE
	|    Док.IDDoc = :ТекДок";

//RS.Отладка(1);
ТЗ = RS.ВыполнитьИнструкцию(ТекстЗапроса);
ТЗ.ВыбратьСтроку(0); 

Код

select
j.iddoc iddoc,
j.iddoc [Док $Документ],
j.iddocdef Док_вид
from _1sjourn j (nolock)
where
j.iddoc=:ВыбДок
 

Код

текID = ЗначениеВСтрокуВнутр( ТабДок.Док.ТекущийДокумент()  );
		текID = Сред(текID, СтрДлина(текID)-14,  13); 

Код

RS.УстановитьТекстовыйПараметр("ВыбДок",ТабДок.Док.ТекущийДокумент());
		ВидДокумента=ТабДок.Док.Вид();

		ТекстЗапроса = "
		|select j.iddoc iddoc, j.iddoc [Док $Документ], j.iddocdef as [Док $Документ."+СокрЛП(ВидДокумента)+"]
		|from _1sjourn j (nolock)
		|where j.iddoc=:ВыбДок"; 

Код

select j.iddoc iddoc, j.iddoc [Äîê_1c_type_Äîêóìåíò], j.iddocdef as [Äîê_1c_type_Äîêóìåíò_äîê_ÍàêëàäíàÿÐîçíèöû]
from _1sjourn j (nolock)
where j.iddoc='  7ZXX   ' 

Код

Зн36 = _IdToStr(текID);