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

Nachricht bei reoload oder verlassen wenn daten eingegeben wurden.

Browse Source
This commit is contained in:
ja
2021-11-05 15:26:22 +01:00
parent 49030f7613
commit 935e21c077
4 changed files with 119 additions and 88 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
Customers/CustomsAviso.aspx.vb
View File

@@ -32,35 +32,6 @@ Partial Class CustomsAviso
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 -1
rbt_Alle.Checked = True
End Select
If rbt_Alle.Checked = True Then
lbl_von.Visible = True
lbl_bis.Visible = True
@@ -426,7 +397,6 @@ Partial Class CustomsAviso
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
@@ -451,22 +421,19 @@ 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)
@@ -491,7 +458,6 @@ 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
@@ -520,17 +486,14 @@ 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
@@ -735,4 +698,5 @@ Partial Class CustomsAviso
Protected Sub txt_KdNrAuftrag_M_TextChanged(sender As Object, e As EventArgs)
regval_txt_KdNrAuftrag_M.Validate()
End Sub
End Class
End Class