AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS saving

Browse Source
This commit is contained in:
SchreiberM 2020-04-28 12:20:04 +02:00
parent c7359a0c42
commit d57049e245
4 changed files with 119 additions and 82 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb
View File

@ -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")>

50
app/DD_PM_WINDREAM/frmAdministration.resx
View File

@ -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>

142
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@ -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

7
app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb
View File

@ -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 oIndicies IsNot Nothing Then
For Each index As String In oIndicies
If MyIndicies IsNot Nothing Then
For Each index As String In MyIndicies
cmbIndexe.Items.Add(index)
Next
cmbIndexe.SelectedIndex = -1