AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS23032016

Browse Source
This commit is contained in:
SchreiberM
2016-03-23 13:01:40 +01:00
parent 777de5582e
commit 58788043c5
14 changed files with 989 additions and 1428 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
app/DD-Record-Organiser/frmDokumentart_Konfig.vb
View File

@@ -272,28 +272,16 @@
End Sub
Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click
Dim result As MsgBoxResult = MsgBox("Wollen Sie diese Dokumentart wirklich löschen?", MsgBoxStyle.YesNo, "Frage:")
Dim msg = "Sind Sie sicher, dass Sie diese Dokumentart löschen wollen?"
If USER_LANGUAGE <> "de-DE" Then
msg = "Are You sure You want to delete the selected Doctype?"
End If
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Dim del As String = "DELETE FROM TBDD_INDEX_MAN WHERE DOK_ID = " & akt_DokartID
Dim del = "EXEC [dbo].[PRPMO_DELETE_DOCTYPE] " & GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(del, True) = True Then
del = "DELETE FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & akt_DokartID
If ClassDatabase.Execute_non_Query(del, True) = True Then
del = "DELETE FROM TBDD_DOKUMENTART_MODULE WHERE DOKART_ID = " & akt_DokartID
If ClassDatabase.Execute_non_Query(del, True) = True Then
del = "DELETE FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = " & akt_DokartID
If ClassDatabase.Execute_non_Query(del, True) = True Then
del = "DELETE FROM TBDD_DOKUMENTART WHERE GUID = " & akt_DokartID
If ClassDatabase.Execute_non_Query(del, True) = True Then
Dim pmoobj As String = "DOCTYPE_TITLE" & akt_DokartID
del = "DELETE FROM TBPMO_LANGUAGE_OBJECT WHERE PMO_OBJECT_NAME = '" & pmoobj & "'"
If ClassDatabase.Execute_non_Query(del, True) = True Then
MsgBox("Die Dokumentart wurde erfolgreich gelöscht!", MsgBoxStyle.Information)
Refresh_Dokart(False)
End If
End If
End If
End If
End If
Refresh_Dokart(False)
End If
End If
End Sub