Есть форма. На ней есть кнопка. на кнопке зашит такой код:

_myprg=SYS(2015)
SET NOCPTRANS TO frx, frt
COPY MEMO frx TO (_myprg+'.frx')
COPY MEMO frt TO (_myprg+'.frt')
ACTIVATE MENU _MSYSMENU NOWAIT
MODIFY REPORT (_myprg)
DEACTIVATE MENU _MSYSMENU
APPEND MEMO frx FROM (_myprg+'.frx')
APPEND MEMO frt FROM (_myprg+'.frt')
ERASE (_myprg+'.frx')
ERASE (_myprg+'.frt')

При первом нажатии все работает как надо. При повторном на команде modify report выдает сообщение: File is in use

Никто не сталкивался?

Keeper2009,
ВСех-всех таблиц не получится - это довольно большой проект. А смысла Use in (_myprg) не вижу по 2-причинам: 1: он не открыт нигде. 2: при повторном нажатии _myprg имеет другое значение -> для fox'а это просто другой отчет.
На тему дополнительно открытых файло сделал проверку:
IF !USED('Testalias')
CREATE CURSOR Testalias (nom N(3), al1 C(15), al2 C(15))
FOR i=1 TO 255
INSERT INTO Testalias (nom, al1) VALUES (i, ALIAS(i))
endf
ELSE
FOR i=1 TO 255
UPDATE Testalias SET al2=ALIAS(i) WHERE nom = i
endf
SELECT Testalias
BROWSE NORMAL FOR al1 # al2
ENDIF
при повторном срабатывании дает пустую выборку, те дополнительно ничего не открыто.

Keeper2009,

нет. я же отписался о проверке

Помогло overwrite в Append