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> <h1>Kundencenter:</h1>
<div id="line" style="width: 92%;"></div> <div id="line" style="width: 92%;"></div>
<br/> <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 <%Try
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW
'Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(799124) '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_Ankunft" runat="server" Text="Ankunft"/>
<asp:RadioButton ID="rbt_Freig" runat="server" Text="Freigabe" onclick="rbt_Freig_Click"/> <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: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: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--> <!-- Optionale Suchparameter-->
<asp:Label ID="lbl_Absender" runat="server" Text="Absender"></asp:Label> <asp:Label ID="lbl_Absender" runat="server" Text="Absender"></asp:Label>
<asp:TextBox ID="txt_Absender" runat="server" ></asp:TextBox> <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) Response.Redirect("../newpageJulius_Sidebar.aspx", True)
End Sub 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) Protected Sub btn_Auftraege_Click(sender As Object, e As EventArgs)
Dim Kdnrtext = txt_KdNr.Text Kdnrtext = txt_KdNr.Text
Dim datevon As Date
Dim datebis As Date
Dim tbl_CellIndex = New TableCell Dim tbl_CellIndex = New TableCell
Dim tbl_CellArt = New TableCell Dim tbl_CellArt = New TableCell
@@ -36,26 +39,102 @@ Partial Class Kundenbereich_Default
Dim tbl_CellEmpfaenger = New TableCell Dim tbl_CellEmpfaenger = New TableCell
Dim tbl_CellLKWs = New TableCell Dim tbl_CellLKWs = New TableCell
Dim tbl_CellKundAuftNr = New TableCell Dim tbl_CellKundAuftNr = New TableCell
Dim novalexception As Exception Dim tbl_CellInfo = New TableCell
Dim dt dt = Nothing
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
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 'Dim tr
If rbt_Erf.Checked = True Then If rbt_Erf.Checked = True Then
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0}) 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 Dim i As Integer = 0
@@ -83,182 +162,6 @@ Partial Class Kundenbereich_Default
'sb.Append("</table>") 'sb.Append("</table>")
' ltTable.Text = sb.ToString ' 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 Dim Cell = New TableCell
'tr = New HtmlTableRow() 'tr = New HtmlTableRow()
Dim tr = New TableRow Dim tr = New TableRow
@@ -304,136 +207,18 @@ Partial Class Kundenbereich_Default
tr.Controls.Add(tbl_CellEmpfaenger) tr.Controls.Add(tbl_CellEmpfaenger)
tbl_CellLKWs.Text = d("LKW_Nr").ToString tbl_CellLKWs.Text = d("LKW_Nr").ToString
tr.Controls.Add(tbl_CellLKWs) tr.Controls.Add(tbl_CellLKWs)
tbl_CellKundAuftNr.Text = d("Auftraggeber_KdNr").ToString tbl_CellKundAuftNr.Text = d("KdAuftragsNr_Avisierer").ToString
tr.Controls.Add(tbl_CellKundAuftNr) 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) 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 End If
i = i + 1
Next Next
End If End If
End Sub End Sub
Protected Sub rbt_Freig_Click(sender As Object, e As EventArgs) Protected Sub rbt_Freig_Click(sender As Object, e As EventArgs)
MsgBox("Es funzt!") MsgBox("Es funzt!")
@@ -452,13 +237,56 @@ Partial Class Kundenbereich_Default
rbt_Vorb.Checked = False rbt_Vorb.Checked = False
rbt_Vorb.Enabled = True rbt_Vorb.Enabled = True
txt_KdNr.Text = "" txt_KdNr.Text = ""
txt_pickdate1.Text = ""
txt_pickdate2.Text = ""
datevon = Nothing
datebis = Nothing
dt = Nothing
Kdnrtext = ""
txt_KdNr.Focus() txt_KdNr.Focus()
End Sub End Sub
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
tbl_Header_row.TableSection = TableRowSection.TableHeader tbl_Header_row.TableSection = TableRowSection.TableHeader
End Sub 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 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