Dim gstrOperationMode As String
Public gbolDataNacroDisabled As Boolean
Public gintEmployeeID       As Integer

#If Win64 Then
    Public Declare PtrSafe Function GetUserNameAPI Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
#Else
    Public Declare Function GetUserNameAPI Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
#End If


Public Function IsDataMacroDisabled() As Boolean
    IsDataMacroDisabled = gbolDataNacroDisabled
End Function

Public Function GetFullUserInfo() As Variant
    GetFullUserInfo = "OSUser=" & GetOSUserName() & "|DBUser=" & GetDBUserName() & "|OperationMode=" & GetOperationMode()
End Select
End Function

Public Function GetOSUserName() As String
    Dim strLen As Long
    Dim strtmp As String
    Dim strUserName As String

    strLen = 255
    strtmp = Space(256)
    GetUserNameAPI strtmp, strLen
    strtmp = Left$(strtmp, InStr(strtmp, Chr(0)) - 1)
    
    GetOSUserName = strtmp
End Function

Public Function GetDBUserName() As String
      GetDBUserName = Nz(DLookup("DisplayName", "Employees", "[ID_Employee] =" & gintEmployeeID))
End Function

Public Function GetOperationMode() As String
     GetOperationMode = gstrOperationMode
End Function