Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO

Imports System.IO
'Imports Gemeinsames.cDatenbank
Imports System.Drawing
Imports Microsoft.Office.Interop

Public Class usrcntlAktDetails

    Dim VermerkeDAL As New cVermerkeDAL
    Public aktiv As DateTime = Now
    Dim sendAktiv = True
    Private AvisoDAL As New cAvisoDAL
    Private Standorte As New cStandorteDAL
    Private locZeilen As Integer = -1
    Private Anzahl As Integer
    Private Grid_aktiv As Boolean = False
    'Private Details_aktiv As Boolean = False
    Private Zähler As Long = 0
    Private hMerkZeit As Date
    Private hMerkZeit_MeineAviso As Date
    Dim FUNC As New AvisoStatusFunctions
    Private Paketdienste_EXE As String
    Private hAdresse As String
    Private hCC 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 VermerkeAktuelleAvisoId As Integer = -1
    Private infotxt As String = ""
    Public opensendungsDetails As Boolean = False
    Public AvisoID As Integer = -1
    Dim loaded As Boolean = False
    Dim FraechterKdNr = -1
    Dim AvisiererKdNr = -1
    Dim WithEvents timer As New Timer
    Dim WithEvents timerAktUebernommen As New Timer
    ' Dim WithEvents reloadTimer As New Timer
    '  Dim WithEvents timerDetails As New Timer
    Dim AVISO As cAviso = Nothing
    Dim WithEvents timerSendRows As New Timer


    Public Sub New()
        InitializeComponent()
    End Sub

    Public Event Shown As EventHandler
    Private wasShown As Boolean = False

    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        MyBase.OnPaint(e)

        If Not wasShown Then
            wasShown = True
            RaiseEvent Shown(Me, EventArgs.Empty)
        End If
    End Sub


    Dim ADMIN As New cADMIN
    Sub New(AvisoID)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.AvisoID = AvisoID
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub
    Public Sub reload(id)

        loaded = False
        pnlOptionen.Visible = False
        pnlDetailsRechts.Enabled = False
        Panel4.Visible = False
        pnlDetailsRechts.Cursor = Cursors.WaitCursor
        AvisoID = id
        Details_anzeigen()


        pnlDetailsRechts.Enabled = True
        pnlDetailsRechts.Cursor = Cursors.Default

        loaded = True
        Vermerke_anzeigen()

        '___________
        If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG <> "QS" Then
            If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then
                cboGrenzstelle.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
            End If
        End If

        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
            Case "IMEX" : btnLkwBeleg.Visible = False
        End Select

        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
            Case "WAI"
                lblFiskAT.Visible = False
                txtSndFiskalAT.Visible = False
            Case "NKD"
                lblFiskde.Visible = False
                txtSndFiskalDE.Visible = False
            Case "SUB", "NEU"
                txtSndFremd.Visible = True
                lblSndFremd.Visible = True
        End Select
        txtSendungen.Text = "1"
        txtSndFiskalAT.Text = "0"
        txtSndFiskalDE.Text = "0"
        lblSendungsanzahl.Visible = False
        '___________

        If dgvSendungen.RowCount = 0 Then
            pnlAlt.Visible = True
        Else
            pnlAlt.Visible = False
            'timer.Enabled = True
            ' initDGVSendungenRows()
        End If
    End Sub



    'Private Sub Me_shown(sender As Object, e As EventArgs) Handles Me.Shown
    '     MsgBox("shown")
    '  End Sub
    Private Sub usrcntlAktDetails_Load(sender As Object, e As EventArgs) Handles Me.Load
        timerAktUebernommen.Interval = 1500
        timer.Interval = 100
        reload(AvisoID)
        pnl.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
        txtLKW_Nr.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
        txtLKW_Nr.ForeColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor

        cboFormulareRgAn.Items.Clear()
        cboFormulareRgAn.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Avisierer", "AVISIERER"))
        cboFormulareRgAn.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Frächter", "FRACHTF"))
        cboFormulareRgAn.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftraggeber", "AUFTR"))
        cboFormulareRgAn.changeItem("AVISIERER")


        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
            Case "UNISPED" : btnSendungslisteUNISPED.Visible = True
        End Select

        If My.Computer.Screen.WorkingArea.Width < 1300 Or VERAG_PROG_ALLGEMEIN.cAllgemein.dpi > 96 Then

            ''     btnAnkunft.AutoSize = False
            '  btnErfasst.AutoSize = False
            '   btnVorbereitet.AutoSize = False
            '  btnVorgeschrieben.AutoSize = False
            '  btnFreigabe.AutoSize = False

            btnAnkunft.Text = "ANKUNFT"
            btnErfasst.Text = "ERFASST"
            btnVorbereitet.Text = "VORB.QS"
            btnVorgeschrieben.Text = "VORGESCHR."
            btnFreigabe.Text = "FREIGABE"

            btnAnkunft.Height = 29
            btnErfasst.Height = 29
            btnVorbereitet.Height = 29
            btnVorgeschrieben.Height = 29
            btnFreigabe.Height = 29

            btnAnkunft.Width = 100
            btnErfasst.Width = 100
            btnVorbereitet.Width = 100
            btnVorgeschrieben.Width = 100
            btnFreigabe.Width = 100
            'btnVorgeschrieben.Text = "VORGESCHR."
            'btnVorgeschrieben.Text = "VORGESCHR."
        End If
        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STATUS_Vorgeschrieben", Me.FindForm) Then
            lblTimeVorgeschreiben.Visible = False
            btnVorgeschrieben.Visible = False
        Else
            lblTimeVorgeschreiben.Visible = True
            btnVorgeschrieben.Visible = True
        End If
        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STATUS_VorbQS", Me.FindForm) Then
            lblTimeVorbereitet.Visible = False
            btnVorbereitet.Visible = False
        Else
            lblTimeVorbereitet.Visible = True
            btnVorbereitet.Visible = True
        End If

        'If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME <> "ADMIN" Then
        '    tbcntlVermerke.TabPages.Remove(tbAnhang)
        'End If

        If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then
            Button8.Text = "Gest.Liste"
        End If
    End Sub

    Sub setVisible(b As Control, v As Boolean) ' damit die Anzeige nicht flackert
        If Not b.Visible = v Then
            b.Visible = v
            'b.Enabled = v
        End If
    End Sub


    Private Sub Details_anzeigen()
        aktiv = Now 'Damit nicht neu geladedt wird (frmHauptfenster -> timer.tick)

        If AvisoID <= 0 Then Exit Sub
        'Dim Aviso As New cAviso
        AVISO = AvisoDAL.LesenAviso(AvisoID, "")
        If AVISO Is Nothing Then Exit Sub

        lblIMEX.Text = AVISO.ImEx
        lblIMEX.Visible = (AVISO.ImEx <> "")

        FraechterKdNr = IIf(IsNumeric(AVISO.Frächter_KdNr), AVISO.Frächter_KdNr, -1)
        AvisiererKdNr = IIf(IsNumeric(AVISO.Auftraggeber_KdNr), AVISO.Auftraggeber_KdNr, -1)

        txtFrächter.Cursor = IIf(FraechterKdNr > 0, Cursors.Hand, Cursors.Default)
        txtAuftraggeber.Cursor = IIf(AvisiererKdNr > 0, Cursors.Hand, Cursors.Default)




        txtFrächter.Text = AVISO.Frächter
        txtAuftraggeber.Text = AVISO.Auftraggeber
        txtAktMA.Text = AVISO.letzterMitarbeiter
        txtLKWID.Text = AVISO.AvisoID
        '    cbxHandling.Checked = Aviso.Handling
        cbxHandling.Visible = AVISO.Handling
        ' cbxSammelakt.Checked = Aviso.Sammelakt
        '  lblHinweis.Visible = (Aviso.AvisoTVHinweis <> "")
        txtLKW_Nr.Text = AVISO.LKW_Nr
        lblTimeErfasst.Text = formatdate(AVISO.Datum)
        lblTimeAnkunft.Text = formatdate(AVISO.Ankunft)
        lblTimeFreigabe.Text = formatdate(AVISO.Freigabe)
        lblTimeVorbereitet.Text = formatdate(AVISO.Vorbereitet)
        lblTimeVorgeschreiben.Text = formatdate(AVISO.Vorgeschrieben)

        Vermerke_anzeigen()
        initDgvSendungen()
        If VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID <= 0 Then dgvSendungen.ClearSelection()
        'Button6.Focus()
        '  pnlDetailsRechts.Visible = True
        ' pnlDetailsRechts.Cursor = Cursors.Default

        '  pnlDetailsRechts.PerformLayout()
        'pnlDetailsRechts.la
        ' pnlDetailsRechts.Width = SplitContainer1.Width
        '  pnlDetailsRechts.Height = SplitContainer1.Height

        '  btnLkwBeleg.Visible = False
        btnAktAbschliessen.Visible = False
        btnAktAbschliessen.BackColor = Color.DarkGreen

        lblBarZuKassierenSumme.Visible = False

        Select Case AVISO.Status
            Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft
                lblStatus.Text = "ANKUNFT" : pnlStatus.BackColor = btnAnkunft.BackColor
                btnAktAbschliessen.Visible = False
                lblBarZuKassierenSumme.Visible = True
            Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst
                lblStatus.Text = "ERFASST" : pnlStatus.BackColor = btnErfasst.BackColor
                btnAktAbschliessen.Visible = True
                btnAktAbschliessen.BackColor = Color.Gray
            Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet
                lblStatus.Text = "VORBEREITET - QS" : pnlStatus.BackColor = btnVorbereitet.BackColor
                btnAktAbschliessen.Visible = True
                btnAktAbschliessen.BackColor = Color.Gray
            Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben
                lblStatus.Text = "VORGESCHRIEBEN" : pnlStatus.BackColor = btnVorgeschrieben.BackColor
                btnAktAbschliessen.Visible = True
                btnAktAbschliessen.BackColor = Color.Gray
            Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
                lblStatus.Text = "FREIGABE" : pnlStatus.BackColor = btnFreigabe.BackColor
                btnAktAbschliessen.Visible = True
                ' If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUTONACHERFASSUNG", Me.FindForm) Then
                'btnLkwBeleg.Visible = True
                ' End If
                'For Each s In sendun
                'If alle spedbuchOK
                'visible
            Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen
                lblStatus.Text = "NICHT EINGETR." : pnlStatus.BackColor = Color.Gray 'btnNichtEingetroffen.BackColor

        End Select
        'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
        '    Dim path = SDL.FormularManagerNEU.DispSendungslisteoListe(AvisoID, False)
        '    If path <> "" Then Process.Start(path)
        'End If


        If AVISO.Abgeschlossen Then
            pnlAbgeschlossen.Visible = True
            btnAktAbschliessen.Visible = False
            '  btnLkwBeleg.Visible = False
        Else
            pnlAbgeschlossen.Visible = False
            '   btnAktAbschliessen.Visible = True
        End If

        intiAktUebernehmenBtn()

        'Kann nur bei Freigabe angezeigt werden
        'If AVISO.Status <> VERAG_PROG_ALLGEMEIN.cglobal.Status_Freigegeben Then
        ' btnAktAbschliessen.Visible = False
        'End If
    End Sub
    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 gridVermerke_SpaltenFestlegen()
        If gridVermerke.RowCount = 0 Then gridVermerke.Columns.Clear() : Exit Sub

        With gridVermerke


            ' " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr," &
            '                    " isnull(VermerkeCodes.Bezeichnung,[Hinweis_Vermerk])as [Hinweis_Vermerk],  tblSendungen.tblSnd_Auftraggeber ,[Mitarbeiter]" &



            .RowTemplate.MinimumHeight = 20
            .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
            .Columns("VermerkID").Visible = False     'VermerkID nicht anzeigen
            .Columns("AvisoID").Visible = False     'AvisoID nicht anzeigen
            .Columns("SendungID").Visible = False     'VermerkCode nicht anzeigen
            .Columns("VermerkeCode").Visible = False     'VermerkeCode nicht anzeigen
            .Columns("MitarbeiterId").Visible = False     'MitarbeiterId nicht anzeigen
            .Columns("Hinweis_Vermerk").Visible = False     'Hinweis_Vermerk nicht anzeigen
            .Columns("tblSnd_Empfaenger").Visible = False     'tblSnd_Empfaengernicht anzeigen
            .Columns("Hervorheben").Visible = False     'tblSnd_Empfaengernicht anzeigen

            .Columns("Datum").Width = 125 '110
            .Columns("Datum").HeaderText = "Datum"
            .Columns("Datum").DefaultCellStyle.Format = "dd.MM. HH:mm (ddd)"


            .Columns("Hinweis_Vermerk_Anzeige").MinimumWidth = 150
            .Columns("Hinweis_Vermerk_Anzeige").HeaderText = "Hinweistext zu Vermerk"
            .Columns("Hinweis_Vermerk_Anzeige").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill

            .Columns("tblSnd_PosUnterNr").Width = 50
            .Columns("tblSnd_PosUnterNr").HeaderText = "Send.Nr"
            .Columns("tblSnd_PosUnterNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter

            .Columns("Mitarbeiter").MinimumWidth = 50
            .Columns("Mitarbeiter").HeaderText = "Mitarbeiter"
            .Columns("Hinweis_Vermerk_Anzeige").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill


            '  .Columns.Add(New DataGridViewButtonColumn)


            .Columns("VermerkeOptions").Width = 120
            .Columns("VermerkeOptions").HeaderText = "Optionen"
            .Columns("VermerkeOptions").ReadOnly = True

        End With

    End Sub



    Sub dgvCellToCbo2(dgv As DataGridView, columnName As String, HeaderText As String, DataPropertyName As String, sqlstr As String, Optional conn_art As String = "SDL", Optional dropdownwidth As Integer = -1, Optional simpleStyle As Boolean = False)
        Dim comboBoxColumn As New DataGridViewComboBoxColumn
        Dim SQL As New SDL.SQL
        Dim columnIndex = dgv.Columns(columnName).Index
        With comboBoxColumn
            .HeaderText = HeaderText
            .DataPropertyName = DataPropertyName
            .Name = columnName
            .DataSource = SQL.loadDgvBySql(sqlstr, conn_art)
            .ValueMember = .DataSource.Columns(0).ColumnName
            .DisplayMember = .DataSource.Columns(1).ColumnName
            .FlatStyle = FlatStyle.Flat
            If simpleStyle Then .DisplayStyle = DataGridViewComboBoxDisplayStyle.Nothing
            If dropdownwidth > 0 Then .DropDownWidth = dropdownwidth
        End With
        dgv.Columns.RemoveAt(columnIndex)
        dgv.Columns.Insert(columnIndex, comboBoxColumn)

    End Sub

    Private Sub initDgvSendungen() 'Optional keepSelrow = False)

        With dgvSendungen
            '    Dim selRow = If(.SelectedRows.Count > 0, .SelectedRows(0).Index, -1)
            .Columns.Clear()
            .DataSource = AvisoDAL.loadDataTableBySQL(" SELECT FilialenNr ,/*rank() OVER (ORDER BY tblSnd_PosUnterNr) as */ tblSnd_PosUnterNr, [tblSnd_SendungID],[tblSnd_AvisoID],[tblSnd_Abfertigungsart_ID],[tblSnd_EmpfaengerKdNr],[tblSnd_Empfaenger],isnull(cast(FilialenNr as varchar (4)),'')+'/' + isnull(cast(AbfertigungsNr as varchar (8)),'')  as AbfertigungsNr,(SELECT (CASE WHEN Count(*)>0 THEN cast(COUNT(*) as varchar(4)) ELSE '-'  END)  FROM Vermerke WHERE AvisoID=" & AvisoID & " AND SendungID=tblSnd_SendungID) as Vermerke, tblSnd_SpeditionsbuchEingetragen,tblSnd_Fremdspedition,tblSnd_FremdspeditionText,isnull(tblSnd_QS_MA,-1) as tblSnd_QS_MA,tblSnd_Vorbereitet,tblSnd_Vorgeschrieben,LetzterMitarbeiterId,tblSnd_VG_MA,LetzterMitarbeiter,tblSnd_BARzuKassieren,tblSnd_Fakturiert, AbfertigungsNr as AbfertigungsNr2 " &
                                                      " FROM tblSendungen  WHERE tblSnd_AvisoId=" & AvisoID & " ORDER BY tblSnd_PosUnterNr") 'LEFT JOIN tblQS_Abfertigungsarten ON [tblSnd_Abfertigungsart_ID]=QS_Abfertigungsart_ID

            '   If .RowCount = 0 Then .Columns.Clear() : Exit Sub
            .RowTemplate.MinimumHeight = 20
            .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
            .Columns("tblSnd_SendungID").Visible = False     'VermerkID nicht anzeigen
            .Columns("tblSnd_AvisoID").Visible = False     'AvisoID nicht anzeigen
            .Columns("tblSnd_EmpfaengerKdNr").Visible = False     'AvisoID nicht anzeigen
            .Columns("tblSnd_Abfertigungsart_ID").Visible = False
            .Columns("tblSnd_SpeditionsbuchEingetragen").Visible = False
            .Columns("tblSnd_QS_MA").Visible = False
            .Columns("tblSnd_Fremdspedition").Visible = False
            .Columns("tblSnd_FremdspeditionText").Visible = False
            .Columns("tblSnd_Vorgeschrieben").Visible = False
            .Columns("tblSnd_Vorbereitet").Visible = False
            .Columns("LetzterMitarbeiter").Visible = False
            .Columns("LetzterMitarbeiterId").Visible = False
            .Columns("tblSnd_VG_MA").Visible = False
            .Columns("tblSnd_BARzuKassieren").Visible = False
            .Columns("tblSnd_Fakturiert").Visible = False
            .Columns("AbfertigungsNr2").Visible = False

            .Columns("tblSnd_PosUnterNr").Width = 20
            .Columns("tblSnd_PosUnterNr").HeaderText = "Nr."
            .Columns("tblSnd_PosUnterNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

            '  .Columns("QS_Abfertigungsart_Bezeichnung").Width = 130
            '  .Columns("QS_Abfertigungsart_Bezeichnung").HeaderText = "Art"

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

            '    .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("Vermerke").Width = 45
            .Columns("Vermerke").HeaderText = "Verm."


            .Columns("FilialenNr").Width = 20
            .Columns("FilialenNr").HeaderText = "Firma"




            Dim c As DataGridViewImageColumn
            'tblSnd_Empfaenger()

            'c = New DataGridViewImageColumn
            'c.Name = "SendungBearbeiten"
            'c.Image = My.Resources.stift2 : c.ImageLayout = DataGridViewImageCellLayout.Zoom
            'c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
            'c.ToolTipText = "Sendungsdetails bearbeiten"
            '.Columns.Add(c)

            c = New DataGridViewImageColumn
            c.Name = "KundeAnzeigen"
            c.Image = My.Resources.personInaktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom
            c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
            c.DefaultCellStyle.Tag = "Empfänger: Kundendaten anzeigen"
            .Columns.Add(c)


            'c = New DataGridViewImageColumn
            'c.Name = "VermerkEintragen"
            'c.Image = My.Resources.vermerkBtn : c.ImageLayout = DataGridViewImageCellLayout.Zoom
            'c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
            'c.ToolTipText = "Vermerk eintragen"
            '.Columns.Add(c)

            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)

            c = New DataGridViewImageColumn
            c.Name = "SpeditionsbuchEintragen"
            c.Image = My.Resources.speditionsbuchInaktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom
            c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
            c.ToolTipText = "Speditionsbuch"
            .Columns.Add(c)

            'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then
            '    c = New DataGridViewImageColumn
            '    c.Name = "Abgeklaert"
            '    c.Image = My.Resources.abgeklaertInaktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom
            '    c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
            '    c.ToolTipText = "Durch mich abgeklärt"
            '    .Columns.Add(c)
            'End If

            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SendungsStatusFakturiert", "AVISO") Then
                c = New DataGridViewImageColumn
                c.Name = "SendungFakturiert"
                c.Image = My.Resources.fakturiertInaktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom
                c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
                c.ToolTipText = "Fakturiert"
                .Columns.Add(c)
            End If


            '    If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then
            c = New DataGridViewImageColumn
            c.Name = "SenungUebernehmen"
            c.Image = My.Resources.personCheck_gray_small : c.ImageLayout = DataGridViewImageCellLayout.Zoom
            c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
            c.ToolTipText = "Senung übernehmen"
            .Columns.Add(c)
            '  End If

            c = New DataGridViewImageColumn
            c.Name = "SenungWeiterleiten"
            c.Image = My.Resources.tranparent30Perc : c.ImageLayout = DataGridViewImageCellLayout.Zoom
            c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
            c.ToolTipText = "Senung weiterleiten"
            .Columns.Add(c)
            '  End If

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


            Try
                Dim BarZuKassierenSumme As Double = 0
                For Each r As DataGridViewRow In dgvSendungen.Rows
                    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
                        r.Cells("Abfertigungsart").Value = ADMIN.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & r.Cells("tblSnd_Abfertigungsart_ID").Value.ToString & "'", "FMZOLL")
                If r.Cells("Abfertigungsart").Value.ToString.Length > 15 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 15) & ".."
                    End If

                    r.Cells("FilialenNr").Style.ForeColor = Color.White
                    Select Case r.Cells("FilialenNr").Value
                        Case "4803", "4805", "5003", "5103", "5303", "4811"
                            r.Cells("FilialenNr").Style.BackColor = Color.FromArgb(0, 54, 128)
                            r.Cells("FilialenNr").Style.ForeColor = r.Cells("FilialenNr").Style.BackColor
                        Case "5501"
                            r.Cells("FilialenNr").Style.BackColor = Color.Yellow
                            r.Cells("FilialenNr").Style.ForeColor = r.Cells("FilialenNr").Style.BackColor
                        Case "5601"
                            r.Cells("FilialenNr").Style.BackColor = Color.Red
                            r.Cells("FilialenNr").Style.ForeColor = r.Cells("FilialenNr").Style.BackColor
                        Case Else
                            r.Cells("FilialenNr").Style.BackColor = Color.White
                    End Select
                    r.Cells("FilialenNr").Style.SelectionBackColor = r.Cells("FilialenNr").Style.BackColor
                    r.Cells("FilialenNr").Style.SelectionForeColor = r.Cells("FilialenNr").Style.ForeColor

                    If r.Cells("tblSnd_BARzuKassieren").Value IsNot DBNull.Value AndAlso IsNumeric(r.Cells("tblSnd_BARzuKassieren").Value) Then '
                        BarZuKassierenSumme += CDbl(r.Cells("tblSnd_BARzuKassieren").Value)
                    End If


                Next
                ' timerSendRows.Enabled = False
                If BarZuKassierenSumme <> 0 Then
                    lblBarZuKassierenSumme.Text = "BAR: " & BarZuKassierenSumme.ToString("C2")
                Else
                    lblBarZuKassierenSumme.Text = ""
                End If
            Catch ex As Exception
                MsgBox(ex.Message & ex.StackTrace)
            End Try

            'If keepSelrow And .Rows.Count > selRow Then
            '    .Rows(selRow).Selected = True
            'End If
            changeCurrentSndId()

            timerSendRows.Interval = 10
            timerSendRows.Enabled = True

        End With

    End Sub

    Public Sub changeCurrentSndId()
        Try
            Dim sendAktivTmp = sendAktiv
            For Each r As DataGridViewRow In dgvSendungen.Rows
                If VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID > 0 Then
                    If r.Cells("tblSnd_SendungID").Value = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID Then
                        sendAktiv = False
                        dgvSendungen.ClearSelection()
                        ' r.Cells("tblSnd_PosUnterNr").Selected = True
                        r.Selected = True
                        sendAktiv = sendAktivTmp
                        'MsgBox("sosso" & VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID)

                    End If
                End If
            Next
            ' timerSendRows.Enabled = False
        Catch ex As Exception
            MsgBox(ex.Message & ex.StackTrace)
        End Try
    End Sub

    Private Sub Vermerke_anzeigen(Optional rowindex As Integer = -1)
        If Not loaded Then Exit Sub
        aktiv = Now 'Damit nicht neu geladedt wird (frmHauptfenster -> timer.tick)
        gridVermerke.Columns.Clear()
        lblInfoAviso.Visible = False
        infotxt = ""

        ' If setAkive_AuswahlID() = -1 Then Exit Sub
        If AvisoID <= 0 Then Exit Sub

        Button18.Visible = False
        Select Case tbcntlVermerke.SelectedIndex
            Case 0, 1, 2 : Vermerke_anzeigen2(rowindex)
            Case 3
                Button18.Visible = True
                Dim hSQL As String = " SELECT [anh_id],[anh_Name],[anh_docId],[anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge] 
                                        WHERE [anh_AvisoId]='" & AvisoID & "' AND isnull(anh_SendungsId,0) <=0
                                        ORDER BY   
										  case	    
                                                when [anh_Art] = 'ATR-EUR1' then 0
                                                when [anh_Art] = 'Rechnung' then 1
                                                when [anh_Art] = 'CMR' then 2
                                                when [anh_Art] = 'Ausfuhr' then 3
                                                when [anh_Art] = 'Vorpapier' then 4
                                                when [anh_Art] = 'Packliste' then 5
                                                when [anh_Art] = 'Auftrag' then 6
                                                when [anh_Art] = 'Auftrag' then 7
                                                when [anh_Art] = 'Dispoliste' then 8
                                                when [anh_Art] = 'Vorkasse' then 9
                                                when [anh_Art] = 'Überweisungsbeleg' then 10
                                                when [anh_Art] = 'Vollmacht' then 11
                                                when [anh_Art] = 'ATB' then 12
                                                when [anh_Art] = 'ATA' then 13
                                                when [anh_Art] = 'Sonstiges' then 99
                                                when [anh_Art] ='' then 15

										END, [anh_Reihenfolge],[anh_id]"

                ' order by [anh_Reihenfolge],[anh_id]
                gridVermerke.DataSource = VermerkeDAL.Anzeigen_Vermerke(hSQL)


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

                With gridVermerke

                    .RowTemplate.MinimumHeight = 20
                    .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
                    .Columns("anh_id").Visible = False     'VermerkID nicht anzeigen
                    .Columns("anh_docId").Visible = False     'AvisoID nicht anzeigen

                    .Columns("anh_Name").MinimumWidth = 150
                    .Columns("anh_Name").HeaderText = "Name"
                    .Columns("anh_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill

                    .Columns("anh_Art").MinimumWidth = 50
                    .Columns("anh_Art").HeaderText = "Art"
                    .Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter

                    .Columns("anh_Typ").Width = 60
                    .Columns("anh_Typ").HeaderText = "Typ"
                    .Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter

                End With
        End Select

    End Sub


    Private Sub Vermerke_anzeigen2(Optional rowindex As Integer = -1)
        If Not loaded Then Exit Sub
        aktiv = Now 'Damit nicht neu geladedt wird (frmHauptfenster -> timer.tick)
        gridVermerke.Columns.Clear()
        lblInfoAviso.Visible = False
        infotxt = ""

        ' If setAkive_AuswahlID() = -1 Then Exit Sub
        If AvisoID <= 0 Then Exit Sub


        Select Case tbcntlVermerke.SelectedIndex
            Case 0, 1
            Case 2

        End Select


        'Hier werden die passenden Vermerke zum Aviso angezeigt
        Dim sendwhere = ""
        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then
            If gridVermerke.Columns("tblSnd_PosUnterNr") IsNot Nothing Then gridVermerke.Columns("tblSnd_PosUnterNr").Visible = False
            Select Case tbcntlVermerke.SelectedIndex
                Case 0
               '     dgvSendungen.ClearSelection()
                Case 1
                    ' If dgvSendungen.SelectedRows.Count > 0 Then
                    sendwhere = " AND VermerkArt='A' "
                    ' End If

                Case 2
                    If dgvSendungen.SelectedRows.Count > 0 Then
                        sendwhere = " AND VermerkArt='S'  AND SendungID=" & dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value
                    Else
                        sendwhere = " AND 1=0 " ' 1=0, damit keine Zeile angezeigt wird, wenn keine Sendung ausgewählt
                    End If
                    If gridVermerke.Columns("tblSnd_PosUnterNr") IsNot Nothing Then gridVermerke.Columns("tblSnd_PosUnterNr").Visible = True

            End Select

        End If

        ' Dim hSQL As String = "SELECT [VermerkID],[AvisoID],[Datum],[Mitarbeiter],[Hinweis_Vermerk],[VermerkeCode],[MitarbeiterId] FROM Vermerke WHERE AvisoID = " & AvisoID & " " & sendwhere & " ORDER BY Datum DESC"


        Dim hSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben," &
                                " CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (25,28,29,30,35,46,47) THEN Hinweis_Vermerk ELSE  VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk],  tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter]" &
                             " FROM [Vermerke]   LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " &
                             " LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " &
                             " WHERE AvisoID = " & AvisoID & " " & sendwhere & " " &
                             " order by /*VermerkArt ASC,tblSnd_PosUnterNr,*/Datum DESC "


        infotxt = AvisoDAL.getAvisoInfo(AvisoID)
        If infotxt <> "" Then
            lblInfoAviso.Visible = True
        End If


        gridVermerke.DataSource = VermerkeDAL.Anzeigen_Vermerke(hSQL)


        If gridVermerke.Columns("VermerkeOptions") Is Nothing Then
            Dim dgvlc As New DataGridViewLinkColumn
            dgvlc.Name = "VermerkeOptions"
            gridVermerke.Columns.Insert(gridVermerke.ColumnCount - 1, dgvlc)
        End If

        'Grid neu designen
        'GridZeichnenBilanz()
        gridVermerke_SpaltenFestlegen()

        'If tbcntlVermerke.SelectedIndex = 2 And rowindex > 0 Then
        If rowindex > 0 Then
            'dgvSendungen.ClearSelection()
            'dgvSendungen.Rows(rowindex).Selected = True
        Else
            gridVermerke.ClearSelection()
        End If
        ' timer.Enabled = True
        ' initDGVSendungenRows()
    End Sub


    Private Sub gridVermerkeMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles gridVermerke.CellContentClick
        If gridVermerke.RowCount = 0 Then Exit Sub

        If gridVermerke.Columns(e.ColumnIndex).Name = "VermerkeOptions" Then
            Dim tmpIndex = -1
            If (dgvSendungen.SelectedRows.Count > 0) Then
                tmpIndex = dgvSendungen.SelectedRows(0).Index
            End If

            Dim VermekId = gridVermerke.Rows(e.RowIndex).Cells("VermerkID").Value
            Dim VermerkeDAL As New cVermerkeDAL
            Dim myVermerk As cVermerk = VermerkeDAL.LesenVermerk(VermekId, "")
            myVermerk.VermerkID = 0
            'myVermerk.AvisoID = CInt(gridVermerke.Rows(e.RowIndex).Cells(1).Value)
            myVermerk.Datum = Now
            myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
            myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
            Dim init As Boolean = False
            Select Case CStr(gridVermerke.Rows(e.RowIndex).Cells("VermerkeCode").Value)
                Case "1"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 2
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    init = True 'Vermerke_anzeigen(e.RowIndex)
                    ' initDgvSendungen()

                Case "3"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 4
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)

                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()

                Case "5"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 6
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)

                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()

                Case "7"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 8
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()

                Case "9"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 10
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()

                Case "11"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 12
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()

                Case "13"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 14
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()

                Case "17"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
                    myVermerk.VermerkCodeId = 18
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False)
                    '  avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID)
                    'Vermerke_aktualisieren()
                    init = True '   Vermerke_anzeigen(e.RowIndex)

                Case "19"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
                    myVermerk.VermerkCodeId = 20
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()

                Case "25"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 30
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()

                Case "31"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("in Vorbereitung", "Vorbereitung abgeschl.")
                    myVermerk.VermerkCodeId = 32
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()

                Case "33"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 34
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()

                Case "36"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 37
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()

                Case "53"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 54
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()

                Case "55"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 56
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()

                Case "57"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 58
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()


            End Select
            loaded = False
            '  Dim tmpIndex = -1
            If init Then
                ' If (dgvSendungen.SelectedRows.Count > 0) Then
                '     tmpIndex = dgvSendungen.SelectedRows(0).Index
                'End If
                sendAktiv = False
                initDgvSendungen()
                sendAktiv = True
                'dgvSendungen.ClearSelection()
                'If tmpIndex > 0 And dgvSendungen.RowCount > tmpIndex Then
                '    dgvSendungen.Rows(tmpIndex).Selected = True
                'End If

            End If
            loaded = True
            Vermerke_anzeigen(tmpIndex)
        End If
    End Sub

    Private Sub gridVermerke_Paint(sender As Object, e As PaintEventArgs) Handles gridVermerke.Paint
        If dgvSendungen.RowCount = 0 Then Exit Sub
        Try
            If gridVermerke.Columns("VermerkeOptions") Is Nothing Then Exit Sub
            For Each r As DataGridViewRow In gridVermerke.Rows
                '  If r.Cells("VermerkeOptions").GetType.Name = "DataGridViewLinkCell" Then
                Dim optionCell As DataGridViewLinkCell = DirectCast(r.Cells("VermerkeOptions"), DataGridViewLinkCell)
                If CBool(r.Cells("Hervorheben").Value) Then
                    'r.DefaultCellStyle.BackColor = Color.Firebrick
                    'r.DefaultCellStyle.ForeColor = Color.White
                    r.DefaultCellStyle.BackColor = Color.Yellow
                End If
                If (r.Cells("VermerkeCode").Value) IsNot DBNull.Value Then

                        Select Case CInt(r.Cells("VermerkeCode").Value)
                            Case 1
                                If Not existCodeInGridVermerke(2, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                    optionCell.Value = "Auftrag erhalten"
                                    optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Auftrag erhalten' einzutragen."
                                End If
                            Case 3
                                If Not existCodeInGridVermerke(4, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                    optionCell.Value = "Rechnung erhalten"
                                    optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Rechnung erhalten' einzutragen."
                                End If
                            Case 5
                                If Not existCodeInGridVermerke(6, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                    optionCell.Value = "LS erhalten"
                                    optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'LS erhalten' einzutragen."
                                End If
                            Case 7
                                If Not existCodeInGridVermerke(8, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                    optionCell.Value = "ATR erhalten"
                                    optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'ATR erhalten' einzutragen."
                                End If
                            Case 9
                                If Not existCodeInGridVermerke(10, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                    optionCell.Value = "Vollmacht erhalten"
                                    optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vollmacht erhalten' einzutragen."
                                End If
                            Case 11
                                If Not existCodeInGridVermerke(12, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                    optionCell.Value = "CMR erhalten"
                                    optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'CMR erhalten' einzutragen."
                                End If
                            Case 13
                            If Not existCodeInGridVermerke(14) And Not existCodeInGridVermerke(59) Then
                                optionCell.Value = "Vorauskasse erhalten"
                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vorauskasse erhalten' einzutragen."
                            End If
                        Case 17
                                If Not existCodeInGridVermerke(18) Then
                                    optionCell.Value = "DE-ZOLL fertig"
                                    optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'DE-ZOLL fertig' einzutragen."
                                End If
                            Case 19
                                If Not existCodeInGridVermerke(20) Then
                                    optionCell.Value = "AT-ZOLL fertig"
                                    optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'AT-ZOLL fertig' einzutragen."
                                End If
                            Case 25
                                If Not existCodeInGridVermerke(30, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                    optionCell.Value = "Dokument erhalten"
                                    optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Dokument erhalten' einzutragen."
                                End If
                            Case 31
                                If Not existCodeInGridVermerke(32, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                    optionCell.Value = "Vorbereitung abgeschlossen"
                                    optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vorbereitung abgeschlossen' einzutragen."
                                End If
                            Case 33
                                If Not existCodeInGridVermerke(34, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                    optionCell.Value = "ATA-Nr. erhalten"
                                    optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'ATA-Nr. erhalten' einzutragen."
                                End If
                            Case 36
                                If Not existCodeInGridVermerke(37, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                    optionCell.Value = "Kontaktdaten erhalten"
                                    optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Kontaktdaten erhalten' einzutragen."
                                End If
                            Case 53
                                If Not existCodeInGridVermerke(54, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                    optionCell.Value = "Ü-Dok erhalten"
                                    optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Ü-Dok erhalten' einzutragen."
                                End If
                            Case 55
                                If Not existCodeInGridVermerke(56, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                    optionCell.Value = "Rg-Best. erhalten"
                                    optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Rg-Best. erhalten' einzutragen."
                                End If
                            Case 57
                                If Not existCodeInGridVermerke(58, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                    optionCell.Value = "Dispoliste erhalten"
                                    optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Dispoliste erhalten' einzutragen."
                                End If
                        End Select
                    End If
            Next

        Catch ex As Exception
            MsgBox(ex.Message & ex.StackTrace)
        End Try
    End Sub


    Function existCodeInGridVermerke(code As Integer, Optional text As String = "") As Boolean

        For Each r As DataGridViewRow In gridVermerke.Rows
            If DirectCast(r.Cells("VermerkeCode"), DataGridViewTextBoxCell).Value.ToString = CStr(code) Then
                Select Case code
                    Case 59
                        Return True
                    Case 2, 4, 6, 8, 10, 12, 14, 30, 37, 34
                        If text = "" Or DirectCast(r.Cells("Hinweis_Vermerk"), DataGridViewTextBoxCell).Value.ToString.Replace("erhalten", "angefordert") = text Then
                            Return True
                        End If
                    Case 32
                        If DirectCast(r.Cells("Hinweis_Vermerk"), DataGridViewTextBoxCell).Value.ToString.Replace("Vorbereitung abgeschlossen", "in Vorbereitung") = text Then
                            Return True
                        End If
                    Case Else
                        Return True
                End Select
            End If
        Next
        Return False
    End Function




    Private Sub conMenu_Click(sender As Object, e As System.EventArgs) Handles conVermerkLöschen.Click
        If gridVermerke.SelectedRows.Count = 0 Then Exit Sub
        If vbNo = MsgBox("Wollen Sie den ausgewählten Vermerk löschen?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle), "Vermerk löschen") Then
            Exit Sub
        End If

        If gridVermerke.SelectedRows(0).Cells("Hinweis_Vermerk").Value.ToString.EndsWith("wurde gelöscht.") Then 'Vermerk, dass Sendung gelöscht wurde.
            Exit Sub
        End If
        Dim index As Integer = -1
        If (dgvSendungen.SelectedRows.Count > 0) Then index = dgvSendungen.SelectedRows(0).Index
        VermerkeDAL.LöschenVermerk(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value))
        Vermerke_anzeigen(index)

        Exit Sub


        If sender Is conVermerkLöschen Then
            If IsNothing(gridVermerke.CurrentRow) Then Exit Sub
            ' cGlobal.Aktive_ID = CInt(gridVermerke.Rows(gridVermerke.CurrentRow.Index).Cells("VermerkID").Value)

            'If Not cGlobal.Admin Then
            '  'Status erfasst darf auch von Mitarbeiter gelöscht werden - Mail von Siener vom 13.12.2013
            '  If gridAviso.Rows(gridAviso.CurrentRow.Index).Cells("Status").Value.ToString <> "0" Then
            '    MsgBox("Ein Aviso mit diesem Status kann nur vom Administrator gelöscht werden.", vbExclamation)
            '    Exit Sub
            '  End If
            'End If

            Dim antwort As MsgBoxResult = MsgBox("Wollen Sie den ausgewählten Vermerk löschen?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
                                         "Vermerk löschen")
            If antwort = vbNo Then
                Exit Sub
            End If

            VermerkeDAL.LöschenVermerk(CInt(gridVermerke.Rows(gridVermerke.CurrentRow.Index).Cells("VermerkID").Value))

            Vermerke_anzeigen()
            initDgvSendungen()
        End If

    End Sub


    Private Sub grid_CellMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridVermerke.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?

        DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
        If e.Button = Windows.Forms.MouseButtons.Right Then
            If AVISO.Abgeschlossen Then Exit Sub

            If sender Is gridVermerke Then
                If gridVermerke.SelectedRows.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
                '  AvisoID = CInt(gridVermerke.Rows(e.RowIndex).Cells("AvisoId").Value)
                gridVermerke.CurrentCell = gridVermerke.Rows(e.RowIndex).Cells(e.ColumnIndex)
                conMenuVermerke.Show(Windows.Forms.Cursor.Position)
            End If

        End If
    End Sub
    Private Sub btnErfasst_MouseHover(sender As Object, e As EventArgs)
        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
    End Sub
    Private Sub btnErfasst_MouseLeave(sender As Object, e As EventArgs)
        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
    End Sub
    Private Sub lblInfoAviso_Click(sender As Object, e As EventArgs) Handles lblInfoAviso.Click
        showForm(infotxt, "Info")
    End Sub

    Sub showForm(t As String, Optional h As String = "")
        Dim f As New Form
        Dim p As New Panel
        Dim rtb As New RichTextBox
        f.StartPosition = FormStartPosition.CenterScreen
        f.Width = 700
        f.Height = 400
        f.Text = h
        f.Icon = My.Resources.Aviso
        rtb.Dock = DockStyle.Fill
        p.Dock = DockStyle.Fill
        f.Controls.Add(p)
        p.Controls.Add(rtb)
        rtb.Text = t
        f.ShowDialog()
    End Sub
    Private Sub SpeditionsbuchEintrag()

        If dgvSendungen.SelectedRows.Count = 0 Then Exit Sub
        Dim sndIdTmp = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value

        Dim posnr As posNr = FUNC.SpeditionsbuchEintrag(AvisoID, sndIdTmp)
        If posnr IsNot Nothing Then
            Dim sndEntry As New VERAG_PROG_ALLGEMEIN.cSendungen(sndIdTmp)
            sndEntry.FilialenNr = posnr.Filiale
            sndEntry.AbfertigungsNr = posnr.Abfertigungsnummer
            sndEntry.UnterNr = posnr.UnterNr
            'sndEntry.tblSnd_SpeditionsbuchEingetragen = (posnr.Filiale > 0 And posnr.Abfertigungsnummer > 0 And posnr.UnterNr >= 0) ' Wenn Sped Eintrag gelöscht-> - 1, dann ist der Eintrag nicht mehr vorhanden
            Dim vorhanden = ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & sndEntry.FilialenNr & "' AND AbfertigungsNr='" & sndEntry.AbfertigungsNr & "' AND UnterNr='" & sndEntry.UnterNr & "'", "FMZOLL")
            sndEntry.tblSnd_SpeditionsbuchEingetragen = (vorhanden > 0)
            sndEntry.SAVE()
            reload(AvisoID)
        End If
        'Vermerke_anzeigen()
    End Sub

    ' Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    Private Sub dgvSendungen_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSendungen.CellDoubleClick
        Dim sendId = -1
        If dgvSendungen.SelectedRows.Count > 0 Then
            sendId = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value
        End If

        'Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
        'Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId)
        'frmSendungsdetails.ShowDialog(frmGrayOut)
        'frmGrayOut.Close()

        'If Not Application.OpenForms.Item("frmSendungsdetails") Is Nothing Then
        '    Application.OpenForms.Item("frmSendungsdetails").BringToFront()
        '    MsgBox("Sendugns-Fenster bereits geöffnet!")
        '    Exit Sub
        'Else
        '    Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId)
        '    frmSendungsdetails.Show(Me)
        'End If
        openSnd(sendId)
        'Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId)
        'frmSendungsdetails.ShowDialog() 'Me)

        'initDgvSendungen()

    End Sub

    Sub openSnd(sndId)
        Dim f = FUNC.openSnd(sndId, AvisoID)
        If f IsNot Nothing Then
            AddHandler f.FormClosed, Sub()
                                         initDgvSendungen()
                                     End Sub
        End If
    End Sub

    Private Sub gridVermerke_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles gridVermerke.CellDoubleClick
        Try
            If tbcntlVermerke.SelectedTab Is tbAnhang Then
                If gridVermerke.SelectedRows.Count > 0 Then
                    Process.Start(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(gridVermerke.SelectedRows(0).Cells("anh_docId").Value))
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message & ex.StackTrace)
        End Try

    End Sub



    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles lklAuswahlAufheben.Click
        VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = -1
        dgvSendungen.ClearSelection()
        Vermerke_anzeigen()
    End Sub


    Private Sub Button8_Click(sender As Object, e As EventArgs)
        Dim frmTV As New frmTv
        frmTV.avisoID = AvisoID
        frmTV.ShowDialog()
        reload(AvisoID)
        'MsgBox("laodButton8")
    End Sub

    Private Sub dgvSendungen_SelectionChanged(sender As Object, e As EventArgs) Handles dgvSendungen.SelectionChanged
        If sendAktiv Then
            If dgvSendungen.SelectedRows.Count > 0 Then
                If tbcntlVermerke.SelectedIndex <> 2 Then tbcntlVermerke.SelectedIndex = 2
            Else
                If tbcntlVermerke.SelectedIndex <> 0 Then tbcntlVermerke.SelectedIndex = 0
            End If
            Vermerke_anzeigen()
        End If
    End Sub


    Private Sub tbcntlVermerke_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbcntlVermerke.SelectedIndexChanged
        If Not loaded Then Exit Sub
        Vermerke_anzeigen()
    End Sub

    Private Sub lklAuswahlAufheben_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklAuswahlAufheben.LinkClicked
        tbcntlVermerke.SelectedIndex = 0
    End Sub

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

        loaded = False
        '  If dgvSendungen.SelectedRows.Count <= 0 Then Exit Sub

        Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
        Dim sv As New frmAddSendungsvermerkShort(AvisoID, -1) ', dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
        sv.Location = Me.PointToClient(System.Windows.Forms.Cursor.Position)
        sv.ShowDialog(frmGrayOut)
        frmGrayOut.Close()

        initDgvSendungen() ' wg. Anzahl Vermerke
        sv.Close()

        loaded = True
        Vermerke_anzeigen()

        Exit Sub
        '   Dim p As Panel = 
        loaded = False
        '   frmHauptfenster.transparentpnl.BackColor = Color.FromArgb(0, 200, 200, 200)
        '   Panel1.BackColor = Color.FromArgb(25, Color.Red)
        'frmHauptfenster.Controls.Add(p)
        '  frmHauptfenster.transparentpnl.BackColor = Color.FromArgb(25, Color.Red)

        '  frmHauptfenster.transparentpnl.Width = frmHauptfenster.Width
        '  frmHauptfenster.transparentpnl.Height = frmHauptfenster.Height
        '  frmHauptfenster.transparentpnl.Location = New Point(0, 0)
        '  frmHauptfenster.transparentpnl.Visible = True
        If dgvSendungen.SelectedRows.Count = 0 Then Exit Sub

        '  frmGrayOut.Opacity = 0.5
        '  frmGrayOut.WindowState = FormWindowState.Maximized
        Dim tmpIndex = dgvSendungen.SelectedRows(0).Index
        Dim tmpscroll = dgvSendungen.FirstDisplayedScrollingRowIndex

        'Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
        '  Dim sv As New frmAddSendungsvermerk(AvisoID, dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
        sv.ShowDialog(frmGrayOut)
        If tbcntlVermerke.SelectedIndex <> 2 Then tbcntlVermerke.SelectedIndex = 2


        initDgvSendungen() ' wg. Anzahl Vermerke
        sv.Close()


        'If dgvSendungen.RowCount > tmpIndex Then
        '    dgvSendungen.ClearSelection()
        '    dgvSendungen.Rows(tmpIndex).Selected = True
        '    dgvSendungen.FirstDisplayedScrollingRowIndex = tmpscroll
        'End If
        loaded = True
        Vermerke_anzeigen()

    End Sub


    Private Sub btnAnkunft_Click(sender As Object, e As EventArgs) Handles btnAnkunft.Click
        If FUNC.setAnkunft(AvisoID) Then
            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
            frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
        End If
    End Sub

    Private Sub btnErfasst_Click(sender As Object, e As EventArgs) Handles btnErfasst.Click
        If FUNC.setErfasst(AvisoID) Then
            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
            frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
        End If
    End Sub

    Private Sub btnVorbereitet_Click(sender As Object, e As EventArgs) Handles btnVorbereitet.Click
        If FUNC.setVorbereitet(AvisoID) Then
            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
            frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
        End If
    End Sub

    Private Sub btnVorgeschrieben_Click(sender As Object, e As EventArgs) Handles btnVorgeschrieben.Click
        If FUNC.setVorgeschreiben(AvisoID) Then
            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
            frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
        End If
    End Sub

    Private Sub btnFreigabe_Click(sender As Object, e As EventArgs) Handles btnFreigabe.Click
        If FUNC.setFreigabe(AvisoID, Me) Then
            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
            frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
        End If
    End Sub

    Private Sub btnNichtEingetroffen_Click(sender As Object, e As EventArgs)
        If FUNC.setNichtEingeftroffen(AvisoID) Then
            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
            frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, -1)
        End If
    End Sub


    Private Sub kexdown(sender As Object, e As KeyEventArgs) Handles dgvSendungen.KeyUp
        Try
            If sender.selectedRows.count > 0 Then
                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
                    Dim SendungsId = CInt(sender.selectedRows(0).Cells("AvisoId").Value)
                    VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = SendungsId
                End If
            End If
        Catch ex As Exception
        End Try
    End Sub

    Private Sub dgvSendungen_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSendungen.CellClick 'dgvSendungen.CellContentClick
        If e.RowIndex < 0 Then Exit Sub
        Dim SendungsId = dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value
        VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = SendungsId
        Select Case dgvSendungen.Columns(e.ColumnIndex).Name
            'Case "SendungBearbeiten"
            '    sendAktiv = False
            '    Me.Cursor = Cursors.WaitCursor
            '    Dim sendId = -1
            '    If dgvSendungen.SelectedRows.Count > 0 Then
            '        sendId = dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value
            '    End If
            '    'Dim frmSendungsdetails As New frmSendungsdetails(AvisoID, sendId)
            '    'frmSendungsdetails.ShowDialog(Me)
            '    ' Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()


            '    openSnd(sendId)
            '    'Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId)
            '    'frmSendungsdetails.ShowDialog() '(frmGrayOut)



            '    'frmGrayOut.Close()
            '    initDgvSendungen()
            '    Me.Cursor = Cursors.Default
            Case "KundeAnzeigen"
                sendAktiv = False
                Me.Cursor = Cursors.WaitCursor
                If dgvSendungen.SelectedRows.Count > 0 Then
                    Dim kd = dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_EmpfaengerKdNr").Value
                    If kd IsNot DBNull.Value AndAlso IsNumeric(kd) AndAlso kd > 0 Then FUNC.showKd(kd)
                End If
                Me.Cursor = Cursors.Default
            'Case "VermerkEintragen"
            '    Me.Cursor = Cursors.WaitCursor


            '    dgvSendungen_CellMouseClick(dgvSendungen, New DataGridViewCellMouseEventArgs(0, e.RowIndex, 0, 0, New MouseEventArgs(Windows.Forms.MouseButtons.Right, 1, 0, 0, 0)))

            '    Me.Cursor = Cursors.Default
            Case "SpeditionsbuchEintragen"
                sendAktiv = False
                Me.Cursor = Cursors.WaitCursor
                If Not dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_Fremdspedition").Value Then
                    SpeditionsbuchEintrag()
                End If
                Me.Cursor = Cursors.Default

                'Case "Abgeklaert"
                '    If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then
                '        Me.Cursor = Cursors.WaitCursor
                '        '  Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value)
                '        If dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_QS_Ma").Value <= 0 Then
                '            ' SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
                '            'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
                '            ADMIN.doSQL("UPDATE tblSendungen SET tblSnd_QS_MA='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "' WHERE tblSnd_SendungID='" & dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value & "'", "AVISO")
                '        Else
                '            '  SENDUNG_TMP.tblSnd_QS_MA = Nothing
                '            ADMIN.doSQL("UPDATE tblSendungen SET tblSnd_QS_MA=null WHERE tblSnd_SendungID='" & dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value & "'", "AVISO")

                '        End If
                '        ' SENDUNG_TMP.SAVE()
                '        initDgvSendungen()
                '        Me.Cursor = Cursors.Default
                '    End If

            Case "StatusVorgeschrieben"
                sendAktiv = False
                Me.Cursor = Cursors.WaitCursor
                If FUNC.setSendungVorgeschrieben(SendungsId, AvisoID) Then
                    initDgvSendungen()
                End If
                Me.Cursor = Cursors.Default
            Case "StatusVorbereitetQS"
                sendAktiv = False
                Me.Cursor = Cursors.WaitCursor
                If FUNC.setSendungVorbereitetQS(SendungsId, AvisoID) Then
                    initDgvSendungen()
                End If

                Me.Cursor = Cursors.Default

            Case "SenungUebernehmen"
                sendAktiv = False
                Me.Cursor = Cursors.WaitCursor

                If FUNC.SendungUebernehmen(dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value, AvisoID) Then
                    initDgvSendungen()
                End If
                'sendAktiv = False

                Me.Cursor = Cursors.Default

            Case "SenungWeiterleiten"
                sendAktiv = False
                Me.Cursor = Cursors.WaitCursor

                If dgvSendungen.Rows(e.RowIndex).Cells("LetzterMitarbeiterId").Value IsNot DBNull.Value AndAlso dgvSendungen.Rows(e.RowIndex).Cells("LetzterMitarbeiterId").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
                    Dim f As New frmAvisoWeiterleiten("S", AvisoID, VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID) '--> Weitereliten
                    If f.ShowDialog(Me) = DialogResult.OK Then
                        initDgvSendungen()
                        Vermerke_anzeigen()
                    End If
                End If
                'sendAktiv = False

                Me.Cursor = Cursors.Default

            Case "SendungFakturiert"
                sendAktiv = False
                Me.Cursor = Cursors.WaitCursor
                If FUNC.setSendungFakturiert(SendungsId, AvisoID) Then
                    initDgvSendungen()
                End If
                'If dgvSendungen.Rows(e.RowIndex).Cells("FilialenNr").Value IsNot DBNull.Value AndAlso dgvSendungen.Rows(e.RowIndex).Cells("AbfertigungsNr2").Value IsNot DBNull.Value Then

                '    If VERAG_PROG_ALLGEMEIN.cSpeditionsbuch.existsSpedBuch(dgvSendungen.Rows(e.RowIndex).Cells("FilialenNr").Value, dgvSendungen.Rows(e.RowIndex).Cells("AbfertigungsNr2").Value) Then
                '        Dim f As New SDL.frmAbrechnungsMaskeEinzeln(dgvSendungen.Rows(e.RowIndex).Cells("FilialenNr").Value, dgvSendungen.Rows(e.RowIndex).Cells("AbfertigungsNr2").Value)
                '        If f.ShowDialog(Me) = DialogResult.OK Then
                '            initDgvSendungen()
                '            Vermerke_anzeigen()
                '        End If
                '    Else
                '        MsgBox("Speditionsbucheintrag existiert nicht!")
                '    End If
                'Else
                '    MsgBox("Filiale bzw. Abfertigungsnummer vergeben!")
                'End If

                'sendAktiv = False

                Me.Cursor = Cursors.Default


        End Select

        sendAktiv = True

    End Sub



    Private Sub Button1_Click(sender As Object, e As EventArgs)
        reload(AvisoID)
        ' MsgBox("laodButton1")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        pnlOptionen.Height = 157 '125
        pnlOptionen.Visible = Not pnlOptionen.Visible

        If pnlOptionen.Visible Then pnlOptionen.Location = New Point(pnlOptionen.Location.X, Button2.Height + pnl.Height + FlowLayoutPanel.Height)
    End Sub

    Private Sub txtFrächter_TextChanged(sender As Object, e As EventArgs) Handles txtFrächter.Click
        If FraechterKdNr > 0 Then
            FUNC.showKd(FraechterKdNr)
        End If
    End Sub

    Private Sub txtAuftraggeber_TextChanged(sender As Object, e As EventArgs) Handles txtAuftraggeber.Click
        If AvisiererKdNr > 0 Then
            FUNC.showKd(AvisiererKdNr)
        End If
    End Sub




    'Private Sub timerTick(sender As Object, e As EventArgs) Handles timer.Tick ' eine halbe sekunde verzögert, damit DGV geladen ist (shown geht nicht ewg. usrcntl)
    '    If initDGVSendungenRows() Then
    '        timer.Enabled = False
    '    End If
    'End Sub

    Function initDGVSendungenRows() As Boolean
        If gridVermerke.RowCount = 0 Then gridVermerke.Columns.Clear() 'gridVermerke.Visible = False

        If Not loaded Then Return False
        If dgvSendungen.DataSource Is Nothing Then Return False
        If dgvSendungen.Columns("tblSnd_Vorbereitet") Is Nothing Then Return False
        If dgvSendungen.Columns("StatusVorbereitetQS") Is Nothing Then Return False
        If dgvSendungen.Columns("SenungUebernehmen") Is Nothing Then Return False
        If dgvSendungen.Columns("SenungWeiterleiten") Is Nothing Then Return False
        ' If dgvSendungen.Columns("SendungFakturiert") Is Nothing Then Return False

        If dgvSendungen.Columns("SpeditionsbuchEintragen") Is Nothing Then Return False
        If dgvSendungen.Columns("KundeAnzeigen") Is Nothing Then Return False

        '   MsgBox("TEST1")

        For Each r As DataGridViewRow In dgvSendungen.Rows
            Try
                If r.Cells("tblSnd_EmpfaengerKdNr").Value IsNot DBNull.Value AndAlso CInt(r.Cells("tblSnd_EmpfaengerKdNr").Value) > 0 Then
                    DirectCast(r.Cells("KundeAnzeigen"), DataGridViewImageCell).Value = My.Resources.person
                End If
                If CBool(r.Cells("tblSnd_SpeditionsbuchEingetragen").Value) Then
                    DirectCast(r.Cells("SpeditionsbuchEintragen"), DataGridViewImageCell).Value = My.Resources.speditionsbuchAktiv
                End If

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


                DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).Value = My.Resources.personCheck_gray_small
                If r.Cells("LetzterMitarbeiterId").Value IsNot DBNull.Value AndAlso r.Cells("LetzterMitarbeiterId").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
                    DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).Value = My.Resources.personCheck_blue_small
                    DirectCast(r.Cells("SenungWeiterleiten"), DataGridViewImageCell).Value = My.Resources.weiterleiten_small1
                Else
                    If r.Cells("tblSnd_VG_MA").Value IsNot DBNull.Value Then
                        DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).Value = My.Resources.personCheck_small
                    End If
                    DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).ToolTipText = "Sendung übernehmen"
                End If
                If r.Cells("LetzterMitarbeiter").Value IsNot DBNull.Value Then DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).ToolTipText = "Sendung von '" & r.Cells("LetzterMitarbeiter").Value & "' übernehmen"

                If dgvSendungen.Columns("SendungFakturiert") IsNot Nothing Then
                    If (r.Cells("tblSnd_Fakturiert").Value) IsNot DBNull.Value Then
                        DirectCast(r.Cells("SendungFakturiert"), DataGridViewImageCell).Value = My.Resources.fakturiertAktiv
                    End If
                    DirectCast(r.Cells("SendungFakturiert"), DataGridViewImageCell).ToolTipText = "Sendung fakturiert"
                End If


                'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then
                '    If r.Cells("tblSnd_QS_MA").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
                '        DirectCast(r.Cells("Abgeklaert"), DataGridViewImageCell).Value = My.Resources.abgeklaertAktiv
                '    End If
                'End If

                DirectCast(r.Cells("KundeAnzeigen"), DataGridViewImageCell).ToolTipText = "Kunde anzeigen"
                DirectCast(r.Cells("SpeditionsbuchEintragen"), DataGridViewImageCell).ToolTipText = "Speditionsbuch eintragen"
                '  DirectCast(r.Cells("VermerkEintragen"), DataGridViewImageCell).ToolTipText = "Vermerk eintragen"
                ' DirectCast(r.Cells("SendungBearbeiten"), DataGridViewImageCell).ToolTipText = "Sendung bearbeiten"




            Catch ex As Exception
                MsgBox("Fehler bei der Initialisierung der Sendungen Optionen." & vbNewLine & vbNewLine & ex.Message)
            End Try
        Next

        Try
            tbcntlVermerke.TabPages(0).Text = "Alle (" & ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM Vermerke WHERE [AvisoID]=" & AvisoID & "", "AVISO") & ")"
            tbcntlVermerke.TabPages(1).Text = "Aktenvermerke (" & ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM Vermerke WHERE [AvisoID]=" & AvisoID & " AND [VermerkArt]='A' ", "AVISO") & ")"
            If dgvSendungen.SelectedRows.Count > 0 Then
                tbcntlVermerke.TabPages(2).Text = "Sendungsvermerke (" & ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM Vermerke WHERE [AvisoID]=" & AvisoID & " AND [VermerkArt]='S' AND [SendungID]='" & dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value & "' ", "AVISO") & ")"
            Else
                tbcntlVermerke.TabPages(2).Text = "Sendungsvermerke"
            End If
            tbcntlVermerke.TabPages(3).Text = "Anhang (" & ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [tblAvisoAnhaenge] WHERE [anh_AvisoId]='" & AvisoID & "' AND isnull(anh_SendungsId,0) <=0 ", "AVISO") & ")"
        Catch ex As Exception
        End Try

        '   btnFormulare.Left = pnlVermerkeTop.Width - btnFormulare.Width - 4
        Return True
    End Function
    ' Private Sub reloadtimerTick(sender As Object, e As EventArgs) Handles reloadTimer.Tick
    '     dgvSendungen.ClearSelection()
    '    If tbcntlVermerke.SelectedIndex <> 0 Then tbcntlVermerke.SelectedIndex = 0
    '    reloadTimer.Enabled = False
    'End Sub

    Private Sub timerSendRows_Tick(sender As Object, e As EventArgs) Handles timerSendRows.Tick
        If initDGVSendungenRows() Then
            timerSendRows.Enabled = False
        End If
    End Sub

    'Private Sub timerSendRows_Tick(sender As Object, e As EventArgs) Handles timerSendRows.Tick
    '    Try

    '        For Each r As DataGridViewRow In dgvSendungen.Rows
    '            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
    '                r.Cells("Abfertigungsart").Value = ADMIN.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & r.Cells("tblSnd_Abfertigungsart_ID").Value.ToString & "'", "FMZOLL")
    '                If r.Cells("Abfertigungsart").Value.ToString.Length > 15 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 15) & ".."
    '            End If
    '        Next
    '        timerSendRows.Enabled = False
    '    Catch ex As Exception
    '        MsgBox(ex.Message & ex.StackTrace)
    '    End Try
    'End Sub

    Private Sub lblStatus_Click(sender As Object, e As EventArgs) Handles lblStatus.Click

    End Sub

    Private Sub dgvSendungen_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvSendungen.CellMouseClick
        If e.Button = Windows.Forms.MouseButtons.Right Then
            If dgvSendungen.Columns.Count > 0 Then
                If dgvSendungen.Columns(e.ColumnIndex).Name = "SenungUebernehmen" Then
                    Exit Sub

                    'Dim LIST_FIRMEN() As String = {"VERAG", "UNISPED", "IMEX", "FRONTOFFICE"}

                    'Dim C As New ContextMenuStrip

                    'For Each FirmaTMP In LIST_FIRMEN

                    '    Dim item_Firma As New ToolStripMenuItem
                    '    item_Firma.Text = FirmaTMP

                    '    Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
                    '    Dim dt = sql.loadDgvBySql("SELECT TOP (1000) [mit_id],[mit_nname] + ' ' + [mit_vname] + ' (' + mit_niederlassung + ')' as MAname FROM [ADMIN].[dbo].[tblMitarbeiter]
                    '                          where mit_firma IN ('" & FirmaTMP & "','BEIDE','ALLE','ALL') and mit_gekuendigt=0
                    '                          and mit_abteilung IN ('QS','ZOLL','DISPO') and [mit_TESTonly]=0 AND [mit_pseudoUser]=0
                    '                          order by mit_nname,mit_vname  ", "AVISO")

                    '    For Each r In dt.Rows
                    '        Dim item As New ToolStripMenuItem
                    '        item.Tag = r("mit_id")
                    '        item.Text = r("MAname")
                    '        AddHandler item.Click, Sub()
                    '                                   FUNC.SendungUebernehmen(dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value, AvisoID, item.Tag, True)
                    '                                   reload(AvisoID)
                    '                               End Sub


                    '        item_Firma.DropDownItems.Add(item)
                    '    Next
                    '    C.Items.Add(item_Firma)
                    'Next
                    'C.Show(System.Windows.Forms.Cursor.Position)
                Else

                    If AVISO.Abgeschlossen Then Exit Sub

                    loaded = False
                    '  If dgvSendungen.SelectedRows.Count <= 0 Then Exit Sub

                    ' dgvSendungen.ClearSelection()
                    dgvSendungen.Rows(e.RowIndex).Selected = True
                    VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value

                    '  frmGrayOut.Opacity = 0.5
                    '  frmGrayOut.WindowState = FormWindowState.Maximized
                    Dim tmpIndex = dgvSendungen.SelectedRows(0).Index
                    Dim tmpscroll = dgvSendungen.FirstDisplayedScrollingRowIndex

                    Dim frmGrayOut = grayoutForm()
                    Dim sv As New frmAddSendungsvermerkShort(AvisoID, dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
                    sv.Location = Me.PointToClient(System.Windows.Forms.Cursor.Position)
                    sv.ShowDialog(frmGrayOut)
                    frmGrayOut.Close()
                    If tbcntlVermerke.SelectedIndex <> 2 Then tbcntlVermerke.SelectedIndex = 2


                    initDgvSendungen() ' wg. Anzahl Vermerke
                    sv.Close()


                    If dgvSendungen.RowCount > tmpIndex Then
                        'dgvSendungen.ClearSelection()
                        'dgvSendungen.Rows(tmpIndex).Selected = True
                        dgvSendungen.FirstDisplayedScrollingRowIndex = tmpscroll
                    End If
                    loaded = True
                    'Vermerke_anzeigen()

                End If
            End If
        End If
    End Sub

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

    End Sub


    '  Dim w As New SDL.cGenWord
    'Dim ds As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
    Private Sub Formulare(sender As Object, e As EventArgs) Handles DispolisteTRToolStripMenuItem.Click, DispolisteENToolStripMenuItem.Click
        Me.Cursor = Cursors.WaitCursor
        Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
        Try
            Dim d As New VERAG_PROG_ALLGEMEIN.cFormularManager
            Dim path_src As String = ""
            If sender Is DispolisteTRToolStripMenuItem Then path_src = VERAG_PROG_ALLGEMEIN.cFormularManager.open("DOKUMENTE", "VORLAGEN", "", "", "", "Dispoliste TR.doc", False)
            If sender Is DispolisteENToolStripMenuItem Then path_src = VERAG_PROG_ALLGEMEIN.cFormularManager.open("DOKUMENTE", "VORLAGEN", "", "", "", "Dispoliste EN.docx", False)

            ' If path_src = "" Then Exit Sub
            ' Dim path As String = ds.openDataTMP(path_src, False)
            ' If path = "" Then Exit Sub


            ' Dim Aviso As New cAvisos
            '  Aviso = AvisoDAL.LesenAviso(AvisoID, "")

            Dim oWord As New Microsoft.Office.Interop.Word.Application
            '  Dim odoc As Microsoft.Office.Interop.Word.Document

            oWord.Visible = False 'Word sehen zum Test?
            '  MsgBox(pfadWord)
            odoc = oWord.Documents.Open(path_src)
            '  odoc.SaveAs(tmpPath)

            ' odoc.Save()


            'odoc = w.openWord(path, False)

            odoc.FormFields("An").Range.Text = AVISO.Frächter
            odoc.FormFields("zH").Range.Text = ""
            odoc.FormFields("LKW").Range.Text = AVISO.LKW_Nr
            odoc.FormFields("SB").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME 'VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.Mitarbeiter

            odoc.Save()
            odoc.Activate()

            oWord.Visible = True


            ' odoc.Save()
            '  odoc.Activate()

        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
        Me.Cursor = Cursors.Default
    End Sub




    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnAktAbschliessen.Click
        If AVISO.Status <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
            If vbYes <> MsgBox("Der LKW wurde noch nicht freigegeben, Sind Sie sicher?", vbYesNoCancel) Then Exit Sub
            FUNC.setFreigabe(AvisoID, Me, True)
        End If

        If FUNC.setAbgeschlossen(AvisoID, True) Then
            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(AvisoID)
            reload(AvisoID)
        End If
    End Sub



    Private Sub btnKassenbuchEintrag_Click(sender As Object, e As EventArgs)
        Dim PERSONAL As SDL.cPersonal = Nothing
        Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch
        If frmSecureLoginKassenbuch.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then

            PERSONAL = frmSecureLoginKassenbuch.PERSONAL
            Dim frmBeleg As New SDL.frmBelegNeu(PERSONAL, Nothing, "E")
            AddHandler frmBeleg.LOADED, Sub()

                                            Dim AVISO As cAviso = AvisoDAL.LesenAviso(AvisoID, "")
                                            'Dim BELEG As New EABeleg(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID)
                                            '  Dim BELEG As EABeleg = frmBeleg.BELEG
                                            '' BELEG.LKW_Kennzeichen = "AAAAAA"
                                            frmBeleg.BELEG.LKW_Kennzeichen = AVISO.LKW_Nr
                                            frmBeleg.BELEG.Frachtführer = AVISO.Frächter
                                            frmBeleg.BELEG.Ordnungsbegriff = AVISO.Frächter 'Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_Auftraggeber
                                            frmBeleg.BELEG.FilialenNr = 4801
                                            'frmBeleg.BELEG.AbfertigungsNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).AbfertigungsNr

                                            '   MsgBox(Me.SENDUNG_LIST(Me.CURRENT_INDEX).FilialenNr)

                                            frmBeleg.init()

                                            ' Nach init:
                                            If AVISO.Frächter_KdNr >= 0 Then
                                                frmBeleg.kdFrachtf.KdNr = AVISO.Frächter_KdNr
                                            End If
                                            '  If Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_AuftraggeberKdNr > 0 Then
                                            '      frmBeleg.kdkunde.KdNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).tblSnd_AuftraggeberKdNr
                                            '     End If

                                        End Sub

            frmBeleg.ShowDialog(Me)
        End If
    End Sub

    Private Sub btn_Click(sender As Object, e As EventArgs)
        ' Dim frmNacherfassung As New frmNacherfassungNEU
        '  frmNacherfassung.newEntry = True
        ' frmNacherfassung.FMZollPersID = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.mit_FMZollPersID
        ' frmNacherfassung.Show()
        Try
            Dim posNr As New posNr
            If AvisoID < 0 Then MsgBox("Fehler: AvisoID  kleiner 0.") : Exit Sub

            Dim frmNacherfassung As New SDL.frmNacherfassungNEU

            If posNr.Filiale <= 0 And VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.StandartFiliale > 0 Then 'Aus den Mitarbeiter-Stammdaten
                posNr.Filiale = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.StandartFiliale
            End If

            If posNr.Abfertigungsnummer < 0 Or posNr.Filiale < 0 Or posNr.UnterNr < 0 Then
                Dim frmPosNr As New SDL.frmPosNr(posNr.Filiale, posNr.Abfertigungsnummer, posNr.UnterNr)
                Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()


                If Not frmPosNr.ShowDialog(frmGrayOut) = DialogResult.OK Then frmGrayOut.Close() : Exit Sub
                frmGrayOut.Close()
                '  MsgBox("3")
                posNr.Abfertigungsnummer = frmPosNr.txtAbfertigungsnummer.Text
                posNr.Filiale = frmPosNr.cboFiliale._value
                posNr.UnterNr = frmPosNr.txtUnterNr.Text
                '    Dim cADMIN As New cADMIN
                '   cADMIN.doSQL(" UPDATE tblSendungen SET FilialenNr='" & posNr.Filiale & "',AbfertigungsNr='" & srchAbfertigungsnummer & "', UnterNr='" & srchUnterNr & "' FROM tblSendungen WHERE tblSnd_SendungID=" & SendungID)

            End If
            '  MsgBox("4")

            frmNacherfassung.avisoLinkId = AvisoID
            '  frmNacherfassung.SendungID = SendungID
            Dim SQL As New SQL
            frmNacherfassung.srchAbfertigungsnummer = posNr.Abfertigungsnummer
            frmNacherfassung.srchFiliale = posNr.Filiale
            frmNacherfassung.srchUnterNr = posNr.UnterNr
            ' frmNacherfassung.FMZollPersID = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.mit_FMZollPersID
            Dim qsMa_TMP = SQL.getValueTxtBySql("SELECT TOP 1 isnull([MitarbeiterId],-1)  FROM [Aenderungen]  WHERE Aenderung_Art = 'auf VORBEREITET gesetzt' AND [AvisoID]='" & AvisoID & "' ORDER BY Datum DESC", "AVISO")
            Dim qsMa = SQL.getValueTxtBySql("SELECT TOP 1 isnull([mit_FMZollPersID],-1)  FROM [tblMitarbeiter] WHERE [mit_id]='" & qsMa_TMP & "' ", "ADMIN")
            frmNacherfassung.newEntry = (0 = CInt(SQL.getValueTxtBySql("SELECT Count(*) FROM Speditionsbuch WHERE FilialenNr='" & posNr.Filiale & "' AND AbfertigungsNr='" & posNr.Abfertigungsnummer & "' AND UnterNr='" & posNr.UnterNr & "' ", "FMZOLL")))
            ' frmNacherfassung.FMZollPersIDQS = IIf(IsNumeric(qsMa), qsMa, -1)


            frmNacherfassung.ShowDialog()

            posNr.Abfertigungsnummer = frmNacherfassung.txtAbfertigungsnummer.Text
            posNr.Filiale = frmNacherfassung.cboFiliale._value
            posNr.UnterNr = frmNacherfassung.txtUnterNr.Text


        Catch ex As Exception
            MsgBox(ex.Message & ex.StackTrace)
        End Try

    End Sub



    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        If AVISO.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
            Dim f As New frmAvisoWeiterleiten("A", AvisoID) '--> Weitereliten
            If f.ShowDialog(Me) = DialogResult.OK Then
                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
                frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
                Vermerke_anzeigen()
            End If
        Else
            If FUNC.AktUebernehmen(AvisoID, False) Then
                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
                frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
            End If
        End If
    End Sub


    Sub intiAktUebernehmenBtn()
        If AVISO.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
            Button4.Image = My.Resources.weiterleiten_small1
            Button4.Text = "Akt weiterleiten..."
        Else
            Button4.Image = My.Resources.personCheck_small
            Button4.Text = "Akt übernehmen"
        End If
    End Sub
    Public Sub showInfo(t As String, s As Double)
        lblAktUebernommen.Text = t
        lblAktUebernommen.Visible = True
        lblAktUebernommen.BringToFront()
        timer.Interval = CInt(s * 1000)
        timerAktUebernommen.Enabled = True
    End Sub
    Private Sub timerAktUebernommen_Tick(sender As Object, e As EventArgs) Handles timerAktUebernommen.Tick
        lblAktUebernommen.Visible = False
        timerAktUebernommen.Enabled = False
    End Sub

    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
        If vbYes = MsgBox("Möchten Sie den Akt wieder öffnen?", vbYesNoCancel) Then
            If FUNC.setAbgeschlossen(AvisoID, False) Then
                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(AvisoID)
                reload(AvisoID)
            End If

        End If
    End Sub


    Private Sub btn_Click_1(sender As Object, e As EventArgs) Handles btn.Click
        ' Dim frmNacherfassung As New frmNacherfassungNEU
        '  frmNacherfassung.newEntry = True
        ' frmNacherfassung.FMZollPersID = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.mit_FMZollPersID
        ' frmNacherfassung.Show()
        Try
            Dim posNr As New posNr
            If AvisoID < 0 Then MsgBox("Fehler: AvisoID  kleiner 0.") : Exit Sub

            Dim frmNacherfassung As New SDL.frmNacherfassungNEU
            If posNr.Filiale <= 0 And VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.StandartFiliale > 0 Then 'Aus den Mitarbeiter-Stammdaten
                posNr.Filiale = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.StandartFiliale
            End If

            If posNr.Abfertigungsnummer < 0 Or posNr.Filiale < 0 Or posNr.UnterNr < 0 Then
                Dim frmPosNr As New SDL.frmPosNr(posNr.Filiale, posNr.Abfertigungsnummer, posNr.UnterNr)
                Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()

                If Not frmPosNr.ShowDialog(frmGrayOut) = DialogResult.OK Then frmGrayOut.Close() : Exit Sub
                frmGrayOut.Close()
                '  MsgBox("3")
                posNr.Abfertigungsnummer = frmPosNr.txtAbfertigungsnummer.Text
                posNr.Filiale = frmPosNr.cboFiliale._value
                posNr.UnterNr = frmPosNr.txtUnterNr.Text
                '    Dim cADMIN As New cADMIN
                '   cADMIN.doSQL(" UPDATE tblSendungen SET FilialenNr='" & posNr.Filiale & "',AbfertigungsNr='" & srchAbfertigungsnummer & "', UnterNr='" & srchUnterNr & "' FROM tblSendungen WHERE tblSnd_SendungID=" & SendungID)

            End If
            '  MsgBox("4")

            frmNacherfassung.avisoLinkId = AvisoID
            '  frmNacherfassung.SendungID = SendungID
            Dim SQL As New SQL
            frmNacherfassung.srchAbfertigungsnummer = posNr.Abfertigungsnummer
            frmNacherfassung.srchFiliale = posNr.Filiale
            frmNacherfassung.srchUnterNr = posNr.UnterNr
            '  frmNacherfassung.FMZollPersID = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.mit_FMZollPersID
            Dim qsMa_TMP = SQL.getValueTxtBySql("SELECT TOP 1 isnull([MitarbeiterId],-1)  FROM [Aenderungen]  WHERE Aenderung_Art = 'auf VORBEREITET gesetzt' AND [AvisoID]='" & AvisoID & "' ORDER BY Datum DESC", "AVISO")
            Dim qsMa = SQL.getValueTxtBySql("SELECT TOP 1 isnull([mit_FMZollPersID],-1)  FROM [tblMitarbeiter] WHERE [mit_id]='" & qsMa_TMP & "' ", "ADMIN")
            frmNacherfassung.newEntry = (0 = CInt(SQL.getValueTxtBySql("SELECT Count(*) FROM Speditionsbuch WHERE FilialenNr='" & posNr.Filiale & "' AND AbfertigungsNr='" & posNr.Abfertigungsnummer & "' AND UnterNr='" & posNr.UnterNr & "' ", "FMZOLL")))
            'frmNacherfassung.FMZollPersIDQS = IIf(IsNumeric(qsMa), qsMa, -1)


            frmNacherfassung.ShowDialog()

            posNr.Abfertigungsnummer = frmNacherfassung.txtAbfertigungsnummer.Text
            posNr.Filiale = frmNacherfassung.cboFiliale._value
            posNr.UnterNr = frmNacherfassung.txtUnterNr.Text

            reload(AvisoID)
        Catch ex As Exception
            MsgBox(ex.Message & ex.StackTrace)
            MsgBox(ex.StackTrace)

        End Try

    End Sub

    Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click


        loaded = False
        '  If dgvSendungen.SelectedRows.Count <= 0 Then Exit Sub

        Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
        Dim sv As New frmAddSendungsvermerkShort(AvisoID, -1) ', dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
        sv.Location = Me.PointToClient(System.Windows.Forms.Cursor.Position)
        sv.ShowDialog(frmGrayOut)
        frmGrayOut.Close()

        initDgvSendungen() ' wg. Anzahl Vermerke
        sv.Close()

        loaded = True
        Vermerke_anzeigen()


    End Sub

    Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles Button5.Click
        AvisoDAL.insertSendungEmpty(AvisoID, 1, 0, DBNull.Value, 0, DBNull.Value, Nothing, Nothing) ' INSERT 
        reload(AvisoID)
    End Sub

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

    End Sub

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



    Private Sub btnÄndern_Click(sender As Object, e As EventArgs) Handles btnÄndern.Click
        VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = AvisoID 'zur Sicherheit
        Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
        Dim f As New frmEintragAviso
        f.ShowDialog(frmGrayOut)
        frmGrayOut.Close()
        reload(AvisoID)
        pnlOptionen.Visible = False
    End Sub

    Private Sub btnLöschen_Click(sender As Object, e As EventArgs) Handles btnLöschen.Click
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me.FindForm) Then
            If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me.FindForm) Then
                'Status erfasst darf auch von Mitarbeiter gelöscht werden - Mail von Siener vom 13.12.2013
                If AVISO.Status <> "0" Then
                    MsgBox("Ein Akt mit diesem Status kann nur vom Administrator gelöscht werden.", vbExclamation)
                    Exit Sub
                End If
            End If

            Dim antwort As MsgBoxResult = MsgBox("Wollen Sie den Akt für das Kennzeichen '" & AVISO.LKW_Nr & "' wirklich löschen?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
                                         "Eintrag löschen")
            If antwort = vbNo Then
                Exit Sub
            End If
            pnlOptionen.Visible = False
            'AvisoDAL.LöschenAviso(AvisoID)
            If FUNC.setNichtEingeftroffen(AvisoID, True) Then
                VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = -1
                frmHauptfenster.pnlDetailsRechts.Visible = False
                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(-1)
            End If
        End If
    End Sub

    Private Sub Button8_Click_1(sender As Object, e As EventArgs) Handles btnTV.Click
        Dim frmTV As New frmTv
        frmTV.avisoID = VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID
        frmTV.ShowDialog()
        frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
        frmHauptfenster.lblHinweiseVisible()
    End Sub


    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        'Die Sendungen eintragen:
        If IsNumeric(txtSendungen.Text) And IsNumeric(txtSndFiskalAT.Text) And IsNumeric(txtSndFiskalDE.Text) And IsNumeric(txtSndFremd.Text) Then 'AndAlso txtSendungen.Text > 0 Then
            Dim filiale_tmp As Integer = 0
            Dim gesAnzSnd = initSndAnzahl()
            Dim fremd = False


            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                Case "IMEX", "UNISPED", "AMBAR", "FRONTOFFICE"
                    For cnt As Integer = 1 To gesAnzSnd
                        Dim abfnr_tmp As Object = DBNull.Value
                        filiale_tmp = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE
                        Dim abfArt As Object = DBNull.Value

                        getFilialeAndAbfertNrIMEX(cnt, filiale_tmp, abfnr_tmp, fremd, abfArt)
                        Dim tblSnd_AuftraggeberKdNr As Object = Nothing
                        Dim tblSnd_Auftraggeber As Object = Nothing
                        If cbxPosNr.Checked Then abfnr_tmp = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(filiale_tmp, Now.Year)

                        AvisoDAL.insertSendungEmpty(AvisoID, cnt, filiale_tmp, abfnr_tmp, 0, abfArt, tblSnd_AuftraggeberKdNr, tblSnd_Auftraggeber, fremd) ' INSERT 
                    Next

                Case Else
                    For cnt As Integer = 1 To gesAnzSnd
                        Dim abfnr_tmp As Object = DBNull.Value
                        getFilialeAndAbfertNr(cnt, filiale_tmp, abfnr_tmp, fremd) ' FilialeNr u AbfNr werden geladen
                        'IIf(filiale_tmp > 0, ADMIN.getMaxPosNrIncrement(filiale_tmp, Now.Year), 0)
                        'AvisoDAL.insertSendungEmpty(tmpId, cnt, filiale_tmp, abfnr_tmp, 0) ' INSERT 
                        Dim tblSnd_AuftraggeberKdNr As Object = Nothing
                        Dim tblSnd_Auftraggeber As Object = Nothing
                        'If cbxAuftraggeberfurAlleSendungen.Checked Then
                        'If cboAuftraggeber.KdNr_value > 0 Then tblSnd_AuftraggeberKdNr = cboAuftraggeber.KdNr_value
                        '  tblSnd_Auftraggeber = cboAuftraggeber.Text
                        '  End If

                        Dim abfArt As Object = DBNull.Value
                        Select Case filiale_tmp
                            Case 4805 : abfArt = 26
                                '  Case 4806 : abfArt = 9
                            Case 4811 : abfArt = 28
                        End Select
                        AvisoDAL.insertSendungEmpty(AvisoID, cnt, filiale_tmp, abfnr_tmp, 0, abfArt, tblSnd_AuftraggeberKdNr, tblSnd_Auftraggeber, fremd) ' INSERT 
                    Next
            End Select



            reload(AvisoID)
        Else
            lblSendungsanzahl.Visible = True
        End If
    End Sub






    Sub getFilialeAndAbfertNr(ByVal cnt, ByRef filialeNr, ByRef abfertigungsNr, ByRef fremd)
        If cnt <= txtSendungen.Text Then
            Select Case cboGrenzstelle.Text
                Case "SUB" : filialeNr = 4803
                Case "SBG" : filialeNr = 5003
                Case "WAI" : filialeNr = 5103
                Case "NKD" : filialeNr = 5303
                Case "SFD" : filialeNr = 4839
                Case "NEU" : filialeNr = 4819
            End Select
        ElseIf (cnt - txtSendungen.Text) <= txtSndFiskalAT.Text Then
            filialeNr = 4805
        ElseIf (cnt - txtSendungen.Text - txtSndFiskalAT.Text) <= txtSndFiskalDE.Text Then
            filialeNr = 4811
        ElseIf (cnt - txtSendungen.Text - txtSndFiskalAT.Text - txtSndFiskalDE.Text) <= txtSndFremd.Text Then
            filialeNr = 0 : abfertigungsNr = DBNull.Value : fremd = True : Exit Sub
        End If
        If cbxPosNr.Checked Then abfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(filialeNr, Now.Year)
    End Sub

    Sub getFilialeAndAbfertNrIMEX(ByVal cnt, ByRef filialeNr, ByRef abfertigungsNr, ByRef fremd, ByRef abfart)
        abfart = DBNull.Value
        filialeNr = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE
        If cnt <= txtSendungen.Text Then
        ElseIf (cnt - txtSendungen.Text) <= txtSndFiskalAT.Text Then
            abfart = 26
        ElseIf (cnt - txtSendungen.Text - txtSndFiskalAT.Text) <= txtSndFiskalDE.Text Then
            abfart = 28
        ElseIf (cnt - txtSendungen.Text - txtSndFiskalAT.Text - txtSndFiskalDE.Text) <= txtSndFremd.Text Then
            abfertigungsNr = DBNull.Value : fremd = True : Exit Sub
        End If
        If cbxPosNr.Checked Then abfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(filialeNr, Now.Year)
    End Sub

    Function initSndAnzahl() As Integer
        initSndAnzahl = 0
        If IsNumeric(txtSendungen.Text) Then initSndAnzahl += txtSendungen.Text
        If IsNumeric(txtSndFiskalAT.Text) Then initSndAnzahl += txtSndFiskalAT.Text
        If IsNumeric(txtSndFiskalDE.Text) Then initSndAnzahl += txtSndFiskalDE.Text
        If IsNumeric(txtSndFremd.Text) Then initSndAnzahl += txtSndFremd.Text
        Label21.Text = initSndAnzahl
    End Function

    Private Sub txtSndFiskalDE_TextChanged(sender As Object, e As EventArgs) Handles txtSndFiskalDE.TextChanged, txtSendungen.TextChanged, txtSndFiskalAT.TextChanged
        initSndAnzahl()
    End Sub


    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.VerpflichtungserklärungFahrer, FraechterKdNr, {AvisoID}, True)
    End Sub

    Private Sub btnFormulare_Click(sender As Object, e As EventArgs) Handles btnFormulare.Click



        Panel4.Visible = Not Panel4.Visible


        Exit Sub
        '    pnlFormulare.Visible = Not pnlFormulare.Visible
        cntxtFormulare.Show(Windows.Forms.Cursor.Position)

        '  Dim ScreenPos As Point = Me.PointToScreen(New Point(0, 0))
        'pnlFormulare.PointToClient = Windows.Forms.Cursor.Position
    End Sub



    Private Sub btnAutoNF_Click(sender As Object, e As EventArgs) Handles btnLkwBeleg.Click
        'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUTONACHERFASSUNG", Me.FindForm) Then
        '    Dim doAutoNacherf = (vbYes = MsgBox("Autonacherfassung durchführen?", vbYesNoCancel))
        '    If doAutoNacherf Then
        '        FUNC.AUTONACHERFASSUNG(Me, AvisoID)
        '        frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
        '        frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
        '    End If

        'End If

        Dim PERSONAL As SDL.cPersonal = Nothing
        Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch
        If frmSecureLoginKassenbuch.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
            PERSONAL = frmSecureLoginKassenbuch.PERSONAL
            Dim frmBeleg As New SDL.frmBelegNeu(PERSONAL, Nothing, "E")
            frmBeleg.AvisoID = AvisoID
            '  frmBeleg.SendungID = SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID

            AddHandler frmBeleg.LOADED, Sub()

                                            Dim AVISO As cAviso = AvisoDAL.LesenAviso(AvisoID, "")
                                            frmBeleg.BELEG.LKW_Kennzeichen = AVISO.LKW_Nr
                                            frmBeleg.BELEG.Frachtführer = AVISO.Frächter
                                            frmBeleg.BELEG.Ordnungsbegriff = AVISO.Frächter
                                            '   frmBeleg.BELEG.FilialenNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).FilialenNr
                                            '  frmBeleg.BELEG.AbfertigungsNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).AbfertigungsNr
                                            frmBeleg.BELEG.LKW_Id = AVISO.AvisoID
                                            frmBeleg.BELEG.LKW_Beleg = True
                                            frmBeleg.init()

                                            If AVISO.Frächter_KdNr > 0 Then
                                                frmBeleg.kdFrachtf.KdNr = AVISO.Frächter_KdNr
                                                frmBeleg.kdkunde.KdNr = AVISO.Frächter_KdNr
                                            End If

                                            '  If sender Is Button13 Then frmBeleg.AddDusche(True)
                                        End Sub


            If frmBeleg.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
                If frmBeleg.BELEG.gebucht Then
                    'initDataBinding()
                End If
            End If

        End If
    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Dim f As New SDL.frmSendSMS(AVISO.FahrerHandy, "")
        If AVISO IsNot Nothing Then
            f.KundenNr = AVISO.Frächter_KdNr
            f.Kunde = AVISO.Frächter
            f.AvisoId = AVISO.AvisoID
        End If
        If f.ShowDialog(Me) = DialogResult.OK Then
            If f.SMS IsNot Nothing Then
                Dim FahrerHandy = If(f.SMS.sms_Vorwahl, "") & If(f.SMS.sms_Handynummer, "")
                If FahrerHandy <> "" Then
                    SDL.cSMSOptions.insertVermerk(AvisoID, FahrerHandy, Now)
                    If If(AVISO.FahrerHandy, "") = "" Then
                        AVISO.FahrerHandy = FahrerHandy
                        AVISO.UPDATE_FahrerHandy(FahrerHandy)
                    End If
                    Vermerke_anzeigen()
                End If
            End If
        End If
    End Sub

    Private Sub Button8_Click_2(sender As Object, e As EventArgs) Handles Button8.Click
        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.SA_Gestellung, FraechterKdNr, {AvisoID})
        Panel4.Visible = False
    End Sub

    Private Sub btnKasse_LG_Click(sender As Object, e As EventArgs) Handles btnKasse_LG.Click
        If DispolisteVermerk() Then
            SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DispoListe, FraechterKdNr, {AvisoID})
            Panel4.Visible = False
        End If
    End Sub

    Function DispolisteVermerk() As Boolean
        Dim answer = MsgBox("Vermerk 'Dispoliste angefordert' eintragen?", vbYesNoCancel)
        If vbYes = answer Then
            AvisoStatusFunctions.insertVermerkAllg(AvisoID, "Dispoliste angefordert", 57)
        ElseIf answer = vbCancel Then
            Return False
        End If
        Return True
    End Function
    Private Sub btnKasse_User_Click(sender As Object, e As EventArgs) Handles Button9.Click
        If DispolisteVermerk() Then

            Dim path = SDL.FormularManagerNEU.DispSendungslisteoListe(AvisoID, False,, cboFormulareRgAn._value)
            If path <> "" Then
                Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                    Case "IMEX"
                        Process.Start(path)
                    Case Else
                        Try
                            Dim outl As New Outlook.Application
                            Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
                            Mail = outl.CreateItem(0)
                            Mail.Subject = "Dispoliste LKW-Nr: " & AVISO.LKW_Nr
                            '   Mail.HTMLBody = "Sehr geehrte Damen und Herren,<br><br>anbei erhalten Sie die Rechnung Nr. " & RECHNUNG.RechnungsNr & "."
                            Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Dispoliste.pdf")
                            Mail.Display()

                        Catch ex As Exception
                            MsgBox("Fehler beim Öffnen des Mail-Programmes. PDF wird geladen!")
                            Process.Start(path)
                        End Try
                End Select
                ' DispolisteVermerk()
            End If
            Panel4.Visible = False
        End If
    End Sub

    Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
        Dim f As New frmSendungAnhangImport(AvisoID)
        f.Show(Me)
    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles btnKasse_User.Click
        If DispolisteVermerk() Then
            Dim path = SDL.FormularManagerNEU.DispSendungslisteoListe(AvisoID, False,, cboFormulareRgAn._value)
            If path <> "" Then Process.Start(path)
            Panel4.Visible = False
        End If
    End Sub

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        pnlDetailsRechts.Cursor = Cursors.WaitCursor

        Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
        VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AvisoID) 'LÄDT alle Aviso-Anhänge
        For Each l In ANH_LIST
            If l.anh_LaufzettelDruck Then
                If vbYes = MsgBox("Es wurden Anhänge zum Drucken markiert! Sollen diese gedruckt werden?", vbYesNoCancel) Then
                    For Each ll In ANH_LIST
                        If ll.anh_LaufzettelDruck Then
                            Select Case ll.anh_Typ
                                Case "PDF" : VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ll.anh_docId)})
                                    ' Case "BILD" : VERAG_PROG_ALLGEMEIN.cFormularManager.Print_PICTURE({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ll.anh_docId)})
                                Case Else : Process.Start(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ll.anh_docId))
                            End Select
                        End If
                    Next
                End If
                Exit For
            End If
        Next

        Dim path = SDL.FormularManagerNEU.LaufzettelZollDE(AvisoID, False)
        If path <> "" Then Process.Start(path)
        Panel4.Visible = False
        pnlDetailsRechts.Cursor = Cursors.Default
    End Sub

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

        If vbYes = MsgBox("Möchten Sie alle Aktendeckel drucken?", vbYesNoCancel) Then
            Me.Cursor = Cursors.WaitCursor
            Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
            VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN

            For Each s In SENDUNG_LIST
                If checkcbxAlleFirmen(s.FilialenNr) Then
                    If Not s.tblSnd_Fremdspedition Then If CInt(s.AbfertigungsNr) < 100000 Then MsgBox("Es wurden nicht alle Abfertigungsnummern vergeben!") : Exit Sub
                End If
            Next

            Dim Printername = ""
            Dim oPS As New System.Drawing.Printing.PrinterSettings
            Try
                Printername = oPS.PrinterName
            Catch ex As System.Exception
            End Try

            'Dim trd = New Threading.Thread(Sub()
            For Each s In SENDUNG_LIST
                If checkcbxAlleFirmen(s.FilialenNr) Then
                    If Not s.tblSnd_Fremdspedition Then SendungOptions.PrintSendung("PRINT", s, AVISO, Printername,, SENDUNG_LIST.Count)
                End If
            Next
            '                               End Sub)
            '   trd.IsBackground = True : trd.Start()
            Me.Cursor = Cursors.Default
        End If
    End Sub

    Private Sub HervorhebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HervorhebenToolStripMenuItem.Click
        If gridVermerke.SelectedRows.Count = 0 Then Exit Sub
        Dim index As Integer = -1
        If (dgvSendungen.SelectedRows.Count > 0) Then index = dgvSendungen.SelectedRows(0).Index
        VermerkeDAL.toggleHervorheben(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value))
        Vermerke_anzeigen(index)

    End Sub

    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
        Try

            If vbYes = MsgBox("Möchten Sie alle Steuerbescheide drucken?", vbYesNoCancel) Then
                Me.Cursor = Cursors.WaitCursor

                Dim SPEDBUCHLIST As New List(Of VERAG_PROG_ALLGEMEIN.cSpeditionsbuch)

                Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
                VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN

                Dim allEntry = True
                For Each s In SENDUNG_LIST
                    If checkcbxAlleFirmen(s.FilialenNr) Then
                        If Not s.tblSnd_Fremdspedition Then
                            If s.tblSnd_SpeditionsbuchEingetragen Then

                                If (s.FilialenNr > 0 And s.AbfertigungsNr > 0) Then
                                    Dim SP_LIST As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuchList(s.FilialenNr, s.AbfertigungsNr)
                                    For Each i In SP_LIST.LIST
                                        SPEDBUCHLIST.Add(i)
                                    Next
                                End If
                            Else
                                allEntry = False
                            End If
                        End If
                    End If
                Next

                If allEntry = False Then
                    If vbNo = MsgBox("Es wurden nicht alle Sendungen ins Speditionsbuch eingetragen. Der Ausdruck der Steuerbescheide ist möglicherweise unvollständig." & vbNewLine & vbNewLine & "Soll der Vorgang fortgesetzt werden?", vbYesNo) Then
                        Exit Sub
                    End If
                End If

                Dim Printername = ""
                Dim oPS As New System.Drawing.Printing.PrinterSettings
                Try
                    Printername = oPS.PrinterName
                Catch ex As System.Exception
                End Try

                For Each s In SPEDBUCHLIST
                    If s.DokumentId_Steuerbeleg IsNot Nothing AndAlso s.DokumentId_Steuerbeleg > 0 Then
                        VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(s.DokumentId_Steuerbeleg)})
                    End If
                    If s.DokumentId_Mitteilung IsNot Nothing AndAlso s.DokumentId_Mitteilung > 0 Then
                        VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(s.DokumentId_Mitteilung)})
                    End If
                Next

            End If

        Catch ex As Exception
            MsgBox(ex.Message & ex.StackTrace)
        End Try
        Me.Cursor = Cursors.Default
    End Sub

    Function checkcbxAlleFirmen(FilialenNr) As Boolean
        If cbxAlleFirmen.Checked Then
            Return True
        Else
            Select Case FilialenNr
                Case "5501" : If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then Return True
                Case "5601" : If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then Return True
                Case Else
                    If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG " Then Return True
            End Select
            Return False
        End If
    End Function

    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles btnSendungslisteUNISPED.Click
        genUNISPED_Excel(AvisoID)
    End Sub

    Shared Function genUNISPED_Excel(AvisoID As Integer, Optional printReportElsePDF As Boolean = False) As String
        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
        ' Dim odoc As Microsoft.Office.Interop.Excel.Sheets = Nothing
        Dim oExc As New Microsoft.Office.Interop.Excel.Application

        Dim excelBook As Excel.Workbook

        Try

            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "UNISPED", "", "Sendungsliste_UNISPED")
            Dim pfadWord = DS.GET_TOP1_PATH(False)

            ' Dim cGenWord As New cGenWord

            '  oExc = cGenWord.openWord(pfadWord, False, oWord)
            excelBook = oExc.Workbooks.Open(pfadWord)


            'Dim vname = ""
            'If VERAG_PROG_ALLGEMEIN.cAllgemein.USR_VNAME.Length > 0 Then vname = VERAG_PROG_ALLGEMEIN.cAllgemein.USR_VNAME.Substring(0, 1) & "."

            Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(AvisoID)

            oExc.Range("C4").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname
            '  oExc.Range("C5").Value = usrCntl.txtFilialeLKWId.Text
            oExc.Range("I7").Value = AVISO.LKW_Nr

            oExc.Range("I5").Value = Now.ToShortDateString
            '  oExc.Range("C7").Value = usrCntl.txtT1Gestellung.Text
            '  oExc.Range("F7").Value = usrCntl.txtBezugsNrSumA.Text


            oExc.Range("F4").Value = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl <> "", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl, "+43 7711 / 2777 - 0")


            'Wenn die Excel-Vorlage nciht reicht, werden neue Zeilen eingefügt



            Dim i = 0


            Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
            VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN
            For cnt = 13 To SENDUNG_LIST.Count
                oExc.Range("A11").EntireRow.Copy()
                oExc.Range("A11").EntireRow.Insert(Excel.XlDirection.xlDown)
            Next


            Dim colli As Double = 0
            Dim gewicht As Double = 0
            For Each s In SENDUNG_LIST
                oExc.Range("A" & (i + 11)).Value = (i + 1)
                oExc.Range("B" & (i + 11)).Value = s.tblSnd_Warenbezeichnung
                oExc.Range("C" & (i + 11)).Value = s.tblSnd_Colli.Replace(".", "") ' Damit nicht falsche kommastelle erzuegt wird
                oExc.Range("D" & (i + 11)).Value = s.tblSnd_Gewicht
                oExc.Range("E" & (i + 11)).Value = s.tblSnd_Absender
                oExc.Range("F" & (i + 11)).Value = s.tblSnd_Empfaenger
                oExc.Range("G" & (i + 11)).Value = s.tblSnd_Abfertigungsart_ID
                Dim HandlingTxt = ""
                s.LOAD_HANDLING()
                For Each ata In s.HANDLING
                    HandlingTxt &= ata.sndhdg_nr & ", "
                Next
                If HandlingTxt.EndsWith(", ") Then HandlingTxt = HandlingTxt.Substring(0, HandlingTxt.Length - 2)
                oExc.Range("H" & (i + 11)).Value = HandlingTxt.Trim

                oExc.Range("I" & (i + 11)).Value = s.tblSnd_Anmerkung

                If IsNumeric(s.tblSnd_Colli) Then colli += CInt(s.tblSnd_Colli)
                If IsNumeric(s.tblSnd_Gewicht) Then gewicht += CInt(s.tblSnd_Gewicht)
                '  oExc.Range("H" & (i + 11)).Value = s.txtAtaMrn.Text
                ' oExc.Range("I" & (i + 11)).Value = s.rtbBemerkung.Text

                i += 1
            Next

            oExc.Range("C8").Value = colli.ToString.Replace(".", "") ' Damit nicht falsche kommastelle erzuegt wird
            oExc.Range("D8").Value = gewicht.ToString.Replace(".", "")

            'For Each c In usrCntl.MyFlowLayoutPanel1.Controls
            '    Dim tmp = DirectCast(c, usrCntlSA_GestellungElemente) 'For i = 1 To i = 3
            '    oExc.Range("A" & (i + 11)).Value = tmp.lbl1.Text ' (i + 1)
            '    oExc.Range("B" & (i + 11)).Value = tmp.txtWarenbezeichnung.Text
            '    oExc.Range("C" & (i + 11)).Value = tmp.txtColli.Text.Replace(".", "") ' Damit nicht falsche kommastelle erzuegt wird
            '    oExc.Range("D" & (i + 11)).Value = tmp.txtGewicht.Text
            '    oExc.Range("E" & (i + 11)).Value = tmp.txtAbsender.Text
            '    oExc.Range("F" & (i + 11)).Value = tmp.txtEmpfaenger.Text
            '    oExc.Range("G" & (i + 11)).Value = tmp.cboAbfertigungsart.Text
            '    oExc.Range("H" & (i + 11)).Value = tmp.txtAtaMrn.Text
            '    oExc.Range("I" & (i + 11)).Value = tmp.rtbBemerkung.Text

            '    i += 1
            'Next


            Dim p = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Sendungsliste_UNISPED" & ".xlsx", ".xlsx", True, False)

            excelBook.SaveAs(p) ': oExc.Activate()


            If printReportElsePDF Then 'NUR DRUCK!!
                oExc.Visible = False

                'Print
                oExc.Workbooks(1).PrintOutEx() '1, 1, 1, True)

                Try
                    oExc.Workbooks.Close()
                    oExc.Quit()
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
            Else
                oExc.Visible = True
            End If


            '  Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(nameDispo & ".pdf", ".pdf", True, False)

            '            odoc.SaveAs(path, Word.WdSaveFormat.wdFormatPDF)


            Return ""
            '   Return pfadWord



        Catch ex As Exception
            MessageBox.Show(ex.ToString & ex.StackTrace)
        End Try

        Return ""
    End Function

    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        Dim rpt As New rptQRAviso(AVISO)
        Dim printer = "" 'SDL.cProgramFunctions.getDruckernameBySearch("INFO", True)
        If printer <> "" Then
            SDL.cProgramFunctions.printRpt(rpt, printer, True)
        Else
            SDL.cProgramFunctions.showRpt(rpt, "AVISO", False)
        End If

    End Sub

    Private Sub Button13_Click_1(sender As Object, e As EventArgs) Handles Button13.Click
        Dim mailTo = InputBox("Freigabe-Mail senden an:")

        'If vbYes = MsgBox("Freigabe-Mail wirklich senden?", vbYesNoCancel) Then
        If mailTo <> "" Then
            AvisoStatusFunctions.SendFreigabeEmail(AVISO, mailTo)
        End If
    End Sub
End Class