Asfinag, UID-Pruefung

VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb

@@ -182,6 +182,29 @@ Public Class cAdressen
         Return False
     End Function
 
+    Function getUIDMehrfachverwendung() As Boolean
+
+        If If(UstIdKz, String.Empty) <> String.Empty And If(UstIdNr, String.Empty) <> String.Empty Then
+            Dim count As Integer = SQL.getValueTxtBySql("SELECT count(*)  FROM [Adressen] INNER JOIN Kunden ON KundenNr=AdressenNr WHERE [UstIdKz]='" & UstIdKz & "' AND [UstIdNr]='" & UstIdNr & "'", "FMZOLL")
+            If count > 0 Then
+                Return True
+            End If
+        End If
+        Return False
+
+    End Function
+
+    Function getDTUIDMehrfachverwendung(adressenNr) As DataTable
+        Dim dt_UID As New DataTable
+        If If(UstIdKz, String.Empty) <> String.Empty And If(UstIdNr, String.Empty) <> String.Empty Then
+
+            dt_UID = SQL.loadDgvBySql_Param("SELECT KundenNr FROM [Adressen] INNER JOIN Kunden ON KundenNr=AdressenNr WHERE [UstIdKz]='" & UstIdKz & "' AND [UstIdNr]='" & UstIdNr & "' and not KundenNr='" & adressenNr & "'", "FMZOLL")
+        End If
+
+        Return dt_UID
+
+    End Function
+
     Public Function SAVE(Optional newFlag = False) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
         If newFlag Then INIT_NEWKD_DATA()
         If AdressenNr <= 0 Then