Clarion - como cerrar archivos en surce en clarion 6.3

hola a todos. tengo un browse donde elijo una factura y un boton que llama a un surce que la elimina de todos los archivos donde esta grabada. El surce empieza con:

share(stock)
share(facturas)
share(ctactecl)
share(confact)
share(asientos)
share(pases)
share(general)
share(remitos)
share(ivaventas)

if FAfec = FALSE
logout(10,stock,facturas,ctactecl,confact,asientos,pases,general,remitos,ivaventas)

etc

y cuando cerraba el browse me aparecia un mensaje de error donde decia que los archivos estaban abiertos.
Entonces quiero agregar:

close(stock)
close(facturas)
close(ctactecl)
close(confact)
close(asientos)
close(pases)
close(general)
close(remitos)
close(ivaventas)
close(afecnc)

para que desaparezca este error y al cerrar el browse me aparece un mensaje que dice:

asertion failed on line 583in file ...The file is still open...

alguien podria decierme como abrir y cerrar archivos en surce y windos con clarion 6.3?? yo antes con el 5.5 lo hacia sin problemas

muchas gracias

mmm... si es un procedure de tipo source.

Entonces en propiedades del procemientos hay una opcion de Open files la activas

y en un embed al final agregas

Do closefiles