476 lines
18 KiB
VB.net
476 lines
18 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
|
|
|
|
|
|
|
|
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 tbl_CellIndex = New TableCell
|
|
Dim tbl_CellArt = New TableCell
|
|
Dim tbl_CellKundenNr = New TableCell
|
|
Dim tbl_CellStatus = New TableCell
|
|
Dim tbl_Cellvon = New TableCell
|
|
Dim tbl_Cellbis = New TableCell
|
|
Dim tbl_CellAbsender = New TableCell
|
|
Dim tbl_CellEmpfaenger = New TableCell
|
|
Dim tbl_CellLKWs = New TableCell
|
|
Dim tbl_CellKundAuftNr = New TableCell
|
|
Dim novalexception As Exception
|
|
|
|
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
|
|
|
|
'Dim tr
|
|
|
|
|
|
|
|
If rbt_Erf.Checked = True Then
|
|
|
|
|
|
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0})
|
|
|
|
Dim i As Integer = 0
|
|
|
|
|
|
'Dim sb As StringBuilder = New StringBuilder()
|
|
|
|
'Table start.
|
|
'sb.Append("<table cellpadding='5' cellspacing='0' style='border: 1px solid #ccc;font-size: 9pt;font-family:Arial'>")
|
|
'Adding HeaderRow.
|
|
'sb.Append("<tr>")
|
|
'For Each column As DataColumn In dt.Columns
|
|
' sb.Append(("<th style='background-color: #B8DBFD;border: 1px solid #ccc'>" _
|
|
' + (column.ColumnName + "</th>")))
|
|
'Next
|
|
'sb.Append("</tr>")
|
|
'Adding DataRow.
|
|
'For Each row As DataRow In dt.Rows
|
|
'sb.Append("<tr>")
|
|
'For Each column As DataColumn In dt.Columns
|
|
' sb.Append(("<td style='width:100px;border: 1px solid #ccc'>" _
|
|
' + (row(column.ColumnName).ToString + "</td>")))
|
|
' Next
|
|
' sb.Append("</tr>")
|
|
'Next
|
|
'Table end.
|
|
'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
|
|
For Each d In dt.Rows
|
|
If i <= dt.Rows.Count Then
|
|
|
|
|
|
|
|
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_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
|
|
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_Ankunft.Enabled = True
|
|
rbt_Erf.Checked = False
|
|
rbt_Erf.Enabled = True
|
|
rbt_Freig.Checked = False
|
|
rbt_Freig.Enabled = True
|
|
rbt_Vorg.Checked = False
|
|
rbt_Vorg.Enabled = True
|
|
rbt_Vorb.Checked = False
|
|
rbt_Vorb.Enabled = True
|
|
txt_KdNr.Text = ""
|
|
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
|
|
End Class
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|