diff --git a/app/DD_PM_WINDREAM/frmMain.Designer.vb b/app/DD_PM_WINDREAM/frmMain.Designer.vb
index 7d4e609..816e660 100644
--- a/app/DD_PM_WINDREAM/frmMain.Designer.vb
+++ b/app/DD_PM_WINDREAM/frmMain.Designer.vb
@@ -93,6 +93,7 @@ Partial Class frmMain
Me.BarEditItem1 = New DevExpress.XtraBars.BarEditItem()
Me.RepositoryItemProgressBar1 = New DevExpress.XtraEditors.Repository.RepositoryItemProgressBar()
Me.bbtnitDashboardInv = New DevExpress.XtraBars.BarButtonItem()
+ Me.bsiGeneralInfo = New DevExpress.XtraBars.BarStaticItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@@ -507,9 +508,9 @@ Partial Class frmMain
'RibbonControl1
'
Me.RibbonControl1.ExpandCollapseItem.Id = 0
- Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage, Me.bbtniMetadataFile, Me.BarEditItem1, Me.bbtnitDashboardInv})
+ Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage, Me.bbtniMetadataFile, Me.BarEditItem1, Me.bbtnitDashboardInv, Me.bsiGeneralInfo})
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
- Me.RibbonControl1.MaxItemId = 18
+ Me.RibbonControl1.MaxItemId = 19
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.QuickToolbarItemLinks.Add(Me.bbtnitemInfo)
@@ -657,6 +658,14 @@ Partial Class frmMain
Me.bbtnitDashboardInv.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitDashboardInv.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.bbtnitDashboardInv.Name = "bbtnitDashboardInv"
'
+ 'bsiGeneralInfo
+ '
+ Me.bsiGeneralInfo.Id = 18
+ Me.bsiGeneralInfo.ImageOptions.SvgImage = CType(resources.GetObject("bsiGeneralInfo.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+ Me.bsiGeneralInfo.Name = "bsiGeneralInfo"
+ Me.bsiGeneralInfo.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
+ Me.bsiGeneralInfo.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
+ '
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroup4})
@@ -699,6 +708,7 @@ Partial Class frmMain
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiUser)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiLicenses)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiUserLoggedIn)
+ Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiGeneralInfo)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiVersion)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsilastsync)
Me.RibbonStatusBar1.ItemLinks.Add(Me.bsiDebug)
@@ -1499,4 +1509,5 @@ Partial Class frmMain
Friend WithEvents PrintPreviewBarCheckItem19 As DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem
Friend WithEvents Panel1 As Panel
Friend WithEvents bbtnitDashboardInv As DevExpress.XtraBars.BarButtonItem
+ Friend WithEvents bsiGeneralInfo As DevExpress.XtraBars.BarStaticItem
End Class
diff --git a/app/DD_PM_WINDREAM/frmMain.resx b/app/DD_PM_WINDREAM/frmMain.resx
index 383d8b2..7a17c3f 100644
--- a/app/DD_PM_WINDREAM/frmMain.resx
+++ b/app/DD_PM_WINDREAM/frmMain.resx
@@ -125,7 +125,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
- CAAAAk1TRnQBSQFMAgEBAgEAATQBBgE0AQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+ CAAAAk1TRnQBSQFMAgEBAgEAAUQBBgFEAQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -178,114 +178,10 @@
597, 17
-
- 17, 134
-
-
- GridControl_Docs
-
-
- DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-
-
- Panel1
-
-
- 0
-
-
- BindingNavigator1
-
-
- System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
-
-
- Panel1
-
-
- 1
-
-
- NavBarControl1
-
-
- DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-
-
- Panel1
-
-
- 2
-
-
-
- Fill
-
-
-
- Tahoma, 9pt
-
-
- 0, 146
-
-
- 1347, 360
-
-
-
- 4
-
-
- Panel1
-
-
- System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
-
-
- $this
-
-
- 3
-
392, 95
-
- 270, 198
-
-
- ContextMenuGrid
-
-
- System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
-
-
- Fill
-
-
- 233, 27
-
-
- 1114, 333
-
-
- 8
-
-
- False
-
-
- GridControl_Docs
-
-
- DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-
-
- Panel1
-
-
- 0
-
+
269, 26
@@ -314,6 +210,7 @@
Metadaten Datei anzeigen
+
False
@@ -366,6 +263,43 @@
Layout speichern
+
+ 270, 198
+
+
+ ContextMenuGrid
+
+
+ System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+
+ Fill
+
+
+ 233, 27
+
+
+ 1114, 333
+
+
+ 8
+
+
+ False
+
+
+ GridControl_Docs
+
+
+ DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+
+ Panel1
+
+
+ 0
+
17, 134
@@ -440,6 +374,9 @@
False
+
+ Segoe UI, 9pt
+
50, 23
@@ -569,6 +506,12 @@
541, 95
+
+ 219, 26
+
+
+ Starte Validierung für Profil
+
220, 30
@@ -722,11 +665,32 @@
2
-
- 219, 26
+
+ Fill
-
- Starte Validierung für Profil
+
+ Tahoma, 9pt
+
+
+ 0, 146
+
+
+ 1347, 360
+
+
+ 4
+
+
+ Panel1
+
+
+ System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ $this
+
+
+ 3
908, 17
@@ -734,6 +698,18 @@
519, 134
+
+ 234, 22
+
+
+ Popup Erinnerung inaktivieren
+
+
+ 234, 22
+
+
+ Monitor anzeigen
+
235, 48
@@ -915,18 +891,6 @@
True
-
- 234, 22
-
-
- Popup Erinnerung inaktivieren
-
-
- 234, 22
-
-
- Monitor anzeigen
-
1023, 17
@@ -1273,6 +1237,25 @@
NnoiIGNsYXNzPSJCbHVlIiAvPg0KICAgIDxwYXRoIGQ9Ik0yNC42LDExLjZsLTMsM2MwLjMsMC43LDAu
NCwxLjUsMC40LDIuNHYzaDR2LTNDMjYsMTUsMjUuNSwxMy4yLDI0LjYsMTEuNnoiIGNsYXNzPSJSZWQi
IC8+DQogIDwvZz4NCjwvc3ZnPgs=
+
+
+
+
+ AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z
+ LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+ dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAJoCAAAC77u/
+ PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+ IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+ MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+ Y2U9InByZXNlcnZlIiBpZD0iSW5mb3JtYXRpb24iIHN0eWxlPSJlbmFibGUtYmFja2dyb3VuZDpuZXcg
+ MCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5ZZWxsb3d7ZmlsbDojRkZCMTE1
+ O30KCS5CbHVle2ZpbGw6IzExNzdENzt9Cjwvc3R5bGU+DQogIDxwYXRoIGQ9Ik0yMSwxNGMtNSwwLTks
+ NC05LDljMCw1LDQsOSw5LDlzOS00LDktOUMzMCwxOCwyNiwxNCwyMSwxNHogTTIyLDI4aC0ydi02aDJW
+ Mjh6IE0yMiwyMGgtMnYtMmgyVjIweiIgY2xhc3M9IkJsdWUiIC8+DQogIDxwYXRoIGQ9Ik0xMCwyM2Mw
+ LTYuMSw0LjktMTEsMTEtMTFjMC4zLDAsMC43LDAsMSwwLjFWNEgzQzIuNCw0LDIsMy42LDIsM2MwLTAu
+ NiwwLjQtMSwxLTFoMTlWMWMwLTAuNi0wLjQtMS0xLTFIMyAgQzEuMywwLDAsMS4zLDAsM3YyMGMwLDEu
+ NywxLjMsMywzLDNoNy40QzEwLjIsMjUsMTAsMjQsMTAsMjN6IiBjbGFzcz0iWWVsbG93IiAvPg0KPC9z
+ dmc+Cw==
@@ -1987,6 +1970,12 @@
DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+ bsiGeneralInfo
+
+
+ DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
RibbonPage1
@@ -2637,9 +2626,6 @@
&Ansicht
-
- &Hintergrund
-
&Seiten Layout
@@ -2652,6 +2638,9 @@
Bars
+
+ &Hintergrund
+
PDF Dokument
diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb
index 688fa02..d7d2c78 100644
--- a/app/DD_PM_WINDREAM/frmMain.vb
+++ b/app/DD_PM_WINDREAM/frmMain.vb
@@ -214,7 +214,7 @@ Public Class frmMain
IDB_DOC_DATA_SQL = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING)
LOGGER.Debug($"Got the IDB_DOC_DATA_SQL..{IDB_DOC_DATA_SQL}")
End If
-
+ bsiGeneralInfo.Caption = "IDB active"
End If
@@ -837,9 +837,8 @@ Public Class frmMain
End If
If CHANGES_IN_ADMINISTRATION = True Then
- CURRENT_DT_PROFILES = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE where ACTIVE = 1")
- Dim oSQL = $"SELECT * FROM VWPM_CONTROL_INDEX ORDER BY PROFIL_ID,Y_LOC, X_LOC"
- DTVWCONTROLS_INDEX = ClassDatabase.Return_Datatable(oSQL)
+ LoadCURRENT_DT_PROFILES()
+ LoadVWPM_CONTROL_INDEX()
CHANGES_IN_ADMINISTRATION = False
End If
@@ -1552,6 +1551,13 @@ Public Class frmMain
' Save expanded GroupRows
If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.SaveViewInfo()
End Sub
+ Sub LoadCURRENT_DT_PROFILES()
+ CURRENT_DT_PROFILES = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE where ACTIVE = 1")
+ End Sub
+ Sub LoadVWPM_CONTROL_INDEX()
+ Dim oSQL = $"SELECT * FROM VWPM_CONTROL_INDEX ORDER BY PROFIL_ID,Y_LOC, X_LOC"
+ DTVWCONTROLS_INDEX = ClassDatabase.Return_Datatable(oSQL)
+ End Sub
Sub GetBaseData(pMode As String)
Dim oStopWatch As New RefreshHelper.SW("GetBaseData")
Try
@@ -1563,7 +1569,8 @@ Public Class frmMain
oSQL = String.Format("SELECT T.* FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_GET_ACTIVE_PROFILES_USER] ({0}))", USER_ID)
CURR_DT_VWPM_PROFILE_ACTIVE = ClassDatabase.Return_Datatable(oSQL)
If pMode = "bwBasicData" Then bwBasicData.ReportProgress(30)
- CURRENT_DT_PROFILES = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE where ACTIVE = 1")
+ LoadCURRENT_DT_PROFILES()
+
If pMode = "Load" Then
CURRENT_DT_PROFILE = CURRENT_DT_PROFILES.Clone()
End If
@@ -1578,14 +1585,7 @@ Public Class frmMain
BASEDATA_DT_PROFILE_SEARCHES_SQL = BASEDATA_DT_PROFILES_SEARCHES_SQL.Clone()
End If
If pMode = "bwBasicData" Then bwBasicData.ReportProgress(60)
- 'oSQL = String.Format("SELECT * FROM VWPM_PROFILE_USER WHERE USER_ID = {0}", USER_ID)
- 'CURRENT_DT_VW_PROFILE_USER = ClassDatabase.Return_Datatable(oSQL)
- 'If pMode = "bwBasicData" Then bwBasicData.ReportProgress(70)
- 'DTGRID_GROUPS = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_MAIN_VIEW_GROUPS WHERE ACTIVE = 1")
- 'oSQL = "SELECT * FROM TBPM_CHART"
- 'DT_CHARTS = ClassDatabase.Return_Datatable(oSQL)
- oSQL = $"SELECT * FROM VWPM_CONTROL_INDEX ORDER BY PROFIL_ID,Y_LOC, X_LOC"
- DTVWCONTROLS_INDEX = ClassDatabase.Return_Datatable(oSQL)
+ LoadVWPM_CONTROL_INDEX()
If pMode = "bwBasicData" Then bwBasicData.ReportProgress(80)
If pMode = "Load" Then
DTVWCONTROL_INDEX = DTVWCONTROLS_INDEX.Clone()
diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb
index eb4e882..645c059 100644
--- a/app/DD_PM_WINDREAM/frmValidator.vb
+++ b/app/DD_PM_WINDREAM/frmValidator.vb
@@ -1901,12 +1901,13 @@ Public Class frmValidator
End Try
End Function
- Private Function GetWMDocPathWindows(_CheckStandard As Integer)
+ Private Function GetDocPathWindows(_CheckStandard As Integer)
Try
Dim oResult As String
Dim oSQL = $"SELECT dbo.FNPM_GET_FILEPATH ({CURRENT_DOC_GUID},{_CheckStandard})"
oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING)
LOGGER.Debug($"Checking file 0 [{oResult}] exists?...")
+ WMDocPathWindows = String.Empty
If File.Exists(oResult) = False Then
'If USER_USERNAME = "SchreiberM" Then
' oResult = "\\dd-gan.local.digitaldata.works\DD-DFSR01\UserObjects\UserFiles\schreiberm\Desktop\AANG-3302-swbn.pdf"
@@ -1919,7 +1920,7 @@ Public Class frmValidator
oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING)
LOGGER.Debug($"Checking file 1[{oResult}] exists?...")
If File.Exists(oResult) = False Then
- LOGGER.Warn($"File {oResult} not existing!")
+ LOGGER.Warn($"GetDocPathWindows: File [{oResult}] not existing!")
Return False
End If
'End If
@@ -1933,7 +1934,7 @@ Public Class frmValidator
WMDocPathWindows = ""
OLD_Document_Path = ""
CURRENT_DOC_PATH = ""
- errormessage = $"Unexpected error in GetWMDocPathWindows: [{ex.Message}]!"
+ errormessage = $"Unexpected error in GetDocPathWindows: [{ex.Message}]!"
frmError.ShowDialog()
Return False
End Try
@@ -1995,7 +1996,7 @@ Public Class frmValidator
End If
LOGGER.Debug("Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'")
If CURRENT_DOC_GUID > 0 Then
- If GetWMDocPathWindows(0) = False Then
+ If GetDocPathWindows(0) = False Then
MsgBox("The file can not be diplayed!", MsgBoxStyle.Critical, ADDITIONAL_TITLE)
End If
If IDB_ACTIVE = False Then
@@ -2004,93 +2005,91 @@ Public Class frmValidator
End If
Else
Load_IDB_DOC_DATA()
-
If IDB_DT_DOC_DATA.Rows.Count = 1 Then
LOGGER.Debug("Got one IDB DocData Result")
End If
End If
'Beschriftung des Navigators
'lblNavigator_anzDok.Text = position & " of " & Anzahl_ValDoks & " files"
- If WMDocPathWindows <> String.Empty Then
- ' >> >> >> >> >> >>##### Das Dokument in Bearbeitung nehmen ###########################
- Dim sql = $"UPDATE TBPM_PROFILE_FILES SET IN_WORK = 1, IN_WORK_WHEN = GETDATE(), WORK_USER = '{USER_USERNAME}' WHERE GUID = {CURRENT_DOC_GUID}"
- ClassDatabase.Execute_non_Query(sql)
+ 'If WMDocPathWindows <> String.Empty Then
+ ' >> >> >> >> >> >>##### Das Dokument in Bearbeitung nehmen ###########################
+ Dim sql = $"UPDATE TBPM_PROFILE_FILES SET IN_WORK = 1, IN_WORK_WHEN = GETDATE(), WORK_USER = '{USER_USERNAME}' WHERE GUID = {CURRENT_DOC_GUID}"
+ ClassDatabase.Execute_non_Query(sql)
- ' ############ Infos eintragen #################
- ' txtDateipfad.Text = Document_Path
- bsiInformation.Caption = "Datei " & docCounter.ToString & " von " & Anzahl_ValDoks.ToString
- LOGGER.Info(">> Validierung für Dokument '" & WMDocPathWindows & "' gestartet")
- bsiDocID.Caption = "Document-ID: " & CURRENT_DOC_ID & " - GUID: " & CURRENT_DOC_GUID
+ ' ############ Infos eintragen #################
+ ' txtDateipfad.Text = Document_Path
+ bsiInformation.Caption = "Datei " & docCounter.ToString & " von " & Anzahl_ValDoks.ToString
+ bsiDocID.Caption = "Document-ID: " & CURRENT_DOC_ID & " - GUID: " & CURRENT_DOC_GUID
- LOGGER.Debug("AllDocInfo created...")
- If IDB_ACTIVE = False Then
- oErrorMessage = Windream_get_Doc_info()
- Else
- ' oErrorMessage = IDB_GetDocInfo()
- End If
+ LOGGER.Debug("AllDocInfo created...")
+ If IDB_ACTIVE = False Then
+ oErrorMessage = Windream_get_Doc_info()
+ Else
+ ' oErrorMessage = IDB_GetDocInfo()
+ End If
- If oErrorMessage = "" Then
-
+ If oErrorMessage = "" Then
+ If WMDocPathWindows <> String.Empty Then
load_viewer()
LOGGER.Debug("Viewer loaded!")
If WMDocPathWindows.ToLower.EndsWith(".pdf") = False Then
bbtniAnnotation.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If
-
-
-
-
-
- FillIndexValues(first)
-
- For Each oControl As Control In pnldesigner.Controls
- LoadSQLData(oControl, DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid)
- Next
-
- LOGGER.Debug("Indexmask loaded")
-
- 'Nun im Vektoprindex loggen das das Profil geladen wurde
- 'If PROFIL_VEKTORINDEX <> "" Then
- ' Dim Profilstring = "DD-PM" & PMDelimiter & "Profil: '" & PROFIL_NAME & "'" & PMDelimiter & USER_NAME & PMDelimiter & Now.ToString
- ' If Indexiere_VektorfeldPM(Profilstring, PROFIL_VEKTORINDEX) = False Then
- ' If LogErrorsOnly = False Then LOGGER.Info(" >> Profilname erfolgreich in Vektorfeld PM geschrieben")
- ' 'Else
- ' ' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message
- ' ' My.Settings.Save()
- ' ' frmError.ShowDialog()
- ' ' _error = True
- ' End If
- 'End If
- 'Nun loggen das das Profil geladen wurde
- If PROFIL_LOGINDEX <> "" Then
- Dim oLogString = $"PMProfile loaded: [{CURRENT_ProfilGUID}-{CURRENT_ProfilName}]{PMDelimiter}{USER_USERNAME}{PMDelimiter}{Now.ToString}"
- If IDB_ACTIVE = False Then
- WMIndexVectofield(oLogString, PROFIL_LOGINDEX)
- Else
- oLogString = $"PMProfile loaded: [{CURRENT_ProfilGUID}-{CURRENT_ProfilName}]"
- IDBData.SetVariableValue(PROFIL_LOGINDEX, oLogString)
- 'LOGGER.Debug("Profilname erfolgreich in Vektorfeld LOG geschrieben")
- 'Else
- ' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message
- ' My.Settings.Save()
- ' frmError.ShowDialog()
- ' _error = True
-
-
- End If
- End If
- activate_controls(True)
- Else
- errormessage = oErrorMessage
- frmError.ShowDialog()
End If
+
+
+
+
+ FillIndexValues(first)
+
+ For Each oControl As Control In pnldesigner.Controls
+ LoadSQLData(oControl, DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid)
+ Next
+
+ LOGGER.Debug("Indexmask loaded")
+
+ 'Nun im Vektoprindex loggen das das Profil geladen wurde
+ 'If PROFIL_VEKTORINDEX <> "" Then
+ ' Dim Profilstring = "DD-PM" & PMDelimiter & "Profil: '" & PROFIL_NAME & "'" & PMDelimiter & USER_NAME & PMDelimiter & Now.ToString
+ ' If Indexiere_VektorfeldPM(Profilstring, PROFIL_VEKTORINDEX) = False Then
+ ' If LogErrorsOnly = False Then LOGGER.Info(" >> Profilname erfolgreich in Vektorfeld PM geschrieben")
+ ' 'Else
+ ' ' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message
+ ' ' My.Settings.Save()
+ ' ' frmError.ShowDialog()
+ ' ' _error = True
+ ' End If
+ 'End If
+ 'Nun loggen das das Profil geladen wurde
+ If PROFIL_LOGINDEX <> "" Then
+ Dim oLogString = $"PMProfile loaded: [{CURRENT_ProfilGUID}-{CURRENT_ProfilName}]{PMDelimiter}{USER_USERNAME}{PMDelimiter}{Now.ToString}"
+ If IDB_ACTIVE = False Then
+ WMIndexVectofield(oLogString, PROFIL_LOGINDEX)
+ Else
+ oLogString = $"PMProfile loaded: [{CURRENT_ProfilGUID}-{CURRENT_ProfilName}]"
+ IDBData.SetVariableValue(PROFIL_LOGINDEX, oLogString)
+ 'LOGGER.Debug("Profilname erfolgreich in Vektorfeld LOG geschrieben")
+ 'Else
+ ' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message
+ ' My.Settings.Save()
+ ' frmError.ShowDialog()
+ ' _error = True
+
+
+ End If
+ End If
+ activate_controls(True)
Else
errormessage = oErrorMessage
- frmError.ShowDialog()
- End If
- Else
+ frmError.ShowDialog()
+ End If
+ 'Else
+ ' errormessage = oErrorMessage
+ ' frmError.ShowDialog()
+ 'End If
+ Else
If oErrorMessage <> "" Then
errormessage = oErrorMessage
frmError.ShowDialog()