SDL/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb

Imports System.Data.SqlClient
Imports System.Globalization

Public Class usrCntlSpeditionsBuchSuche
    Dim SQL As New SQL

    Dim AVISOSERVER = "[BUCHHALTUNG\SQLEXPRESS].AVISO.dbo.AVISO"


    Sub New()

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub

    Public KDSearch As Integer
    Public dat_von As Date
    Public dat_bis As Date

    Sub New(KDSearch As Integer, dat_von As Date, dat_bis As Date)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.KDSearch = KDSearch
        Me.dat_von = dat_von
        Me.dat_bis = dat_bis
        'txtAbfertDat._value = dat_von.ToShortDateString
        'txtAbfertDatBis._value = dat_bis.ToShortDateString
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub

    Public Sub initSearch()
        btnSuche.PerformClick()
    End Sub





    Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click
        Me.Cursor = Cursors.WaitCursor

        Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "")
        Dim sqlstr As String = ""

        If tbcntr.SelectedIndex = 0 Then
            dgvLKW.Visible = False

            sqlstr &= " SELECT " & TopMax & " [FilialenNr],[AbfertigungsNr],[UnterNr],[Abfertigungsdatum],speditionsbuch.[Abfertigungsart],Abfertigungsarten.Abfertigungsbezeichnung, " &
                    " isnull(cast([AbsenderKundenNr] as nvarchar(7)) + ' ','') + [Absender] as Absender,isnull(cast([EmpfängerKundenNr] as nvarchar(7)) + ' ','') + [Empfänger] as Empfänger,isnull(cast([VermittlerKundenNr] as nvarchar(7)) + ' ','') + [Vermittler] as Vermittler,isnull(cast([FrachtführerKundenNr] as nvarchar(7)) + ' ','') + [Frachtführer] as Frachtführer, " &
                    " [LKW Kennzeichen],QKN,(SELECT isnull(Name,'') FROM Personal Where Personalnummer=ID) AS Sachbearbeiter,BelegNr, Grenzstelle  FROM [Speditionsbuch]  LEFT JOIN Abfertigungsarten ON Abfertigungsarten.Abfertigungsart=speditionsbuch.Abfertigungsart WHERE 1=1 "
            '/*Sachbearbeiter ,[Bar],[Fakturiert],[BelegNr],[ErfassungsNr],[AnzahlZA],[AnzahlZAFremd],[AnzahlZnV],[AnzahlZnVFremd],[AnzahlT1],[AnzahlT2],[AnzahlAE],[AnzahlCarnetTIR],[AnzahlBarvorlagen],[AnzahlSonstiges],[AnzahlGrenzgebühren],[AvisUhrzeit],[Rechnungsbetrag],[Abfertigungsanzahl],[Barzahlungsbetrag],[Sachbearbeiter],[Personalnummer],[AtlasBezNrEZA],[AtlasBezNrNCTS],[Versendungsland],[SB_CMR],[SB_CMRDatum],[veoerz_basbtg],[Zucker_MRN_Nr],[Zucker_MRN_Datum],[Zucker_Aufschub],[Zollsystem],[Bestimmungszollstelle],[Bürgschaft],[Sicherheitsbetrag],[SgutKompl],[Bestimmungsland],[EuFiskalEmpfänger],[QKN],[EndempfängerKundenNr],[Endempfänger] */
            With DataGridView
                '  .DataSource = myTable
                .SET_SQL(sqlstr & getSpedBuchWhere() & " ORDER BY Abfertigungsdatum  ", "FMZOLL", getSpedbuchList)
                'MsgBox(sqlstr)
                '   MsgBox(getSpedBuchWhere)
                .LOAD()
            End With
            showDGV()

        Else

            sqlstr &= " SELECT  Aviso.AvisoID,[LKW Kennzeichen],Anzahl,Abfertigungsanzahl,CASE WHEN isnull(Aviso.[Frächter_KdNr],0) > 0 then cast(Aviso.[Frächter_KdNr] as nvarchar(60)) + ' ' ELSE '' END  + Aviso.frächter  as Frächter, CASE WHEN isnull(Aviso.Auftraggeber_KdNr,0) > 0 then cast(Aviso.Auftraggeber_KdNr as nvarchar(60)) + ' ' ELSE '' END  + Aviso.Auftraggeber as Avisierer, Freigabe from"
            sqlstr &= "  (SELECT " & TopMax & " AvisoID,COUNT (*) As anzahl, SUM(Abfertigungsanzahl) as Abfertigungsanzahl ,  case when Speditionsbuch.AvisoID is null then ' - Kein LKW - ' ELSE  max([LKW Kennzeichen]) END as [LKW Kennzeichen]"
            sqlstr &= "         FROM [Speditionsbuch]   WHERE 1=1 "
            sqlstr &= getSpedBuchWhere()
            sqlstr &= "         group by Speditionsbuch.AvisoID"
            sqlstr &= "  ) as t"
            sqlstr &= " INNER JOIN " & AVISOSERVER & " on Aviso.avisoid=t.AvisoID "

            DataGridView.Columns.Clear()

            With dgvLKW

                .SET_SQL(sqlstr, "FMZOLL", getSpedbuchList)
                .LOAD()
                .Visible = True

                If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
                .RowHeadersVisible = False
                .ReadOnly = True
                .SelectionMode = DataGridViewSelectionMode.FullRowSelect
                .MultiSelect = False

                .Columns("Abfertigungsanzahl").Visible = False
                .Columns("AvisoID").HeaderText = "LKW-Id"
                .Columns("AvisoID").Width = 50

                .Columns("Anzahl").Width = 30
                .Columns("Anzahl").HeaderText = "Snd."
                .Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter

                .Columns("LKW Kennzeichen").Width = 100
                .Columns("LKW Kennzeichen").HeaderText = "LKW Kennz."

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

                .Columns("Freigabe").Width = 105


                lblErgebnis.Text = "Ergebnisse: " & .RowCount

                AddHandler .SelectionChanged, Sub()
                                                  DataGridView.Columns.Clear()
                                                  If dgvLKW.SelectedRows().Count = 0 Then Exit Sub

                                                  Dim sqlstrTmp = " SELECT " & TopMax & " [FilialenNr],[AbfertigungsNr],[UnterNr],[Abfertigungsdatum],speditionsbuch.[Abfertigungsart],Abfertigungsarten.Abfertigungsbezeichnung, " &
                                                          " isnull(cast([AbsenderKundenNr] as nvarchar(7)) + ' ','') + [Absender] as Absender,isnull(cast([EmpfängerKundenNr] as nvarchar(7)) + ' ','') + [Empfänger] as Empfänger,isnull(cast([VermittlerKundenNr] as nvarchar(7)) + ' ','') + [Vermittler] as Vermittler,isnull(cast([FrachtführerKundenNr] as nvarchar(7)) + ' ','') + [Frachtführer] as Frachtführer, " &
                                                          " [LKW Kennzeichen],QKN,(SELECT isnull(Name,'') FROM Personal Where Personalnummer=ID) AS Sachbearbeiter ,BelegNr, Grenzstelle FROM [Speditionsbuch]  LEFT JOIN Abfertigungsarten ON Abfertigungsarten.Abfertigungsart=speditionsbuch.Abfertigungsart WHERE 1=1 "

                                                  With DataGridView
                                                      '  .DataSource = myTable
                                                      .SET_SQL(sqlstrTmp & getSpedBuchWhere() & " AND AvisoID='" & dgvLKW.SelectedRows(0).Cells("AvisoID").Value & "' " & " ORDER BY Abfertigungsdatum  ", "FMZOLL", getSpedbuchList)
                                                      .LOAD()
                                                  End With
                                                  showDGV()
                                              End Sub

            End With
        End If

        Me.Cursor = Cursors.Default
    End Sub

    Sub showDGV()

        With DataGridView

            If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
            .RowHeadersVisible = False
            .ReadOnly = True
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
            .MultiSelect = False

            .Columns("FilialenNr").Width = 45
            .Columns("FilialenNr").HeaderText = "Filiale"
            .Columns("FilialenNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
            .Columns("AbfertigungsNr").Width = 80
            .Columns("AbfertigungsNr").HeaderText = "Abf-Nr"
            .Columns("AbfertigungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
            .Columns("UnterNr").Width = 45
            .Columns("UnterNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
            .Columns("Abfertigungsdatum").Width = 100
            .Columns("Abfertigungsdatum").HeaderText = "Abf-Dat."
            .Columns("Abfertigungsdatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter

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

            .Columns("Abfertigungsart").Width = 50
            .Columns("Abfertigungsart").HeaderText = "Abf.Nr"
            .Columns("Abfertigungsart").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter

            .Columns("Abfertigungsbezeichnung").MinimumWidth = 100
            .Columns("Abfertigungsbezeichnung").HeaderText = "Abfertigungsart"
            .Columns("Abfertigungsbezeichnung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill

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

            .Columns("Empfänger").MinimumWidth = 150
            .Columns("Empfänger").HeaderText = "Empfänger"
            .Columns("Empfänger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill

            .Columns("Frachtführer").MinimumWidth = 150
            .Columns("Frachtführer").HeaderText = "Frachtführer"
            .Columns("Frachtführer").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill

            .Columns("LKW Kennzeichen").Width = 120
            .Columns("LKW Kennzeichen").HeaderText = "LKW Kennzeichen"
            .Columns("Grenzstelle").Visible = False

            .Columns("BelegNr").Width = 160
            .Columns("Sachbearbeiter").MinimumWidth = 100
            'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung)
            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung = "NKD" Then
                .Columns("QKN").Width = 45
                .Columns("QKN").HeaderText = "QKN"
            Else
                .Columns("QKN").Visible = False
            End If

            lblErgebnis.Text = "Ergebnisse: " & .RowCount
        End With
    End Sub

    Function getSpedBuchWhere() As String
        Dim sqlstr = ""
        If txtAvisiererKdNr.Text <> "" And IsNumeric(txtAvisiererKdNr.Text) Then : sqlstr &= " AND [AvisiererKundenNr] LIKE @AvisiererKundenNr "
        ElseIf kdtxtAvisierer.Text <> "" Then : sqlstr &= " AND  [Avisierer] LIKE @Avisierer " : End If
        If txtAbsenderKdnr.Text <> "" And IsNumeric(txtAbsenderKdnr.Text) Then : sqlstr &= " AND [AbsenderKundenNr] LIKE @AbsenderKundenNr "
        ElseIf kdtxtAbsender.Text <> "" Then : sqlstr &= " AND  [Absender] LIKE @Absender " : End If

        If cbxOderEmpfanger.Checked Then
            If txtAuftraggeberKdnr.Text <> "" And IsNumeric(txtAuftraggeberKdnr.Text) Then : sqlstr &= " AND ( [VermittlerKundenNr] LIKE @VermittlerKundenNr OR  [EmpfängerKundenNr] LIKE @VermittlerKundenNr ) "
            ElseIf kdtxtAuftraggeber.Text <> "" Then : sqlstr &= " AND  ( [Vermittler] LIKE @Vermittler OR [Empfänger] LIKE @Vermittler  ) " : End If
        Else
            If txtAuftraggeberKdnr.Text <> "" And IsNumeric(txtAuftraggeberKdnr.Text) Then : sqlstr &= " AND [VermittlerKundenNr] LIKE @VermittlerKundenNr "
            ElseIf kdtxtAuftraggeber.Text <> "" Then : sqlstr &= " AND  [Vermittler] LIKE @Vermittler " : End If
            If txtEmpfaengerKdnr.Text <> "" And IsNumeric(txtEmpfaengerKdnr.Text) Then : sqlstr &= " AND [EmpfängerKundenNr] LIKE @EmpfängerKundenNr "
            ElseIf kdtxtEmpfaenger.Text <> "" Then : sqlstr &= " AND  [Empfänger] LIKE @Empfänger " : End If
        End If
        If txtFrachtfuehrerKdnr.Text <> "" And IsNumeric(txtFrachtfuehrerKdnr.Text) Then : sqlstr &= " AND [FrachtführerKundenNr] LIKE @FrachtführerKundenNr "
        ElseIf kdtxtFrachtfuehrer.Text <> "" Then : sqlstr &= " AND  [Frachtführer] LIKE @Frachtführer " : End If

        If txtEndempfaengerKdnr.Text <> "" And IsNumeric(txtEndempfaengerKdnr.Text) Then : sqlstr &= " AND [EndempfängerKundenNr] LIKE @EndempfängerKundenNr "
        ElseIf kdtxtEndempfaenger.Text <> "" Then : sqlstr &= " AND  [Endempfänger] LIKE @Endempfänger " : End If

        If txtFiskalEndempfaenger.Text <> "" Then sqlstr &= " AND [EuFiskalEmpfänger] LIKE @FiskalEndempfaengerKundenNr "
        If txtKdAuftragsNr.Text <> "" Then sqlstr &= " AND [KdAuftragsNr] LIKE @KdAuftragsNr "



        If txtAbfertDat.Text <> "" Then
            If txtAbfertDatBis.Text <> "" Then
                sqlstr &= " AND ([Abfertigungsdatum] BETWEEN @Abfertigungsdatum AND @Abfertigungsdatum_bis ) "
            Else
                sqlstr &= " AND ([Abfertigungsdatum] BETWEEN @Abfertigungsdatum AND @Abfertigungsdatum ) "
            End If
        End If

        If txtAbfertigungsnummer.Text <> "" Then
            If txtAbfertigungsnummerBis.Text <> "" Then
                sqlstr &= " AND ([AbfertigungsNr] BETWEEN @AbfertigungsNr AND @AbfertigungsNr_bis ) "
            Else
                sqlstr &= " AND AbfertigungsNr LIKE @AbfertigungsNr "
            End If
        End If
        If txtUnterNr.Text <> "" Then sqlstr &= " AND [UnterNr] LIKE @UnterNr "
        If cboFiliale._value <> "" Then sqlstr &= " AND [FilialenNr] LIKE @FilialenNr "


        Dim abfertigungsarten = getValues()
        If abfertigungsarten <> "" Then sqlstr &= " AND Speditionsbuch.Abfertigungsart IN (" & getValues() & ") "

        Dim filialeAuswahl = getValuesFiliale()
        If filialeAuswahl <> "" Then sqlstr &= " AND Speditionsbuch.FilialenNr IN (" & getValuesFiliale() & ") "

        Dim grenzeAuswahl = getValuesGrenzstelle()
        If grenzeAuswahl <> "" Then sqlstr &= " AND Speditionsbuch.Grenzstelle IN (" & getValuesGrenzstelle() & ") "


        If txtCRN.Text <> "" Then sqlstr &= " AND Speditionsbuch.QKN LIKE @QKN "
        If txtPackstücke.Text <> "" Then sqlstr &= " AND Speditionsbuch.Packstücke LIKE @Packstücke "
        If txtBelegNr.Text <> "" Then sqlstr &= " AND Speditionsbuch.BelegNr LIKE @BelegNr "
        If cboVersLand._value <> "" Then sqlstr &= " AND Speditionsbuch.Versendungsland LIKE @Versendungsland "
        If cboBestLand._value <> "" Then sqlstr &= " AND Speditionsbuch.Bestimmungsland LIKE @Bestimmungsland "
        If txtErfassungsnNr.Text <> "" Then sqlstr &= " AND Speditionsbuch.ErfassungsNr LIKE @ErfassungsNr "

        If txtAvisoId.Text.Trim <> "" And IsNumeric(txtAvisoId.Text.Trim) Then sqlstr &= " AND AvisoId=@AvisoId"

        If MyTextBox14.Text <> "" Then sqlstr &= " AND [LKW Kennzeichen] LIKE @LKW "
        If cbxBar.CheckState = CheckState.Checked Then sqlstr &= " AND Bar=1 "
        If cbxFakturiert.CheckState = CheckState.Checked Then sqlstr &= " AND Fakturiert=1 "
        If cbxCMR.CheckState = CheckState.Checked Then sqlstr &= " AND SB_CMR=1 "
        If cbxBar.CheckState = CheckState.Unchecked Then sqlstr &= " AND Bar=0 "
        If cbxFakturiert.CheckState = CheckState.Unchecked Then sqlstr &= " AND Fakturiert=0 "
        If cbxCMR.CheckState = CheckState.Unchecked Then sqlstr &= " AND SB_CMR=0 "



        If cboSachbearbeiter._value <> "" Then sqlstr &= " AND [Personalnummer] = @Personalnummer "
        If cboSB_Qs._value <> "" Then sqlstr &= " AND [PersonalnummerQS] = @PersonalnummerQS "
        Return sqlstr
    End Function

    Function getSpedbuchList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)

        Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Avisierer", kdtxtAvisierer.Text.Replace("*", "%")))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisiererKundenNr", txtAvisiererKdNr.Text.Replace("*", "%")))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Absender", kdtxtAbsender.Text.Replace("*", "%")))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderKundenNr", txtAbsenderKdnr.Text.Replace("*", "%")))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Empfänger", kdtxtEmpfaenger.Text.Replace("*", "%")))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerKundenNr", txtEmpfaengerKdnr.Text.Replace("*", "%")))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermittler", kdtxtAuftraggeber.Text.Replace("*", "%")))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerKundenNr", txtAuftraggeberKdnr.Text.Replace("*", "%")))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Frachtführer", kdtxtFrachtfuehrer.Text.Replace("*", "%")))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FrachtführerKundenNr", txtFrachtfuehrerKdnr.Text.Replace("*", "%")))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Endempfänger", kdtxtEndempfaenger.Text.Replace("*", "%")))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EndempfängerKundenNr", txtEndempfaengerKdnr.Text.Replace("*", "%")))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FiskalEndempfaengerKundenNr", txtFiskalEndempfaenger.Text.Replace("*", "%")))

        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNr", txtKdAuftragsNr.Text.Replace("*", "%")))

        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsdatum", txtAbfertDat.Text & " 00:00:00"))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsdatum_bis", txtAbfertDatBis.Text & " 23:59:59"))
        If txtAbfertigungsnummerBis.Text <> "" Then
            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", txtAbfertigungsnummer.Text.Replace("*", "")))
            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr_bis", txtAbfertigungsnummerBis.Text.Replace("*", "")))
        Else
            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", txtAbfertigungsnummer.Text.Replace("*", "%")))
        End If
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UnterNr", txtUnterNr.Text))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", cboFiliale._value))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKW", MyTextBox14.Text.Replace("*", "%").ToUpper))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("QKN", txtCRN.Text.Replace("*", "%").ToUpper))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Packstücke", txtPackstücke.Text.Replace("*", "%").ToUpper))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegNr", txtBelegNr.Text.Replace("*", "%").ToUpper))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Versendungsland", cboVersLand._value.Replace("*", "%").ToUpper))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bestimmungsland", cboBestLand._value.Replace("*", "%").ToUpper))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErfassungsNr", txtErfassungsnNr.Text.Replace("*", "%").ToUpper))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisoId", txtAvisoId.Text.Trim))


        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Personalnummer", cboSachbearbeiter._value))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerQS", cboSB_Qs._value))
        Return list

    End Function

    Private Sub frmSpeditionsbuchSuche_Load(sender As Object, e As EventArgs) Handles Me.Load
        If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
            AVISOSERVER = "[DEVELOPER\DEVSQL].AVISO_new.dbo.AVISO"
        End If



        txtAbfertDat.Text = Now.ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).ToShortDateString
        txtAbfertDatBis.Text = Now.ToShortDateString

        btnMonat.Text = MONAT.ToString("MMMM")
        btnJahr.Text = JAHR.Year


        kdtxtAbsender.initKdBox(Me.FindForm, txtAbsenderKdnr) '   initKdAbsender()
        kdtxtEmpfaenger.initKdBox(Me.FindForm, txtEmpfaengerKdnr) 'initKdEmpfaenger()
        kdtxtAuftraggeber.initKdBox(Me.FindForm, txtAuftraggeberKdnr) 'initKdAuftraggeber()
        kdtxtFrachtfuehrer.initKdBox(Me.FindForm, txtFrachtfuehrerKdnr) 'initKdFrachtfuehrer()
        kdtxtEndempfaenger.initKdBox(Me.FindForm, txtEndempfaengerKdnr) 'initKdEndempfaenger()


        Dim sbWhere = ""

        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
            Case "ATILLA" : sbWhere = " AND Niederlassung = 'SUA' "
            Case "IMEX" : sbWhere = " AND Mandant = 'IMEX' "
            Case Else
                sbWhere = " AND Mandant <> 'IMEX' "

        End Select


        cboSachbearbeiter.fillWithSQL("SELECT  ID,/*cast(ID as nvarchar(3)) +' ' + Name as*/ Name FROM Personal WHERE [Status]<>'L'  " & sbWhere & " ORDER BY Name ", False, "FMZOLL", True)
        cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)

        If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE <> "" And Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then
            cboFiliale._allowedValuesFreiText = {VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE}
            cboFiliale.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE)
            cboFiliale.Enabled = False
        End If

        'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
        '    Case "IMEX" : cboFiliale._allowedValuesFreiText = {"5501"}
        '        cboFiliale.changeItem("5501")
        '        cboFiliale.Enabled = False
        '    Case "ATILLA" : cboFiliale._allowedValuesFreiText = {"4801"}
        '        cboFiliale.changeItem("4801")
        '        cboFiliale.Enabled = False
        'End Select

        'ComboBox1.fillWithSQL("SELECT [Abfertigungsart],[Abfertigungsbezeichnung]  FROM [Abfertigungsarten] ORDER BY Abfertigungsart ", True, "FMZOLL")
        cboVersLand.fillWithSQL("SELECT LandKz, LandBez FROM [Länderverzeichnis für die Außenhandelsstatistik] ORDER BY LandKz ", True, "FMZOLL", True)
        cboBestLand.fillWithSQL("SELECT LandKz, LandBez FROM [Länderverzeichnis für die Außenhandelsstatistik] ORDER BY LandKz ", True, "FMZOLL", True)
        MyListBox1.fillWithSQL(" SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ORDER BY Abfertigungsart ", , "FMZOLL")

        If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE <> "" And Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then
            lstFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr='" & VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE & "' ORDER BY FilialenNr ", , "FMZOLL")
        Else
            lstFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", , "FMZOLL")
        End If
        'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
        '    Case "IMEX"
        '        lstFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr=5501 ORDER BY FilialenNr ", , "FMZOLL")
        '    Case "ATILLA"
        '        lstFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr=4801  ORDER BY FilialenNr ", , "FMZOLL")
        '    Case Else
        '        lstFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", , "FMZOLL")
        'End Select

        '   lstGrenze.fillWithSQL(" SELECT distinct(Grenzstelle),distinct(Grenzstelle)   FROM [VERAG].[dbo].[Speditionsbuch] where Grenzstelle is not null  order by Grenzstelle  ", , "FMZOLL")
        lstGrenze.Items.Clear()
        lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
        lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
        lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
        lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
        lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUA", "SUA"))


        Dim where = ""
        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
            Case "VERAG", "ATILLA", ""
            Case Else
                where = " AND mit_firma IN ('" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "','BEIDE') "
                'Case "IMEX" : where = " AND mit_firma IN ('IMEX','BEIDE') "
                '''   Case "ATILLA" : cboFiliale._allowedValuesFreiText = {"4801"}
        End Select

        cboSB_Qs.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " &
                                  " FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE mit_niederlassung IN ('SUB','Suben')  AND mit_abteilung='QS' AND [mit_gekuendigt]=0  " & where & "  order by name", False, "ADMIN", True)
        Button4.PerformClick()

        cboRolle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftraggeber", "VermittlerKundenNr"))
        cboRolle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Avisierer", "AvisiererKundenNr"))
        cboRolle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Absender", "AbsenderKundenNr"))
        cboRolle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Empfänger", "EmpfängerKundenNr"))
        cboRolle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Frachtführer", "FrachtführerKundenNr"))
        cboRolle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Endempfänger", "EndempfängerKundenNr"))
        cboRolle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FiskalEndempfaenger", "FiskalEndempfaengerKundenNr"))
        cboRolle.SelectedIndex = 0


        cboDetailberichtKdAtrNr.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftraggeber", "AUFTRAGGEBER"))
        cboDetailberichtKdAtrNr.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Avisierer", "AVISIERER"))
        cboDetailberichtKdAtrNr.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Empfänger", "EMPFAENGER"))
        cboDetailberichtKdAtrNr.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Frachtführer", "FRACHTFUEHRER"))
        cboDetailberichtKdAtrNr.SelectedIndex = 0


        Label29.Visible = False
        Label30.Visible = False

        If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then
            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_standartFiliale > 0 Then
                Dim aktNr = (New cOptionenDAL).getMaxPosNr(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_standartFiliale, Now.Year)
                Label30.Text = "akt. Pos-Nr. (" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_standartFiliale & "):"
                Label29.Text = aktNr
                Label29.Visible = True
                Label30.Visible = True
            End If
        End If

        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "SDL") Then
            btnQSAufteilung.Visible = True
            btnCSAufteilung.Visible = True
        End If
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen", "SDL") Then
            pnlBerichte.Visible = True
            Button16.Visible = True
            Button17.Visible = True
        End If

        If KDSearch > 0 Then
            kdtxtAuftraggeber.KdNr = KDSearch
            txtAbfertDat._value = dat_von.ToShortDateString
            txtAbfertDatBis._value = dat_bis.ToShortDateString
            cbxOderEmpfanger.Checked = True
        End If
    End Sub
    Function getValues() As String
        Dim s As String = ""
        For Each i In MyListBox1.SelectedItems
            s += DirectCast(i, VERAG_PROG_ALLGEMEIN.MyListItem).Value & ", "
        Next
        If s.EndsWith(", ") Then
            s = s.Substring(0, s.Length - 2)
        End If
        Return s
    End Function

    Function getValuesFiliale() As String
        Dim s As String = ""
        For Each i In lstFiliale.SelectedItems
            s += DirectCast(i, VERAG_PROG_ALLGEMEIN.MyListItem).Value & ", "
        Next
        If s.EndsWith(", ") Then
            s = s.Substring(0, s.Length - 2)
        End If
        Return s
    End Function

    Function getValuesGrenzstelle() As String
        Dim s As String = ""
        For Each i In lstGrenze.SelectedItems
            s += "'" & DirectCast(i, VERAG_PROG_ALLGEMEIN.MyListItem).Value & "', "
        Next
        If s.EndsWith(", ") Then
            s = s.Substring(0, s.Length - 2)
        End If
        Return s
    End Function

    ' Private Sub Button1_Click(sender As Object, e As EventArgs)
    '      For i = 0 To MyListBox1.Items.Count - 1
    '          MyListBox1.SetSelected(i, True)
    '      Next
    'End Sub
    '
    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
        For i = 0 To MyListBox1.Items.Count - 1
            MyListBox1.SetSelected(i, False)
        Next
    End Sub

    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        For i = 0 To lstFiliale.Items.Count - 1
            lstFiliale.SetSelected(i, False)
        Next
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        For i = 0 To MyListBox1.Items.Count - 1
            MyListBox1.SetSelected(i, True)
        Next
    End Sub

    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
        For i = 0 To lstFiliale.Items.Count - 1
            lstFiliale.SetSelected(i, True)
        Next
    End Sub
    '   Sub initKdAuftraggeber()
    '     Dim dgvFindKD As New DataGridView
    ' dgvFindKD.Name = "dgvFindKD"
    ' Me.Controls.Add(dgvFindKD)
    ' dgvFindKD.Visible = False
    ' kdtxtAuftraggeber.dgv = dgvFindKD
    ' AddHandler kdtxtAuftraggeber.PropertyChanged, Sub()
    ' txtAuftraggeberKdnr.Text = IIf(kdtxtAuftraggeber.KdNr_value > 0, kdtxtAuftraggeber.KdNr_value, "")
    ' End Sub
    ' End Sub

    ' Sub initKdAbsender()
    '     Dim dgvFindKD As New DataGridView
    ' dgvFindKD.Name = "dgvFindKD"
    ' Me.Controls.Add(dgvFindKD)
    ' dgvFindKD.Visible = False
    ' kdtxtAbsender.dgv = dgvFindKD
    ' kdtxtAbsender.kdNrField = txtAbsenderKdnr
    ' End Sub

    ' Sub initKdEmpfaenger()
    '     Dim dgvFindKD As New DataGridView
    ' dgvFindKD.Name = "dgvFindKD"
    ' Me.Controls.Add(dgvFindKD)
    ' dgvFindKD.Visible = False
    ' kdtxtEmpfaenger.dgv = dgvFindKD
    ' kdtxtEmpfaenger.kdNrField = txtEmpfaengerKdnr
    ' End Sub

    ' Sub initKdFrachtfuehrer()
    '     Dim dgvFindKD As New DataGridView
    ' dgvFindKD.Name = "dgvFindKD"
    ' Me.Controls.Add(dgvFindKD)
    ' dgvFindKD.Visible = False
    ' kdtxtFrachtfuehrer.dgv = dgvFindKD
    ' kdtxtFrachtfuehrer.kdNrField = txtFrachtfuehrerKdnr
    ' End Sub

    ' Sub initKdEndempfaenger()
    '     Dim dgvFindKD As New DataGridView
    ' dgvFindKD.Name = "dgvFindKD"
    ' Me.Controls.Add(dgvFindKD)
    ' dgvFindKD.Visible = False
    ' kdtxtEndempfaenger.dgv = dgvFindKD
    ' kdtxtEndempfaenger.kdNrField = txtEndempfaengerKdnr
    ' End Sub


    Private Sub txtAbfertDat_TextChanged(sender As Object, e As EventArgs) Handles txtAbfertDat.TextChanged
        txtAbfertDatBis.Enabled = sender.text <> ""
    End Sub

    Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles txtAbfertigungsnummer.TextChanged
        txtAbfertigungsnummerBis.Enabled = sender.text <> ""
    End Sub

    Private Sub DataGridView_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView.CellMouseClick
        If e.Button = Windows.Forms.MouseButtons.Right Then
            DataGridView.ClearSelection()
            DataGridView.Rows(e.RowIndex).Selected = True
        End If
    End Sub

    Private Sub DataGridView_CellContentClick(sender As Object, e As EventArgs) Handles DataGridView.DoubleClick, DataGridView.CellContentDoubleClick
        If DataGridView.SelectedRows.Count = 0 Then Exit Sub
        'If tbcntr.SelectedIndex = 0 Then
        Dim frmNacherfassung As New frmNacherfassungNEU
        frmNacherfassung.srchFiliale = DataGridView.SelectedRows(0).Cells("FilialenNr").Value
        frmNacherfassung.srchAbfertigungsnummer = DataGridView.SelectedRows(0).Cells("AbfertigungsNr").Value
        frmNacherfassung.srchUnterNr = DataGridView.SelectedRows(0).Cells("UnterNr").Value
        frmNacherfassung.ShowDialog(Me)
        DataGridView.RELOAD()
        ' End If

        '   frmNacherfassung.showAll()
    End Sub

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        Dim frmNacherfassung As New frmNacherfassungNEU
        ' frmNacherfassung.cboFiliale.Text = DataGridView.SelectedRows(0).Cells("FilialenNr").Value
        ' frmNacherfassung.txtUnterNr.Text = DataGridView.SelectedRows(0).Cells("UnterNr").Value
        ' frmNacherfassung.txtAbfertigungsnummer.Text = DataGridView.SelectedRows(0).Cells("AbfertigungsNr").Value
        frmNacherfassung.newEntry = True
        '   frmNacherfassung.FMZollPersID = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.mit_FMZollPersID
        ' frmNacherfassung.initDataBinding()
        frmNacherfassung.ShowDialog(Me)
        DataGridView.RELOAD()
    End Sub

    Private Sub EintragLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragLöschenToolStripMenuItem.Click
        If DataGridView.SelectedRows.Count > 0 Then
            If vbYes = MsgBox("Möchten Sie den Eintrag wirklich löschen?", vbYesNoCancel) Then
                Dim r As DataGridViewRow = DataGridView.SelectedRows(0)
                SQL.doSQL("DELETE FROM [Speditionsbuch] WHERE [FilialenNr]='" & r.Cells("FilialenNr").Value & "' AND [AbfertigungsNr] ='" & r.Cells("AbfertigungsNr").Value & "' AND [UnterNr]='" & r.Cells("UnterNr").Value & "' ", "FMZOLL")
                DataGridView.RELOAD()
            End If
        End If
    End Sub


    Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
        txtAbfertDat._value = CDate(sender.value).ToShortDateString
    End Sub

    Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged
        txtAbfertDatBis._value = CDate(sender.value).ToShortDateString
    End Sub

    Private Sub btnMonat_Click(sender As Object, e As EventArgs) Handles btnMonat.Click
        initBtns("Monat")
    End Sub

    Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
    Dim srcTAG As Date = CDate(Now.ToShortDateString)

    Dim JAHR As Date = CDate("01.01." & Now.Year)

    Sub initBtns(MonatJahr)
        btnMonat.Text = MONAT.ToString("MMMM")
        btnJahr.Text = JAHR.Year
        Select Case MonatJahr
            Case "Monat"
                DateTimePicker1.Value = MONAT
                DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1)
            Case "Jahr"
                '  If cbxGeschaftsjahr.Checked Then
                'DateTimePicker1.Value = JAHR.AddMonths(1)
                ' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1)
                ' Else
                DateTimePicker1.Value = JAHR
                DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1)
                'End If
            Case "Tag"
                '  If cbxGeschaftsjahr.Checked Then
                'DateTimePicker1.Value = JAHR.AddMonths(1)
                ' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1)
                ' Else
                DateTimePicker1.Value = srcTAG
                DateTimePicker2.Value = srcTAG
                If srcTAG = Now.ToShortDateString Then
                    Button5.Text = "Heute"
                ElseIf srcTAG = Now.AddDays(-1).ToShortDateString Then
                    Button5.Text = "Gestern"
                ElseIf srcTAG = Now.AddDays(-2).ToShortDateString Then
                    Button5.Text = "Vorgestern"
                Else
                    Button5.Text = srcTAG.ToString("dd.MM")
                End If

                'End If
            Case ""
                DateTimePicker1.Value = ("01." & Now.Month & "." & Now.Year)
                DateTimePicker2.Value = Now
        End Select
        btnSuche.PerformClick()
    End Sub

    Private Sub btnJahr_Click(sender As Object, e As EventArgs) Handles btnJahr.Click
        initBtns("Jahr")
    End Sub

    Private Sub btnBisMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click
        MONAT = MONAT.AddMonths(1)
        initBtns("Monat")
    End Sub

    Private Sub btnVonMonat_Click(sender As Object, e As EventArgs) Handles btnVonMonat.Click
        MONAT = MONAT.AddMonths(-1)
        initBtns("Monat")
    End Sub

    Private Sub btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click
        JAHR = JAHR.AddYears(1)
        initBtns("Jahr")
    End Sub

    Private Sub btnVonJahr_Click(sender As Object, e As EventArgs) Handles btnVonJahr.Click
        JAHR = JAHR.AddYears(-1)
        initBtns("Jahr")
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Try

            SplitContainer1.Panel2Collapsed = Not SplitContainer1.Panel2Collapsed

            If SplitContainer1.Panel2Collapsed Then
                '    pnlSearch.Height = SplitContainer1.Panel1.Height
                SplitContainer.SplitterDistance -= 200
            Else
                'pnlSearch.Height = SplitContainer1.Height
                SplitContainer.SplitterDistance += 200
            End If

            If Button4.Image Is SDL.My.Resources.Resources.pfeil_unten Then
                Button4.Image = SDL.My.Resources.Resources.pfeil_oben
            Else
                Button4.Image = SDL.My.Resources.Resources.pfeil_unten
            End If

        Catch ex As Exception

        End Try
    End Sub


    Private Sub FlatButton7_Click(sender As Object, e As EventArgs) Handles FlatButton7.Click
        DataGridView.RELOAD()
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        srcTAG = srcTAG.AddDays(-1)
        initBtns("Tag")
    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        srcTAG = srcTAG.AddDays(1)
        initBtns("Tag")
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        initBtns("Tag")
    End Sub

    Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click
        Me.Cursor = Cursors.WaitCursor
        cProgramFunctions.genExcelFromDGV_NEW(DataGridView, False)
        Me.Cursor = Cursors.Default
    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Dim displayFilter = cbxFilterInBericht.Checked
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen", "SDL") Then
            Dim sqlstr As String = ""
            If CheckBox1.Checked Then
                sqlstr &= " SELECT FilialenNr,Speditionsbuch.Abfertigungsart,Abfertigungsarten.Abfertigungsbezeichnung,sum(Abfertigungsanzahl) as Anzahl,SUM(Barzahlungsbetrag) as Barzahlungsbetrag,MIN(Abfertigungsdatum) as von, MAX(Abfertigungsdatum) as bis FROM Speditionsbuch LEFT JOIN Abfertigungsarten ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart WHERE 1=1 "
                sqlstr &= getSpedBuchWhere()
                sqlstr &= " group by FilialenNr,Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung "
                sqlstr &= " order by FilialenNr, Speditionsbuch.Abfertigungsart"
            Else
                sqlstr &= " SELECT Speditionsbuch.Abfertigungsart,Abfertigungsarten.Abfertigungsbezeichnung,sum(Abfertigungsanzahl) as Anzahl,SUM(Barzahlungsbetrag) as Barzahlungsbetrag,MIN(Abfertigungsdatum) as von, MAX(Abfertigungsdatum) as bis FROM Speditionsbuch LEFT JOIN Abfertigungsarten ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart WHERE 1=1 "
                sqlstr &= getSpedBuchWhere()
                sqlstr &= " group by Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung "
                sqlstr &= " order by Speditionsbuch.Abfertigungsart"
            End If
            Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL", , getSpedbuchList())
            'DataGridView.DataSource = dt


            Dim print As New frmPrintLayout
            print.Text = "Speditionsbericht"

            Dim rpt As New rptSpeditionsbericht

            rpt.DataSource = dt

            'Filter anzeigen
            If displayFilter Then
                rpt.lblFilterTxt.Visible = displayFilter
                rpt.txtFilter.Visible = displayFilter
                rpt.txtFilter.Text = SQL.getStringReplaceScalarVar(getSpedBuchWhere, getSpedbuchList)
            Else
                If txtUeberschr.Text <> "" Then
                    rpt.txtFilter.Text = txtUeberschr.Text
                    rpt.txtFilter.Visible = True
                    rpt.lblFilterTxt.Visible = True
                    rpt.lblFilterTxt.Text = "Beschreibung:"
                End If
            End If
            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                Case "IMEX" : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Label28.Text = "IMEX Customs Service GmbH"
                Case "ATILLA" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label28.Text = "ATILLA Spedition"
                Case Else
            End Select


            If CheckBox1.Checked Then
                rpt.GroupHeader1.DataField = "FilialenNr" 'Gruppierung
            End If
            If rpt.DataSource.rows.count = 0 Then
                rpt.Dispose() : print.Dispose()
                MsgBox("Keine Daten vorhanden!")
                Exit Sub
            End If

            Dim sum = 0
            rpt.lblUeberschrift.Text = "Speditionsbericht  " & txtAbfertDat.Text & " bis " & txtAbfertDatBis.Text
            rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
            'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & "  /  " & PERSONAL.Niederlassung

            'Dim cnt As Integer = 0
            rpt.lblDat.Text = Now.ToLongDateString
            Dim sumAnz As Double = 0
            Dim sumBar As Double = 0

            If cbxSpedBerichtBar.Checked Then
                rpt.lblBarzahlungsbetrag.Visible = True
                rpt.lblBarTitle.Visible = True
                rpt.lblSummeBar.Visible = True
            Else
                rpt.lblBarzahlungsbetrag.Visible = False
                rpt.lblBarTitle.Visible = False
                rpt.lblSummeBar.Visible = False
            End If
            rpt.lblFiliale.Text = "Alle Filialen"

            AddHandler rpt.Detail.Format, Sub()
                                              rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
                                              rpt.lblBis.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString
                                              rpt.lblAbfAnz.Text = rpt.Fields.Item("Anzahl").Value
                                              rpt.lblAbfArtNr.Text = If(rpt.Fields.Item("Abfertigungsart").Value Is DBNull.Value, "-", rpt.Fields.Item("Abfertigungsart").Value)
                                              rpt.lblAbfArt.Text = If(rpt.Fields.Item("Abfertigungsbezeichnung").Value Is DBNull.Value, "-", rpt.Fields.Item("Abfertigungsbezeichnung").Value)

                                              rpt.lblBarzahlungsbetrag.Text = CDbl(rpt.Fields.Item("Barzahlungsbetrag").Value()).ToString("C")

                                              sumBar += CDbl(rpt.Fields.Item("Barzahlungsbetrag").Value)
                                              sumAnz += CDbl(rpt.Fields.Item("Anzahl").Value)
                                          End Sub
            AddHandler rpt.GroupHeader1.Format, Sub()
                                                    If CheckBox1.Checked Then rpt.lblFiliale.Text = SQL.getValueTxtBySql("SELECT CAST(FilialenNr as varchar (4)) + ' ' + Grenzstelle FROM filialen WHERE FilialenNr='" & rpt.Fields.Item("FilialenNr").Value & "'", "FMZOLL")
                                                    sumAnz = 0
                                                    sumBar = 0
                                                End Sub
            AddHandler rpt.GroupFooter1.Format, Sub()
                                                    rpt.lblSummeAnzahl.Text = sumAnz
                                                    rpt.lblSummeBar.Text = sumBar.ToString("C")
                                                End Sub

            print.Viewer.LoadDocument(rpt)
            print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
            print.Show()
        End If
    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles btnQSAufteilung.Click
        'MsgBox("Liefer erst korrekte Daten, wenn alle NL umgestellt!")
        DataGridView.Columns.Clear()

        Dim sqlstr As String = ""
        sqlstr &= " SELECT Aviso.[Grenzstelle],  SUM(Speditionsbuch.Abfertigungsanzahl) as Anzahl FROM Speditionsbuch INNER JOIN " & AVISOSERVER & " on Aviso.avisoid=Speditionsbuch.AvisoID WHERE  PersonalnummerQS is not null "
        sqlstr &= " and FilialenNr NOT IN ( 4801,4806 ) "
        Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr & getSpedBuchWhere() &
                                               " GROUP BY Aviso.[Grenzstelle]" &
                                               " ORDER BY Anzahl DESC",
                                    "FMZOLL", , getSpedbuchList())
        DataGridView.DataSource = dt
    End Sub

    Private Sub Button9_Click_1(sender As Object, e As EventArgs) Handles Button9.Click
        Dim displayFilter = cbxFilterInBericht.Checked
        Dim groupByKd = cboRolle._value

        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen", "SDL") Then
            Dim sqlstr As String = ""
            If txtMax.Text <> "" And Not IsNumeric(txtMax.Text) Then
                MsgBox("Max muss eine Zahl sein!") : Exit Sub
            End If
            sqlstr &= " SELECT " & If(txtMax.Text <> "", " TOP " & txtMax.Text, "") & " isnull(Speditionsbuch.XXXXX,'-') as KdNr,isnull((SELECT Ordnungsbegriff FROM Adressen WHERE AdressenNr=XXXXX),'-') as Kunde, sum(Abfertigungsanzahl) as Anzahl,SUM(Barzahlungsbetrag) as Barzahlungsbetrag,MIN(Abfertigungsdatum) as von, MAX(Abfertigungsdatum) as bis FROM Speditionsbuch WHERE 1=1 "
            sqlstr &= getSpedBuchWhere()
            sqlstr &= " group by Speditionsbuch.XXXXX"
            sqlstr &= " order by Anzahl DESC,Kunde"
            Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr.Replace("XXXXX", groupByKd), "FMZOLL", , getSpedbuchList())
            'DataGridView.DataSource = dt


            Dim print As New frmPrintLayout
            print.Text = "Speditionsbericht"

            Dim rpt As New rptSpeditionsberichtKunde

            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                Case "IMEX" : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Label28.Text = "IMEX Customs Service GmbH"
                Case "ATILLA" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label28.Text = "ATILLA Spedition"
                Case Else
            End Select

            rpt.DataSource = dt

            'Filter anzeigen
            If displayFilter Then
                rpt.lblFilterTxt.Visible = displayFilter
                rpt.txtFilter.Visible = displayFilter
                rpt.txtFilter.Text = SQL.getStringReplaceScalarVar(getSpedBuchWhere, getSpedbuchList)
            Else
                If txtUeberschr.Text <> "" Then
                    rpt.txtFilter.Text = txtUeberschr.Text
                    rpt.txtFilter.Visible = True
                    rpt.lblFilterTxt.Visible = True
                    rpt.lblFilterTxt.Text = "Beschreibung:"
                End If
            End If


            If rpt.DataSource.rows.count = 0 Then
                rpt.Dispose() : print.Dispose()
                MsgBox("Keine Daten vorhanden!")
                Exit Sub
            End If

            Dim sum = 0
            Dim cnt = 0
            rpt.lblUeberschrift.Text = "Speditionsbericht nach Kunden  " & txtAbfertDat.Text & " bis " & txtAbfertDatBis.Text
            rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
            'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & "  /  " & PERSONAL.Niederlassung

            'Dim cnt As Integer = 0
            rpt.lblDat.Text = Now.ToLongDateString
            Dim sumAnz As Double = 0
            Dim sumBar As Double = 0

            rpt.lblFiliale.Text = "Alle Filialen"

            AddHandler rpt.Detail.Format, Sub()
                                              cnt += 1
                                              '   rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
                                              '  rpt.lblBis.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString
                                              rpt.lblNr.Text = cnt
                                              ' rpt.lblAbfArtNr.Text = rpt.Fields.Item("Abfertigungsart").Value
                                              ' rpt.lblAbfArt.Text = rpt.Fields.Item("Abfertigungsbezeichnung").Value
                                              rpt.lblAbfAnz.Text = rpt.Fields.Item("Anzahl").Value

                                              rpt.lblKunde.Text = CInt(If(rpt.Fields.Item("KdNr").Value, "0")).ToString("D6") & " " & rpt.Fields.Item("Kunde").Value

                                              rpt.lblBarzahlungsbetrag.Text = CDbl(rpt.Fields.Item("Barzahlungsbetrag").Value()).ToString("C")

                                              sumBar += CDbl(rpt.Fields.Item("Barzahlungsbetrag").Value)
                                              sumAnz += CDbl(rpt.Fields.Item("Anzahl").Value)
                                          End Sub
            AddHandler rpt.GroupHeader1.Format, Sub()
                                                    sumAnz = 0
                                                    sumBar = 0
                                                End Sub
            AddHandler rpt.GroupFooter1.Format, Sub()
                                                    rpt.lblSummeAnzahl.Text = sumAnz
                                                    rpt.lblSummeBar.Text = sumBar.ToString("C")
                                                End Sub

            print.Viewer.LoadDocument(rpt)
            print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
            print.Show()
        End If
    End Sub

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        Dim displayFilter = cbxFilterInBericht.Checked
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen", "SDL") Then
            Dim sqlstr As String = ""
            '     If CheckBox1.Checked Then

            Dim sql_KdAuftragsNr = ",Speditionsbuch.KdAuftragsNr as KdAuftragsNr"
            Select Case cboDetailberichtKdAtrNr._value
                Case "AVISIERER" : sql_KdAuftragsNr = ",Speditionsbuch.KdAuftragsNrAvisierer as KdAuftragsNr"
                Case "EMPFAENGER" : sql_KdAuftragsNr = ",Speditionsbuch.KdAuftragsNrEmpfaenger as KdAuftragsNr"
                Case "FRACHTFUEHRER" : sql_KdAuftragsNr = ",Speditionsbuch.KdAuftragsNrFrachtfuehrer as KdAuftragsNr"
            End Select


            sqlstr &= " SELECT  FilialenNr, AbfertigungsNr,UnterNr, Speditionsbuch.Abfertigungsart as Abfertigungsart ,Abfertigungsdatum, BelegNr, Rohmasse, Vermerk, Packstücke, AbsenderKundenNr, Absender, EmpfängerKundenNr, Empfänger, VermittlerKundenNr, Vermittler, "
            sqlstr &= "         FrachtführerKundenNr, Frachtführer, AvisiererKundenNr, Avisierer,Währungscode,Barzahlungsbetrag,Rechnungsbetrag, [LKW Kennzeichen],"
            sqlstr &= "         Abfertigungsanzahl, Speditionsbuch.Abfertigungsart, Abfertigungsbezeichnung,AvisoID" & sql_KdAuftragsNr & ",Speditionsbuch.KdAuftragsNrAvisierer,Speditionsbuch.KdAuftragsNrEmpfaenger,Speditionsbuch.KdAuftragsNrFrachtfuehrer, Speditionsbuch.Bemerkungen "
            sqlstr &= " FROM Speditionsbuch LEFT JOIN Abfertigungsarten ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart "
            sqlstr &= " LEFT JOIN Währungstabelle on  Währungstabelle.Währungsschlüssel=speditionsbuch.Währungsschlüssel WHERE 1=1 "
            sqlstr &= getSpedBuchWhere()
            If CheckBox2.Checked Then : sqlstr &= " order by FilialenNr, AvisoId,Speditionsbuch.Abfertigungsart,Abfertigungsdatum"
            Else : sqlstr &= " order by FilialenNr, Speditionsbuch.Abfertigungsart,Abfertigungsdatum"
            End If

            ' MsgBox(sqlstr)
            Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL", , getSpedbuchList())
            'DataGridView.DataSource = dt


            Dim print As New frmPrintLayout
            print.Text = "Speditionsbericht"

            Dim rpt As New rptSpeditionsberichtKdSpez

            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                Case "IMEX" : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Label28.Text = "IMEX Customs Service GmbH"
                Case "ATILLA" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label28.Text = "ATILLA Spedition"
                Case Else
            End Select

            rpt.DataSource = dt

            'Filter anzeigen
            If displayFilter Then
                rpt.lblFilterTxt.Visible = displayFilter
                rpt.txtFilter.Visible = displayFilter
                rpt.txtFilter.Text = SQL.getStringReplaceScalarVar(getSpedBuchWhere, getSpedbuchList)
            Else
                If txtUeberschr.Text <> "" Then
                    rpt.txtFilter.Text = txtUeberschr.Text
                    rpt.txtFilter.Visible = True
                    rpt.lblFilterTxt.Visible = True
                    rpt.lblFilterTxt.Text = "Beschreibung:"
                End If
            End If



            If CheckBox1.Checked Then
                rpt.GroupHeader1.DataField = "FilialenNr" 'Gruppierung
            Else
                rpt.lblFiliale.Text = "Alle Filialen"
                rpt.GroupFooter1.Visible = False ' Sonst doppelete Summe
            End If

            If CheckBox2.Checked Then
                rpt.GroupHeader3.DataField = "AvisoId" 'Gruppierung
                rpt.lblGesSumLKWsFilialeAnzahl.Visible = True
                rpt.lblSumFilialeLKWs.Visible = True

                rpt.lblGesGesSumLKWsAnzahl.Visible = True
                rpt.lblGesGesSumLKWs.Visible = True
            Else
                rpt.GroupHeader3.Visible = False ' Sonst doppelete Summe
                rpt.GroupFooter3.Visible = False ' Sonst doppelete Summe
                rpt.lblGesGesSumLKWsAnzahl.Visible = False
                rpt.lblGesGesSumLKWs.Visible = False
            End If


            If CheckBox3.Checked Then
                rpt.GroupHeader2.DataField = "Abfertigungsart" 'Gruppierung
            Else
                rpt.GroupHeader2.Visible = False ' Sonst doppelete Summe
                rpt.GroupFooter2.Visible = False ' Sonst doppelete Summe
            End If


            ' rpt.GroupHeader2.DataField = "AvisoId" 'Gruppierung

            ' MsgBox(rpt.DataSource.rows.count)
            If rpt.DataSource.rows.count = 0 Then
                rpt.Dispose() : print.Dispose()
                MsgBox("Keine Daten vorhanden!")
                Exit Sub
            End If

            Dim AvsioIdNull As String = ""
            For Each r In rpt.DataSource.rows
                If r("AvisoId") Is DBNull.Value OrElse r("AvisoId") <= 0 Then
                    AvsioIdNull &= r("FilialenNr") & " " & r("AbfertigungsNr") & " " & r("UnterNr") & "  -  " & r("Abfertigungsdatum") & "  -  " & r("LKW Kennzeichen") & vbNewLine
                End If
            Next
            If AvsioIdNull <> "" Then
                MsgBox("Achtung: folgende Sendungen sind keinem LKW/Aviso zugeordnet:" & vbNewLine & AvsioIdNull)

            End If
            Dim sum = 0
            rpt.lblUeberschrift.Text = "Speditionsbuch Details  " & txtAbfertDat.Text & " bis " & txtAbfertDatBis.Text
            rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
            'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & "  /  " & PERSONAL.Niederlassung



            'Dim cnt As Integer = 0
            rpt.lblDat.Text = Now.ToLongDateString
            Dim sumAnz As Double = 0
            Dim sumBar As Double = 0
            Dim sumRg As Double = 0
            Dim gesSumAnz As Double = 0
            Dim gesSumBar As Double = 0
            Dim gesSumRg As Double = 0
            Dim gesgesSumAnz As Double = 0
            Dim gesgesSumBar As Double = 0
            Dim gesgesSumRg As Double = 0
            Dim SumAnzLKW As Double = 0
            Dim gesSumAnzLKW As Double = 0
            Dim gesgesSumAnzLKW As Double = 0

            Dim sumAbfBez = ""
            Dim gesFilBez = ""

            '   Dim gesgesAbfBez = ""

            AddHandler rpt.Detail.Format, Sub()
                                              ' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
                                              ' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString

                                              rpt.lblPosNr.Text = rpt.Fields.Item("FilialenNr").Value & " " & rpt.Fields.Item("AbfertigungsNr").Value & " " & rpt.Fields.Item("UnterNr").Value
                                              rpt.lblAbfDatum.Text = "Abf.Datum: " & rpt.Fields.Item("Abfertigungsdatum").Value
                                              rpt.lblBezugsNr.Text = checkNull(rpt.Fields.Item("BelegNr").Value)
                                              rpt.lblRohmasse.Text = "Rohmasse: " & checkNull(rpt.Fields.Item("Rohmasse").Value, "0") & "kg"
                                              rpt.txtVermerk.Text = checkNull(rpt.Fields.Item("Vermerk").Value)
                                              rpt.txtPackstücke.Text = checkNull(rpt.Fields.Item("Packstücke").Value)
                                              If cbxSpedDetailBem.Checked Then
                                                  If checkNull(rpt.Fields.Item("Bemerkungen").Value) <> "" Then
                                                      rpt.txtPackstücke.Text = (rpt.txtPackstücke.Text & vbNewLine & vbNewLine & checkNull(rpt.Fields.Item("Bemerkungen").Value)).trim
                                                  End If
                                              End If

                                              rpt.lblAbsKdNr.Text = checkNull(rpt.Fields.Item("AbsenderKundenNr").Value)
                                              rpt.lblAbs.Text = checkNull(rpt.Fields.Item("Absender").Value)
                                              rpt.lblEmpfKdNr.Text = checkNull(rpt.Fields.Item("EmpfängerKundenNr").Value)
                                              rpt.lblEmpf.Text = checkNull(rpt.Fields.Item("Empfänger").Value)
                                              rpt.lblAuftrKdNr.Text = checkNull(rpt.Fields.Item("VermittlerKundenNr").Value)
                                              rpt.lblAuftr.Text = checkNull(rpt.Fields.Item("Vermittler").Value)
                                              rpt.lblFrachtfKdNr.Text = checkNull(rpt.Fields.Item("FrachtführerKundenNr").Value)
                                              rpt.lblFrachtf.Text = checkNull(rpt.Fields.Item("Frachtführer").Value)
                                              '  rpt.lblLKWNr.Text = rpt.Fields.Item("AvisiererKundenNr").Value
                                              '    rpt.lblLKWNr.Text = rpt.Fields.Item("Avisierer").Value
                                              rpt.lblWaehrung.Text = checkNull(rpt.Fields.Item("Währungscode").Value)
                                              'lblGesgesWaehrung.te

                                              rpt.lblKdAuftragNr.Text = checkNull(rpt.Fields.Item("KdAuftragsNr").Value)


                                              If rpt.lblKdAuftragNr.Text <> "" Then rpt.lblKdAuftragNr.Text = "Auftrag: " & rpt.lblKdAuftragNr.Text
                                              Dim bar As Double = 0
                                              Dim rg As Double = 0
                                              Dim anz As Double = 0
                                              If IsNumeric(checkNull(rpt.Fields.Item("Barzahlungsbetrag").Value)) Then bar = CDbl(rpt.Fields.Item("Barzahlungsbetrag").Value())
                                              If IsNumeric(checkNull(rpt.Fields.Item("Rechnungsbetrag").Value)) Then rg = CDbl(rpt.Fields.Item("Rechnungsbetrag").Value())
                                              rpt.lblBarzahlungsbetrag.Text = CDbl(bar).ToString("N2", CultureInfo.CurrentCulture)
                                              rpt.lblRechnungsBetrag.Text = CDbl(rg).ToString("N2", Globalization.CultureInfo.CurrentCulture)

                                              ' rpt.lblRechnungsbetragInEur.Text = rpt.Fields.Item("Rechnungsbetrag").Value * rpt.Fields.Item("Umrechnungskurs").Value

                                              rpt.lblLKWNr.Text = checkNull(rpt.Fields.Item("LKW Kennzeichen").Value)
                                              rpt.lblAnzahl.Text = checkNull(rpt.Fields.Item("Abfertigungsanzahl").Value)
                                              rpt.lblAbfertigungsart.Text = checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value)
                                              ' rpt.lblAbs.Text = checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value)

                                              ' rpt.lblBarzahlungsbetrag.Text = CDbl(rpt.Fields.Item("Barzahlungsbetrag").Value()).ToString("C")

                                              'sumBar += CDbl(rpt.Fields.Item("Barzahlungsbetrag").Value)
                                              If IsNumeric(checkNull(rpt.Fields.Item("Abfertigungsanzahl").Value)) Then anz = CDbl(rpt.Fields.Item("Abfertigungsanzahl").Value)

                                              sumAbfBez = checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value)

                                              sumBar += bar
                                              sumRg += rg
                                              sumAnz += anz
                                              gesSumAnz += anz
                                              gesSumBar += bar
                                              gesSumRg += rg
                                              gesgesSumAnz += anz
                                              gesgesSumBar += bar
                                              gesgesSumRg += rg
                                              SumAnzLKW += anz
                                          End Sub
            AddHandler rpt.GroupHeader1.Format, Sub()
                                                    If CheckBox1.Checked Then
                                                        rpt.lblFiliale.Text = SQL.getValueTxtBySql("SELECT CAST(FilialenNr as varchar (4)) + ' ' + Grenzstelle FROM filialen WHERE FilialenNr='" & rpt.Fields.Item("FilialenNr").Value & "'", "FMZOLL")
                                                        rpt.lblGesSumFilialeBez.Text = rpt.lblFiliale.Text
                                                    Else
                                                        rpt.lblFiliale.Text = "Alle Filialen"
                                                    End If


                                                    gesSumAnz = 0
                                                    gesSumBar = 0
                                                    gesSumRg = 0
                                                    gesSumAnzLKW = 0
                                                End Sub
            AddHandler rpt.GroupHeader2.Format, Sub()
                                                    rpt.lblAbfertigungsartHeader.Text = checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value)
                                                    sumBar = 0
                                                    sumRg = 0
                                                    sumAnz = 0
                                                End Sub
            AddHandler rpt.GroupHeader3.Format, Sub()
                                                    rpt.lblLKW.Text = "LKW: " & If(rpt.Fields.Item("LKW Kennzeichen").Value Is DBNull.Value, "LKW: - keine Zuordnung -", checkNull(rpt.Fields.Item("LKW Kennzeichen").Value))
                                                    rpt.lblGesSumLKWBez.Text = "LKW: " & If(rpt.Fields.Item("LKW Kennzeichen").Value Is DBNull.Value, "LKW: - keine Zuordnung -", checkNull(rpt.Fields.Item("LKW Kennzeichen").Value))
                                                    SumAnzLKW = 0
                                                    gesSumAnzLKW += 1
                                                    gesgesSumAnzLKW += 1
                                                End Sub
            AddHandler rpt.GroupFooter2.Format, Sub()
                                                    rpt.lblSumAbfertigungsart.Text = sumAbfBez
                                                    rpt.lblSumBarzahlungsbetrag.Text = sumBar.ToString("N2", CultureInfo.CurrentCulture)
                                                    rpt.lblSumRechnungsbetrag.Text = sumRg.ToString("N2", CultureInfo.CurrentCulture)
                                                    rpt.lblSumAnzahl.Text = sumAnz.ToString("N0")
                                                    'rpt.lblSuag.Text = sumRg.ToString("C")
                                                End Sub
            AddHandler rpt.GroupFooter3.Format, Sub()
                                                    rpt.lblGesSumAnzahlLKW.Text = SumAnzLKW
                                                    'rpt.lblSuag.Text = sumRg.ToString("C")
                                                End Sub

            AddHandler rpt.GroupFooter1.Format, Sub()

                                                    '  If CheckBox1.Checked Then
                                                    '      rpt.lblGesSumFilialeBez.Text = SQL.getValueTxtBySql("SELECT CAST(FilialenNr as varchar (4)) + ' ' + Grenzstelle FROM filialen WHERE FilialenNr='" & rpt.Fields.Item("FilialenNr").Value & "'", "FMZOLL")
                                                    '  Else
                                                    '      rpt.lblGesSumFilialeBez.Text = ""
                                                    ' End If

                                                    rpt.lblGesSumBarzahlungsbetrag.Text = gesSumBar.ToString("N2", CultureInfo.CurrentCulture)
                                                    rpt.lblGesSumRechnungsbetrag.Text = gesSumRg.ToString("N2", CultureInfo.CurrentCulture)
                                                    rpt.lblGesSumAnzahl.Text = gesSumAnz.ToString("N0")
                                                    rpt.lblGesSumLKWsFilialeAnzahl.Text = gesSumAnzLKW
                                                End Sub
            AddHandler rpt.ReportFooter1.Format, Sub()
                                                     rpt.lblGesGesSumBarzahlungsbetrag.Text = gesgesSumBar.ToString("N2", CultureInfo.CurrentCulture)
                                                     rpt.lblGesGesSumRechnungsbetrag.Text = gesgesSumRg.ToString("N2", CultureInfo.CurrentCulture)
                                                     rpt.lblGesGesSumAnzahl.Text = gesgesSumAnz.ToString("N0")
                                                     rpt.lblGesGesSumLKWsAnzahl.Text = gesgesSumAnzLKW

                                                 End Sub

            Print.Viewer.LoadDocument(rpt)
            Print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
            Print.Show()
        End If
    End Sub

    Function checkNull(o As Object, Optional ret As String = "") As Object
        If o Is Nothing Then Return ret
        If o Is DBNull.Value Then Return ret
        Return o
    End Function

    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        'MsgBox("Liefer erst korrekte Daten, wenn alle NL umgestellt!")
        DataGridView.Columns.Clear()
        Dim sqlstr As String = ""
        sqlstr &= "  select SUM(Speditionsbuch.Abfertigungsanzahl) as Anzahl ,[Grenzstelle] from Speditionsbuch  WHERE 1=1  "
        Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr & getSpedBuchWhere() & " GROUP BY [Grenzstelle]  order by Anzahl desc ",
                                    "FMZOLL", , getSpedbuchList())
        DataGridView.DataSource = dt
    End Sub

    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles btnCSAufteilung.Click
        'MsgBox("Liefer erst korrekte Daten, wenn alle NL umgestellt!")
        DataGridView.Columns.Clear()
        Dim sqlstr As String = ""
        sqlstr &= " SELECT Aviso.[Grenzstelle], SUM(Speditionsbuch.Abfertigungsanzahl) as Anzahl FROM Speditionsbuch INNER JOIN " & AVISOSERVER & " on Aviso.avisoid=Speditionsbuch.AvisoID WHERE  Abfertigungsart IN (26,28) "
        sqlstr &= " AND Aviso.[Grenzstelle] <> 'SFD' and FilialenNr NOT IN ( 4801,4806 ) "
        Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr & getSpedBuchWhere() &
                                               " GROUP BY Aviso.[Grenzstelle]" &
                                               " ORDER BY Anzahl DESC",
                                    "FMZOLL", , getSpedbuchList())
        DataGridView.DataSource = dt

    End Sub

    Private Sub tbcntr_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbcntr.SelectedIndexChanged
        btnSuche.PerformClick()
    End Sub


    Private Sub DataGridView_ColumnHeaderMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView.ColumnHeaderMouseClick
        If e.Button = Windows.Forms.MouseButtons.Right Then

        End If
    End Sub

    Private Sub cbxOderEmpfanger_CheckedChanged(sender As Object, e As EventArgs) Handles cbxOderEmpfanger.CheckedChanged
        kdtxtEmpfaenger.Enabled = Not cbxOderEmpfanger.Checked
    End Sub

    Private Sub Button15_Click_1(sender As Object, e As EventArgs) Handles Button15.Click
        Try
            If DataGridView.SelectedRows.Count = 0 Then Exit Sub
            If Not IsNumeric(DataGridView.SelectedRows(0).Cells("FilialenNr").Value) Then Exit Sub
            If Not IsNumeric(DataGridView.SelectedRows(0).Cells("AbfertigungsNr").Value) Then Exit Sub
            cProgramFunctions.openThereforeNavigator(DataGridView.SelectedRows(0).Cells("FilialenNr").Value.ToString & DataGridView.SelectedRows(0).Cells("AbfertigungsNr").Value.ToString, DataGridView.SelectedRows(0).Cells("FilialenNr").Value)
        Catch ex As Exception
            MsgBox("Fehler beim Öffnen!" & vbNewLine & ex.Message & ex.StackTrace)
        End Try
    End Sub

    Private Sub cbxFilterInBericht_CheckedChanged(sender As Object, e As EventArgs) Handles cbxFilterInBericht.CheckedChanged
        txtUeberschr.Enabled = Not cbxFilterInBericht.Checked
    End Sub

    Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATILLA_VERWALTUNG", "AVISO") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen", "SDL") Then
            Dim f As New Form
            Dim u As New SDL.usrCntlBrgBuchungenFremd
            f.Size = New Size(720, 185)
            f.Icon = Me.FindForm.Icon
            u.Dock = DockStyle.Fill
            f.Controls.Add(u)
            f.StartPosition = FormStartPosition.CenterScreen
            f.Show(Me)
        End If
    End Sub

    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATILLA_VERWALTUNG", "AVISO") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen", "SDL") Then
            Dim f As New Form
            Dim u As New SDL.usrCntlBrgBuchungenVERAG
            f.Size = New Size(720, 185)
            f.Icon = Me.FindForm.Icon
            u.Dock = DockStyle.Fill
            f.Controls.Add(u)
            f.StartPosition = FormStartPosition.CenterScreen
            f.Show(Me)
        End If
    End Sub

    Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
        Dim kdnrTmp = -1
        Dim FirmaTmp = ""
        If kdtxtAuftraggeber.KdNr_value > 0 Then kdnrTmp = kdtxtAuftraggeber.KdNr_value : FirmaTmp = kdtxtAuftraggeber.Text
        If kdtxtEmpfaenger.KdNr_value > 0 Then kdnrTmp = kdtxtEmpfaenger.KdNr_value : FirmaTmp = kdtxtEmpfaenger.Text
        If kdtxtEndempfaenger.KdNr_value > 0 Then kdnrTmp = kdtxtEndempfaenger.KdNr_value : FirmaTmp = kdtxtEndempfaenger.Text
        If kdtxtAvisierer.KdNr_value > 0 Then kdnrTmp = kdtxtAvisierer.KdNr_value : FirmaTmp = kdtxtAvisierer.Text
        Dim VBNr = -1
        Dim path = getGelangensbestätigung(FirmaTmp, kdnrTmp,, VBNr)
        If path <> "" Then

            SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Gelangensbestaetigung, kdnrTmp, {kdnrTmp, path, VBNr})
        End If
    End Sub

    Function getGelangensbestätigung(Firma As String, kdnrTmp As Integer, Optional showDok As Boolean = False, Optional ByRef VBNr As Integer = -1) As String
        Dim displayFilter = cbxFilterInBericht.Checked
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen", "SDL") Then
            Dim sqlstr As String = ""
            '     If CheckBox1.Checked Then

            Dim sql_KdAuftragsNr = "" '",Speditionsbuch.KdAuftragsNr as KdAuftragsNr"


            sqlstr &= " SELECT  FilialenNr, AbfertigungsNr,UnterNr, Speditionsbuch.Abfertigungsart as Abfertigungsart ,Abfertigungsdatum, BelegNr, Rohmasse, Vermerk, Packstücke, AbsenderKundenNr, Absender, EmpfängerKundenNr, Empfänger,EndEmpfänger,EndEmpfängerKundenNr, VermittlerKundenNr, Vermittler, "
            sqlstr &= "         FrachtführerKundenNr, Frachtführer, AvisiererKundenNr, Avisierer,Währungscode,Barzahlungsbetrag,Rechnungsbetrag, [LKW Kennzeichen],"
            sqlstr &= "         Abfertigungsanzahl, Speditionsbuch.Abfertigungsart, Abfertigungsbezeichnung,AvisoID" & sql_KdAuftragsNr & ",Speditionsbuch.KdAuftragsNrAvisierer,Speditionsbuch.KdAuftragsNrEmpfaenger,Speditionsbuch.KdAuftragsNrFrachtfuehrer, Speditionsbuch.Bemerkungen "
            sqlstr &= " FROM Speditionsbuch LEFT JOIN Abfertigungsarten ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart "
            sqlstr &= " LEFT JOIN Währungstabelle on  Währungstabelle.Währungsschlüssel=speditionsbuch.Währungsschlüssel WHERE 1=1 "
            sqlstr &= getSpedBuchWhere()
            '    sqlstr &= " order by FilialenNr, AvisoId,Speditionsbuch.Abfertigungsart,Abfertigungsdatum"
            sqlstr &= " order by FilialenNr, Speditionsbuch.Abfertigungsart,Abfertigungsdatum"

            Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL", , getSpedbuchList())

            Dim print As New frmPrintLayout
            print.Text = "Gelangensbestätigung"

            Dim rpt As New rptSpeditionsbericht_Gelangensbestaetigung

            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                Case "IMEX" : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Label28.Text = "IMEX Customs Service GmbH"
                Case "ATILLA" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label28.Text = "ATILLA Spedition"
                Case Else
            End Select

            rpt.DataSource = dt

            If vbYes = MsgBox("Neue Gelangensbestätigungs-Nr. vergeben?", MsgBoxStyle.YesNo) Then
                Dim GBST = New VERAG_PROG_ALLGEMEIN.cGelangensbestaetigung(Firma, kdnrTmp)
                If GBST.SAVE Then
                    rpt.lblNr.Text = GBST.gb_nr
                    VBNr = GBST.gb_nr
                End If

            Else
                rpt.Label17.Visible = False
            End If

            If rpt.DataSource.rows.count = 0 Then
                rpt.Dispose() : print.Dispose()
                MsgBox("Keine Daten vorhanden!")
                Return ""
            End If

            Dim AvsioIdNull As String = ""
            For Each r In rpt.DataSource.rows
                If r("AvisoId") Is DBNull.Value OrElse r("AvisoId") <= 0 Then
                    AvsioIdNull &= r("FilialenNr") & " " & r("AbfertigungsNr") & " " & r("UnterNr") & "  -  " & r("Abfertigungsdatum") & "  -  " & r("LKW Kennzeichen") & vbNewLine
                End If
            Next
            If AvsioIdNull <> "" Then
                MsgBox("Achtung: folgende Sendungen sind keinem LKW/Aviso zugeordnet:" & vbNewLine & AvsioIdNull)

            End If
            Dim sum = 0
            rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
            'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & "  /  " & PERSONAL.Niederlassung



            'Dim cnt As Integer = 0
            rpt.lblDat.Text = Now.ToLongDateString
            Dim sumAnz As Double = 0
            Dim sumBar As Double = 0
            Dim sumRg As Double = 0
            Dim gesSumAnz As Double = 0
            Dim gesSumBar As Double = 0
            Dim gesSumRg As Double = 0
            Dim gesgesSumAnz As Double = 0
            Dim gesgesSumBar As Double = 0
            Dim gesgesSumRg As Double = 0
            Dim SumAnzLKW As Double = 0
            Dim gesSumAnzLKW As Double = 0
            Dim gesgesSumAnzLKW As Double = 0

            Dim sumAbfBez = ""
            Dim gesFilBez = ""

            '   Dim gesgesAbfBez = ""

            AddHandler rpt.Detail.Format, Sub()
                                              ' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
                                              ' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString

                                              rpt.lblPosNr.Text = rpt.Fields.Item("FilialenNr").Value & " " & rpt.Fields.Item("AbfertigungsNr").Value & " " & rpt.Fields.Item("UnterNr").Value
                                              rpt.lblAbfDatum.Text = "Datum: " & rpt.Fields.Item("Abfertigungsdatum").Value
                                              rpt.lblBezugsNr.Text = checkNull(rpt.Fields.Item("BelegNr").Value)
                                              rpt.lblRohmasse.Text = "Rohmasse: " & checkNull(rpt.Fields.Item("Rohmasse").Value, "0") & "kg"
                                              rpt.txtVermerk.Text = checkNull(rpt.Fields.Item("Vermerk").Value)
                                              rpt.txtPackstücke.Text = checkNull(rpt.Fields.Item("Packstücke").Value)
                                              If cbxSpedDetailBem.Checked Then
                                                  If checkNull(rpt.Fields.Item("Bemerkungen").Value) <> "" Then
                                                      rpt.txtPackstücke.Text = (rpt.txtPackstücke.Text & vbNewLine & vbNewLine & checkNull(rpt.Fields.Item("Bemerkungen").Value)).trim
                                                  End If
                                              End If

                                              rpt.lblAbsKdNr.Text = checkNull(rpt.Fields.Item("AbsenderKundenNr").Value)
                                              rpt.lblAbs.Text = checkNull(rpt.Fields.Item("Absender").Value)
                                              rpt.lblEmpfKdNr.Text = checkNull(rpt.Fields.Item("EmpfängerKundenNr").Value)
                                              rpt.lblEmpf.Text = checkNull(rpt.Fields.Item("Empfänger").Value)
                                              rpt.lblEndEmpfKdNr.Text = checkNull(rpt.Fields.Item("EndEmpfängerKundenNr").Value)
                                              rpt.lblEndEmpf.Text = checkNull(rpt.Fields.Item("EndEmpfänger").Value)
                                              rpt.lblAuftrKdNr.Text = checkNull(rpt.Fields.Item("VermittlerKundenNr").Value)
                                              rpt.lblAuftr.Text = checkNull(rpt.Fields.Item("Vermittler").Value)
                                              rpt.lblFrachtfKdNr.Text = checkNull(rpt.Fields.Item("FrachtführerKundenNr").Value)
                                              rpt.lblFrachtf.Text = checkNull(rpt.Fields.Item("Frachtführer").Value)
                                              '  rpt.lblLKWNr.Text = rpt.Fields.Item("AvisiererKundenNr").Value
                                              '    rpt.lblLKWNr.Text = rpt.Fields.Item("Avisierer").Value
                                              'lblGesgesWaehrung.te

                                              ' rpt.lblKdAuftragNr.Text = checkNull(rpt.Fields.Item("KdAuftragsNr").Value)
                                              'If rpt.lblKdAuftragNr.Text <> "" Then rpt.lblKdAuftragNr.Text = "Auftrag: " & rpt.lblKdAuftragNr.Text

                                              Dim bar As Double = 0
                                              Dim rg As Double = 0
                                              Dim anz As Double = 0
                                              If IsNumeric(checkNull(rpt.Fields.Item("Barzahlungsbetrag").Value)) Then bar = CDbl(rpt.Fields.Item("Barzahlungsbetrag").Value())
                                              If IsNumeric(checkNull(rpt.Fields.Item("Rechnungsbetrag").Value)) Then rg = CDbl(rpt.Fields.Item("Rechnungsbetrag").Value())

                                              ' rpt.lblRechnungsbetragInEur.Text = rpt.Fields.Item("Rechnungsbetrag").Value * rpt.Fields.Item("Umrechnungskurs").Value

                                              rpt.lblLKWNr.Text = checkNull(rpt.Fields.Item("LKW Kennzeichen").Value)
                                              rpt.lblAnzahl.Text = checkNull(rpt.Fields.Item("Abfertigungsanzahl").Value)
                                              rpt.lblAbfertigungsart.Text = checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value)
                                              ' rpt.lblAbs.Text = checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value)

                                              ' rpt.lblBarzahlungsbetrag.Text = CDbl(rpt.Fields.Item("Barzahlungsbetrag").Value()).ToString("C")

                                              'sumBar += CDbl(rpt.Fields.Item("Barzahlungsbetrag").Value)
                                              If IsNumeric(checkNull(rpt.Fields.Item("Abfertigungsanzahl").Value)) Then anz = CDbl(rpt.Fields.Item("Abfertigungsanzahl").Value)

                                              sumAbfBez = checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value)

                                              gesgesSumAnz += anz

                                          End Sub

            AddHandler rpt.ReportFooter1.Format, Sub()
                                                     rpt.lblGesGesSumAnzahl.Text = gesgesSumAnz.ToString("N0")

                                                 End Sub
            If showDok Then
                print.Viewer.LoadDocument(rpt)
                print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
                print.Show()
            Else

                Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Verbringungsnachweis_" & Firma & ".pdf", ".pdf", True, False)
                Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
                rpt.Run(False)
                p.NeverEmbedFonts = ""
                p.Export(rpt.Document, tmpPath)

                rpt.Dispose()
                Return tmpPath

            End If




        End If
        Return ""
    End Function

    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
        Dim SQLStr = "SELECT [FilialenNr],[AbfertigungsNr],[UnterNr],[Abfertigungsdatum],[LKW Kennzeichen],[EmpfängerKundenNr],[Empfänger],Abfertigungsart,AtlasBezNrEZA as BezugsNr
	  	                 ,  isnull((SELECT SUM(Betrag)  FROM Zkteing  WHERE Bezugsnummer=AtlasBezNrEZA) ,'') as EUST
                      FROM [VERAG].[dbo].[Speditionsbuch]
                        where Abfertigungsart IN (26,28) AND Abfertigungsdatum > DATEADD(Month,-6 ,getdate())   AND isnull(SB_CMR ,0)=0  AND FilialenNr NOT IN (5501,5601,5701)
                      order by Abfertigungsdatum ASC"

        Dim dt As DataTable = SQL.loadDgvBySql(SQLStr, "FMZOLL")

        cProgramFunctions.genExcelFromDT_NEW(dt, {"J1:J" & (dt.Rows.Count + 2)})

    End Sub
End Class