From 42eef08dc5ff13a579d13b71d4052a0dff99699a Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Mon, 23 Mar 2020 16:14:39 +0100 Subject: [PATCH] MS --- app/DD_PM_WINDREAM/frmMain.Designer.vb | 15 +- app/DD_PM_WINDREAM/frmMain.resx | 239 ++++++++++++------------- app/DD_PM_WINDREAM/frmMain.vb | 26 +-- app/DD_PM_WINDREAM/frmValidator.vb | 127 +++++++------ 4 files changed, 203 insertions(+), 204 deletions(-) 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) - - ' ############ 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 - - LOGGER.Debug("AllDocInfo created...") - If IDB_ACTIVE = False Then - oErrorMessage = Windream_get_Doc_info() - Else - ' oErrorMessage = IDB_GetDocInfo() - End If + '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 + 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 - 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 + End If + FillIndexValues(first) - FillIndexValues(first) - - For Each oControl As Control In pnldesigner.Controls - LoadSQLData(oControl, DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid) - Next + 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 + 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 + 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()