neu

Aviso/frmHauptfenster.vb

@@ -2487,7 +2487,10 @@ Public Class frmHauptfenster
 
     End Function
     Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
+        Dim ep As New SDL.cEORIWebService
+        MsgBox(ep.ValidateEoriNumber("ATEOS1000000199").Result(0).Name)
 
+        Exit Sub
         'Dim cRKSV_DE As New VERAG_PROG_ALLGEMEIN.cRKSV_DE
 
         'cRKSV_DE.SignRKSV_DE()
@@ -3543,6 +3546,14 @@ Public Class frmHauptfenster
             MsgBox("Keine Berechtigung!")
         End If
     End Sub
+
+    Private Sub MRNBarcodedruckToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MRNBarcodedruckToolStripMenuItem.Click
+
+        Dim MRN = InputBox("Bitte geben Sie die MRN-Nummer ein:")
+        SDL.FormularManagerNEU.printMRN(MRN)
+
+
+    End Sub
 End Class
 
 Public Class AvisoStatusFunctions
@@ -3566,7 +3577,41 @@ Public Class AvisoStatusFunctions
     End Function
 
 
+    Public Sub sendAnkunftBenachrichtigung(AvisoId)
+        'VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, -1, 3, "T", TeamID, "*ANKUNFT*", 0, "", "AUTO: LKW Ankunft - nicht vorgeschrieben!")
+        Dim alreadySent As New List(Of Integer)
+        Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
+        For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId).Rows
+            SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID")))
+        Next
+        For Each s In SENDUNG_LIST
+            'Keine Fremdspedition / Handling + nicht vorgeschrieben
+            If Not s.tblSnd_Fremdspedition And s.tblSnd_Abfertigungsart_ID <> "23" And s.tblSnd_Vorgeschrieben = Nothing Then
+                'Avisierer vorhanden
+                Dim TeamId = ""
+                'Zugeordnetes Team anhand von Avisierer...
+                If s.tblSnd_AvisiererKdNr IsNot Nothing AndAlso s.tblSnd_AvisiererKdNr > 0 Then
+                    TeamId = SQL.getValueTxtBySql("SELECT TOP 1 kde_TeamId  FROM [tblKundenErweitert]  where kde_KundenNr ='" & s.tblSnd_AvisiererKdNr & "'", "FMZOLL")
+                End If
+                '...wenn nicht --> Team aus Sendung
+                'If TeamId = "" And If(s.tblSnd_TeamId, "") <> "" Then TeamId = s.tblSnd_TeamId 'derzeit nicht..
+
+                If TeamId <> "" Then
+                    Dim sent = False
+                    For Each i In alreadySent
+                        If i = TeamId Then sent = True
+                    Next
+                    If Not sent Then
+                        VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, -1, 3, "T", TeamId, "*ANKUNFT*", 0, "", "AUTO: LKW Ankunft - nicht vorgeschrieben!")
+                        alreadySent.Add(TeamId)
+                    End If
+                End If
+            End If
+        Next
+    End Sub
+
     Public Function setAnkunft(AvisoID) As Boolean
+
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
             MsgBox("Keine Berechtigung!")
             Return False
@@ -3594,6 +3639,13 @@ Public Class AvisoStatusFunctions
             MsgBox("Dieses LKW-Aviso ist bereits auf ANKUNFT gesetzt.", vbInformation)
             Return False
         End If
+
+        'Wenn Aviserer einem Team zugeordnet, aber noch nicht "vorgeschrieben", dann bekommt das Team eine Nachricht!
+        ' If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Then
+        'Sendungsbasis
+        sendAnkunftBenachrichtigung(Aviso.AvisoID)
+        '        End If
+
         If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then
             msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf &
                   "Soll es jetzt trotzdem auf ANKUNFT (zurück)gesetzt werden?"
@@ -3604,7 +3656,7 @@ Public Class AvisoStatusFunctions
 
         If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
             msg = "Dieses LKW-Aviso ist bereits auf FREIGABE gesetzt." & vbCrLf & vbCrLf &
-                  "Soll der Status wieder auf ANKUNFT geändert werden?"
+                      "Soll der Status wieder auf ANKUNFT geändert werden?"
             antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle), "Status-Änderung")
             If antwort = vbNo Then Return False
             'Status ist offen - jetzt auf Ankunft setzen
@@ -4139,7 +4191,9 @@ Public Class AvisoStatusFunctions
 
 
     Public Function setErfasst(AvisoID) As Boolean
-        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
+
+        '        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STATUS_Erfasst", "AVISO") Then
             MsgBox("Keine Berechtigung!")
             Return False
         End If
@@ -4791,7 +4845,7 @@ Public Class AvisoStatusFunctions
 
 
             Aviso.LetzterMitarbeiterId = -1
-            Aviso.letzterMitarbeiter = "-" ' VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
+            Aviso.letzterMitarbeiter = "Weiterleitung" ' VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
             Aviso.TeamId = -1 'VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId