Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024

VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb

@@ -99,6 +99,10 @@ Public Class cKundenErweitert
     Property kde_BezFIBU As Object = Nothing
     Property kde_Kopfsammelrechnung As Boolean = False
 
+    Property kde_CSPortfolioAdded As Boolean = False
+
+
+
 
 
 
@@ -200,6 +204,7 @@ Public Class cKundenErweitert
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Erstattungsart", kde_Erstattungsart))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_BezFIBU", kde_BezFIBU))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Kopfsammelrechnung", kde_Kopfsammelrechnung))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CSPortfolioAdded", kde_CSPortfolioAdded))
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb

@@ -529,6 +529,11 @@ Public Class cOffertPosition
         Return SQL.doSQLVarList(getUpdateCmd(LEISTUNGSBEZ_ORG), "FMZOLL", False, list)
     End Function
 
+    Public Function UPDATE(LEISTUNGSNR_ORG As Integer) As Boolean
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList(True)
+        Return SQL.doSQLVarList(getUpdateCmd(LEISTUNGSNR_ORG), "FMZOLL", False, list)
+    End Function
+
 
 
 
@@ -572,6 +577,26 @@ Public Class cOffertPosition
         Return ""
     End Function
 
+
+    Public Function getUpdateCmd(LEISTUNGNR_ORG As Integer) As String
+        Try
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList(True)
+
+            Dim str As String = ""
+            For Each i In list
+                If Not i.isPrimaryParam Then
+                    str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            Return (" UPDATE [Offertenpositionen] SET " & str & " WHERE KundenNr=@KundenNr and OffertenNr=@OffertenNr and LeistungsNr=" & LEISTUNGNR_ORG & " and LeistungsBez= @LeistungsBez")
+
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        Return ""
+    End Function
+
 End Class
 
 Public Class cOfferteArchiv