Änderungen AMBAR

UID/frmDetails.vb

@@ -23,7 +23,7 @@ Public Class frmDetails
     Private Sub frmDetails_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
         If valueChanged = False Or closeOK Then
             If mainForm = "frmMain" Then
-                frmMain.Enabled = True : frmMain.Tabelle_anzeigen()
+                'frmMain.Enabled = True  'frmMain.Tabelle_anzeigen()
             ElseIf mainForm = "frmSearch" Then
                 frmSearch.Tabelle_anzeigen()
             End If
@@ -32,7 +32,7 @@ Public Class frmDetails
             Select Case MsgBox("Wollen Sie die geänderten Daten verwerfen?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Änderung verwerfen?")
                 Case vbYes
                     If mainForm = "frmMain" Then
-                        frmMain.Enabled = True : frmMain.Tabelle_anzeigen()
+                        'frmMain.Enabled = True ' frmMain.Tabelle_anzeigen()
                     ElseIf mainForm = "frmSearch" Then
                         frmSearch.Tabelle_anzeigen()
                     End If
@@ -142,6 +142,7 @@ Public Class frmDetails
             binddata(txtHomepage, "Text", bindingDATA.bindingSource, "kd_homepage")
             binddata(txtTIMOCOM, "Text", bindingDATA.bindingSource, "kd_TIMOCOM")
 
+
             Dim kdnr = (bindingDATA.bindingdataTable.Rows(0).Item("kd_FMZOLL_KdNr"))
             kdFirma.KdNr = If(kdnr Is DBNull.Value, -1, kdnr)
 
@@ -604,7 +605,7 @@ Public Class frmDetails
         If txtFirma.Text = "" Then
             MsgBox("Bitte geben Sie ein Kürzel an!") : val = False
         ElseIf cOptionenDAL.insertKunden(entry) Then
-            frmMain.Tabelle_anzeigen()
+            'frmMain.Tabelle_anzeigen()
             closeOK = True
             Me.Close()
         End If
@@ -718,7 +719,7 @@ Public Class frmDetails
         If txtFirma.Text = "" Then
             MsgBox("Bitte geben Sie ein Kürzel an!") : val = False
         ElseIf cOptionenDAL.updateKunden(k) Then
-            frmMain.Tabelle_anzeigen()
+            'frmMain.Tabelle_anzeigen()
             closeOK = True
             Me.Close()
         End If
@@ -1059,5 +1060,36 @@ Public Class frmDetails
         End If
     End Sub
 
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
 
+        If kdFirma.KdNrNullInt IsNot Nothing Then
+            showKd(kdFirma.KdNrNullInt)
+        End If
+
+
+    End Sub
+
+    Public Sub showKd(kdnr, Optional TopMost = False)
+        'For Each frm As Form In Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then Exit Sub
+
+        For Each openForm In Application.OpenForms()
+            If TypeOf (openForm) Is SDL.frmKundenUebersichtZOLL Then
+                CType(openForm, SDL.frmKundenUebersichtZOLL).BringToFront()
+                If TopMost Then CType(openForm, SDL.frmKundenUebersichtZOLL).TopMost = True
+                CType(openForm, SDL.frmKundenUebersichtZOLL).KdSearchBox1.KdNr = kdnr
+                Exit Sub
+            End If
+        Next
+        'If False Then
+
+        '    If Not Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing Then
+        '        Application.OpenForms.Item("frmKundenUebersichtZOLL").BringToFront()
+        '        Exit Sub
+        '    End If
+        'End If
+        ''  Next 
+        Dim zoll As New SDL.frmKundenUebersichtZOLL(kdnr)
+        If zoll IsNot Nothing Then zoll.Show() : zoll.BringToFront()
+    End Sub
 End Class