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

MS_06022016

Browse Source
This commit is contained in:
SchreiberM
2016-02-08 09:24:29 +01:00
parent ab475bfa7a
commit 85d4120c50
14 changed files with 229 additions and 149 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -80,11 +80,11 @@
Try
If All = False Then
If LogErrorsOnly = False Then ClassLogger.Add(">> Dokumentarten für RecordOrganizer werden geladen", False)
Me.TBDD_DOKUMENTARTTableAdapter.FillByPMO(Me.DD_DMSDataSet.TBDD_DOKUMENTART)
Me.TBDD_DOKUMENTARTTableAdapter.FillByPMO(Me.DD_DMSDataSet.TBDD_DOKUMENTART, USER_LANGUAGE)
If LogErrorsOnly = False Then ClassLogger.Add(">> Anzahl Dokumentarten: " & DD_DMSDataSet.TBDD_DOKUMENTART.Rows.Count, False)
Else
If LogErrorsOnly = False Then ClassLogger.Add(">> Alle Dokumentarten werden geladen", False)
Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_DOKUMENTART)
Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_DOKUMENTART, USER_LANGUAGE)
End If
Catch ex As Exception
@@ -265,8 +265,12 @@
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
MsgBox("Die Dokumentart wurde erfolgreich gelöscht!", MsgBoxStyle.Information)
Refresh_Dokart(False)
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