define function !!SetTrayVol()
!a= !!alert.input('высота резеврного объёма','0')
--q var !a
!desparr[1] = !a.real()

	!selection = object SELECTION()
	!selection.getCurrent()
	!selectionList = !selection.getSelection()
	if (!selectionList.size() eq 0) then
		$P 'Не указан ни один элемент'
		return
	endif
	--------------------------------------
	!bcol = array()
	do !i from 1 to !selectionList.size()
		!ce = !selectionList[!i]
		!bcol.append(name of bran of $!ce)
		handle any
		--$p $!ce not bran
		endhandle
		
		!bcol.append(name of cwbran of $!ce)
		handle any
		--$p can't find cwbran for $!ce 
		endhandle
	enddo
	
	!ubcol = !bcol.sortunique()
	q var !bcol
	do !J values !ubcol
	  claim $!J
	  var !elemcol collect all bran mem with ( type neq 'TUBI' )  for $!J
	  do !JJ values !elemcol
	    --if ( dtref of $!JJ eq /CT2/SL/70/FIX/DTSE or dtref of $!JJ eq /CT2/SL/E90/70/L/RUNG5-DTSE or dtref of $!JJ eq /CT2/SL/70-VAR/DTSE or dtref of $!JJ eq /CT2/SL/E90/70/R/RUNG5-DTSE ) then
		--!!setprop(!JJ.dbref(),'VTSV',!a.real())
		!!setprop(!JJ.dbref(),'RZRV',!a.real())
	      --!JJ.dbref().desp = !desparr
	    --endif
	  enddo
	  var !elemcol collect all ctray for $!J
	  do !JJ values !elemcol
	    $p $!JJ
		!!setprop(!JJ.dbref(),'RZRV',!a.real())
	  enddo
	enddo
endfunction
