por si a alguien le interesa, lo hicimos andar de la siguiente forma:
esto cancela las aplicaciones conectadas al la bdd y cierra los archivos.
sldos
Silvina
FUNCTION BDDKILL
*===============
LOCAL aUsuarios , nFor , nManejador
AdsMgConnect( 'W:' ) //, nil, nil, @nManejador )
aUsuarios := AdsMgGetUserNames()
FOR nFor := 1 TO len( aUsuarios )
msginfo( aUsuarios[ nFor ][ 1 ] )
AdsMgKillUser( aUsuarios[ nFor ][ 1 ] , 0 )
NEXT
AdsMgDisconnect()
Return( Nil )
↧