From e6271e4e764b315e2c02497eaaa56fd74c12b28d Mon Sep 17 00:00:00 2001 From: ja Date: Tue, 30 Nov 2021 14:33:13 +0100 Subject: [PATCH] =?UTF-8?q?=C3=A4nderung?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Customers/CustomsAviso.aspx.vb | 2 +- Customers/Invoices.aspx | 6 +- Customers/Invoices.aspx.vb | 872 ++++++++++++++++++--------------- 3 files changed, 487 insertions(+), 393 deletions(-) diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb index b103b40..d6e7532 100644 --- a/Customers/CustomsAviso.aspx.vb +++ b/Customers/CustomsAviso.aspx.vb @@ -24,7 +24,7 @@ Partial Class CustomsAviso Try Kdnrtext = Session.Item("CustomerID") Catch A As UnauthorizedAccessException When String.IsNullOrEmpty(Kdnrtext) - MsgBox("Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!", MsgBoxStyle.Information, "Error in User Area!") + 'MsgBox("Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!", MsgBoxStyle.Information, "Error in User Area!") Response.Redirect("Error.aspx&P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt("CustomsAviso.aspx")) End Try diff --git a/Customers/Invoices.aspx b/Customers/Invoices.aspx index 1472ca1..3c382ec 100644 --- a/Customers/Invoices.aspx +++ b/Customers/Invoices.aspx @@ -220,9 +220,9 @@ -
- Erhalte Rechnungen -
+
+ +
diff --git a/Customers/Invoices.aspx.vb b/Customers/Invoices.aspx.vb index af1538c..116bd43 100644 --- a/Customers/Invoices.aspx.vb +++ b/Customers/Invoices.aspx.vb @@ -24,7 +24,7 @@ Partial Class Customers_Default3 Page.UnobtrusiveValidationMode = UnobtrusiveValidationMode.WebForms VERAG_VARIABLES.initerrorcount() - If Not Me.Page.User.Identity.IsAuthenticated Then + If Not Me.Page.User.Identity.IsAuthenticated = True Then FormsAuthentication.RedirectToLoginPage() Else Try @@ -55,19 +55,191 @@ Partial Class Customers_Default3 If (Page.IsPostBack) Then Page.MaintainScrollPositionOnPostBack = True - If valreq_pickdate1.IsValid And valreq_pickdate2.IsValid Then - datevon = Date.Parse(pickdate1.Text) - datebis = Date.Parse(pickdate2.Text) + If txt_Absender.Text IsNot "" Then + txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_Absender.Enabled = True + regex_txt_Absender.Validate() + If regex_txt_Absender.IsValid = True Then + Try + Absender = txt_Absender.Text + Catch ex As Exception + lbl_status.ForeColor = Drawing.Color.Red + lbl_status.Text = "Der Absender ist nicht richtig. Bitte korrigieren." + End Try + End If + Else + regex_txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Disabled + regex_txt_Absender.Enabled = False + End If + If txt_Empfaenger.Text IsNot "" Then + txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_Empfaenger.Enabled = True + If regex_txt_Empfaenger.IsValid = True Then + Try + Empfaenger = txt_Empfaenger.Text + Catch ex As Exception + regex_txt_Empfaenger.ForeColor = Drawing.Color.Red + regex_txt_Empfaenger.ErrorMessage = "Empfänger ist nicht korrekt!" + End Try + End If + Else + regex_txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Disabled + regex_txt_Empfaenger.Enabled = False + End If + If txt_KdNrAuftrag.Text IsNot "" Then + txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_KdNrAuftrag.Enabled = True + regex_txt_KdNrAuftrag.Validate() + If regex_txt_KdNrAuftrag.IsValid = True Then + Try + KDNAFNR = txt_KdNrAuftrag.Text + Catch ex As Exception + regex_txt_KdNrAuftrag.ForeColor = Drawing.Color.Red + regex_txt_KdNrAuftrag.Text = "Fehler bei Validierung der Kundenauftragsnummer!" + End Try + End If + Else + txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Disabled + regex_txt_KdNrAuftrag.Enabled = False + End If + If txt_LKW.Text IsNot "" Then + txt_LKW.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_LKW.Enabled = True + regex_txt_LKW.Validate() + If regex_txt_LKW.IsValid = True Then + Try + LKWNR = txt_LKW.Text + Catch ex As Exception + regex_txt_LKW.ForeColor = Drawing.Color.Red + regex_txt_LKW.ErrorMessage = "Das LKW-Kennzeichen ist nicht korrekt formatiert!" + End Try + End If + Else + txt_LKW.ValidateRequestMode = UI.ValidateRequestMode.Disabled + regex_txt_LKW.Enabled = False + End If + If txt_ReNr.Text IsNot "" Then + txt_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_ReNr.Enabled = True + regex_txt_ReNr.Validate() + If regex_txt_ReNr.IsValid = True Then + Try + reNr = txt_ReNr.Text + Catch ex As Exception + regex_txt_ReNr.ForeColor = Drawing.Color.Red + regex_txt_ReNr.ErrorMessage = "Die Rechnungsnummer ist nicht korrekt." + End Try + End If + Else + txt_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Disabled + regex_txt_ReNr.Enabled = False + End If + 'Mobil + If txt_Absender_M.Text IsNot "" Then + txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_Absender_M.Enabled = True + regex_txt_Absender_M.Validate() + If regex_txt_Absender_M.IsValid = True Then + Try + Absender = txt_Absender_M.Text + Catch ex As Exception + regex_txt_Absender_M.ForeColor = Drawing.Color.Red + regex_txt_Absender_M.ErrorMessage = "Der Absender ist nicht richtig. Bitte korrigieren." + End Try + End If + Else + txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled + regex_txt_Absender_M.Enabled = False + End If + If txt_Empfaenger_M.Text IsNot "" Then + txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_Empaenger_M.Enabled = True + regex_txt_Empaenger_M.Validate() + If regex_txt_Empaenger_M.IsValid = True Then + Try + Empfaenger = txt_Empfaenger_M.Text + Catch ex As Exception + regex_txt_Empaenger_M.ForeColor = Drawing.Color.Red + regex_txt_Empaenger_M.Text = "Empfänger ist nicht korrekt!" + End Try + End If + Else + txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled + regex_txt_Empaenger_M.Enabled = False + End If + If txt_KdNrAuftrag_M.Text IsNot "" Then + txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_KdNrAuftrag_M.Enabled = True + regex_txt_KdNrAuftrag_M.Validate() + If regex_txt_KdNrAuftrag_M.IsValid = True Then + Try + KDNAFNR = txt_KdNrAuftrag_M.Text + Catch ex As Exception + regex_txt_KdNrAuftrag_M.ForeColor = Drawing.Color.Red + regex_txt_KdNrAuftrag_M.ErrorMessage = "Fehler bei Validierung der Kundenauftragsnummer!" + End Try + End If + Else + txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled + regex_txt_KdNrAuftrag_M.Enabled = False + End If + If txt_LKW_M.Text IsNot "" Then + txt_LKW_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_LKW_M.Enabled = True + regex_txt_LKW_M.Validate() + If regex_txt_LKW_M.IsValid = True Then + Try + LKWNR = txt_LKW_M.Text + Catch Ex As Exception + regex_txt_LKW_M.ForeColor = Drawing.Color.Red + regex_txt_LKW_M.Text = "Das LKW-Kennzeichen ist nicht korrekt formatiert!" + End Try + End If + Else + txt_LKW_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled + regex_txt_LKW_M.Enabled = False + End If + If txt_ReNr_M.Text IsNot "" Then + txt_ReNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_ReNr_M.Enabled = True + regex_txt_ReNr_M.Validate() + If regex_txt_ReNr_M.IsValid = True Then + Try + reNr = txt_ReNr_M.Text + Catch ex As Exception + regex_txt_ReNr_M.ForeColor = Drawing.Color.Red + regex_txt_ReNr_M.Text = "Die Rechnungsnummer ist nicht korrekt." + End Try + End If + Else + txt_ReNr_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled + regex_txt_ReNr_M.Enabled = False End If - If String.IsNullOrEmpty(Request.QueryString("P1")) = False Then - Kdnrtext = Request.QueryString("P1") - ElseIf String.IsNullOrEmpty(Session.Item("CustomerID")) = False Then - Kdnrtext = Session.Item("CustomerID").ToString + If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then + Try + erster = New Date(Now().Year, Now.Month, 1) + datevon = erster + datebis = Date.Parse(Now.ToShortDateString) + pickdate1.Text = erster.ToUniversalTime.ToString("yyyy-MM-dd") + pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyyy-MM-dd") + dt = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(Integer.Parse(Kdnrtext), datevon, datebis, Integer.Parse(reNr), Absender, Empfaenger, LKWNR, KDNAFNR) + Catch ex As Exception + lbl_status.ForeColor = Drawing.Color.Red + lbl_status.Text = "Die Daten konnten nicht initialisiert werden. Bitte erneut versuchen." + End Try Else - VERAG_VARIABLES.seterrorcount(512) - lbl_status.Text = VERAG_VARIABLES.geterrornumb + "This Page is due to an Error in Page validation unavailable. Try again later or contact an Admin!" + Try + datevon = Date.Parse(pickdate1.Text) + datebis = Date.Parse(pickdate2.Text) + dt = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(Integer.Parse(Kdnrtext), datevon, datebis, Integer.Parse(reNr), Absender, Empfaenger, LKWNR, KDNAFNR) + Catch + lbl_status.ForeColor = Drawing.Color.Red + lbl_status.Text = "Fehler bei der Datenvergabe." + End Try End If + + addrows() Else erster = New Date(Now().Year, Now().Month, 1) datevon = erster @@ -81,125 +253,120 @@ Partial Class Customers_Default3 End Sub Private Sub addrows() - If Not IsNothing(Session.Item("datatbl")) Then - dt = Session.Item("datatbl") - Else - - End If Session.Item("mytable") = Nothing normaltable.Rows.Clear() - If Not dt Is Nothing Then - Dim header As TableHeaderRow = New TableHeaderRow() - header.Cells.Add(tbl_HeaderCellIndex) - header.Cells.Add(tbl_HeaderCell_ReNr) - header.Cells.Add(tbl_HeaderCell_LKWNr) - header.Cells.Add(tbl_HeaderCell_Auftragsdatum) - header.Cells.Add(tbl_HeaderCell_KundenAuftrNummer) - header.Cells.Add(tbl_HeaderCell_Absender) - header.Cells.Add(tbl_HeaderCell_Empfaenger) - header.Cells.Add(tbl_HeaderCell_Info) - normaltable.Rows.Add(header) - If dt.Count > 0 Then - Dim i As Integer = 0 - For Each d In dt - Dim tr As TableRow = New TableRow - Dim Cell As TableCell = New TableCell - Dim tbl_Cell_Index As TableCell = New TableCell - Dim tbl_Cell_ReNr As TableCell = New TableCell - Dim tbl_Cell_Auftragsdat As TableCell = New TableCell - Dim tbl_Cell_Absender As TableCell = New TableCell - Dim tbl_Cell_Empfaenger As TableCell = New TableCell - Dim tbl_Cell_LKWs As TableCell = New TableCell - Dim tbl_Cell_KundAuftrNr As TableCell = New TableCell - Dim tbl_Cell_Info As TableCell = New TableCell - Dim zahl = i + 1 - tbl_Cell_Index.ValidateRequestMode = UI.ValidateRequestMode.Enabled - tbl_Cell_Index.Text = zahl.ToString - tr.Cells.Add(tbl_Cell_Index) - tbl_Cell_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled - If d.RechnungsNr = Nothing Then - tbl_Cell_ReNr.Text = String.Empty - Else - tbl_Cell_ReNr.Text = d.RechnungsNr.ToString - End If - tr.Cells.Add(tbl_Cell_ReNr) - tbl_Cell_LKWs.ValidateRequestMode = UI.ValidateRequestMode.Enabled - If d.LKW_Kennzeichen = Nothing Then - tbl_Cell_LKWs.Text = String.Empty - Else - tbl_Cell_LKWs.Text = d.LKW_Kennzeichen.ToString - End If - tr.Cells.Add(tbl_Cell_LKWs) - tbl_Cell_Auftragsdat.ValidateRequestMode = UI.ValidateRequestMode.Enabled - If d.RechnungsDatum = Nothing Then - tbl_Cell_Auftragsdat.Text = String.Empty - Else - tbl_Cell_Auftragsdat.Text = d.RechnungsDatum.ToString - End If - tr.Cells.Add(tbl_Cell_Auftragsdat) - tbl_Cell_KundAuftrNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled - If d.KdAuftragsNr = Nothing Then - tbl_Cell_KundAuftrNr.Text = String.Empty - Else - tbl_Cell_KundAuftrNr.Text = d.KdAuftragsNr.ToString - End If - tr.Cells.Add(tbl_Cell_KundAuftrNr) - tbl_Cell_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled - If d.AbsenderName_1 = Nothing Then - tbl_Cell_Absender.Text = String.Empty - Else - tbl_Cell_Absender.Text = d.AbsenderName_1.ToString - End If - tr.Cells.Add(tbl_Cell_Absender) - tbl_Cell_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled - If d.EmpfängerName_1 = Nothing Then - tbl_Cell_Empfaenger.Text = String.Empty - Else - tbl_Cell_Empfaenger.Text = d.EmpfängerName_1.ToString - End If - tr.Cells.Add(tbl_Cell_Empfaenger) + Dim header As TableHeaderRow = New TableHeaderRow() + header.Cells.Add(tbl_HeaderCellIndex) + header.Cells.Add(tbl_HeaderCell_ReNr) + header.Cells.Add(tbl_HeaderCell_LKWNr) + header.Cells.Add(tbl_HeaderCell_Auftragsdatum) + header.Cells.Add(tbl_HeaderCell_KundenAuftrNummer) + header.Cells.Add(tbl_HeaderCell_Absender) + header.Cells.Add(tbl_HeaderCell_Empfaenger) + header.Cells.Add(tbl_HeaderCell_Info) + normaltable.Rows.Add(header) - Dim btn As New ImageButton - btn.ViewStateMode = ViewStateMode.Enabled - btn.CssClass = "btn btn-primary" - btn.ImageUrl = "../images/Icons/main/833px-PDF_file_icon_small_more.png" - btn.BackColor = Drawing.Color.FromArgb(1, Drawing.Color.GhostWhite) - btn.BorderStyle = BorderStyle.None - 'Hier PDF-File creation einfügen - btn.Style.Add("Display", "table-cell") - btn.Style.Add("Vertical-align", "middle") - btn.Style.Add("margin", "2px 2px 8px 4px") - btn.Width = Unit.Pixel(64) - btn.Height = Unit.Pixel(72) + If Not dt Is Nothing And Not dt.Count = 0 Then + Dim i As Integer = 0 + For Each d In dt + Dim tr As TableRow = New TableRow + Dim Cell As TableCell = New TableCell + Dim tbl_Cell_Index As TableCell = New TableCell + Dim tbl_Cell_ReNr As TableCell = New TableCell + Dim tbl_Cell_Auftragsdat As TableCell = New TableCell + Dim tbl_Cell_Absender As TableCell = New TableCell + Dim tbl_Cell_Empfaenger As TableCell = New TableCell + Dim tbl_Cell_LKWs As TableCell = New TableCell + Dim tbl_Cell_KundAuftrNr As TableCell = New TableCell + Dim tbl_Cell_Info As TableCell = New TableCell - 'btn.Attributes.Add("href", "pdfviewer.aspx?P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.FilialenNr).ToString() + "&P2=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.AbfertigungsNr).ToString + "&P3=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.RK_ID).ToString) - btn.Attributes.Add("onclick", "window.open('../pdf/Bonizertifikat.pdf')") - 'btn.PostBackUrl = "pdfviewer.aspx?P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.FilialenNr).ToString + "&P2=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.AbfertigungsNr).ToString + "&P3=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.RK_ID).ToString - tbl_Cell_Info.ValidateRequestMode = UI.ValidateRequestMode.Enabled - tbl_Cell_Info.Width = Unit.Pixel(64) - tbl_Cell_Info.Height = Unit.Pixel(70) - tbl_Cell_Info.Controls.Add(btn) - tr.Cells.Add(tbl_Cell_Info) - initcells(tr, tbl_Cell_Index, tbl_Cell_ReNr, tbl_Cell_LKWs, tbl_Cell_Auftragsdat, tbl_Cell_KundAuftrNr, tbl_Cell_Absender, tbl_Cell_Empfaenger, tbl_Cell_Info, + Dim zahl = i + 1 + initcells(tr, tbl_Cell_Index, tbl_Cell_ReNr, tbl_Cell_LKWs, tbl_Cell_Auftragsdat, tbl_Cell_KundAuftrNr, tbl_Cell_Absender, tbl_Cell_Empfaenger, tbl_Cell_Info, tbl_HeaderCellIndex, tbl_HeaderCell_ReNr, tbl_HeaderCell_LKWNr, tbl_HeaderCell_Auftragsdatum, tbl_HeaderCell_KundenAuftrNummer, tbl_HeaderCell_Absender, tbl_HeaderCell_Empfaenger, tbl_HeaderCell_Info) - normaltable.Rows.Add(tr) - i += 1 - Next - Else - Dim tbl_cellNothing = New TableCell() - tbl_cellNothing.ColumnSpan = tbl_Header_row.Cells.Count - tbl_cellNothing.Style.Add("text-align", "center") - Dim tr As New TableRow - tr.Style.Add("text-align", "center") - tbl_cellNothing.Text = Server.HtmlEncode("No data found!") - tr.Cells.Add(tbl_cellNothing) - normaltable.Rows.Add(tr) - End If + tbl_Cell_Index.ValidateRequestMode = UI.ValidateRequestMode.Enabled + tbl_Cell_Index.Text = zahl + tr.Cells.Add(tbl_Cell_Index) + tbl_Cell_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled + If d.RechnungsNr = Nothing Then + tbl_Cell_ReNr.Text = String.Empty + Else + tbl_Cell_ReNr.Text = d.RechnungsNr.ToString + End If + tr.Cells.Add(tbl_Cell_ReNr) + tbl_Cell_LKWs.ValidateRequestMode = UI.ValidateRequestMode.Enabled + If d.LKW_Kennzeichen = Nothing Then + tbl_Cell_LKWs.Text = String.Empty + Else + tbl_Cell_LKWs.Text = d.LKW_Kennzeichen.ToString + End If + tr.Cells.Add(tbl_Cell_LKWs) + tbl_Cell_Auftragsdat.ValidateRequestMode = UI.ValidateRequestMode.Enabled + If d.RechnungsDatum = Nothing Then + tbl_Cell_Auftragsdat.Text = String.Empty + Else + tbl_Cell_Auftragsdat.Text = d.RechnungsDatum.ToString + End If + tr.Cells.Add(tbl_Cell_Auftragsdat) + tbl_Cell_KundAuftrNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled + If d.KdAuftragsNr = Nothing Then + tbl_Cell_KundAuftrNr.Text = String.Empty + Else + tbl_Cell_KundAuftrNr.Text = d.KdAuftragsNr.ToString + End If + tr.Cells.Add(tbl_Cell_KundAuftrNr) + tbl_Cell_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled + If d.AbsenderName_1 = Nothing Then + tbl_Cell_Absender.Text = String.Empty + Else + tbl_Cell_Absender.Text = d.AbsenderName_1.ToString + End If + tr.Cells.Add(tbl_Cell_Absender) + tbl_Cell_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled + If d.EmpfängerName_1 = Nothing Then + tbl_Cell_Empfaenger.Text = String.Empty + Else + tbl_Cell_Empfaenger.Text = d.EmpfängerName_1.ToString + End If + tr.Cells.Add(tbl_Cell_Empfaenger) - Session.Item("mytable") = normaltable + Dim btn As New ImageButton + btn.ViewStateMode = ViewStateMode.Enabled + btn.CssClass = "btn btn-primary" + btn.ImageUrl = "../images/Icons/main/833px-PDF_file_icon_small_more.png" + btn.BackColor = Drawing.Color.FromArgb(1, Drawing.Color.GhostWhite) + btn.BorderStyle = BorderStyle.None + 'Hier PDF-File creation einfügen + btn.Style.Add("Display", "table-cell") + btn.Style.Add("Vertical-align", "middle") + btn.Style.Add("margin", "2px 2px 8px 4px") + btn.Width = Unit.Pixel(64) + btn.Height = Unit.Pixel(72) + + 'btn.Attributes.Add("href", "pdfviewer.aspx?P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.FilialenNr).ToString() + "&P2=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.AbfertigungsNr).ToString + "&P3=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.RK_ID).ToString) + btn.Attributes.Add("onclick", "window.open('../pdf/Bonizertifikat.pdf')") + 'btn.PostBackUrl = "pdfviewer.aspx?P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.FilialenNr).ToString + "&P2=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.AbfertigungsNr).ToString + "&P3=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.RK_ID).ToString + tbl_Cell_Info.ValidateRequestMode = UI.ValidateRequestMode.Enabled + tbl_Cell_Info.Width = Unit.Pixel(64) + tbl_Cell_Info.Height = Unit.Pixel(70) + tbl_Cell_Info.Controls.Add(btn) + tr.Cells.Add(tbl_Cell_Info) + + normaltable.Rows.Add(tr) + i += 1 + Next + Else + Dim tbl_cellNothing = New TableCell() + tbl_cellNothing.ColumnSpan = tbl_Header_row.Cells.Count + tbl_cellNothing.Style.Add("text-align", "center") + Dim tr As New TableRow + tr.Style.Add("text-align", "center") + tbl_cellNothing.Text = Server.HtmlEncode("No data found!") + tr.Cells.Add(tbl_cellNothing) + normaltable.Rows.Add(tr) End If + End Sub Protected Sub initcells(tr As TableRow, t1 As TableCell, t2 As TableCell, t3 As TableCell, t4 As TableCell, t5 As TableCell, t6 As TableCell, t7 As TableCell, t8 As TableCell, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, th6 As TableHeaderCell, th7 As TableHeaderCell, th8 As TableHeaderCell) @@ -296,275 +463,6 @@ Partial Class Customers_Default3 th8.Width = Unit.Pixel(64) End Sub - Protected Sub btn_b_Click(sender As Object, e As EventArgs) - dt = Nothing - Session.Add("mytable", Nothing) - If Session.Item("mytable") = Nothing Then - If txt_Absender.Text IsNot "" Then - txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled - regex_txt_Absender.Enabled = True - regex_txt_Absender.Validate() - Try - If regex_txt_Absender.IsValid = True Then - Absender = txt_Absender.Text - Else - VERAG_VARIABLES.seterrorcount(1) - lbl_status.ForeColor = Drawing.Color.Red - lbl_status.Text = VERAG_VARIABLES.geterrornumb + ": Error with the Sender" - End If - Catch ex As Exception - VERAG_VARIABLES.seterrorcount(2) - lbl_status.ForeColor = Drawing.Color.Red - lbl_status.Text = VERAG_VARIABLES.geterrornumb + ": Error Sender Validation" - End Try - Else - txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Disabled - regex_txt_Absender.Enabled = False - End If - If txt_Empfaenger.Text IsNot "" Then - txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled - regex_txt_Empfaenger.Enabled = True - regex_txt_Empfaenger.Validate() - Try - If regex_txt_Empfaenger.IsValid = True Then - Empfaenger = txt_Empfaenger.Text - Else - VERAG_VARIABLES.seterrorcount(3) - lbl_status.ForeColor = Drawing.Color.Red - lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error with the Reciever" - End If - Catch ex As Exception - VERAG_VARIABLES.seterrorcount(4) - lbl_status.ForeColor = Drawing.Color.Red - lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error Reciever Validation" - End Try - Else - txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Disabled - regex_txt_Empfaenger.Enabled = False - End If - If txt_KdNrAuftrag.Text IsNot "" Then - txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled - regex_txt_KdNrAuftrag.Enabled = True - regex_txt_KdNrAuftrag.Validate() - Try - If regex_txt_KdNrAuftrag.IsValid = True Then - KDNAFNR = txt_KdNrAuftrag.Text - Else - VERAG_VARIABLES.seterrorcount(5) - lbl_status.ForeColor = Drawing.Color.Red - lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error with the Customer Order number validation" - End If - Catch ex As Exception - VERAG_VARIABLES.seterrorcount(11) - lbl_status.ForeColor = Drawing.Color.Red - lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error Customer Order number Validation" - End Try - Else - txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Disabled - regex_txt_KdNrAuftrag.Enabled = False - End If - If txt_LKW.Text IsNot "" Then - txt_LKW.ValidateRequestMode = UI.ValidateRequestMode.Enabled - regex_txt_LKW.Enabled = True - regex_txt_LKW.Validate() - Try - If regex_txt_LKW.IsValid = True Then - LKWNR = txt_LKW.Text - Else - VERAG_VARIABLES.seterrorcount(6) - lbl_status.ForeColor = Drawing.Color.Red - lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error at Validation in LKW number plate field" - End If - Catch Ex As Exception - VERAG_VARIABLES.seterrorcount(12) - lbl_status.ForeColor = Drawing.Color.Red - lbl_status.Text = VERAG_VARIABLES.geterrornumb() + "Error LKW Number plate Validation" - End Try - Else - txt_LKW.ValidateRequestMode = UI.ValidateRequestMode.Disabled - regex_txt_LKW.Enabled = False - End If - If txt_ReNr.Text IsNot "" Then - txt_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled - regex_txt_ReNr.Enabled = True - regex_txt_ReNr.Validate() - Try - If regex_txt_ReNr.IsValid = True Then - reNr = txt_ReNr.Text - Else - reNr = "-1" - VERAG_VARIABLES.seterrorcount(7) - lbl_status.ForeColor = Drawing.Color.Red - lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error at the Validation in the invoice number field" - End If - Catch ex As Exception - VERAG_VARIABLES.seterrorcount(13) - lbl_status.ForeColor = Drawing.Color.Red - lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error invoice number validation" - End Try - Else - txt_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Disabled - regex_txt_ReNr.Enabled = False - End If - If txt_Absender_M.Text IsNot "" Then - txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled - regex_txt_Absender_M.Enabled = True - regex_txt_Absender_M.Validate() - Try - If regex_txt_Absender_M.IsValid = True Then - Absender = txt_Absender_M.Text - Else - VERAG_VARIABLES.seterrorcount(1) - lbl_status.ForeColor = Drawing.Color.Red - lbl_status.Text = VERAG_VARIABLES.geterrornumb + ": Error with the Sender" - End If - Catch ex As Exception - VERAG_VARIABLES.seterrorcount(2) - lbl_status.ForeColor = Drawing.Color.Red - lbl_status.Text = VERAG_VARIABLES.geterrornumb + ": Error Sender Validation" - End Try - Else - txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled - regex_txt_Absender_M.Enabled = False - End If - If txt_Empfaenger_M.Text IsNot "" Then - txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled - regex_txt_Empaenger_M.Enabled = True - regex_txt_Empaenger_M.Validate() - Try - If regex_txt_Empaenger_M.IsValid = True Then - Empfaenger = txt_Empfaenger_M.Text - Else - VERAG_VARIABLES.seterrorcount(3) - lbl_status.ForeColor = Drawing.Color.Red - lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error with the Reciever" - End If - Catch ex As Exception - VERAG_VARIABLES.seterrorcount(4) - lbl_status.ForeColor = Drawing.Color.Red - lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error Reciever Validation" - End Try - Else - txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled - regex_txt_Empaenger_M.Enabled = False - End If - If txt_KdNrAuftrag_M.Text IsNot "" Then - txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled - regex_txt_KdNrAuftrag_M.Enabled = True - regex_txt_KdNrAuftrag_M.Validate() - Try - If regex_txt_KdNrAuftrag_M.IsValid = True Then - KDNAFNR = txt_KdNrAuftrag_M.Text - Else - VERAG_VARIABLES.seterrorcount(5) - lbl_status.ForeColor = Drawing.Color.Red - lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error with the Customer Order number validation" - End If - Catch ex As Exception - VERAG_VARIABLES.seterrorcount(11) - lbl_status.ForeColor = Drawing.Color.Red - lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error Customer Order number Validation" - End Try - Else - regex_txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled - regex_txt_KdNrAuftrag_M.Enabled = False - End If - If txt_LKW_M.Text IsNot "" Then - txt_LKW_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled - regex_txt_LKW_M.Enabled = True - regex_txt_LKW_M.Validate() - Try - If regex_txt_LKW_M.IsValid = True Then - LKWNR = txt_LKW_M.Text - Else - VERAG_VARIABLES.seterrorcount(6) - lbl_status.ForeColor = Drawing.Color.Red - lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error at Validation in LKW number plate field" - End If - Catch Ex As Exception - VERAG_VARIABLES.seterrorcount(12) - lbl_status.ForeColor = Drawing.Color.Red - lbl_status.Text = VERAG_VARIABLES.geterrornumb() + "Error LKW Number plate Validation" - End Try - Else - txt_LKW_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled - regex_txt_LKW_M.Enabled = False - End If - If txt_ReNr_M.Text IsNot "" Then - txt_ReNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled - regex_txt_ReNr_M.Enabled = True - regex_txt_ReNr_M.Validate() - Try - If regex_txt_ReNr_M.IsValid = True Then - reNr = txt_ReNr_M.Text - Else - reNr = "-1" - VERAG_VARIABLES.seterrorcount(7) - lbl_status.ForeColor = Drawing.Color.Red - lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error at the Validation in the invoice number field" - End If - Catch ex As Exception - VERAG_VARIABLES.seterrorcount(13) - lbl_status.ForeColor = Drawing.Color.Red - lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error invoice number validation" - End Try - Else - txt_ReNr_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled - regex_txt_ReNr_M.Enabled = False - End If - - If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then - Try - Dim erster = New Date(Now().Year, Now.Month, 1) - datevon = erster - datebis = Date.Parse(Now.ToShortDateString) - pickdate1.Text = erster.ToUniversalTime.ToString("yyyy-MM-dd") - pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyy-MM-dd") - Catch ex As Exception - VERAG_VARIABLES.seterrorcount(14) - lbl_status.ForeColor = Drawing.Color.Red - lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error in date time conversions" - End Try - Else - Try - datevon = CDate(pickdate1.Text) - datebis = CDate(pickdate2.Text) - Catch ex As Exception - VERAG_VARIABLES.seterrorcount(14) - lbl_status.ForeColor = Drawing.Color.Red - lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error in date time conversions" - End Try - End If - - If valdaterage_1.IsValid = True AndAlso valdaterange_2.IsValid = True Then - If String.IsNullOrEmpty(Kdnrtext) = False Then - If String.IsNullOrEmpty(Kdnrtext) = False AndAlso String.IsNullOrEmpty(datevon.ToShortDateString) = False AndAlso String.IsNullOrEmpty(datebis.ToShortDateString) = False Then - dt = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(Integer.Parse(Kdnrtext), datevon, datebis, Integer.Parse(reNr), Absender, Empfaenger, LKWNR, KDNAFNR) - Session.Add("datatbl", dt) - Else - valreq_pickdate1.Validate() - valreq_pickdate2.Validate() - If valreq_pickdate1.IsValid = False AndAlso valreq_pickdate2.IsValid = False Then - VERAG_VARIABLES.seterrorcount(15) - lbl_status.ForeColor = Drawing.Color.Red - lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error in form validation. Please fill in all fields" - End If - End If - Else - VERAG_VARIABLES.seterrorcount(16) - lbl_status.ForeColor = Drawing.Color.Red - lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error getting Customer-ID from login" - End If - Else - VERAG_VARIABLES.seterrorcount(8) - lbl_status.ForeColor = Drawing.Color.Red - lbl_status.Text = VERAG_VARIABLES.geterrornumb + "The time chosen is newer then today or older than april 2001. Please correct" - End If - End If - addrows() - Session.Item("mytable") = normaltable - 'MsgBox("Test") - End Sub Protected Sub btn_resetForm_Click(sender As Object, e As EventArgs) dt = Nothing @@ -642,4 +540,200 @@ Partial Class Customers_Default3 lbl_status.Text = VERAG_VARIABLES.geterrornumb + "The chosen time " + pickdate2.Text + " is too far in the future" End If End Sub + + Protected Sub btn_SendData_Click(sender As Object, e As EventArgs) Handles btn_SendData.Click + 'MsgBox("Rechnung.pdf") + dt = Nothing + Session.Add("mytable", Nothing) + If Session.Item("mytable") = Nothing Then + If txt_Absender.Text IsNot "" Then + txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_Absender.Enabled = True + regex_txt_Absender.Validate() + If regex_txt_Absender.IsValid = True Then + Try + Absender = txt_Absender.Text + Catch ex As Exception + lbl_status.ForeColor = Drawing.Color.Red + lbl_status.Text = "Der Absender ist nicht richtig. Bitte korrigieren." + End Try + End If + Else + regex_txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Disabled + regex_txt_Absender.Enabled = False + End If + If txt_Empfaenger.Text IsNot "" Then + txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_Empfaenger.Enabled = True + If regex_txt_Empfaenger.IsValid = True Then + Try + Empfaenger = txt_Empfaenger.Text + Catch ex As Exception + regex_txt_Empfaenger.ForeColor = Drawing.Color.Red + regex_txt_Empfaenger.ErrorMessage = "Empfänger ist nicht korrekt!" + End Try + End If + Else + regex_txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Disabled + regex_txt_Empfaenger.Enabled = False + End If + If txt_KdNrAuftrag.Text IsNot "" Then + txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_KdNrAuftrag.Enabled = True + regex_txt_KdNrAuftrag.Validate() + If regex_txt_KdNrAuftrag.IsValid = True Then + Try + KDNAFNR = txt_KdNrAuftrag.Text + Catch ex As Exception + regex_txt_KdNrAuftrag.ForeColor = Drawing.Color.Red + regex_txt_KdNrAuftrag.Text = "Fehler bei Validierung der Kundenauftragsnummer!" + End Try + End If + Else + txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Disabled + regex_txt_KdNrAuftrag.Enabled = False + End If + If txt_LKW.Text IsNot "" Then + txt_LKW.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_LKW.Enabled = True + regex_txt_LKW.Validate() + If regex_txt_LKW.IsValid = True Then + Try + LKWNR = txt_LKW.Text + Catch ex As Exception + regex_txt_LKW.ForeColor = Drawing.Color.Red + regex_txt_LKW.ErrorMessage = "Das LKW-Kennzeichen ist nicht korrekt formatiert!" + End Try + End If + Else + txt_LKW.ValidateRequestMode = UI.ValidateRequestMode.Disabled + regex_txt_LKW.Enabled = False + End If + If txt_ReNr.Text IsNot "" Then + txt_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_ReNr.Enabled = True + regex_txt_ReNr.Validate() + If regex_txt_ReNr.IsValid = True Then + Try + reNr = txt_ReNr.Text + Catch ex As Exception + regex_txt_ReNr.ForeColor = Drawing.Color.Red + regex_txt_ReNr.ErrorMessage = "Die Rechnungsnummer ist nicht korrekt." + End Try + End If + Else + txt_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Disabled + regex_txt_ReNr.Enabled = False + End If + 'Mobil + If txt_Absender_M.Text IsNot "" Then + txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_Absender_M.Enabled = True + regex_txt_Absender_M.Validate() + If regex_txt_Absender_M.IsValid = True Then + Try + Absender = txt_Absender_M.Text + Catch ex As Exception + regex_txt_Absender_M.ForeColor = Drawing.Color.Red + regex_txt_Absender_M.ErrorMessage = "Der Absender ist nicht richtig. Bitte korrigieren." + End Try + End If + Else + txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled + regex_txt_Absender_M.Enabled = False + End If + If txt_Empfaenger_M.Text IsNot "" Then + txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_Empaenger_M.Enabled = True + regex_txt_Empaenger_M.Validate() + If regex_txt_Empaenger_M.IsValid = True Then + Try + Empfaenger = txt_Empfaenger_M.Text + Catch ex As Exception + regex_txt_Empaenger_M.ForeColor = Drawing.Color.Red + regex_txt_Empaenger_M.Text = "Empfänger ist nicht korrekt!" + End Try + End If + Else + txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled + regex_txt_Empaenger_M.Enabled = False + End If + If txt_KdNrAuftrag_M.Text IsNot "" Then + txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_KdNrAuftrag_M.Enabled = True + regex_txt_KdNrAuftrag_M.Validate() + If regex_txt_KdNrAuftrag_M.IsValid = True Then + Try + KDNAFNR = txt_KdNrAuftrag_M.Text + Catch ex As Exception + regex_txt_KdNrAuftrag_M.ForeColor = Drawing.Color.Red + regex_txt_KdNrAuftrag_M.ErrorMessage = "Fehler bei Validierung der Kundenauftragsnummer!" + End Try + End If + Else + txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled + regex_txt_KdNrAuftrag_M.Enabled = False + End If + If txt_LKW_M.Text IsNot "" Then + txt_LKW_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_LKW_M.Enabled = True + regex_txt_LKW_M.Validate() + If regex_txt_LKW_M.IsValid = True Then + Try + LKWNR = txt_LKW_M.Text + Catch Ex As Exception + regex_txt_LKW_M.ForeColor = Drawing.Color.Red + regex_txt_LKW_M.Text = "Das LKW-Kennzeichen ist nicht korrekt formatiert!" + End Try + End If + Else + txt_LKW_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled + regex_txt_LKW_M.Enabled = False + End If + If txt_ReNr_M.Text IsNot "" Then + txt_ReNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled + regex_txt_ReNr_M.Enabled = True + regex_txt_ReNr_M.Validate() + If regex_txt_ReNr_M.IsValid = True Then + Try + reNr = txt_ReNr_M.Text + Catch ex As Exception + regex_txt_ReNr_M.ForeColor = Drawing.Color.Red + regex_txt_ReNr_M.Text = "Die Rechnungsnummer ist nicht korrekt." + End Try + End If + Else + txt_ReNr_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled + regex_txt_ReNr_M.Enabled = False + End If + pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled + pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled + If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then + Try + Dim erster = New Date(Now().Year, Now.Month, 1) + datevon = erster + datebis = Date.Parse(Now.ToShortDateString) + pickdate1.Text = erster.ToUniversalTime.ToString("yyyy-MM-dd") + pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyyy-MM-dd") + + Catch ex As Exception + lbl_status.ForeColor = Drawing.Color.Red + lbl_status.Text = "Die Daten konnten nicht initialisiert werden. Bitte erneut versuchen." + End Try + Else + Try + datevon = Date.Parse(pickdate1.Text) + datebis = Date.Parse(pickdate2.Text) + Catch + lbl_status.ForeColor = Drawing.Color.Red + lbl_status.Text = "Fehler bei der Datenvergabe." + End Try + End If + dt = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(Integer.Parse(Kdnrtext), CDate(datevon), CDate(datebis), Integer.Parse(reNr), Absender, Empfaenger, LKWNR, KDNAFNR) + + 'MsgBox("Alles hinzugefügt") + End If + addrows() + Session.Item("mytable") = normaltable + End Sub End Class \ No newline at end of file