GUI Aufträge

Customers/CustomsAviso.aspx.vb

@@ -13,4 +13,47 @@ Partial Class Kundenbereich_Default
         Session.Abandon()
         Response.Redirect("../newpageJulius_Sidebar.aspx", True)
     End Sub
+
+
+
+    Protected Sub Button1_Click(sender As Object, e As EventArgs)
+        Dim Kdnrtext = TB_KdNr.Text
+        Dim truefalse(5) As Boolean
+        Dim numarr(5) As Integer
+
+        Dim dt
+
+        If RadioButtonErf.Checked = True Then
+
+            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Integer.Parse(TB_KdNr.Text), {0}, DateTime.Now, DateTime.Now)
+        ElseIf RadioButtonFreig.Checked = True Then
+
+            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Integer.Parse(TB_KdNr.Text), {1}, DateTime.Now, DateTime.Now)
+        ElseIf RadioButtonAnkunft.Checked = True Then
+
+            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Integer.Parse(TB_KdNr.Text), {3})
+        ElseIf RadioButtonVorb.Checked = True Then
+
+            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Integer.Parse(TB_KdNr.Text), {4})
+        End If
+
+        For Each num In numarr
+            If truefalse.GetValue(num) = True Then
+                dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Integer.Parse(TB_KdNr.Text), {num})
+            Else
+                dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Integer.Parse(TB_KdNr.Text), {0})
+            End If
+        Next
+
+    End Sub
+
+    Protected Sub Button2_Click(sender As Object, e As EventArgs)
+        RadioButtonAnkunft.Checked = False
+        RadioButtonErf.Checked = False
+        RadioButtonFreig.Checked = False
+        RadioButtonVorb.Checked = False
+        RadioButtonVorg.Checked = False
+        TB_KdNr.Text = ""
+        TB_KdNr.Focus()
+    End Sub
 End Class