neu

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb

@@ -759,6 +759,34 @@ Public Class KdSearchBox
         End Set
     End Property
 
+    Public Sub setKdNrKeepName()
+        Dim nameTmp = KdName
+        KdNr = -1
+        KdName = nameTmp
+        Me.Text = nameTmp
+    End Sub
+
+
+    Public Function getFirma() As String
+        If Me.KdData_KUNDE IsNot Nothing And KdNr_value > 0 Then
+            Return VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(Me.KdData_KUNDE.FilialenNr,, "")
+        End If
+        Return ""
+    End Function
+
+
+    Public Function checkFirma(FirmaPruef As String) As Boolean
+        Dim KdFirma = getFirma()
+        If KdFirma <> "" And FirmaPruef <> "" And KdNr_value > 0 Then
+            If KdFirma <> FirmaPruef Then
+                Return False
+            End If
+        End If
+        Return True
+    End Function
+
+
+
     Public Property KdNrNullInt As Object
         Get
             If KdNr_value > 0 Then