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'%>
|
If True Then 'AVISO.Status <> 1 And AVISO.Status <> 2 Then 'SENDUNGSTABELLE'%>
|
||||||
<h2><%=STANDORT %></h2>
|
<h2><%=STANDORT %></h2>
|
||||||
Bitte eine Auswahl treffen:
|
<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:Button ID="Button2" runat="server" Text="Reset Filters" onclick="Button2_Click"/>
|
<asp:Label ID="lbl_Kndnr" runat="server" Text="Die Kundennummer:"></asp:Label>
|
||||||
<asp:Label ID="Label1" runat="server" Text="Die Kundennummer:"></asp:Label>
|
<asp:TextBox ID="txt_KdNr" runat="server"></asp:TextBox>
|
||||||
<asp:TextBox ID="TB_KdNr" runat="server"></asp:TextBox>
|
<asp:RadioButton ID="rbt_Erf" runat="server" Text="Erfasst"/>
|
||||||
<asp:RadioButton ID="RadioButtonErf" runat="server" Text="Erfasst"/>
|
<asp:RadioButton ID="rbt_Vorb" runat="server" Text="Vorbereitet"/>
|
||||||
<asp:RadioButton ID="RadioButtonVorb" runat="server" Text="Vorbereitet"/>
|
<asp:RadioButton ID="rbt_Vorg" runat="server" Text="Vorgeschrieben"/>
|
||||||
<asp:RadioButton ID="RadioButtonVorg" runat="server" Text="Vorgeschrieben"/>
|
<asp:RadioButton ID="rbt_Ankunft" runat="server" Text="Ankunft"/>
|
||||||
<asp:RadioButton ID="RadioButtonAnkunft" runat="server" Text="Ankunft"/>
|
<asp:RadioButton ID="rbt_Freig" runat="server" Text="Freigabe" onclick="rbt_Freig_Click"/>
|
||||||
<asp:RadioButton ID="RadioButtonFreig" runat="server" Text="Freigabe"/>
|
|
||||||
|
|
||||||
|
<asp:Calendar id="pickdate1" runat="server"></asp:Calendar>
|
||||||
<%If RadioButtonFreig.Checked = False Then %>
|
<asp:Calendar id="pickdate2" runat="server"></asp:Calendar>
|
||||||
<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: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"
|
<input class="form-control mb-4" id="tableSearch" type="text"
|
||||||
placeholder="Einen Begriff eingeben oder den Anfang davon ...">
|
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" >
|
<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;">
|
<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>LKW-Nr.</th><th>Kennzeichen</th><th>Standort</th><th>Frächter</th><th>Fracht</th><th>Info</th></tr>
|
<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>
|
||||||
</thead>
|
</th>
|
||||||
<tbody id="myTable">
|
<!-- <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="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>
|
<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>
|
</table>
|
||||||
</div>
|
</div>
|
||||||
<br /><br /><br />
|
<br /><br /><br />
|
||||||
<% End If
|
<% End If
|
||||||
End If
|
|
||||||
End If
|
End If
|
||||||
|
End If
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
Response.Write(ex.Message & ex.StackTrace)
|
Response.Write(ex.Message & ex.StackTrace)
|
||||||
End Try %>
|
End Try %>
|
||||||
|
|||||||
@@ -1,6 +1,10 @@
|
|||||||
|
|
||||||
|
Imports System.Web.UI.HtmlControls
|
||||||
|
|
||||||
Partial Class Kundenbereich_Default
|
Partial Class Kundenbereich_Default
|
||||||
Inherits System.Web.UI.Page
|
Inherits System.Web.UI.Page
|
||||||
|
|
||||||
|
|
||||||
Protected Sub LogOutBtn1_Click(sender As Object, e As EventArgs)
|
Protected Sub LogOutBtn1_Click(sender As Object, e As EventArgs)
|
||||||
|
|
||||||
FormsAuthentication.SignOut()
|
FormsAuthentication.SignOut()
|
||||||
@@ -13,47 +17,134 @@ Partial Class Kundenbereich_Default
|
|||||||
Session.Abandon()
|
Session.Abandon()
|
||||||
Response.Redirect("../newpageJulius_Sidebar.aspx", True)
|
Response.Redirect("../newpageJulius_Sidebar.aspx", True)
|
||||||
End Sub
|
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)
|
If rbt_Erf.Checked = True Then
|
||||||
Dim Kdnrtext = TB_KdNr.Text
|
dt0 = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0}, datevon, datebis)
|
||||||
Dim truefalse(5) As Boolean
|
Dim i As Integer = 0
|
||||||
Dim numarr(5) As Integer
|
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)
|
i = i + 1
|
||||||
ElseIf RadioButtonAnkunft.Checked = True Then
|
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})
|
Dim tr As HtmlTableRow = New HtmlTableRow()
|
||||||
ElseIf RadioButtonVorb.Checked = True Then
|
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
|
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
|
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 Sub
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
Reference in New Issue
Block a user