&&Дорисовываю если нету...
Parameters ne_nado_grida
LOCAL oNod
thisformset.form1.Enabled = .F.
thisformset.form1.tree1.object.Enabled = .F.
wait window '' timeout  0 . 05    &&Иногда появляется проблема с плавным со-
скакиванием с ветви дерева...(просто я вырезал кусок проги... у меня там 
еще куча сееков висит и разной фиг..)
oNod = thisForm.Tree1

**************строим дерево если нет дочерних**********************
if oNod.object.selecteditem.children =  0 
    sele * from knigi where knigi.kodvidrab = my_kd_vidrab and
    &my_and and &my_and2 into cursor knigi_my_vrem
    sele knigi_my_vrem
    scan
        perem_knigi = '__' + alltrim(str(knigi_my_vrem.kodknigi))
        oNod.Nodes.Add(perem_vidrab,  4 , perem_knigi, iif(lingvrus, alltrim
(knigi_my_vrem.shifrknig) + ' ' + alltrim(knigi_my_vrem.naimr), alltrim
(knigi_my_vrem.shifrknig) + ' ' + alltrim(knigi_my_vrem.naimu)),  0 )
    endscan
endif

**************раскрываем текущую ветку**********************
IF thisform.tree1.object.selecteditem.children >  0 
         thisform.tree1.selecteditem.expanded=.t.
ENDIF
thisformset.form1.Enabled = .t.
thisformset.form1.tree1.object.Enabled = .t.

    sele vidrab  && 20  записей
    scan
        perem_vidrab = '_' + alltrim(str(vidrab))
        oNod.Nodes.Add('',  4 , perem_knigi, iif(lingvrus, alltrim
(vidrab.nomer) + ' ' + alltrim(vidrab.naimr), alltrim
(vidrab.nomer) + ' ' + alltrim(vidrab.naimu)),  0 )
    endscan

&&Дорисовываю если нету...
Parameters ne_nado_grida
LOCAL oNod
thisformset.form1.Enabled = .F.
thisformset.form1.tree1.object.Enabled = .F.
wait window '' timeout  0 . 05    &&Иногда появляется проблема с плавным со-
скакиванием с ветви дерева...(просто я вырезал кусок проги... у меня там 
еще куча сееков висит и разной фиг..)
oNod = thisForm.Tree1

**************строим дерево если нет дочерних**********************
if oNod.object.selecteditem.children =  0 
    sele * from knigi where knigi.kodvidrab = my_kd_vidrab and
    &my_and and &my_and2 into cursor knigi_my_vrem
    sele knigi_my_vrem
    scan
        perem_knigi = '__' + alltrim(str(knigi_my_vrem.kodknigi))
        oNod.Nodes.Add(perem_vidrab,  4 , perem_knigi, iif(lingvrus, alltrim
(knigi_my_vrem.shifrknig) + ' ' + alltrim(knigi_my_vrem.naimr), alltrim
(knigi_my_vrem.shifrknig) + ' ' + alltrim(knigi_my_vrem.naimu)),  0 )
    endscan
endif

**************раскрываем текущую ветку**********************
IF thisform.tree1.object.selecteditem.children >  0 
         thisform.tree1.selecteditem.expanded=.t.
ENDIF
thisformset.form1.Enabled = .t.
thisformset.form1.tree1.object.Enabled = .t.

Procedure obrob_error_kovpl
Param kod_oshibki, kakai_messaga, kakai_messaga1, gde, my_line

my_alias = alias()
*susp
*messagebox('Îøèáêà '+alltrim(str(kod_oshibki)), 64 ,'')

If kod_oshibki =  1923  or kod_oshibki =  1924  or kod_oshibki =  1001 
	Return
Endif

do case
	case kod_oshibki =  1104 
=messagebox(' Возможно, компьютер администратора был отключен или
произошел сбой в сети. ' + chr( 10 ) + ; ' Программа будет закрыта ', 64 ,' 
Ошибка ')
		Clear Events
		ON SHUTDOWN
		Quit
		
	case kod_oshibki =  1943 
		Return

	otherwise
ln=messagebox(' В процессе Вашей работы в методе(программе) ' + IIF(Type
('gde')= "C" ,gde,'') + ' (позиция: ' +; IIF(Type('my_line')= "N" ,alltrim(str(my_line)),'') 
+ '), возникла ошибка: ' + chr( 10 ) +; kakai_messaga + chr( 10 ) +; ' Мы будем 
благодарны Вам, если Вы обратитесь к разработчикам.' + chr( 10 ) +; chr( 10 ) + ' 
Рекомендуется не продолжать выполнение программы и корректно закрыть 
приложение.' +; chr( 10 ) + ' Продолжить выполнение 
программы? ', 0 + 64 + 1 ,'Ошибка') 
		IF ln #  1 
			IF TYPE( "My_form_pereindex" ) =  "O"  AND !ISNULL(My_form_pereindex)
				My_form_pereindex.Release
				My_form_pereindex = ''
			ENDIF
			FOR my_form_vis =  1  to _screen.formcount
				IF _screen.forms[my_form_vis].Visible = .T.
					_screen.forms[my_form_vis].Enabled = .T.
				ENDIF
			ENDFOR
			CANCEL
		ENDIF
endcase