Feature: UsrCntl_Kundenvollmachten, Besuchsbereicht, FrmKundenvollmachten

VERAG_PROG_ALLGEMEIN/Classes/cKundenVollmachten.vb

@@ -15,6 +15,7 @@ Public Class cKundenVollmachten 'in Arbeit!
     Property kdvm_gueltig_ab As Object = Nothing
     Property kdvm_vermerk As Object = Nothing
     Property kdvm_geloescht As Boolean = False
+    Property kdvm_emailId As Object = Nothing
 
     Public hasEntry = False
 
@@ -47,6 +48,7 @@ Public Class cKundenVollmachten 'in Arbeit!
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_gueltig_ab", kdvm_gueltig_ab))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_vermerk", kdvm_vermerk))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_geloescht", kdvm_geloescht))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_emailId", kdvm_emailId))
 
         Return list
     End Function
@@ -65,6 +67,19 @@ Public Class cKundenVollmachten 'in Arbeit!
         Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
     End Function
 
+    Public Function SAVEVM() As Integer
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenVollmachten  WHERE kdvm_Id=@kdvm_Id) " &
+                       " BEGIN " & getUpdateCmd() & " END " &
+                       " Else " &
+                       " BEGIN " & getInsertCmd() & " END " &
+                       " commit tran "
+
+        kdvm_Id = SQL.doSQLVarListID(kdvm_Id, sqlstr, "FMZOLL", , list)
+        Return kdvm_Id
+    End Function
+
     Public Sub LOAD()
         Try
             hasEntry = False