Designanpassungen

Customers/Invoices.aspx.vb

@@ -10,7 +10,7 @@ Partial Class Customers_Invoices
     Dim Empfaenger As String = ""
     Dim LKWNR As String = ""
     Dim KDNAFNR As String = ""
-    Dim dt As DataTable
+    Dim dt As List(Of VERAG_PROG_ALLGEMEIN.cRechnungsausgang)
     Dim reNr As String = ""
     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
         Page.UnobtrusiveValidationMode = UnobtrusiveValidationMode.WebForms
@@ -22,6 +22,7 @@ Partial Class Customers_Invoices
             datevon = Date.Parse(pickdate1.Text)
             datebis = Date.Parse(pickdate2.Text)
         Else
+
             normaltable.EnableViewState = True
             lbl_von.Visible = True
             lbl_bis.Visible = True
@@ -232,16 +233,12 @@ Partial Class Customers_Invoices
     End Sub
 
     Protected Sub btn_Rechnungen_Click(sender As Object, e As EventArgs)
-        Try
-            Kdnrtext = Session.Item("CustomerID")
-        Catch A As UnauthorizedAccessException When Kdnrtext = Nothing
-            MsgBox("Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!", MsgBoxStyle.Information, "Error in User Area!")
-        End Try
+
         dt = Nothing
-        reqfield_txt_kundenNr.Validate()
+
         valreq_pickdate1.Validate()
         valreq_pickdate2.Validate()
-        If reqfield_txt_kundenNr.IsValid AndAlso valreq_pickdate1.IsValid AndAlso valreq_pickdate2.IsValid Then
+        If valreq_pickdate1.IsValid AndAlso valreq_pickdate2.IsValid Then
             If txt_Absender.Text IsNot "" Then
                 regexval_txt_Absender.Enabled = True
                 regexval_txt_Absender.Validate()
@@ -375,7 +372,82 @@ Partial Class Customers_Invoices
                     MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation)
                 End Try
             End If
-        Else
+
+            Kdnrtext = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("P4"))
+
+            If String.IsNullOrEmpty(Kdnrtext) = False And String.IsNullOrEmpty(datevon.ToString) = False And String.IsNullOrEmpty(datebis.ToString) = False Then
+                dt = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(Integer.Parse(Kdnrtext), datevon, datebis, Integer.Parse(reNr), Absender, Empfaenger, LKWNR, KDNAFNR)
+            ElseIf String.IsNullOrEmpty(Kdnrtext) = True Or String.IsNullOrEmpty(datevon.ToString) = True And String.IsNullOrEmpty(datebis.ToString) = True And String.IsNullOrEmpty(reNr) = True And String.IsNullOrEmpty(Absender) = False And String.IsNullOrEmpty(LKWNR) = False And String.IsNullOrEmpty(Empfaenger) = False And String.IsNullOrEmpty(KDNAFNR) = False Then
+
+                valreq_pickdate1.Validate()
+                valreq_pickdate2.Validate()
+            End If
+
+            If dt IsNot Nothing AndAlso Not dt.Count = 0 Then
+                Dim i As Integer = 0
+                For Each d In dt
+                    Dim tr = New TableRow
+                    Dim Cell = New TableCell
+                    Dim tbl_CellIndex = New TableCell
+                    Dim tbl_CellRENr = New TableCell
+                    Dim tbl_Cell_Auftragsdatum = New TableCell
+                    Dim tbl_CellAbsender = New TableCell
+                    Dim tbl_CellEmpfaenger = New TableCell
+                    Dim tbl_CellLKWs = New TableCell
+                    Dim tbl_CellKundAuftNr = New TableCell
+                    Dim tbl_CellInfo = New TableCell
+
+                    Dim zahl = i + 1
+                    tbl_CellIndex.ValidateRequestMode = UI.ValidateRequestMode.Enabled
+                    tbl_CellIndex.Text = zahl
+                    tr.Cells.Add(tbl_CellIndex)
+                    tbl_CellLKWs.ValidateRequestMode = UI.ValidateRequestMode.Enabled
+                    tbl_CellLKWs.Text = d.LKW_Kennzeichen.ToString
+                    tr.Cells.Add(tbl_CellLKWs)
+                    tbl_CellRENr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
+                    tbl_CellRENr.Text = d.RechnungsNr.ToString
+                    tr.Cells.Add(tbl_CellRENr)
+                    initcells(tr, tbl_CellIndex, tbl_CellRENr, tbl_CellLKWs, tbl_Cell_Auftragsdatum, tbl_CellKundAuftNr, tbl_CellAbsender, tbl_CellEmpfaenger, tbl_CellInfo, tbl_HeaderCellIndexNr, tbl_HeaderCell_ReNr, tbl_HeaderCell_LKWNr, tbl_HeaderCell_Auftragsdatum, tbl_HeaderCell_KundAuftrNr, tbl_HeaderCell_Absender, tbl_HeaderCell_Empfaenger, tbl_HeaderCell_Info)
+                    tbl_Cell_Auftragsdatum.ValidateRequestMode = UI.ValidateRequestMode.Enabled
+                    tbl_Cell_Auftragsdatum.Text = d.RechnungsDatum.ToString
+                    tr.Cells.Add(tbl_Cell_Auftragsdatum)
+                    tbl_CellKundAuftNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
+                    tbl_CellKundAuftNr.Text = d.KdAuftragsNr.ToString
+                    tr.Cells.Add(tbl_CellKundAuftNr)
+                    tbl_CellAbsender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
+                    tbl_CellAbsender.Text = d.AbsenderName_1.ToString + Space(1) + d.AbsenderName_2.ToString
+                    tr.Cells.Add(tbl_CellAbsender)
+                    tbl_CellEmpfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
+                    tbl_CellEmpfaenger.Text = d.EmpfängerName_1.ToString + Space(1) + d.EmpfängerName_2.ToString
+                    tr.Cells.Add(tbl_CellEmpfaenger)
+
+                    Dim btn As New ImageButton
+                    btn.ViewStateMode = ViewStateMode.Enabled
+                    'btn.Text = "Text"
+                    btn.CssClass = "btn btn-primary"
+                    btn.ImageUrl = "../images/Icons/service/pdficon.gif"
+                    'btn.Attributes.Add("Text", <img src= width="15" height="15"/>)
+                    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("target", "_blank")
+                    btn.PostBackUrl = "pdfviewer.aspx?P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.FilialenNr).ToString + "&P2=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.AbfertigungsNr).ToString + "&P2=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.AbfertigungsNr).ToString + "&P3=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.RK_ID).ToString
+                    tbl_CellInfo.ValidateRequestMode = UI.ValidateRequestMode.Enabled
+                    tbl_CellInfo.Controls.Add(btn)
+                    tr.Cells.Add(tbl_CellInfo)
+
+                    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 = New TableRow()
+                tr.Style.Add("text-align", "center")
+                tbl_cellNothing.Text = Server.HtmlEncode("Keine Daten gefunden.")
+                tr.Cells.Add(tbl_cellNothing)
+                normaltable.Rows.Add(tr)
+            End If
         End If
     End Sub