MS saving

app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.1.4.2")>
+<Assembly: AssemblyVersion("2.1.4.3")>
 <Assembly: AssemblyFileVersion("1.0.0.0")> 

app/DD_PM_WINDREAM/frmAdministration.resx

@@ -163,7 +163,7 @@
     <value>True</value>
   </data>
   <metadata name="TBPROFILE_USERBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>383, 56</value>
+    <value>571, 56</value>
   </metadata>
   <metadata name="DD_DMSLiteDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>206, 17</value>
@@ -334,7 +334,7 @@
     <value>True</value>
   </data>
   <metadata name="FNPM_GET_FREE_USER_FOR_PROFILEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1045, 134</value>
+    <value>623, 173</value>
   </metadata>
   <data name="gridAvailableUsers.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
     <value>Fill</value>
@@ -532,7 +532,7 @@
     <value>True</value>
   </data>
   <metadata name="TBPROFILE_GROUPBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>439, 134</value>
+    <value>17, 173</value>
   </metadata>
   <data name="gridAssignedGroups.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
     <value>Fill</value>
@@ -655,7 +655,7 @@
     <value>True</value>
   </data>
   <metadata name="TBDD_GROUPSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 134</value>
+    <value>739, 134</value>
   </metadata>
   <data name="gridAvailableGroups.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
     <value>Fill</value>
@@ -1087,7 +1087,7 @@
     <value>6</value>
   </data>
   <metadata name="TBDD_USERBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>188, 56</value>
+    <value>376, 56</value>
   </metadata>
   <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>368, 17</value>
@@ -1534,10 +1534,10 @@
     <value>windream-Suche wählen</value>
   </data>
   <metadata name="TBPM_TYPETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1310, 17</value>
+    <value>17, 56</value>
   </metadata>
   <metadata name="FolderBrowserDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 56</value>
+    <value>205, 56</value>
   </metadata>
   <data name="tabctrl_Profilkonfig.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
     <value>Top, Bottom, Left, Right</value>
@@ -1783,10 +1783,10 @@
     <value>Top, Bottom, Left, Right</value>
   </data>
   <metadata name="TBPM_PROFILE_FINAL_INDEXINGBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>798, 173</value>
+    <value>471, 212</value>
   </metadata>
   <metadata name="FinalIndexDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>344, 173</value>
+    <value>17, 212</value>
   </metadata>
   <data name="gridFinalIndex.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
     <value>Fill</value>
@@ -2536,16 +2536,16 @@
     <value>0</value>
   </data>
   <metadata name="TBPM_KONFIGURATIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>823, 56</value>
+    <value>1011, 56</value>
   </metadata>
   <metadata name="TBDD_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1054, 95</value>
+    <value>257, 134</value>
   </metadata>
   <metadata name="TBPM_PROFILE_CONTROLSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 95</value>
+    <value>391, 95</value>
   </metadata>
   <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1343, 56</value>
+    <value>274, 95</value>
   </metadata>
   <data name="tstrpinfo.Size" type="System.Drawing.Size, System.Drawing">
     <value>20, 20</value>
@@ -2578,13 +2578,13 @@
     <value>1</value>
   </data>
   <metadata name="TBPROFILE_USERTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>606, 56</value>
+    <value>794, 56</value>
   </metadata>
   <metadata name="TBDD_USERTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
   <metadata name="TBPM_KONFIGURATIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1086, 56</value>
+    <value>17, 95</value>
   </metadata>
   <data name="pnlMain.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
     <value>Fill</value>
@@ -2611,34 +2611,34 @@
     <value>0</value>
   </data>
   <metadata name="TBPM_PROFILE_CONTROLSTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>296, 95</value>
+    <value>670, 95</value>
   </metadata>
   <metadata name="TBPM_PROFILE_FILESBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>569, 95</value>
+    <value>943, 95</value>
   </metadata>
   <metadata name="TBPM_PROFILE_FILESTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>814, 95</value>
+    <value>17, 134</value>
   </metadata>
   <metadata name="TBDD_CONNECTIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1298, 95</value>
+    <value>501, 134</value>
   </metadata>
   <metadata name="TBDD_GROUPSTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>231, 134</value>
+    <value>953, 134</value>
   </metadata>
   <metadata name="TBPROFILE_GROUPTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>674, 134</value>
+    <value>252, 173</value>
   </metadata>
   <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>903, 134</value>
+    <value>481, 173</value>
   </metadata>
   <metadata name="FNPM_GET_FREE_USER_FOR_PROFILETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 173</value>
+    <value>956, 173</value>
   </metadata>
   <metadata name="TBPM_PROFILE_FINAL_INDEXINGTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>493, 173</value>
+    <value>166, 212</value>
   </metadata>
   <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>1108, 173</value>
+    <value>781, 212</value>
   </metadata>
   <data name="BarButtonItem1.Caption" xml:space="preserve">
     <value>Aktualisieren</value>

app/DD_PM_WINDREAM/frmAdministration.vb

@@ -3,6 +3,7 @@ Imports System.Data.SqlClient
 Imports System.IO
 Imports DD_LIB_Standards
 Imports DevExpress.XtraGrid
+Imports DevExpress.XtraGrid.Views.Base
 Imports DevExpress.XtraGrid.Views.Grid
 
 Public Class frmAdministration
@@ -11,6 +12,7 @@ Public Class frmAdministration
     Private email As New ClassEmail
     Public profile_guid As Integer = 0
     Dim formloaded As Boolean
+    Dim change_BindingSource As Boolean
     Private INSERT_ACTIVE As Boolean = False
 
 
@@ -252,34 +254,7 @@ Public Class frmAdministration
         DD_DMSLiteDataSet.TBPM_PROFILE.TYPEColumn.DefaultValue = 1
     End Sub
 
-    Private Sub TBPM_PROFILEBindingSource_PositionChanged(sender As System.Object, e As System.EventArgs) Handles TBPM_PROFILEBindingSource.PositionChanged
+
-        If formloaded = False Then
-            Exit Sub
-        End If
-        If UNSAVED_CHANGES_PROFILE = True Or UNSAVED_CHANGES_FI = True Then
-            Dim oQuestion As String
-            If USER_LANGUAGE <> "de-DE" Then
-                oQuestion = "You have unsaved changes! Do You want to save them now?"
-            Else
-                oQuestion = "Achtung es gibt noch ungespeicherte Änderungen! Wollen Sie diese nun speichern?"
-            End If
-            Dim result As MsgBoxResult = MsgBox(oQuestion, MsgBoxStyle.YesNo, ADDITIONAL_TITLE)
-            'wenn Speichern ja
-            If result = MsgBoxResult.Yes Then
-                If UNSAVED_CHANGES_PROFILE = True Then
-                    Save_Profile()
-                End If
-                If UNSAVED_CHANGES_FI = True Then
-                    Save_FI()
-                End If
-            End If
-        End If
-        tsbStaticInfo.Caption = ""
-        Indexe_eintragen()
-        If tabctrl_Profilkonfig.SelectedIndex = 1 And TBPM_PROFILEBindingSource.Position <> -1 Then
-            Refresh_Final_indexe()
-        End If
-    End Sub
 
 
 
@@ -688,7 +663,7 @@ Public Class frmAdministration
 
 
 
-    Private Sub cmbObjekttypen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbObjekttypen.SelectedIndexChanged
+    Private Sub cmbObjekttypen_SelectedIndexChanged(sender As Object, e As EventArgs)
         If formloaded = False Then
             Exit Sub
         End If
@@ -697,23 +672,6 @@ Public Class frmAdministration
         End If
     End Sub
 
-    Private Sub Button3_Click_1(sender As Object, e As EventArgs)
-        Dim indexe = WINDREAM.GetIndicesByObjecttype(cmbObjekttypen.Text)
-        If indexe IsNot Nothing Then
-            For Each index As String In indexe
-                MsgBox(index & vbNewLine & WINDREAM.GetTypeOfIndex(index))
-                Select Case WINDREAM.GetTypeOfIndex(index)
-                    Case 4107 'Vektor Zahl
-
-                    Case 4097
-
-                    Case Else
-
-                End Select
-            Next
-        End If
-    End Sub
-
     'Private Sub TabControlFinalIndices_SelectedIndexChanged(sender As Object, e As EventArgs)
     '    If TabControlFinalIndices.SelectedIndex = 1 Then
     '        Me.cmbIndexe2.Enabled = False
@@ -1169,7 +1127,7 @@ Public Class frmAdministration
     End Sub
 
     Private Sub BarButtonItem18_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem18.ItemClick
-        Save_FI
+        Save_FI()
     End Sub
     Private Sub Save_FI()
         Try
@@ -1329,21 +1287,103 @@ Public Class frmAdministration
             LOGGER.Error(ex)
         End Try
     End Sub
-
     Private Sub TBPM_PROFILEBindingSource_CurrentItemChanged(sender As Object, e As EventArgs) Handles TBPM_PROFILEBindingSource.CurrentItemChanged
         Check_Changes()
+        change_BindingSource = True
+        CHECK_QUESTION_CHANGES()
     End Sub
-    Private Sub Check_Changes()
+    Private Sub TBPM_PROFILEBindingSource_PositionChanged(sender As System.Object, e As System.EventArgs) Handles TBPM_PROFILEBindingSource.PositionChanged
         If formloaded = False Then
             Exit Sub
         End If
-        If UNSAVED_CHANGES_PROFILE = True Then
+        Check_Changes()
+        change_BindingSource = False
+
+        tsbStaticInfo.Caption = ""
+        Indexe_eintragen()
+        If tabctrl_Profilkonfig.SelectedIndex = 1 And TBPM_PROFILEBindingSource.Position <> -1 Then
+            Refresh_Final_indexe()
+        End If
+    End Sub
+    Sub CHECK_QUESTION_CHANGES()
+        If formloaded = False Then
+            Exit Sub
+        End If
+        If UNSAVED_CHANGES_PROFILE = True Or UNSAVED_CHANGES_FI = True Then
+            Dim oQuestion As String
+            If USER_LANGUAGE <> "de-DE" Then
+                oQuestion = "You have unsaved changes! Do You want to save them now?"
+            Else
+                oQuestion = "Achtung es gibt noch ungespeicherte Änderungen! Wollen Sie diese nun speichern?"
+            End If
+            Dim result As MsgBoxResult = MsgBox(oQuestion, MsgBoxStyle.YesNo, ADDITIONAL_TITLE)
+            'wenn Speichern ja
+            If result = MsgBoxResult.Yes Then
+                If UNSAVED_CHANGES_PROFILE = True Then
+                    Save_Profile()
+                End If
+                If UNSAVED_CHANGES_FI = True Then
+                    Save_FI()
+                End If
+            Else
+                UNSAVED_CHANGES_PROFILE = False
+            End If
+        End If
+    End Sub
+    Private Sub Check_Changes()
+        If formloaded = False Or UNSAVED_CHANGES_PROFILE = True Or change_BindingSource = True Then
             Exit Sub
         End If
-
         TBPM_PROFILEBindingSource.EndEdit()
         If Not IsNothing(DD_DMSLiteDataSet.TBPM_PROFILE.GetChanges) Then
             UNSAVED_CHANGES_PROFILE = True
         End If
     End Sub
+
+    Private Sub NAMETextBox_TextChanged(sender As Object, e As EventArgs) Handles WD_SEARCHTextBox.TextChanged, TITLETextBox.TextChanged, NAMETextBox.TextChanged,
+        FINAL_TEXTTextBox.TextChanged, DESCRIPTIONTextBox.TextChanged, WORK_HISTORY_ENTRYTextBox.TextChanged, MOVE2FOLDERTextBox.TextChanged
+        If formloaded = False Or UNSAVED_CHANGES_PROFILE = True Or change_BindingSource = True Then
+            Exit Sub
+        End If
+        'UNSAVED_CHANGES_PROFILE = True
+    End Sub
+
+    Private Sub ACTIVECheckBox_CheckStateChanged(sender As Object, e As EventArgs) Handles SORT_BY_LATESTCheckBox.CheckStateChanged, FINAL_PROFILECheckBox.CheckStateChanged, ACTIVECheckBox.CheckStateChanged
+        If formloaded = False Or UNSAVED_CHANGES_PROFILE = True Or change_BindingSource = True Then
+            Exit Sub
+        End If
+        'UNSAVED_CHANGES_PROFILE = True
+    End Sub
+
+    Private Sub cmbObjekttypen_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles PM_VEKTOR_INDEXComboBox.SelectedIndexChanged, DISPLAY_MODEComboBox.SelectedIndexChanged, cmbObjekttypen.SelectedIndexChanged, cmbLOGIndex.SelectedIndexChanged
+        If formloaded = False Or UNSAVED_CHANGES_PROFILE = True Or change_BindingSource = True Then
+            Exit Sub
+        End If
+        'UNSAVED_CHANGES_PROFILE = True
+    End Sub
+
+    Private Sub GridView1_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridView1.FocusedRowChanged
+        If formloaded = False Or UNSAVED_CHANGES_PROFILE = True Or change_BindingSource = True Then
+            Exit Sub
+
+        End If
+        'change_BindingSource = True
+    End Sub
+
+    Private Sub GridView1_ValidateRow(sender As Object, e As ValidateRowEventArgs) Handles GridView1.ValidateRow
+        If formloaded = False Or UNSAVED_CHANGES_PROFILE = True Or change_BindingSource = True Then
+            Exit Sub
+
+        End If
+        change_BindingSource = True
+    End Sub
+
+    Private Sub TBPM_PROFILEBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPM_PROFILEBindingSource.CurrentChanged
+        If formloaded = False Or UNSAVED_CHANGES_PROFILE = True Or change_BindingSource = True Then
+            Exit Sub
+
+        End If
+        change_BindingSource = True
+        Check_Changes()
+    End Sub
 End Class

app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb

@@ -3,7 +3,6 @@ Imports Oracle.ManagedDataAccess.Client
 Imports DD_LIB_Standards
 
 Public Class frmSQL_DESIGNER
-    'Private _windreamPM As ClassPMWindream
 
     Dim CurrentPosition As Integer = 0
     Dim CurrentPlaceholders As New Placeholders()
@@ -29,7 +28,6 @@ Public Class frmSQL_DESIGNER
     Private Sub TBPM_PROFILE_FINAL_INDEXINGBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
         Validate()
         TableAdapterManager.UpdateAll(Me.DD_DMSLiteDataSet)
-
     End Sub
     Private Sub frmSQL_FINAL_INDICES_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Try
@@ -59,9 +57,8 @@ Public Class frmSQL_DESIGNER
 
                 cmbIndexe.Items.Clear()
                 If IDB_ACTIVE = False Then
-                    Dim oIndicies = WINDREAM.GetIndicesByObjecttype(CURRENT_OBJECTTYPE)
+                    If MyIndicies IsNot Nothing Then
-                    If oIndicies IsNot Nothing Then
+                        For Each index As String In MyIndicies
-                        For Each index As String In oIndicies
                             cmbIndexe.Items.Add(index)
                         Next
                         cmbIndexe.SelectedIndex = -1