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

Datenblatt Fehler aktualisiert mit korrekten Zahlen und Änderungen am Code

Browse Source
This commit is contained in:
ja
2021-11-04 16:36:25 +01:00
parent d4d2648273
commit 6051bedb12
6 changed files with 106 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

105
Customers/CustomsAviso.aspx.vb
View File

@@ -27,9 +27,40 @@ Partial Class CustomsAviso
tbl_Header_row.TableSection = TableRowSection.TableHeader
' MsgBox(datebis)
If (Page.IsPostBack And normaltable.EnableViewState = False) Then
Page.MaintainScrollPositionOnPostBack = True
normaltable.EnableViewState = True
Select Case Session.Item("IDOFCKBOX")
Case 1
rbt_Alle.Checked = True
Case 2
rbt_Erf.Checked = True
Case 3
rbt_Freig.Checked = True
Case 4
rbt_Ankunft.Checked = True
Case 5
rbt_Vorb.Checked = True
Case 6
rbt_Vorg.Checked = True
Case 7
rbt_Alle_M.Checked = True
Case 8
rbt_Erf_M.Checked = True
Case 9
rbt_Freig_M.Checked = True
Case 10
rbt_Ankunft_M.Checked = True
Case 11
rbt_Vorb_M.Checked = True
Case 12
rbt_Vorg_M.Checked = True
Case Nothing
rbt_Alle.Checked = True
End Select
If rbt_Alle.Checked = True Then
lbl_von.Visible = True
lbl_bis.Visible = True
@@ -41,6 +72,13 @@ Partial Class CustomsAviso
valreqpickdate2.Validate()
pickdate1.Visible = True
pickdate2.Visible = True
If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then
datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text)
ElseIf pickdate1.Text = String.Empty And pickdate2.Text = String.Empty Then
datevon = Nothing
datebis = Nothing
End If
ElseIf rbt_Freig.Checked = True Then
lbl_von.Visible = True
lbl_bis.Visible = True
@@ -52,6 +90,13 @@ Partial Class CustomsAviso
valDateRange_2.Enabled = True
pickdate1.Visible = True
pickdate2.Visible = True
If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then
datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text)
ElseIf pickdate1.Text = String.Empty And pickdate2.Text = String.Empty Then
datevon = Nothing
datebis = Nothing
End If
Else
lbl_von.Visible = False
lbl_bis.Visible = False
@@ -61,6 +106,8 @@ Partial Class CustomsAviso
valDateRange_2.Enabled = False
pickdate1.Visible = False
pickdate2.Visible = False
datevon = Nothing
datebis = Nothing
End If
'Mobil
If rbt_Alle_M.Checked = True Then
@@ -74,6 +121,13 @@ Partial Class CustomsAviso
valDateRange_2.Enabled = True
pickdate1.Visible = True
pickdate2.Visible = True
If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then
datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text)
ElseIf pickdate1.Text = String.Empty And pickdate2.Text = String.Empty Then
datevon = Nothing
datebis = Nothing
End If
ElseIf rbt_Freig_M.Checked = True Then
lbl_von.Visible = True
lbl_bis.Visible = True
@@ -85,6 +139,13 @@ Partial Class CustomsAviso
valDateRange_2.Enabled = True
pickdate1.Visible = True
pickdate2.Visible = True
If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then
datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text)
ElseIf pickdate1.Text = String.Empty And pickdate2.Text = String.Empty Then
datevon = Nothing
datebis = Nothing
End If
Else
lbl_von.Visible = False
lbl_bis.Visible = False
@@ -94,11 +155,6 @@ Partial Class CustomsAviso
valDateRange_2.Enabled = False
pickdate1.Visible = False
pickdate2.Visible = False
End If
If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then
datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text)
ElseIf pickdate1.Text = String.Empty And pickdate2.Text = String.Empty Then
datevon = Nothing
datebis = Nothing
End If
@@ -162,33 +218,6 @@ Partial Class CustomsAviso
regval_txt_Absender_M.Enabled = True
End If
End If
Select Case ckd
Case 1
rbt_Alle.Checked = True
Case 2
rbt_Erf.Checked = True
Case 3
rbt_Vorb.Checked = True
Case 4
rbt_Ankunft.Checked = True
Case 5
rbt_Vorg.Checked = True
Case 6
rbt_Vorb.Checked = True
Case 7
rbt_Alle_M.Checked = True
Case 8
rbt_Erf_M.Checked = True
Case 9
rbt_Freig_M.Checked = True
Case 10
rbt_Ankunft_M.Checked = True
Case 11
rbt_Vorb_M.Checked = True
Case 12
rbt_Vorg_M.Checked = True
End Select
Else
FormsAuthentication.RedirectToLoginPage()
End If
@@ -366,6 +395,7 @@ Partial Class CustomsAviso
pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
ckd = 1
Session.Add("IDOFCKBOX", ckd.ToString)
If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
Try
Dim erster = New Date(Now().Year, Now().Month, 1)
@@ -391,10 +421,12 @@ Partial Class CustomsAviso
ElseIf rbt_Erf.Checked = True Then
ckd = 2
Session.Add("IDOFCKBOX", ckd.ToString)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {0}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
ElseIf rbt_Freig.Checked = True Then
ckd = 3
Session.Add("IDOFCKBOX", ckd.ToString)
pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
@@ -419,18 +451,22 @@ Partial Class CustomsAviso
End If
ElseIf rbt_Ankunft.Checked = True Then
ckd = 4
Session.Add("IDOFCKBOX", ckd.ToString)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {3}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
ElseIf rbt_Vorb.Checked = True Then
ckd = 5
Session.Add("IDOFCKBOX", ckd.ToString)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {4}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
ElseIf rbt_Vorg.Checked = True Then
ckd = 6
Session.Add("IDOFCKBOX", ckd.ToString)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {5}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
End If
If rbt_Alle_M.Checked = True Then
pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
ckd = 7
Session.Add("IDOFCKBOX", ckd.ToString)
If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
Try
Dim erster = New Date(Now().Year, Now().Month, 1)
@@ -455,9 +491,11 @@ Partial Class CustomsAviso
End If
ElseIf rbt_Erf_M.Checked = True Then
ckd = 8
Session.Add("IDOFCKBOX", ckd.ToString)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {0}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
ElseIf rbt_Freig_M.Checked = True Then
ckd = 9
Session.Add("IDOFCKBOX", ckd.ToString)
pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
@@ -482,14 +520,17 @@ Partial Class CustomsAviso
End If
ElseIf rbt_Ankunft_M.Checked = True Then
ckd = 10
Session.Add("IDOFCKBOX", ckd.ToString)
pickdate1.Visible = False
pickdate2.Visible = False
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {3}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
ElseIf rbt_Vorb_M.Checked = True Then
ckd = 11
Session.Add("IDOFCKBOX", ckd.ToString)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {4}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
ElseIf rbt_Vorg_M.Checked = True Then
ckd = 12
Session.Add("IDOFCKBOX", ckd.ToString)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {5}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
End If