ls_Syntax = ads_datastore.Describe("DataWindow.Syntax")
ll_Pos = Pos(ls_Syntax, "export.xml")
if IsNull(ll_Pos) then
	as_ErrorMessage = "Не удалось распознать синтаксис DataWindow."
	return false
end if
if ll_Pos =  0  then
	as_ErrorMessage = "Не удалось распознать синтаксис DataWindow."
	return false
end if
ls_Syntax = Mid(ls_Syntax, ll_Pos, Len(ls_Syntax) - ll_Pos)
ll_Pos = Pos(ls_Syntax, 'name="' + as_template + '" xml="<?xml')
if IsNull(ll_Pos) then
	as_ErrorMessage = "Не удалось найти шаблон " + as_template+ " для DataWindow."
	return false
end if
if ll_Pos =  0  then
	as_ErrorMessage = "Не удалось найти шаблон " + as_template+ " для DataWindow."
	return false
end if
ls_Syntax = Mid(ls_Syntax, ll_Pos + len('name="' + as_template + '" xml="<?xml') - &
						 5 , Len(ls_Syntax) - ll_Pos)
ll_NumCol = Pos(ls_Syntax, '>")')
if IsNull(ll_NumCol) then
	as_ErrorMessage = "Не удалось распознать шаблон " + as_template+ " в DataWindow."
	return false
end if
if ll_NumCol =  0  then
	as_ErrorMessage = "Не удалось распознать шаблон " + as_template+ " в DataWindow."
	return false
end if
ls_Syntax = Mid(ls_Syntax,  1 , ll_NumCol)
ll_Pos =  1 
do while ll_Pos <>  0 
	ll_Pos = Pos(ls_Syntax, '=~~"')
	if IsNull(ll_Pos) then exit
	if ll_Pos =  0  then exit
	ls_Syntax = Mid(ls_Syntax,  1 , ll_Pos) + '"' + Mid(ls_Syntax, ll_Pos +  3 , Len(ls_Syntax))
loop
ll_Pos =  1 
do while ll_Pos <>  0 
	ll_Pos = Pos(ls_Syntax, '~~"')
	if IsNull(ll_Pos) then exit
	if ll_Pos =  0  then exit
	ls_Syntax = Mid(ls_Syntax,  1 , ll_Pos -  1 ) + Mid(ls_Syntax, ll_Pos +  1 , Len(ls_Syntax))
loop
ls_ValueTmp = ""
if XMLParseString(ls_Syntax, ValNever!, ls_ValueTmp, TRUE, TRUE) <>  0  then
	as_ErrorMessage = ls_ValueTmp
	return false
end if