integer li_needSplit, li_splitCnt, i, li_currCol, li_fullCnt, li_colCount
long ll_splitWidth
string ls_desc, ls_colCount

//Нужен ли вообще сплит, выбираем из ини-файла
li_needSplit = Integer(profileString(cgIniFile, "Sform " + string(idws.il_formid), "Split", '1'))
if li_needSplit =  0  then
	dw_sf.HSplitScroll = false
	return  1 
end if
//Сколько колонок закрепляем, выбираем из ини-файла
li_splitCnt = Integer(profileString(cgIniFile, "Sform " + string(idws.il_formid), "SplitColumnCount", '1'))

ls_colCount = dw_sf.Describe('DataWindow.Column.Count')
if (ls_colCount = '!') or (not isNumber(ls_colCount)) or isNull(ls_colCount) then
	dw_sf.HSplitScroll = false
	return  1 
end if
li_colCount = Integer(ls_colCount)
li_currCol =  1 
i =  0 
li_fullCnt =  0 						//Ширина, занимаемая колонками DW
ll_splitWidth =  0 					//Ширина, которую планируется зафиксировать
//Проверяем: если ВПРИНЦИПЕ не нужно прокрутки (отсутствует ScrollBar), то просто отменяем split
do while li_currCol < li_colCount
	ls_desc = dw_sf.Describe('#'+String(li_currCol)+'.width')
	if isNumber(ls_desc) then
		if i < li_splitCnt then
			ll_splitWidth += Long(ls_desc) +  9 
		end if
		li_fullCnt += Long(ls_desc) +  9 
		i = i +  1 
	end if
	li_currCol = li_currCol +  1 
	if i >  2000  then
		//На всякий случай выход из цикла
		i = li_colCount
	end if
Loop

if li_fullCnt < dw_sf.width -  20  then
	//Значит, полезная площадь отчета меньше области, выделенной для ее размещения, и ГОРИЗОНТАЛЬНАЯ
	//прокрутка НЕ НУЖНА!!! Ну и отменяем ее.
	dw_sf.HSplitScroll = false
	return  1 
end if

//закрепление колонок при прокрутке
if li_needSplit =  1  then
	dw_sf.HSplitScroll = true
	dw_sf.Modify('DataWindow.HorizontalScrollSplit = '+String(ll_splitWidth))
end if

return  1 

DataWindow.HorizontalScrollMaximum

PostEvent("ue_applySplit")

string ls_scroll
int li_scroll

ls_scroll = dw_sf.Describe("DataWindow.HorizontalScrollMaximum")

// Запись журнала
integer li_FileNum
String ls_Msg
	li_FileNum = FileOpen("c:\asu\sfquery.log", LineMode!, Write!);
	FileWrite(li_FileNum, "")
	FileWrite(li_FileNum, "Date   : " + String (Today()) + " " + String(Now()) + "~r~n")
	FileWrite(li_FileNum, ls_scroll)
	FileClose(li_FileNum)

if not isNumber(ls_scroll) then return

 li_FileNum = FileOpen("c:\asu\sfquery.log", LineMode!, Write!, Shared!, Append!);