DataWindowChild dwc_1
int ii_dddw_detail_height =  0 

nt li_parent_id,li_curr_id,li_currentrow
long ll_type,ll_typeparent

if  IsNULL(dwc_1) then  return
if  not IsValid(dwc_1) then  return

li_currentrow=this.GetRow()
if li_currentrow<= 0  then return  1 

if this.GetColumnName ( )="obj_parent" then

   this.Update()
   commit;
	
   dwc_1.SetTransObject(sqlca)
   dwc_1.Retrieve()
	 
	ll_type=this.GetItemNumber(li_currentrow,'type_id')
	SetNULL(ll_typeparent)
	
	//Получаем родительский тип
   select type_parent
   into :ll_typeparent
   from xxx.xxx
   where type_id=:ll_type;

  if sqlca.sqlcode<> 0  then 
       messagebox("Помилка код <"+string(sqlca.sqlcode)+ "> ","Помилка : текст повідомлення сервера "+ sqlca.SQLErrText,StopSign!)
  end if
	 
 if not IsNULL(ll_typeparent) then
	string ls_old_filter
	
	if IsValid (dwc_1)  then
	   if ii_dddw_detail_height =  0   then 
               //Получаем высоту списка
               ii_dddw_detail_height = Integer(dwc_1.Describe( "Datawindow.Detail.Height")) 
         end if 
 
        dwc_1.SetRedraw(FALSE) 
        // Сбрасываем высоту всех строк на высоту по умолчанию
        dwc_1.SetDetailHeight( 1 ,dwc_1.RowCount(), ii_dddw_detail_height ) 
 
       
         dwc_1.SetFilter("type_id <> " + string( ll_typeparent )+" and  type_id <> 0"  )
    
	
	dwc_1.Filter()
	// Устанавливаем высоту строк для "ненужных" элементов  0 
	dwc_1.SetDetailHeight(  1 , dwc_1.RowCount(),  0  ) 
	// Возвращаем старый фильтр
	dwc_1.SetFilter("") 
	dwc_1.Filter() 
	//Отключаем перерисовку
	dwc_1.SetRedraw(TRUE)
	dwc_1.SelectRow( 0 , FALSE)
     end if
 end if
end if