Kd VeranlKd,Aviso Birthday

Aviso/frmATZollEingereichtSetzenEV.vb

@@ -0,0 +1,92 @@
+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