Css Datei angepasst und Änderungen in Layout vorgenommen:
Grid system eingefügt (responsive) und Login angepasst mit Session Vriablen an CustomsAviso übergeben bzw an gesamte Session für den jeweiligen Benutzer setzen Hinweise: siehe https://docs.microsoft.com/en-us/previous-versions/aspnet/ms178581(v=vs.100)
This commit is contained in:
ja
@@ -19,15 +19,16 @@ Partial Class Kundenbereich_Default
|
||||
Response.Redirect("../newpageJulius_Sidebar.aspx", True)
|
||||
End Sub
|
||||
|
||||
Dim datevon As Date
|
||||
Dim datebis As Date
|
||||
Dim datevon As DateTime
|
||||
Dim datebis As DateTime
|
||||
Dim Kdnrtext As String
|
||||
Dim dt
|
||||
Dim hrv, hrb, minv, minb, secv, secb As DateAndTime
|
||||
Dim setuhrzeit1bool As Boolean = False
|
||||
Dim setuhrzeit2bool As Boolean = False
|
||||
|
||||
Protected Sub btn_Auftraege_Click(sender As Object, e As EventArgs)
|
||||
Kdnrtext = txt_KdNr.Text
|
||||
'MsgBox(Session.Item("test").ToString)
|
||||
'MsgBox(Session.Item("CustomerID").ToString)
|
||||
'MsgBox(Session.Item("PW").ToString)
|
||||
Kdnrtext = Session.Item("CustomerID").ToString
|
||||
|
||||
Dim tbl_CellIndex = New TableCell
|
||||
Dim tbl_CellArt = New TableCell
|
||||
@@ -43,76 +44,15 @@ Partial Class Kundenbereich_Default
|
||||
|
||||
dt = Nothing
|
||||
|
||||
If txt_pickdate1.Text = "" AndAlso txt_pickdate2.Text = "" AndAlso setuhrzeit1bool = False And setuhrzeit2bool = False Then
|
||||
If datebis > datevon Then
|
||||
Try
|
||||
datevon = Date.Parse(pickdate1.SelectedDate.Day.ToString + "-" + pickdate1.SelectedDate.Month.ToString + "-" + pickdate1.SelectedDate.Year.ToString)
|
||||
txt_pickdate1.Text = Date.Parse(pickdate1.SelectedDate.Month.ToString + "-" + pickdate1.SelectedDate.Month.ToString + "-" + pickdate1.SelectedDate.Year.ToString)
|
||||
datebis = Date.Parse(pickdate2.SelectedDate.Day.ToString + "-" + pickdate2.SelectedDate.Month.ToString + "-" + pickdate2.SelectedDate.Year.ToString)
|
||||
txt_pickdate2.Text = Date.Parse(pickdate2.SelectedDate.Month.ToString + "-" + pickdate2.SelectedDate.Month.ToString + "-" + pickdate2.SelectedDate.Year.ToString)
|
||||
|
||||
Catch ex As Exception When datebis < datevon
|
||||
Dim dttemp As Date
|
||||
|
||||
dttemp = datebis
|
||||
datebis = datevon
|
||||
datevon = datebis
|
||||
|
||||
End Try
|
||||
ElseIf txt_pickdate1.Text = "" AndAlso txt_pickdate2.Text = "" AndAlso setuhrzeit1bool = False And setuhrzeit2bool = False Then
|
||||
Try
|
||||
|
||||
Dim splitArray1 As String() = txt_Uhrzeit1_von.Text.Split(New Char() {":"})
|
||||
Dim splitArray2 As String() = txt_Uhrzeit2_bis.Text.Split(New Char() {":"})
|
||||
|
||||
|
||||
Dim hrv, hrb, m1, m2 As Integer
|
||||
If ((Integer.TryParse(splitArray1(0), hrv)) AndAlso
|
||||
((Integer.TryParse(splitArray1(1), m1)) AndAlso
|
||||
((Integer.TryParse(splitArray1(1), m1)) AndAlso
|
||||
(Integer.TryParse(splitArray2(0), hrb)) AndAlso
|
||||
(Integer.TryParse(splitArray2(1), m2))) Then
|
||||
|
||||
|
||||
|
||||
|
||||
Else
|
||||
|
||||
// invalid format HHMM
|
||||
|
||||
End If
|
||||
End Try
|
||||
temp2 = DateAndTime.Minute(txt_Uhrzeit2_bis.Text)
|
||||
|
||||
datevon = Date.Parse(pickdate1.SelectedDate.Day.ToString + "-" + pickdate1.SelectedDate.Month.ToString + "-" + pickdate1.SelectedDate.Year.ToString + temp1.ToString)
|
||||
txt_pickdate1.Text = datevon
|
||||
datebis = Date.Parse(pickdate2.SelectedDate.Day.ToString + "-" + pickdate2.SelectedDate.Month.ToString + "-" + pickdate2.SelectedDate.Year.ToString + hrb.ToString)
|
||||
txt_pickdate2.Text = Date.Parse(pickdate2.SelectedDate.Month.ToString + "-" + pickdate2.SelectedDate.Month.ToString + "-" + pickdate2.SelectedDate.Year.ToString)
|
||||
|
||||
Catch ex As Exception When datebis < datevon
|
||||
Dim dttemp As Date
|
||||
|
||||
dttemp = datebis
|
||||
datebis = datevon
|
||||
datevon = datebis
|
||||
|
||||
End Try
|
||||
Else
|
||||
Try
|
||||
datevon = Date.Parse(txt_pickdate1.Text)
|
||||
pickdate1.SelectedDate = datevon
|
||||
datebis = Date.Parse(txt_pickdate2.Text)
|
||||
pickdate2.SelectedDate = datebis
|
||||
Catch ex As Exception When datevon < Date.Parse("01-01-2001") Or datebis > Date.Now
|
||||
datevon = DateValue(Date.Now.ToString("01-MM-yyyy"))
|
||||
txt_pickdate1.Text = datevon.ToString
|
||||
datebis = DateValue(Date.Now)
|
||||
txt_pickdate2.Text = datebis.ToString
|
||||
datevon = Date.Parse(pickdate1.Text)
|
||||
datebis = Date.Parse(pickdate2.Text)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.StackTrace, MsgBoxStyle.Exclamation)
|
||||
End Try
|
||||
End If
|
||||
'Dim tr
|
||||
|
||||
|
||||
|
||||
If rbt_Erf.Checked = True Then
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0})
|
||||
|
||||
@@ -125,16 +65,23 @@ Partial Class Kundenbereich_Default
|
||||
ElseIf rbt_Vorb.Checked = True Then
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {4})
|
||||
|
||||
|
||||
ElseIf rbt_Vorg.Checked = True Then
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {5})
|
||||
|
||||
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
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext,, datevon, datebis)
|
||||
|
||||
If pickdate1.Text = "TT.MM.JJJJ" And pickdate2.Text = "TT.MM.JJJJ" Then
|
||||
MsgBox("Bitte ein Datum auswählen!", MsgBoxStyle.Information, "Information!")
|
||||
pickdate1.Text = Date.ParseExact("01" + "-" + Date.Now.Month.ToString + "-" + Date.Now.Year.ToString, "dd-MM-yyyy", Nothing).ToString
|
||||
pickdate2.Text = Date.Now.ParseExact(Date.Now.Day.ToString + "-" + Date.Now.Month.ToString + "-" + Date.Now.Year.ToString, "dd-MM-yyyy", Nothing).ToString
|
||||
datevon = Date.ParseExact(pickdate1.Text, "dd-MM-yyyy", Nothing)
|
||||
datebis = Date.ParseExact(pickdate2.Text, "dd-MM-yyyy", Nothing)
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext,, datevon, datebis)
|
||||
Else
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext,, datevon, datebis)
|
||||
End If
|
||||
End If
|
||||
|
||||
If dt IsNot Nothing Then
|
||||
If dt IsNot Nothing Then
|
||||
Dim i As Integer = 0
|
||||
|
||||
|
||||
@@ -142,35 +89,32 @@ Partial Class Kundenbereich_Default
|
||||
|
||||
'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 dt.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 dt.Rows
|
||||
'sb.Append("<tr>")
|
||||
'For Each column As DataColumn In dt.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
|
||||
'Adding HeaderRow.
|
||||
'sb.Append("<tr>")
|
||||
'For Each column As DataColumn In dt.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 dt.Rows
|
||||
'sb.Append("<tr>")
|
||||
'For Each column As DataColumn In dt.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
|
||||
|
||||
Dim Cell = New TableCell
|
||||
Dim Cell = New TableCell
|
||||
'tr = New HtmlTableRow()
|
||||
Dim tr = New TableRow
|
||||
For Each d In dt.Rows
|
||||
If i <= dt.Rows.Count Then
|
||||
|
||||
|
||||
|
||||
tbl_CellIndex.Text = i
|
||||
tbl_CellIndex.Text = i
|
||||
tr.Controls.Add(tbl_CellIndex)
|
||||
tbl_CellArt.Text = ""
|
||||
tr.Controls.Add(tbl_CellArt)
|
||||
@@ -192,11 +136,8 @@ Partial Class Kundenbereich_Default
|
||||
tr.Controls.Add(tbl_CellStatus)
|
||||
Case 5
|
||||
tbl_CellStatus.Text = "Vorgeschrieben"
|
||||
tr.Controls.Add(tbl_CellStatus)
|
||||
Case Else
|
||||
tbl_CellStatus.Text = "Undefiend"
|
||||
tr.Controls.Add(tbl_CellStatus)
|
||||
End Select
|
||||
tr.Controls.Add(tbl_CellStatus)
|
||||
End Select
|
||||
tbl_Cellvon.Text = d("AvisoEingang").ToString
|
||||
tr.Controls.Add(tbl_Cellvon)
|
||||
tbl_Cellbis.Text = d("AvisoEingang").ToString
|
||||
@@ -210,11 +151,8 @@ Partial Class Kundenbereich_Default
|
||||
tbl_CellKundAuftNr.Text = d("KdAuftragsNr_Avisierer").ToString
|
||||
tr.Controls.Add(tbl_CellKundAuftNr)
|
||||
|
||||
|
||||
|
||||
normaltable.Rows.Add(tr)
|
||||
|
||||
End If
|
||||
i = i + 1
|
||||
Next
|
||||
End If
|
||||
@@ -236,14 +174,14 @@ Partial Class Kundenbereich_Default
|
||||
rbt_Vorg.Enabled = True
|
||||
rbt_Vorb.Checked = False
|
||||
rbt_Vorb.Enabled = True
|
||||
txt_KdNr.Text = ""
|
||||
txt_pickdate1.Text = ""
|
||||
txt_pickdate2.Text = ""
|
||||
'txt_KdNr.Text = ""
|
||||
pickdate1.Text = ""
|
||||
pickdate2.Text = ""
|
||||
datevon = Nothing
|
||||
datebis = Nothing
|
||||
dt = Nothing
|
||||
Kdnrtext = ""
|
||||
txt_KdNr.Focus()
|
||||
'txt_KdNr.Focus()
|
||||
|
||||
|
||||
|
||||
@@ -252,41 +190,6 @@ Partial Class Kundenbereich_Default
|
||||
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
||||
tbl_Header_row.TableSection = TableRowSection.TableHeader
|
||||
End Sub
|
||||
|
||||
Protected Sub ckb_Uhrzeit1_CheckedChanged(sender As Object, e As EventArgs)
|
||||
If ckb_Uhrzeit1.Checked = False Then
|
||||
lbl_Uhrzeit1_von.ForeColor = Drawing.Color.LightGray
|
||||
txt_Uhrzeit1_von.ReadOnly = True
|
||||
lbl_Uhrzeit1_bis.ForeColor = Drawing.Color.LightGray
|
||||
txt_Uhrzeit1_bis.Enabled = True
|
||||
lbl_Uhrzeit2_von.ForeColor = Drawing.Color.LightGray
|
||||
txt_Uhrzeit2_von.Enabled = True
|
||||
lbl_Uhrzeit2_bis.ForeColor = Drawing.Color.LightGray
|
||||
txt_Uhrzeit2_bis.Enabled = True
|
||||
setuhrzeit1bool = True
|
||||
ElseIf ckb_Uhrzeit2.Checked = False Then
|
||||
lbl_Uhrzeit1_von.ForeColor = Drawing.Color.LightGray
|
||||
txt_Uhrzeit1_von.ReadOnly = True
|
||||
lbl_Uhrzeit1_bis.ForeColor = Drawing.Color.LightGray
|
||||
txt_Uhrzeit1_bis.Enabled = True
|
||||
lbl_Uhrzeit2_von.ForeColor = Drawing.Color.LightGray
|
||||
txt_Uhrzeit2_von.Enabled = True
|
||||
lbl_Uhrzeit2_bis.ForeColor = Drawing.Color.LightGray
|
||||
txt_Uhrzeit2_bis.Enabled = True
|
||||
setuhrzeit2bool = True
|
||||
Else
|
||||
lbl_Uhrzeit1_von.ForeColor = Drawing.Color.FromArgb(452129)
|
||||
txt_Uhrzeit1_von.ReadOnly = False
|
||||
lbl_Uhrzeit1_bis.ForeColor = Drawing.Color.FromArgb(452129)
|
||||
txt_Uhrzeit1_bis.ReadOnly = False
|
||||
lbl_Uhrzeit2_von.ForeColor = Drawing.Color.FromArgb(452129)
|
||||
txt_Uhrzeit2_von.ReadOnly = False
|
||||
lbl_Uhrzeit2_bis.ForeColor = Drawing.Color.FromArgb(452129)
|
||||
txt_Uhrzeit2_bis.ReadOnly = False
|
||||
setuhrzeit1bool = False
|
||||
setuhrzeit2bool = False
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user