create FUNCTION [dbo].[fnRawXMLToHTML](
						 @xml			xml					--	xml-данные в формате raw
						,@th_bgcolor	varchar(20)=null	--	Цвет строки с подписями
)
RETURNS nvarchar(max)
AS
BEGIN
	declare @html nvarchar(max)
	declare @th xml, @td xml
	declare @MoneyFormat nvarchar(20)='###'+char(160)+'###'+char(160)+'##0.00'

	declare @xmlschema table (FieldName nvarchar(100), FieldType nvarchar(100))

	--	Если задана схема
	insert into @xmlschema 
		(FieldName, FieldType)
	select 
		x.z.value('@name', 'varchar(100)') as q 
		,isnull(x.z.value('@type', 'nvarchar(100)'),x1.z1.value('@base', 'nvarchar(100)')) as q1 
	from 
	@xml.nodes('*/*/*/*/*:element') as x(z) 
	outer apply x.z.nodes('*:simpleType/*:restriction') as x1(z1)

	--	Подписи
	set @th=
			(select 
				@th_bgcolor as 'tr/@bgcolor' 
				,(select replace(t.c.value('local-name(.)', 'nvarchar(100)'),'_',' ')  
				  from @xml.nodes('/*:row[1]/*') as t(c) 
				  where t.c.value('local-name(.)', 'nvarchar(100)')<>'trclass'
				  for xml path('th'), type) as tr 
			for xml path(''))

	--	Данные
	set @td=
			(select 	

				case when a.OneRow.value('./*:trclass[1]/text()[1]', 'int') is null 
					then case when row_number()over(order by (select 1)) % 2=1 then 'tr_class1' else 'tr_class0' end
					else 'tr_class'+cast(a.OneRow.value('./*:trclass[1]/text()[1]', 'int') as varchar)
				end   as 'tr/@class'

				,(select 
						  case 
								when a.FieldType in ('sqltypes:int', 'sqltypes:numeric', 'sqltypes:smallint', 'sqltypes:tinyint', 'sqltypes:money') then 'right'
								when a.FieldType in ('sqltypes:datetime') then 'center'
								else null 
						  end	as '@align'
						, 
						  case 
								when a.FieldType in ('sqltypes:money')						
									then Format(t1.c.value('./text()[1]', 'money'), @MoneyFormat) 
								when a.FieldType in ('sqltypes:datetime')
									then Format(t1.c.value('./text()[1]', 'datetime'), 'dd\.MM\.yyyy') 
								else t1.c.value('./text()[1]', 'nvarchar(1000)')  
						  end
						  	
				from a.OneRow.nodes('/*') as t1(c) 

				outer apply (
								select 
									x.FieldType
								from	@xmlschema x 	
								where  x.FieldName=t1.c.value('local-name(.)', 'nvarchar(100)') 
							) a

				where t1.c.value('local-name(.)', 'nvarchar(100)')<>'trclass'

				for xml path('td'), elements, type) as tr

			from
				(select
					 t.c.query('./*') as OneRow
				from @xml.nodes('/*:row') as t(c) ) a
				
			for xml path(''))

	--	"Склейка" результату (char(10) ==> < br />)
	set @html = isnull(cast(@th as nvarchar(max)), '')+isnull(replace(cast(@td as nvarchar(max)),char(10),'< br />'), '')

	--
    return @html   
END