MS

app/DD-Record-Organizer/frmConstructor_Main.vb

@@ -302,7 +302,7 @@ Public Class frmConstructor_Main
             'End Try
 
             ' Hintergrund Bild initialisieren
-            BACKGROUND_HELPER = New ClassBackgroundHelper(GridViewDoc_Search, My.Resources.windream_Logo_transparent_klein) '
+            BACKGROUND_HELPER = New ClassBackgroundHelper(GridViewDoc_Search, WM_LOGO) '
 
 
             ' Bestimme Dinge ausblenden wenn kein admin
@@ -2913,6 +2913,7 @@ Public Class frmConstructor_Main
 
                 End If
             End If
+
             Load_Splitter_Layout()
             sw.Done()
 
@@ -3664,7 +3665,7 @@ Public Class frmConstructor_Main
         End If
 
         ' Record Speichern
-        Dim ResultMessage = CtrlCommandUI.SaveRecord(SELECTED_RECORD_ID, ENTITY_ID, PARENT_RECORDID)
+        Dim ResultMessage = CtrlCommandUI.SaveRecord(SELECTED_RECORD_ID, ENTITY_ID)
         'Jetzt die für die Entität notwendigen Prroceduren ausführen
         Customer_Run_Procedures()
 
@@ -5678,7 +5679,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
     Public Sub TrySave_DoSave()
         ERROR_WHILE_SAVING = False
         ' Record Speichern
-        Dim ResultMessage = CtrlCommandUI.SaveRecord(SELECTED_RECORD_ID, ENTITY_ID, PARENT_RECORDID)
+        Dim ResultMessage = CtrlCommandUI.SaveRecord(SELECTED_RECORD_ID, ENTITY_ID)
         If ResultMessage <> "ERROR" Then
             ' Status anzeigen
             Update_Status_Label(True, ResultMessage)
@@ -7481,4 +7482,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
     Private Sub frmConstructor_Main_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
 
     End Sub
+
+    Private Sub NeuToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuToolStripMenuItem.Click
+
+    End Sub
 End Class