Fehler bei Status Julius wurde ausgebessert.

Customers/CustomsAviso.aspx.vb

@@ -12,7 +12,7 @@ Partial Class Kundenbereich_Default
     Dim LKWNR As String = ""
     Dim KDNAFNR As String = ""
     Dim dt As DataTable
-    Dim Art As String = Nothing
+    Dim Art As String = ""
     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
         Page.UnobtrusiveValidationMode = UnobtrusiveValidationMode.WebForms
         DataBind()
@@ -22,9 +22,11 @@ Partial Class Kundenbereich_Default
         If (Page.IsPostBack And normaltable.EnableViewState = False) Then
             Dim erster = New Date(Now().Year, Now().Month, 1)
             Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
+            pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
             ' MsgBox(ersterdat)
             datevon = ersterdat
             datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
+            pickdate2.Text = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
         Else
             datevon = Nothing
             datebis = Nothing
@@ -40,19 +42,18 @@ Partial Class Kundenbereich_Default
     End Sub
 
     Protected Sub initcells(tr As TableRow, t1 As TableCell, t2 As TableCell, t3 As TableCell, t4 As TableCell, t5 As TableCell, t6 As TableCell, t7 As TableCell, t8 As TableCell, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, th6 As TableHeaderCell, th7 As TableHeaderCell, th8 As TableHeaderCell)
-        Dim blau As Drawing.Color = Drawing.Color.LightBlue
         Dim white As Drawing.Color = Drawing.Color.White
         Dim schwarz As Drawing.Color = Drawing.Color.Black
         Dim darkgrau As Drawing.Color = Drawing.Color.DarkGray
         Dim darkblue = Drawing.Color.FromArgb(4, 51, 129)
 
-        tr.BackColor = blau
+        tr.BackColor = white
 
         If t1.Text = "" Then
-            t1.BackColor = blau
+            t1.BackColor = white
             t1.ForeColor = schwarz
         Else
-            t1.BackColor = blau
+            t1.BackColor = white
             t1.ForeColor = schwarz
         End If
         If t2.Text = "Erfasst" Then
@@ -71,7 +72,7 @@ Partial Class Kundenbereich_Default
             t2.BackColor = Drawing.Color.Purple
             t2.ForeColor = white
         ElseIf t2.Text = "Freigabe" Then
-            t2.BackColor = Drawing.Color.DarkOliveGreen
+            t2.BackColor = Drawing.Color.Green
             t2.ForeColor = white
         ElseIf t2.Text = "Undefiniert" Then
             t2.BackColor = Drawing.Color.DarkGray
@@ -81,45 +82,45 @@ Partial Class Kundenbereich_Default
             t2.ForeColor = white
         End If
         If t3.Text = "" Then
-            t3.BackColor = blau
+            t3.BackColor = white
             t3.ForeColor = schwarz
         Else
-            t3.BackColor = blau
+            t3.BackColor = white
             t3.ForeColor = schwarz
         End If
         If t4.Text = "" Then
-            t4.BackColor = blau
+            t4.BackColor = white
             t4.ForeColor = schwarz
         Else
-            t4.BackColor = blau
+            t4.BackColor = white
             t4.ForeColor = schwarz
         End If
         If t5.Text = "" Then
-            t5.BackColor = blau
+            t5.BackColor = white
             t5.ForeColor = schwarz
         Else
-            t5.BackColor = blau
+            t5.BackColor = white
             t5.ForeColor = schwarz
         End If
         If t6.Text = "" Then
-            t6.BackColor = blau
+            t6.BackColor = white
             t6.ForeColor = schwarz
         Else
-            t6.BackColor = blau
+            t6.BackColor = white
             t6.ForeColor = schwarz
         End If
         If t7.Text = "" Then
-            t7.BackColor = blau
+            t7.BackColor = white
             t7.ForeColor = schwarz
         Else
-            t7.BackColor = blau
+            t7.BackColor = white
             t7.ForeColor = schwarz
         End If
         If t8.Text = "" Then
-            t8.BackColor = blau
+            t8.BackColor = white
             t8.ForeColor = schwarz
         Else
-            t8.BackColor = blau
+            t8.BackColor = white
             t8.ForeColor = schwarz
         End If
         th1.Font.Bold = True
@@ -181,27 +182,49 @@ Partial Class Kundenbereich_Default
         End If
 
         If rbt_Alle.Selected = True Or rbt_Alle_M.Selected = True Then
-            Try
-                datevon = Date.Parse(pickdate1.Text)
-                datebis = Date.Parse(pickdate2.Text)
-            Catch ex As Exception
-                MsgBox(ex.StackTrace, MsgBoxStyle.Exclamation)
-            End Try
+            pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
+            pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
             dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {0, 1, 2, 3, 4, 5}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
-
-        ElseIf rbt_Erf.Selected = True Or rbt_Erf_M.Selected Then
+            If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
+                Dim erster = New Date(Now().Year, Now().Month, 1)
+                Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
+                ' MsgBox(ersterdat)
+                datevon = ersterdat
+                pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
+                datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
+                pickdate2.Text = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
+            Else
+                Try
+                    datevon = Date.Parse(pickdate1.Text)
+                    datebis = Date.Parse(pickdate2.Text)
+                Catch ex As Exception
+                    MsgBox(ex.StackTrace, MsgBoxStyle.Exclamation)
+                End Try
+            End If
+        ElseIf rbt_Erf.Selected = True Or rbt_Erf_M.Selected = True Then
             dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {0}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
         ElseIf rbt_Freig.Selected = True Or rbt_Freig_M.Selected = True Then
-            Try
-                pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
-                pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
-                datevon = Date.Parse(pickdate1.Text)
-                datebis = Date.Parse(pickdate2.Text)
-            Catch ex As Exception
-                MsgBox(ex.StackTrace, MsgBoxStyle.Exclamation)
-            End Try
-            dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {1}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
-
+            pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
+            pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
+            If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
+                Dim erster = New Date(Now().Year, Now().Month, 1)
+                Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
+                pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
+                ' MsgBox(ersterdat)
+                datevon = ersterdat
+                datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
+                pickdate2.Text = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
+            Else
+                Try
+                    datevon = Date.Parse(pickdate1.Text)
+                    MsgBox(pickdate1.Text)
+                    datebis = Date.Parse(pickdate2.Text)
+                    MsgBox(pickdate2.Text)
+                    dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {1}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
+                Catch ex As Exception
+                    MsgBox(ex.StackTrace, MsgBoxStyle.Exclamation)
+                End Try
+            End If
         ElseIf rbt_Ankunft.Selected = True Or rbt_Ankunft_M.Selected = True Then
             dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {3}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
         ElseIf rbt_Vorb.Selected = True Or rbt_Vorb_M.Selected = True Then