NEU

2019-09-19 17:25:22 +02:00
parent c7ff55bbae
commit d29dc72b22
44 changed files with 3715 additions and 1390 deletions
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -133,11 +133,12 @@ Public Class frmHauptfenster
        '        FIMRA_COLOR = Color.FromArgb(0, 54, 128)
        '        ' FIMRA_COLOR = Color.Red
        '    Case Else
-        '        FIMRA_COLOR = Color.FromArgb(0, 54, 128)
+        '   FIMRA_COLOR = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
        'End Select
-        'Panel1.BackColor = FIMRA_COLOR
-        'Panel6.BackColor = FIMRA_COLOR
-        'pnlSearch.BackColor = FIMRA_COLOR
+
+        Panel1.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
+        Panel6.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
+        pnlSearch.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor

        UpdateUpdater.Interval = 5000
        UpdateUpdater.Enabled = True
@@ -158,7 +159,11 @@ Public Class frmHauptfenster
        cboGrenzstelle.SelectedIndex = 0

        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-            Case "VERAG", "IMEX"
+            Case "ATILLA" ' Case "VERAG", "IMEX"
+                lklErweitereSuche.Visible = False
+                MDMParkplatzkartenToolStripMenuItem.Visible = False
+
+            Case Else

                'AVISO vom PC übernehmen
                Dim zeilen As Integer = OptionenDAL.setAVISOFromPcName()
@@ -171,9 +176,6 @@ Public Class frmHauptfenster
                If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "QS" Then
                    cboGrenzstelle.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
                End If
-            Case Else
-                lklErweitereSuche.Visible = False
-                MDMParkplatzkartenToolStripMenuItem.Visible = False
        End Select


@@ -502,34 +504,21 @@ Public Class frmHauptfenster
            pnlDetailsRechts.Visible = True

            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-                Case "VERAG"
-                    If pnlDetailsRechts.Controls.Count = 0 Then
-                        Dim usrCntl As New usrcntlAktDetails(id)
-                        usrCntl.Dock = DockStyle.Fill
-                        pnlDetailsRechts.Controls.Add(usrCntl)
-                    Else
-                        If reloadIfSameId Then
-                            DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id)
-                        Else
-                            If DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID <> id Then
-                                DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id)
-                            End If
-                        End If
-                    End If
-                Case "IMEX"
-                    If pnlDetailsRechts.Controls.Count = 0 Then
-                        Dim usrCntl As New usrcntlAktDetails(id)
-                        usrCntl.Dock = DockStyle.Fill
-                        pnlDetailsRechts.Controls.Add(usrCntl)
-                    Else
-                        If reloadIfSameId Then
-                            DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id)
-                        Else
-                            If DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID <> id Then
-                                DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id)
-                            End If
-                        End If
-                    End If
+                'Case "VERAG"
+                '    If pnlDetailsRechts.Controls.Count = 0 Then
+                '        Dim usrCntl As New usrcntlAktDetails(id)
+                '        usrCntl.Dock = DockStyle.Fill
+                '        pnlDetailsRechts.Controls.Add(usrCntl)
+                '    Else
+                '        If reloadIfSameId Then
+                '            DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id)
+                '        Else
+                '            If DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID <> id Then
+                '                DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id)
+                '            End If
+                '        End If
+                '    End If
+
                Case "ATILLA"
                    If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", Me.FindForm) Then

@@ -549,6 +538,20 @@ Public Class frmHauptfenster
                            DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLA).reload(id)
                        End If
                    End If
+                Case Else
+                    If pnlDetailsRechts.Controls.Count = 0 Then
+                        Dim usrCntl As New usrcntlAktDetails(id)
+                        usrCntl.Dock = DockStyle.Fill
+                        pnlDetailsRechts.Controls.Add(usrCntl)
+                    Else
+                        If reloadIfSameId Then
+                            DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id)
+                        Else
+                            If DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID <> id Then
+                                DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id)
+                            End If
+                        End If
+                    End If
            End Select


@@ -692,7 +695,7 @@ Public Class frmHauptfenster
        'Anzeige der Anzahl gewählter Datensätze
        VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl = gridAviso.RowCount
        'If AnzahlAuswahl > AnzahlAlle Then AnzahlAlle = AnzahlAuswahl
-        lblAnzahl.Text = "Einträge: " & Format(VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl, "#,##0") & " ausgewählt" ' / " & Format(AnzahlAlle, "#,##0") & " gesamt"
+        '   lblAnzahl.Text = "Einträge: " & Format(VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl, "#,##0") & " ausgewählt" ' / " & Format(AnzahlAlle, "#,##0") & " gesamt"

        hMerkZeit = Now
        lblZeit_aktuell.Text = "letzte Aktualisierung: " & Format(Now, "HH:mm")
@@ -1197,7 +1200,8 @@ Public Class frmHauptfenster
                            selectRow(avisoidTmp)
                            Try
                                Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-                                    Case "VERAG", "IMEX"
+                                    Case "ATILLA"
+                                    Case Else ' "VERAG", "IMEX"
                                        DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).openSnd(sndidTmp)
                                End Select
                            Catch ex As Exception
@@ -1575,15 +1579,7 @@ Public Class frmHauptfenster
                                Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
                            End If
                        End If
-                    Case "IMEX"
-                        Dim usrcntl As usrcntlAktDetails = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails)
-                        If aktWithoutCheckTime Or usrcntl.AvisoID <> tmpid Then
-                            Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
-                        Else
-                            If DateDiff(DateInterval.Second, usrcntl.aktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
-                                Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
-                            End If
-                        End If
+
                    Case "ATILLA"
                        If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", Me.FindForm) Then
                            Dim usrcntl As usrcntlAktDetailsATILLANeu = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu)
@@ -1604,7 +1600,15 @@ Public Class frmHauptfenster
                                End If
                            End If
                        End If
-
+                    Case Else
+                        Dim usrcntl As usrcntlAktDetails = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails)
+                        If aktWithoutCheckTime Or usrcntl.AvisoID <> tmpid Then
+                            Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                        Else
+                            If DateDiff(DateInterval.Second, usrcntl.aktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
+                                Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                            End If
+                        End If
                End Select

            End If
@@ -2719,9 +2723,13 @@ Public Class AvisoStatusFunctions
        Else
            Aviso.Ankunft = Now
        End If
-        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
+
        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))
        Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
@@ -3429,9 +3437,11 @@ Public Class AvisoStatusFunctions
                Aviso.Änderungen = "LKW ist fertig - nicht gesetzt, deshalb automatisch gesetzt mit FREIGABE" & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
            End If

-            If Aviso.Grenzstelle.Replace("???", "") <> "" Then
-                If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then Aviso.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
-            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
+            '    End If
+            'End If
            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
@@ -3569,9 +3579,12 @@ Public Class AvisoStatusFunctions
        End If
        'Status ist Ankunft, Vorbereitet, Vorgeschrieben oder Erfasst - aktiver Mitarbeiter wird geändert
        Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
-        If Aviso.Grenzstelle.Replace("???", "") <> "" Then
-            If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then Aviso.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
-        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
+        '    End If
+        'End If

        Aviso.Änderungen = "Akt übernommen von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
        Dim tmpid = AvisoDAL.SpeichernAviso(Aviso)
@@ -3580,14 +3593,10 @@ Public Class AvisoStatusFunctions
        Try
            If frmHauptfenster.pnlDetailsRechts.Controls.Count > 0 Then
                Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-                    Case "VERAG"
-                        If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID = AvisoID Then
-                            DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).showInfo("Akt übernommen", 2)
-                        End If
-                    Case "IMEX"
-                        If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID = AvisoID Then
-                            DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).showInfo("Akt übernommen", 2)
-                        End If
+                    'Case "VERAG"
+                    '    If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID = AvisoID Then
+                    '        DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).showInfo("Akt übernommen", 2)
+                    '    End If
                    Case "ATILLA"
                        If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", "AVISO") Then
                            If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID = AvisoID Then
@@ -3598,6 +3607,10 @@ Public Class AvisoStatusFunctions
                                DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLA).showInfo("Akt übernommen", 2)
                            End If
                        End If
+                    Case Else
+                        If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID = AvisoID Then
+                            DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).showInfo("Akt übernommen", 2)
+                        End If

                End Select
            End If