ZAP errors out
Workaround:
1. uncommanded
local cRdd := (cAlias)->(RddName())
2. and before reopening insert
cFileName := UPPER(cPath+cFileName+cExtension)
ACTIVATE DIALOG oDlg CENTER
SELECT (cAlias)
IF lShared
USE
cFileName := UPPER(cPath+cFileName+cExtension)
TRY
dbUseArea( .F. , cRdd , cFileName , cAlias , .T. , .F. )
CATCH
MsgInfo( cFileName + CRLF + 'can not be opened (shared)' )
return nil
END
EVAL(::oWnd:oMsgBar:aItems[MSGSHARED]:bMsg)
END
↧