AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS Anpassungen DocType etc

Browse Source
This commit is contained in:
Developer01
2024-09-12 17:05:11 +02:00
parent c15a0ee5a0
commit b5ab9c5e1f
13 changed files with 285 additions and 239 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
app/DD-Record-Organizer/Classes/ClassInit.vb
View File

@@ -1,6 +1,7 @@
Imports System.IO
Imports DD_LIB_Standards
Imports DevExpress.DataAccess.Native
Imports DevExpress.XtraRichEdit.API.Native
Imports DigitalData.Modules.Config
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Logging
@@ -16,7 +17,7 @@ Public Class ClassInit
My.Application.Info.CompanyName,
My.Application.Info.ProductName)
LOGGER = LOGCONFIG.GetLogger()
LOGGER.Info("OrgFlow started")
LOGGER.Info("orgFLOW started")
Dim oUserAppDataPath As String = Application.UserAppDataPath
Dim oLegacyAppDataPath As String = Application.UserAppDataPath
@@ -238,7 +239,13 @@ Public Class ClassInit
For Each oRow As DataRow In oDTFF_CHANGE.Rows
FILE_FORMATS_CHANGE_DURING_EDIT.Add(oRow.Item("FILE_EXT"))
Next
oSql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE"
Dim oDTTBPMO_WD_OBJECTTYPE = MYDB_ECM.GetDatatable(oSql)
If oDTTBPMO_WD_OBJECTTYPE.Rows.Count = 1 Then
WMOBJECTTYPE = oDTTBPMO_WD_OBJECTTYPE.Rows(0).Item("OBJECT_TYPE").ToString
WMINDEX_DOCTYPE = oDTTBPMO_WD_OBJECTTYPE.Rows(0).Item("IDXNAME_DOCTYPE").ToString
WMINDEX_RELATION = oDTTBPMO_WD_OBJECTTYPE.Rows(0).Item("IDXNAME_RELATION").ToString
End If
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Unexpected Error in InitBasics2:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -350,11 +357,10 @@ Public Class ClassInit
LOGGER.Info($"User configured as an admin, but SHAREDRIVE ACTIVE - So WM_READ_ONLY = False!")
WM_READ_ONLY = False
End If
End If
If oMODULE_ACCES = False Then
If oMODULE_ACCES = False Then
LOGGER.Warn("User '" & USER_USERNAME & "' not authorized for using OrgFlow!")
'MsgBox("Achtung: Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
Dim msg = String.Format("Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")