Nina_G
Я думаю, что тут дело в меню!
Ваш код натолкнул меня попробовать запустить процедуру Архив не из меню, а по нажатию горячей кнопки.
Всё получилось отлично!
Но заказчик не хочет отказываться от меню (define menu m1 bar in screen)). Стала тестировать на то, как другие процедуры, вызываемые из меню, возвращают управление в browse.
Поиск вызванный из меню возвращает управление browse, а вот просмотр записей бланком, если вызывать из меню, а не по горячей кнопке, то проблема та же, что и с Архивом.
Всю голову уже сломала. Очень хочется грохнуть это меню, но заказчик против

Nina_G
Поиск вызванный из меню возвращает управление browse, а вот просмотр записей бланком, если вызывать из меню, а не по горячей кнопке, то проблема та же, что и с Архивом.

Nina_G
Код очень навороченный с кучей процедур и окон. :-(

akvvohinc
Если Browse при этом закроется, то проблема в процедуре, а не в меню.

ry
Так и не понял из всех сообщений: в процедуре, вызываемой из меню, пробовали прописывать CLEAR READ, как советовал of63?

Nina_G

ry
Так и не понял из всех сообщений: в процедуре, вызываемой из меню, пробовали прописывать CLEAR READ, как советовал of63?

Да. Форма закрывается по нажатию на кнопку Закрыть, при этом выполняется команда Clear read. Read завершает свою работу, так как дальше выполняется команда release windows wBlank.

Nina_G

Read cycle 
release windows wBlank

Nina_G
На экране меню, под ним browse. В меню есть пункт "Бланк" по выбору которого запускается процедура pBlank. Эта же процедура запускается если нажать на клавишу f4.
Процедура pBlank представляет собой новое окно, в котором отображаются записи таблицы из browse и из связанных с ней таблиц. В этом окне есть три кнопки "Предыдущая", "Следующая", "Закрыть".
Если данную процедуру вызывать по горячей кнопке, то после перемещений в бланке на другие записи и закрытия окна бланка, управление передаётся browse, в котором текущей записью становится та запись, на которой остановились в бланке. Если вызывать эту же процедуру из меню, то после закрытия окна Бланка, непонятно к чему передалось управление, так как ни один пункт меню не подсвечен и browse не активен, при этом пару раз щёлкнув на browse он всё-таки становится активным, но курсор записи оказывается не на той записи, на которой остановились в бланке.

set talk off
on key label f4 do pBlank
on key label f10 activate menu m1
Define menu m1 bar in screen
define pad m11 of m1 prompt 'Бланк'
on selection pad m11 of m1 do pBlank 
CREATE CURSOR curs1 (name C(20))  
INSERT INTO curs1 VALUES('Таблица1 - запись 1')  
INSERT INTO curs1 VALUES('Таблица1 - запись 2')  
INSERT INTO curs1 VALUES('Таблица1 - запись 3')  
go top
m.title='Актуальная'
do while .T.
   define window w1 from 1,1 to 20,70 title m.title
   activate window w1
   browse  in w1
   if lastkey()=27
      exit
   endif
enddo

clea all

procedure pBlank
define window wBlank from 3,6 to 22,72
activate window wBlank
lnext=iif(eof(),'\\','')
lpred=iif(bof(),'\\','')
*----
*блок разных say,get
*----
@ 16,6 say 'Следующая'+space(13)+'Предыдущая'+space(14)+'Выход'
@ 16,5 get m.but default 1 size 1,12,10 picture '@*IH '+lNext+';'+lPred+';' valid pbut()
read cycle
release window wBlank


procedure pbut
do case
case m.but=3
   clear read
case m.but=1
   if !eof()
      skip
   endif
   scatter memvar
   @17,6 say 'Запись N '+allt(str(recno()))
   *блок обновления данных на форме
case m.but=2
   if !bof()
      skip -1
   endif
   scatter memvar
   @17,6 say 'Запись N '+allt(str(recno()))
   *блок обновления данных на форме
endcase

Цитата:

после закрытия окна Бланка, непонятно к чему передалось управление, так как ни один пункт меню не подсвечен и browse не активен, при этом пару раз щёлкнув на browse он всё-таки становится активным

activate window w1

akvvohinc
Поэтому после закрытия wBlank попробуйте активизировать это окно явно

Nina_G
Пробовала также деактивировать меню - тоже не помогло.

Crispy
порядок расположения команды деактивации - она случайно не после read стоит?

 activate window w1 NOSHOW
 activate window wBlank
 READ 

Crispy
Можно также попробовать и вовсе вставить ее сразу в определении меню в ON SELECTION MENU

procedure pMenu 
if pad()='m14'
   do pBlank
endif

define menu m1 bar in screen
define pad m12 of m1 prompt 'Поиск'
define pad m14 of m1 prompt 'Бланк'
on pad m12 of m1 activate popup pSeek
define popup pSeek
define bar 1 of pSeek prompt 'По А'
define bar 2 of pSeek prompt 'По Б'
on selection bar 1 of pSeek do pA
on selection bar 2 of pSeek do pBlank  &&pB -