gistfile1.go

#include "protheus.ch"


Class Mil_AccessControl
	Method New() Constructor
	Method ExclusiveAccess()
	Method LoggedInUsers()
EndClass

Method New() Class Mil_AccessControl
Return Self

Method ExclusiveAccess() Class Mil_AccessControl
Return Len( self:LoggedInUsers() ) == 1

Method LoggedInUsers() Class Mil_AccessControl
	Local aLgUsers := GetUserInfoArray()
	Local nIdx     := 1
	Local aUsers   := {}
	For nIdx := 1 to Len(aLgUsers)
		AADD( aUsers, aLgUsers[nIdx][1] )
	Next
Return aUsers