Public Class frmLKWEingetroffen_nach
    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
        If txtDatum.Text = "" Then Exit Sub
        If txtUhrzeit.Text = "" Then Exit Sub
        If Not IsDate(txtDatum.Text) Then Exit Sub
        If txtUhrzeit.Text.Length <> 5 And txtUhrzeit.Text.Length <> 8 Then Exit Sub

        'Dim dt = SQL.loadDgvBySql("SELECT tblSnd_SendungID,FilialenNr,tblSnd_Abfertigungsart_ID,AbfertigungsNr,[Ankunft], LKW_Nr, [Auftraggeber] As Avisierer, [Frächter], [ImEx], Auftraggeber, isnull(tblSnd_Colli,'') as Colli,isnull(tblSnd_Gewicht,'') as Gewicht,isnull(tblSnd_Warenbezeichnung,'') as Ware,isnull(tblSnd_ATANr,'') as ATA
        '                              From  [Aviso]  INNER Join tblSendungen On tblSnd_AvisoID=AvisoID
        '                              Where status IN (3) And Ankunft >'" & txtDatum.Text & " " & txtUhrzeit.Text & "' and Grenzstelle='" & cboNL._value & "' and Firma='VERAG'  order by AvisoID, Ankunft", "AVISO")
        Dim dt = SQL.loadDgvBySql("SELECT tblSnd_SendungID,FilialenNr,tblSnd_Abfertigungsart_ID,AbfertigungsNr,[Ankunft], LKW_Nr, [Auftraggeber] As Avisierer, [Frächter], [ImEx], Auftraggeber, isnull(tblSnd_Colli,'') as Colli,isnull(tblSnd_Gewicht,'') as Gewicht,isnull(tblSnd_Warenbezeichnung,'') as Ware,isnull(tblSnd_ATANr,'') as ATA
                                      From  [Aviso]  INNER Join tblSendungen On tblSnd_AvisoID=AvisoID
                                      Where status IN (3,4,5,0) And Datum  >  DATEADD(week, -2, GETDATE()) and Grenzstelle='" & cboNL._value & "' and Firma='VERAG'  order by AvisoID, Ankunft", "AVISO")
        For Each dr In dt.Rows
            For Each dc In dt.Columns
                dc.ReadOnly = False
            Next
        Next

        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
            For Each r As DataRow In dt.Rows
                r("ATA") = getATCMRN(r("tblSnd_Abfertigungsart_ID"), r("tblSnd_SendungID"), r("FilialenNr"), r("AbfertigungsNr"))
            Next
            VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, True)
        Else
            MsgBox("Keine Daten!")
        End If


    End Sub

    Private Sub frmLKWEingetroffen_nach_Load(sender As Object, e As EventArgs) Handles Me.Load
        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
            Case "VERAG", "ATILLA"
            Case Else : Me.Close()
        End Select

        txtDatum.Text = Now.ToShortDateString
        txtUhrzeit.Text = "14:00:00"
        cboNL.Items.Clear()
        cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
        cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
        cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
        cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
        cboNL.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG)
    End Sub



    Function getATCMRN(tblSnd_Abfertigungsart_ID, tblSnd_SendungID, FilialenNr, AbfertigungsNr) As String
        getATCMRN = ""
        If tblSnd_Abfertigungsart_ID Is DBNull.Value Then Return ""
        Select Case tblSnd_Abfertigungsart_ID.ToString
            Case "5", "6"
                getATCMRN = SQL.getValueTxtBySql("SELECT TOP  1  isnull(ncts_MRN,ncts_ANR)   FROM tblDakosy_Zollanmeldungen INNER JOIN tblDakosy_NCTSOut ON ncts_dyaAnmID=dy_Id   where dy_SendungsId = '" & tblSnd_SendungID & "' and ( ncts_MRN is not null or ncts_ANR is not null ) order by dy_id desc", "FMZOLL")
            Case "9", "23", ""
                'NIX..
            Case Else
                getATCMRN = SQL.getValueTxtBySql("SELECT TOP  1  isnull(eza_ANR,'')   FROM tblDakosy_Zollanmeldungen INNER JOIN tblDakosy_EZA     ON eza_dyaAnmID=dy_Id    where dy_SendungsId = '" & tblSnd_SendungID & "' and eza_ANR is not null order by dy_id desc", "FMZOLL")
                If getATCMRN = "" Then
                    If AbfertigungsNr > 0 Then
                        getATCMRN = SQL.getValueTxtBySql("SELECT TOP 1 isnull(zbant_arbnr,'')  FROM [zbant]  where zbant_stat BETWEEN 40 AND 71  and zbant_beznr like '" & FilialenNr & "/" & CInt(AbfertigungsNr.ToString.Substring(2)) & "%'  order by zbant_beznr desc", "ATLAS")
                    End If
                End If

        End Select
    End Function

End Class