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

Uhrzeit wird korrekt gesplittet fast fertig

Browse Source
This commit is contained in:
ja
2021-09-10 16:59:40 +02:00
parent 82bbd0295c
commit a7c7dfee21
3 changed files with 181 additions and 316 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
Customers/CustomsAviso.aspx
View File

@@ -43,7 +43,7 @@
<h1>Kundencenter:</h1>
<div id="line" style="width: 92%;"></div>
<br/>
<h3>Hier finden Sie Informationen zu den aktuell an der Grenze stehenden LKWs.</h3>
<h3>Hier finden Sie Informationen zu den aktuellen Aufträgen.</h3>
<%Try
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW
'Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(799124)
@@ -74,9 +74,46 @@
<asp:RadioButton ID="rbt_Ankunft" runat="server" Text="Ankunft"/>
<asp:RadioButton ID="rbt_Freig" runat="server" Text="Freigabe" onclick="rbt_Freig_Click"/>
<asp:Label ID="lbl_von" runat="server" Text="Von:"></asp:Label>
<asp:Calendar id="pickdate1" runat="server"></asp:Calendar>
<asp:Label ID="lbl_von2" runat="server" Text="format:dd.mm.yyyy"></asp:Label>
<asp:TextBox ID="txt_pickdate1" runat="server"></asp:TextBox>
<button class="btn btn-primary" id="btn_pickdate1" type="button" data-bs-toggle="collapse" data-bs-target="#collapseExample" aria-expanded="false" aria-controls="collapseExample" title="Für die grafische Auswahl des Datums auf die Uhr tippen."><center><img src="../images/Icons/main/uhr.gif" style="width:12px; height:12px"/></center></button>
<div class="collapse" id="collapseExample">
<div class="row">
<div class="col-4">
<asp:Calendar id="pickdate1" runat="server"></asp:Calendar>
</div>
<div class="col-5">
<div class="col-1">
<asp:CheckBox ID="ckb_Uhrzeit1" OnCheckedChanged="ckb_Uhrzeit1_CheckedChanged" runat="server" data-bs-toggle="tooltip" data-bs-placement="left" title="Zum Uhrzeit miteinbeziehen anwählen."/>
</div>
<div class="col-4">
<asp:Label ID="lbl_Uhrzeit1_von" runat="server" Text="Uhrzeit von:"></asp:Label>
<asp:TextBox ID="txt_Uhrzeit1_von" TextMode="Time" runat="server"></asp:TextBox>
</div>
</div>
</div>
</div>
<asp:Label ID="lbl_bis" runat="server" Text="Bis:"></asp:Label>
<asp:Calendar id="pickdate2" runat="server"></asp:Calendar>
<asp:Label ID="lbl_bis2" runat="server" Text="Format:dd.mm.yyyy"></asp:Label>
<asp:TextBox ID="txt_pickdate2" runat="server"></asp:TextBox>
<button class="btn btn-primary" id="btn_pickdate2" type="button" data-bs-toggle="collapse" data-bs-target="#collapseExample2" aria-expanded="false" aria-controls="collapseExample2" title="Für die grafische Auswahl des Datums auf die Uhr tippen."><center><img src="../images/Icons/main/uhr.gif" style="width:12px; height:12px"/></center></button>
<div class="collapse" id="collapseExample2">
<div class="row">
<div class="col-4">
<asp:Calendar id="pickdate2" runat="server"></asp:Calendar>
</div>
<div class="col-5">
<div class="col-1">
<asp:CheckBox ID="ckb_Uhrzeit2" runat="server" data-bs-toggle="tooltip" data-bs-placement="left" title="Zum Uhrzeit miteinbeziehen anwählen."/>
</div>
<div class="col-4">
<asp:Label ID="lbl_Uhrzeit2_bis" runat="server" Text="Uhrzeit bis:"></asp:Label>
<asp:TextBox ID="txt_Uhrzeit2_bis" TextMode="Time" runat="server"></asp:TextBox>
</div>
</div>
</div>
</div>
<!-- Optionale Suchparameter-->
<asp:Label ID="lbl_Absender" runat="server" Text="Absender"></asp:Label>
<asp:TextBox ID="txt_Absender" runat="server" ></asp:TextBox>

454
Customers/CustomsAviso.aspx.vb
View File

@@ -19,12 +19,15 @@ Partial Class Kundenbereich_Default
Response.Redirect("../newpageJulius_Sidebar.aspx", True)
End Sub
Dim datevon As Date
Dim datebis As Date
Dim Kdnrtext As String
Dim dt
Dim hrv, hrb, minv, minb, secv, secb As DateAndTime
Dim setuhrzeit1bool As Boolean = False
Dim setuhrzeit2bool As Boolean = False
Protected Sub btn_Auftraege_Click(sender As Object, e As EventArgs)
Dim Kdnrtext = txt_KdNr.Text
Dim datevon As Date
Dim datebis As Date
Kdnrtext = txt_KdNr.Text
Dim tbl_CellIndex = New TableCell
Dim tbl_CellArt = New TableCell
@@ -36,26 +39,102 @@ Partial Class Kundenbereich_Default
Dim tbl_CellEmpfaenger = New TableCell
Dim tbl_CellLKWs = New TableCell
Dim tbl_CellKundAuftNr = New TableCell
Dim novalexception As Exception
Dim tbl_CellInfo = New TableCell
Dim dt
Try
datevon = pickdate1.SelectedDate
datebis = pickdate2.SelectedDate
Catch ex As Exception When datevon < Date.Parse("01.01.2001") Or datebis > Date.Now
datevon = DateValue(Date.Now.ToString("01.MM.yyyy"))
datebis = DateValue(Date.Now)
End Try
dt = Nothing
If txt_pickdate1.Text = "" AndAlso txt_pickdate2.Text = "" AndAlso setuhrzeit1bool = False And setuhrzeit2bool = False Then
Try
datevon = Date.Parse(pickdate1.SelectedDate.Day.ToString + "-" + pickdate1.SelectedDate.Month.ToString + "-" + pickdate1.SelectedDate.Year.ToString)
txt_pickdate1.Text = Date.Parse(pickdate1.SelectedDate.Month.ToString + "-" + pickdate1.SelectedDate.Month.ToString + "-" + pickdate1.SelectedDate.Year.ToString)
datebis = Date.Parse(pickdate2.SelectedDate.Day.ToString + "-" + pickdate2.SelectedDate.Month.ToString + "-" + pickdate2.SelectedDate.Year.ToString)
txt_pickdate2.Text = Date.Parse(pickdate2.SelectedDate.Month.ToString + "-" + pickdate2.SelectedDate.Month.ToString + "-" + pickdate2.SelectedDate.Year.ToString)
Catch ex As Exception When datebis < datevon
Dim dttemp As Date
dttemp = datebis
datebis = datevon
datevon = datebis
End Try
ElseIf txt_pickdate1.Text = "" AndAlso txt_pickdate2.Text = "" AndAlso setuhrzeit1bool = False And setuhrzeit2bool = False Then
Try
Dim splitArray1 As String() = txt_Uhrzeit1_von.Text.Split(New Char() {":"})
Dim splitArray2 As String() = txt_Uhrzeit2_bis.Text.Split(New Char() {":"})
Dim hrv, hrb, m1, m2 As Integer
If ((Integer.TryParse(splitArray1(0), hrv)) AndAlso
((Integer.TryParse(splitArray1(1), m1)) AndAlso
((Integer.TryParse(splitArray1(1), m1)) AndAlso
(Integer.TryParse(splitArray2(0), hrb)) AndAlso
(Integer.TryParse(splitArray2(1), m2))) Then
Else
// invalid format HHMM
End If
End Try
temp2 = DateAndTime.Minute(txt_Uhrzeit2_bis.Text)
datevon = Date.Parse(pickdate1.SelectedDate.Day.ToString + "-" + pickdate1.SelectedDate.Month.ToString + "-" + pickdate1.SelectedDate.Year.ToString + temp1.ToString)
txt_pickdate1.Text = datevon
datebis = Date.Parse(pickdate2.SelectedDate.Day.ToString + "-" + pickdate2.SelectedDate.Month.ToString + "-" + pickdate2.SelectedDate.Year.ToString + hrb.ToString)
txt_pickdate2.Text = Date.Parse(pickdate2.SelectedDate.Month.ToString + "-" + pickdate2.SelectedDate.Month.ToString + "-" + pickdate2.SelectedDate.Year.ToString)
Catch ex As Exception When datebis < datevon
Dim dttemp As Date
dttemp = datebis
datebis = datevon
datevon = datebis
End Try
Else
Try
datevon = Date.Parse(txt_pickdate1.Text)
pickdate1.SelectedDate = datevon
datebis = Date.Parse(txt_pickdate2.Text)
pickdate2.SelectedDate = datebis
Catch ex As Exception When datevon < Date.Parse("01-01-2001") Or datebis > Date.Now
datevon = DateValue(Date.Now.ToString("01-MM-yyyy"))
txt_pickdate1.Text = datevon.ToString
datebis = DateValue(Date.Now)
txt_pickdate2.Text = datebis.ToString
End Try
End If
'Dim tr
If rbt_Erf.Checked = True Then
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0})
ElseIf rbt_Freig.Checked = True Then
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {1}, datevon, datebis)
ElseIf rbt_Ankunft.Checked = True Then
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {3})
ElseIf rbt_Vorb.Checked = True Then
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {4})
ElseIf rbt_Vorg.Checked = True Then
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {5})
ElseIf rbt_Erf.Checked = False And rbt_Freig.Checked = False And rbt_Ankunft.Checked = False And rbt_Vorb.Checked = False And rbt_Vorg.Checked = False Then
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext,, datevon, datebis)
End If
If dt IsNot Nothing Then
Dim i As Integer = 0
@@ -83,182 +162,6 @@ Partial Class Kundenbereich_Default
'sb.Append("</table>")
' ltTable.Text = sb.ToString
Dim Cell = New TableCell
For Each d In dt.Rows
If i <= dt.Rows.Count Then
'tr = New HtmlTableRow()
Dim tr = New TableRow
tbl_CellIndex.Text = i
tr.Controls.Add(tbl_CellIndex)
tbl_CellArt.Text = ""
tr.Controls.Add(tbl_CellArt)
tbl_CellKundenNr.Text = d("Auftraggeber_KdNr").ToString
tr.Controls.Add(tbl_CellKundenNr)
Select Case d("Status")
Case 1
tbl_CellStatus.Text = "Erfasst"
tr.Controls.Add(tbl_CellStatus)
'Case 2
' tbl_CellStatus = "Nicht eingetroffen"
' tr.Controls.Add(Cell)
Case 3
tbl_CellStatus.Text = "Ankunft"
tr.Controls.Add(tbl_CellStatus)
Case 4
tbl_CellStatus.Text = "Vorbereitet"
tr.Controls.Add(tbl_CellStatus)
Case 5
tbl_CellStatus.Text = "Vorgeschrieben"
tr.Controls.Add(tbl_CellStatus)
Case Else
tbl_CellStatus.Text = "Undefiend"
tr.Controls.Add(tbl_CellStatus)
End Select
tbl_Cellvon.Text = d("AvisoEingang").ToString
tr.Controls.Add(tbl_Cellvon)
tbl_Cellbis.Text = d("AvisoEingang").ToString
tr.Controls.Add(tbl_Cellbis)
tbl_CellAbsender.Text = d("Auftraggeber").ToString
tr.Controls.Add(tbl_CellAbsender)
tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString
tr.Controls.Add(tbl_CellEmpfaenger)
tbl_CellLKWs.Text = d("LKW_Nr").ToString
tr.Controls.Add(tbl_CellLKWs)
tbl_CellKundAuftNr.Text = d("Auftraggeber_KdNr").ToString
tr.Controls.Add(tbl_CellKundAuftNr)
normaltable.Rows.Add(tr)
i = i + 1
End If
Next
ElseIf rbt_Freig.Checked = True Then
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {1}, datevon, datebis)
Dim i As Integer = 0
Dim Cell = New TableCell
For Each d In dt.Rows
If i <= dt.Rows.Count Then
'tr = New HtmlTableRow()
Dim tr = New TableRow
tbl_CellIndex.Text = i
tr.Controls.Add(tbl_CellIndex)
tbl_CellArt.Text = ""
tr.Controls.Add(tbl_CellArt)
tbl_CellKundenNr.Text = d("Auftraggeber_KdNr").ToString
tr.Controls.Add(tbl_CellKundenNr)
Select Case d("Status")
Case 1
tbl_CellStatus.Text = "Erfasst"
tr.Controls.Add(tbl_CellStatus)
'Case 2
' tbl_CellStatus = "Nicht eingetroffen"
' tr.Controls.Add(Cell)
Case 3
tbl_CellStatus.Text = "Ankunft"
tr.Controls.Add(tbl_CellStatus)
Case 4
tbl_CellStatus.Text = "Vorbereitet"
tr.Controls.Add(tbl_CellStatus)
Case 5
tbl_CellStatus.Text = "Vorgeschrieben"
tr.Controls.Add(tbl_CellStatus)
Case Else
tbl_CellStatus.Text = "Undefiend"
tr.Controls.Add(tbl_CellStatus)
End Select
tbl_Cellvon.Text = d("AvisoEingang").ToString
tr.Controls.Add(tbl_Cellvon)
tbl_Cellbis.Text = d("AvisoEingang").ToString
tr.Controls.Add(tbl_Cellbis)
tbl_CellAbsender.Text = d("Auftraggeber").ToString
tr.Controls.Add(tbl_CellAbsender)
tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString
tr.Controls.Add(tbl_CellEmpfaenger)
tbl_CellLKWs.Text = d("LKW_Nr").ToString
tr.Controls.Add(tbl_CellLKWs)
tbl_CellKundAuftNr.Text = d("Auftraggeber_KdNr").ToString
tr.Controls.Add(tbl_CellKundAuftNr)
normaltable.Rows.Add(tr)
i = i + 1
End If
Next
ElseIf rbt_Ankunft.Checked = True Then
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {3})
Dim i As Integer = 0
Dim Cell = New TableCell
For Each d In dt.Rows
If i <= dt.Rows.Count Then
'tr = New HtmlTableRow()
Dim tr = New TableRow
tbl_CellIndex.Text = i
tr.Controls.Add(tbl_CellIndex)
tbl_CellArt.Text = ""
tr.Controls.Add(tbl_CellArt)
tbl_CellKundenNr.Text = d("Auftraggeber_KdNr").ToString
tr.Controls.Add(tbl_CellKundenNr)
Select Case d("Status")
Case 1
tbl_CellStatus.Text = "Erfasst"
tr.Controls.Add(tbl_CellStatus)
'Case 2
' tbl_CellStatus = "Nicht eingetroffen"
' tr.Controls.Add(Cell)
Case 3
tbl_CellStatus.Text = "Ankunft"
tr.Controls.Add(tbl_CellStatus)
Case 4
tbl_CellStatus.Text = "Vorbereitet"
tr.Controls.Add(tbl_CellStatus)
Case 5
tbl_CellStatus.Text = "Vorgeschrieben"
tr.Controls.Add(tbl_CellStatus)
Case Else
tbl_CellStatus.Text = "Undefiend"
tr.Controls.Add(tbl_CellStatus)
End Select
tbl_Cellvon.Text = d("AvisoEingang").ToString
tr.Controls.Add(tbl_Cellvon)
tbl_Cellbis.Text = d("AvisoEingang").ToString
tr.Controls.Add(tbl_Cellbis)
tbl_CellAbsender.Text = d("Auftraggeber").ToString
tr.Controls.Add(tbl_CellAbsender)
tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString
tr.Controls.Add(tbl_CellEmpfaenger)
tbl_CellLKWs.Text = d("LKW_Nr").ToString
tr.Controls.Add(tbl_CellLKWs)
tbl_CellKundAuftNr.Text = d("Auftraggeber_KdNr").ToString
tr.Controls.Add(tbl_CellKundAuftNr)
normaltable.Rows.Add(tr)
i = i + 1
End If
Next
ElseIf rbt_Vorb.Checked = True Then
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {4})
Dim i As Integer = 0
Dim Cell = New TableCell
'tr = New HtmlTableRow()
Dim tr = New TableRow
@@ -304,136 +207,18 @@ Partial Class Kundenbereich_Default
tr.Controls.Add(tbl_CellEmpfaenger)
tbl_CellLKWs.Text = d("LKW_Nr").ToString
tr.Controls.Add(tbl_CellLKWs)
tbl_CellKundAuftNr.Text = d("Auftraggeber_KdNr").ToString
tbl_CellKundAuftNr.Text = d("KdAuftragsNr_Avisierer").ToString
tr.Controls.Add(tbl_CellKundAuftNr)
normaltable.Rows.Add(tr)
i = i + 1
End If
Next
ElseIf rbt_Vorg.Checked = True Then
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {5})
Dim i As Integer = 0
Dim Cell = New TableCell
For Each d In dt.Rows
If i <= dt.Rows.Count Then
'tr = New HtmlTableRow()
Dim tr = New TableRow
tbl_CellIndex.Text = i
tr.Controls.Add(tbl_CellIndex)
tbl_CellArt.Text = ""
tr.Controls.Add(tbl_CellArt)
tbl_CellKundenNr.Text = d("Auftraggeber_KdNr").ToString
tr.Controls.Add(tbl_CellKundenNr)
Select Case d("Status")
Case 1
tbl_CellStatus.Text = "Erfasst"
tr.Controls.Add(tbl_CellStatus)
'Case 2
' tbl_CellStatus = "Nicht eingetroffen"
' tr.Controls.Add(Cell)
Case 3
tbl_CellStatus.Text = "Ankunft"
tr.Controls.Add(tbl_CellStatus)
Case 4
tbl_CellStatus.Text = "Vorbereitet"
tr.Controls.Add(tbl_CellStatus)
Case 5
tbl_CellStatus.Text = "Vorgeschrieben"
tr.Controls.Add(tbl_CellStatus)
Case Else
tbl_CellStatus.Text = "Undefiend"
tr.Controls.Add(tbl_CellStatus)
End Select
tbl_Cellvon.Text = d("AvisoEingang").ToString
tr.Controls.Add(tbl_Cellvon)
tbl_Cellbis.Text = d("AvisoEingang").ToString
tr.Controls.Add(tbl_Cellbis)
tbl_CellAbsender.Text = d("Auftraggeber").ToString
tr.Controls.Add(tbl_CellAbsender)
tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString
tr.Controls.Add(tbl_CellEmpfaenger)
tbl_CellLKWs.Text = d("LKW_Nr").ToString
tr.Controls.Add(tbl_CellLKWs)
tbl_CellKundAuftNr.Text = d("Auftraggeber_KdNr").ToString
tr.Controls.Add(tbl_CellKundAuftNr)
normaltable.Rows.Add(tr)
i = i + 1
End If
Next
ElseIf rbt_Erf.Checked = False And rbt_Freig.Checked = False And rbt_Ankunft.Checked = False And rbt_Vorb.Checked = False And rbt_Vorg.Checked = False Then
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext,, datevon, datebis)
Dim i As Integer = 0
Dim Cell = New TableCell
For Each d In dt.Rows
If i <= dt.Rows.Count Then
'tr = New HtmlTableRow()
Dim tr = New TableRow
tbl_CellIndex.Text = i
tr.Controls.Add(tbl_CellIndex)
tbl_CellArt.Text = ""
tr.Controls.Add(tbl_CellArt)
tbl_CellKundenNr.Text = d("Auftraggeber_KdNr").ToString
tr.Controls.Add(tbl_CellKundenNr)
Select Case d("Status")
Case 1
tbl_CellStatus.Text = "Erfasst"
tr.Controls.Add(tbl_CellStatus)
Case 2
tbl_CellStatus.Text = "Nicht eingetroffen"
tr.Controls.Add(tbl_CellStatus)
Case 3
tbl_CellStatus.Text = "Ankunft"
tr.Controls.Add(tbl_CellStatus)
Case 4
tbl_CellStatus.Text = "Vorbereitet"
tr.Controls.Add(tbl_CellStatus)
Case 5
tbl_CellStatus.Text = "Vorgeschrieben"
tr.Controls.Add(tbl_CellStatus)
Case Else
tbl_CellStatus.Text = "Undefiend"
tr.Controls.Add(tbl_CellStatus)
End Select
tbl_Cellvon.Text = d("AvisoEingang").ToString
tr.Controls.Add(tbl_Cellvon)
tbl_Cellbis.Text = d("AvisoEingang").ToString
tr.Controls.Add(tbl_Cellbis)
tbl_CellAbsender.Text = d("Auftraggeber").ToString
tr.Controls.Add(tbl_CellAbsender)
tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString
tr.Controls.Add(tbl_CellEmpfaenger)
tbl_CellLKWs.Text = d("LKW_Nr").ToString
tr.Controls.Add(tbl_CellLKWs)
tbl_CellKundAuftNr.Text = d("Auftraggeber_KdNr").ToString
tr.Controls.Add(tbl_CellKundAuftNr)
normaltable.Rows.Add(tr)
i = i + 1
End If
i = i + 1
Next
End If
End Sub
Protected Sub rbt_Freig_Click(sender As Object, e As EventArgs)
MsgBox("Es funzt!")
@@ -452,13 +237,56 @@ Partial Class Kundenbereich_Default
rbt_Vorb.Checked = False
rbt_Vorb.Enabled = True
txt_KdNr.Text = ""
txt_pickdate1.Text = ""
txt_pickdate2.Text = ""
datevon = Nothing
datebis = Nothing
dt = Nothing
Kdnrtext = ""
txt_KdNr.Focus()
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
tbl_Header_row.TableSection = TableRowSection.TableHeader
End Sub
Protected Sub ckb_Uhrzeit1_CheckedChanged(sender As Object, e As EventArgs)
If ckb_Uhrzeit1.Checked = False Then
lbl_Uhrzeit1_von.ForeColor = Drawing.Color.LightGray
txt_Uhrzeit1_von.ReadOnly = True
lbl_Uhrzeit1_bis.ForeColor = Drawing.Color.LightGray
txt_Uhrzeit1_bis.Enabled = True
lbl_Uhrzeit2_von.ForeColor = Drawing.Color.LightGray
txt_Uhrzeit2_von.Enabled = True
lbl_Uhrzeit2_bis.ForeColor = Drawing.Color.LightGray
txt_Uhrzeit2_bis.Enabled = True
setuhrzeit1bool = True
ElseIf ckb_Uhrzeit2.Checked = False Then
lbl_Uhrzeit1_von.ForeColor = Drawing.Color.LightGray
txt_Uhrzeit1_von.ReadOnly = True
lbl_Uhrzeit1_bis.ForeColor = Drawing.Color.LightGray
txt_Uhrzeit1_bis.Enabled = True
lbl_Uhrzeit2_von.ForeColor = Drawing.Color.LightGray
txt_Uhrzeit2_von.Enabled = True
lbl_Uhrzeit2_bis.ForeColor = Drawing.Color.LightGray
txt_Uhrzeit2_bis.Enabled = True
setuhrzeit2bool = True
Else
lbl_Uhrzeit1_von.ForeColor = Drawing.Color.FromArgb(452129)
txt_Uhrzeit1_von.ReadOnly = False
lbl_Uhrzeit1_bis.ForeColor = Drawing.Color.FromArgb(452129)
txt_Uhrzeit1_bis.ReadOnly = False
lbl_Uhrzeit2_von.ForeColor = Drawing.Color.FromArgb(452129)
txt_Uhrzeit2_von.ReadOnly = False
lbl_Uhrzeit2_bis.ForeColor = Drawing.Color.FromArgb(452129)
txt_Uhrzeit2_bis.ReadOnly = False
setuhrzeit1bool = False
setuhrzeit2bool = False
End If
End Sub
End Class

BIN
images/Icons/main/uhr.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.8 KiB