Änderungen dynamische Tabelle generieren
This commit is contained in:
ja
@@ -15,6 +15,7 @@ Partial Class CustomsAviso
|
|||||||
Dim Art As String = ""
|
Dim Art As String = ""
|
||||||
Dim ckd As Integer = -1
|
Dim ckd As Integer = -1
|
||||||
Dim wasmobile As Boolean = True
|
Dim wasmobile As Boolean = True
|
||||||
|
Dim erster As Date = New Date(Now().Year, Now().Month, 1)
|
||||||
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
||||||
Page.UnobtrusiveValidationMode = UnobtrusiveValidationMode.WebForms
|
Page.UnobtrusiveValidationMode = UnobtrusiveValidationMode.WebForms
|
||||||
VERAG_VARIABLES.initerrorcount()
|
VERAG_VARIABLES.initerrorcount()
|
||||||
@@ -211,6 +212,252 @@ Partial Class CustomsAviso
|
|||||||
datevon = Nothing
|
datevon = Nothing
|
||||||
datebis = Nothing
|
datebis = Nothing
|
||||||
End If
|
End If
|
||||||
|
If txt_Absender.Text IsNot "" Then
|
||||||
|
txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||||
|
regexval_txt_Absender.Enabled = True
|
||||||
|
regexval_txt_Absender.Validate()
|
||||||
|
If regexval_txt_Absender.IsValid Then
|
||||||
|
Try
|
||||||
|
wasmobile = False
|
||||||
|
Absender = txt_Absender.Text
|
||||||
|
Catch ex As FormatException
|
||||||
|
regexval_txt_Empfaenger.ForeColor = Drawing.Color.Red
|
||||||
|
regexval_txt_Empfaenger.ErrorMessage = "Diese Daten können nicht validiert werden"
|
||||||
|
End Try
|
||||||
|
Else
|
||||||
|
regexval_txt_Absender.ForeColor = Drawing.Color.Red
|
||||||
|
regexval_txt_Absender.ErrorMessage = "Der Absender ist nicht richtig formatiert."
|
||||||
|
End If
|
||||||
|
ElseIf txt_Empfaenger.Text IsNot "" Then
|
||||||
|
txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||||
|
regexval_txt_Empfaenger.Enabled = True
|
||||||
|
regexval_txt_Empfaenger.Validate()
|
||||||
|
If regexval_txt_Empfaenger.IsValid Then
|
||||||
|
Try
|
||||||
|
wasmobile = False
|
||||||
|
Empfaenger = txt_Empfaenger.Text
|
||||||
|
Catch ex As FormatException
|
||||||
|
MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
|
||||||
|
End Try
|
||||||
|
Else
|
||||||
|
regexval_txt_Empfaenger.ForeColor = Drawing.Color.Red
|
||||||
|
regexval_txt_Empfaenger.ErrorMessage = "Der Empfänger ist nicht richtig formatiert."
|
||||||
|
End If
|
||||||
|
ElseIf txt_KdNrAuftrag.Text IsNot "" Then
|
||||||
|
txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||||
|
regexval_txt_KdNrAuftrag.Enabled = True
|
||||||
|
regexval_txt_KdNrAuftrag.Validate()
|
||||||
|
If regexval_txt_KdNrAuftrag.IsValid Then
|
||||||
|
Try
|
||||||
|
wasmobile = False
|
||||||
|
KDNAFNR = txt_KdNrAuftrag.Text
|
||||||
|
Catch ex As FormatException
|
||||||
|
MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
|
||||||
|
End Try
|
||||||
|
Else
|
||||||
|
regexval_txt_KdNrAuftrag.ForeColor = Drawing.Color.Red
|
||||||
|
regexval_txt_KdNrAuftrag.ErrorMessage = "Die Kundenummer ist nicht richtig formatiert."
|
||||||
|
End If
|
||||||
|
ElseIf txt_LKWNr.Text IsNot "" Then
|
||||||
|
txt_LKWNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||||
|
regexval_txt_LKW.Enabled = True
|
||||||
|
regexval_txt_LKW.Validate()
|
||||||
|
If regexval_txt_LKW.IsValid = True Then
|
||||||
|
Try
|
||||||
|
LKWNR = txt_LKWNr.Text
|
||||||
|
Catch ex As FormatException
|
||||||
|
MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
|
||||||
|
End Try
|
||||||
|
Else
|
||||||
|
regexval_txt_LKW.ForeColor = Drawing.Color.Red
|
||||||
|
regexval_txt_LKW.ErrorMessage = "Das LKW Kennzeichen ist nicht richtig formatiert."
|
||||||
|
End If
|
||||||
|
ElseIf txt_Absender_M.Text IsNot "" Then
|
||||||
|
txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||||
|
regval_txt_Absender_M.Enabled = True
|
||||||
|
regval_txt_Absender_M.Validate()
|
||||||
|
If regval_txt_Absender_M.IsValid Then
|
||||||
|
Try
|
||||||
|
wasmobile = True
|
||||||
|
Absender = txt_Absender_M.Text
|
||||||
|
Catch ex As FormatException
|
||||||
|
MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
|
||||||
|
End Try
|
||||||
|
Else
|
||||||
|
regval_txt_Absender_M.ForeColor = Drawing.Color.Red
|
||||||
|
regval_txt_Absender_M.ErrorMessage = "Der Absender ist nicht richtig formatiert."
|
||||||
|
End If
|
||||||
|
ElseIf txt_Empfaenger_M.Text IsNot "" Then
|
||||||
|
txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||||
|
regval_txt_Empfaenger_M.Enabled = True
|
||||||
|
regval_txt_Empfaenger_M.Validate()
|
||||||
|
If regval_txt_Empfaenger_M.IsValid = True Then
|
||||||
|
Try
|
||||||
|
Empfaenger = txt_Empfaenger_M.Text
|
||||||
|
Catch ex As FormatException
|
||||||
|
MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
|
||||||
|
End Try
|
||||||
|
Else
|
||||||
|
regval_txt_Empfaenger_M.ForeColor = Drawing.Color.Red
|
||||||
|
regval_txt_Empfaenger_M.ErrorMessage = "Der Empfänger ist nicht richtig formatiert."
|
||||||
|
End If
|
||||||
|
ElseIf txt_KdNrAuftrag_M.Text IsNot "" Then
|
||||||
|
txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||||
|
regval_txt_KdNrAuftrag_M.Enabled = True
|
||||||
|
regval_txt_KdNrAuftrag_M.Validate()
|
||||||
|
If regval_txt_KdNrAuftrag_M.IsValid = True Then
|
||||||
|
Try
|
||||||
|
wasmobile = True
|
||||||
|
KDNAFNR = txt_KdNrAuftrag_M.Text
|
||||||
|
Catch ex As FormatException
|
||||||
|
MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
|
||||||
|
End Try
|
||||||
|
Else
|
||||||
|
regval_txt_KdNrAuftrag_M.ForeColor = Drawing.Color.Red
|
||||||
|
regval_txt_KdNrAuftrag_M.ErrorMessage = "Die Kundennummer ist nicht richtig formatiert."
|
||||||
|
End If
|
||||||
|
ElseIf txt_LKWNr_M.Text IsNot "" Then
|
||||||
|
txt_LKWNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||||
|
regexval_txt_LKWNr_M.Enabled = True
|
||||||
|
regexval_txt_LKWNr_M.Validate()
|
||||||
|
If regexval_txt_LKWNr_M.IsValid = True Then
|
||||||
|
Try
|
||||||
|
wasmobile = True
|
||||||
|
LKWNR = txt_LKWNr_M.Text
|
||||||
|
Catch ex As FormatException
|
||||||
|
MsgBox("Diese Daten können nicht validiert werden", MsgBoxStyle.Critical)
|
||||||
|
End Try
|
||||||
|
Else
|
||||||
|
regexval_txt_LKWNr_M.ForeColor = Drawing.Color.Red
|
||||||
|
regexval_txt_LKWNr_M.ErrorMessage = "Das LKW Kennzeichen ist nicht richtig formatiert."
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
If rbt_Alle.Checked = True Then
|
||||||
|
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
|
||||||
|
|
||||||
|
datevon = Me.erster
|
||||||
|
datebis = Date.Parse(Now.ToShortDateString)
|
||||||
|
pickdate1.Text = Me.erster.ToUniversalTime.ToString("yyyy-MM-dd")
|
||||||
|
pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyy-MM-dd")
|
||||||
|
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {0, 1, 2, 3, 4, 5}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
|
||||||
|
Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
|
||||||
|
MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation)
|
||||||
|
End Try
|
||||||
|
Else
|
||||||
|
Try
|
||||||
|
datevon = Date.Parse(pickdate1.Text)
|
||||||
|
datebis = Date.Parse(pickdate2.Text)
|
||||||
|
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {0, 1, 2, 3, 4, 5}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
|
||||||
|
Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
|
||||||
|
MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation)
|
||||||
|
End Try
|
||||||
|
End If
|
||||||
|
|
||||||
|
ElseIf rbt_Erf.Checked = True Then
|
||||||
|
ckd = 2
|
||||||
|
Session.Add("IDOFCKBOX", ckd.ToString)
|
||||||
|
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {0}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
|
||||||
|
|
||||||
|
ElseIf rbt_Freig.Checked = True Then
|
||||||
|
ckd = 3
|
||||||
|
pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||||
|
pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||||
|
If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
|
||||||
|
datevon = Me.erster
|
||||||
|
datebis = Date.Parse(Now.ToShortDateString)
|
||||||
|
pickdate1.Text = Me.erster.ToUniversalTime.ToString("yyyy-MM-dd")
|
||||||
|
pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyy-MM-dd")
|
||||||
|
pickdate2.Text = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
|
||||||
|
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {1}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
|
||||||
|
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, Integer.Parse(Kdnrtext), {1}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
|
||||||
|
Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
|
||||||
|
MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation)
|
||||||
|
End Try
|
||||||
|
End If
|
||||||
|
ElseIf rbt_Ankunft.Checked = True Then
|
||||||
|
ckd = 4
|
||||||
|
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {3}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
|
||||||
|
ElseIf rbt_Vorb.Checked = True Then
|
||||||
|
ckd = 5
|
||||||
|
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {4}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
|
||||||
|
ElseIf rbt_Vorg.Checked = True Then
|
||||||
|
ckd = 6
|
||||||
|
|
||||||
|
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(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
|
||||||
|
If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
|
||||||
|
Try
|
||||||
|
datevon = Me.erster
|
||||||
|
datebis = Date.Parse(Now.ToShortDateString)
|
||||||
|
pickdate1.Text = Me.erster.ToUniversalTime.ToString("yyyy-MM-dd")
|
||||||
|
pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyy-MM-dd")
|
||||||
|
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {0, 1, 2, 3, 4, 5}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
|
||||||
|
Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
|
||||||
|
MsgBox("Time ranges are not valid!", MsgBoxStyle.Exclamation)
|
||||||
|
End Try
|
||||||
|
Else
|
||||||
|
Try
|
||||||
|
datevon = Date.Parse(pickdate1.Text)
|
||||||
|
datebis = Date.Parse(pickdate2.Text)
|
||||||
|
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {0, 1, 2, 3, 4, 5}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
|
||||||
|
Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
|
||||||
|
MsgBox("The time ranges given are not valid!", MsgBoxStyle.Exclamation)
|
||||||
|
End Try
|
||||||
|
End If
|
||||||
|
ElseIf rbt_Erf_M.Checked = True Then
|
||||||
|
ckd = 8
|
||||||
|
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(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
|
||||||
|
|
||||||
|
datevon = Me.erster
|
||||||
|
datebis = Date.Parse(Now.ToShortDateString)
|
||||||
|
pickdate1.Text = Me.erster.ToUniversalTime.ToString("yyyy-MM-dd")
|
||||||
|
pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyy-MM-dd")
|
||||||
|
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {1}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
|
||||||
|
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, Integer.Parse(Kdnrtext), {1}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
|
||||||
|
Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
|
||||||
|
MsgBox("The time ranges given are not valid!", MsgBoxStyle.Exclamation)
|
||||||
|
End Try
|
||||||
|
End If
|
||||||
|
ElseIf rbt_Ankunft_M.Checked = True Then
|
||||||
|
ckd = 10
|
||||||
|
pickdate1.Visible = False
|
||||||
|
pickdate2.Visible = False
|
||||||
|
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {3}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
|
||||||
|
ElseIf rbt_Vorb_M.Checked = True Then
|
||||||
|
ckd = 11
|
||||||
|
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {4}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
|
||||||
|
ElseIf rbt_Vorg_M.Checked = True Then
|
||||||
|
ckd = 12
|
||||||
|
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {5}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
|
||||||
|
End If
|
||||||
|
|
||||||
addrows()
|
addrows()
|
||||||
Else
|
Else
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user