DO FORM prihs NAME prihs linked
IF isform('prihs')> 0  && проверка её наличия на экране
	givefocus('prihs') && если найдена, дать ей фокус
	return
endif

******************************
Function isform
******************************
* Проверка наличия на экране
* формы, заданной именем.
* Возвращает числовое значение.
param form_name
local i,ii
for i= 1  to _SCREEN.formcount
	ii=_SCREEN.forms(i)
	if ALLTRIM(upper(ii.name))==alltrim(upper(form_name))
		return i
	endif
next
return  0 

******************************
Function givefocus
******************************
* Перевести фокус на форму
* по ее имени.
param form_name
local i,ii
for i= 1  to _SCREEN.formcount
	ii=_SCREEN.forms(i)
	if ALLTRIM(UPPER(ii.name))==ALLTRIM(UPPER(form_name))
		ii.windowstate= 0 
		ii.show
		exit
	endif
next
return .f.