242 lines
9.8 KiB
VB.net
242 lines
9.8 KiB
VB.net
|
|
Imports System.Data
|
|
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()
|
|
Session.Abandon()
|
|
Response.Redirect("../newpageJulius_Sidebar.aspx", True)
|
|
End Sub
|
|
Protected Sub LogOutBtn2_Click(sender As Object, e As EventArgs)
|
|
|
|
FormsAuthentication.SignOut()
|
|
Session.Abandon()
|
|
Response.Redirect("../newpageJulius_Sidebar.aspx", True)
|
|
End Sub
|
|
|
|
'Für ASP-NET-Table
|
|
'Dim row As TableRow
|
|
'Dim dvRow As Data.DataRowView
|
|
|
|
Protected Sub btn_Auftraege_Click(sender As Object, e As EventArgs)
|
|
Dim Kdnrtext = txt_KdNr.Text
|
|
Dim datevon As Date
|
|
Dim datebis As Date
|
|
Dim dt
|
|
Try
|
|
datevon = pickdate1.SelectedDate
|
|
datebis = pickdate2.SelectedDate
|
|
Catch
|
|
datevon = DateValue(Date.Now.ToString("01.MM.yyyy"))
|
|
datebis = DateValue(Date.Now)
|
|
End Try
|
|
|
|
Dim tr
|
|
|
|
|
|
If rbt_Erf.Checked = True Then
|
|
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0})
|
|
|
|
Dim i As Integer = 0
|
|
'Dim Cell = New TableCell
|
|
|
|
For Each d In dt.Rows
|
|
'Dim tr = New TableRow
|
|
tr = New HtmlTableRow()
|
|
Do
|
|
'Cell.Controls.Add(New HtmlTableCell(i))
|
|
tr.Cells.Add(New HtmlTableCell(""))
|
|
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
|
tr.Cells.Add(New HtmlTableCell(d("AvisoEingang")))
|
|
tr.Cells.Add(New HtmlTableCell(d("AvisoEingang")))
|
|
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
|
|
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
|
|
tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
|
|
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
|
tr.Cells.Add(New HtmlTableCell(<button type="button" class="btn btn-primary" data-bstoggle="collapse" data-bs-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button>))
|
|
trContent.Rows.Add(tr)
|
|
|
|
i = i + 1
|
|
Loop
|
|
While i <= dt.Rows.Count
|
|
|
|
End While
|
|
|
|
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
|
|
tr = New HtmlTableRow()
|
|
For Each d In dt.Rows
|
|
'Dim tr = New TableRow
|
|
|
|
Do
|
|
'Cell.Controls.Add(New HtmlTableCell(i))
|
|
tr.Cells.Add(New HtmlTableCell(""))
|
|
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
|
tr.Cells.Add(New HtmlTableCell(d("AvisoEingang")))
|
|
tr.Cells.Add(New HtmlTableCell(d("AvisoEingang")))
|
|
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
|
|
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
|
|
tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
|
|
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
|
tr.Cells.Add(New HtmlTableCell(<button type="button" class="btn btn-primary" data-bstoggle="collapse" data-bs-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button>))
|
|
trContent.Rows.Add(tr)
|
|
|
|
i = i + 1
|
|
Loop
|
|
While i <= dt.Rows.Count
|
|
|
|
End While
|
|
|
|
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
|
|
tr = New HtmlTableRow()
|
|
For Each d In dt.Rows
|
|
'Dim tr = New TableRow
|
|
|
|
Do
|
|
'Cell.Controls.Add(New HtmlTableCell(i))
|
|
tr.Cells.Add(New HtmlTableCell(""))
|
|
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
|
tr.Cells.Add(New HtmlTableCell(""))
|
|
tr.Cells.Add(New HtmlTableCell(""))
|
|
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
|
|
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
|
|
tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
|
|
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
|
tr.Cells.Add(New HtmlTableCell(<button type="button" class="btn btn-primary" data-bstoggle="collapse" data-bs-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button>))
|
|
trContent.Rows.Add(tr)
|
|
|
|
i = i + 1
|
|
Loop
|
|
While i <= dt.Rows.Count
|
|
|
|
End While
|
|
|
|
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()
|
|
For Each d In dt.Rows
|
|
'Dim tr = New TableRow
|
|
|
|
Do
|
|
'Cell.Controls.Add(New HtmlTableCell(i))
|
|
tr.Cells.Add(New HtmlTableCell(""))
|
|
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
|
tr.Cells.Add(New HtmlTableCell(""))
|
|
tr.Cells.Add(New HtmlTableCell(""))
|
|
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
|
|
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
|
|
tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
|
|
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
|
tr.Cells.Add(New HtmlTableCell(<button type="button" class="btn btn-primary" data-bstoggle="collapse" data-bs-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button>))
|
|
trContent.Rows.Add(tr)
|
|
|
|
i = i + 1
|
|
Loop
|
|
While i <= dt.Rows.Count
|
|
|
|
End While
|
|
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
|
|
tr = New HtmlTableRow()
|
|
For Each d In dt.Rows
|
|
'Dim tr = New TableRow
|
|
|
|
Do
|
|
'Cell.Controls.Add(New HtmlTableCell(i))
|
|
tr.Cells.Add(New HtmlTableCell(""))
|
|
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
|
tr.Cells.Add(New HtmlTableCell(""))
|
|
tr.Cells.Add(New HtmlTableCell(""))
|
|
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
|
|
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
|
|
tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
|
|
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
|
tr.Cells.Add(New HtmlTableCell(<button type="button" class="btn btn-primary" data-bstoggle="collapse" data-bs-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button>))
|
|
trContent.Rows.Add(tr)
|
|
|
|
i = i + 1
|
|
Loop
|
|
While i <= dt.Rows.Count
|
|
|
|
End While
|
|
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
|
|
tr = New HtmlTableRow()
|
|
For Each d In dt.Rows
|
|
'Dim tr = New TableRow
|
|
|
|
Do
|
|
'Cell.Controls.Add(New HtmlTableCell(i))
|
|
tr.Cells.Add(New HtmlTableCell(""))
|
|
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
|
tr.Cells.Add(New HtmlTableCell(d("AvisoEingang")))
|
|
tr.Cells.Add(New HtmlTableCell(d("AvisoEingang")))
|
|
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
|
|
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber")))
|
|
tr.Cells.Add(New HtmlTableCell(d("LKW_Nr")))
|
|
tr.Cells.Add(New HtmlTableCell(d("Auftraggeber_KdNr")))
|
|
tr.Cells.Add(New HtmlTableCell(<button type="button" class="btn btn-primary" data-bstoggle="collapse" data-bs-target="#demo" id="togglecollapsesub1"><img src="../images/Icons/service/hilfe.png" width="15" height="15"/></button>))
|
|
trContent.Rows.Add(tr)
|
|
|
|
i = i + 1
|
|
Loop
|
|
While i <= dt.Rows.Count
|
|
|
|
End While
|
|
|
|
Next
|
|
End If
|
|
|
|
|
|
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()
|
|
|
|
End Sub
|
|
|
|
'Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
' TableHeaderRow1.TableSection = TableRowSection.TableHeader
|
|
'End Sub
|
|
End Class
|