Imports SDL
Imports SDL.EORI
Imports VERAG_PROG_ALLGEMEIN

Public Class frmATZollEingereichtSetzenEV

    Public AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
    Public SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
    Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL

    Sub New(AVISO, SND)

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

        Me.AVISO = AVISO
        Me.SND = SND
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub


    Private Sub frmAnkunftSetzen_Load(sender As Object, e As EventArgs) Handles Me.Load


        If AVISO IsNot Nothing Then
            lblAbs.Text = If(SND.tblSnd_Absender, "")
            lblAuftr.Text = If(SND.tblSnd_Auftraggeber, "")
            lblAbfNr.Text = SND.FilialenNr & "/" & SND.AbfertigungsNr
            lblWare.Text = If(SND.tblSnd_Gewicht, "") & " kg, " & If(SND.tblSnd_Colli, "") & " Pk. " & If(SND.tblSnd_Warenbezeichnung, "")

        End If

        If SND IsNot Nothing Then
            If SND.tblSnd_EmpfaengerKdNr > 0 Then

                lblNr.Text = SND.tblSnd_PosUnterNr

                'Dim ADRESSEN As New VERAG_PROG_ALLGEMEIN.cAdressen(SND.tblSnd_EmpfaengerKdNr)
                'Dim KUNDEN As New VERAG_PROG_ALLGEMEIN.cKunde(SND.tblSnd_EmpfaengerKdNr)
                'If ADRESSEN IsNot Nothing Then
                '    txtUid.Text = If(ADRESSEN.UstIdKz, "") & If(ADRESSEN.UstIdNr, "")

                '    Dim UID_Pruef = VERAG_PROG_ALLGEMEIN.cUIDPruefung.LOADByKdNrNewestDate(SND.tblSnd_EmpfaengerKdNr)
                '    If UID_Pruef IsNot Nothing Then
                '        lblUIDPruefdatum.Text = UID_Pruef.uid_Datum.ToShortDateString
                '        If UID_Pruef.uid_Datum.ToShortDateString = Now.ToShortDateString Then
                '            cbxUID.Checked = True
                '            picUIDAbfrage.Image = My.Resources.ok
                '        Else
                '            check_UID_AD(ADRESSEN)
                '        End If
                '    End If
                'Else
                '    check_UID(txtUid.Text)
                'End If
                'If KUNDEN IsNot Nothing Then
                '    txtEori.Text = If(KUNDEN.EORITIN, "")
                '    check_EORI(KUNDEN)
                'End If
            End If
        End If
    End Sub

    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click

        If cbxEmpf.Checked Then
            Me.DialogResult = DialogResult.OK
        Else
            If Not cbxRG1.Checked Then Me.DialogResult = DialogResult.None : Exit Sub
            If Not cbxRG2.Checked Then Me.DialogResult = DialogResult.None : Exit Sub
            ' AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "UID Prüfung Begründung: " & Txt, 47)

            Me.DialogResult = DialogResult.OK
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.DialogResult = DialogResult.Cancel
    End Sub

    Private Sub frmAnkunftSetzen_KeyDown(sender As Object, e As KeyEventArgs)
        If e.KeyCode = Keys.Return Then
            btn.PerformClick()
        End If
    End Sub





End Class