DISPO/UID/frmMain/usrcntlAuftraege.vb

Imports System.ComponentModel
Imports System.IO
Imports System.Globalization
Imports System.Data.SqlClient
Imports System.Reflection


Public Class usrcntlAuftraege



    Dim Core_SQLAuswertungAusAnsicht As String = "select 
atr_frachtpos,  
atr_auftr_firma,
atr_ladest_firma,
atr_frachtfab_firma,
atr_frachtf_firma,
atr_Auftragsart,
atr_TransportauftragArt,
count(*) As Anzahl,
case 
	when atr_TransportauftragArt = 'NACH' then atr_frachtfab_firma
    when atr_TransportauftragArt = 'VOR' then atr_frachtf_firma
	when atr_TransportauftragArt = '' and atr_AuftragsArt = 'Transport' then '--na--'
	when atr_AuftragsArt = 'Handling' then '-'
end as Frächter,
case
	when atr_Auftragsart = 'TRANSPORT' then 'TRANSP.'
	when atr_Auftragsart = 'HANDLING' then 'HANDLING'
end as ShortAuftragsart,
sum (Rechnungsausgang.SteuerfreierGesamtbetrag + Rechnungsausgang.SteuerpflichtigerGesamtbetrag) as Rechnungen, --atr_frachtpos, Vorkosten
sum (vorkosten) as Vorkosten,
sum (Rechnungsausgang.SteuerfreierGesamtbetrag + Rechnungsausgang.SteuerpflichtigerGesamtbetrag - Vorkosten) as Marge
 
from (([sqlguide01.verag.ost.dmn].DISPO.dbo.tblAuftraege  as dispoauftraege
inner join VERAG.dbo.Speditionsbuch on atr_speditionsbuchNr = Speditionsbuch.FilialenNr AND atr_frachtpos = Speditionsbuch.AbfertigungsNr)
inner join VERAG.dbo.Rechnungsausgang on atr_speditionsbuchNr = Rechnungsausgang.FilialenNr AND atr_frachtpos = Rechnungsausgang.AbfertigungsNr)

where "



    Dim dataAdapterAuftraege As New SqlDataAdapter
    Dim dataBindingAuftraege As New BindingSource

    Dim SelectedDGVIndex As Integer = 0

    Private DISPO As New cOptionenDAL

    Public Shared Niederlassung As String
    Public Shared dt As DataTable
    Public Shared SQLAuswerungAusAnsicht, SQLStatAusAnsicht As String

    Public Shared von, bis As Date
    Property CustomButtons As String = ""
    Property Trip As cTrips = Nothing


    Private Sub usrcntlAuftraege_Load(sender As Object, e As EventArgs) Handles Me.Load
        SplitContainer1.Panel1Collapsed = True
        cboAuftragsart.Items.Clear()
        cboAuftragsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
        cboAuftragsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("HANDLING", "HANDLING"))
        cboAuftragsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TRANSPORT", "TRANSPORT"))
        cboAuftragsart.changeItem("ALLE")


        cboFiliale.Items.Clear()
        cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
        cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUBEN", "4807"))
        cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEUHAUS", "4819"))

        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
            Case "NEU" : cboFiliale.changeItem("4819") : Niederlassung = "4819"
            Case Else : cboFiliale.changeItem("4807") : Niederlassung = "4807"
        End Select

        DateBIS.Value = Now()
        DateVON.Value = Now.AddYears(-1).AddDays(1)

        EnableDoubleBuffered(dgvAuftraege)
        btnDetailSuche.Text = ChrW(9660) & ChrW(9660) & ChrW(9660) & "Detailsuche" & ChrW(9660) & ChrW(9660) & ChrW(9660)

        If Not Me.CustomButtons = "" Then DoCustomButtons()

        showDGVAuftraege()
    End Sub



    Function DoCustomButtons()

        Select Case CustomButtons
            Case ""
            Case "AddToTrip"
                For Each b As System.Windows.Forms.Control In PanButtons.Controls
                    b.Visible = False
                Next
                btnAddTo.Visible = True
        End Select

    End Function

    Private Sub initDGVAuftraege(bindingString As String)
        Dim sqlstr As String = bindingString
        SQLStatAusAnsicht = bindingString
        ' dgvLKW.DataSource = bindingSDL
        Dim vpasql As New VERAG_PROG_ALLGEMEIN.SQL

        dt = vpasql.loadDgvBySql(sqlstr, "VERAG")
        dgvAuftraege.DataSource = dt
    End Sub


    Public Sub showDGVAuftraege()
        Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
        Dim where As String = WhereInator3000()
        Dim DispoDBO As String
        If frmLogin.TESTSYSTEM = True Then
            DispoDBO = "DISPO.dbo.tblAuftraege"
        Else
            DispoDBO = My.Resources.Conn_DBO_Aufträge
        End If

        With dgvAuftraege

            Dim selectionstring As String = "SELECT 
atr_id
,case 
	when atr_frachtpos is null then '0' 
	when atr_frachtpos = '' then '0'
	else atr_frachtpos end as atr_frachtpos
,atr_datum
,atr_auftr_firma
,atr_frachtf_firma
,atr_frachtfAb_firma
--,atr_trans_firma
,case 
	when atr_TransportauftragArt = 'NACH' then (case when atr_frachtfab_firma is null then '-' else atr_frachtfab_firma end)
    when atr_TransportauftragArt = 'VOR' then (case when atr_frachtf_firma is null then '-' else atr_frachtf_firma end) 
	when atr_TransportauftragArt = '' and atr_AuftragsArt = 'Transport' then ''
	when atr_TransportAuftragArt is null then '-'
	when atr_AuftragsArt = 'Handling' then '-'
end  as Transportunternehmen
,case when atr_AuftragsArt='TRANSPORT' THEN atr_ladest_plz ELSE atr_absender_plz END as atr_ladest_plz
,case when atr_AuftragsArt='TRANSPORT' THEN atr_ladest_firma ELSE atr_absender_firma END as atr_ladest_firma
,case when atr_AuftragsArt='TRANSPORT' THEN atr_entladest_plz ELSE atr_empfaenger_plz END as atr_entladest_plz
,case when atr_AuftragsArt='TRANSPORT' THEN atr_entladest_firma ELSE atr_empfaenger_firma END as atr_entladest_firma
,atr_abliefernachweis,atr_AuftragsArt,atr_FilialenNr
,atr_tripNr
FROM (" & DispoDBO & " as dispoauftraege  
left join VERAG.dbo.Speditionsbuch on atr_speditionsbuchNr = Speditionsbuch.FilialenNr AND atr_frachtpos = Speditionsbuch.AbfertigungsNr)
--left join VERAG.dbo.Rechnungsausgang on atr_speditionsbuchNr = Rechnungsausgang.FilialenNr AND atr_frachtpos = Rechnungsausgang.AbfertigungsNr)
--left join VERAG.dbo.Vorkosten on atr_speditionsbuchNr = Vorkosten.FilialenNr AND atr_frachtpos = Vorkosten.AbfertigungsNr)
WHERE " & where & ""
            initDGVAuftraege(selectionstring)


            Dim top As String = ""

            'Tabelle Kommt/Geht bereinigen
            For i As Integer = 0 To dgvAuftraege.Columns.Count - 1
                .Columns(i).ReadOnly = True
            Next

            If .RowCount = 0 Then Exit Sub

            .Sort(dgvAuftraege.Columns(1), ListSortDirection.Descending)
            .RowTemplate.Height = 20
            '.RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
            .AllowUserToAddRows = False
            .AllowUserToDeleteRows = False
            .AllowUserToOrderColumns = False
            .AllowUserToResizeColumns = True
            .AllowUserToResizeRows = False
            '.RowTemplate.ReadOnly = True
            .RowHeadersVisible = False
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
            .MultiSelect = False
            .Columns(0).Visible = False
            .Columns("atr_AuftragsArt").Visible = False

            .Columns("atr_frachtpos").Width = 70
            .Columns("atr_frachtpos").HeaderText = "FrachtposNr."

            .Columns("atr_datum").Width = 70
            .Columns("atr_datum").HeaderText = "Datum"

            .Columns("atr_auftr_firma").MinimumWidth = 165
            .Columns("atr_auftr_firma").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
            .Columns("atr_auftr_firma").FillWeight = 150
            .Columns("atr_auftr_firma").HeaderText = "Auftraggeber"

            .Columns("atr_frachtf_firma").MinimumWidth = 165
            .Columns("atr_frachtf_firma").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
            .Columns("atr_frachtf_firma").FillWeight = 150
            .Columns("atr_frachtf_firma").HeaderText = "Frachtführer Bis"

            .Columns("atr_frachtfAb_firma").MinimumWidth = 165
            .Columns("atr_frachtfAb_firma").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
            .Columns("atr_frachtfAb_firma").HeaderText = "Frachtführer Ab"


            .Columns("Transportunternehmen").MinimumWidth = 165
            .Columns("Transportunternehmen").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
            .Columns("Transportunternehmen").HeaderText = "Transportunternehmen"

            .Columns("atr_ladest_plz").HeaderText = "Lad PLZ"
            .Columns("atr_ladest_plz").Width = 45
            .Columns("atr_ladest_plz").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

            .Columns("atr_ladest_firma").MinimumWidth = 165
            .Columns("atr_ladest_firma").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
            .Columns("atr_ladest_firma").HeaderText = "Ladestelle/Absender"

            .Columns("atr_entladest_plz").HeaderText = "Ent PLZ"
            .Columns("atr_entladest_plz").Width = 45
            .Columns("atr_entladest_plz").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

            .Columns("atr_entladest_firma").MinimumWidth = 165
            .Columns("atr_entladest_firma").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
            .Columns("atr_entladest_firma").HeaderText = "Entladest./Empfänger"

            .Columns("atr_abliefernachweis").Width = 60
            .Columns("atr_abliefernachweis").HeaderText = "Abl.Nachw."
            .Columns("atr_abliefernachweis").ReadOnly = False
            .Columns("atr_abliefernachweis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

            .Columns("atr_FilialenNr").Width = 60
            .Columns("atr_FilialenNr").HeaderText = "Filiale"
            .Columns("atr_FilialenNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

            .Columns("atr_Auftragsart").Width = 80
            .Columns("atr_Auftragsart").HeaderText = "Auftragsart"
            .Columns("atr_Auftragsart").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns("atr_Auftragsart").DisplayIndex = 11

            .Columns("atr_tripNr").Visible = False


            'Anzeige der Anzahl gewählter/aller Datensätze
            lblAnzahl.Text = Format(dgvAuftraege.RowCount, "#,##0") & " Einträge"
            If (dgvAuftraege.RowCount = 100) Then lblAnzahl.Text &= " ausgewählt (Die Suche wurde auf 100 Ergebnisse beschränkt.)"

            ' initDGVAuftraegeFilter()
        End With
        lblAnzahl.Refresh()
        Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
        lblMs.Text = "Ladezeit: " & (ende - start) & " ms"
        Try
            If dgvAuftraege.Rows.Count - 1 >= SelectedDGVIndex Then dgvAuftraege.Rows(SelectedDGVIndex).Selected = True
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        'lblMs.Image = Nothing
    End Sub

    Public Function WhereInator3000()
        Dim where As String = ""
        where &= "atr_datum <= '" & DateBIS.Value.ToShortDateString & "' AND atr_datum >= '" & DateVON.Value.ToShortDateString & "'"

        If cboAuftragsart._value <> "" Then
            where &= " AND " & " atr_AuftragsArt='" & cboAuftragsart._value & "'  "
        End If

        If cboFiliale._value <> "" Then
            where &= " AND " & " atr_FilialenNr='" & cboFiliale._value & "'  "
        End If

        If cbxAbliefer.CheckState = CheckState.Checked Then
            where &= " AND " & " atr_abliefernachweis = 1"
        ElseIf cbxAbliefer.CheckState = CheckState.Unchecked Then
            where &= " AND " & " atr_abliefernachweis = 0"
        End If

        If txtSuche.Text <> "" Then
            where &= " AND atr_frachtpos Like '%" & txtSuche.Text.Replace("'", "") & "%'"
        End If

        If txtAuftraggeber.Text <> "" Then
            where &= " AND atr_auftr_firma Like '%" & txtAuftraggeber.Text.Replace("'", "") & "%'"
        End If

        If txtFrachtfuehrerBis.Text <> "" Then
            where &= " AND atr_frachtf_firma Like '%" & txtFrachtfuehrerBis.Text.Replace("'", "") & "%'"
        End If

        If txtFrachtfuehrerAb.Text <> "" Then
            where &= " AND atr_frachtfAb_firma Like '%" & txtFrachtfuehrerAb.Text.Replace("'", "") & "%'"
        End If

        If txtTransportunternehmen.Text <> "" Then
            'where &= " AND atr_trans_firma Like '%" & txtTransportunternehmen.Text.Replace("'", "") & "%'"
            where &= " AND 
                            ((atr_TransportauftragArt = 'NACH' and atr_frachtfab_firma LIKE '%" & txtTransportunternehmen.Text.Replace("'", "") & "%')
                                OR
                            (atr_TransportauftragArt = 'VOR' AND  atr_frachtf_firma LIKE '%" & txtTransportunternehmen.Text.Replace("'", "") & "%'))"
        End If

        If txtLadestelle.Text <> "" Then
            where &= " AND 
                            ((atr_ladest_firma Like '%" & txtLadestelle.Text.Replace("'", "") & "%')
                                OR
                            (atr_absender_firma Like '%" & txtLadestelle.Text.Replace("'", "") & "%')
                                OR
                            (atr_ladest_plz Like '%" & txtLadestelle.Text.Replace("'", "") & "%')
                                OR
                            (VERAG.dbo.Speditionsbuch.Absender Like '%" & txtLadestelle.Text.Replace("'", "") & "%'))"
        End If

        If txtEntladeStelle.Text <> "" Then
            where &= " AND 
                            ((atr_entladest_firma Like '%" & txtEntladeStelle.Text.Replace("'", "") & "%')
                                OR
                            (atr_empfaenger_firma Like '%" & txtEntladeStelle.Text.Replace("'", "") & "%')
                                OR
                            (atr_entladest_plz Like '%" & txtEntladeStelle.Text.Replace("'", "") & "%')
                                OR
                            (VERAG.dbo.Speditionsbuch.Empfänger Like '%" & txtEntladeStelle.Text.Replace("'", "") & "%'))"
        End If

        If Not CustomButtons = "" Then
            Select Case CustomButtons
                Case "AddToTrip"
                    where &= " AND atr_tripNr IS NULL"
            End Select
        End If

        '' 2019/05/10 -> atr_empfaenger_firma und atr_sender_firma als Suchoption eingegeben, damit die Detailsuche auch in Handlings funktionert, die keinen Ablieferungsnachweis enthalten.
        '' Bug Report von Mestan 

        Return where
    End Function

    Public Sub initDGVAuftraegeFilter()
        Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
        Dim andtxt As String = ""
        Dim where As String = ""
        'If txtSuche.Text <> "" Then
        '    Dim oItem As MyListItem = CType(cboSearchAuftraege.SelectedItem, MyListItem)
        '    where = " " & oItem.Value & " LIKE '%" & txtSuche.Text & "%'"
        '    andtxt = " AND "
        'End If

        If cboAuftragsart._value <> "" Then
            where &= andtxt & " atr_AuftragsArt='" & cboAuftragsart._value & "'  "
            andtxt = " AND "

        End If

        If cboFiliale._value <> "" Then
            where &= andtxt & " atr_FilialenNr='" & cboFiliale._value & "'  "
            andtxt = " AND "

        End If

        If cbxAbliefer.CheckState = CheckState.Checked Then
            where &= andtxt & " atr_abliefernachweis = 1"
        ElseIf cbxAbliefer.CheckState = CheckState.Unchecked Then
            where &= andtxt & " atr_abliefernachweis = 0"
        End If


        'where &= andtxt & "atr_datum <= '" & enddatestring & "' AND atr_datum >= '" & startdatestring & "' "

        dataBindingAuftraege.Filter = where
        lblAnzahl.Refresh()
        Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
        lblMs.Text = "Ladezeit: " & (ende - start) & " ms"
    End Sub


    Private Sub DateVONorBIS_ValueChanged(sender As Object, e As EventArgs) Handles DateVON.ValueChanged, DateBIS.ValueChanged
        showDGVAuftraege()
    End Sub

    Private Sub btnDetailSuche_Click(sender As Object, e As EventArgs) Handles btnDetailSuche.Click
        SplitContainer1.Panel1Collapsed = Not SplitContainer1.Panel1Collapsed

        If SplitContainer1.Panel1Collapsed Then
            btnDetailSuche.BackColor = Color.White
            btnDetailSuche.Text = ChrW(9660) & ChrW(9660) & ChrW(9660) & "Detailsuche" & ChrW(9660) & ChrW(9660) & ChrW(9660)
        Else
            btnDetailSuche.BackColor = Color.RoyalBlue
            btnDetailSuche.Text = ChrW(9650) & ChrW(9650) & ChrW(9650) & "Detailsuche" & ChrW(9650) & ChrW(9650) & ChrW(9650)
        End If

    End Sub


    Private Sub CmdHeute_Click(sender As Object, e As EventArgs) Handles CmdHeute.Click
        DateVON.Value = Now()
        DateBIS.Value = Now()
    End Sub

    Private Sub CmdTagMinus_Click(sender As Object, e As EventArgs) Handles CmdTagMinus.Click, CmdTagPlus.Click
        If sender Is CmdTagPlus Then
            DateVON.Value = DateVON.Value.AddDays(1)
            DateBIS.Value = DateVON.Value
        Else
            DateVON.Value = DateVON.Value.AddDays(-1)
            DateBIS.Value = DateVON.Value
        End If
    End Sub

    Private Sub CmdMonat_Click(sender As Object, e As EventArgs) Handles CmdMonat.Click
        DateVON.Value = Now.AddDays(-Now.Day + 1)
        DateBIS.Value = Now()
    End Sub

    Private Sub CmdMonatMinus_Click(sender As Object, e As EventArgs) Handles CmdMonatMinus.Click, CmdMonatPlus.Click
        If sender Is CmdMonatPlus Then
            DateVON.Value = DateVON.Value.AddDays(-DateVON.Value.Day + 1).AddMonths(1)
            DateBIS.Value = DateVON.Value.AddMonths(1).AddDays(-1)
        Else
            DateVON.Value = DateVON.Value.AddDays(-DateVON.Value.Day + 1).AddMonths(-1)
            DateBIS.Value = DateVON.Value.AddMonths(1).AddDays(-1)
        End If
    End Sub

    Private Sub CmdJahr_Click(sender As Object, e As EventArgs) Handles CmdJahr.Click
        DateVON.Value = Now.AddDays(-Now.Day + 1).AddMonths(-Now.Month + 1)
        DateBIS.Value = Now()
    End Sub

    Private Sub CmdJahrMinus_Click(sender As Object, e As EventArgs) Handles CmdJahrMinus.Click, CmdJahrPlus.Click
        If sender Is CmdJahrPlus Then
            DateVON.Value = DateVON.Value.AddDays(-DateVON.Value.Day + 1).AddMonths(-DateVON.Value.Month + 1).AddYears(1)
            DateBIS.Value = DateVON.Value.AddYears(1).AddDays(-1)
        Else
            DateVON.Value = DateVON.Value.AddDays(-DateVON.Value.Day + 1).AddMonths(-DateVON.Value.Month + 1).AddYears(-1)
            DateBIS.Value = DateVON.Value.AddYears(1).AddDays(-1)
        End If
    End Sub

    Private Sub CmdAlle_Click(sender As Object, e As EventArgs) Handles CmdAlle.Click
        Try
            DateVON.Value = "01.01.1970"
            DateBIS.Value = Now.AddDays(-DateVON.Value.Day + 1).AddMonths(-DateVON.Value.Month + 1).AddYears(1)
            'cboAuftragsart.changeItem("Alle")
            'cboFiliale.changeItem("Alle")
        Catch
            MsgBox("Oh oh")
        End Try

    End Sub

    Public Sub EnableDoubleBuffered(ByRef dgv As DataGridView)

        Dim dgvType As Type = dgv.[GetType]()

        Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered",
                                                     BindingFlags.Instance Or BindingFlags.NonPublic)

        pi.SetValue(dgv, True, Nothing)

    End Sub

    Private Sub cboAuftragsart_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAuftragsart.SelectedIndexChanged, cboFiliale.SelectedIndexChanged, cbxAbliefer.CheckedChanged, txtSuche.TextChanged, txtAuftraggeber.TextChanged, txtFrachtfuehrerBis.TextChanged, txtFrachtfuehrerAb.TextChanged, txtTransportunternehmen.TextChanged, txtLadestelle.TextChanged, txtEntladeStelle.TextChanged
        showDGVAuftraege()
    End Sub

    Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
        DateBIS.Value = Now()
        DateVON.Value = Now.AddYears(-1).AddDays(1)
        txtSuche.Text = ""
        txtAuftraggeber.Text = ""
        txtFrachtfuehrerBis.Text = ""
        txtFrachtfuehrerAb.Text = ""
        txtTransportunternehmen.Text = ""
        txtLadestelle.Text = ""
        txtEntladeStelle.Text = ""
        cbxAbliefer.CheckState = CheckState.Indeterminate
        cbxAbliefer.Checked = True
        cboAuftragsart.changeItem("ALLE")
        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
            Case "NEU" : cboFiliale.changeItem("4819") : Niederlassung = "4819"
            Case Else : cboFiliale.changeItem("4807") : Niederlassung = "4807"
        End Select
    End Sub

    Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click
        frmAuftragNEU.auftragID = -1 : frmAuftragNEU.Show() : AddHandler frmAuftragNEU.Disposed, AddressOf meEnabledTrue
    End Sub

    Private Sub meEnabledTrue()
        Me.Enabled = True
        showDGVAuftraege()
        Me.BringToFront()
    End Sub

    Private Sub btnAuswertung_Click(sender As Object, e As EventArgs) Handles btnAuswertung.Click
        'If cboFiliale.SelectedItem.text = "NEUHAUS" Then
        '    frmAuswertung.Niederlassung = "4819"
        'ElseIf cboFiliale.SelectedItem.text = "SUBEN" Then
        '    frmAuswertung.Niederlassung = "4807"
        'Else
        '    Niederlassung = ""
        'End If
        Dim auswertung As New frmAuswertung
        auswertung.Niederlassung = returnfil()
        auswertung.Show()
    End Sub

    Private Sub btnChange_Click(sender As Object, e As EventArgs) Handles btnChange.Click
        SelectedDGVIndex = dgvAuftraege.CurrentRow.Index
        Dim frmAuftragNEU = New frmAuftragNEU
        Try
            If frmAuftragNEU.Visible Then
                MsgBox("Ein Auftrag ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
                frmAuftragNEU.BringToFront()
            Else
                frmAuftragNEU.auftragID = dgvAuftraege.CurrentRow.Cells(0).Value
                frmAuftragNEU.Show()
                AddHandler frmAuftragNEU.Disposed, AddressOf meEnabledTrue
                Me.Enabled = False
            End If
            ' Me.Enabled = False
        Catch ex As Exception
            Me.Enabled = True
        End Try
    End Sub

    Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
        If dgvAuftraege.SelectedRows.Count > 0 Then

            Select Case MsgBox("Soll der Eintrag wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
                Case vbYes
                    DISPO.delAuftrag(Convert.ToInt32(dgvAuftraege.SelectedRows.Item(0).Cells(0).Value))
                    'Tabelle_anzeigen()
                    showDGVAuftraege()
                Case vbNo
            End Select
        End If
    End Sub

    Private Sub btnDuplicate_Click(sender As Object, e As EventArgs) Handles btnDuplicate.Click
        Try
            'Dim AUFTRAG As New cDispoAuftraege(dgvAuftraege.CurrentRow.Cells(0).Value)
            Dim AUFTRAG As New cDispoAuftraege(dgvAuftraege.SelectedRows.Item(0).Cells(0).Value)
            AUFTRAG.atr_id = -1
            AUFTRAG.atr_datum = Now
            AUFTRAG.atr_frachtpos = Nothing
            ' AUFTRAG.LADUNGEN.Clear()
            AUFTRAG.BH_rechnungen.Clear()
            AUFTRAG.SAVE()

            Dim frmAuftragNEU As New frmAuftragNEU
            frmAuftragNEU.auftragID = AUFTRAG.atr_id
            AddHandler frmAuftragNEU.Disposed, AddressOf meEnabledTrue
            frmAuftragNEU.Show()

            Exit Sub
            Dim a As cAuftraege = DISPO.getAuftragById(dgvAuftraege.CurrentRow.Cells(0).Value)
            a.atr_frachtpos = DISPO.getFrachtpos
            a.atr_datum = Now
            a.atr_abliefernachweis = False

            'a.atr_ladungen = New List(Of cLadungen)
            a.bh_rechnungen = New List(Of cBuchhaltungRechnung)

            'lt. Mestan CMR übernehmen (20191204)
            'a.cmr_ausl_land = ""
            'a.cmr_ausl_ort = ""
            'a.cmr_beigefDok = ""
            'a.cmr_anwAbs = ""
            'a.cmr_rueckerst = ""
            'a.cmr_frZahlanwFrei = ""
            'a.cmr_frZahlanwUnfrei = ""
            'a.cmr_besVereinb = ""
            'a.cmr_ausgefIn = ""
            'a.cmr_uebergabe_land = ""
            'a.cmr_uebergabe_ort = ""
            'a.cmr_uebergabe_datum = ""
            'a.cmr_vorbehFrachtf = ""

            a.bh_mon = ""

            a.bh_vermerke = ""
            a.atr_notes = ""
            a.atr_gefahrengut = ""
            a.atr_frachtkosten = ""
            a.atr_entladest_terminBis = ""
            a.atr_entladest_terminVon = ""
            a.atr_entladest_terminDat = ""
            a.atr_ladest_terminBis = ""
            a.atr_ladest_terminVon = ""
            a.atr_ladest_terminDat = ""
            a.atr_bemerkung = ""
            a.atr_speditionsbuchNr = -1
            a.atr_lkwArt = ""
            a.atr_lkwKz = ""
            a.atr_lkwNutzlast = ""
            a.atr_anhKz = ""
            a.atr_anhNutzlast = ""

            DISPO.insertAuftragUndLadung(a)
            DISPO.setFrachtpos(a.atr_frachtpos)
            frmAuftragNEU.auftragID = DISPO.atr_id_insert
            AddHandler frmAuftragNEU.Disposed, AddressOf meEnabledTrue
            frmAuftragNEU.Show()

            'frmAuftragNEU.Show()
        Catch ex As Exception
            MsgBox("Fehler beim Duplizieren: " & ex.Message)
        End Try
    End Sub

    Private Sub dgvAuftraege_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAuftraege.CellDoubleClick
        Dim frmauftragneu = New frmAuftragNEU
        frmauftragneu.auftragID = dgvAuftraege.CurrentRow.Cells(0).Value
        If frmauftragneu.Visible Then
            MsgBox("Ein Antrag ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
            frmauftragneu.BringToFront()
        End If
        frmauftragneu.Show()
        AddHandler frmauftragneu.Disposed, AddressOf meEnabledTrue
        frmauftragneu.BringToFront()
    End Sub
    Private Sub dataGridView1_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles dgvAuftraege.CellClick
        SelectedDGVIndex = dgvAuftraege.CurrentRow.Index
        Try
            If e.ColumnIndex = dgvAuftraege.Rows(e.RowIndex).Cells("atr_abliefernachweis").ColumnIndex Then
                Dim val As Boolean = Not dgvAuftraege.Rows(e.RowIndex).Cells("atr_abliefernachweis").Value
                DISPO.setAbliefernachweis(dgvAuftraege.Rows(e.RowIndex).Cells(0).Value, val)
                'Tabelle_anzeigen()
                showDGVAuftraege()
            End If
        Catch ex As Exception
        End Try
    End Sub



    Private Sub btnSuchStat_Click(sender As Object, e As EventArgs) Handles btnSuchStat.Click
        Dim frmAus As New frmAuswertung
        frmAus.chkStandard.Checked = False
        frmAus.chkStatSuchererg.Checked = True
        frmAus.Niederlassung = returnfil()
        frmAus.von = DateVON.Value
        frmAus.bis = DateBIS.Value
        frmAus.Show()
        'MsgBox(SQLAuswerungAusAnsicht)
    End Sub

    Private Sub btnTrip_Click(sender As Object, e As EventArgs) Handles btnTrip.Click
        Dim frmTrips As New frmLeer
        frmTrips.Text = "Trips"
        Dim usrcntrl As New usrcntlTrips
        usrcntrl.Dock = DockStyle.Fill : frmTrips.PanMain.Controls.Add(usrcntrl)

        AddHandler frmTrips.Disposed, AddressOf meEnabledTrue
        Me.Enabled = False
        frmTrips.Show()
    End Sub

    Private Sub btnAddTo_Click(sender As Object, e As EventArgs) Handles btnAddTo.Click
        Dim tripauftrag As New cDispoAuftraege
        tripauftrag.atr_id = dgvAuftraege.CurrentRow.Cells(0).Value
        tripauftrag.LOAD()
        tripauftrag.atr_tripNr = Trip.tripNr
        tripauftrag.atr_tripStopNr = Trip.CreateNextStop
        If Not Trip.trip_Transporter = tripauftrag.Return_TransportauftragArt() Then
            If MsgBox("Trip-Frächter und Auftrag-Frächter stimmen nicht überein: " & vbCrLf &
                   "Trip: " & Trip.trip_Transporter & vbCrLf &
                   "Auftrag: " & tripauftrag.Return_TransportauftragArt() & vbCrLf &
                   "Trotzdem fortfahren?", MsgBoxStyle.OkCancel, "Unterschiedliche Frächter") = MsgBoxResult.Cancel Then ParentForm.Close() : Exit Sub
        End If
        tripauftrag.SAVE()
        ParentForm.Close()
    End Sub

    Private Sub btnSuchAuswertung_Click(sender As Object, e As EventArgs) Handles btnSuchAuswertung.Click
        Dim frmAus As New frmAuswertung
        SQLAuswerungAusAnsicht = Core_SQLAuswertungAusAnsicht & WhereInator3000() & " group by atr_frachtpos, atr_auftr_firma, atr_frachtfAb_firma, atr_frachtf_firma, atr_ladest_firma, atr_Auftragsart, atr_TransportauftragArt--, Anzahl
ORDER BY atr_frachtpos"
        frmAus.Niederlassung = returnfil()
        frmAus.chkStandard.Checked = False
        frmAus.chkAusSuchererg.Checked = True
        frmAus.von = DateVON.Value.ToShortDateString
        frmAus.bis = DateBIS.Value.ToShortDateString
        frmAus.Suchauswertung = True
        frmAus.Show()
        'MsgBox(SQLAuswerungAusAnsicht)
    End Sub

    Public Function returnfil()
        If cboFiliale.SelectedItem.text = "NEUHAUS" Then
            Return "4819"
        ElseIf cboFiliale.SelectedItem.text = "SUBEN" Then
            Return "4807"
        Else
            Return ""
        End If
    End Function


End Class