From 4beb82c135ddf266f77686900905cf01af8f34a3 Mon Sep 17 00:00:00 2001 From: ja Date: Tue, 5 Oct 2021 08:51:16 +0200 Subject: [PATCH] =?UTF-8?q?Fix=20f=C3=BCr=20"verschwindende"=20Bereiche=20?= =?UTF-8?q?bzw=20wiederauftauchende.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Customers/CustomsAviso.aspx.vb | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb index e91f1be..9771d3a 100644 --- a/Customers/CustomsAviso.aspx.vb +++ b/Customers/CustomsAviso.aspx.vb @@ -20,8 +20,37 @@ Partial Class Kundenbereich_Default ' MsgBox(datebis) If (Page.IsPostBack And normaltable.EnableViewState = False) Then normaltable.EnableViewState = True + + If rbt_Alle.Checked = True Then + lbl_von.Visible = True + lbl_bis.Visible = True + pickdate1.Visible = True + pickdate2.Visible = True + ElseIf rbt_Alle_M.Checked = True Then + lbl_von.Visible = True + lbl_bis.Visible = True + pickdate1.Visible = True + pickdate2.Visible = True + ElseIf rbt_Freig.Checked = True Then + lbl_von.Visible = True + lbl_bis.Visible = True + pickdate1.Visible = True + pickdate2.Visible = True + ElseIf rbt_Freig_M.Checked = True Then + lbl_von.Visible = True + lbl_bis.Visible = True + pickdate1.Visible = True + pickdate2.Visible = True + Else + lbl_von.Visible = False + lbl_bis.Visible = False + pickdate1.Visible = False + pickdate2.Visible = False + End If + datevon = Date.Parse(pickdate1.Text) datebis = Date.Parse(pickdate2.Text) + Else normaltable.EnableViewState = True Dim erster = New Date(Now().Year, Now().Month, 1)