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

MS Referenz W-Laufwerk

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-12-19 17:09:23 +01:00
parent 0ccd050d4c
commit fb148c193c
24 changed files with 1364 additions and 819 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@@ -766,16 +766,6 @@ Public Class frmAdministration
End If
End Sub
Private Sub Button3_Click_2(sender As Object, e As EventArgs) Handles Button3.Click
Dim result As MsgBoxResult = MsgBox("Wollen Sie die Dateien für dieses Profil wirklich entfernen?" & vbNewLine & "Wenn ja müssen Sie auf die Aktualisierung des Jobs warten bis wieder Dateien zur Bearbeitung frei sind.", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
'wenn Speichern ja
If result = MsgBoxResult.Yes Then
If ClassDatabase.Execute_non_Query("DELETE FROM TBPM_PROFILE_FILES WHERE PROFIL_ID = " & PROFILGUIDTextBox.Text) = True Then
MsgBox("Die Dateien zum Profil wurden erfolgreich gelöscht!", MsgBoxStyle.Information)
End If
End If
End Sub
'Private Sub TabControlFinalIndices_SelectedIndexChanged(sender As Object, e As EventArgs)
' If TabControlFinalIndices.SelectedIndex = 1 Then
' Me.cmbIndexe2.Enabled = False
@@ -1123,6 +1113,16 @@ Public Class frmAdministration
CancelFinalIndexInsert()
End Sub
Private Sub tsbtnDeleteProfileData_Click(sender As Object, e As EventArgs) Handles tsbtnDeleteProfileData.Click
Dim result As MsgBoxResult = MsgBox("Wollen Sie die Dateien für dieses Profil wirklich entfernen?" & vbNewLine & "Wenn ja müssen Sie auf die Aktualisierung des Jobs warten bis wieder Dateien zur Bearbeitung frei sind.", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
'wenn Speichern ja
If result = MsgBoxResult.Yes Then
If ClassDatabase.Execute_non_Query("DELETE FROM TBPM_PROFILE_FILES WHERE PROFIL_ID = " & PROFILGUIDTextBox.Text) = True Then
MsgBox("Die Dateien zum Profil wurden erfolgreich gelöscht!", MsgBoxStyle.Information)
End If
End If
End Sub
'Private Sub viewFinalIndex_ValidateRow(sender As Object, e As Views.Base.ValidateRowEventArgs) Handles viewFinalIndex.ValidateRow
' Dim rowView As DataRowView = e.Row