AVISO/Aviso/frmHauptfenster.vb

Imports System.IO
Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
Imports VERAG_PROG_ALLGEMEIN.cGlobal
Imports com.esendex.sdk.messaging
Imports Newtonsoft.Json
Imports System.Reflection
Imports System.Drawing.Drawing2D
Imports SDL
Imports Microsoft.Office.Interop
Imports Spire.Pdf.Texts
Imports System.Net
Imports System.Text
Imports System.IO.Pipes
Imports System.Security.AccessControl
'Imports UID
Public Class frmHauptfenster



    Public aktiv = False
    Private AvisoDAL As New cAvisoDAL
    Private VermerkeDAL As New cVermerkeDAL
    Private Standorte As New cStandorteDAL
    Private FUNC As New AvisoStatusFunctions
    Private locZeilen As Integer = -1
    Private Anzahl As Integer
    Public Grid_aktiv As Boolean = False
    Private Details_aktiv As Boolean = False
    Private Zähler As Long = 0
    Private hMerkZeit As Date
    Private hMerkZeit2 As Date

    Private hMerkZeit_MeineAviso As Date
    Dim cProgramFunctions As New cProgramFunctions
    Private Paketdienste_EXE As String

    Private SucheStandort As String = ""
    Private GridAnzeigen As Integer = 0
    Private GridZeichnen As Integer = 0
    Dim lkwbackcolor As Color = Color.FromArgb(220, 220, 220)
    Dim lkwbackcolorSel As Color = Color.FromArgb(200, 200, 200)
    Dim FIMRA_COLOR As Color = Color.FromArgb(0, 54, 128)
    Dim VermerkeAktuelleAvisoId As Integer = -1
    Private infotxt As String = ""
    Public gridFont As New Font(Me.Font.FontFamily, 8)
    Dim cFormularManager As New VERAG_PROG_ALLGEMEIN.cFormularManager
    ' Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
    Dim sd = 0
    Dim closeOK = False
    Dim Fullscreen = False
    Dim rowHeight = 20
    Dim chkFarben = True

    Private VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL

    Dim WithEvents hideErr As New Timer

    Dim WithEvents UpdateUpdater As New Timer
    Dim WithEvents UpdateSession As New Timer

    Public Sub New()
        InitializeComponent()
        Me.DoubleBuffered = True
        SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
        UpdateStyles()

        Icon = cMeineFunktionenAVISO.GetProgrammIcon
    End Sub

    Private Sub frmMain_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.LOGOUT()
        If Not closeOK Then
            My.Settings.frmMainSize = Me.Size
            My.Settings.frmMainPosition = Me.Location
            My.Settings.Save()
            Application.Exit()
        End If
    End Sub

    Private Sub frmHauptfenster_GotFocus(sender As Object, e As EventArgs) Handles MyBase.GotFocus
        Timer1_Tick(Timer1, New EventArgs)
    End Sub

    Public Shared Sub EnableDoubleBuffered(ByRef dgv As DataGridView)
        Dim dgvType As Type = dgv.[GetType]()
        Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered", BindingFlags.Instance Or BindingFlags.NonPublic)
        pi.SetValue(dgv, True, Nothing)
    End Sub



    Private Sub frmMain_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown

        If e.KeyCode = Keys.F2 Or e.KeyCode = Keys.F5 Then
            btnRefresh_Click(sender, e)    'F2 löst Aktualisierung aus
        End If

        'If e.KeyCode = Keys.F5 Then
        '    FUNC.setAnkunft(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
        '    avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
        'End If

        'If e.KeyCode = Keys.F9 Then
        '    FUNC.setFreigabe(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, Me)
        '    avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
        'End If

        If e.KeyCode = Keys.F11 Then
            FUNC.AktUebernehmen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
            avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
        End If

        If e.KeyCode = Keys.Escape Then
            Grid_aktiv = False
            cboGrenzstelle.SelectedIndex = 0
            '  If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "QS" Then
            'cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
            '  End If
            MyComboBox1.changeItem(UStatus_AVEingang)

            tbcntrAvisoLKW.SelectedIndex = 0
            txtSuche.Text = ""
            txtSuche.Focus()
            Grid_aktiv = True
            initDat()
            Aviso_anzeigen("")
        End If
        If (e.KeyCode) = Keys.Add AndAlso e.Control Then
            btnNeu.PerformClick()
        End If

        If (e.KeyCode) = Keys.K AndAlso e.Control Then
            If btnKunden.Visible Then btnKunden.PerformClick()
        End If
        If (e.KeyCode) = Keys.R AndAlso e.Control Then
            If btnRg.Visible Then btnRg.PerformClick()
        End If
        If (e.KeyCode) = Keys.F AndAlso e.Control Then
            If btnFakturierung.Visible Then btnFakturierung.PerformClick()
        End If
        If (e.KeyCode) = Keys.S AndAlso e.Control Then
            If btnSpedBuch.Visible Then btnSpedBuch.PerformClick()
        End If
        If (e.KeyCode) = Keys.M AndAlso e.Control Then
            If picAVISOMessenger.Visible Then PictureBox1_Click(picAVISOMessenger, New EventArgs)
        End If

        If e.KeyCode = Keys.D1 AndAlso e.Control Then tbcntrAvisoLKW.SelectedIndex = 1 : txtSuche.Focus()
        If e.KeyCode = Keys.D2 AndAlso e.Control Then tbcntrAvisoLKW.SelectedIndex = 2 : txtSuche.Focus()
        If (e.KeyCode) = Keys.D3 AndAlso e.Control Then tbcntrAvisoLKW.SelectedIndex = 3 : txtSuche.Focus()
        If (e.KeyCode) = Keys.D4 AndAlso e.Control Then tbcntrAvisoLKW.SelectedIndex = 4 : txtSuche.Focus()
        If (e.KeyCode) = Keys.D5 AndAlso e.Control Then tbcntrAvisoLKW.SelectedIndex = 5 : txtSuche.Focus()
        If (e.KeyCode) = Keys.D0 AndAlso e.Control Then tbcntrAvisoLKW.SelectedIndex = 6 : txtSuche.Focus()
        If (e.KeyCode) = Keys.Oem5 AndAlso e.Control Then tbcntrAvisoLKW.SelectedIndex = 0 : txtSuche.Focus()

    End Sub

    '----------------------------------------------------------------------------------------------------------------------
    '----------------------------------------------------------------------------------------------------------------------
    '----------------------------------------------------------------------------------------------------------------------

    Private listenerThread As System.Threading.Thread

    Private Sub StartPipeListener()
        listenerThread = New System.Threading.Thread(Sub()
                                                         Try

                                                             Dim pipeName As String = $"AVISO_{Process.GetCurrentProcess().Id}"
                                                             Dim pipeSecurity As New PipeSecurity()
                                                             pipeSecurity.AddAccessRule(New PipeAccessRule(Environment.UserName, PipeAccessRights.FullControl, AccessControlType.Allow))

                                                             Console.WriteLine($"Waiting for messages on pipe {pipeName}...")

                                                             While True
                                                                 Using server = New NamedPipeServerStream(pipeName, PipeDirection.In, 1, PipeTransmissionMode.Byte, PipeOptions.None, 0, 0, pipeSecurity)
                                                                     Try
                                                                         server.WaitForConnection()

                                                                         Using reader = New StreamReader(server, Encoding.UTF8)
                                                                             Dim message = reader.ReadLine()

                                                                             ProcessMessage(message)
                                                                         End Using

                                                                         server.Disconnect()
                                                                     Catch ex As Exception
                                                                         Console.WriteLine("Fehler im Listener: " & ex.Message)
                                                                     End Try
                                                                 End Using
                                                             End While

                                                         Catch ex As Exception
                                                             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)

                                                         End Try
                                                     End Sub)
        listenerThread.IsBackground = True
        listenerThread.Start()
    End Sub

    Private Sub ProcessMessage(message As String)


        If message.StartsWith("OpenKd_") Then
            Invoke(Sub()
                       Dim split = message.ToString.Split("_")
                       FUNC.showKd(split(1), True)
                   End Sub)
        ElseIf message.StartsWith("OpenAvisoSnd_") Then
            Invoke(Sub()
                       Dim split = message.ToString.Split("_")
                       If split.Count > 1 AndAlso IsNumeric(split(1)) AndAlso split(1) > 0 Then
                           Dim frmSendungsdetails As New frmSendungsdetailsNEU(split(1), -1)
                           frmSendungsdetails.ShowDialog(Me)
                       End If
                   End Sub)

        End If
    End Sub

    Protected Overrides Sub OnFormClosed(e As FormClosedEventArgs)
        MyBase.OnFormClosed(e)
        Try
            If listenerThread IsNot Nothing Then
                listenerThread.Abort()
            End If

        Catch ex As Exception

        End Try
    End Sub

    '----------------------------------------------------------------------------------------------------------------------
    '----------------------------------------------------------------------------------------------------------------------
    '----------------------------------------------------------------------------------------------------------------------

    Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
            If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Then
                StartPipeListener()
            End If
        End If

        'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
        Me.AutoScaleMode = AutoScaleMode.Dpi
        hideErr.Interval = 3000

        VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL


        EnableDoubleBuffered(gridAviso)
        EnableDoubleBuffered(gridMyAviso)
        'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
        '    Case "IMEX"
        '        FIMRA_COLOR = Color.FromArgb(250, 200, 0)
        '    Case "ATILLA"
        '        FIMRA_COLOR = Color.FromArgb(0, 54, 128)
        '        ' FIMRA_COLOR = Color.Red
        '    Case Else
        '   FIMRA_COLOR = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
        'End Select

        lblFimaAviso.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA

        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
        UsrCntlBenachrichtigungen1.Panel3.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor

        UpdateUpdater.Interval = 5000
        UpdateUpdater.Enabled = True

        lblVersion.Text = "V " & Application.ProductVersion 'My.Resources.Version2
        UpdateSession.Interval = 60000
        UpdateSession.Enabled = True

        '  transparentpnl.Visible = True
        'transparentpnl.BackColor = Color.FromArgb(25, Color.Red)
        ' transparentpnl.BackColor = Color.Transparent


        btnMitarbeiterKonto.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
        setProfileImage()

        TimerAkte.Enabled = True
        Grid_aktiv = False

        Dim OptionenDAL As New VERAG_PROG_ALLGEMEIN.cOptionenDAL

        If VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then
            cboGrenzstelle.Items.Clear()
            cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where grz_Grenzstelle='" & VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT & "'  AND  grz_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'   AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", False)
        Else
            cboGrenzstelle.Items.Clear()
            cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where ([grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE")
            cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE WARENORTE", "ALLE_WO"))
            cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("??? - Andere", "???"))
        End If


        'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
        'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
        'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
        'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
        'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
        'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SFD", "SFD"))
        'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEU", "NEU"))
        'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMB"))
        'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WO: GE TRANSPORT", "WO_GE"))
        ''cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WO: KITA", "WO_KITA"))
        'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
        cboGrenzstelle.changeItem("")

        '  txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})
        txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})

        cboImEx.Items.Clear()
        cboImEx.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
        cboImEx.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMPORT", "IMPORT"))
        cboImEx.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EXPORT", "EXPORT"))
        cboImEx.changeItem("")




        If VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then
            cboMy_Grenzstelle.Items.Clear()
            cboMy_Grenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where grz_Grenzstelle='" & VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT & "'  AND  grz_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'   AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", False)
            cboMy_Grenzstelle.changeItem("")
        Else
            cboMy_Grenzstelle.Items.Clear()
            ''''If Not VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then ' Nicht, wenn Front-Office
            ''''    cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE (BACKOFFICE)", "ALLE_BACK"))
            ''''End If

            cboMy_Grenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where ([grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True, False, "ALLE")
            '   cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG+AMB", "SBG+AMB"))
            cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE WARENORTE", "ALLE_WO"))
            cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("??? - Andere", "???"))
            cboMy_Grenzstelle.changeItem("")
            ''''cboMy_Grenzstelle.changeItem("ALLE_BACK") 'greift nur wenn verfügbar..
        End If

        'If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SBG" And VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then
        '    cboMy_Grenzstelle.changeItem("SBG+AMB")
        'End If

        'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
        'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
        'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
        'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
        'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
        'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SFD", "SFD"))
        'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEU", "NEU"))
        'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMB"))
        'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WO: GE TRANSPORT", "WO_GE"))
        ''cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WO: KITA", "WO_KITA"))
        'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))

        cboMyAvisoAnzeige.Items.Clear()
        cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "ALLE"))
        cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Benutzer", "Benutzer"))
        cboMyAvisoAnzeige.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True, False)
        cboMyAvisoAnzeige.changeItem("Benutzer")


        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
            cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1-Sendungen", "T1"))
            cboMy_QS.CheckState = CheckState.Checked
            cboMy_VB.CheckState = CheckState.Unchecked
            cboMyAvisoAnzeige.changeItem("T1")
        Else

            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
                StandortWechselnToolStripMenuItem.Visible = True
            ElseIf VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STANDORT_WECHSELN", "AVISO") Then
                StandortWechselnToolStripMenuItem.Visible = True
            End If

            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "QS" Then
                cboMy_QS.CheckState = CheckState.Unchecked
                cboMy_VB.CheckState = CheckState.Indeterminate
            Else
                cboMy_QS.CheckState = CheckState.Checked
                cboMy_VB.CheckState = CheckState.Unchecked
            End If

            Dim myLKW As Boolean = False
            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId Is Nothing Then
                myLKW = True
            End If

            If myLKW Then
                cbx_My_LKW.Checked = True
                cboMy_QS.CheckState = CheckState.Indeterminate
                cboMy_VB.CheckState = CheckState.Indeterminate
            ElseIf IsNumeric(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId) Then
                cboMyAvisoAnzeige.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId)
                '  MyComboBox2.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId)
            End If
        End If

        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("GESAMTSICHERHEIT", "AVISO") Then GesamtsicherheitenToolStripMenuItem.Visible = True

        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
            Case "ATILLA" ' Case "VERAG", "IMEX"
                ' lblErweitereSuche.Visible = False
                MDMParkplatzkartenToolStripMenuItem.Visible = False

                '  SplitContainer3.Panel1Collapsed = True
                Button10.Visible = False

                If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Weiterleiten", "AVISO") Then
                    Button10.Visible = True
                    SplitContainer3.Panel1Collapsed = True
                End If
            Case Else

                If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Weiterleiten", "AVISO") Then
                    SplitContainer3.Panel1Collapsed = True
                End If

                'AVISO vom PC übernehmen
                Dim zeilen As Integer = OptionenDAL.setAVISOFromPcName()
                Select Case zeilen
                    Case 0 : lblAkte.Visible = False
                    Case 1 : lblAkte.Text = zeilen & " Akt vom Arbeitsplatz übernommen"
                    Case Else : lblAkte.Text = zeilen & " Akte vom Arbeitsplatz übernommen"
                End Select

                If Not (VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "QS" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SUB") Then
                    ' cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
                    cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
                End If
        End Select


        'Einlesen der Standardoptionen (ist normalerweise immer ID 1)
        Try
            VERAG_PROG_ALLGEMEIN.cGlobal.Optionen = OptionenDAL.LesenOptionen(1, "")
        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Ankunft_Betreff = ""
            VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Ankunft_Text = ""
            VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Freigabe_Betreff = ""
            VERAG_PROG_ALLGEMEIN.cGlobal.Optionen.eMail_Freigabe_Text = ""
        End Try

        '  VERAG_PROG_ALLGEMEIN.cglobal.Admin = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.Sicherheitsstufe = 0

        'Menü je nach Berechtigungsebene anzeigen
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
            AdministrationToolStripMenuItem.Visible = True
            lblMitarbeiter.Text += " (Admin)"
            Button3.Visible = True
            Button1.Visible = True

        End If
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("eAVISO", "AVISO") Then
            btnE_Aviso.Visible = True
            Label22.Visible = True
            initEAviso()
        End If
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MESSENGER", "AVISO") Then
            picAVISOMessenger.Visible = True
        End If
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG", "SDL") Then
            btnFakturierung.Visible = True
        End If
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("RECHNUNGSSUCHE", "SDL") Then
            btnRg.Visible = True
        End If
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MAILVORLAGEN", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MAILVORLAGEN_ALLE", "SDL") Then
            MailvorlagenToolStripMenuItem.Visible = True
        End If

        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Leistungen_FIBU", "SDL") Then
            FIBUSachkontenToolStripMenuItem.Visible = True
        End If


        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MITARBEITER_VERZEICHNIS", "SDL") Then
            btnMAVerzeichnis.Visible = True
        End If
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then
            BREXITToolStripMenuItem.Visible = True
            cbx_My_Brexit.Checked = True
        End If

        'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then
        '    btnSpedBuch.Visible = False
        'End If

        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_Stammref_Verwalten", "AVISO") Then
            DAKOSYToolStripMenuItem.Visible = False
        End If



        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SRI_LANKA", "AVISO") Then
            'MenuStrip1.Items.Clear()
            ' MenuStrip1.Items.Remove(FunktionenToolStripMenuItem)'-->Siehe unten
            MenuStrip1.Items.Remove(ToolStripFormulare)

            StatistikToolStripMenuItem.DropDownItems.Remove(SDLAuswertungenToolStripMenuItem1)
            StatistikToolStripMenuItem.DropDownItems.Remove(SDLAuswertungenToolStripMenuItem)


            For Each i In FunktionenToolStripMenuItem.DropDownItems
                If i.name <> "tool_BRGXLS" And i.name <> "toolOriginalATR" Then

                    i.Visible = False
                End If
            Next

            'While MenuStrip1.Items.Count > 1
            '    MenuStrip1.Items.RemoveAt(1)
            'End While
            'btnGenerelleGestellungen.Visible = False
            If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then btnSpedBuch.Visible = False
            btnDienstplan.Visible = True
            'btnNeu.Enabled = False
            ' SplitContainer2.Visible = False
            btnDrucken.Visible = False
            'SplitContainer2.Panel2Collapsed = True
            '   splitMain.Panel2Collapsed = True
        End If

        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
            MenuStrip1.Items.Remove(FunktionenToolStripMenuItem)
            MenuStrip1.Items.Remove(StatistikToolStripMenuItem)
            btnZollwebseiten.Visible = False
            lblErweitereSuche.Visible = False
        End If

        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN", "AVISO") Then
            btnKunden.Visible = False
        End If


        MyComboBox1.Items.Clear()
        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("<keine Einschr.>", UStatus_none))
        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Aviso-Eingang", UStatus_AVEingang))
        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Erfasst", Status_Erfasst))
        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorbereit.QS", Status_Vorgeschrieben))
        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorgeschrieben", Status_Vorbereitet))
        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ankunft", Status_Ankunft))
        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Freigabe", Status_Freigegeben))
        MyComboBox1.changeItem(UStatus_AVEingang)

        'Größe wird sicherheitshalber maximiert angezeigt, da es mit dem Größe-/Positionsspeichern teilweise Probleme in der virtuellen Umgebung gibt
        '   Me.WindowState = FormWindowState.Normal

        'Position+Größe wird in ApplicationSettings vom Formular gespeichert
        'Try
        'Me.Size = My.Settings.frmMainSize
        'Me.Location = My.Settings.frmMainPosition
        'Me.Left = 100
        'Me.Top = 100
        'Catch ex As Exception
        'bei Fehler nichts machen
        'End Try

        'Mitarbeiterinfos anzeigen
        If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("SHOW_AVISO_PCNAME") Then
            VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter += "/" & SystemInformation.UserName.ToString
        End If


        lblMitarbeiter.Text = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
        'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then
        '    lblMitarbeiter.Text += " (Verwaltung)Then"
        'End If
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then
            lblMitarbeiter.Text += " (" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & ")"
        End If

        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AvisoTV_verwalten", Me) Then
            AvisoTVToolStripMenuItem.Visible = True
        End If

        lblUsrname.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
        lblGrenzstelle.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim
        chkFarben = True

        '        btnAlleAnzeigen.Visible = cGlobal.Admin

        'zuerst noch prüfen, ob unerledigte Aviso auf nicht eingetroffen gesetzt werden können
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then
            'Dim hSQL As String = "Select * FROM Aviso WHERE Status In (0,4,5) And Datum < " & SQLDatum(Now.AddDays(-21)) & "  And dateadd(DAY,10,VoraussichtlichesEintreffen) < GETDATE() and  Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND Grenzstelle IN ('AMB','NKD','SBG','SUB','WAI')  "
            Dim hSQL As String = "Select * FROM Aviso WHERE Status In (0,4,5) And Datum < " & SQLDatum(Now.AddDays(-21)) & " AND Grenzstelle IN ('AMB','NKD','SBG','SUB','WAI') and  Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'  and ((Transportmittelart = 'CONTAINER' and dateadd(DAY,20,VoraussichtlichesEintreffen) < GETDATE()) or (Transportmittelart <> 'CONTAINER' and dateadd(DAY,10,VoraussichtlichesEintreffen) < GETDATE()))"
            'dateadd(DAY,10,VoraussichtlichesEintreffen)  --> Voraussichtliches Eintreffen muss zudem um 10 Tage überschritten sein --> Container/Hafen haben lange Vorlaufzeiten
            Dim anz As Integer = AvisoDAL.Check_Nicht_eingetroffen(hSQL)
            If anz > 0 Then
                '  MsgBox("HINWEIS: " & vbCrLf & anz & " LKW-Aviso wurden auf 'LKW nicht eingetroffen' gesetzt, da bereits seit mehr als 21 Tagen offen.", vbInformation)
            End If
        End If


        cboTeams.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True)
        If cboTeams.Items.Count = 0 Then cboTeams.Visible = False
        'jetzt noch den Pfad zum Programm Paketdienste einlesen und zuweisen
        Try
            Dim pfadPaketdienste As String = Application.StartupPath & "\Paketdienste.txt"
            If Not File.Exists(pfadPaketdienste) Then
                'MsgBox("nicht gefunden: " & pfadDatei)
                'Sonderfall zum Debuggen
                pfadPaketdienste = "c:\projekte.net\verag\aviso\Paketdienste.txt"
            End If
            If Not File.Exists(Paketdienste_EXE) Then
                Paketdienste_EXE = "C:\Projekte.NET\Verag\Paketdienste\Paketdienste\bin\Debug\Paketdienste.exe"
                'Paketdienste_EXE = "C:\Program Files\Calibre2\calibre.exe"
            End If
            If File.Exists(pfadPaketdienste) Then
                Dim fs As New FileStream(pfadPaketdienste, FileMode.Open, FileAccess.Read)
                Dim strmReader As New StreamReader(fs)
                Paketdienste_EXE = strmReader.ReadLine
            End If
        Catch ex As Exception
            Paketdienste_EXE = ""
        End Try


        'Vorschlagswerte werden gesetzt
        ' tbcntrAviso.SelectedIndex = 0

        'Grid jetzt aktivieren und befüllen - Standardanzeige ident mit Button Wichtig
        dtpVon.Value = Now.AddMonths(-1) 'Now.AddDays(-15)
        dtpBis.Value = Now.AddDays(1)
        'optAnkunft.Checked = True
        tbcntrAvisoLKW.SelectedTab = tabAnkunft
        Grid_aktiv = True
        SucheStandort = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim
        If SucheStandort <> "" Then btnWichtigeStandort.Text = "Wichtig " & SucheStandort.Trim.ToUpper
        Aviso_anzeigen(" ORDER BY Ankunft")

        UsrCntlBenachrichtigungen1.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
        '  gridAviso_SpaltenFestlegen() 'Auskommentiert, do bei Aviso anzeigen schon ausgeführt wird
        'gridVermerke_SpaltenFestlegen()


        Timer1.Enabled = True
        Timer_REFRESH_Tick(Timer_REFRESH, New EventArgs)

        If gridAviso.RowCount > 0 Then
            gridAviso.Rows(0).Selected = True
        End If
        '  MsgBox(gridVermerke.Rows(0).Cells(5).Value)

        If Me.Height * 0.4 < 220 Then
            SplitContainer2.Height = 220
        Else
            SplitContainer2.Height = Me.Height * 0.4
        End If

        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KASSE", "SDL") Or
            VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KASSE_BH_Login", "SDL") Or
            VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KASSE_Saldo_Anzeige", "SDL") Then
            btnKassenbuch.Visible = True
        End If

        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ESSENSBESTELLUNGEN", "SDL") Then
            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                Case "FRONTOFFICE", "VERAG", "IMEX", "UNISPED"
                    EssensbestellungenToolStripMenuItem.Visible = True
            End Select
        End If

        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN_ESSENSBESTELLUNGEN", "AVISO") Then
            AdministrationEssensbestellungenToolStripMenuItem.Visible = True
        End If

        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DATEV_EXPORT", "SDL") And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
            DatevBuchungsexportToolStripMenuItem.Visible = True
        End If


        Panel1.Height -= pnlSearch.Height

        If Now.ToShortDateString >= DateTime.Parse("01/01/2023") Then

            ToolStripMenuItem4.Visible = False
            ToolStripMenuItem5.Visible = False
            ToolStripMenuItem6.Visible = False
            BürgschaftenExcelToolStripMenuItem.Visible = False

        End If

        Try

            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
                If Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasNichtStempeln Then
                    Dim timas As New cTimasAPI("timas")
                    Dim infoMessage As New DataTable
                    Dim timeEntryExisting As Boolean = False
                    Dim isEndpointRunning As Boolean = True
                    timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting,, isEndpointRunning)
                    If Not timeEntryExisting AndAlso isEndpointRunning Then
                        Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst" & vbNewLine & Now.ToString() & " als Startzeit erfassen?", vbYesNo)
                        If a = vbYes Then

                            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasMehrereFirmen Then
                                Dim f As New frmZEButtons("in", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasFirmen)
                                f.ShowDialog()
                                f.BringToFront()
                            Else
                                Dim info
                                timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in", IIf(cAllgemein.MITARBEITER.mit_homeoffice, 3, 0))
                                MsgBox(info)
                            End If

                        Else

                        End If

                    End If

                End If
            End If

        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try



    End Sub

    Sub initEAviso()
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("eAVISO", "AVISO") Then
            If VERAGSQL Is Nothing Then VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL '??
            Label22.Text = VERAGSQL.getValueTxtBySql("SELECT count(*) FROM [tblNCTS_TR] where ncts_AVISO_einarbeitet=0 AND ncts_Partnersystem='ATEZ'", "FMZOLL") '"XX"
            If Label22.Text = "0" Then Label22.Text = ""
            Label22.Visible = Label22.Text <> ""
            Label22.BringToFront()
        End If
    End Sub


    Public Sub setAktDetails(id, showSendungsdetails)
        Details_anzeigen(id) ', showSendungsdetails)
    End Sub

    Private Sub gridAviso_SpaltenFestlegen()
        If gridAviso.RowCount = 0 Then Exit Sub
        Dim bfont = New Font(gridAviso.Font.FontFamily, gridAviso.Font.Size, FontStyle.Bold)
        With gridAviso

            '  .Columns("AvisoID").Visible = False     'AvisoID nicht anzeigen

            If Fullscreen Then
                .Columns("Datum").Visible = True     'Mitarb. nicht anzeigen
                .Columns("Freigabe").Visible = True     'Mitarb. nicht anzeigen
                .Columns("Handling").Visible = True     'Mitarb. nicht anzeigen
                .Columns("Vorbereitet").Visible = True
                .Columns("Vorgeschrieben").Visible = True
            Else
                .Columns("Datum").Visible = False     'Mitarb. nicht anzeigen
                .Columns("Freigabe").Visible = False     'Mitarb. nicht anzeigen
                .Columns("Handling").Visible = False     'Mitarb. nicht anzeigen
                .Columns("Vorbereitet").Visible = False
                .Columns("Vorgeschrieben").Visible = False

            End If

            .Columns("TageBisEintreffen").Visible = False
            .Columns("Transportmittelart").Visible = False

            .Columns("Status").Width = 25
            .Columns("Status").HeaderText = "St."

            .Columns("AvisoID").Width = 60
            .Columns("AvisoID").HeaderText = "LKW-Id"

            .Columns("LetzterMitarbeiter").Width = 135
            .Columns("LetzterMitarbeiter").HeaderText = "akt. Mitarb"


            .Columns("VoraussichtlichesEintreffen").Width = 95
            .Columns("VoraussichtlichesEintreffen").HeaderText = "Vorauss.Eintreffen"
            .Columns("VoraussichtlichesEintreffen").DefaultCellStyle.Format = "dd.MM.yyyy"
            '.Columns("VoraussichtlichesEintreffen").DefaultCellStyle.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold)


            .Columns("AvisoEingang").Width = 95
            .Columns("AvisoEingang").HeaderText = "Av.Eingang"
            .Columns("AvisoEingang").DefaultCellStyle.Format = "dd.MM. HH:mm"

            .Columns("Datum").Width = 95
            .Columns("Datum").HeaderText = "Erfasst"
            .Columns("Datum").DefaultCellStyle.Format = "dd.MM. HH:mm"
            .Columns("Datum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter


            .Columns("Vorbereitet").Width = 100
            .Columns("Vorbereitet").HeaderText = "Vorbereitet"
            .Columns("Vorbereitet").DefaultCellStyle.Format = "dd.MM. HH:mm"


            .Columns("Vorgeschrieben").Width = 100
            .Columns("Vorgeschrieben").HeaderText = "Vorgeschrieben"
            .Columns("Vorgeschrieben").DefaultCellStyle.Format = "dd.MM. HH:mm"


            .Columns("Ankunft").Width = 100
            .Columns("Ankunft").HeaderText = "Ankunft"
            .Columns("Ankunft").DefaultCellStyle.Format = "dd.MM. HH:mm"


            .Columns("Freigabe").Width = 100
            .Columns("Freigabe").HeaderText = "Freigabe"
            .Columns("Freigabe").DefaultCellStyle.Format = "dd.MM. HH:mm"

            .Columns("Dauer").Width = 60
            .Columns("Dauer").HeaderText = "Dauer"
            .Columns("Dauer").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns("Dauer").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

            '  If cGlobal.AktiverMitarbeiter.Abteilung = "quick-stop" Then
            '.Columns(10).Visible = True
            ' Else
            ' .Columns(10).Visible = False
            ' End If

            .Columns("Grenzstelle").Width = 55
            .Columns("Grenzstelle").HeaderText = "Grenz."
            .Columns("Grenzstelle").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns("Grenzstelle").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter



            .Columns("LKW_Nr").Width = 150
            '.Columns("LKW_Nr").MinimumWidth = 90
            .Columns("LKW_Nr").HeaderText = "LKW-Nr"
            '  .Columns("LKW_Nr").DefaultCellStyle.Font = New Font(.DefaultCellStyle.Font.FontFamily, .DefaultCellStyle.Font.Size, FontStyle.Bold)
            '.Columns("LKW_Nr").DefaultCellStyle.BackColor = lkwbackcolor
            '.Columns("LKW_Nr").DefaultCellStyle.SelectionBackColor = lkwbackcolor

            .Columns("Auftraggeber").MinimumWidth = 150
            .Columns("Auftraggeber").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
            .Columns("Auftraggeber").HeaderText = "Avisierer"

            .Columns("Frächter").MinimumWidth = 150
            .Columns("Frächter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
            .Columns("Frächter").HeaderText = "Frächter"

            .Columns("Telefonisch").Visible = False     'Status Telefon nicht anzeigen
            .Columns("AvisoTVHinweis").Visible = False     'Status Telefon nicht anzeigen

            .Columns("LKW_fertig").Width = 35
            .Columns("LKW_fertig").HeaderText = "OK"
            .Columns("LKW_fertig").DefaultCellStyle.ForeColor = Color.White
            .Columns("LKW_fertig").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns("LKW_fertig").DefaultCellStyle.Font = bfont

            If cboGrenzstelle._value = "NEU" Then
                .Columns("VerwahrungStatus").Width = 55
                .Columns("VerwahrungStatus").HeaderText = "Kontrolle"
                .Columns("VerwahrungStatus").DefaultCellStyle.ForeColor = Color.White
                .Columns("VerwahrungStatus").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
                .Columns("VerwahrungStatus").DefaultCellStyle.Font = bfont
                .Columns("VerwahrungStatus").Visible = True
            Else
                .Columns("VerwahrungStatus").Visible = False
            End If

            .Columns("Info").Visible = False
            .Columns("Info").MinimumWidth = 200
            .Columns("Info").HeaderText = "Info (Einträge bis zum Status ERFASST)"
            .Columns("Info").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill

            .Columns("Handling").Width = 50
            .Columns("Handling").HeaderText = "Handling"


            '.Columns(12).Width = 700
            '.Columns(12).HeaderText = "Änderungen"

            initDauerLKWFertig()
            ._TRANSLATE()
        End With
    End Sub

    Sub initDauerLKWFertig()
        Try

            'Dauer berechnen:
            With gridAviso

                For Each r As DataGridViewRow In .Rows
                    If r.Cells("Dauer").Value Is DBNull.Value Or r.Cells("Dauer").Value = 0 Then
                        If CInt(r.Cells("Status").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Or CInt(r.Cells("Status").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX Or CInt(r.Cells("Status").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN Then
                            If Not IsDBNull(r.Cells("Ankunft").Value) AndAlso Not CDate(r.Cells("Ankunft").Value) = LeerDatum Then
                                Dim dauerTmp = DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells("Ankunft").Value)), Now)
                                If IsNumeric(dauerTmp) AndAlso dauerTmp > 0 Then
                                    r.Cells("Dauer").Value = dauerTmp
                                Else
                                    r.Cells("Dauer").Value = "0"
                                End If
                            Else
                                r.Cells("Dauer").Value = "0"
                            End If
                        End If
                    End If
                    If r.Cells("LKW_fertig").Value = "OK" Then
                        r.Cells("LKW_fertig").Style.ForeColor = Color.White
                        r.Cells("LKW_fertig").Style.BackColor = Color.FromArgb(0, 54, 128)
                        'Else
                        'r.Cells("LKW_fertig").Style.BackColor = Color.White
                    End If
                    If r.Cells("LKW_fertig").Value = "DE" Then
                        r.Cells("LKW_fertig").Style.ForeColor = Color.White
                        r.Cells("LKW_fertig").Style.BackColor = Color.Green
                        'Else
                        'r.Cells("LKW_fertig").Style.BackColor = Color.White
                    End If
                    If r.Cells("VerwahrungStatus").Value = "OK" Then
                        r.Cells("VerwahrungStatus").Style.ForeColor = Color.White
                        r.Cells("VerwahrungStatus").Style.BackColor = Color.Green
                        'Else
                        'r.Cells("LKW_fertig").Style.BackColor = Color.White
                    End If


                Next
            End With

        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
    End Sub


    Public Sub Details_anzeigen(ByVal id As Integer, Optional reloadIfSameId As Boolean = True) ', Optional opensendungsDetails As Boolean = False)
        Me.Cursor = Cursors.AppStarting
        If Not Details_aktiv Then Exit Sub

        If id > 0 Then
            pnlDetailsRechts.Visible = True

            showPnlRight(id, reloadIfSameId)

        Else
            pnlDetailsRechts.Visible = False
        End If
        lblEintraege.Text = gridAviso.RowCount & " Einträge" & If(gridAviso.RowCount = 2000, " (begrenzt)", "")

        Me.Cursor = Cursors.Default
    End Sub


    Sub showPnlRight(AvisoId, reloadIfSameId)
        ' MsgBox(VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(AvisoId))
        Select Case VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(AvisoId)

            Case "ATILLA"
                If VERAG_PROG_ALLGEMEIN.cAllgemein.ATILLA_SND Then
                    GoTo ELSE_ATILLA
                Else

                    'If pnlDetailsRechts.Controls.Count > 0 Then
                    '    MsgBox(pnlDetailsRechts.Controls(0).Name)
                    'End If
                    If pnlDetailsRechts.Controls.Count = 0 OrElse pnlDetailsRechts.Controls(0).Name <> "usrcntlAktDetailsATILLANeu" Then
                        pnlDetailsRechts.Controls.Clear()
                        Dim usrCntl As New usrcntlAktDetailsATILLANeu(AvisoId)
                        usrCntl.Dock = DockStyle.Fill
                        pnlDetailsRechts.Controls.Add(usrCntl)
                    Else
                        DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).reload(AvisoId)
                    End If
                End If


            Case Else
ELSE_ATILLA:
                If pnlDetailsRechts.Controls.Count = 0 OrElse pnlDetailsRechts.Controls(0).Name <> "usrcntlAktDetails" Then
                    pnlDetailsRechts.Controls.Clear()
                    Dim usrCntl As New usrcntlAktDetails(AvisoId)
                    usrCntl.Dock = DockStyle.Fill
                    pnlDetailsRechts.Controls.Add(usrCntl)
                Else
                    If reloadIfSameId Then
                        DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(AvisoId)
                    Else
                        If DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID <> AvisoId Then
                            DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(AvisoId)
                        End If
                    End If
                End If
        End Select
    End Sub
    ' Dim AVISOBinding As New cBinding("AVISO")

    Public Sub Aviso_anzeigen(hSort As String, Optional showDetails As Boolean = True, Optional typ As String = "LKW")
        'Paint wieder reaktivieren
        locZeilen = -1
        If Not Grid_aktiv Then Exit Sub
        ' Grid_aktiv = False
        Dim hStart As Integer = My.Computer.Clock.TickCount
        Details_aktiv = False
        gridAviso.GetOrder()


        Dim datumseinschr = ""
        Dim top = "TOP 1000 "

        Dim hSQL As String = ""
        If typ = "LKW" Then

            '----------------------------------------------------------------------------------------------------------------------------------
            '--- LKW ---
            '----------------------------------------------------------------------------------------------------------------------------------

            'Bei ANKUNFT nicht nach Datum einschränken
            If tbcntrAvisoLKW.SelectedTab Is tabAnkunft Or tbcntrAvisoLKW.SelectedTab Is tabErfasst Or tbcntrAvisoLKW.SelectedTab Is tabVorbereitet Or tbcntrAvisoLKW.SelectedTab Is tabVorgeschrieben Then
                pnlTime.Visible = False
            Else
                pnlTime.Visible = True
                Select Case MyComboBox1._value
                    Case UStatus_none
                        top = " TOP 1000 "
                    Case UStatus_AVEingang : datumseinschr &= " AND AvisoEingang >=  " & SQLDatum(dtpVon.Value) & " AND AvisoEingang  < " & SQLDatum(dtpBis.Value.AddDays(1))
                    Case Status_Erfasst : datumseinschr &= " AND Datum  >=  " & SQLDatum(dtpVon.Value) & " AND Datum  < " & SQLDatum(dtpBis.Value.AddDays(1))
                    Case Status_Vorgeschrieben : datumseinschr &= " AND Vorgeschrieben >=  " & SQLDatum(dtpVon.Value) & " AND Vorgeschrieben  < " & SQLDatum(dtpBis.Value.AddDays(1))
                    Case Status_Vorbereitet : datumseinschr &= " AND Vorbereitet >=  " & SQLDatum(dtpVon.Value) & " AND Vorbereitet  < " & SQLDatum(dtpBis.Value.AddDays(1))
                    Case Status_Ankunft : datumseinschr &= " AND Ankunft >=  " & SQLDatum(dtpVon.Value) & " AND Ankunft  < " & SQLDatum(dtpBis.Value.AddDays(1))
                    Case Status_Freigegeben : datumseinschr &= " AND Freigabe >=  " & SQLDatum(dtpVon.Value) & " AND Freigabe  < " & SQLDatum(dtpBis.Value.AddDays(1))
                End Select
            End If

            If pnlSearch.Visible Then
                top = " TOP 1000 "
            End If


            hSQL = "SELECT " & top & "  Status, AvisoID, LKW_Nr, Auftraggeber, Frächter,VoraussichtlichesEintreffen, AvisoEingang, Ankunft, Dauer, Grenzstelle,letzterMitarbeiter,CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus],CASE WHEN [ZOLLDigitalEingereicht] = 1 THEN 'DE'  WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], Datum, Vorbereitet, Vorgeschrieben,  Freigabe, "
            hSQL &= " Telefonisch, Info,Handling,AvisoTVHinweis,DATEDIFF(DAY,getdate(),[VoraussichtlichesEintreffen]) TageBisEintreffen,isnull(Transportmittelart,'')Transportmittelart"
            hSQL &= " FROM Aviso "
            hSQL &= " WHERE 1=1 "

            If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" And cbxCluster.Checked Then
                hSQL &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) "
            Else
                hSQL &= " AND FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'  "
            End If
            If pnlSearch.Visible Then
                Dim srchkrit = False
                Dim hSQLSnd = ""
                hSQLSnd &= "  AND ( SELECT COUNT(*) FROM tblSendungen where tblSnd_AvisoId=AvisoId "
                If txtEmpfänger.Text <> "" Then hSQLSnd &= "  AND tblSnd_Empfaenger LIKE '" & txtEmpfänger.Text.Replace("*", "%") & "%' " : srchkrit = True
                If txtAbsender.Text <> "" Then hSQLSnd &= "  AND tblSnd_Absender LIKE '" & txtAbsender.Text.Replace("*", "%") & "%' " : srchkrit = True
                If txtAuftraggeber.Text <> "" Then hSQLSnd &= "  AND tblSnd_Auftraggeber LIKE '" & txtAuftraggeber.Text.Replace("*", "%") & "%' " : srchkrit = True
                If txtKdAuftragsnr.Text <> "" Then hSQLSnd &= "  AND (tblSnd_KdAuftragsNr LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrAvisierer LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrEmpfaenger LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrFrachtfuehrer LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%') " : srchkrit = True
                If cboFiliale._value <> "" Then hSQLSnd &= "  AND FilialenNr ='" & cboFiliale._value & "'" : srchkrit = True
                If txtAbfertigungsnummer.Text <> "" Then hSQLSnd &= "  AND AbfertigungsNr LIKE '" & txtAbfertigungsnummer.Text.Replace("*", "%") & "' " : srchkrit = True
                If txtDyRef.Text <> "" Then hSQLSnd &= "  AND tblSnd_DakosyRef LIKE '" & txtDyRef.Text.Replace("*", "%") & "' " : srchkrit = True
                hSQLSnd &= "  ) > 0 "
                If srchkrit = True Then hSQL &= hSQLSnd
                If txtlkwId.Text <> "" Then hSQL &= "  AND AvisoID LIKE '" & txtlkwId.Text.Replace("*", "%") & "' "

                If cbxAlle.Checked = False Then
                    Dim statWhere = ""
                    If cbxErfasst.Checked Then statWhere &= Status_Erfasst & ","
                    If cbxVorb.Checked Then statWhere &= Status_Vorbereitet & ","
                    If cbxVorg.Checked Then statWhere &= Status_Vorgeschrieben & ","
                    If cbxAnkunft.Checked Then statWhere &= Status_Ankunft & ","
                    If cbxFreigabe.Checked Then statWhere &= Status_Freigegeben & ","
                    If cbxNE.Checked Then statWhere &= Status_NichtEingetroffen & ","
                    If statWhere.EndsWith(",") Then statWhere = statWhere.Substring(0, statWhere.Length - 1)
                    If statWhere <> "" Then hSQL &= " AND Status IN ( " & statWhere & " ) " Else hSQL &= " AND 1<>1 "
                End If
            End If

            hSQL &= datumseinschr


            If cboGrenzstelle._value = "ALLE_WO" Then
                hSQL += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) "

            Else
                '   If SucheStandort <> "" Then hSQL += " AND Grenzstelle = '" & SucheStandort & "'"
                If cboGrenzstelle._value <> "" Then hSQL += " AND Grenzstelle = '" & cboGrenzstelle._value & "'"
                '  Bestimmungs.ZST
                If cboGrenzstelle._value = "???" And txtBestimmungszollstelle._value <> "" Then
                    hSQL += " AND Zollstelle = '" & txtBestimmungszollstelle._value & "'"
                End If
            End If


            If cboImEx._value <> "" Then
                Select Case cboImEx._value
                    Case "IMPORT" : hSQL += " AND (ImEx = '" & cboImEx._value & "' OR ImEx = '' )"
                    Case "EXPORT" : hSQL += " AND ImEx = '" & cboImEx._value & "'"
                End Select

            End If 'Then hSQL += " AND ImEx = '" & cboImEx._value & "'"
            If cboTeams.Text <> "" Then hSQL += " AND TeamId = '" & cboTeams._value & "'"

            'je nach Auswahl SQL anpassen
            If tbcntrAvisoLKW.SelectedTab Is tabAlle Then
                'alle
                'Falls Freigabe/NE bei "ALLE" eingeschränkt werden sollte:::  'hSQL += " AND (Status NOT IN (1,2) OR (Status=1 AND Freigabe >=  " & SQLDatum(dtpVon.Value) & " AND Freigabe < " & SQLDatum(dtpBis.Value.AddDays(1)) & ") OR (Status=2 AND [Datum] >=  " & SQLDatum(dtpVon.Value) & " AND [Datum] < " & SQLDatum(dtpBis.Value.AddDays(1)) & "))"

            ElseIf tbcntrAvisoLKW.SelectedTab Is tabErfasst Then 'Erfasst
                hSQL += " AND Status = 0"
            ElseIf tbcntrAvisoLKW.SelectedTab Is tabVorbereitet Then 'Vorbereitet
                hSQL += " AND Status = 4"
            ElseIf tbcntrAvisoLKW.SelectedTab Is tabVorgeschrieben Then 'Vorgeschrieben
                hSQL += " AND Status = 5"
            ElseIf tbcntrAvisoLKW.SelectedTab Is tabAnkunft Then 'Ankunft
                hSQL += " AND Status = 3"
            ElseIf tbcntrAvisoLKW.SelectedTab Is tabFreigegeben Then 'Freigegeben
                hSQL += " AND Status = 1"
            ElseIf tbcntrAvisoLKW.SelectedTab Is tabVERIMEX Then 'Nicht Eingetroffen
                hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX
            ElseIf tbcntrAvisoLKW.SelectedTab Is tabINDONESIEN Then 'Nicht Eingetroffen
                hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN
            ElseIf tbcntrAvisoLKW.SelectedTab Is tabNichtEingetroffen Then 'Nicht Eingetroffen
                hSQL += " AND Status = 2"
            End If

            Dim search = txtSuche.Text.Trim
            If search <> "" Then
                hSQL += " AND (LKW_Nr LIKE N'%" & search & "%' OR letzterMitarbeiter LIKE '%" & search & "%' OR Auftraggeber LIKE '%" & search & "%' OR Frächter LIKE '%" & search & "%' OR DakosyRef LIKE '%" & search & "%' )"

                'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" And search.Length = 8 Then 'AbfertigungsNr Suche für ATILLA, length, damit nicht unnötig der Verweis zu tblSendungen hergestellt wird --> performance
                '    hSQL += " AND (LKW_Nr LIKE '%" & search & "%' OR letzterMitarbeiter LIKE '%" & search & "%' OR Auftraggeber LIKE '%" & search & "%' OR Frächter LIKE '%" & search & "%' OR DakosyRef LIKE '%" & search & "%'  OR (SELECT count(*) FROM tblSendungen WHERE AbfertigungsNr LIKE '%" & search & "%' AND FilialenNr=4801 AND tblSnd_AvisoID=AvisoId)>0 ) "
                'Else
                '    hSQL += " AND (LKW_Nr LIKE '%" & search & "%' OR letzterMitarbeiter LIKE '%" & search & "%' OR Auftraggeber LIKE '%" & search & "%' OR Frächter LIKE '%" & search & "%' OR DakosyRef LIKE '%" & search & "%' )"
                'End If
            End If


            hSQL += " ORDER BY Ankunft ASC, AvisoEingang ASC, Datum ASC"


        Else


            '----------------------------------------------------------------------------------------------------------------------------------
            '--- Sendung ---
            '----------------------------------------------------------------------------------------------------------------------------------
            Dim inBearbeitungSQL = " tblSendungen.LetzterMitarbeiterId=@maId " ' 1<>1 " 'DEFAULT = "Benutzer"
            If cboMyAvisoAnzeige._value <> "" Then
                If cboMyAvisoAnzeige._value = "ALLE" Then
                    '  inBearbeitungSQL = " 1=1 " 'ALLE
                    inBearbeitungSQL = " (  (tblSendungen.[tblSnd_TeamId] IN (SELECT [team_id]  FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'))       OR      (Aviso.[TeamId] IN (SELECT [team_id]  FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND tblSendungen.[tblSnd_TeamId] is null))       OR        [tblSendungen].tblSnd_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'       OR        tblSendungen.LetzterMitarbeiterId=@maId) "
                ElseIf cboMyAvisoAnzeige._value = "T1" Then
                    inBearbeitungSQL = " tblSnd_Abfertigungsart_ID=5 "
                    'NUR VERAG/IMEX:
                    inBearbeitungSQL &= " AND FilialenNr IN (SELECT FilialenNr FROM " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".VERAG.dbo.Filialen WHERE  Filialen.FilialenNr=tblSendungen.FilialenNr and Filialen.Firma IN ('VERAG','IMEX')) "
                ElseIf cboMyAvisoAnzeige._value <> "Benutzer" And IsNumeric(cboMyAvisoAnzeige._value) Then
                    If cboMyAvisoAnzeige._value = "27" Then ' TEAM SALZBURG
                        inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & "  AND tblSendungen.[tblSnd_TeamId] is null)  OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId 
                                                    OR Grenzstelle IN('SBG') OR (tblSendungen.FilialenNr  IN('5701') AND tblSnd_Abfertigungsart_ID IN(1,38,39,46,66)) )  "
                    Else
                        inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & "  AND tblSendungen.[tblSnd_TeamId] is null)  OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId) "

                    End If
                End If
            End If

            hSQL = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus],[Status],tblSendungen.LetzterMitarbeiterId,tblSendungen.LetzterMitarbeiter, LKW_Nr, VoraussichtlichesEintreffen,Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, Aviso.LetzterMitarbeiterId AS maId,AvisoTVHinweis  " &
                                     " ,tblSnd_Empfaenger,AbfertigungsNr,tblSnd_Abfertigungsart_ID,tblSnd_Vorgeschrieben,tblSnd_Vorbereitet,tblSnd_Status,tblSnd_SendungID,tblSnd_Fremdspedition,tblSnd_FremdspeditionText " &
                                     " FROM Aviso INNER JOIN tblSendungen ON AvisoID=tblSnd_AvisoID " &
                                     " WHERE   (  Status IN (0, 3, 4, 5)  OR ( Status = 1 AND [Abgeschlossen] = 0 ))  " &
                                            hSQLFirma & " AND  ( " & inBearbeitungSQL & ") "

            Select Case cboMy_VB.CheckState
                Case CheckState.Checked : hSQL &= " AND tblSnd_Vorgeschrieben is not null	 "
                Case CheckState.Unchecked : hSQL &= " AND tblSnd_Vorgeschrieben is null	 "
                    ' Case CheckState.Indeterminate : hSQL &= " AND tblSnd_Vorbereitet is not null	 "
            End Select
            Select Case cboMy_QS.CheckState
                Case CheckState.Checked : hSQL &= " AND tblSnd_Vorbereitet is not null	 "
                Case CheckState.Unchecked : hSQL &= " AND tblSnd_Vorbereitet is null	 "
                    ' Case CheckState.Indeterminate : hSQL &= " AND tblSnd_Vorbereitet is not null	 "
            End Select
            If cboMy_Grenzstelle._value = "ALLE_WO" Then
                hSQL += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) "

            Else

                If cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then hSQL &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"
                If cboMy_Grenzstelle._value = "ALLE_BACK" Then hSQL &= " AND FilialenNr NOT IN ('7001','7002','7003') "

            End If

            If cbx_My_Brexit.Visible AndAlso Not cbx_My_Brexit.Checked Then hSQL &= " AND FilialenNr NOT IN ('7001','7002','7003') "

            'Farbe
            If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
                Select Case btnColor.BackColor
                    Case Color.Red
                        hSQL &= " AND (Status = 3 ) "
                    Case Color.Orange
                        ' hSQL &= " AND (  (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(GETDATE() AS DATE) ) ) "
                        hSQL &= " AND (  (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(DATEADD(DAY, " & getDaysVorschreiben(1) & ",GETDATE()) AS DATE) ) ) "
                    Case Color.Yellow
                        hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY," & getDaysVorschreiben(2) & ",GETDATE()) AS DATE) AND  cast(DATEADD(DAY," & getDaysVorschreiben(3) & ",GETDATE()) AS DATE) ) ) "
                End Select
            End If
            ''Farbe
            'If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
            '    Select Case btnColor.BackColor
            '        Case Color.Red
            '            hSQL &= " AND (Status = 3 OR (Status IN (0, 3, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE)<= cast(GETDATE() AS DATE) ) or VoraussichtlichesEintreffen is null) "
            '        Case Color.Orange
            '            hSQL &= " AND (  (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) = cast(DATEADD(DAY, 1,GETDATE()) AS DATE) ) ) "
            '        Case Color.Yellow
            '            hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY, 2,GETDATE()) AS DATE) AND  cast(DATEADD(DAY, 3,GETDATE()) AS DATE) ) ) "
            '    End Select
            'End If

            'hSQL &= " AND (Grenzstelle ='???' OR  Status NOT IN (1)) " ' "Freigabe" nur bei Fremde Grenze anzeigen!
            ' Funktioniert nciht, wg. WO

            hSQL &= " ORDER BY case	 " & " when [Status] =3 then 0 " & " when [Status] =1 then 5 " & " else 1 " & " END, VoraussichtlichesEintreffen, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID")

        End If

        ' MsgBox(hSQL)
        'If hSort = "" Then
        'hSQL += " ORDER BY Ankunft DESC, AvisoEingang DESC, Datum DESC"
        ' Else
        ' hSQL += " " & hSort
        ' End If
        gridAviso.DefaultCellStyle.Font = gridFont
        gridAviso.RowTemplate.Height = rowHeight 'muss vor Bindung sein
        'gridAviso.DataSource = AvisoDAL.loadDataTableBySQL(hSQL)
        gridAviso.SET_SQL(hSQL, "AVISO")
        Dim errOcc = False
        gridAviso.LOAD(False, errOcc)
        If errOcc Then
            pic.Visible = True
        End If
        '   AVISOBinding.setARITHABORTOn()
        'AVISOBinding.initBinding(hSQL, "Aviso")
        'gridAviso.DataSource = AVISOBinding.bindingSource

        'MsgBox(DirectCast(gridAviso.DataSource, DataTable).Rows.Count)
        'Grid neu designen


        If CheckBox1.Checked Then
            gridAviso_SpaltenFestlegen()
        End If

        'Tabelle Kommt/Geht bereinigen
        If gridAviso.RowCount = 0 Then
            gridAviso.DataSource = Nothing
            VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = 0
            '  Details_anzeigen(VERAG_PROG_ALLGEMEIN.cglobal.Aktive_ID)
        End If

        '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"

        hMerkZeit = Now
        lblZeit_aktuell.Text = "letzte Aktualisierung: " & Format(Now, "HH:mm")



        'Focus auf 1. Zeile setzen, falls Auswahl vorhanden
        If showDetails Then
            If VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl > 0 Then gridAviso.CurrentCell = gridAviso.Rows(0).Cells(1)
        End If

        Dim hEnde As Integer = My.Computer.Clock.TickCount
        Dim hDifferenz As Integer = hEnde - hStart
        '   btnÜbernehmen.Visible = True
        Grid_aktiv = True
        meineAviso_anzeigen()
        If VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID <= 0 Then
            If gridAviso.RowCount > 0 Then gridAviso.Rows(0).Selected = True
        End If

        gridAviso.SetOrder()
        Details_aktiv = True

        If showDetails Then
            If gridAviso.SelectedRows.Count > 0 Then
                VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = gridAviso.SelectedRows(0).Cells("AvisoID").Value
            End If
            Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
        End If
        If chkFarben Then GridZeichnenAviso()
        Label8.Visible = False
        lblDauer.Text = "" & hDifferenz.ToString & " ms"
        'lblDauer.Text = "Dauer Anzeige aufbauen: " & hDifferenz.ToString & " ms"
    End Sub

    Public Sub setProfileImage()
        Try
            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_foto_DocId IsNot Nothing Then


                'Get the original image.
                'Dim originalImage = Image.FromFile("\\share01\Datenarchiv\DOKUMENTE\MITARBEITER\PERSONAL_FOTOS\20200419_000451_Hofer_375.jpg") 'My.Resources.Koerfez61
                'Dim originalImage = Image.FromFile("\\share01\Datenarchiv\DOKUMENTE\MITARBEITER\PERSONAL_FOTOS\20220620_091930_Luxbauer_4.jpg") 'My.Resources.Koerfez61
                Dim originalImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_foto_DocId)) 'My.Resources.Koerfez61
                'Dim originalImage = Image.FromFile("C:\Users\DEVELOPER1\Desktop\grund.png") 'My.Resources.Koerfez61

                '  MsgBox(cDATENSERVER.GET_PDFPath_BY_DocID(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_foto_DocId))


                Dim picSize = 35

                Dim space_X As Integer = 0
                Dim space_Y As Integer = 0
                Dim picWidth As Integer = 0
                Dim picHheight As Integer = 0

                Dim factor As Double = 1
                If originalImage.Height < originalImage.Width Then
                    factor = picSize / originalImage.Height
                    picWidth = originalImage.Width * factor
                    picHheight = originalImage.Height * factor
                    ' space_X = (picWidth - picHheight) / 2

                Else
                    factor = picSize / originalImage.Width
                    picWidth = originalImage.Width * factor
                    picHheight = originalImage.Height * factor
                    ' space_X = (picHheight - picWidth) / 2
                End If

                '  MsgBox(picWidth & " - " & picHheight)
                'Create a new, blank image with the same dimensions.
                Dim croppedImage As New Bitmap(picWidth, picHheight)

                'Prepare to draw on the new image.
                Using g = Graphics.FromImage(croppedImage)
                    Dim path As New GraphicsPath

                    'Create an ellipse that fills the image in both directions.
                    'path.AddEllipse(0, 0, croppedImage.Width, croppedImage.Height)
                    path.AddEllipse(0, 0, picSize, picSize)

                    Dim reg As New Region(path)

                    'Draw only within the specified ellipse.
                    g.Clip = reg
                    'g.DrawImage(originalImage, 0, 0, picSize, picSize)
                    g.DrawImage(originalImage, 0, 0, picWidth, picHheight)
                End Using

                'Display the new image.
                btnMitarbeiterKonto.Image = croppedImage

                Exit Sub
            End If
        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
        btnMitarbeiterKonto.Image = My.Resources.mitarbeiter_s

    End Sub

    Function setAkive_AuswahlID() As Integer
        If gridAviso.SelectedRows.Count > 0 Then
            VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = CInt(gridAviso.Rows(gridAviso.SelectedRows(0).Index).Cells("AvisoID").Value)
        Else
            VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = -1
        End If

        If gridMyAviso.SelectedRows.Count > 0 Then
            VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = CInt(gridMyAviso.Rows(gridMyAviso.SelectedRows(0).Index).Cells("AvisoID").Value)
            If Not cbx_My_LKW.Checked Then
                VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = CInt(gridMyAviso.Rows(gridMyAviso.SelectedRows(0).Index).Cells("tblSnd_SendungID").Value)
            Else
                VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1

            End If
        Else
            VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
        End If

        Return VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID
    End Function



    Function formatdate(s) As String
        If s IsNot Nothing AndAlso IsDate(s) AndAlso CDate(s) > LeerDatum Then
            If CDate(s).ToShortDateString = Now.ToShortDateString Then
                Return "heute, " & CDate(s).ToShortTimeString & ""
            End If
            Return "" & CDate(s).ToString("dd.MM.") & ", " & CDate(s).ToShortTimeString & ""
        End If
        Return ""
    End Function


    Private Sub meineAviso_anzeigen()
        Try

            If Not Grid_aktiv Then Exit Sub
            '   Grid_aktiv = False
            hMerkZeit_MeineAviso = Now


            'Dim hSQL As String = " EXECUTE spMyAviso @maId='" & (cGlobal.AktiverMitarbeiter.MitarbeiterID) & "'  "
            If gridMyAviso Is Nothing Then Exit Sub

            gridMyAviso.DefaultCellStyle.Font = gridFont
            gridMyAviso.RowTemplate.Height = rowHeight  'muss vor Bindung sein

            Try
                If gridMyAviso.Columns IsNot Nothing AndAlso gridMyAviso.ColumnCount > 0 Then ' Sunst komischer Fehler DataAreaMouseLeave
                    gridMyAviso.Columns.Clear()
                End If
                gridMyAviso.DataSource = Nothing

                'gridMyAviso.Columns.Clear() 'Macht CellMouseLeave-Fehler?????

            Catch ex As Exception

            End Try


            'If gridMyAviso.ColumnCount = 0 Then Exit Sub

            ' Dim sqlStr As String = " SELECT top 5 AvisoID, [Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, LetzterMitarbeiterId AS maId, CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END  as Vorbereitung,LetzterMitarbeiter,CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig],AvisoTVHinweis " &
            '" FROM Aviso " &
            '" WHERE   (  Status IN (0, 3, 4, 5)  OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
            '" AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND (LetzterMitarbeiterId=@maId OR " &
            '" AVISOid IN ( SELECT distinct(tblSnd_AvisoID) FROM [tblSendungen] WHERE tblSnd_inbearbeitung=1 AND tblSnd_Bearbeitung_MaId=@maId) ) " &
            '"ORDER BY case	 " &
            '" when [Status] =3 then 0 " &
            '" when [Status] =1 then 1 " &
            '" when [Status] =99 then 2 " &
            '" when [Status] =4 then 3 " &
            '" when [Status] =5 then 4 " &
            '" when [Status] =0 then 5 " &
            '" END, Ankunft"




            'Dim dt As DataTable = VERAGSQL.loadDgvBySql(" SELECT distinct(tblSnd_AvisoID) FROM [tblSendungen] WHERE tblSnd_inbearbeitung=1 AND tblSnd_Bearbeitung_MaId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "", "AVISO")
            'If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
            '    inBearbeitungSQL = " AVISOid IN ("
            '    For Each r In dt.Rows
            '        inBearbeitungSQL &= r(0) & ","
            '    Next
            '    inBearbeitungSQL = inBearbeitungSQL.Substring(0, inBearbeitungSQL.Length - 1)
            '    inBearbeitungSQL &= " ) "
            'End If

            Dim sqlStr As String = ""

            Dim sqlStrFirma As String = ""
            If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" And cbxCluster.Checked Then
                If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
                    sqlStrFirma &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' OR FIRMA='ATILLA' ) "
                Else
                    sqlStrFirma &= " AND ( FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR CLUSTER='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' ) "

                End If

            Else
                sqlStrFirma &= " AND FIRMA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'  "
            End If

            'Verimex soll keine Abgeschlossenen und keine Freigegebenen sehen:
            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then sqlStrFirma &= " AND Abgeschlossen=0 AND Status <>1  "


            If cbx_My_LKW.Checked Then
                '----------------------------------------------------------------------------------------------------------------------------------
                '--- LKW ---
                '----------------------------------------------------------------------------------------------------------------------------------
                sqlStr = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE ''  END AS [VerwahrungStatus],[Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe,LetzterMitarbeiterId AS maId, LetzterMitarbeiterId  ,/* CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END  as Vorbereitung,*/LetzterMitarbeiter,AvisoTVHinweis " &
                                       " FROM Aviso " &
                                       " WHERE   (  Status IN (0, 3, 4, 5,6,7)  OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
                                             sqlStrFirma & " AND (LetzterMitarbeiterId=@maId) "
                'If cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"

                If cboMy_Grenzstelle._value = "ALLE_WO" Then
                    sqlStr += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) "
                    'ElseIf cboMy_Grenzstelle._value = "SBG+AMB" Then
                    '    sqlStr &= " AND (Grenzstelle IN('SBG') OR (tblSendungen.FilialenNr  IN('5701') AND tblSnd_Abfertigungsart_ID IN(1,38,39,46,66) )) "
                ElseIf cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then
                    sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"

                End If


                sqlStr &= " ORDER BY case	 " &
                                                 " when [Status] =3 then 0 " &
                                                 " when [Status] =6 then 0.5 " &
                                                 " when [Status] =7 then 0.5 " &
                                                 " when [Status] =0 then 1 " &
                                                 " when [Status] =99 then 2 " &
                                                 " when [Status] =4 then 3 " &
                                                 " when [Status] =1 then 4 " &
                                                 " when [Status] =5 then 4 " &
                                                 " when [Status] =0 then 5 " &
                                         " END, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID")
            Else

                '----------------------------------------------------------------------------------------------------------------------------------
                '--- Sendung ---
                '----------------------------------------------------------------------------------------------------------------------------------
                Dim inBearbeitungSQL = " tblSendungen.LetzterMitarbeiterId=@maId " ' 1<>1 " 'DEFAULT = "Benutzer"
                If cboMyAvisoAnzeige._value <> "" Then
                    If cboMyAvisoAnzeige._value = "ALLE" Then
                        '  inBearbeitungSQL = " 1=1 " 'ALLE
                        inBearbeitungSQL = " (  (tblSendungen.[tblSnd_TeamId] IN (SELECT [team_id]  FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'))       OR      (Aviso.[TeamId] IN (SELECT [team_id]  FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND tblSendungen.[tblSnd_TeamId] is null))       OR        [tblSendungen].tblSnd_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'       OR        tblSendungen.LetzterMitarbeiterId=@maId) "
                    ElseIf cboMyAvisoAnzeige._value = "T1" Then
                        inBearbeitungSQL = " tblSnd_Abfertigungsart_ID=5 "
                        'NUR VERAG/IMEX:
                        inBearbeitungSQL &= " AND FilialenNr IN (SELECT FilialenNr FROM " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".VERAG.dbo.Filialen WHERE  Filialen.FilialenNr=tblSendungen.FilialenNr and Filialen.Firma IN ('VERAG','IMEX')) "
                    ElseIf cboMyAvisoAnzeige._value <> "Benutzer" And IsNumeric(cboMyAvisoAnzeige._value) Then
                        If cboMyAvisoAnzeige._value = "27" Then ' TEAM SALZBURG
                            inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & "  AND tblSendungen.[tblSnd_TeamId] is null)  OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId 
                                                    OR Grenzstelle IN('SBG') OR (tblSendungen.FilialenNr  IN('5701') AND tblSnd_Abfertigungsart_ID IN(1,38,39,46,66)) )  "
                        Else
                            inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & "  AND tblSendungen.[tblSnd_TeamId] is null)  OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId) "

                        End If
                    End If
                End If

                sqlStr = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig],CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus], [Status],tblSendungen.LetzterMitarbeiterId,tblSendungen.LetzterMitarbeiter, LKW_Nr, VoraussichtlichesEintreffen,Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, Aviso.LetzterMitarbeiterId AS maId,AvisoTVHinweis  " &
                                     " ,tblSnd_Empfaenger,AbfertigungsNr,tblSnd_Abfertigungsart_ID,isnull(tblSnd_Zollsystem_Land,'')tblSnd_Zollsystem_Land,tblSnd_Vorgeschrieben,tblSnd_Vorbereitet,tblSnd_Status,tblSnd_SendungID,tblSnd_Fremdspedition,tblSnd_FremdspeditionText " &
                                     " FROM Aviso INNER JOIN tblSendungen ON AvisoID=tblSnd_AvisoID " &
                                     " WHERE   (  Status IN (0, 3, 4, 5)  OR ( Status = 1 AND [Abgeschlossen] = 0 ))  " &
                                            sqlStrFirma & " AND  ( " & inBearbeitungSQL & ") "

                Select Case cboMy_VB.CheckState
                    Case CheckState.Checked : sqlStr &= " AND tblSnd_Vorgeschrieben is not null	 "
                    Case CheckState.Unchecked : sqlStr &= " AND tblSnd_Vorgeschrieben is null	 "
                        ' Case CheckState.Indeterminate : sqlStr &= " AND tblSnd_Vorbereitet is not null	 "
                End Select
                Select Case cboMy_QS.CheckState
                    Case CheckState.Checked : sqlStr &= " AND tblSnd_Vorbereitet is not null	 "
                    Case CheckState.Unchecked : sqlStr &= " AND tblSnd_Vorbereitet is null	 "
                        ' Case CheckState.Indeterminate : sqlStr &= " AND tblSnd_Vorbereitet is not null	 "
                End Select
                If cboMy_Grenzstelle._value = "ALLE_WO" Then
                    sqlStr += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) "

                Else

                    If cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"
                    If cboMy_Grenzstelle._value = "ALLE_BACK" Then sqlStr &= " AND FilialenNr NOT IN ('7001','7002','7003') "

                End If

                If cbx_My_Brexit.Visible AndAlso Not cbx_My_Brexit.Checked Then sqlStr &= " AND FilialenNr NOT IN ('7001','7002','7003') "

                'Farbe
                If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
                    Select Case btnColor.BackColor
                        Case Color.Red
                            sqlStr &= " AND (Status = 3 ) "
                        Case Color.Orange
                            ' sqlStr &= " AND (  (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(GETDATE() AS DATE) ) ) "
                            sqlStr &= " AND (  (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(DATEADD(DAY, " & getDaysVorschreiben(1) & ",GETDATE()) AS DATE) ) ) "
                        Case Color.Yellow
                            sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY," & getDaysVorschreiben(2) & ",GETDATE()) AS DATE) AND  cast(DATEADD(DAY," & getDaysVorschreiben(3) & ",GETDATE()) AS DATE) ) ) "
                    End Select
                End If
                ''Farbe
                'If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
                '    Select Case btnColor.BackColor
                '        Case Color.Red
                '            sqlStr &= " AND (Status = 3 OR (Status IN (0, 3, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE)<= cast(GETDATE() AS DATE) ) or VoraussichtlichesEintreffen is null) "
                '        Case Color.Orange
                '            sqlStr &= " AND (  (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) = cast(DATEADD(DAY, 1,GETDATE()) AS DATE) ) ) "
                '        Case Color.Yellow
                '            sqlStr &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY, 2,GETDATE()) AS DATE) AND  cast(DATEADD(DAY, 3,GETDATE()) AS DATE) ) ) "
                '    End Select
                'End If

                'sqlStr &= " AND (Grenzstelle ='???' OR  Status NOT IN (1)) " ' "Freigabe" nur bei Fremde Grenze anzeigen!
                ' Funktioniert nciht, wg. WO

                sqlStr &= " ORDER BY case	 " & " when [Status] =3 then 0 " & " when [Status] =1 then 5 " & " else 1 " & " END, VoraussichtlichesEintreffen, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID")

            End If
            ' MsgBox(sqlStr)
            'Dim sqlStr As String = " SELECT AvisoID, [Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, LetzterMitarbeiterId AS maId, CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END  as Vorbereitung,LetzterMitarbeiter,CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig],AvisoTVHinweis " &
            '                         " FROM Aviso " &
            '                         " WHERE   (  Status IN (0, 3, 4, 5)  OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
            '                                 " AND Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND (LetzterMitarbeiterId=@maId OR " & inBearbeitungSQL & ") " &
            '                          "ORDER BY case	 " &
            '                                 " when [Status] =3 then 0 " &
            '                                 " when [Status] =0 then 1 " &
            '                                 " when [Status] =99 then 2 " &
            '                                 " when [Status] =4 then 3 " &
            '                                 " when [Status] =1 then 4 " &
            '                                 " when [Status] =5 then 4 " &
            '                                 " when [Status] =0 then 5 " &
            '                         " END, Ankunft"


            'Public Const Status_Erfasst = 0
            'Public Const Status_Vorbereitet = 4
            'Public Const Status_Vorgeschrieben = 5
            'Public Const Status_Freigegeben = 1
            'Public Const Status_NichtEingetroffen = 2
            'Public Const Status_Ankunft = 3


            Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("maId", VERAG_PROG_ALLGEMEIN.cAllgemein.USRID))
            If VERAGSQL Is Nothing Then VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL '? vlt hilfts...

            Dim errOcc = False

            'MsgBox(sqlStr)
            Try
                gridMyAviso.DataSource = VERAGSQL.loadDgvBySql_Param(sqlStr, "AVISO", 1500, list, False, errOcc)
            Catch ex As Exception
                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)
            End Try

            If errOcc Then
                pic.Visible = True
            End If
            '  gridMyAviso.DataSource = VermerkeDAL.loadTableMyAviso(VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.MitarbeiterID)
            ' MsgBox(DateDiff(DateInterval.Minute, CDate(VarToDate("16.12.2013 11:02:08")), CDate(VarToDate("16.12.2013 12:02:08"))))
            ' MsgBox(gridMyAviso.RowCount)

            '   Dim bfont = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold)
            Dim nfont = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Regular)


            'MsgBox(sqlStr)


            With gridMyAviso
                If .Columns.Count <= 0 Then pic.Visible = False : Exit Sub
                If .Columns("AvisoID") Is Nothing Then pic.Visible = False : Exit Sub

                .DefaultCellStyle.Font = nfont

                .MultiSelect = False
                .Columns("AvisoID").Visible = False     'AvisoID nicht anzeigen
                .Columns("Freigabe").Visible = False     'AvisoID nicht anzeigen
                .Columns("maId").Visible = False     'maID nicht anzeigen
                '.Columns("Vorbereitung").Visible = False     'Vorber. nicht anzeigen

                .Columns("LetzterMitarbeiter").Visible = False     'Mitarb. nicht anzeigen
                .Columns("LetzterMitarbeiterId").Visible = False     'Mitarb. nicht anzeigen
                .Columns("LetzterMitarbeiter").Visible = False     'Mitarb. nicht anzeigen

                .Columns("Status").Width = 90
                .Columns("Status").HeaderText = "Status"

                .Columns("LKW_Nr").MinimumWidth = 90
                .Columns("LKW_Nr").HeaderText = "LKW-Kennzeichen"
                .Columns("LKW_Nr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill

                .Columns("AvisoTVHinweis").Visible = False ' = 60
                .Columns("Dauer").Visible = False ' = 60


                .Columns("Datum").Visible = False     'Mitarb. nicht anzeigen
                '.Columns("Datum").Width = 145 '115
                '.Columns("Datum").HeaderText = "Erfasst"
                '.Columns("Datum").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)"
                '.Columns("Datum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter

                .Columns("AvisoEingang").Visible = False
                ' .Columns("AvisoEingang").Width = 120
                '   .Columns("AvisoEingang").HeaderText = "Av.Eingang"
                ' .Columns("AvisoEingang").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)"
                '  .Columns("AvisoEingang").DefaultCellStyle.Format = "HH:mm, dddd"

                .Columns("Ankunft").Visible = False
                .Columns("Ankunft").Width = 145 '115
                .Columns("Ankunft").HeaderText = "Ankunft"
                .Columns("Ankunft").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)"

                ' If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then
                .Columns("Grenzstelle").Visible = True
                .Columns("Grenzstelle").Width = 70
                .Columns("Grenzstelle").HeaderText = "Grenzstelle"
                .Columns("Grenzstelle").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
                .Columns("Grenzstelle").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
                ' Else
                ' .Columns("Grenzstelle").Visible = False
                ' End If

                .Columns("Freigabe").Width = 80
                .Columns("Freigabe").HeaderText = "Freigabe"
                '     .Columns("Freigabe").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)"

                .Columns("LKW_fertig").Width = 35
                .Columns("LKW_fertig").HeaderText = "OK"
                .Columns("LKW_fertig").DefaultCellStyle.ForeColor = Color.White
                .Columns("LKW_fertig").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

                If cboGrenzstelle._value = "NEU" Then
                    .Columns("VerwahrungStatus").Width = 55
                    .Columns("VerwahrungStatus").HeaderText = "Kontrolle"
                    .Columns("VerwahrungStatus").DefaultCellStyle.ForeColor = Color.White
                    .Columns("VerwahrungStatus").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
                    .Columns("VerwahrungStatus").Visible = True
                Else
                    .Columns("VerwahrungStatus").Visible = False
                End If

                If gridMyAviso.RowCount = 0 Then gridMyAviso.Columns.Clear() : Exit Sub


                Dim t As New DataGridViewTextBoxColumn
                t.Name = "DauerText"
                t.Width = 80
                t.HeaderText = "Dauer"
                t.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
                t.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
                .Columns.Insert(7, t)



                If cbx_My_LKW.Checked Then
                    .Columns("statVorb").Visible = False     'Mitarb. nicht anzeigen
                Else
                    .Columns("tblSnd_Status").Visible = False

                    .Columns("tblSnd_Abfertigungsart_ID").Visible = False
                    .Columns("tblSnd_Zollsystem_Land").Visible = False
                    .Columns("tblSnd_Vorgeschrieben").Visible = False
                    .Columns("tblSnd_Vorbereitet").Visible = False
                    .Columns("tblSnd_SendungID").Visible = False
                    .Columns("tblSnd_Fremdspedition").Visible = False
                    .Columns("tblSnd_FremdspeditionText").Visible = False

                    .Columns("tblSnd_Empfaenger").MinimumWidth = 80
                    .Columns("tblSnd_Empfaenger").HeaderText = "Empfaenger"
                    .Columns("tblSnd_Empfaenger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill

                    .Columns("VoraussichtlichesEintreffen").Width = 55
                    .Columns("VoraussichtlichesEintreffen").HeaderText = "Eintreffen"
                    .Columns("VoraussichtlichesEintreffen").DefaultCellStyle.Format = "dd.MM."

                    '    .Columns("Vermerke_Anzahl").Width = 60
                    '   .Columns("Vermerke_Anzahl").HeaderText = "Vermerke"
                    '   .Columns("Vermerke_Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
                    .Columns("AbfertigungsNr").Width = 110
                    .Columns("AbfertigungsNr").HeaderText = "Pos-Nr."
                    .Columns("AbfertigungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
                    .Columns("AbfertigungsNr").Visible = False





                    Dim c As DataGridViewImageColumn
                    c = New DataGridViewImageColumn
                    c.Name = "StatusVorbereitetQS"
                    c.Image = My.Resources.statusBtn_vorbereitet_InAktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom
                    c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
                    c.ToolTipText = "Status 'Vorbereitet-QS' eintragen"
                    c.HeaderText = "QS"
                    .Columns.Add(c)


                    c = New DataGridViewImageColumn
                    c.Name = "StatusVorgeschrieben"
                    c.Image = My.Resources.statusBtn_vorgeschrieben_InAktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom
                    c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
                    c.ToolTipText = "Status 'Vorgeschrieben' eintragen"
                    c.HeaderText = "VG"
                    .Columns.Add(c)


                    Dim t2 = New DataGridViewTextBoxColumn
                    t2.Name = "Abfertigungsart"
                    t2.HeaderText = "Abfertigungsart"
                    t2.Width = 110 : t.DefaultCellStyle.Padding = New Padding(2) : t2.DefaultCellStyle.BackColor = Color.White
                    't.ToolTipText = ""
                    .Columns.Insert(7, t2)

                End If


                'Dauer berechnen:
                For Each r As DataGridViewRow In .Rows
                    r.DefaultCellStyle.Font = nfont
                    If Not cbx_My_LKW.Checked Then
                        If r.Cells("tblSnd_Fremdspedition").Value Then 'FREMDANMELDER
                            r.Cells("Abfertigungsart").Style.BackColor = Color.FromArgb(230, 230, 230)
                            ' r.Cells("tblSnd_PosUnterNr").Style.BackColor = Color.FromArgb(230, 230, 230)
                            ' r.Cells("Abfertigungsart").Value = "FREMD"
                            r.Cells("Abfertigungsart").Value = r.Cells("tblSnd_FremdspeditionText").Value
                        Else 'Nomal
                            Dim Abfertigungsland As String = r.Cells("tblSnd_Zollsystem_Land").Value
                            If Abfertigungsland <> "" Then Abfertigungsland = "[" & Abfertigungsland & "] "

                            r.Cells("Abfertigungsart").Value = VERAGSQL.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & r.Cells("tblSnd_Abfertigungsart_ID").Value.ToString & "'", "FMZOLL")
                            r.Cells("Abfertigungsart").Value = Abfertigungsland & r.Cells("Abfertigungsart").Value

                            If r.Cells("Abfertigungsart").Value.ToString.Length > 20 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 20) & ".."
                        End If

                        If .Columns("StatusVorbereitetQS") IsNot Nothing Then
                            If r.Cells("tblSnd_Vorbereitet").Value IsNot DBNull.Value Then
                                DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorbereitet_Aktiv
                                DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")"
                            Else
                                DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' eintragen"
                            End If
                        End If
                        If .Columns("StatusVorgeschrieben") IsNot Nothing Then
                            If r.Cells("tblSnd_Vorgeschrieben").Value IsNot DBNull.Value Then
                                DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorgeschrieben_Aktiv
                                DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")"
                            Else
                                DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' eintragen"
                            End If
                        End If

                    End If

                    ' MsgBox(r.Cells(1).Value)
                    ' MsgBox(r.Cells(6).Value)
                    '  MsgBox(DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells(6).Value)), Now))
                    If Not IsDBNull(r.Cells("Ankunft").Value) AndAlso Not CDate(r.Cells("Ankunft").Value) = LeerDatum Then
                        If CInt(r.Cells("Status").Value) > VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Then
                            Dim dauerTmp = DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells("Ankunft").Value)), Now)
                            If IsNumeric(dauerTmp) Then
                                r.Cells("Dauer").Value = dauerTmp
                                r.Cells("DauerText").Value = cProgramFunctions.MinToTime2(dauerTmp)
                            Else
                                r.Cells("Dauer").Value = "0"
                                r.Cells("DauerText").Value = "0"
                            End If
                        End If
                    Else
                        r.Cells("DauerText").Value = "0"
                        r.Cells("Dauer").Value = "0"

                    End If


                    If r.Cells("VerwahrungStatus").Value = "OK" Then r.Cells("LKW_fertig").Style.BackColor = Color.Green
                    If r.Cells("LKW_fertig").Value = "OK" Then r.Cells("LKW_fertig").Style.BackColor = Color.FromArgb(0, 54, 128)
                    If r.Cells("LKW_fertig").Value = "DE" Then r.Cells("LKW_fertig").Style.BackColor = Color.Green
                    If r.Cells("Dauer").Value > 120 Then r.Cells("DauerText").Style.ForeColor = Color.Red
                    '      MsgBox(r.Cells("Dauer").Value)

                    ' If CBool(r.Cells("Vorbereitung").Value) = True Then
                    'r.Cells("Status").Value = 99
                    'End If




                    'Farbkennung

                    If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
                        If Not cbx_My_LKW.Checked Then
                            Select Case r.Cells("Status").Value
                                Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben '"1", "2"
                                ' Freigabe, N.Eingetr.
                                Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft '"3"
                                    ' Ankunft
                                    r.DefaultCellStyle.BackColor = Color.IndianRed
                                    r.Cells("DauerText").Style.ForeColor = Color.White
                                Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX, VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN
                                    ' Ankunft
                                    r.DefaultCellStyle.BackColor = Color.SteelBlue
                                    r.Cells("DauerText").Style.ForeColor = Color.White
                                Case Else
                                    'Alle anderen Status:
                                    If r.Cells("VoraussichtlichesEintreffen").Value IsNot DBNull.Value AndAlso IsDate(r.Cells("VoraussichtlichesEintreffen").Value) Then

                                        Dim VoraussichtlichesEintreffen = CDate(r.Cells("VoraussichtlichesEintreffen").Value)

                                        'If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.ToShortDateString) Then 'heute
                                        '    r.DefaultCellStyle.BackColor = Color.IndianRed
                                        'ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(1).ToShortDateString) Then 'morgen
                                        '    r.DefaultCellStyle.BackColor = Color.Orange
                                        'ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(3).ToShortDateString) Then 'Ümorgen+ÜÜmorgen
                                        '    r.DefaultCellStyle.BackColor = Color.LightYellow
                                        'End If

                                        'If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(1).ToShortDateString) Then 'heute
                                        '    r.DefaultCellStyle.BackColor = Color.Orange
                                        'ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(Now.AddDays(3).ToShortDateString) Then 'morgen
                                        '    r.DefaultCellStyle.BackColor = Color.LightYellow
                                        'End If

                                        If CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(getDateVorschreiben(1).ToShortDateString) Then 'heute
                                            r.DefaultCellStyle.BackColor = Color.Orange
                                        ElseIf CDate(VoraussichtlichesEintreffen.ToShortDateString) <= CDate(getDateVorschreiben(3).ToShortDateString) Then 'morgen
                                            r.DefaultCellStyle.BackColor = Color.LightYellow
                                        End If

                                    Else
                                    End If
                            End Select
                        End If
                    End If


                Next








                '.Width = gridAviso.Width - gridVermerke.Width
                '.Sort(.Columns(3), System.ComponentModel.ListSortDirection.Descending)
                .SelectionMode = DataGridViewSelectionMode.FullRowSelect
                .ClearSelection()
                ._TRANSLATE()
            End With

        Catch ex As Exception
            ' MsgBox(ex.Message)
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
        ' Grid_aktiv = True

    End Sub



    Function getDateVorschreiben(addDays) As Date
        Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage(Now.Year) 'Evtl Jahressprung, darum neu definieren

        While FT.isFeiertag(Now.AddDays(addDays), VERAG_PROG_ALLGEMEIN.cAllgemein.GET_LAND()) Or FT.isWeekend(Now.AddDays(addDays))
            addDays += 1
        End While
        Return Now.AddDays(addDays)
    End Function

    Function getDaysVorschreiben(addDays) As Integer
        Dim FT As New VERAG_PROG_ALLGEMEIN.cFeiertage(Now.Year) 'Evtl Jahressprung, darum neu definieren

        While FT.isFeiertag(Now.AddDays(addDays), VERAG_PROG_ALLGEMEIN.cAllgemein.GET_LAND()) Or FT.isWeekend(Now.AddDays(addDays))
            addDays += 1
        End While
        Return addDays
    End Function


    Private Sub dgvSendungen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles gridMyAviso.CellClick
        Try
            If e.RowIndex > 0 Then

                '   MsgBox(gridMyAviso.Columns(e.ColumnIndex).Name)
                If Not cbx_My_LKW.Checked Then
                    If True Then 'gridMyAviso.SelectedRows.Count = 1 Then
                        Dim SendungsId = gridMyAviso.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value
                        Dim AvisoID = gridMyAviso.Rows(e.RowIndex).Cells("AvisoID").Value
                        If SendungsId > 0 And AvisoID > 0 Then

                            Select Case gridMyAviso.Columns(e.ColumnIndex).Name

                                Case "StatusVorgeschrieben"
                                    Me.Cursor = Cursors.WaitCursor
                                    If FUNC.setSendungVorgeschrieben(SendungsId, AvisoID) Then
                                        avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'meineAviso_anzeigen()
                                    End If
                                    Me.Cursor = Cursors.Default
                                Case "StatusVorbereitetQS"
                                    Me.Cursor = Cursors.WaitCursor
                                    If FUNC.setSendungVorbereitetQS(SendungsId, AvisoID) Then
                                        avisoAktualisierenAktiveIdBehalten(AvisoID, True, True) 'meineAviso_anzeigen()
                                    End If

                                    Me.Cursor = Cursors.Default
                            End Select
                        End If
                    End If
                End If
            End If

        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
    End Sub


    Private Sub gridMyAviso_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles gridMyAviso.CellFormatting
        Try


            If gridMyAviso Is Nothing Then Exit Sub
            If gridMyAviso.Columns Is Nothing Then Exit Sub
            If gridMyAviso.ColumnCount = 0 Then Exit Sub


            'Anzahl Minuten als verständlichen Text anzeigen
            Select Case gridMyAviso.Columns(e.ColumnIndex).Name
                Case "Status"  'Status

                    'Dim vb As Boolean = gridMyAviso.Rows(e.RowIndex).Cells("statVorb").Value
                    'Select Case VarToInt(e.Value)
                    '    Case 0 : e.Value = IIf(vb, "Erfasst (in VB)", "Erfasst") : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.FromArgb(60, 60, 60)
                    '    Case 1 : e.Value = IIf(vb, "Freigegeben (in VB)", "Freigegeben")
                    '    Case 2 : e.Value = IIf(vb, "LKW n.e. (in VB)", "LKW n.e.")
                    '    Case 3 : e.Value = IIf(vb, "Ankunft (in VB)", "Ankunft") : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F)
                    '    Case 4 : e.Value = IIf(vb, "Vorber. (in VB)", "Vorbereitet")
                    '    Case 5 : e.Value = IIf(vb, "Vorg. (in VB)", "Vorgeschrieben")
                    '        '     Case 99 : e.Value = "in Vorbereitung" : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F)
                    '        'gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Brown
                    '        ' gridMyAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F)
                    '    Case Else : e.Value = "unbekannt"
                    'End Select

                    Select Case VarToInt(e.Value)
                        Case 0 : e.Value = "Erfasst" : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.FromArgb(60, 60, 60)
                        Case 1 : e.Value = "Freigegeben"
                        Case 2 : e.Value = "LKW n.e."
                        Case 3 : e.Value = "Ankunft" : gridMyAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F)
                        Case 4 : e.Value = "Vorbereitet"
                        Case 5 : e.Value = "Vorgeschrieben"
                        Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN : e.Value = "An Indonesien"
                        Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX : e.Value = "An Verimex"
                            '     Case 99 : e.Value = "in Vorbereitung" : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F)
                            'gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Brown
                            ' gridMyAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F)
                        Case Else : e.Value = "unbekannt"
                    End Select

                    ' If gridMyAviso.Rows(e.RowIndex).Cells("statVorb").Value = "1" Then
                    'e.Value &= " (VB)"
                    ' End If

                Case "AvisoEingang" 'Aviso-Eingang
                    If VarToDate(e.Value) = LeerDatum Then e.Value = ""

                Case "Ankunft" 'Ankunft
                    If VarToDate(e.Value) = LeerDatum Then
                        e.Value = ""
                    Else
                        '  If DateDiff(DateInterval.Minute, CDate(VarToDate(e.Value)), Now) > 120 Then
                        ' 'gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Red
                        ' gridMyAviso.Rows(e.RowIndex).Cells("Dauer").Style.ForeColor = Color.Red
                        '     gridMyAviso.Rows(e.RowIndex).Cells("Ankunft").Style.ForeColor = Color.Red
                        ' End If
                    End If
            End Select


        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
    End Sub

    Private Sub gridAviso_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles gridAviso.CellFormatting
        'Anzahl Minuten als verständlichen Text anzeigen
        Select Case gridAviso.Columns(e.ColumnIndex).Name
            Case "Status"  'Status
                Select Case VarToInt(e.Value)
                    Case 0 : e.Value = "Erfasst"
                    Case 1 : e.Value = "Freigegeben"
                    Case 2 : e.Value = "LKW n.e."
                    Case 3 : e.Value = "Ankunft"
                    Case 4 : e.Value = "Vorbereitet"
                    Case 5 : e.Value = "Vorgeschrieben"
                    Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN : e.Value = "An Indonesien"
                    Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX : e.Value = "An Verimex"
                    Case Else : e.Value = "unbekannt"
                End Select

            Case "AvisoEingang" 'Aviso-Eingang
                If VarToDate(e.Value) = LeerDatum Then e.Value = ""

            Case "Datum" 'Aviso-Eingang
                If VarToDate(e.Value) = LeerDatum Then e.Value = ""

            Case "Erfasst" 'Aviso-Eingang
                If VarToDate(e.Value) = LeerDatum Then e.Value = ""

            Case "Vorbereitet" 'Vorbereitet
                If VarToDate(e.Value) = LeerDatum Then e.Value = ""

            Case "Vorgeschrieben" 'Vorgeschrieben
                If VarToDate(e.Value) = LeerDatum Then e.Value = ""

            Case "Ankunft" 'Ankunft
                If VarToDate(e.Value) = LeerDatum Then e.Value = ""

            Case "Freigabe" 'Abfahrt
                If VarToDate(e.Value) = LeerDatum Then e.Value = ""

            Case "Dauer" 'Dauer

                If VarToInt(e.Value) > 120 Then
                    gridAviso.Rows(e.RowIndex).Cells("Dauer").Style.ForeColor = Color.Red
                End If
                If VarToInt(e.Value) = 0 Then
                    e.Value = ""
                Else
                    e.Value = Minuten_auf_Text(VarToLng(e.Value))
                End If
            Case "VoraussichtlichesEintreffen"
                '  "Der Operator = ist für Typ DBNull und Typ Date nicht definiert."

                If (gridAviso.Rows(e.RowIndex).Cells("Ankunft").Value Is DBNull.Value OrElse gridAviso.Rows(e.RowIndex).Cells("Ankunft").Value = LeerDatum) AndAlso gridAviso.Rows(e.RowIndex).Cells("TageBisEintreffen").Value IsNot DBNull.Value AndAlso gridAviso.Rows(e.RowIndex).Cells("TageBisEintreffen").Value <= 1 Then
                    'gridAviso.Rows(e.RowIndex).Cells("VoraussichtlichesEintreffen").Style.ForeColor = Color.Red
                    gridAviso.Rows(e.RowIndex).Cells("VoraussichtlichesEintreffen").Style.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold)
                End If
        End Select


    End Sub

    Private Sub GridZeichnenAviso()
        'hier wird der Grid speziell designed
        If gridAviso.RowCount = 0 Then Exit Sub
        'Falls Kunde auf inaktiv steht, dann wird Zeile ausgegraut angezeigt
        For Each dr As DataGridViewRow In gridAviso.Rows
            Select Case VarToInt(dr.Cells("Status").Value)
                Case 0  'erfasst
                    dr.DefaultCellStyle.SelectionBackColor = Color.FromArgb(230, 0, 0)
                    dr.DefaultCellStyle.ForeColor = Color.FromArgb(230, 0, 0)
                    dr.DefaultCellStyle.SelectionForeColor = Color.White
                Case 1  'freigegeben
                    dr.DefaultCellStyle.SelectionBackColor = Color.Green
                    dr.DefaultCellStyle.ForeColor = Color.Green
                    dr.DefaultCellStyle.SelectionForeColor = Color.White
                Case 2  'LKW nicht eingetroffen
                    dr.DefaultCellStyle.SelectionBackColor = Color.Gray
                    dr.DefaultCellStyle.ForeColor = Color.Gray
                    dr.DefaultCellStyle.SelectionForeColor = Color.White
                Case 3  'Ankunft
                    dr.DefaultCellStyle.SelectionBackColor = Color.Blue
                    dr.DefaultCellStyle.ForeColor = Color.Blue
                    dr.DefaultCellStyle.SelectionForeColor = Color.White
                Case 4  'Vorbereitet
                    dr.DefaultCellStyle.SelectionBackColor = Color.Brown
                    dr.DefaultCellStyle.ForeColor = Color.Brown
                    dr.DefaultCellStyle.SelectionForeColor = Color.White
                Case 5  'Vorbereitet
                    dr.DefaultCellStyle.SelectionBackColor = Color.Purple
                    dr.DefaultCellStyle.ForeColor = Color.Purple
                    dr.DefaultCellStyle.SelectionForeColor = Color.White
            End Select
            dr.Cells("Status").Style.BackColor = dr.DefaultCellStyle.ForeColor
            dr.Cells("Status").Style.SelectionForeColor = dr.DefaultCellStyle.ForeColor
            dr.Cells("LKW_Nr").Style.BackColor = lkwbackcolor
            'dr.Cells("LKW_Nr").Style.SelectionBackColor = lkwbackcolorSel
            ' dr.Cells("LKW_Nr").Style.SelectionForeColor = Color.Black
        Next


    End Sub

    Private Sub mnuPunkt_Click(sender As Object, e As System.EventArgs) Handles mnuInfo.Click, mnuFirmen.Click
        'Hier werden alle Menüpunkte abgearbeitet
        If sender Is mnuInfo Then
            Dim f As New frmInfo
            f.ShowDialog(Me)
            Exit Sub
        End If
    End Sub

    Sub initDat()
        Dim tmpGrid_aktiv = Grid_aktiv
        Grid_aktiv = False
        If tbcntrAvisoLKW.SelectedIndex = 0 Then
            cboGrenzstelle.SelectedIndex = 0
            MyComboBox1.changeItem(UStatus_AVEingang)
            dtpVon.Value = Now.AddMonths(-1) 'Now.AddDays(-15)
            dtpBis.Value = Now.AddDays(1)
        ElseIf tbcntrAvisoLKW.SelectedTab Is tabFreigegeben Then
            MyComboBox1.changeItem(Status_Freigegeben)
            dtpVon.Value = Now
            dtpBis.Value = Now
        End If
        Grid_aktiv = tmpGrid_aktiv
    End Sub

    Private Sub tbcntrAviso_TabIndexChanged(sender As Object, e As EventArgs) Handles tbcntrAvisoLKW.SelectedIndexChanged
        If Not Grid_aktiv Then Exit Sub
        VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = -1
        SucheStandort = ""
        initDat()
        Aviso_anzeigen("")

        setAkive_AuswahlID() 'Lädt die aktuelle ID
        If gridAviso.SelectedRows.Count > 0 Or gridMyAviso.SelectedRows.Count > 0 Then
            Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, False)
        Else
            pnlDetailsRechts.Visible = False
        End If

    End Sub

    Private Sub btnAlleAnzeigen_Click(sender As System.Object, e As System.EventArgs) Handles btnAlleAnzeigen.Click

        If sender Is btnAlleAnzeigen Then
            'Auswahl wird zurückgesetzt, alle Einträge werden angezeigt
            Grid_aktiv = False
            dtpVon.Value = #1/1/2013#
            dtpBis.Value = #12/31/2099#
            txtSuche.Text = ""
            'optAlle.Checked = True 
            tbcntrAvisoLKW.SelectedIndex = 0
            Grid_aktiv = True
            SucheStandort = ""
            Aviso_anzeigen("")
        End If

    End Sub



    Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)

    Private Sub txtSuche_GotFocus(sender As Object, e As EventArgs) Handles txtSuche.Enter
        Try
            If My.Computer.Keyboard.CapsLock Then
                Call keybd_event(System.Windows.Forms.Keys.CapsLock, &H14, 1, 0)
                Call keybd_event(System.Windows.Forms.Keys.CapsLock, &H14, 3, 0)
            End If
        Catch ex As Exception

        End Try
    End Sub

    Private Sub txtSuche_KeyDown1(sender As Object, e As PreviewKeyDownEventArgs) Handles txtSuche.PreviewKeyDown
        If e.KeyCode = Keys.Return Or e.KeyCode = Keys.Tab Then
            Aviso_anzeigen("")
        End If
    End Sub



    Private Sub txtSuche_KeyDown(sender As Object, e As EventArgs) Handles txtSuche.TextChanged
        Label8.Visible = True
        '   Exit Sub
        'If e.KeyCode = Keys.Return Then
        If Not Grid_aktiv Then Exit Sub
        '  If txtSuche.Text.Length = 1 Then Exit Sub
        If txtSuche.Text.StartsWith("/") Then
            If txtSuche.Text.Length > 3 And txtSuche.Text.EndsWith("/") Then 'AVISO ID
                If txtSuche.Text.Count(Function(c As Char) c = "/") > 2 Then
                    Exit Sub
                End If
                If txtSuche.Text.Contains("-") Then

                    Dim t As String = txtSuche.Text
                    '    t = t.Replace("/V003/", "")
                    t = t.Replace("/", "")
                    Dim v() = t.Split("-")
                    'Dim o As New cOptionenDAL
                    If v.Length > 1 Then

                        Dim dt As DataTable = AvisoDAL.loadDataTableBySQL("SELECT TOP 1 tblSnd_AvisoID,tblSnd_SendungID  FROM [tblSendungen] WHERE [FilialenNr]='" & v(0) & "' AND [AbfertigungsNr]='" & v(1) & "' AND [UnterNr]='" & v(2) & "' ")
                        If dt.Rows.Count > 0 Then

                            Dim avisoidTmp = dt.Rows(0)("tblSnd_AvisoID")
                            Dim sndidTmp = dt.Rows(0)("tblSnd_SendungID")

                            VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = avisoidTmp
                            FUNC.AktUebernehmen(avisoidTmp) 'Übernahme des Aktes
                            gridAviso.ClearSelection()
                            gridMyAviso.ClearSelection()
                            UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.ClearSelection()
                            Details_anzeigen(avisoidTmp, False)
                            selectRow(avisoidTmp)
                            Try
                                Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                                    Case "ATILLA"
                                    Case Else ' "VERAG", "IMEX"
                                        DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).openSnd(sndidTmp)
                                End Select
                            Catch ex As Exception
                                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                            End Try
                            txtSuche.Text = ""
                        End If

                    End If
                Else
                    Dim avisoidTmp = txtSuche.Text.Replace("/", "")
                    VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = avisoidTmp
                    FUNC.AktUebernehmen(avisoidTmp) 'Übernahme des Aktes
                    gridAviso.ClearSelection()
                    gridMyAviso.ClearSelection()
                    UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.ClearSelection()
                    Details_anzeigen(avisoidTmp)
                    selectRow(avisoidTmp)
                    txtSuche.Text = ""
                End If
            End If
        Else
            '  SucheStandort = ""
            ' Aviso_anzeigen("")
            ' JETZT NU BEI ENTER

            'gridAviso.Refresh() 'für Variante mit Treffer gelb anzeigen
        End If

    End Sub

    Sub selectRow(AvisoId)
        Try
            For Each r As DataGridViewRow In gridAviso.Rows
                If r.Cells("AvisoId").Value = AvisoId Then
                    r.Selected = True
                    Exit For
                End If
            Next
            For Each r As DataGridViewRow In gridMyAviso.Rows
                If r.Cells("AvisoId").Value = AvisoId Then
                    r.Selected = True
                    Exit For
                End If
            Next

        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG")
        End Try

    End Sub
    Private Sub dtp_ValueChanged(sender As System.Object, e As System.EventArgs) Handles dtpVon.ValueChanged, dtpBis.ValueChanged
        If Not pnlSearch.Visible Then
            If Not Grid_aktiv Then Exit Sub
            Aviso_anzeigen("")
        End If
    End Sub

    Private Sub WichtigChanged(sender As System.Object, e As System.EventArgs) Handles btnWichtigeStandort.Click, btnWichtige.Click
        Grid_aktiv = False
        Dim hSort As String = ""

        '  SucheStandort = ""

        dtpVon.Value = Now.AddMonths(-1) ' Now.AddDays(-15)
        dtpBis.Value = Now.AddDays(1)
        'optAnkunft.Checked = True
        tbcntrAvisoLKW.SelectedTab = tabAnkunft
        txtSuche.Text = ""
        hSort = " ORDER BY Ankunft"
        '   If sender Is btnWichtigeStandort Then SucheStandort = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.Grenzstelle.Trim
        If sender Is btnWichtigeStandort Then
            cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim
        End If
        If sender Is btnWichtige Then
            cboGrenzstelle.SelectedIndex = 0
        End If

        Grid_aktiv = True
        Aviso_anzeigen(hSort)
    End Sub

    Private Sub GrenzstelleChanged(sender As System.Object, e As System.EventArgs) Handles cboGrenzstelle.SelectedIndexChanged

        'Suche Bestimmungs.ZST
        If cboGrenzstelle._value = "???" Then
            Label10.Visible = True
            txtBestimmungszollstelle.Visible = True
        Else
            Label10.Visible = False
            txtBestimmungszollstelle.Visible = False
        End If

        If Grid_aktiv Then
            ' SucheStandort = cboGrenzstelle._value.Replace("ALLE", "")
            Aviso_anzeigen("")
        End If


    End Sub

    Private Sub cbxClusterChanged(sender As System.Object, e As System.EventArgs) Handles cbxCluster.CheckedChanged
        If Grid_aktiv Then
            ' SucheStandort = cboGrenzstelle._value.Replace("ALLE", "")
            Aviso_anzeigen("")
        End If
    End Sub


    Private Sub btnHeute_Click(sender As System.Object, e As System.EventArgs) Handles MyComboBox1.SelectedIndexChanged, btnWoche.Click, btnHeute.Click, btnGestern.Click
        If Not Grid_aktiv Then Exit Sub
        Grid_aktiv = False
        Dim hSort As String = ""

        '   SucheStandort = ""
        If sender Is btnHeute Then
            dtpVon.Value = Now.Date
            dtpBis.Value = Now.Date
        ElseIf sender Is btnGestern Then
            dtpVon.Value = Now.Date.AddDays(-1)
            dtpBis.Value = Now.Date.AddDays(-1)
        ElseIf sender Is btnWoche Then
            dtpVon.Value = Now.Date.AddDays(-7)
            dtpBis.Value = Now.Date
        End If
        Grid_aktiv = True
        Aviso_anzeigen(hSort)
    End Sub

    Private Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As IntPtr

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If frmLogin.AnmeldungOK Then

            Try
                If DateDiff(DateInterval.Second, hMerkZeit, Now) > 60 Then
                    avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'hMerkZeit wird in aviso_anzeigen aktualisiert
                    UsrCntlBenachrichtigungen1.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)

                End If
            Catch ex As Exception

            End Try

            If False Then 'NUR AKTUALISIEREN; WENN FENSTER AKTIV --> bei 2. Monitor PROBLEM
                Try
                    If GetActiveWindow = Me.Handle Then

                        If DateDiff(DateInterval.Second, hMerkZeit, Now) > 60 Then
                            ' System.Threading.Thread.Sleep(1000) '? warum??
                            avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) 'hMerkZeit wird in aviso_anzeigen aktualisiert
                            UsrCntlBenachrichtigungen1.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
                        End If
                    Else
                        hMerkZeit = hMerkZeit.AddSeconds(-60) 'Somit wird beid er nächste Aktiveierung aktualisiert
                        If DateDiff(DateInterval.Second, hMerkZeit2, Now) > 10 Then
                            gridAviso.RELOAD()
                            GridZeichnenAviso()
                            initDauerLKWFertig()
                            hMerkZeit2 = Now
                        End If
                    End If

                Catch ex As Exception

                End Try
            End If
        End If
    End Sub

    Private Sub btnRefresh_Click(sender As System.Object, e As System.EventArgs) Handles btnRefresh.Click
        avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
        UsrCntlBenachrichtigungen1.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)

    End Sub



    Private Sub gridAviso_ColumnHeaderMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridAviso.ColumnHeaderMouseClick
        GridZeichnenAviso()
    End Sub

    Private Sub btnErfasst_MouseHover(sender As Object, e As EventArgs) Handles btnZollwebseiten.MouseEnter, btnUmrechnungskurse.MouseEnter, Button6.MouseEnter, Button5.MouseEnter, btnSpedBuch.MouseEnter, btnRg.MouseEnter, btnRefresh.MouseEnter, btnNeu.MouseEnter, btnKunden.MouseEnter, btnKassenbuch.MouseEnter, btnDrucken.MouseEnter
        Try
            Dim cF As Color = DirectCast(sender, Button).ForeColor
            Dim cB As Color = DirectCast(sender, Button).BackColor
            If cF = Color.Black Then cF = Color.Gray
            DirectCast(sender, Button).ForeColor = cB
            DirectCast(sender, Button).BackColor = cF
        Catch ex As Exception

        End Try
    End Sub
    Private Sub btnErfasst_MouseLeave(sender As Object, e As EventArgs) Handles btnZollwebseiten.MouseLeave, btnUmrechnungskurse.MouseLeave, Button6.MouseLeave, Button5.MouseLeave, btnSpedBuch.MouseLeave, btnRg.MouseLeave, btnRefresh.MouseLeave, btnNeu.MouseLeave, btnKunden.MouseLeave, btnKassenbuch.MouseLeave, btnDrucken.MouseLeave
        Try
            Dim cF As Color = DirectCast(sender, Button).ForeColor
            Dim cB As Color = DirectCast(sender, Button).BackColor
            If cB = Color.Gray Then cB = Color.Black
            DirectCast(sender, Button).ForeColor = cB
            DirectCast(sender, Button).BackColor = cF
        Catch ex As Exception

        End Try
    End Sub

    Private Sub gridAviso_DoubleClick(sender As Object, e As System.EventArgs) Handles gridAviso.DoubleClick

        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
            Exit Sub
        End If

        If gridAviso.SelectedRows.Count = 0 Then Exit Sub

        Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
        Dim f As New frmEintragAviso
        f.ShowDialog(frmGrayOut)
        frmGrayOut.Close()
        btnRefresh.PerformClick() 'Aviso_anzeigen("")

    End Sub

    Private Sub gridMyAviso_DoubleClick(sender As Object, e As System.EventArgs) Handles gridMyAviso.DoubleClick

        If gridMyAviso.SelectedRows.Count = 0 Then Exit Sub
        If gridMyAviso.SelectedRows(0).Cells("AvisoID").Value Is DBNull.Value Then Exit Sub

        If cbx_My_LKW.Checked Then

            Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
            Dim f As New frmEintragAviso
            f.ShowDialog(frmGrayOut)
            frmGrayOut.Close()
            btnRefresh.PerformClick() 'Aviso_anzeigen("")

        Else

            If gridMyAviso.SelectedRows(0).Cells("tblSnd_SendungID").Value Is DBNull.Value Then Exit Sub

            Dim SendungsId = gridMyAviso.SelectedRows(0).Cells("tblSnd_SendungID").Value
            Dim AvisoID = gridMyAviso.SelectedRows(0).Cells("AvisoID").Value

            Dim f = FUNC.openSnd(SendungsId, AvisoID)
            If f IsNot Nothing Then
                AddHandler f.FormClosed, Sub()
                                             btnRefresh.PerformClick()
                                         End Sub
            End If
        End If


    End Sub


    Private Sub btnNeu_Click(sender As System.Object, e As System.EventArgs) Handles btnNeu.Click, ToolStripMenuItem17.Click
        Try

            Me.Cursor = Cursors.WaitCursor
            gridAviso.ClearSelection()
            gridMyAviso.ClearSelection()
            Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
            Dim f As New frmEintragAviso

            If sender Is ToolStripMenuItem17 Then
                f.FIRMA_TMP = "ATILLA"
            End If

            VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 0
            '  f.frmHilf = Me
            If Not f.IsDisposed And f IsNot Nothing And Not frmGrayOut.IsDisposed And frmGrayOut IsNot Nothing Then
                f.ShowDialog(frmGrayOut)
            End If
            frmGrayOut.Close()
            btnRefresh.PerformClick() 'Aviso_anzeigen("")

        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG")
        End Try
        Me.Cursor = Cursors.Default
    End Sub

    Private Sub btnLöschen_Click(sender As System.Object, e As System.EventArgs)

    End Sub

    Private Sub btnDrucken_Click(sender As System.Object, e As System.EventArgs) Handles btnDrucken.Click

        'MsgBox("Druck steht derzeit noch nicht zur Verfügung.", vbInformation)
        Dim f As New frmAuswahl_Aviso
        f.Show()
    End Sub

    Private Sub btnPaketdienst_Click(sender As System.Object, e As System.EventArgs) Handles btnKunden.Click


        Me.Cursor = Cursors.WaitCursor
        'For Each frm As Form In Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing
        If Not Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing Then
            Application.OpenForms.Item("frmKundenUebersichtZOLL").BringToFront()
            Me.Cursor = Cursors.Default : Exit Sub
        End If
        '  Next
        Try
            Dim zoll As New SDL.frmKundenUebersichtZOLL
            zoll.Show()
            Me.Cursor = Cursors.Default
        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
    End Sub

    Private Sub btnSpedBuch_Click(sender As Object, e As EventArgs) Handles btnSpedBuch.Click
        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then
            Return
        End If

        For Each ft As Form In Application.OpenForms
            If TypeOf ft Is SDL.frmSpeditionsbuchSuche Then
                ft.BringToFront()
                Return
            End If
        Next

        Me.Cursor = Cursors.WaitCursor

        Dim spedForm As New SDL.frmSpeditionsbuchSuche()

        AddHandler spedForm.SendungsdetailsRequested, AddressOf OnSendungsdetailsRequested


        spedForm.Show()

        Me.Cursor = Cursors.Default
    End Sub

    Private Declare Function ShowWindow Lib "user32" _
    (ByVal hWnd As System.IntPtr, ByVal nCmdShow As Long) As Long

    Private Const SW_RESTORE = 9


    Private Function DoesProcessExists(ByVal PName As String) As Boolean
        If System.Diagnostics.Process.GetProcessesByName(PName).Count = 0 Then Return False
        Shell("UID.exe", AppWinStyle.NormalFocus)
        '   ShowWindow(System.Diagnostics.Process.GetProcessesByName(PName)(0).MainWindowHandle, SW_RESTORE)
        Return True
        For Each p As Process In System.Diagnostics.Process.GetProcessesByName(PName)

            If p.StartInfo.UserName = Environment.UserName Then


                '  ShowWindow(p.MainWindowHandle, SW_RESTORE)

                Return True
            End If
        Next
        Return False
    End Function
    Private Sub old_Click(sender As System.Object, e As System.EventArgs)




        If Paketdienste_EXE = "" Then
            MsgBox("Es ist kein Pfad für den Programm-Aufruf zugewiesen. Bitte den Administrator verständigen.", vbInformation)
            Exit Sub
        End If
        If Not File.Exists(Paketdienste_EXE) Then
            MsgBox("Die Zuweisung zum Programm-Aufruf ist falsch." & vbCrLf & vbCrLf & Paketdienste_EXE & vbCrLf & vbCrLf &
                   "Bitte den Administrator verständigen.", vbInformation)
            Exit Sub
        End If

        'Dim Program As ProcessStartInfo = New ProcessStartInfo
        'Dim ProgramProcess As Process = New Process

        'Program.Arguments = Paketdienste_EXE
        'Program.UseShellExecute = True
        'Program.CreateNoWindow = False
        'Program.WindowStyle = ProcessWindowStyle.Normal
        'Program.WorkingDirectory = ""
        Try
            Process.Start(Paketdienste_EXE)
        Catch ex As Exception
            Throw New ApplicationException("Startshell", ex)
        End Try

    End Sub
    Private Sub kexdown(sender As Object, e As KeyEventArgs) Handles gridAviso.KeyUp
        Try

            If e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down Or e.KeyCode = Keys.PageUp Or e.KeyCode = Keys.PageDown Or e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Then
                If sender.selectedRows.count = 0 Then Exit Sub
                Dim tmpId = CInt(sender.selectedRows(0).Cells("AvisoId").Value)
                VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
                avisoAktualisierenAktiveIdBehalten(tmpId, , False)

            End If

        Catch ex As Exception

        End Try
    End Sub


    Private Sub keydownMyAviso(sender As Object, e As KeyEventArgs) Handles gridMyAviso.KeyUp
        Try

            If e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down Or e.KeyCode = Keys.PageUp Or e.KeyCode = Keys.PageDown Or e.KeyCode = Keys.Return Or e.KeyCode = Keys.Enter Then
                If sender.selectedRows.count = 0 Then Exit Sub
                Dim tmpId = CInt(sender.selectedRows(0).Cells("AvisoId").Value)
                Dim tmpSndId = CInt(sender.selectedRows(0).Cells("tblSnd_SendungID").Value)
                VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
                VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = tmpSndId
                avisoAktualisierenAktiveIdBehalten(tmpId, False)

            End If

        Catch ex As Exception

        End Try
    End Sub




    Public Sub lblHinweiseVisible()
        If gridMyAviso.SelectedRows.Count > 0 Then lblHinweis.Visible = (gridMyAviso.SelectedRows(0).Cells("AvisoTVHinweis").Value.ToString <> "")
        If gridAviso.SelectedRows.Count > 0 Then lblHinweis.Visible = (gridAviso.SelectedRows(0).Cells("AvisoTVHinweis").Value.ToString <> "")
    End Sub
    Public Sub avisoAktualisierenAktiveIdBehalten(tmpid As Integer, Optional aktWithoutCheckTime As Boolean = False, Optional Aviso_anzeigenBool As Boolean = True)

        pic.Visible = False
        Try


            If Not Grid_aktiv Then Exit Sub
            Details_aktiv = False

            initEAviso()

            If Aviso_anzeigenBool Then Aviso_anzeigen("", False) ': meineAviso_anzeigen()

            gridAviso.ClearSelection()
            For Each r As DataGridViewRow In gridAviso.Rows
                If CInt(r.Cells("AvisoId").Value) = tmpid Then
                    ' gridMyAviso.ClearSelection()
                    gridAviso.CurrentCell = r.Cells("Status")
                    r.Selected = True : Exit For
                End If
            Next


            gridMyAviso.ClearSelection()
            If cbx_My_LKW.Checked Then
                For Each r As DataGridViewRow In gridMyAviso.Rows
                    If CInt(r.Cells("AvisoId").Value) = tmpid Then
                        ' gridMyAviso.ClearSelection()
                        gridMyAviso.CurrentCell = r.Cells("Status")
                        r.Selected = True : Exit For
                    End If
                Next
            Else
                If gridMyAviso.Rows.Count > 0 Then
                    For Each r As DataGridViewRow In gridMyAviso.Rows
                        If CInt(r.Cells("tblSnd_SendungID").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID Then
                            gridMyAviso.CurrentCell = r.Cells("Status")
                            r.Selected = True : Exit For
                        End If
                    Next
                End If
            End If


            VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpid
            Details_aktiv = True

            If pnlDetailsRechts.Controls.Count > 0 Then

                Dim usrcntlAvisoID = -1
                Dim usrcntlAktiv As DateTime
                If Not pnlDetailsRechts.Controls(0).GetType = GetType(System.Windows.Forms.Label) Then
                    If pnlDetailsRechts.Controls(0).Name = "usrcntlAktDetailsATILLANeu" Then
                        usrcntlAvisoID = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID
                        usrcntlAktiv = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).aktiv
                    Else
                        usrcntlAvisoID = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID
                        usrcntlAktiv = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).aktiv
                    End If

                    If aktWithoutCheckTime Or usrcntlAvisoID <> tmpid Then
                        Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
                    Else
                        If DateDiff(DateInterval.Second, usrcntlAktiv, 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 If



                'Select Case VERAG_PROG_ALLGEMEIN.cAviso.getFirmaByAvisoId(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)

                '    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)
                '            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 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
                '            usrcntl.changeCurrentSndId()
                '            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
        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG")
        End Try
    End Sub



    Private Sub dgvSendungen_CellContentClick() Handles UsrCntlBenachrichtigungen1.SelectionChanged, gridMyAviso.CellClick
        Try

            If UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.SelectedRows.Count = 1 Then

                gridMyAviso.ClearSelection()
                gridAviso.ClearSelection()
                ' MsgBox(Grid_aktiv) 

                Dim tmpId = UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_AvisoID").Value

                If UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_art").Value = "A" Then
                    VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
                Else 'Sendungsbenachrichtigung
                    VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.SelectedRows(0).Cells("ab_SendungID").Value
                End If

                VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId

                avisoAktualisierenAktiveIdBehalten(tmpId,  , False)
            End If



        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
    End Sub

    Private Sub grid_CellMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridMyAviso.CellMouseClick, gridAviso.CellMouseClick

        If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
        'If gridVermerke.SelectedRows.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
        'gridMyAviso.ClearSelection() 'WARUM?
        If sender Is gridAviso Then gridMyAviso.ClearSelection() : UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.ClearSelection()
        If sender Is gridMyAviso Then gridAviso.ClearSelection() : UsrCntlBenachrichtigungen1.gridAvisoBenachrichtigungen.ClearSelection()
        ' MsgBox(Grid_aktiv)
        DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True

        Dim tmpId = CInt(sender.Rows(e.RowIndex).Cells("AvisoId").Value)

        If sender Is gridAviso Then
            VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
        Else
            If sender Is gridMyAviso Then
                If cbx_My_LKW.Checked Then
                    VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
                Else
                    VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = CInt(sender.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value)
                End If
            End If
        End If


        If e.Button = MouseButtons.Right Then
            If True Then
                'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
                '    If sender Is gridAviso Then
                '        VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
                '        sender.CurrentCell = sender.Rows(e.RowIndex).Cells(e.ColumnIndex)
                '        conMenuAviso.Show(Cursor.Position)
                '    End If
                'Else
                setAkive_AuswahlID()
                avisoAktualisierenAktiveIdBehalten(tmpId,  , False)
                Dim hStatus = AvisoDAL.LesenAviso(tmpId, "").Status
                If hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Then
                    'MsgBox("Ein Vermerk kann nur erfasst werden, wenn der Status des Aviso auf 'Erfasst', 'Vorbereitet', 'Vorgeschrieben' oder 'Ankunft' steht.", vbInformation)
                    lblErrVermerk.Width = 300
                    lblErrVermerk.Visible = True
                    hideErr.Enabled = True
                    Exit Sub
                End If

                Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
                Dim sv As New frmAddAktenvermerkShort(tmpId)
                sv.Location = Me.PointToClient(Cursor.Position)
                ' sv.ShowDialog()
                sv.ShowDialog(frmGrayOut)
                frmGrayOut.Close()

            End If
        ElseIf e.Button = MouseButtons.Left Then
            VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
            avisoAktualisierenAktiveIdBehalten(tmpId,  , False)
        End If
    End Sub


    Private Sub conMenu_Click(sender As Object, e As System.EventArgs) Handles conVorgeschrieben.Click, conVorbereitet.Click, conÜbernehmen.Click, conNichtEingetroffen.Click, conFreigabe.Click, conFertig.Click, conAnkunft.Click, conAnVerimex.Click, conAnIndonesien.Click ',conVermerkLöschen.Click,

        Timer1.Enabled = False

        If sender Is conFertig Then
            btnFertig.PerformClick()
        End If

        If sender Is conVorbereitet Then
            FUNC.setVorbereitet(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
            '  If btnVorbereitet.Visible Then
            'btnVorbereitet.PerformClick()
            'Else
            '    MsgBox("Die Anzeige wurde länger nicht mehr aktualisiert. Bitte vor Statusänderung die Anzeige mit F2 aktualisieren.", vbInformation)
            ' End If
        End If

        If sender Is conVorgeschrieben Then
            FUNC.setVorgeschreiben(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
            'If btnVorgeschrieben.Visible Then
            'btnVorgeschrieben.PerformClick()
            'Else
            '  MsgBox("Die Anzeige wurde länger nicht mehr aktualisiert. Bitte vor Statusänderung die Anzeige mit F2 aktualisieren.", vbInformation)
            'End If
        End If


        If sender Is conAnkunft Then
            FUNC.setAnkunft(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
            ' If btnFreigabe.Visible Then
            '     btnAnkunft.PerformClick()
            ' Else
            '     MsgBox("Die Anzeige wurde länger nicht mehr aktualisiert. Bitte vor Statusänderung die Anzeige mit F2 aktualisieren.", vbInformation)
            ' End If
        End If

        If sender Is conAnVerimex Then
            FUNC.setAnVERIMEX(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
        End If

        If sender Is conAnIndonesien Then
            FUNC.setAnINDONESIEN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
        End If

        If sender Is conFreigabe Then
            FUNC.setFreigabe(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, Me)
            'If btnFreigabe.Visible Then
            '     btnFreigabe.PerformClick()
            ' Else
            '     MsgBox("Die Anzeige wurde länger nicht mehr aktualisiert. Bitte vor Statusänderung die Anzeige mit F2 aktualisieren.", vbInformation)
            ' End If
        End If

        If sender Is conNichtEingetroffen Then
            FUNC.setNichtEingeftroffen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
            ' If btnFreigabe.Visible Then
            '     btnNichtEingetroffen.PerformClick()
            ' Else
            '     MsgBox("Die Anzeige wurde länger nicht mehr aktualisiert. Bitte vor Statusänderung die Anzeige mit F2 aktualisieren.", vbInformation)
            ' End If
        End If

        If sender Is conÜbernehmen Then
            FUNC.AktUebernehmen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
            'btnÜbernehmen.PerformClick()
        End If
        avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
        Timer1.Enabled = True
    End Sub


    ' Private Sub chkFarben_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkFarbenChanged
    'Aviso_anzeigen("")
    ' End Sub

    Public Sub UpdateToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UpdateToolStripMenuItem.Click
        frmLogin.UpdateAVISO()
    End Sub

    Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs)
        'MsgBox(cGlobal.AktiverMitarbeiter.Mitarbeiter)

        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
            frmAuswertung.Show()
        Else
            MsgBox("Nicht verfügbar!", vbInformation)
        End If
    End Sub

    Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        Me.Visible = False
        Me.MaximumSize = Screen.PrimaryScreen.WorkingArea.Size
        'Me.MaximumSize = New Size(1920, 1000)
        Me.WindowState = FormWindowState.Normal
        Me.Location = New Point(0, 0)
        Me.Size = Screen.PrimaryScreen.WorkingArea.Size
        '    MsgBox(Me.Size.Height)
        pnlDetailsRechts.MinimumSize = New Size(650, 0)
        Details_aktiv = True
        '        If gridMyAviso.RowCount > 0 Then
        'gridMyAviso.Rows(0).Selected = True
        'ElseIf gridAviso.RowCount > 0 Then
        'gridAviso.Rows(0).Selected = True
        'End If

        ' Details_anzeigen(setAkive_AuswahlID())
        timerStart.Interval = 500
        timerStart.Enabled = True
        TimerUPDATE.Enabled = True
        Me.Visible = True
        If sd = 0 Then sd = SplitContainer1.SplitterDistance
        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
            'btnGenerelleGestellungen.Visible = False
            Button6.Visible = False
            If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ALLOW_STATUS2_VERIMEX") Then
                'tabVorbereitet.Text = "2. VERIMEX/INDONESIEN"
                tbcntrAvisoLKW.TabPages.Remove(tabVorgeschrieben)
                tbcntrAvisoLKW.TabPages.Remove(tabVorbereitet)
            End If

            btnWichtigeStandort.Visible = False
            Panel2.Visible = False

        ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
            'nix
        ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
            'nix
        Else 'VERAG

            If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then
                Button5.Visible = True
            End If
        End If

        If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("STATUS_ATILLA") Then
            'tabVorbereitet.Text = "2. VERIMEX/INDONESIEN"
            tbcntrAvisoLKW.TabPages.Remove(tabVorgeschrieben)
            tbcntrAvisoLKW.TabPages.Remove(tabVorbereitet)
        Else
            tbcntrAvisoLKW.TabPages.Remove(tabINDONESIEN)
            tbcntrAvisoLKW.TabPages.Remove(tabVERIMEX)
            conAnVerimex.Visible = False
            conAnIndonesien.Visible = False
        End If



        'Wenn Teamzuweisung --> Backoffice --> Meine Senungen größer!
        If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId, 0) > 0 Then
            splitMain.SplitterDistance = CInt(splitMain.Height / 2)
        Else


        End If

        'If SplitContainer2.Width > 800 Then
        '    'SplitContainer2.Panel2MinSize = 600
        '    SplitContainer2.SplitterDistance = 130 'SplitContainer2.Width - 750
        '    If SplitContainer2.Panel2.Width > 1200 Then SplitContainer2.SplitterDistance = SplitContainer2.Width - 1200 '__> DAS"!!!
        '    '  If SplitContainer2.Panel2.Width > 900 Then SplitContainer2.SplitterDistance = SplitContainer2.Width - 900
        'End If

        If SplitContainer2.Width > 1300 Then
            SplitContainer2.SplitterDistance = 350 'SplitContainer2.Width - 750
            SplitContainer3.SplitterDistance = 400
        ElseIf SplitContainer2.Width > 1200 Then
            SplitContainer2.SplitterDistance = 180 'SplitContainer2.Width - 750
            SplitContainer3.SplitterDistance = 300
        Else
            SplitContainer2.SplitterDistance = 160 'SplitContainer2.Width - 750
            SplitContainer3.SplitterDistance = 250
        End If



        If My.Computer.Screen.WorkingArea.Width < 1300 Then
            'tabAnkunft.Text = "ANKUNFT."
            'tabErfasst.Text = "ERFASST"
            tabVorbereitet.Text = "2.Vorb.QS"
            tabVorgeschrieben.Text = "3.Vorgeschr."
            'tabFreigegeben.Text = "FREIGABE"
            tabNichtEingetroffen.Text = "N.E."
            '  tabVorgeschrieben.Text = "VORGESCHR."

        End If


        tbcntrAvisoLKW.Width = Panel1.Width

        'tbcntrAvisoSND.Location = New Point(tbcntrAvisoLKW.Location.X + getTbControlWidth(tbcntrAvisoLKW) + 80, tbcntrAvisoSND.Location.Y)
        tbcntrAvisoSND.Location = New Point(tbcntrAvisoLKW.Location.X, tbcntrAvisoLKW.Location.Y)
        tbcntrAvisoSND.SelectedIndex = 1
        tbcntrAvisoSND.Width = tbcntrAvisoLKW.Width
        tbcntrAvisoSND.Height = tbcntrAvisoLKW.Height

        VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)

        BürgschaftenExcelToolStripMenuItem.Visible = False

        setGesamtsicherheitenBerechtigung()


        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA IsNot "VERIMEX" And VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG = False Then

            If CInt(Application.ProductVersion.Replace(".", "")) = 4000 Then
                Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
                Dim f As New frmAvisoBirthday
                f.ShowDialog(frmGrayOut)
                frmGrayOut.Close()
            End If
        End If


    End Sub

    Private Function getTbControlWidth(tbcntr) As Integer
        Dim totalWidth As Integer = 0

        ' Durchlaufe alle TabPages und summiere die Breite der Tabs
        For i As Integer = 0 To tbcntr.TabCount - 1
            totalWidth += tbcntr.GetTabRect(i).Width
        Next

        Return totalWidth
    End Function

    WithEvents timerStart As New Timer

    Private Sub timerStart_Tick(sender As Object, e As EventArgs) Handles timerStart.Tick
        Details_anzeigen(setAkive_AuswahlID())

        Try
            VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath()
        Catch ex As Exception

        End Try
        timerStart.Enabled = False
    End Sub

    Private Sub setGesamtsicherheitenBerechtigung()

        ATVeragCSToolStripMenuItem.Visible = False
        DEVeragGmbHToolStripMenuItem.Visible = False
        ATVeragAGToolStripMenuItem.Visible = False
        ATImexCSToolStripMenuItem.Visible = False
        DEAmbarToolStripMenuItem.Visible = False
        ATUnispedGmbHToolStripMenuItem.Visible = False
        ATAtillaToolStripMenuItem.Visible = False


        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
            ATVeragCSToolStripMenuItem.Visible = True
            DEVeragGmbHToolStripMenuItem.Visible = True
            ATVeragAGToolStripMenuItem.Visible = True
            ATUnispedGmbHToolStripMenuItem.Visible = True
            ATAtillaToolStripMenuItem.Visible = True
        ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
            'nix
        ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
            DEVeragGmbHToolStripMenuItem.Visible = True
            ATVeragCSToolStripMenuItem.Visible = True
            ATVeragAGToolStripMenuItem.Visible = True
            ATImexCSToolStripMenuItem.Visible = True
        ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
            DEAmbarToolStripMenuItem.Visible = True
        ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then
            ATUnispedGmbHToolStripMenuItem.Visible = True

        ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then
            ATVeragCSToolStripMenuItem.Visible = True
            ATVeragAGToolStripMenuItem.Visible = True
            ATImexCSToolStripMenuItem.Visible = True
        Else
            'VERAG
            ATVeragCSToolStripMenuItem.Visible = True
            DEVeragGmbHToolStripMenuItem.Visible = True
            ATVeragAGToolStripMenuItem.Visible = True
            ATImexCSToolStripMenuItem.Visible = True

        End If


    End Sub

    Private Sub frmMain_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        If Me.WindowState = FormWindowState.Minimized Then Exit Sub

        '   If SplitContainer1.Panel2.Width > 700 And (SplitContainer1.Width - 760) > 0 Then
        '       SplitContainer1.SplitterDistance = SplitContainer1.Width - 760
        '  End If
        If SplitContainer1.Panel2.Width > 700 And (SplitContainer1.Width - 660) > 0 Then
            SplitContainer1.SplitterDistance = SplitContainer1.Width - 660
        Else
            If SplitContainer1.Panel2.Width < 700 Then
                SplitContainer1.SplitterDistance = SplitContainer1.Width - 660
            End If

        End If
        sd = SplitContainer1.SplitterDistance
    End Sub

    Private Sub KdNrZuordnenToolStripMenuItem_Click(sender As Object, e As EventArgs)
        If VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter.StartsWith("ADMIN") Then
            frmZuordnungKd.Show()
        Else : MsgBox("Sie sind für diese Funktion nicht freigeschaltet.")
        End If
    End Sub



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnZollwebseiten.Click
        cntxt.Show(Cursor.Position)
    End Sub




    Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click

        Try
            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ausstempelnBeiBeenden Then
                If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
                    If Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasNichtStempeln Then
                        Dim timas As New cTimasAPI("timas")
                        Dim infoMessage As New DataTable
                        Dim timeEntryExisting As Boolean = False
                        Dim isEndpointRunning As Boolean = True
                        Dim isPresent = timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting,, isEndpointRunning)
                        If timeEntryExisting AndAlso isEndpointRunning AndAlso isPresent Then
                            Dim a As MsgBoxResult = MsgBox("Soll " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " ausgestempelt werden?" & vbNewLine & Now.ToString() & " als Endzeit erfassen?", vbYesNo)
                            If a = vbYes Then
                                Dim info
                                timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "out", IIf(cAllgemein.MITARBEITER.mit_homeoffice, 3, 0))
                                MsgBox(info)
                            Else

                            End If

                        End If

                    End If
                End If
            End If
        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try


        Me.Close()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnMinimieren.Click
        Me.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub TimerAkte_Tick(sender As Object, e As EventArgs) Handles TimerAkte.Tick
        ' newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1)

        lblAkte.Visible = False
    End Sub





    Private Sub btnBar_Click(sender As Object, e As EventArgs)
        frmBarcodeGenerator.Show()
    End Sub

    Private Sub NacherfassungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NacherfassungToolStripMenuItem.Click
        If VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter.StartsWith("ADMIN") Then
            Dim frmNacherfassung As New SDL.frmNacherfassungNEU
            frmNacherfassung.Show()
        End If

    End Sub

    Private Sub StatistikADMINToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StatistikADMINToolStripMenuItem.Click
        'MsgBox(cGlobal.AktiverMitarbeiter.Mitarbeiter)
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik", Me) Then
            frmAuswertung.Show()
        Else : MsgBox("Sie sind für diese Funktion nicht freigeschaltet.")
        End If
    End Sub

    Private Sub LKWBerichtToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LKWBerichtToolStripMenuItem.Click
        Dim frmLKWBericht As New frmLKWBericht
        frmLKWBericht.ShowDialog(Me)
    End Sub

    Private Sub GenerelleGestellungenDurchsuchenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GenerelleGestellungenDurchsuchenToolStripMenuItem.Click
        frmGenerelleGestellungen.ShowDialog()

    End Sub

    Private Sub KundenVonFremdenSpeditionenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KundenVonFremdenSpeditionenToolStripMenuItem.Click
        Dim frmKundenFremdeSpeditionen As New frmKundenFremdeSpeditionen
        frmKundenFremdeSpeditionen.ShowDialog()
    End Sub


    Private Sub StandorteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StandorteToolStripMenuItem.Click
        Dim f As New frmTabelleStandorte
        f.ShowDialog(Me)
        Exit Sub
    End Sub



    Private Sub KdNrZuordnenToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles KdNrZuordnenToolStripMenuItem.Click
        If VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter.StartsWith("ADMIN") Then
            frmZuordnungKd.Show()
        Else : MsgBox("Sie sind für diese Funktion nicht freigeschaltet.")
        End If
    End Sub

    Private Sub OptionenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles OptionenToolStripMenuItem1.Click
        gridAviso.ClearSelection()
        gridMyAviso.ClearSelection()
        VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 1
        Dim f As New frmEintragOptionen
        f.ShowDialog(Me)
    End Sub

    Private Sub VorlagenUploadToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorlagenUploadToolStripMenuItem.Click
        Dim vu As New VERAG_PROG_ALLGEMEIN.frmVorlagen
        vu.ShowDialog()

    End Sub

    Private Sub gridAviso_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles gridAviso.CellContentClick

    End Sub

    Private Sub BarcodeTestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BarcodeTestToolStripMenuItem.Click
        If VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter.StartsWith("ADMIN") Then
            frmBarcodeGenerator.Show()
        End If
    End Sub


    Private Sub btnAsd_Click(sender As Object, e As EventArgs)
        newNotify(frmNotify.cNotify_ART.AVISO_2H, 1, gridMyAviso.Rows(0).Cells("LKW_Nr").Value, gridMyAviso.Rows(0).Cells("AvisoId").Value)
    End Sub

    Sub newNotify(art As frmNotify.cNotify_ART, title As Integer, text As String, id As Integer)
        '   Exit Sub 'NICHT AKTIV
        Dim formTmp = Me.ActiveForm
        Dim frmNotify As New frmNotify(art, title, text, id)
        frmNotify.TimerInterval = 1200000 ' 20min


        Dim tmpY As Integer = Me.Height
        If tmpY <= 0 Then tmpY = My.Computer.Screen.WorkingArea.Height

        For Each ft As Form In Application.OpenForms
            If ft.GetType.ToString = "AVISO.frmNotify" Then
                If ft.Location.Y < tmpY Then tmpY = ft.Location.Y
            End If
        Next
        frmNotify.Y = tmpY - frmNotify.Height - 10
        frmNotify.Show()

        If formTmp IsNot Nothing Then formTmp.Focus()
    End Sub

    Public Function ConvertFileToBase64(ByVal fileName As String) As String
        Return Convert.ToBase64String(System.IO.File.ReadAllBytes(fileName))

    End Function
    Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
        Dim process As Process
        Dim ProgrammID As Integer
        Dim Programmname As String = "AVISO"

        For Each process In System.Diagnostics.Process.GetProcesses
            If (InStr(process.ProcessName, Programmname)) Then
                ProgrammID = process.Id
            End If
        Next
        AppActivate(ProgrammID)
        Exit Sub


        VERAG_PROG_ALLGEMEIN.cTranslateAuto_LIST.DoToAllControls(Me, "TR")
        'VERAG_PROG_ALLGEMEIN.cTranslateAuto._Transle("What you deserve, is what you get  World!!", "DE", "")

        Exit Sub
        Try


            Dim MIC = New VERAG_PROG_ALLGEMEIN.MIC_IMPORT.InsertImportShipment
            MIC.ImportShipmentMessage.ImportShipment.Shipment.company = "UK"
            MIC.SaveToFile("C:\VeragTMP\Test2.xml")

            'Dim MIC = VERAG_PROG_ALLGEMEIN.MIC_IMPORT.InsertImportShipment.LoadFromFile("C:\VeragTMP\Test.xml")
            ''Dim MIC = VERAG_PROG_ALLGEMEIN.MIC_IMPORT.InsertImportShipment.LoadFromFile("C:\VeragTMP\MicCustImportShipment_Sample.xml")

            'MsgBox(MIC.ImportShipmentMessage.ImportShipment.Shipment.company)

        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try



        Exit Sub


        Dim rpt As New rptTEST


        SDL.cProgramFunctions.printRpt(rpt, "")

        Exit Sub

        'Dim sms As New VERAG_PROG_ALLGEMEIN.cSMS
        'sms.sms_Handynummer = "00436644178557"
        'sms.sms_Nachricht = "Das ist ein TEST"
        'sms.sms_Firma = "FRONTOFFICE"
        'sms.sms_Account = "EX0252513"
        'sms.sendWhatsApp(sms.sms_Firma)

        'Exit Sub
        cHMRC.hmrcTEST()

        Exit Sub

        Dim list = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(717858, CDate("01.10.2021"), CDate("31.10.2021")) '{5})

        For Each d In list
            MsgBox(d.RechnungsDatum & " - " & d.RechnungsName_1)
        Next



        'VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolderCat("C:\Users\test01\Desktop\TEST.pdf", "12345", "", "Import ab Jänner 2021", "Import ab Jänner 2021")
        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, ,,, 2)
        Exit Sub

        Exit Sub
        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()


        'Exit Sub
        'Me.Cursor = Cursors.WaitCursor

        Dim firma = ""
        '  MsgBox("LOS" & vbNewLine & firma)

        Dim path = SDL.cFinanzOnlineWebService.genUID_Formular("ATU74813856")
        If path <> "" Then
            Process.Start(path)
        End If
        'If SDL.cFinanzOnlineWebService.Call_Web_Service_MethodUID_Abfrage_NEU2020(firma, "ATU74813856") = 0 Then
        '    MsgBox("HURRA2" & vbNewLine & firma)


        'End If


        Exit Sub


        MsgBox("1" & Environment.UserDomainName)
        MsgBox("1" & Environment.UserName)
        Exit Sub
        Dim file As System.IO.StreamWriter
        file = My.Computer.FileSystem.OpenTextFileWriter("C:\Users\DEVELOPER1\Desktop\test.txt", True)
        file.WriteLine(ConvertFileToBase64("C:\Users\DEVELOPER1\Desktop\Example.pdf"))
        file.Close()

        MsgBox("2")

        Exit Sub

        Dim SH As New VERAG_PROG_ALLGEMEIN.cVERAG_in_TRAviso
        SH.POSITIONS.Add(New cVERAG_in_TRAviso_shipments)
        SH.DOCUMENTS.Add(New cVERAG_in_TRAviso_document)
        SH.POSITIONS(0).ADDRESS.Add(New cVERAG_in_TRAviso_Adressen)
        SH.POSITIONS(0).DOCUMENTS.Add(New cVERAG_in_TRAviso_document)
        Dim resultJson = FromClass(SH)

        MsgBox(resultJson)




        Exit Sub

        Dim jsonPost As New VERAG_PROG_ALLGEMEIN.cJsonPost("https://api.verag.ag/api/V001/CustomsDeclaration?value=test123")
        Dim dictData As New Dictionary(Of String, Object)
        Dim EZA As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza
        EZA.POSITIONS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position)
        EZA.POSITIONS(0).DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position_document)
        'EZA.DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_document)
        EZA.ADDRESS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_Adressen)

        EZA.Company = "VERAG"

        dictData.Add("EZA", EZA)
        dictData.Add("TEST", "JA")
        MsgBox(jsonPost.postData(dictData))


        '----------------------------------------------


        'Dim SH As New VERAG_PROG_ALLGEMEIN.cVERAG_in_shippment

        'Dim resultJson = FromClass(SH)

        'MsgBox(resultJson)
        '----------------------------------------------


        'newNotify(frmNotify.cNotify_ART.AVISO_2H3, gridMyAviso.Rows(1).Cells("LKW_Nr").Value, gridMyAviso.Rows(1).Cells("AvisoId").Value)
        'newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1)

        'Dim TJ As New VERAG_PROG_ALLGEMEIN.TESTJSON.BeyannameBilgi

        'Dim stringtst = ""
        'Dim user = JsonConvert.DeserializeObject(Of List(Of VERAG_PROG_ALLGEMEIN.cVERAG_in_shippment))(SH)
    End Sub

    Public Function FromClass(Of T)(data As T,
                                    Optional isEmptyToNull As Boolean = False,
                                    Optional jsonSettings As JsonSerializerSettings = Nothing) As String

        Dim response As String = String.Empty

        If Not EqualityComparer(Of T).Default.Equals(data, Nothing) Then
            response = JsonConvert.SerializeObject(data, jsonSettings)
        End If

        Return If(isEmptyToNull, (If(response = "{}", "null", response)), response)

    End Function

    Public Function ToClass(Of T)(data As String,
                              Optional jsonSettings As JsonSerializerSettings = Nothing) As T

        Dim response = Nothing

        If Not String.IsNullOrEmpty(data) Then
            response = If(jsonSettings Is Nothing,
                      JsonConvert.DeserializeObject(Of T)(data),
                      JsonConvert.DeserializeObject(Of T)(data, jsonSettings))
        End If

        Return response

    End Function


    Private Sub timerStandzeit_Tick(sender As Object, e As EventArgs) Handles timerStandzeit.Tick
        Exit Sub
        Dim maId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
        Dim dt As DataTable = AvisoDAL.getStandzeitInfo(maId, 1441, 9999999, 2)

        For Each r As DataRow In dt.Rows
            newNotify(frmNotify.cNotify_ART.AVISO_2H, 3, dt.Rows(0).Item("LKW_Nr").ToString, dt.Rows(0).Item("AvisoId").ToString)
            AvisoDAL.UpdateWarnstufe(dt.Rows(0).Item("AvisoId").ToString, 2)
        Next

        dt = Nothing
        dt = AvisoDAL.getStandzeitInfo(maId, 120, 1440, 1)
        For Each r As DataRow In dt.Rows
            newNotify(frmNotify.cNotify_ART.AVISO_2H, 1, dt.Rows(0).Item("LKW_Nr").ToString, dt.Rows(0).Item("AvisoId").ToString)
            AvisoDAL.UpdateWarnstufe(dt.Rows(0).Item("AvisoId").ToString, 1)
        Next

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs)
        'timerStandzeit_Tick(timerStandzeit, New EventArgs)
        ' Dim zt As New SDL.frmZolltarif
        ' zt.Show()
        Dim f As New Form
        f.WindowState = FormWindowState.Maximized

        Dim usr As New SDL.usrcntlKundeBearbeitenFull(401053)
        usr.Dock = DockStyle.Fill
        f.Controls.Add(usr)
        f.Show()
        'Dim k As New cAdressen(401053)
        'MsgBox(k.BLZ)
    End Sub


    Private Sub btnFertig_Click(sender As Object, e As EventArgs) Handles btnFertig.Click
        VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
        avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
    End Sub


    Private Sub pnlDetailsLinks_Paint(sender As Object, e As PaintEventArgs) Handles pnlDetailsLinks.Paint

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs)
        frmGenerelleGestellungen.ShowDialog()
    End Sub


    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        MsgBox("Noch nicht verfügbar")
        Exit Sub
        Dim frmKundenFremdeSpeditionen As New frmKundenFremdeSpeditionen
        frmKundenFremdeSpeditionen.ShowDialog()
    End Sub


    Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click
        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Gestellungsgarantie)
    End Sub

    Private Sub ZollvollmachtDEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles toolStrVM_de.Click
        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DE_Vollmacht)
        'cFormularManager.fillVollmacht(-1, "ZVM_DE")
    End Sub


    Private Sub ToolStripMenuItem12_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem12.Click
        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK)
    End Sub

    Private Sub ZollFiskalVMCustomsServiceGmbHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles toolStrVM_at.Click
        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.AT_Vollmacht)
        ' cFormularManager.fillVollmacht(-1, "ZVM_CS")
    End Sub

    Private Sub ExportVMToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles toolStrVM_at4200.Click
        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.AT_Fiskal)
        ' cFormularManager.fillVollmacht(-1, "ZVM_CS_4200")
    End Sub

    Private Sub VeragCustomsServiceToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VeragCustomsServiceToolStripMenuItem.Click
        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VUB_CS)

    End Sub

    Private Sub ImportavisoVorauskasseToolStripMenuItem_Click(sender As Object, e As EventArgs)
        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK)
        'cFormularManager.fillImportaviso(-1, "Vorauskasse")
    End Sub
    Private Sub ToolStripMenuItem15_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem15.Click
        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DispoListe)
    End Sub


    Private Sub VUBVERAGSpeditionAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VUBVERAGSpeditionAGToolStripMenuItem.Click
        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VUB_AG)
    End Sub


    Private Sub MANAGERToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MANAGERToolStripMenuItem.Click
        Dim f As New SDL.frmFormulare
        f.Show()
    End Sub



    Private Sub ToolStripMenuItem18_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem18.Click

        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Verzollungspreise)
    End Sub

    Private Sub toolVPCreditreformTRToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles toolVPCreditreform.Click
        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Boniteatsauskunft)
        ' cFormularManager.fillCreditreform(-1)
    End Sub


    Private Sub hideErr_Tick(sender As Object, e As EventArgs) Handles hideErr.Tick
        lblErrVermerk.Visible = False
        hideErr.Enabled = False
    End Sub

    Private Sub UpdateUpdater_Tick(sender As Object, e As EventArgs) Handles UpdateUpdater.Tick
        UpdateUpdater.Enabled = False
        cProgramFunctions.updateUpdater()
    End Sub

    Private Sub UpdateSession_Tick(sender As Object, e As EventArgs) Handles UpdateSession.Tick
        VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.UPDATE_TIME()
    End Sub



    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Dim frmTV As New frmTv
        frmTV.avisoID = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID
        frmTV.ShowDialog()
        avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
        If gridMyAviso.SelectedRows.Count > 0 Then lblHinweis.Visible = (gridMyAviso.SelectedRows(0).Cells("AvisoTVHinweis").Value.ToString <> "")
        If gridAviso.SelectedRows.Count > 0 Then lblHinweis.Visible = (gridAviso.SelectedRows(0).Cells("AvisoTVHinweis").Value.ToString <> "")
    End Sub

    Public Sub showHideDetails()
        If sd <> SplitContainer1.SplitterDistance Or SplitContainer1.Panel2.Size.Width = 15 Then
            SplitContainer1.SplitterDistance = sd
            SplitContainer1.Panel2MinSize = 660 '300
            Fullscreen = False
        Else
            SplitContainer1.Panel2MinSize = 15
            SplitContainer1.SplitterDistance = Me.Width - 15
            'SHOW FREIGBAE, etc
            Fullscreen = True
        End If
        '    avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cglobal.Aktive_ID)
        gridAviso_SpaltenFestlegen()
        tbcntrAvisoLKW.Width = Panel1.Width
    End Sub

    Private Sub btnSmall_Click(sender As Object, e As EventArgs) Handles btnSmall.Click
        Me.showHideDetails()
        btnSmall.Text = IIf(btnSmall.Text = "<", ">", "<")
    End Sub

    Private Sub ZeilenInFarbeEinausToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZeilenInFarbeEinausToolStripMenuItem.Click
        chkFarben = Not chkFarben
    End Sub

    Private Sub btnKassenbuch_Click(sender As Object, e As EventArgs) Handles btnKassenbuch.Click
        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
            Case "IMEX"
                pnlOptionen.Visible = Not pnlOptionen.Visible
            Case Else
                Dim s As New SDL.frmSecureLoginKassenbuch
                s.openKB = True
                s.disableCBO = False
                ' End If
                s.ShowDialog(Me)
        End Select

        ' Dim ADMIN As New cADMIN
        ' Dim PersID As Integer = ADMIN.getValueTxtBySql("Select isnull(mit_FMZollPersID,-1) FROM tblMitarbeiter WHERE [mit_id]=" & VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.MitarbeiterID, "ADMIN")
        '  Dim KBNr = ADMIN.getValueTxtBySql("Select isnull(KassenbuchNr,-1) FROM Personal WHERE [ID]=" & PersID, "FMZOLL")

        ' If KBNr > 0 Then
        '    s.KassenbuchNr_tmp = KBNr

    End Sub



    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles btnUmrechnungskurse.Click
        'Process.Start("http://www.zoll.de/DE/Fachthemen/Zoelle/Zollwert/Aktuelle-Umrechnungskurse/Datenbankanwendung/datenbankanwendung_node.html")

        'Process.Start("http://www.zoll.de/SiteGlobals/Forms/KursSuche/KurseSuche_Formular_NotierteWaehrung.html?method=post&iso2code2=TR")
        ' Process.Start("https://www.zoll.de/SiteGlobals/Forms/KursSuche/KurseSuche_Formular_NotierteWaehrung.html")
        'http://www.zoll.de/SiteGlobals/Functions/Kurse/KursExport.xml?nn=21174&date=20170127165538660&kursart=1&iso2code2=TR&view=xmlexportkurse !!!!!!!!!!!!!!!!!!!!!!!!!!

        Process.Start("https://www.zoll.de/SiteGlobals/Forms/KursSuche/NotierteWaehrungen/KurseSuche_Formular_NotierteWaehrung.html")

    End Sub

    Private Sub LogoutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LogoutToolStripMenuItem.Click
        frmLogin.Visible = True
        closeOK = True
        'Me.Close()
        '    Me.Dispose()

    End Sub



    Private Sub gridAviso_MouseMove(sender As Object, e As DataGridViewCellMouseEventArgs) Handles gridAviso.CellMouseMove  ', gridMyAviso.CellMouseMove
        Exit Sub ' Klappt nicht richtig
        If e.RowIndex >= 0 And e.ColumnIndex >= 0 Then
            sender.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.SteelBlue
            sender.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.White
            If sender Is gridAviso Then
                sender.Rows(e.RowIndex).Cells("Status").Style.ForeColor = sender.Rows(e.RowIndex).Cells("Status").Style.BackColor
                sender.Rows(e.RowIndex).Cells("LKW_Nr").Style.BackColor = Color.SteelBlue
                sender.Rows(e.RowIndex).Cells("LKW_Nr").Style.ForeColor = Color.White
            End If
        End If
    End Sub

    Private Sub gridAviso_CellMouseLeave(sender As Object, e As DataGridViewCellEventArgs) Handles gridAviso.CellMouseLeave  ', gridMyAviso.CellMouseLeave
        Exit Sub ' Klappt nicht richtig
        If e.RowIndex >= 0 And e.ColumnIndex >= 0 Then
            sender.Rows(e.RowIndex).DefaultCellStyle.BackColor = sender.Rows(e.RowIndex).DefaultCellStyle.SelectionForeColor
            sender.Rows(e.RowIndex).DefaultCellStyle.ForeColor = sender.Rows(e.RowIndex).DefaultCellStyle.SelectionBackColor
            If sender Is gridAviso Then
                sender.Rows(e.RowIndex).Cells("Status").Style.ForeColor = sender.Rows(e.RowIndex).Cells("Status").Style.BackColor
                sender.Rows(e.RowIndex).Cells("LKW_Nr").Style.ForeColor = sender.Rows(e.RowIndex).Cells("Status").Style.BackColor
                sender.Rows(e.RowIndex).Cells("LKW_Nr").Style.BackColor = Color.LightGray
            End If
        End If
    End Sub

    Private Sub TabellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TabellenToolStripMenuItem.Click
        Dim f As New Form
        Dim c As New SDL.usrCntlAdministration
        c.Dock = DockStyle.Fill
        f.Controls.Add(c)
        f.Width = 850
        f.Height = 800
        f.Show()
    End Sub

    Private Sub HandbuchToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HandbuchToolStripMenuItem.Click
        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "", "", "", "AVISO_Benutzerhandbuch 3.0.pdf")
        DS.OPEN_SINGLE()
        '
        ' Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
        'cDATENSERVER.openDataTMP(cDATENSERVER.getTOP1Path("DOKUMENTE", "VORLAGEN", , "AVISO_Benutzerhandbuch 3.0.pdf"))

    End Sub



    Private Sub EinheitspapierToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EinheitspapierToolStripMenuItem.Click
        '  If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
        Me.Cursor = Cursors.WaitCursor
        Dim eh As New SDL.frmEinheitspapier
        eh.Show()
        Me.Cursor = Cursors.Default
        '  End If
    End Sub

    Private Sub Einheitspapier0735VersandverfahrenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Einheitspapier0735VersandverfahrenToolStripMenuItem.Click
        '  If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
        Me.Cursor = Cursors.WaitCursor
        Dim eh As New SDL.frmEinheitspapierVersandverfahren
        eh.Show()
        Me.Cursor = Cursors.Default
        '  End If
    End Sub

    Private Sub CMRToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CMRToolStripMenuItem.Click
        'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
        Me.Cursor = Cursors.WaitCursor
        Dim eh As New SDL.frmCMR
        eh.Show()
        Me.Cursor = Cursors.Default
        '  End If
    End Sub



    Private Sub btnRg_Click(sender As Object, e As EventArgs) Handles btnRg.Click
        For Each ft As Form In Application.OpenForms
            If ft.GetType.ToString = "SDL.frmRechnungenSuche" Then
                ft.BringToFront()
                Exit Sub
            End If
        Next
        Me.Cursor = Cursors.WaitCursor
        Dim sped As New SDL.frmRechnungenSuche
        sped.Show()
        Me.Cursor = Cursors.Default
    End Sub

    Private Sub TimerUPDATE_Tick(sender As Object, e As EventArgs) Handles TimerUPDATE.Tick
        Dim cADMIN As New cADMIN
        ' If CInt(cADMIN.getAktuelleVersion().Replace(".", "")) > CInt(My.Resources.Version2.Replace(".", "")) Then
        If CInt(cADMIN.getAktuelleVersion().Replace(".", "")) > CInt(Application.ProductVersion.Replace(".", "")) Then
            Label9.Visible = True
        End If
    End Sub



    Private Sub lklErweitereSuche_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblErweitereSuche.LinkClicked
        initPnlSearch()
    End Sub
    Sub initPnlSearch()
        If pnlSearch.Visible Then
            pnlSearch.Visible = False
            Panel1.Height -= pnlSearch.Height
            Panel1.Height += tbcntrAvisoLKW.Height
            tbcntrAvisoLKW.Visible = True
            Me.Refresh()
            Aviso_anzeigen("")
        Else
            pnlSearch.Visible = True
            Panel1.Height += pnlSearch.Height
            Panel1.Height -= tbcntrAvisoLKW.Height
            tbcntrAvisoLKW.Visible = False
            Me.Refresh()
            initDat()
            gridAviso.Columns.Clear()
            cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
            cbxAlle.Checked = True
            cboGrenzstelle.SelectedIndex = 0
        End If

        If tbcntrAvisoLKW.SelectedTab IsNot tabAlle Then
            Grid_aktiv = False
            tbcntrAvisoLKW.SelectedIndex = 0
        End If

        Grid_aktiv = True
    End Sub

    Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click, CheckBox1.CheckedChanged
        If CheckBox1.Checked Then
            toggle_LKW_SND("LKW")
        Else
            toggle_LKW_SND("SND")
        End If
    End Sub

    Private Sub toggle_LKW_SND(typ)

        If typ = "LKW" Then
            tbcntrAvisoLKW.Visible = True
            tbcntrAvisoSND.Visible = False

        ElseIf typ = "SND" Then
            tbcntrAvisoLKW.Visible = False
            tbcntrAvisoSND.Visible = True

        End If

        Aviso_anzeigen("",, typ)

    End Sub
    Private Sub cbxAlle_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAlle.CheckedChanged

        'If cbxAlle.Checked Then
        cbxErfasst.Checked = cbxAlle.Checked
        cbxVorg.Checked = cbxAlle.Checked
        cbxVorb.Checked = cbxAlle.Checked
        cbxAnkunft.Checked = cbxAlle.Checked
        cbxFreigabe.Checked = cbxAlle.Checked
        cbxNE.Checked = cbxAlle.Checked
        '  End If
    End Sub


    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles btnDienstplan.Click
        Dim f As New SDL.frmDienstplan
        f.Show()
    End Sub

    Private Sub MDMParkplatzkartenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MDMParkplatzkartenToolStripMenuItem.Click
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_VERAG_CARD", Me) Then

            'Dim f As New SDL.frmKundenblatt()
            Dim f As New Form
            Dim u As New SDL.usrCntlVERAGCard
            u.Dock = DockStyle.Fill
            f.Controls.Add(u)
            f.WindowState = FormWindowState.Maximized
            f.Text = "MDM VERAG Card"
            f.StartPosition = FormStartPosition.CenterScreen
            f.Show()
        Else
            MsgBox("Sie sind für diese Funktion nicht freigeschaltet.")
        End If
    End Sub

    Private Sub BürgschafrtsbuchungenFremdToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BürgschafrtsbuchungenFremdToolStripMenuItem.Click
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATILLA_VERWALTUNG", Me) Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("IMEX_VERWALTUNG", Me) Or
              VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Auswertung_Fremdbürgschaften", Me) Then

            Dim f As New Form
            Dim u As New SDL.usrCntlBrgBuchungenFremd
            f.Size = New Size(720, 185)
            f.Icon = Me.Icon
            u.Dock = DockStyle.Fill
            f.Controls.Add(u)
            f.StartPosition = FormStartPosition.CenterScreen
            f.Show(Me)

        End If
    End Sub

    Private Sub SDLAuswertungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SDLAuswertungenToolStripMenuItem.Click
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("BH_Hauptmenü", "SDL") = 0 Then

            Dim f As New Form
            Dim u As New SDL.usrCntlBH
            f.Size = New Size(1200, 900)
            f.Icon = Me.Icon
            u.Dock = DockStyle.Fill
            f.Controls.Add(u)
            f.StartPosition = FormStartPosition.CenterScreen
            f.WindowState = FormWindowState.Normal
            f.Show(Me)
        Else
            MsgBox("Keine Berechtigung!")
        End If
    End Sub


    Private Sub VorauskassenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorauskassenToolStripMenuItem.Click
        Dim f As New SDL.frmVorauskasse
        f.Show(Me)
    End Sub



    Private Sub VerzollungsunterlagenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerzollungsunterlagenToolStripMenuItem.Click
        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Verzollungsunterlagen)
    End Sub

    Private Sub ZollprogrammeNachEORIDurchsuchenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Click
        Dim f As New SDL.frmZollprogrammeDurchsuchen
        f.Show(Me)
    End Sub

    Private Sub SDLAbholaufträgeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SDLAbholaufträgeToolStripMenuItem.Click
        'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL")  btnFakturierung
        Dim f As New SDL.frmSDLAbholung(True)

        f.Show(Me)
        'Else
        ' MsgBox("Noch nicht verfügbar!")
        ' End If
    End Sub

    Private Sub SMSTestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SMSTestToolStripMenuItem.Click

        Dim f As New SDL.frmSendSMS("", "")
        f.ShowDialog()
        Exit Sub
        Dim messagingService As New MessagingService("al@verag.ag", "Developer#2")
        messagingService.SendMessage(New SmsMessage("00436644178557", "Hello!", "EX0252513"))
    End Sub


    Private Sub NeueSMSSendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeueSMSSendenToolStripMenuItem.Click
        Dim f As New SDL.frmSendSMS("", "")
        f.ShowDialog()
    End Sub

    Private Sub GesendeteSMSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GesendeteSMSToolStripMenuItem.Click
        Dim f As New SDL.frmSMS
        f.Show(Me)
    End Sub

    Private Sub StammreferenzenVerwaltenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StammreferenzenVerwaltenToolStripMenuItem.Click
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_Stammref_Verwalten", "AVISO") Then
            Dim f As New SDL.frmDakosyStammreferenzVerwalten
            f.Show(Me)
        End If
    End Sub

    Private Sub AuftragÜberwachungsdokumentToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuftragÜberwachungsdokumentToolStripMenuItem.Click
        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.QS_UeDok)
    End Sub

    Private Sub QSTeamsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles QSTeamsToolStripMenuItem.Click
        Dim f As New SDL.frmTeamsZuordnung()
        f.Show(Me)
    End Sub

    Private Sub BerechtigungenNeuLadenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BerechtigungenNeuLadenToolStripMenuItem.Click
        showMeNew()
        'VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_BER()
        'cADMIN.checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
    End Sub

    Private Sub LeereRechnungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LeereRechnungToolStripMenuItem.Click
        Dim f As New SDL.frmAbrechnungsMaskeEinzeln(-1, -1)
        f.Show(Me)
    End Sub

    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, ,,, 2)


    End Sub

    Private Sub FreigabeMailTestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FreigabeMailTestToolStripMenuItem.Click
        AvisoStatusFunctions.Email_senden(2, AvisoDAL.LesenAviso(451993, ""), "al@verag.ag", "", "", 711104)
    End Sub

    Private Sub KundenverwaltungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KundenverwaltungToolStripMenuItem.Click
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Verwaltung", "SDL") Then
            Dim f As New SDL.frmKundenSucheUebersicht
            f.Show(Me)
        Else
            MsgBox("Keine Berechtigung!")
        End If
    End Sub

    Private Sub ATILLAToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATILLAToolStripMenuItem.Click
        If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "ATILLA", "SUB", True)) Then
            showMeNew()
        Else
            MsgBox("Keine Berechtigung!")
        End If
    End Sub

    Private Sub IMEXToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IMEXToolStripMenuItem.Click
        If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "IMEX", "SUB", True)) Then
            showMeNew()
        Else
            MsgBox("Keine Berechtigung!")
        End If
    End Sub

    Sub closeAllWindows()
        ' Hole alle geöffneten Fenster in einer Liste
        Dim openForms = Application.OpenForms.Cast(Of Form).ToList()

        ' Iteriere über jedes Fenster in der Liste
        For Each frm As Form In openForms
            ' Prüfe, ob das Fenster nicht das aktuelle Fenster
            If frm.GetType.ToString <> "AVISO.frmHauptfenster" And frm.GetType.ToString <> "AVISO.frmLogin" Then
                ' Schließe das Fenster, unabhängig davon, ob es modal oder nicht ist
                frm.Close()
            End If
        Next
    End Sub

    Private Sub VERAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERAGToolStripMenuItem.Click
        If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "VERAG", "SUB", True)) Then
            showMeNew()
        End If
    End Sub
    Sub showMeNew()
        'VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_DATA()
        'VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_BER()
        closeOK = True

        'For Each ft As Form In Application.OpenForms
        '    If ft.GetType.ToString = "SDL.frmSpeditionsbuchSuche" Then ft.Close()
        '    If ft.GetType.ToString = "SDL.frmRechnungenSuche" Then ft.Close()
        'Next
        closeAllWindows()

        Dim f As New frmHauptfenster
        f.Show()
        f.Visible = True
        f.WindowState = FormWindowState.Maximized
        Me.Close()
    End Sub

    Private Sub NeuesPasswortToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuesPasswortToolStripMenuItem.Click
        Dim f As New frmChangePWD(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER)
        If f.ShowDialog() = DialogResult.OK Then
            MsgBox("Passwort geändert!", vbInformation)
            'Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch()
            'frmSecureLoginKassenbuch.openKB = True
            'frmSecureLoginKassenbuch.ShowDialog(Me.Parent)
            'Me.Close()
        End If
    End Sub

    Private Sub Button2_Click_2(sender As Object, e As EventArgs) Handles btnFakturierung.Click
        Me.Cursor = Cursors.WaitCursor
        Dim f As New SDL.frmAbrechnungsMaske
        f.Show(Me)
        Me.Cursor = Cursors.Default
    End Sub

    Private Sub ToolStripMenuItem1_Click_1(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click

    End Sub

    Private Sub SDLAuswertungenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles SDLAuswertungenToolStripMenuItem1.Click
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("ZOLL_Auswertungen", "SDL") = 0 Then

            Dim f As New Form
            Dim u As New SDL.usrCntlZOLLAuswertungen
            f.Size = New Size(1200, 900)
            f.Icon = Me.Icon
            u.Dock = DockStyle.Fill
            f.Controls.Add(u)
            f.StartPosition = FormStartPosition.CenterScreen
            f.WindowState = FormWindowState.Normal
            f.Show(Me)
        Else
            MsgBox("Keine Berechtigung!")
        End If
    End Sub

    Private Sub btnÄndern_Click(sender As Object, e As EventArgs) Handles btnKasse_LG.Click
        pnlOptionen.Visible = False
        Dim s As New SDL.frmSecureLoginKassenbuch
        s.openKB = True
        s.KassenbuchNr_tmp = 5030
        s.disableCBO = False
        s.ShowDialog(Me)

    End Sub

    Private Sub btnLöschen_Click_1(sender As Object, e As EventArgs) Handles btnKasse_User.Click
        pnlOptionen.Visible = False
        Dim s As New SDL.frmSecureLoginKassenbuch
        s.openKB = True
        s.disableCBO = False
        s.ShowDialog(Me)
    End Sub

    Dim secondmonitorSelected = False
    Private Sub Button2_Click_3(sender As Object, e As EventArgs) Handles Button2.Click
        Dim secondaryMonitor = Screen.AllScreens.FirstOrDefault(Function(x) Not x.Primary)
        If secondmonitorSelected Then
            secondaryMonitor = Screen.AllScreens.FirstOrDefault(Function(x) x.Primary) 'Hauptbildschirm
        End If
        If secondaryMonitor IsNot Nothing Then
            Me.WindowState = FormWindowState.Normal
            Dim newLocation = secondaryMonitor.Bounds.Location
            newLocation.Offset(0, 0) ' adjust as needed
            Me.Location = newLocation
            Me.Refresh()
            Me.WindowState = FormWindowState.Maximized
            ' Also see Me.Size and Me.Bounds
        End If
        secondmonitorSelected = Not secondmonitorSelected
    End Sub

    Private Sub SDLProgrammStartenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SDLProgrammStartenToolStripMenuItem.Click
        Dim main As New SDL.frmMain
        main.Show()
    End Sub

    Private Sub BundesanzeigerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BundesanzeigerToolStripMenuItem.Click
        Dim frmBundesanzeigerZollTarif As New frmBundesanzeigerZollTarif
        If Not frmBundesanzeigerZollTarif.Visible Then
            frmBundesanzeigerZollTarif.Show()
        End If
        frmBundesanzeigerZollTarif.BringToFront()
    End Sub

    Private Sub EUTaricToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EUTaricToolStripMenuItem.Click
        Dim frmBundesanzeigerZollTarif As New frmBundesanzeigerZollTarif("EU")
        If Not frmBundesanzeigerZollTarif.Visible Then
            frmBundesanzeigerZollTarif.Show()
        End If
        frmBundesanzeigerZollTarif.BringToFront()
    End Sub
    Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles tool_BRGXLS.Click
        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "ATILLA", "", "ATILLA_Bürgschaften")
        DS.OPEN_SINGLE()
    End Sub
    Private Sub BürgschaftenExcelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BürgschaftenExcelToolStripMenuItem.Click
        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Gesamtsicherheit_VERAG_CS")
        'MsgBox(DS.da_id)
        DS.OPEN_SINGLE_ORIG()
    End Sub



    Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click
        ' Process.Start("https://file.verag.ag:5001/oo/r/pkjsynkkXrTgPm85JLVFWAHem4NuF6IO")
        Process.Start("https://file.verag.ag:5001/d/s/pkjsynkkXrTgPm85JLVFWAHem4NuF6IO/i4_Ss9mG9jR7hB4wStoIbzhvYzlJJJPv-BbegLJoGuQk")
        'Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Gesamtsicherheit_VERAG_GmbH")
        'DS.OPEN_SINGLE_ORIG()
    End Sub

    Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click
        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Gesamtsicherheit_VERAG_AG")
        'MsgBox(DS.da_id)
        DS.OPEN_SINGLE_ORIG()
    End Sub


    Private Sub ToolStripMenuItem8_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem8.Click
        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Annahmeblatt_WAI_IMPORT_TR")
        DS.OPEN_SINGLE_ORIG()
    End Sub

    Private Sub ToolStripMenuItem9_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem9.Click
        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Annahmeblatt_WAI_EXPORT_TR")
        DS.OPEN_SINGLE_ORIG()
    End Sub

    Private Sub AnnahmeblattIMPORTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnnahmeblattIMPORTToolStripMenuItem.Click
        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Annahmeblatt_WAI_IMPORT_SRB")
        DS.OPEN_SINGLE_ORIG()
    End Sub

    Private Sub AnnahmeblattEXPORTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnnahmeblattEXPORTToolStripMenuItem.Click
        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Annahmeblatt_WAI_EXPORT_SRB")
        DS.OPEN_SINGLE_ORIG()
    End Sub

    Private Sub ChecklisteVerwahrlagerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ChecklisteVerwahrlagerToolStripMenuItem.Click
        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Checkliste_Verwahrlager_WAI")
        DS.OPEN_SINGLE_ORIG()
    End Sub

    Private Sub LKWEingetroffenNachToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LKWEingetroffenNachToolStripMenuItem.Click
        Dim f As New SDL.frmLKWEingetroffen_nach
        f.Show(Me)
    End Sub

    Private Sub TICKETWaidhausToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TICKETWaidhausToolStripMenuItem.Click
        Dim frmLKWTicket As New frmLKWTicketInfo(cGlobal.Aktive_ID)
        frmLKWTicket.ShowDialog()
    End Sub

    Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles Button5.Click
        Dim frmLKWTicket As New frmLKWTicket(cGlobal.Aktive_ID)
        frmLKWTicket.ShowDialog()
    End Sub

    Private Sub ToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem10.Click
        Dim frmLKWTicket As New frmLKWTicket(cGlobal.Aktive_ID)
        frmLKWTicket.ShowDialog()
    End Sub

    Private Sub ToolStripMenuItem11_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem11.Click

        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VerzollungsunterlagenBAR)
    End Sub

    Private Sub ToolStripMenuItem13_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem13.Click
        Dim f As New SDL.frmPostEinschreiben
        f.Show(Me)
    End Sub

    Private Sub UNISPEDToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UNISPEDToolStripMenuItem.Click
        If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "UNISPED", "SUB", True)) Then
            showMeNew()
        Else
            MsgBox("Keine Berechtigung!")
        End If
    End Sub

    Private Sub AMBARToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AMBARToolStripMenuItem.Click
        If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "AMBAR", "AMB", True)) Then
            showMeNew()
        Else
            MsgBox("Keine Berechtigung!")
        End If
    End Sub

    Private Sub VollständigesUpdateToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VollständigesUpdateToolStripMenuItem.Click
        frmLogin.UpdateAVISO(True)
    End Sub

    Private Sub ZollvollmachtDEFiskalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZollvollmachtDEFiskalToolStripMenuItem.Click
        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DE_Fiskal)

    End Sub

    Private Sub ZollvollmachtATEVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZollvollmachtATEVToolStripMenuItem.Click
        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.AT_Vollmacht_EV)
    End Sub

    'Private Sub TESTToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles TESTToolStripMenuItem.Click
    '    'VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({"C:\Users\DEVELOPER1\Desktop\Reiter.pdf"})
    '    ' VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolder("C:\Users\DEVELOPER1\Desktop\20191017092932604.pdf", 489919001, 1234)

    '    TryPDF()
    'End Sub

    'Shared Sub TryPDF()
    '    '  Spire.License.LicenseProvider.SetLicenseKey("0xMEMAEABRiC6jPC4G3HMNAremyuZ15w8z1KmLKr9LnNmK8HaKpB6Q2+qrwh1uG0h5ui52KoJSRMg1suH9cs+IW+GtPapLk/UMMWbBlil6FmO/3TvpVJeLs3UetAz3YYCThbpPViCAY/6vBZrGePq9jMpST0Ln3PgEAVK6Obm4NELOjk9GNUdQGXgdCQ7ry9QIXR5DPYOSi2gSkQ+WihEx9K1hS5bl6VYOmIeAg109mcPIzdlja8O8z8wvIrqBwdivQXCN88B0NzEoBr7EiKl3mQEIcm1W8B3ppWmYPeZt3xfkR9H+xdVVfRnK8AEEgfB+/YEA9K2hQZpTPhaz3cHq31hHqeS2/NgQxaTx0/QghmPaLnoxqR2v2dDRe2oOxfXqmeHTI5e9cl8nWcgYl2fRhaDSvYYOs7GeO8tmiOlgMCdg+JO3EMQByyQ+AACEKRuTB8TI7OIU9POPs6dWaEZyu3YuWSDk4rGnCmdpJ3gHCJ7Qy9qoBtv+psnJAe/ylQCbqdvejSAKKtUonSpolK2zhqFljWqsWclgxk4NdvOd4tphER9c7H5sr2cn/SZgCXRftpk+G6zT/JPcY7LH5OP4kgQR9pH3g7O67C0YPCE7+20gLsTNaPfv7/mGoIMzTbUoteJN5D9jTLipYtfh8eLaEsLWL1rJ+sqr+MQvoYDNeWq6oG8bjkTyFe2GQkOZlBZEmpmR7W2QliMC7uSfbuJe6XHpM3dgROIluQHJQDAKge+LlYOd+QU5QPsI754noJZttSNKthzPxI9rP/FN+otlvvG8nddbx8v+PZAJ6KovIvexH7lWITw/Xrak4wzzaXCoeC5wUM2M5Y/4PL8tbKM+qIrH0kMZPHAdGIM4wJ8PA1UoEqB9Hgml6ggzk69WA1zY88W0y03js/7a/tWgwa+sEK9YK+cJXy54FpsLRFqkpSA0mOcJa3ukST9wnCOzVdN+Z4K4mCUzR++VJPVNkAA+KxEHrOOWG5kaUwUAk0sVRB8j8pjB83InevzxZJGX0+F+agjZJHQpzPdF1blS9WQqrW9p80fco3YI63i9+K78Q5TIuSlHOlPTLvuC1dxglzD3WkLsxnBd9woA5zQLVMdfYTfGntOuAEiBYqyVIMo35J/ese8SxczTqKOCcxBdLYCtE4S23yik6gL1YifmvjboavpRl6BPEf9M8iLe2xLRiJ+63rXTnexITUUYsq2XqCOj2YDdDnQywjMfnQ74WRQfD1vrGu7xcCTDCDkfql8uF2f8w00kqCS9UgpnsEuw5FoElVrgPNLvOlDSgqLdHOG0yiL9wwzPxtUZBiq6vNxkEkc+w0ZaQr012bHQoDyR/uMKPoLgmANaCb7qnsWLeoo+IrhfjwpUW6dXnIo7ENAFS0U6kjwGMrWDJU2JaH3M+8Iz//HLDO3Yr3eWC+wtt/I3Ii48Ra6CgPYTOfeRL3L+NkEBYfCVdxpQ==")

    '    Dim tmpFile = "C:\Users\DEVELOPER1\Desktop\Base\" & "27 AVN 83.pdf"
    '    'Test file: 16 AST 87 AVIS.PDF'
    '    Dim oldPdf As New Spire.Pdf.PdfDocument()
    '    oldPdf.LoadFromFile(tmpFile)
    '    For i As Integer = 0 To oldPdf.Pages.Count - 1
    '        extractFirstPage(tmpFile, i)
    '    Next i
    'End Sub

    'Shared Sub extractFirstPage(ByRef TmpFile, i)
    '    Dim oldPdf As New Spire.Pdf.PdfDocument()
    '    oldPdf.LoadFromFile(TmpFile)

    '    Dim SplitPdf As New Spire.Pdf.PdfDocument()
    '    Dim page1 As Spire.Pdf.PdfPageBase
    '    page1 = SplitPdf.Pages.Add(oldPdf.Pages(0).Size, New Spire.Pdf.Graphics.PdfMargins(0))
    '    oldPdf.Pages(0).CreateTemplate().Draw(page1, New PointF(0, 0))
    '    Dim result As String = String.Format("C:\Users\DEVELOPER1\Desktop\Base\" & "output2\SplitOutput{0}.pdf", i)
    '    SplitPdf.SaveToFile(result, Spire.Pdf.FileFormat.PDF)


    '    Dim pdfNew As New Spire.Pdf.PdfDocument()
    '    Dim page As Spire.Pdf.PdfPageBase

    '    For j As Integer = 1 To oldPdf.Pages.Count - 1
    '        Dim pageOLD As Spire.Pdf.PdfPageBase = oldPdf.Pages(j)
    '        If pageOLD.Rotation = Spire.Pdf.PdfPageRotateAngle.RotateAngle90 Then
    '            page = pdfNew.Pages.Add(New SizeF(pageOLD.Size.Height, pageOLD.Size.Width), New Spire.Pdf.Graphics.PdfMargins(0))
    '        ElseIf pageOLD.Rotation = Spire.Pdf.PdfPageRotateAngle.RotateAngle270 Then
    '            page = pdfNew.Pages.Add(New SizeF(pageOLD.Size.Height, pageOLD.Size.Width), New Spire.Pdf.Graphics.PdfMargins(0))
    '        Else
    '            page = pdfNew.Pages.Add(pageOLD.Size, New Spire.Pdf.Graphics.PdfMargins(0))
    '        End If
    '        oldPdf.Pages(j).CreateTemplate().Draw(page, New System.Drawing.PointF(0, 0))

    '    Next

    '    pdfNew.SaveToFile("C:\Users\DEVELOPER1\Desktop\Base\PFDtmp" & i & ".pdf")

    '    pdfNew.Dispose()
    '    System.IO.File.Delete(TmpFile)
    '    TmpFile = "C:\Users\DEVELOPER1\Desktop\Base\PFDtmp" & i & ".pdf"

    'End Sub

    Private Sub cboTeams_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboTeams.SelectedIndexChanged
        If Grid_aktiv Then
            ' SucheStandort = cboGrenzstelle._value.Replace("ALLE", "")
            Aviso_anzeigen("")
        End If
    End Sub

    Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub cboMyAvisoAnzeige_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboMyAvisoAnzeige.SelectedIndexChanged, cbx_My_LKW.CheckedChanged, cbx_My_Brexit.CheckedChanged, cboMy_Grenzstelle.SelectedIndexChanged, cboMy_QS.CheckStateChanged, cboMy_VB.CheckStateChanged
        If Grid_aktiv Then
            'Wenn VERIMEX/T1 und cboMyAvisoAnzeige geändert --> Checkboxes richtig setzen
            If sender Is cboMyAvisoAnzeige Then
                If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
                    Grid_aktiv = False
                    If cboMyAvisoAnzeige._value = "T1" Then
                        cboMy_QS.CheckState = CheckState.Checked
                        cboMy_VB.CheckState = CheckState.Unchecked
                    Else
                        cboMy_QS.CheckState = CheckState.Indeterminate
                        cboMy_VB.CheckState = CheckState.Indeterminate
                    End If
                    Grid_aktiv = True
                End If
            End If

            'DGV anzeigen: 
            meineAviso_anzeigen()
        End If
        cboMy_QS.Visible = Not cbx_My_LKW.Checked
        cboMy_VB.Visible = Not cbx_My_LKW.Checked
        cboMyAvisoAnzeige.Visible = Not cbx_My_LKW.Checked
        lblMySND_Anzeige.Visible = Not cbx_My_LKW.Checked

        If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
            btnColor.Visible = Not cbx_My_LKW.Checked
        Else
            btnColor.Visible = False
        End If
        If cbx_My_LKW.Checked Then
            lblMeineAviso.Text = "Meine Aviso:"
            cbx_My_Brexit.Visible = False
        Else
            lblMeineAviso.Text = "Meine Sendungen:"
            cbx_My_Brexit.Visible = True
        End If
    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles picAVISOMessenger.Click
        Me.Cursor = Cursors.WaitCursor
        For Each openForm In Application.OpenForms()
            If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
                CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).WindowState = FormWindowState.Normal
                CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).BringToFront()
                Me.Cursor = Cursors.Default : Exit Sub
            End If
        Next

        Dim f As New VERAG_PROG_ALLGEMEIN.frmMessenger
        f.Location = Cursor.Position
        f.Show(Me)
        Me.Cursor = Cursors.Default
    End Sub

    'Private Sub TimerMessanger_NewMessages_Tick(sender As Object, e As EventArgs) Handles TimerMessanger_NewMessages.Tick
    '    Label20.Visible = (VERAG_PROG_ALLGEMEIN.cMessenger.UNREAD_MESAGES > 0)
    '    Label20.Text = (VERAG_PROG_ALLGEMEIN.cMessenger.UNREAD_MESAGES)
    'End Sub
    Dim Timer_REFRESH_firstTime = True
    Private Sub Timer_REFRESH_Tick(sender As Object, e As EventArgs) Handles Timer_REFRESH.Tick
        If Timer_REFRESH_firstTime Then
            Timer_REFRESH_firstTime = False
            Exit Sub
        End If
        Try
            If frmLogin.AnmeldungOK Then
                ' newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "XXX Chat-Nachricht!", -1) 'TEST

                If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ChatBenutzer And picAVISOMessenger.Visible Then
                    VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = False 'NEUE NACHTICHTEN
                    Dim newMsg = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT()
                    Label20.Text = newMsg.ToString
                    Label20.Visible = (newMsg > 0)
                    'VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = True 'NEUE NACHTICHTEN -> falsch gesetzt?

                    If newMsg > 0 Then
                        VERAG_PROG_ALLGEMEIN.cMessenger.NEW_MESSGE = True
                        Me.Icon = My.Resources.avisoNewMsg

                        Dim isshown = False
                        For Each openForm In Application.OpenForms()
                            If TypeOf (openForm) Is frmNotify Then
                                isshown = True
                            End If
                        Next

                        Dim isInFront = False
                        For Each openForm In Application.OpenForms()
                            If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
                                '  If DirectCast(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).Focused Then
                                If GetActiveWindow = DirectCast(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).Handle Then
                                    isInFront = True
                                End If
                            End If
                        Next
                        If Not isshown And Not isInFront Then newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1)
                    Else
                        Me.Icon = My.Resources.Aviso
                    End If
                    If Label20.Visible Then Label20.BringToFront()
                End If
            End If

        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)

        End Try
    End Sub

    Private Sub cboImEx_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboImEx.SelectedIndexChanged
        If Grid_aktiv Then
            Aviso_anzeigen("")
        End If
    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles btnKontakt.Click
        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Telefonliste")
        'MsgBox(DS.da_id)
        DS.OPEN_SINGLE()
    End Sub

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        SplitContainer3.Panel1Collapsed = Not SplitContainer3.Panel1Collapsed
        Button10.Text = If(Button10.Text = "<", ">", "<")
    End Sub

    Private Sub ToolStripMenuItem6_Click_1(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click
        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "IMEX", "", "Gesamtsicherheit_IMEX")
        'MsgBox(DS.da_id)
        DS.OPEN_SINGLE_ORIG()
    End Sub

    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles btnMAVerzeichnis.Click
        Me.Cursor = Cursors.WaitCursor
        Dim f As New VERAG_PROG_ALLGEMEIN.frmMitarbeitersuche
        f.Show()
        Me.Cursor = Cursors.Default
    End Sub

    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles btnE_Aviso.Click, Label22.Click
        Me.Cursor = Cursors.WaitCursor
        Dim f As New frm_eAVISO
        f.Show()
        Me.Cursor = Cursors.Default
    End Sub

    Private Sub FRONTOFFICEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FRONTOFFICEToolStripMenuItem.Click
        If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "FRONTOFFICE", "SUB", True)) Then
            showMeNew()
        Else
            MsgBox("Keine Berechtigung!")
        End If
    End Sub

    Private Sub VERIMEXToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERIMEXToolStripMenuItem.Click
        If CBool((New cADMIN).checkLogin(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pwd, "VERIMEX", "", True)) Then
            showMeNew()
        Else
            MsgBox("Keine Berechtigung!")
        End If
    End Sub

    Private Sub SUBToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SUBToolStripMenuItem.Click, SBGToolStripMenuItem.Click, WAIToolStripMenuItem.Click, NKDToolStripMenuItem.Click, NEUToolStripMenuItem.Click, AMBToolStripMenuItem.Click
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STANDORT_WECHSELN", "AVISO") Then
            VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = sender.text
            VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung = sender.text 'Nochmal, sonst wird es durch MA geändert 
            showMeNew()
        Else
            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

    Private Sub SecretAvisoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SecretAvisoToolStripMenuItem.Click
        Dim frmSecretAviso As New frmSecretAviso
        frmSecretAviso.Show(Me)
    End Sub

    Private Sub DeutschToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeutschToolStripMenuItem.Click
        If True Then
            VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "DE"
            showMeNew()
        Else
            MsgBox("Keine Berechtigung!")
        End If
    End Sub

    Private Sub TürkischToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TürkischToolStripMenuItem.Click
        If True Then
            VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "TR"
            showMeNew()
        Else
            MsgBox("Keine Berechtigung!")
        End If
    End Sub
    Private Sub EnglishToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EnglishToolStripMenuItem.Click
        If True Then
            VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "EN"
            showMeNew()
        Else
            MsgBox("Keine Berechtigung!")
        End If
    End Sub

    Private Sub Button11_Click_1(sender As Object, e As EventArgs) Handles Button11.Click


        Exit Sub

        setProfileImage()

        cHMRC.VATTEST(InputBox("Token"))
    End Sub
    Sub saveLukowaPDFsFromTherefore()
        '  Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

        '  Dim dt As DataTable = SQL.loadDgvBySql("", "EZOLL")
        Dim slist As New List(Of String)



        slist.Add("500324000877")
        slist.Add("480324003317")

        slist.Add("480324005617")
        slist.Add("480324037692")
        slist.Add("480324037668")
        slist.Add("500324009723")
        slist.Add("480324060847")





        For Each s In slist
            VERAG_PROG_ALLGEMEIN.cTherefore.getFileFromFolderCat("D:\Andreas\Dokumente\KUNDEN\Schletter\2024\", s, "", "Import ab Jänner 2024", "Import ab Jänner 2024")
        Next


    End Sub
    Private Sub GVMSUKIMportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GVMSUKIMportToolStripMenuItem.Click
        Process.Start("https://www.tax.service.gov.uk/goods-movement-system/dashboard")
    End Sub

    Private Sub TicketIBFInlandBorderFacilitiesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TicketIBFInlandBorderFacilitiesToolStripMenuItem.Click
        Process.Start("https://attend-an-inland-border-facility.hmrc.gov.uk/login")
    End Sub

    Private Sub TicketIBFBeschreibungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TicketIBFBeschreibungToolStripMenuItem.Click
        Process.Start("https://inlandborderfacilities.uk")
    End Sub

    Private Sub IBFStatusToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IBFStatusToolStripMenuItem.Click
        Process.Start("https://inland-border-facility-site-availability.hmrc.gov.uk/dashboard")
    End Sub

    Private Sub FREnveloppeSmartBorderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FREnveloppeSmartBorderToolStripMenuItem.Click
        Process.Start("https://www.douane.gouv.fr/enveloppe/en/enveloppe/creer")
    End Sub

    Private Sub EORIUKGeneriertenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EORIUKGeneriertenToolStripMenuItem.Click
        Process.Start("https://www.gov.uk/eori")
    End Sub

    Private Sub KAPKentAccessPermitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KAPKentAccessPermitToolStripMenuItem.Click
        Process.Start("https://www.gov.uk/check-hgv-border")
    End Sub

    Private Sub ATFormularZa282ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATFormularZa282ToolStripMenuItem.Click
        Process.Start("https://formulare.bmf.gv.at/service/formulare/inter-Zoll/pdfs/9999/Za278.pdf")
    End Sub

    Private Sub ATInfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATInfoToolStripMenuItem.Click
        Process.Start("https://service.bmf.gv.at/service/anwend/formulare/show_mast.asp?s=Za278")
    End Sub

    Private Sub DEFormular0442ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DEFormular0442ToolStripMenuItem.Click
        Process.Start("https://www.formulare-bfinv.de/ffw/form/display.do?%24context=F11B5CC0E2F9CCCDE3E5")
    End Sub

    Private Sub DEInfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DEInfoToolStripMenuItem.Click
        Process.Start("https://www.zoll.de/DE/Fachthemen/Warenursprung-Praeferenzen/Praeferenzen/Praeferenznachweise/Ausfertigung-nicht-foermlicher-Praeferenznachweise/Registrierter-Ausfuehrer/Allgemeines-REX/allgemeines-rex_node.html")
    End Sub

    Private Sub ToolStripMenuItem16_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem16.Click
        Process.Start("https://formulare.bmf.gv.at/service/formulare/inter-Zoll/pdfs/9999/Za283.pdf?open=inline")
    End Sub

    Private Sub PBNIrelandFähreToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PBNIrelandFähreToolStripMenuItem.Click
        Process.Start("https://www.ros.ie/customs-roro-control-web/ros/pbn/create")
    End Sub

    Private Sub ATGesamtsicherheitVeragAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATVeragAGToolStripMenuItem.Click, DEVeragGmbHToolStripMenuItem.Click, ATImexCSToolStripMenuItem.Click, ATVeragCSToolStripMenuItem.Click, ATUnispedGmbHToolStripMenuItem.Click, DEAmbarToolStripMenuItem.Click, ATAtillaToolStripMenuItem.Click

        Dim frm As New frmGesamtsicherheitenMenuNEU()
        Select Case sender.name
            Case "ATVeragAGToolStripMenuItem" : frm.Standort = "VERAG AG"
            Case "DEVeragGmbHToolStripMenuItem" : frm.Standort = "Verag GmbH"
            Case "ATImexCSToolStripMenuItem" : frm.Standort = "IMEX"
            Case "ATVeragCSToolStripMenuItem" : frm.Standort = "Verag CS"
            Case "ATUnispedGmbHToolStripMenuItem" : frm.Standort = "Unisped GmbH"
            Case "DEAmbarToolStripMenuItem" : frm.Standort = "AMBAR GmbH"
            Case "ATAtillaToolStripMenuItem" : frm.Standort = "Atilla GmbH"
        End Select

        frm.Show()

    End Sub



    Private Sub gridAviso_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles gridAviso.CellPainting
        If e.RowIndex <> -1 AndAlso gridAviso.Columns(e.ColumnIndex).Name = "Status" Then
            If gridAviso.Rows(e.RowIndex).Cells("Transportmittelart").Value = "SPRINTER" Then
                If (e.PaintParts And DataGridViewPaintParts.Background) <> DataGridViewPaintParts.None Then
                    e.Graphics.DrawImage(My.Resources.sprinter_white, e.CellBounds)
                    'e.CellStyle.BackColor = Color.White
                End If


                If Not e.Handled Then
                    e.Handled = True
                    e.PaintContent(e.CellBounds)
                End If
            End If
        End If

    End Sub

    Private Sub VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem.Click
        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "VerfahrenshandbuchVERAGGmbHZollWO")
        DS.OPEN_SINGLE()

    End Sub

    Private Sub ChecklisteWOVERAGGmbHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ChecklisteWOCHECKLISTEZEallgemein.Click
        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "ChecklisteWOCHECKLISTEZEallgemein")
        DS.OPEN_SINGLE()
    End Sub

    Private Sub WOCECKLISTEZEWDHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WOCECKLISTEZEWDHToolStripMenuItem.Click
        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "WOCECKLISTEZEWDH")
        DS.OPEN_SINGLE()
    End Sub

    Private Sub WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem.Click
        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "WOCECKLISTEAbgangVerwahrungsortZV")
        DS.OPEN_SINGLE()
    End Sub



    Private Sub cntxtAtilla_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles cntxtAtilla.Opening
        ToolStripMenuItem17.Visible = (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX")
    End Sub

    Private Sub GVMSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GVMSToolStripMenuItem.Click
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
            Dim f As New frmGVMS
            f.Show()
        Else
            MsgBox("Noch nicht verfügbar")
        End If
    End Sub

    Private Sub ZEVerfahrensanleitungGestellungSumAToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZEVerfahrensanleitungGestellungSumAToolStripMenuItem.Click
        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "ZE_Verfahrensanleitung")
        DS.OPEN_SINGLE()
    End Sub

    Private Sub ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZEVerfahrensanleitungGestellungSumAFremdpersonalToolStripMenuItem.Click
        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "ZE_Verfahrensanleitung_Fremdpersonal")
        DS.OPEN_SINGLE()
    End Sub

    Private Sub WOCHECKLISTEZVAllgemeinToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WOCHECKLISTEZVAllgemeinToolStripMenuItem.Click
        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "ZV_Checkliste")
        DS.OPEN_SINGLE()
    End Sub

    Private Sub ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ZEVerfahrensanleitungGestellungSumAToolStripMenuItem1.Click
        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "ZV_Verfahrensanleitung")
        DS.OPEN_SINGLE()
    End Sub

    Private Sub AlleStatusMailsSchickenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlleStatusMailsSchickenToolStripMenuItem.Click
        Dim dt = VERAGSQL.loadDgvBySql("SELECT  [AvisoID]  FROM [AVISO].[dbo].[Aviso] where datum >= '05.03.2022'
                        and Firma IN ('VERAG','IMEX') and (SELECT COUNT(*) FROM Vermerke where  Vermerke.AvisoID=aviso.AvisoID and Hinweis_Vermerk LIKE 'Status E-Mail gesendet an:%') =0   and status NOT IN (1,2)", "AVISO")

        For Each r In dt.Rows
            'MsgBox("SO: " & (r("AvisoID")))
            Dim AVISO = AvisoDAL.LesenAviso(r("AvisoID"), "")
            AvisoStatusFunctions.SendStatusEmail(AVISO)
        Next
    End Sub

    Private Sub InfoTextÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InfoTextÄndernToolStripMenuItem.Click
        frmEintragTV.ShowDialog(Me)
    End Sub


    Private Sub txtBestimmungszollstelle_VALUE_CHANGED() Handles txtBestimmungszollstelle.VALUE_CHANGED
        If Grid_aktiv Then
            Aviso_anzeigen("")
        End If
    End Sub

    Private Sub AllgemeinToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AllgemeinToolStripMenuItem.Click
        Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/ausfuhrkontrolle_node.html")
    End Sub

    Private Sub AllgemeineEinführungExportkontrolleToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AllgemeineEinführungExportkontrolleToolStripMenuItem.Click
        Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/Allgemeine_Einfuehrung/allgemeine_einfuehrung_node.html")
    End Sub

    Private Sub BrexitToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles BrexitToolStripMenuItem1.Click
        Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/Brexit/brexit_node.html")
    End Sub

    Private Sub EmbargosLänderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EmbargosLänderToolStripMenuItem.Click
        Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/Embargos/embargos_node.html")
    End Sub

    Private Sub GüterlisteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GüterlisteToolStripMenuItem.Click
        Process.Start("https://www.bafa.de/DE/Aussenwirtschaft/Ausfuhrkontrolle/Gueterlisten/gueterlisten_node.html")
    End Sub

    Private Sub RoutenverwaltungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RoutenverwaltungToolStripMenuItem.Click
        gridAviso.ClearSelection()
        gridMyAviso.ClearSelection()
        VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 1
        Dim f As New frmNCTSRouten()
        f.ShowDialog(Me)
    End Sub

    Private Sub DTBToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DTBToolStripMenuItem.Click
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STANDORT_WECHSELN", "AVISO") Then
            VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = sender.text
            VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung = sender.text 'Nochmal, sonst wird es durch MA geändert 
            showMeNew()
        Else
            MsgBox("Keine Berechtigung!")
        End If
    End Sub

    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles btnColor.Click
        ctxtFarben.Show(Cursor.Position)

    End Sub

    Private Sub ToolStripMenuItem19_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem19.Click
        btnColor.BackColor = Color.Red
        meineAviso_anzeigen()
    End Sub

    Private Sub ToolStripMenuItem20_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem20.Click
        btnColor.BackColor = Color.Orange
        meineAviso_anzeigen()
    End Sub

    Private Sub ToolStripMenuItem21_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem21.Click
        btnColor.BackColor = Color.Yellow
        meineAviso_anzeigen()
    End Sub


    Private Sub ALLEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ALLEToolStripMenuItem.Click
        btnColor.BackColor = Color.White
        meineAviso_anzeigen()
    End Sub

    Private Sub StandarddruckerWechselnToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StandarddruckerWechselnToolStripMenuItem.Click
        Dim f As New frmWechselStandarddrucker()
        f.ShowDialog(Me)
    End Sub

    Private Sub EssensbestellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EssensbestellungenToolStripMenuItem.Click
        Dim f As New SDL.frmEssensbestellungen()
        f.ShowDialog(Me)
    End Sub

    Private Sub AdministrationEssensbestellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AdministrationEssensbestellungenToolStripMenuItem.Click
        Dim f As New SDL.frmEssensbestellungenAdministration()
        f.ShowDialog(Me)
    End Sub

    Private Sub WarenorteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WarenorteToolStripMenuItem.Click
        Dim writepermissions As Boolean
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORTE", "AVISO") Then writepermissions = True

        Dim f As New frmWarenorte(writepermissions)
        f.ShowDialog(Me)
    End Sub

    Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles btnMitarbeiterKonto.Click
        Me.Cursor = Cursors.WaitCursor
        Dim f As New VERAG_PROG_ALLGEMEIN.frmMitarbeitersuche(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
        f.Show()
        Me.Cursor = Cursors.Default
    End Sub



    Private Sub CarnetTIRToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CarnetTIRToolStripMenuItem.Click
        Me.Cursor = Cursors.WaitCursor
        Dim eh As New SDL.frmTIR
        eh.Show()
        Me.Cursor = Cursors.Default
    End Sub

    Private Sub CarnetTIRALTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CarnetTIRALTToolStripMenuItem.Click
        Me.Cursor = Cursors.WaitCursor
        Dim eh As New SDL.frmTIR_alt
        eh.Show()
        Me.Cursor = Cursors.Default
    End Sub

    Private Sub DatevBuchungsexportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EMAILToolStripMenuItem.Click, FTPToolStripMenuItem.Click

        Try

            Dim Pathlist As New List(Of String)

            Select Case sender.name
                Case "EMAILToolStripMenuItem"

                    If VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, False, True, True,, Pathlist, False) Then
                        MsgBox("Buchungen wurden erfolgreich exportiert!")
                    Else
                        MsgBox("Es wurden keine Buchungen exportiert!")
                        Exit Sub
                    End If

                    Dim outl As New Outlook.Application
                    Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
                    Mail = outl.CreateItem(0)

                    Mail.To = "T.Wesolowski@hkt-tax.de"
                    Mail.CC = "C.Tuendermann@hkt-tax.de;D.Horneber@hkt-tax.de;IO@ambarlog.de"

                    Dim TextHTML = ""
                    TextHTML &= "Sehr geehrte Damen und Herren, <br> im Anhang befinden sich die Exportdaten für die Buchhaltung!"
                    TextHTML &= "<br>"
                    TextHTML &= "<br>"
                    TextHTML &= "Mit freundlichen Grüßen<br>"
                    TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
                    TextHTML &= "<br>"
                    TextHTML &= cFakturierung.getSignature("DE", 24, True, True)

                    Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>"

                    Mail.Subject = "DATEV-Buchungsdaten AMBAR " & Now.Date.ToShortDateString

                    For Each path In Pathlist
                        Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
                    Next

                    Mail.Display()

                Case "FTPToolStripMenuItem"

                    If VERAG_PROG_ALLGEMEIN.cDatev_Interface.genDatensatzCSV_ALL(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, False, True, True,, Pathlist, False, "ftp") Then
                        MsgBox("Buchungen wurden erfolgreich exportiert!")
                    Else
                        MsgBox("Es wurden keine Buchungen exportiert!")
                        Exit Sub
                    End If

            End Select

        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try

    End Sub

    Private Sub APIToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles APIToolStripMenuItem.Click
        Dim f As New frmNorsware()
        f.ShowDialog(Me)
    End Sub

    Private Sub FenstergrößeVariabelToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FenstergrößeVariabelToolStripMenuItem.Click
        If Me.FormBorderStyle = FormBorderStyle.None Then
            Me.FormBorderStyle = FormBorderStyle.Sizable
            Panel4.Visible = False
        Else
            Me.FormBorderStyle = FormBorderStyle.None
            Panel4.Visible = True
        End If

    End Sub

    Private Sub btnZertifikate_Click(sender As Object, e As EventArgs) Handles btnZertifikate.Click
        Process.Start("https://verag.ag/de/about-us")
    End Sub

    Private Sub ToolStripMenuItem3_Click_1(sender As Object, e As EventArgs) Handles toolOriginalATR.Click
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ORIGINAL_ATR", "AVISO") Then
            Dim f As New frmOriginalArchiv_ATR
            f.Show()
        End If

    End Sub

    Private Sub VERAGWIKIToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERAGWIKIToolStripMenuItem.Click
        Process.Start("https://wiki.verag.ag/")
    End Sub

    Private Sub AnhangsartenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnhangsartenToolStripMenuItem.Click
        Dim f = New frmAvisoAnhangsarten("tblAvisoAnhangsArten", "AVISO")
        f.Show()
    End Sub

    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork

    End Sub

    Private Sub MailvorlagenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MailvorlagenToolStripMenuItem.Click
        Dim f As New SDL.frmdynMailvorlagen(VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MAILVORLAGEN_ALLE", "SDL"))
        f.ShowDialog(Me)
    End Sub

    Private Sub FIBUSachkontenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FIBUSachkontenToolStripMenuItem.Click
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Leistungen_FIBU", "SDL") Then
            Dim f As New SDL.frmLeistundenFIBUKonten(VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Leistungen_FIBU", "SDL"))
            f.ShowDialog(Me)
        End If
    End Sub

    Private Sub SpireLizenzPrüfenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpireLizenzPrüfenToolStripMenuItem.Click

        If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz")


        Dim pdf As New Spire.Pdf.PdfDocument()
        Dim pdfNew As New Spire.Pdf.PdfDocument()
        pdf.PageSettings.Size = Spire.Pdf.PdfPageSize.A4
        pdf.AppendPage()
        pdf.SaveToFile("test.pdf")
        pdfNew = New Spire.Pdf.PdfDocument("test.pdf")

        If pdfNew.Pages.Count = 0 Then
            MsgBox("FEhler beim erstellen der PDF-Datei")
            Exit Sub

        End If

        Dim finder As PdfTextFinder = New PdfTextFinder(pdfNew.Pages(0))

        If finder.Find("Evaluation Warning").Count > 0 Then
            MsgBox("PDF License wurde nicht geladen!")
            Process.Start("test.pdf")
        Else
            MsgBox("PDF License wurde erfolgreich geladen!")
            Process.Start("test.pdf")
        End If

    End Sub

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click


        ' VERAG_PROG_ALLGEMEIN.cProgramFunctions.SendMessageToAviso("OpenAvisoSnd_1445868")

        'VERAG_PROG_ALLGEMEIN.DHF_ArtikelBeispiel.Beispiel_TestSave()


        Exit Sub
        saveLukowaPDFsFromTherefore()


        Exit Sub
        VERAG_PROG_ALLGEMEIN.cBZST_UID_REST.CheckVat("DE", "147838463", "", "") 'geht ned - zugang

        Exit Sub



        saveLukowaPDFsFromTherefore()


        Exit Sub

        MsgBox(VERAG_PROG_ALLGEMEIN.cOpenAI.askAI_TruckPlate("AW: Kennzeichen: CB4178EB | Grenze SUB DE007701 Suben | Absender CEMOBSAN;TEKIRDAG | Gewicht: 7.200,0"))
        MsgBox(VERAG_PROG_ALLGEMEIN.cOpenAI.askAI_TruckPlate("*00*Fwd: Abgabenbescheid 5003/25001269 T31M492"))
        MsgBox(VERAG_PROG_ALLGEMEIN.cOpenAI.askAI_TruckPlate("AW: Warenbeschreibung in T1-Dokumenten - 5003/25000389"))
        MsgBox(VERAG_PROG_ALLGEMEIN.cOpenAI.askAI_TruckPlate("Kennzeichen: 06CLS811 | Grenze WAI DE008904 Waidhaus | Absender VAMET | Gewicht: 1.689,0"))
        MsgBox(VERAG_PROG_ALLGEMEIN.cOpenAI.askAI_TruckPlate("*00*RE: 16 ALF 807 AVIS/ GERMANY"))


        Exit Sub



        Dim resp = ""
        cHMRC.checkEORI_UK("GB078068385000", resp)
        MsgBox(resp)

        'resp = ""
        'cHMRC.checkVAT_UK("389356931", resp)
        'MsgBox(resp)
        'VERAG_PROG_ALLGEMEIN.cOpenAI.doFirstAI()
        'saveLukowaPDFsFromTherefore()
        ' MsgBox(VERAG_PROG_ALLGEMEIN.cATEZ_Tariff.GetTariffInfo_SingleOrEmpty("6207220000"))

        '
        'Dim resp = GetDataFromSharePoint("https://dpdhl.sharepoint.com/sites/FRTTR-Verag", "TruckList", "al@verag.ag", "Muellerskuh1!")
        'MsgBox(resp)
        'saveLukowaPDFsFromTherefore()
    End Sub



    Public Function GetDataFromSharePoint(siteUrl As String, listName As String, username As String, password As String) As String
        '' SharePoint-URL und Liste konfigurieren
        'Dim requestUrl As String = siteUrl & "/_api/web/lists/getbytitle('" & listName & "')/items"

        '' Authentifizierung: Benutzername und Passwort als Basis64
        'Dim credentials As String = Convert.ToBase64String(Encoding.ASCII.GetBytes(username & ":" & password))

        '' HTTP-Anfrage vorbereiten
        'Dim request As HttpWebRequest = CType(WebRequest.Create(requestUrl), HttpWebRequest)
        'request.Method = "GET"
        'request.Accept = "application/json;odata=verbose"
        'request.Headers("Authorization") = "Basic " & credentials

        'Try
        '    ' Antwort von SharePoint erhalten
        '    Using response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
        '        Using reader As New StreamReader(response.GetResponseStream())
        '            Dim jsonResponse As String = reader.ReadToEnd()
        '            Return jsonResponse
        '        End Using
        '    End Using
        'Catch ex As WebException
        '    ' Fehlerbehandlung
        '    Return "Fehler: " & ex.Message
        'End Try
        ' 1. Zugriffstoken abrufen


        '-------------------------------------



        '    Dim authority As String = $"https://login.microsoftonline.com/{tenantId}"
        '    Dim scopes As String() = {"https://graph.microsoft.com/.default"}

        '    ' Authentifizierung mit dem vertraulichen Client
        '    Dim app As IConfidentialClientApplication = ConfidentialClientApplicationBuilder.Create(clientId).
        '                                                WithClientSecret(clientSecret).
        '                                                WithAuthority(New Uri(authority)).
        '                                                Build()

        '    ' Token abrufen
        '    Dim authResult = Await app.AcquireTokenForClient(scopes).ExecuteAsync()

        '' 2. Zugriff auf SharePoint
        'Dim requestUrl As String = $"{siteUrl}/_api/web/lists/getbytitle('{listName}')/items"
        '    Using client As New HttpClient()
        '        client.DefaultRequestHeaders.Authorization = New AuthenticationHeaderValue("Bearer", authResult.AccessToken)
        '        client.DefaultRequestHeaders.Accept.Add(New MediaTypeWithQualityHeaderValue("application/json"))

        '        ' GET-Anfrage an SharePoint senden
        '        Dim response As HttpResponseMessage = Await client.GetAsync(requestUrl)

        '    ' Antwort prüfen und zurückgeben
        '    If response.IsSuccessStatusCode Then
        '            Dim jsonResponse As String = Await response.Content.ReadAsStringAsync()
        '        Return jsonResponse
        '        Else
        '            Return $"Fehler: {response.StatusCode} - {response.ReasonPhrase}"
        '        End If
        '    End Using
    End Function

    Private Sub Button7_Click_1(sender As Object, e As EventArgs) Handles Button7.Click


        Dim f As New frmSendungsdetailsNEU

        Dim NEW_SND As New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, f.SENDUNG_LIST.Count + 1, filiale_tmp, Nothing, 0, 0) 'Neue Sendung erstellen
        NEW_SND.SAVE(False) 'Insert neue Sendung
        f.SENDUNG_LIST.Add(NEW_SND)

        f.UNBOUND = True
        f.Show()
    End Sub

    Private Sub TVEditorNewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TVEditorNewToolStripMenuItem.Click
        frmEintragTvNew.ShowDialog(Me)
    End Sub


    Private Sub ATILLASENDUNGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATILLASENDUNGToolStripMenuItem.Click
        'VERAG_PROG_ALLGEMEIN.cAllgemein.ATILLA_SND = True
        Dim f As New frmHauptfensterNew
        f.Show(Me.Owner)
    End Sub

    Private Sub OnSendungsdetailsRequested(ByVal AvisoId As Integer, ByVal SendungId As Integer)
        Dim detailForm As New frmSendungsdetailsNEU(AvisoId, SendungId)
        detailForm.Show()
    End Sub


End Class