MS_04.01

app/DD-Record-Organiser/frmEntities.vb

@@ -254,7 +254,7 @@ Public Class frmEntities
                 'ggg()
                 If FORM_ID Is Nothing = False Then
                     sql = String.Format("INSERT INTO TBPMO_FORM_VIEW (FORM_ID, SCREEN_ID, FORM_TITLE, DESCRIPTION, ADDED_WHO,LANGUAGE) VALUES ({0}, {1},'{2}','{3}','{4}','{5}')", FORM_ID, CURRENT_SCREEN_ID, FORM_TITLE, DESCRIPTION, ADDED_WHO, USER_LANGUAGE)
-                    ClassDatabase.Execute_non_Query(sql, True)
+                    ClassDatabase.Execute_non_Query(sql)
                 End If
                 Load_TreeView()
             Else
@@ -373,19 +373,6 @@ Public Class frmEntities
                     frmNewKombiForm.ShowDialog()
                 End If
             End If
-
-
-            'Dim CurrentID = GetCurrentGUID()
-            'Dim sql As String = "EXEC PRPMO_COPY_ENTITY " & CurrentID.ToString
-            'If ClassDatabase.Execute_non_Query(sql) = True Then
-            '    'MsgBox("Die Entität wurde erfolgreich kopiert!", MsgBoxStyle.Information)
-            '    Load_TreeView()
-            '    Load_Forms(999999999)
-            '    lblStatus.Text = "Die Entität wurde erfolgreich kopiert."
-            '    lblStatus.Visible = True
-            'Else
-            '    lblStatus.Visible = False
-            'End If
         Catch ex As Exception
             MsgBox("Formular konnte nicht gelöscht werden:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try