GUI Aufträge implementiert und Datenbankzugriffe gesetzt
This commit is contained in:
ja
@@ -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"/>
|
||||
<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"/>
|
||||
|
||||
|
||||
<%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>
|
||||
<asp:Calendar id="pickdate1" runat="server"></asp:Calendar>
|
||||
<asp:Calendar id="pickdate2" runat="server"></asp:Calendar>
|
||||
|
||||
<%End If %>
|
||||
|
||||
<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 %>
|
||||
|
||||
@@ -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