Weitere Übersetzungen

This commit is contained in:
ja
2021-11-08 14:25:10 +01:00

View File

@@ -40,90 +40,90 @@ Partial Class CustomsAviso
End If
tbl_Header_row.TableSection = TableRowSection.TableHeader
' MsgBox(datebis)
' MsgBox(datebis)
If (Page.IsPostBack And normaltable.EnableViewState = False) Then
Page.MaintainScrollPositionOnPostBack = True
normaltable.EnableViewState = True
If (Page.IsPostBack And normaltable.EnableViewState = False) Then
Page.MaintainScrollPositionOnPostBack = True
normaltable.EnableViewState = True
If rbt_Alle.Checked = True Then
lbl_von.Visible = True
lbl_bis.Visible = True
valDateRange_1.Enabled = True
valDateRange_2.Enabled = True
valreqpickdate1.Enabled = True
valreqpickdate2.Enabled = True
valreqpickdate1.Validate()
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
valreqpickdate1.Enabled = True
valreqpickdate2.Enabled = True
valreqpickdate1.Validate()
valreqpickdate2.Validate()
valDateRange_1.Enabled = True
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
valreqpickdate1.Enabled = False
valreqpickdate2.Enabled = False
valDateRange_1.Enabled = False
valDateRange_2.Enabled = False
pickdate1.Visible = False
pickdate2.Visible = False
lbl_von.Visible = True
lbl_bis.Visible = True
valDateRange_1.Enabled = True
valDateRange_2.Enabled = True
valreqpickdate1.Enabled = True
valreqpickdate2.Enabled = True
valreqpickdate1.Validate()
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
'Mobil
If rbt_Alle_M.Checked = True Then
lbl_von.Visible = True
lbl_bis.Visible = True
valreqpickdate1.Enabled = True
valreqpickdate2.Enabled = True
valreqpickdate1.Validate()
valreqpickdate2.Validate()
valDateRange_1.Enabled = True
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
valreqpickdate1.Enabled = True
valreqpickdate2.Enabled = True
valreqpickdate1.Validate()
valreqpickdate2.Validate()
valDateRange_1.Enabled = True
valDateRange_2.Enabled = True
pickdate1.Visible = True
pickdate2.Visible = True
ElseIf rbt_Freig.Checked = True Then
lbl_von.Visible = True
lbl_bis.Visible = True
valreqpickdate1.Enabled = True
valreqpickdate2.Enabled = True
valreqpickdate1.Validate()
valreqpickdate2.Validate()
valDateRange_1.Enabled = True
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
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
'Mobil
If rbt_Alle_M.Checked = True Then
lbl_von.Visible = True
lbl_bis.Visible = True
valreqpickdate1.Enabled = True
valreqpickdate2.Enabled = True
valreqpickdate1.Validate()
valreqpickdate2.Validate()
valDateRange_1.Enabled = True
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
valreqpickdate1.Enabled = True
valreqpickdate2.Enabled = True
valreqpickdate1.Validate()
valreqpickdate2.Validate()
valDateRange_1.Enabled = True
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)
@@ -132,68 +132,68 @@ Partial Class CustomsAviso
datebis = Nothing
End If
End If
Else
Page.MaintainScrollPositionOnPostBack = False
rbt_Alle.Checked = True
normaltable.EnableViewState = True
lbl_von.Visible = True
lbl_bis.Visible = True
valDateRange_1.Enabled = True
valDateRange_2.Enabled = True
pickdate1.Visible = True
pickdate2.Visible = True
Dim erster = New Date(Now().Year, Now().Month, 1)
Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
' MsgBox(ersterdat)
datevon = ersterdat
datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
pickdate2.Text = Now().ToShortDateString()
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
If String.IsNullOrEmpty(txt_LKWNr.Text) Then
regexval_txt_LKW.Enabled = False
Else
regexval_txt_LKW.Enabled = True
End If
If String.IsNullOrEmpty(txt_KdNrAuftrag.Text) = True Then
regexval_txt_KdNrAuftrag.Enabled = False
Else
regexval_txt_KdNrAuftrag.Enabled = True
End If
If String.IsNullOrEmpty(txt_Empfaenger.Text) = True Then
regexval_txt_Empfaenger.Enabled = False
Else
regexval_txt_Empfaenger.Enabled = True
End If
If String.IsNullOrEmpty(txt_Absender.Text) = True Then
regexval_txt_Absender.Enabled = False
Else
regexval_txt_Absender.Enabled = True
End If
'Mobile
If String.IsNullOrEmpty(txt_LKWNr_M.Text) Then
regexval_txt_LKWNr_M.Enabled = False
Else
regexval_txt_LKWNr_M.Enabled = True
End If
If String.IsNullOrEmpty(txt_KdNrAuftrag_M.Text) = True Then
regval_txt_KdNrAuftrag_M.Enabled = False
Else
regval_txt_KdNrAuftrag_M.Enabled = True
End If
If String.IsNullOrEmpty(txt_Empfaenger_M.Text) = True Then
regval_txt_Empfaenger_M.Enabled = False
Else
regval_txt_Empfaenger_M.Enabled = True
End If
If String.IsNullOrEmpty(txt_Absender_M.Text) = True Then
regval_txt_Absender_M.Enabled = False
Else
regval_txt_Absender_M.Enabled = True
End If
End If
Else
FormsAuthentication.RedirectToLoginPage()
Page.MaintainScrollPositionOnPostBack = False
rbt_Alle.Checked = True
normaltable.EnableViewState = True
lbl_von.Visible = True
lbl_bis.Visible = True
valDateRange_1.Enabled = True
valDateRange_2.Enabled = True
pickdate1.Visible = True
pickdate2.Visible = True
Dim erster = New Date(Now().Year, Now().Month, 1)
Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
' MsgBox(ersterdat)
datevon = ersterdat
datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
pickdate2.Text = Now().ToShortDateString()
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
If String.IsNullOrEmpty(txt_LKWNr.Text) Then
regexval_txt_LKW.Enabled = False
Else
regexval_txt_LKW.Enabled = True
End If
If String.IsNullOrEmpty(txt_KdNrAuftrag.Text) = True Then
regexval_txt_KdNrAuftrag.Enabled = False
Else
regexval_txt_KdNrAuftrag.Enabled = True
End If
If String.IsNullOrEmpty(txt_Empfaenger.Text) = True Then
regexval_txt_Empfaenger.Enabled = False
Else
regexval_txt_Empfaenger.Enabled = True
End If
If String.IsNullOrEmpty(txt_Absender.Text) = True Then
regexval_txt_Absender.Enabled = False
Else
regexval_txt_Absender.Enabled = True
End If
'Mobile
If String.IsNullOrEmpty(txt_LKWNr_M.Text) Then
regexval_txt_LKWNr_M.Enabled = False
Else
regexval_txt_LKWNr_M.Enabled = True
End If
If String.IsNullOrEmpty(txt_KdNrAuftrag_M.Text) = True Then
regval_txt_KdNrAuftrag_M.Enabled = False
Else
regval_txt_KdNrAuftrag_M.Enabled = True
End If
If String.IsNullOrEmpty(txt_Empfaenger_M.Text) = True Then
regval_txt_Empfaenger_M.Enabled = False
Else
regval_txt_Empfaenger_M.Enabled = True
End If
If String.IsNullOrEmpty(txt_Absender_M.Text) = True Then
regval_txt_Absender_M.Enabled = False
Else
regval_txt_Absender_M.Enabled = True
End If
End If
Else
FormsAuthentication.RedirectToLoginPage()
End If
End Sub