Änderungen

Customers/CustomsAviso.aspx.vb

@@ -1,4 +1,5 @@
 
+Imports System.Data
 Imports System.Web.UI.HtmlControls
 
 Partial Class Kundenbereich_Default
@@ -17,116 +18,271 @@ Partial Class Kundenbereich_Default
         Session.Abandon()
         Response.Redirect("../newpageJulius_Sidebar.aspx", True)
     End Sub
-    Dim dt0, dt1, dt3, dt4, dt5
-
+    Dim dt0, dt1, dt3, dt4, dt5, dt6
+    Dim dtmain As DataTable = New DataTable
     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
+        Dim datevon As Date
+        Dim datebis As Date
+
+        Try
+            datevon = pickdate1.SelectedDate
+            datebis = pickdate2.SelectedDate
+        Catch
+            datevon = DateValue(Date.Now.ToString("01.MM.yyyy"))
+            datebis = DateValue(Date.Now)
+        End Try
 
 
 
         If rbt_Erf.Checked = True Then
-            dt0 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0}, datevon, datebis)
-            Dim i As Integer = 0
+            dt0 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0})
+            dtmain.Columns.AddRange(New DataColumn() {New DataColumn("Auswahl", GetType(CheckBox)), New DataColumn("Index-Nr", GetType(System.Int32)), New DataColumn("ART", GetType(System.String)), New DataColumn("KundenNr", GetType(System.Int32)), New DataColumn("Status", GetType(System.String)), New DataColumn("Von", GetType(System.DateTime)), New DataColumn("Bis", GetType(System.DateTime)), New DataColumn("Absender", GetType(System.String)), New DataColumn("Empfänger", GetType(System.DateTime)), New DataColumn("LKW_Nr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(System.String))})
+            Dim i As Integer = 1
             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(Nothing)))
-                tr.Cells.Add(New HtmlTableCell(Kdnrtext))
                 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("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(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>))
-
+                dtmain.Rows.Add(tr)
+                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 dtmain.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 dtmain.Rows
+                    sb.Append("<tr>")
+                    For Each column As DataColumn In dtmain.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
 
                 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
+            dt1 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {1}, pickdate1.SelectedDate, pickdate2.SelectedDate)
+            dtmain.Columns.AddRange(New DataColumn() {New DataColumn("Auswahl", GetType(CheckBox)), New DataColumn("Index-Nr", GetType(System.Int32)), New DataColumn("ART", GetType(System.String)), New DataColumn("KundenNr", GetType(System.Int32)), New DataColumn("Status", GetType(System.String)), New DataColumn("Von", GetType(System.DateTime)), New DataColumn("Bis", GetType(System.DateTime)), New DataColumn("Absender", GetType(System.String)), New DataColumn("Empfänger", GetType(System.DateTime)), New DataColumn("LKW_Nr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(System.String))})
+            Dim i As Integer = 1
             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(Nothing)))
-                tr.Cells.Add(New HtmlTableCell(Kdnrtext))
                 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("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(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>))
-
+                dtmain.Rows.Add(tr)
+                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 dtmain.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 dtmain.Rows
+                    sb.Append("<tr>")
+                    For Each column As DataColumn In dtmain.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
 
                 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
+            'dtmain.Columns.AddRange(New DataColumn() {New DataColumn("Auswahl", GetType(CheckBox)), New DataColumn("Index-Nr", GetType(System.Int32)), New DataColumn("ART", GetType(System.String)), New DataColumn("KundenNr", GetType(System.Int32)), New DataColumn("Status", GetType(System.String)), New DataColumn("Von", GetType(System.DateTime)), New DataColumn("Bis", GetType(System.DateTime)), New DataColumn("Absender", GetType(System.String)), New DataColumn("Empfänger", GetType(System.DateTime)), New DataColumn("LKW_Nr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(Button))})
+            Dim i As Integer = 1
             For Each d In dt3.Rows
-
                 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("")))
-                tr.Cells.Add(New HtmlTableCell(Kdnrtext))
+                'tr.Cells.Add(New HtmlTableCell(d(Nothing)))
                 tr.Cells.Add(New HtmlTableCell(d("Status")))
-                'tr.Cells.Add(New HtmlTableCell(Nothing))
-                'tr.Cells.Add(New HtmlTableCell(Nothing))
-                tr.Cells.Add(New HtmlTableCell(d("Absender")))
-                tr.Cells.Add(New HtmlTableCell(d("Empfänger")))
+                '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>))
+                'tr.Cells.Add(New HtmlTableCell(d("KdAuftragsNr")))
+                tr.Cells.Add(New HtmlTableCell(<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>))
+                dtmain.Rows.Add(tr)
+                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 dtmain.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 dtmain.Rows
+                    sb.Append("<tr>")
+                    For Each column As DataColumn In dtmain.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
 
                 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
+            dtmain.Columns.AddRange(New DataColumn() {New DataColumn("Auswahl", GetType(CheckBox)), New DataColumn("Index-Nr", GetType(System.Int32)), New DataColumn("ART", GetType(System.String)), New DataColumn("KundenNr", GetType(System.Int32)), New DataColumn("Status", GetType(System.String)), New DataColumn("Von", GetType(System.DateTime)), New DataColumn("Bis", GetType(System.DateTime)), New DataColumn("Absender", GetType(System.String)), New DataColumn("Empfänger", GetType(System.DateTime)), New DataColumn("LKW_Nr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(System.String))})
+            Dim i As Integer = 1
             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(Kdnrtext))
                 tr.Cells.Add(New HtmlTableCell(d("Status")))
-                'tr.Cells.Add(New HtmlTableCell(Nothing))
-                'tr.Cells.Add(New HtmlTableCell(Nothing))
-                tr.Cells.Add(New HtmlTableCell(d("Absender")))
-                tr.Cells.Add(New HtmlTableCell(d("Empfänger")))
+                '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(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>))
+                dtmain.Rows.Add(tr)
+                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 dtmain.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 dtmain.Rows
+                    sb.Append("<tr>")
+                    For Each column As DataColumn In dtmain.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
 
                 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
+            dtmain.Columns.AddRange(New DataColumn() {New DataColumn("Auswahl", GetType(CheckBox)), New DataColumn("Index-Nr", GetType(System.Int32)), New DataColumn("ART", GetType(System.String)), New DataColumn("KundenNr", GetType(System.Int32)), New DataColumn("Status", GetType(System.String)), New DataColumn("Von", GetType(System.DateTime)), New DataColumn("Bis", GetType(System.DateTime)), New DataColumn("Absender", GetType(System.String)), New DataColumn("Empfänger", GetType(System.DateTime)), New DataColumn("LKW_Nr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(System.String))})
+            Dim i As Integer = 1
             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(Kdnrtext))
                 tr.Cells.Add(New HtmlTableCell(d("Status")))
-                'tr.Cells.Add(New HtmlTableCell(Nothing))
-                'tr.Cells.Add(New HtmlTableCell(Nothing))
-                tr.Cells.Add(New HtmlTableCell(d("Absender")))
-                tr.Cells.Add(New HtmlTableCell(d("Empfänger")))
+                '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(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>))
-
+                dtmain.Rows.Add(tr)
+                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 dtmain.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 dtmain.Rows
+                    sb.Append("<tr>")
+                    For Each column As DataColumn In dtmain.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
+                i = i + 1
+            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
+            dt6 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext,, datevon, datebis)
+            dtmain.Columns.AddRange(New DataColumn() {New DataColumn("Auswahl", GetType(CheckBox)), New DataColumn("Index-Nr", GetType(System.Int32)), New DataColumn("ART", GetType(System.String)), New DataColumn("KundenNr", GetType(System.Int32)), New DataColumn("Status", GetType(System.String)), New DataColumn("Von", GetType(System.DateTime)), New DataColumn("Bis", GetType(System.DateTime)), New DataColumn("Absender", GetType(System.String)), New DataColumn("Empfänger", GetType(System.DateTime)), New DataColumn("LKW_Nr", GetType(System.String)), New DataColumn("KdAuftragsNr", GetType(System.String))})
+            Dim i As Integer = 1
+            For Each d In dt6.Rows
+                Dim tr As HtmlTableRow = New HtmlTableRow()
+                tr.Cells.Add(New HtmlTableCell(i))
+                'tr.Cells.Add(New HtmlTableCell(d(Nothing)))
+                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>))
+                dtmain.Rows.Add(tr)
+                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 dtmain.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 dtmain.Rows
+                    sb.Append("<tr>")
+                    For Each column As DataColumn In dtmain.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
                 i = i + 1
             Next
         End If
@@ -147,4 +303,20 @@ Partial Class Kundenbereich_Default
         txt_KdNr.Focus()
 
     End Sub
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Me.IsPostBack Then
+            Dim dt As DataTable = New DataTable
+            dt.Columns.AddRange(New DataColumn() {New DataColumn("Id", GetType(System.Int32)), New DataColumn("Name", GetType(System.String)), New DataColumn("Country", GetType(System.String))})
+            dt.Rows.Add(1, "John Hammond", "United States")
+            dt.Rows.Add(2, "Mudassar Khan", "India")
+            dt.Rows.Add(3, "Suzanne Mathews", "France")
+            dt.Rows.Add(4, "Robert Schidner", "Russia")
+
+            Dim sb As StringBuilder = New StringBuilder()
+
+
+        End If
+    End Sub
+
 End Class