Код

Перем _rs;
//-----
Процедура УдалитьФункцию(ИмяФункции)
	_rs.executeStatement("
	|if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].["+ИмяФункции+"]') and xtype in (N'FN', N'IF', N'TF'))
	|begin drop function [dbo].["+ИмяФункции+"] end");
КонецПроцедуры
Процедура СформироватьПользФункции()
// 1. Есть ли налоговая накладная у документа ЧекКА для журнала Чеки
	ИмяФункции="fn_estnn";
	УдалитьФункцию(ИмяФункции);
	ТекстЗ="create function dbo."+ИмяФункции+" (@docum char(23))
	|returns smallint
	|as
	|begin
	|declare @est smallint
	|set @est =
	|(
	//|set nocount on
	|select
	|	max(V._status)
	|from
	|	(select
	|		_status = case
	|				when D.Cl = 1 then 12
	|				when (D.Cl = 0 and D.Mr = 0) then 10
	|				when D.Mr = 1 then 7
	|			else 0
	|			end
	|	from
	|		(select
	|			j.iddoc _Doc,
	|			j.iddocdef _Doc_вид,
	|			j.closed&1 Cl,
	|			j.ismark Mr
	|		from _1scrdoc Подч(nolock)
	|			inner join _1sjourn j(nolock) on Подч.childid = j.iddoc
	|		where
	|			j.iddocdef = $ВидДокумента.НалоговаяНакладная and
	|			Подч.mdid = 0 and
	|			Подч.parentval = @docum
	|		) D
	|	) V
	|)
	|return (@est)
	|end";
	_rs.executeStatement(ТекстЗ);
// 2. Табличная часть Счета для журнала "Счета"
	ИмяФункции="fn_tovar_scheta";
...
	Сообщить("Загрузка пользовательских функций закончена!");
КонецПроцедуры
//-----
_rs=СоздатьОбъект("ODBCRecordset");