neu

Aviso/frmHauptfenster.vb

@@ -2554,12 +2554,16 @@ Public Class frmHauptfenster
     End Function
     Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
         'VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolderCat("C:\Users\test01\Desktop\TEST.pdf", "12345", "", "Import ab Jänner 2021", "Import ab Jänner 2021")
-        'Exit Sub
+        Dim mailTo = "al@verag.ag"
+        Dim betreff = "Betreff - TESTMAIL"
+        Dim htmlBody = "E-Mail Body <b> HTML </b>"
+        VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(mailTo, betreff, htmlBody, , False, False)
+        Exit Sub
 
-        Dim dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", 717858, {3})
+        Dim dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", 717858, ) '{5})
 
         For Each d In dt.Rows
-            MsgBox(d("LKW_Nr"))
+            MsgBox(d("LKW_Nr") & " - " & d("Status"))
         Next
 
 
@@ -3168,6 +3172,7 @@ Public Class frmHauptfenster
     Private Sub EMAILTESTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EMAILTESTToolStripMenuItem.Click
         VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("luxbauer@gmail.com", "TESTMAIL", "TESTMAIL", , False, True)
 
+
     End Sub
 
     Private Sub FreigabeMailTestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FreigabeMailTestToolStripMenuItem.Click
@@ -5086,7 +5091,7 @@ Public Class AvisoStatusFunctions
 
 
 
-    Public Function AktUebernehmen_Zuruecksetzen(AvisoID) As Boolean
+    Public Function AktUebernehmen_Zuruecksetzen(AvisoID As Integer, Optional WeiterleitungTextTV As String = "") As Boolean
         Try
 
             'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
@@ -5110,6 +5115,8 @@ Public Class AvisoStatusFunctions
 
             Aviso.LetzterMitarbeiterId = -1
             Aviso.letzterMitarbeiter = "Weiterleitung" ' VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
+            Aviso.WeiterleitungTextTV = WeiterleitungTextTV ' VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
+
             Aviso.TeamId = -1 'VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
 
 
@@ -5312,6 +5319,46 @@ Public Class AvisoStatusFunctions
 
     End Function
 
+    Public Function setSendungAbfertigungTR(SendungsId, AvisoID, Optional anzahl = 1) As Boolean
+
+        If SendungsId Is Nothing Then Return False
+        If Not IsNumeric(SendungsId) Then Return False
+        If AvisoID Is Nothing Then Return False
+        If Not IsNumeric(AvisoID) Then Return False
+
+        Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
+
+        SENDUNG_TMP.saveSachbearbeiter = True
+
+        'If SENDUNG_TMP.tblSnd_Vorgeschrieben IsNot Nothing Then
+        '    MsgBox("Sendung wurde bereits auf 'Vorgeschrieben' gesetzt - Status nicht mehr möglich!")
+        '    Return False
+        'End If
+        'If SENDUNG_TMP.tblSnd_Vorbereitet IsNot Nothing Then
+        '    MsgBox("Sendung wurde bereits auf 'QS Vorbereitet' gesetzt - Status nicht mehr möglich!")
+        '    Return False
+        'End If
+
+        SENDUNG_TMP.tblSnd_anzahlHandling = anzahl
+
+        If SENDUNG_TMP.tblSnd_AbfertigungTR Is Nothing Then
+            SENDUNG_TMP.tblSnd_AbfertigungTR_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
+            'SENDUNG_TMP.tblSnd_FilialeAbfertigung = VERAG_PROG_ALLGEMEIN.cAllgemein.getSTAMMFILIALE
+            'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then
+            '    SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
+            'End If
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
+
+            SENDUNG_TMP.tblSnd_AbfertigungTR = Now                     'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
+            AvisoDAL.addAenderung(AvisoID, "Sendung auf ABGEFERTIGT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf ABGEFERTIGT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+        Else
+            SENDUNG_TMP.tblSnd_AbfertigungTR = Nothing
+            AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT ABGEFERTIGT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT ABGEFERTIGT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+        End If
+        Return SENDUNG_TMP.SAVE()
+
+    End Function
+
     Public Function setSendungFakturiert(SendungsId, AvisoID) As Boolean
 
         If SendungsId Is Nothing Then Return False