From 53002369669ed51d98044c0e330c551a319326b6 Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Wed, 8 Sep 2021 15:36:06 +0200
Subject: [PATCH] =?UTF-8?q?GUI=20Auftr=C3=A4ge=20implementiert=20und=20Dat?=
 =?UTF-8?q?enbankzugriffe=20gesetzt?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Customers/CustomsAviso.aspx    |  70 +++++-----------
 Customers/CustomsAviso.aspx.vb | 149 ++++++++++++++++++++++++++-------
 2 files changed, 143 insertions(+), 76 deletions(-)

diff --git a/Customers/CustomsAviso.aspx b/Customers/CustomsAviso.aspx
index 0f4cf2e..4b482f6 100644
--- a/Customers/CustomsAviso.aspx
+++ b/Customers/CustomsAviso.aspx
@@ -62,65 +62,41 @@
 
                                      If True Then 'AVISO.Status <> 1 And AVISO.Status <> 2 Then 'SENDUNGSTABELLE'%>    
                                                                  <h2><%=STANDORT %></h2>                                                             
-                                            Bitte eine Auswahl treffen:
-                        
-                                            <asp:Button ID="Button2" runat="server" Text="Reset Filters" onclick="Button2_Click"/>
-                                            <asp:Label ID="Label1" runat="server" Text="Die Kundennummer:"></asp:Label>   
-                                            <asp:TextBox ID="TB_KdNr" runat="server"></asp:TextBox>
-                                            <asp:RadioButton ID="RadioButtonErf" runat="server" Text="Erfasst"/>
-                                            <asp:RadioButton ID="RadioButtonVorb" runat="server" Text="Vorbereitet"/>
-                                            <asp:RadioButton ID="RadioButtonVorg" runat="server" Text="Vorgeschrieben"/>
-                                            <asp:RadioButton ID="RadioButtonAnkunft" runat="server" Text="Ankunft"/>
-                                            <asp:RadioButton ID="RadioButtonFreig" runat="server" Text="Freigabe"/>
-                                            
-                                            
-                                            <%If RadioButtonFreig.Checked = False Then %> 
-                                            <div class="row">                                       
-                                                 <div class="form-group ">
-                                                  <label class="control-label">
-                                                   Von
-                                                  </label>
-                                                     <asp:Label runat="server" Text="Bitte Freigabe auswählen..."></asp:Label>                                                  
-                                                 </div>
-                                                 <div class="form-group ">
-                                                  <label class="control-label">
-                                                   Bis
-                                                  </label>
-                                                  <asp:Label runat="server" Text="Bitte Freigabe auswählen..."></asp:Label>
-                                                 </div>                                       
-                                               </div>                      
-                                            <%Else If RadioButtonFreig.Checked = True Then %>                
-                                        <div class="input-group input-daterange">
-                                            <input type="text" class="form-control" value="2012-04-05">
-                                            <input type="hidden" id="my_hidden_input">
-                                            <div class="input-group-addon">to</div>
-                                            <div class="input-group input-daterange">
-                                            <input type="text" class="form-control" value="2012-04-05">
-                                                <input type="hidden" id="my_hidden_input2">
-                                        </div>
-                
-                                            <%End If %>
+                                           <asp:Label ID="Label1" runat="server" Text="Bitte eine Auswahl treffen:"></asp:Label>                          
+                                            <asp:Button ID="btn_resetForm" runat="server" Text="Reset Filters" onclick="btn_resetForm_Click"/>
+                                            <asp:Label ID="lbl_Kndnr" runat="server" Text="Die Kundennummer:"></asp:Label>   
+                                            <asp:TextBox ID="txt_KdNr" runat="server"></asp:TextBox>
+                                            <asp:RadioButton ID="rbt_Erf" runat="server" Text="Erfasst"/>
+                                            <asp:RadioButton ID="rbt_Vorb" runat="server" Text="Vorbereitet"/>
+                                            <asp:RadioButton ID="rbt_Vorg" runat="server" Text="Vorgeschrieben"/>
+                                            <asp:RadioButton ID="rbt_Ankunft" runat="server" Text="Ankunft"/>
+                                            <asp:RadioButton ID="rbt_Freig" runat="server" Text="Freigabe" onclick="rbt_Freig_Click"/>
+                                                                                                                               
+                                                     
+                                            <asp:Calendar id="pickdate1" runat="server"></asp:Calendar>
+                                            <asp:Calendar id="pickdate2" runat="server"></asp:Calendar>
+                                           
 
-                                            <asp:Button ID="Button1" runat="server" Text="Erhalte Aufträge" OnClick="Button1_Click" />
+                                            <asp:Button ID="btn_Auftraege" runat="server" Text="Erhalte Aufträge" OnClick="btn_Auftraege_Click" />
                                               <input class="form-control mb-4" id="tableSearch" type="text"
                                                 placeholder="Einen Begriff eingeben oder den Anfang davon ...">
-                                                 <div id="conovertab">               
+                                                <div id="conovertab">               
                                                <table class="table table-hover" id="normaltable" border="0" cellspacing="0" contenteditable="false" style="width:1250px" >        
-                                                    <thead style="height:/*20px;*/ 1.56128024980484vh; /*background-color:#043381;*/ background-image: linear-gradient(to right, #003680 , #0055cc); color:#fff; font-weight:900;">
-                                                    <tr><th>Auswahl</th><th>LKW-Nr.</th><th>Kennzeichen</th><th>Standort</th><th>Frächter</th><th>Fracht</th><th>Info</th></tr>
-                                                    </thead>
-                                                    <tbody id="myTable">
+                                                    <th style="height:/*20px;*/ 1.56128024980484vh; /*background-color:#043381;*/ background-image: linear-gradient(to right, #003680 , #0055cc); color:#fff; font-weight:900;">
+                                                    <tr><th>Auswahl</th><th>ART</th><th>KundenNr</th><th>Status</th><th>Von</th><th>Bis</th><th>Absender</th><th>Empfänger</th><th>LKW_Nr</th><th>Kunden-AuftragsNr</th></tr>
+                                                    </th>
+                                                   <!-- <tbody id="myTable">
                                                         <tr><td><asp:CheckBox ID="CheckBox9" runat="server" /></td><td>1</td><td>PAN WE 231</td><td>SUBEN</td><td>TESTFRÄCHTER</td><td>2 Pck Teer</td><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>
                                                        
                                                         <tr><td><asp:CheckBox ID="CheckBox10" runat="server" /></td><td>2</td><td>SME IE 889</td><td>SUBEN</td><td>TESTFRÄCHTER</td><td>2 Pck Kaugummis</td><td><center><button type="button" class="btn btn-primary" data-toggle="collapse" data-target="#demo" id="togglecollapsesub2"><img src="../images/Icons/service/hilfe.png" width="15" height="15" /></button></center></td></tr>
                                                        
-                                                    </tbody>                                                    
+                                                    </tbody> -->                                 
                                                 </table>
                                               </div>  
                           <br /><br /><br />
-                   <%    End If
-                                   End If
+                   <%                 End If
                                End If
+                           End If
                        Catch ex As Exception
                            Response.Write(ex.Message & ex.StackTrace)
                        End Try %>
diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb
index 60e9be7..4bd9fa6 100644
--- a/Customers/CustomsAviso.aspx.vb
+++ b/Customers/CustomsAviso.aspx.vb
@@ -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