GUI Aufträge implementiert und Datenbankzugriffe gesetzt
This commit is contained in:
ja
@@ -1,6 +1,10 @@
|
||||
|
||||
Imports System.Web.UI.HtmlControls
|
||||
|
||||
Partial Class Kundenbereich_Default
|
||||
Inherits System.Web.UI.Page
|
||||
|
||||
|
||||
Protected Sub LogOutBtn1_Click(sender As Object, e As EventArgs)
|
||||
|
||||
FormsAuthentication.SignOut()
|
||||
@@ -13,47 +17,134 @@ Partial Class Kundenbereich_Default
|
||||
Session.Abandon()
|
||||
Response.Redirect("../newpageJulius_Sidebar.aspx", True)
|
||||
End Sub
|
||||
Dim dt0, dt1, dt3, dt4, dt5
|
||||
|
||||
Protected Sub btn_Auftraege_Click(sender As Object, e As EventArgs)
|
||||
Dim Kdnrtext = txt_KdNr.Text
|
||||
Dim datevon As Date = pickdate1.SelectedDate
|
||||
Dim datebis As Date = pickdate2.SelectedDate
|
||||
|
||||
|
||||
|
||||
Protected Sub Button1_Click(sender As Object, e As EventArgs)
|
||||
Dim Kdnrtext = TB_KdNr.Text
|
||||
Dim truefalse(5) As Boolean
|
||||
Dim numarr(5) As Integer
|
||||
If rbt_Erf.Checked = True Then
|
||||
dt0 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0}, datevon, datebis)
|
||||
Dim i As Integer = 0
|
||||
For Each d In dt0.Rows
|
||||
Dim tr As HtmlTableRow = New HtmlTableRow()
|
||||
tr.Cells.Add(New HtmlTableCell(<td><CheckBox ID="CheckBox1" runat="server"/></td>))
|
||||
tr.Cells.Add(New HtmlTableCell(i))
|
||||
tr.Cells.Add(New HtmlTableCell(d("")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("KundenNr")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("Status")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("von")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("bis")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("Absender")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("Empfänger")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr")))
|
||||
tr.Cells.Add(New HtmlTableCell(<td><center><button type="button" class="btn btn-primary" data-toggle="collapse" data-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button></center></td>))
|
||||
|
||||
Dim dt
|
||||
|
||||
If RadioButtonErf.Checked = True Then
|
||||
i = i + 1
|
||||
Next
|
||||
ElseIf rbt_Freig.Checked = True Then
|
||||
dt1 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {1}, datevon, datebis)
|
||||
Dim i As Integer = 0
|
||||
For Each d In dt1.Rows
|
||||
Dim tr As HtmlTableRow = New HtmlTableRow()
|
||||
tr.Cells.Add(New HtmlTableCell(<td><CheckBox ID="CheckBox2" runat="server"/></td>))
|
||||
tr.Cells.Add(New HtmlTableCell(i))
|
||||
tr.Cells.Add(New HtmlTableCell(d("")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("KundenNr")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("Status")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("von")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("bis")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("Absender")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("Empfänger")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr")))
|
||||
tr.Cells.Add(New HtmlTableCell(<td><center><button type="button" class="btn btn-primary" data-toggle="collapse" data-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button></center></td>))
|
||||
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Integer.Parse(TB_KdNr.Text), {0}, DateTime.Now.ToString, DateTime.Today.AddDays(10).ToString)
|
||||
ElseIf RadioButtonFreig.Checked = True Then
|
||||
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Integer.Parse(TB_KdNr.Text), {1}, DateTime.Now.ToString, DateTime.Today.AddDays(10).ToString)
|
||||
ElseIf RadioButtonAnkunft.Checked = True Then
|
||||
i = i + 1
|
||||
Next
|
||||
ElseIf rbt_Ankunft.Checked = True Then
|
||||
dt3 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {3})
|
||||
Dim i As Integer = 0
|
||||
For Each d In dt3.Rows
|
||||
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Integer.Parse(TB_KdNr.Text), {3})
|
||||
ElseIf RadioButtonVorb.Checked = True Then
|
||||
Dim tr As HtmlTableRow = New HtmlTableRow()
|
||||
tr.Cells.Add(New HtmlTableCell(<td><CheckBox ID="CheckBox3" runat="server"/></td>))
|
||||
tr.Cells.Add(New HtmlTableCell(i))
|
||||
tr.Cells.Add(New HtmlTableCell(d(Nothing)))
|
||||
tr.Cells.Add(New HtmlTableCell(d("KundenNr")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("Status")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("von")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("bis")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("Absender")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("Empfänger")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr")))
|
||||
tr.Cells.Add(New HtmlTableCell(<td><center><button type="button" class="btn btn-primary" data-toggle="collapse" data-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button></center></td>))
|
||||
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Integer.Parse(TB_KdNr.Text), {4})
|
||||
i = i + 1
|
||||
Next
|
||||
ElseIf rbt_Vorb.Checked = True Then
|
||||
dt4 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {4})
|
||||
Dim i As Integer = 0
|
||||
For Each d In dt4.Rows
|
||||
Dim tr As HtmlTableRow = New HtmlTableRow()
|
||||
tr.Cells.Add(New HtmlTableCell(<td><CheckBox ID="CheckBox4" runat="server"/></td>))
|
||||
tr.Cells.Add(New HtmlTableCell(i))
|
||||
tr.Cells.Add(New HtmlTableCell(d(Nothing)))
|
||||
tr.Cells.Add(New HtmlTableCell(d("KundenNr")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("Status")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("von")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("bis")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("Absender")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("Empfänger")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr")))
|
||||
tr.Cells.Add(New HtmlTableCell(<td><center><button type="button" class="btn btn-primary" data-toggle="collapse" data-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button></center></td>))
|
||||
|
||||
i = i + 1
|
||||
Next
|
||||
ElseIf rbt_Vorg.Checked = True Then
|
||||
dt5 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {5})
|
||||
Dim i As Integer = 0
|
||||
For Each d In dt5.Rows
|
||||
Dim tr As HtmlTableRow = New HtmlTableRow()
|
||||
tr.Cells.Add(New HtmlTableCell(<td><CheckBox ID="CheckBox5" runat="server"/></td>))
|
||||
tr.Cells.Add(New HtmlTableCell(i))
|
||||
tr.Cells.Add(New HtmlTableCell(d(Nothing)))
|
||||
tr.Cells.Add(New HtmlTableCell(d("KundenNr")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("Status")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("von")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("bis")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("Absender")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("Empfänger")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
|
||||
tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr")))
|
||||
tr.Cells.Add(New HtmlTableCell(<td><center><button type="button" class="btn btn-primary" data-toggle="collapse" data-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button></center></td>))
|
||||
|
||||
i = i + 1
|
||||
Next
|
||||
End If
|
||||
|
||||
For Each num In numarr
|
||||
If truefalse.GetValue(num) = True Then
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Integer.Parse(TB_KdNr.Text), {num})
|
||||
Else
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Integer.Parse(TB_KdNr.Text), {0})
|
||||
End If
|
||||
Next
|
||||
|
||||
End Sub
|
||||
Protected Sub rbt_Freig_Click(sender As Object, e As EventArgs)
|
||||
MsgBox("Es funzt!")
|
||||
' datepicker1.Visible = True
|
||||
' datepicker2.Visible = True
|
||||
End Sub
|
||||
Protected Sub btn_resetForm_Click(sender As Object, e As EventArgs)
|
||||
rbt_Ankunft.Checked = False
|
||||
rbt_Erf.Checked = False
|
||||
rbt_Freig.Checked = False
|
||||
rbt_Vorg.Checked = False
|
||||
rbt_Vorb.Checked = False
|
||||
txt_KdNr.Text = ""
|
||||
txt_KdNr.Focus()
|
||||
|
||||
Protected Sub Button2_Click(sender As Object, e As EventArgs)
|
||||
RadioButtonAnkunft.Checked = False
|
||||
RadioButtonErf.Checked = False
|
||||
RadioButtonFreig.Checked = False
|
||||
RadioButtonVorb.Checked = False
|
||||
RadioButtonVorg.Checked = False
|
||||
TB_KdNr.Text = ""
|
||||
TB_KdNr.Focus()
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user