Hola compañeros, tengo la siguiente pregunta....

Desde hace tiempo en mi proyecto, manejo una toolbar, y mis reportes son ascii, los cual visualizo con modi comm reporte.txt noedit

El problema viene cuando le doy salir a mi toolbar, y no se ha cerrado antes el reporte.

**************************************************

En el ACTIVATE del formulario, tengo lo siguiente:

WITH THISFORM
IF TYPE(".oToolbar") == "O" AND !ISNULL(.oToolbar)
RETURN
ENDIF

SET CLASSLIB TO Wizards ADDITIVE

.oToolbar = CREATEOBJ("tbrCapturasPrt",THISFORM)
.oToolbar.SHOW
.Nuevo()
ENDWITH

**************************************************

En el Init de la Toolbar

PARAMETER oForm

IF TYPE("m.oForm")#"O" OR ISNULL(m.oForm) OR UPPER(oForm.BaseClass) # "FORM"
=MESSAGEBOX("Debes de pasar una referencia a la forma para crear la toolbar.", 48, '')
RETURN .F.
ENDIF

THIS.oFormRef = oForm

THIS.DOCK (0,0,0)
**************************************************


En el boton Click del Boton Salir tengo...

CLOSE DATABASES
RELEASE ALL

THISFORM.oFormRef.Hide
THISFORM.oFormRef.Release

pnAccesos = .T.

Alguien le ha sucedido algo similar.... o tiene una forma mejor de aplicar las toolbar...

Disculpen si no me explique.... ;)

De antemano gracias....