edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Verbesserungen GUI Logik

Browse Source
This commit is contained in:
ja
2021-11-08 14:48:17 +01:00
parent a57384385f
commit 55a47bd45f
1 changed files with 80 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

82
Customers/CustomsAviso.aspx.vb
View File

@@ -82,7 +82,40 @@ Partial Class CustomsAviso
datevon = Nothing datevon = Nothing
datebis = Nothing datebis = Nothing
End If End If
Else ElseIf rbt_Ankunft.Checked = True Then
lbl_von.Visible = False
lbl_bis.Visible = False
valreqpickdate1.Enabled = False
valreqpickdate2.Enabled = False
valDateRange_1.Enabled = False
valDateRange_2.Enabled = False
pickdate1.Visible = False
pickdate2.Visible = False
datevon = Nothing
datebis = Nothing
ElseIf rbt_Erf.Checked = True Then
lbl_von.Visible = False
lbl_bis.Visible = False
valreqpickdate1.Enabled = False
valreqpickdate2.Enabled = False
valDateRange_1.Enabled = False
valDateRange_2.Enabled = False
pickdate1.Visible = False
pickdate2.Visible = False
datevon = Nothing
datebis = Nothing
ElseIf rbt_Vorb.Checked = True Then
lbl_von.Visible = False
lbl_bis.Visible = False
valreqpickdate1.Enabled = False
valreqpickdate2.Enabled = False
valDateRange_1.Enabled = False
valDateRange_2.Enabled = False
pickdate1.Visible = False
pickdate2.Visible = False
datevon = Nothing
datebis = Nothing
ElseIf rbt_Vorg.Checked = True Then
lbl_von.Visible = False lbl_von.Visible = False
lbl_bis.Visible = False lbl_bis.Visible = False
valreqpickdate1.Enabled = False valreqpickdate1.Enabled = False
@@ -131,6 +164,50 @@ Partial Class CustomsAviso
datevon = Nothing datevon = Nothing
datebis = Nothing datebis = Nothing
End If End If
ElseIf rbt_Ankunft_M.Checked = True Then
lbl_von.Visible = False
lbl_bis.Visible = False
valreqpickdate1.Enabled = False
valreqpickdate2.Enabled = False
valDateRange_1.Enabled = False
valDateRange_2.Enabled = False
pickdate1.Visible = False
pickdate2.Visible = False
datevon = Nothing
datebis = Nothing
ElseIf rbt_Erf_M.Checked = True Then
lbl_von.Visible = False
lbl_bis.Visible = False
valreqpickdate1.Enabled = False
valreqpickdate2.Enabled = False
valDateRange_1.Enabled = False
valDateRange_2.Enabled = False
pickdate1.Visible = False
pickdate2.Visible = False
datevon = Nothing
datebis = Nothing
ElseIf rbt_Vorb_M.Checked = True Then
lbl_von.Visible = False
lbl_bis.Visible = False
valreqpickdate1.Enabled = False
valreqpickdate2.Enabled = False
valDateRange_1.Enabled = False
valDateRange_2.Enabled = False
pickdate1.Visible = False
pickdate2.Visible = False
datevon = Nothing
datebis = Nothing
ElseIf rbt_Vorg_M.Checked = True Then
lbl_von.Visible = False
lbl_bis.Visible = False
valreqpickdate1.Enabled = False
valreqpickdate2.Enabled = False
valDateRange_1.Enabled = False
valDateRange_2.Enabled = False
pickdate1.Visible = False
pickdate2.Visible = False
datevon = Nothing
datebis = Nothing
End If End If
Else Else
Page.MaintainScrollPositionOnPostBack = False Page.MaintainScrollPositionOnPostBack = False
@@ -680,6 +757,7 @@ Partial Class CustomsAviso
datevon = Nothing datevon = Nothing
datebis = Nothing datebis = Nothing
dt = Nothing dt = Nothing
Return
ElseIf String.IsNullOrEmpty(txt_Absender.Text) = False Or String.IsNullOrEmpty(txt_Empfaenger.Text) = False Or String.IsNullOrEmpty(txt_KdNrAuftrag.Text) = False Or String.IsNullOrEmpty(txt_LKWNr.Text) = False Or rbt_Alle.Checked = True Or rbt_Ankunft.Checked = True Or rbt_Erf.Checked = True Or rbt_Freig.Checked = True Or rbt_Vorb.Checked = True Or rbt_Vorg.Checked = True Then ElseIf String.IsNullOrEmpty(txt_Absender.Text) = False Or String.IsNullOrEmpty(txt_Empfaenger.Text) = False Or String.IsNullOrEmpty(txt_KdNrAuftrag.Text) = False Or String.IsNullOrEmpty(txt_LKWNr.Text) = False Or rbt_Alle.Checked = True Or rbt_Ankunft.Checked = True Or rbt_Erf.Checked = True Or rbt_Freig.Checked = True Or rbt_Vorb.Checked = True Or rbt_Vorg.Checked = True Then
'Desktop 'Desktop
rbt_Alle.Checked = True rbt_Alle.Checked = True
@@ -704,8 +782,8 @@ Partial Class CustomsAviso
datevon = Nothing datevon = Nothing
datebis = Nothing datebis = Nothing
dt = Nothing dt = Nothing
Return
End If End If
End Sub End Sub
Protected Sub pickdate1_TextChanged(sender As Object, e As EventArgs) Protected Sub pickdate1_TextChanged(sender As Object, e As EventArgs)