60 lines
2.0 KiB
VB.net
60 lines
2.0 KiB
VB.net
|
|
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 Button1_Click(sender As Object, e As EventArgs)
|
|
Dim Kdnrtext = TB_KdNr.Text
|
|
Dim truefalse(5) As Boolean
|
|
Dim numarr(5) As Integer
|
|
|
|
Dim dt
|
|
|
|
If RadioButtonErf.Checked = True Then
|
|
|
|
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Integer.Parse(TB_KdNr.Text), {0}, DateTime.Now, DateTime.Now)
|
|
ElseIf RadioButtonFreig.Checked = True Then
|
|
|
|
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Integer.Parse(TB_KdNr.Text), {1}, DateTime.Now, DateTime.Now)
|
|
ElseIf RadioButtonAnkunft.Checked = True Then
|
|
|
|
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Integer.Parse(TB_KdNr.Text), {3})
|
|
ElseIf RadioButtonVorb.Checked = True Then
|
|
|
|
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Integer.Parse(TB_KdNr.Text), {4})
|
|
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 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
|