offert, ustva

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