Dakosy Ankunftsanzeige, Offerten, Sendungen, etc.

VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb

@@ -978,6 +978,7 @@ Public Class cStandardofferten
         Me.LeistungsBez = LeistungsBez
         LOAD()
     End Sub
+
     Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OffertenNr", OffertenNr))
@@ -1085,5 +1086,28 @@ Public Class cStandardofferten
         Return ""
     End Function
 
+    Public Shared Sub updateBezeichnung_MULTILINGUAL(Währungscode As String, LeistungsNr As Integer, LeistungsBez As String, LeistungsBez_EN As String, LeistungsBez_RO As String, LeistungsBez_TR As String)
+
+
+        If Währungscode <> "" AndAlso LeistungsNr > 0 And LeistungsBez <> "" Then
+
+            Dim UPDATESTRING As String = ""
+
+            If LeistungsBez_EN <> "" Then UPDATESTRING &= " [LeistungsBez_EN] = '" & LeistungsBez_EN & "',"
+            If LeistungsBez_TR <> "" Then UPDATESTRING &= " [LeistungsBez_TR] = '" & LeistungsBez_TR & "',"
+            If LeistungsBez_RO <> "" Then UPDATESTRING &= " [LeistungsBez_RO] = '" & LeistungsBez_RO & "',"
+
+            If UPDATESTRING <> "" Then
+
+                Dim SQL As New SQL
+
+                SQL.doSQL("UPDATE [Standardofferten] SET " & UPDATESTRING & " aktualisiert = getDate() WHERE Währungscode='" & Währungscode & "' AND LeistungsNr=" & LeistungsNr & " AND LeistungsBez='" & LeistungsBez & "'", "FMZOLL")
+
+            End If
+        End If
+
+
+    End Sub
+
 End Class