eventHaendler fix

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.5.9.0")>
-<Assembly: AssemblyFileVersion("1.5.9.0")>
+<Assembly: AssemblyVersion("1.5.9.1")>
+<Assembly: AssemblyFileVersion("1.5.9.1")>

SDL/kunden/frmKundenblatt.vb

@@ -1,8 +1,6 @@
 Imports System.Data.SqlClient
 Imports System.Globalization
 Imports System.Web.UI.WebControls.Expressions
-Imports com.sun.xml.internal.rngom
-Imports GrapeCity.Viewer.Common.Model
 Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -374,12 +372,19 @@ Public Class frmKundenblatt
             CNTL_KUNDE_FULL.Enabled = True
             CNTL_KUNDE_FULL.init(kdNr, True)
 
-            'If IsNumeric(kdNr) AndAlso kdNr >= 0 Then
-
             If FilialeNr > 0 Then
                 CNTL_KUNDE_FULL.cboFiliale.changeItem(FilialeNr)
             End If
-            'End If
+
+
+            AddHandler CNTL_KUNDE_FULL.KD_SAVED, Sub(kdnrTMP As Integer)
+
+                                                     If Me.kdNr < 0 And kdnrTMP > 0 Then
+                                                         KdSearchBox1.KdNr = kdnrTMP
+                                                     End If
+                                                 End Sub
+
+
 
 
 
@@ -401,9 +406,12 @@ Public Class frmKundenblatt
                 CNTL_KUNDE_FULL.cboFiliale.changeItem(FilialeNr)
             End If
 
-            'Else
-            ' CNTL_KUNDE_FULL.Enabled = False
-            'End If
+            AddHandler CNTL_KUNDE_FULL.KD_SAVED, Sub(kdnrTMP As Integer)
+
+                                                     If Me.kdNr < 0 And kdnrTMP > 0 Then
+                                                         KdSearchBox1.KdNr = kdnrTMP
+                                                     End If
+                                                 End Sub
 
 
         End If