ATEZ, USTV, etc.

VERAG_PROG_ALLGEMEIN/Classes/USTV/cUStVLeistender.vb

@@ -13,7 +13,6 @@ Public Class cUStVLeistender
     Property UstV_Leistender_Adresse As Boolean
     Property UStV_LeistenderId As Integer
 
-
     Public hasEntry = False
 
         Dim SQL As New SQL
@@ -59,10 +58,29 @@ Public Class cUStVLeistender
                       " BEGIN " & getInsertCmd() & " END " &
                       " commit tran "
 
+
         Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
     End Function
 
 
+    Public Function SAVEID() As Integer
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblUStVLeistender WHERE UStV_Leistender=@UStV_Leistender) " &
+                      " BEGIN " & getUpdateCmd() & " END " &
+                      " Else " &
+                      " BEGIN " & getInsertCmd() & " END " &
+                      " commit tran "
+
+
+        UStV_LeistenderId = SQL.doSQLVarListID(UStV_LeistenderId, sqlstr, "FMZOLL", , list)
+
+        Return UStV_LeistenderId
+    End Function
+
+
+
+
     Public Function INSERT() As Boolean
         Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()