neu

Aviso/frmHauptfenster.vb

@@ -262,6 +262,9 @@ Public Class frmHauptfenster
             AdministrationToolStripMenuItem.Visible = True
             lblMitarbeiter.Text += " (Admin)"
 
+            Button12.Visible = True
+            Label22.Visible = True
+            Label22.Text = "XX"
         End If
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MESSENGER", "AVISO") Then
             picAVISOMessenger.Visible = True
@@ -274,6 +277,10 @@ Public Class frmHauptfenster
             btnRg.Visible = True
         End If
 
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MITARBEITER_VERZEICHNIS", "SDL") Then
+            btnMAVerzeichnis.Visible = True
+        End If
+
         'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then
         '    btnSpedBuch.Visible = False
         'End If
@@ -3386,6 +3393,18 @@ Public Class frmHauptfenster
         'MsgBox(DS.da_id)
         DS.OPEN_SINGLE_ORIG()
     End Sub
+
+    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles btnMAVerzeichnis.Click
+        Dim f As New VERAG_PROG_ALLGEMEIN.frmMitarbeitersuche
+        f.Show()
+    End Sub
+
+    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click, Label22.Click
+        Dim f As New frm_eAVISO
+        f.Show()
+    End Sub
+
+
 End Class
 
 Public Class AvisoStatusFunctions
@@ -3463,11 +3482,21 @@ Public Class AvisoStatusFunctions
             Aviso.Ankunft = getAnkunftDateNow()
         End If
 
-        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
-            If Aviso.Grenzstelle.Replace("???", "") <> "" Then
-                If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then Aviso.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+        'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
+        '    If Aviso.Grenzstelle.Replace("???", "") <> "" Then
+        '        If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then Aviso.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+        '    End If
+        'End If
+        ' If Aviso.Grenzstelle.Replace("???", "") <> "" Then
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then
+                If Aviso.Grenzstelle <> VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG Then
+                    Dim f As New frmAnkunftAendern(Aviso)
+                If f.ShowDialog() Then
+                    Aviso.Grenzstelle = f.AVISO.Grenzstelle
+                End If
             End If
-        End If
+            End If
+        ' End If
 
         Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft
         Aviso.Änderungen = "auf ANKUNFT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
@@ -4085,6 +4114,8 @@ Public Class AvisoStatusFunctions
                     End Select
                     AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
 
+                    'Benachrichtigungen erledigen
+                    VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.BESTAETIGEN_BENACHRICHTIGUNG_ALL(Aviso.AvisoID)
                 Else
                     Aviso.Abgeschlossen = value
                     AvisoDAL.SpeichernAviso(Aviso)
@@ -4299,6 +4330,9 @@ Public Class AvisoStatusFunctions
             'End If 
             Aviso.FreigabeFiliale = VERAG_PROG_ALLGEMEIN.cAllgemein.getSTAMMFILIALE
 
+            'Speditionsbuch aktualisieren
+            SQL.doSQL("UPDATE Speditionsbuch SET FilialenNrHandling='" & VERAG_PROG_ALLGEMEIN.cAllgemein.getSTAMMFILIALE & "' WHERE AvisoId='" & Aviso.AvisoID & "'", "FMZOLL")
+
             tmpid = AvisoDAL.SpeichernAviso(Aviso)
             AvisoDAL.addAenderung(tmpid, "auf FREIGABE gesetzt", "auf FREIGABE gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
             If Not Aviso.LKW_fertig Then
@@ -4386,6 +4420,7 @@ Public Class AvisoStatusFunctions
             MsgBox("Keine Berechtigung!")
             Exit Sub
         End If
+        Dim ZOLL_IMPORT As New DAKOSY_Worker.cZOLL_IMPORT
 
         Try
             CONTROL.FindForm.Cursor = Cursors.WaitCursor
@@ -4402,7 +4437,6 @@ Public Class AvisoStatusFunctions
                         Dim SPEDITIONSBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(s.FilialenNr, s.AbfertigungsNr)
                         If Not SPEDITIONSBUCH.hasEntry Then
 
-                            Dim ZOLL_IMPORT As New DAKOSY_Worker.cZOLL_IMPORT
                             Dim notFound As Boolean = True
 
                             SPEDITIONSBUCH = ZOLL_IMPORT.IMPORT(SPEDITIONSBUCH, AvisoID, s.tblSnd_SendungID, "", "", "", "", "", notFound, True, Personalnummer)
@@ -4413,6 +4447,16 @@ Public Class AvisoStatusFunctions
                                     s.SAVE()
                                 End If
                             End If
+                        Else
+                            Dim SPEDBUCH_LIST As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuchList(s.FilialenNr, s.AbfertigungsNr) 'Liste laden, falls merhrere Einträge
+                            If SPEDBUCH_LIST IsNot Nothing AndAlso SPEDBUCH_LIST.LIST IsNot Nothing Then
+                                For Each SB In SPEDBUCH_LIST.LIST
+                                    If Not SPEDITIONSBUCH.Bar Then
+                                        ZOLL_IMPORT.SetBarKassiert(SB) ' BAR-Häckchen setzen, wenn kassiert wurde! (durch auto-Nacherfassung of nicht gesetzt)
+                                    End If
+                                Next
+
+                            End If
 
                         End If
                         'If ZOLL_IMPORT.AUTO_IMPORT(s.tblSnd_SendungID) Then