ATR, Fakt (UNISPED Vorlage Zahlungsziel), Preise

VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb

@@ -1988,7 +1988,30 @@ Public Class cVermerkeDAL
     End Function
 
 
+    Shared Function insertSendungsVermerk(SendungID As Integer, AvisoID As Integer, Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "", Optional VorauskasseId As Object = Nothing, Optional addAuto As Boolean = False) As Integer
+        'Daten zuweisen und speichern
+        Dim myVermerk As New cVermerk
+        myVermerk.VermerkID = 0
+        myVermerk.AvisoID = AvisoID
+        myVermerk.Datum = Now
+        myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter & If(addAuto, " (AUTO)", "")
+        myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID
+        myVermerk.Hinweis_Vermerk = Text
+        myVermerk.VermerkCodeId = VermerkCodeId
+        'myVermerk.her = VermerkCodeId
+        myVermerk.SendungID = SendungID
+        If VorauskasseId IsNot Nothing AndAlso VorauskasseId IsNot DBNull.Value Then myVermerk.VorauskasseId = VorauskasseId
+        myVermerk.VermerkArt = "S"
+        Dim VermerkeDAL As New cVermerkeDAL
 
+        insertSendungsVermerk = VermerkeDAL.SpeichernVermerk(myVermerk)
+
+        If myVermerk.VermerkCodeId = 18 Then
+            VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False)
+
+        End If
+
+    End Function
     Public Function loadTableMyAviso(maId As Integer) As DataTable
         '  While True  'Endlosschleife; wird verlassen durch Return oder Application.Exit()
         Try
@@ -2263,7 +2286,7 @@ Public Class cVermerkeDAL
     End Sub
 
 
-    Public Sub toggleHervorheben(ByVal hID As Integer)
+    Public Shared Sub toggleHervorheben(ByVal hID As Integer)
         Dim sql = String.Format("UPDATE Vermerke SET Hervorheben=Hervorheben-1 WHERE VermerkID = {0}", hID)
 
         Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
@@ -2276,6 +2299,21 @@ Public Class cVermerkeDAL
         End Using
         conn.Close()
 
+    End Sub
+
+    Public Shared Sub DeleteSNDVermerkCode(ByVal SendungID As Integer, VermerkeCode As Integer)
+        Dim sql = "DELETE Vermerke WHERE VermerkeCode = '" & VermerkeCode & "' and SendungID= '" & SendungID & "'"
+
+        Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
+        Using cmd As New SqlCommand(sql, conn)
+            Try
+                cmd.ExecuteNonQuery()
+            Catch ex As SqlException
+                MsgBox("Hervorheben kann nicht gesetzt werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Hervorheben")
+            End Try
+        End Using
+        conn.Close()
+
     End Sub
     Public Function Vermerke_einlesen(hAvisoID As Integer) As String
         'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen