Änderungen CustomsAvisio.aspx funktioniert wieder.

This commit is contained in:
ja
2021-11-26 11:07:45 +01:00
parent 8ea0881fbf
commit 26b089b633
4 changed files with 372 additions and 572 deletions

View File

@@ -636,8 +636,9 @@ Partial Class CustomsAviso
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {5}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
End If
End If
addrows()
addrows()
Session.Item("mytable") = normaltable
End Sub
Protected Sub btn_resetForm_Click(sender As Object, e As EventArgs)

View File

@@ -1,4 +1,4 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Customers/Customers.master" AutoEventWireup="false" CodeFile="Invoices.aspx.vb" Inherits="Customers_Default3" %>
<%@ Page Title="" Language="VB" MasterPageFile="~/Customers/Customers.master" CodeFile="Invoices.aspx.vb" Inherits="Customers_Default3" %>
<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder2" Runat="Server">
</asp:Content>
@@ -221,7 +221,7 @@
</div>
</div>
<div id="Abstand_laenger" style="height:/*24px*/ 1.873536299765808vh;"></div>
<asp:Button ID="btn_b" CssClass="btn btn-primary" runat="server" CausesValidation="false" Text="Erhalte Rechnungen" OnClick="btn_b_Click"/>
<asp:Button ID="btn_b" CssClass="btn btn-primary" runat="server" CausesValidation="false" Text="Erhalte Rechnungen" />
<div id="Abstand_lang" style="height: /*32px*/ 2.498048399687744vh;"></div>
<div class="g-3">
<div id="conovertab">

View File

@@ -20,7 +20,7 @@ Partial Class Customers_Default3
Dim reNr As String = "-1"
Dim provider As CultureInfo = CultureInfo.InvariantCulture
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
VERAG_VARIABLES.initerrorcount()
If Not Me.Page.User.Identity.IsAuthenticated Then
@@ -37,7 +37,7 @@ Partial Class Customers_Default3
'Script für Schließen wirklich verlassen Meldung auf der Masterseite für diese Seite zu registrieren und nicht ueberall
Dim csm1 As ClientScriptManager = Page.ClientScript
Dim cstype As Type = Page.GetType
Dim erster As Date
If Not csm1.IsStartupScriptRegistered(cstype, "Startup") Then
Dim string1 As String = "<script language=\""JavaScript\"">"
string1 += "</"
@@ -59,12 +59,143 @@ Partial Class Customers_Default3
datebis = Date.Parse(pickdate2.Text)
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
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!"
End If
If Not IsNothing(Session.Item("mytable")) Then
addrows()
End If
Else
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")
End If
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")
End If
End Sub
Private Sub addrows()
dt = Session.Item("datatbl")
Session.Item("mytable") = Nothing
normaltable.Rows.Clear()
If Session.Item("mytable") = 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 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)
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
Session.Item("mytable") = normaltable
End If
End Sub
@@ -164,342 +295,240 @@ Partial Class Customers_Default3
Protected Sub btn_b_Click(sender As Object, e As EventArgs)
dt = Nothing
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
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!"
End If
If valdaterage_1.IsValid And valdaterange_2.IsValid Then
If String.IsNullOrEmpty(Kdnrtext) = False Then
If Not String.IsNullOrEmpty(txt_Absender.Text) 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)
Session.Add("mytable", Nothing)
If Session.Item("mytable") = Nothing Then
If Not String.IsNullOrEmpty(txt_Absender.Text) 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 Sender Validation"
End Try
End If
If String.IsNullOrEmpty(txt_Empfaenger.Text) = False 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
End If
If String.IsNullOrEmpty(txt_KdNrAuftrag.Text) = False 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
End If
If String.IsNullOrEmpty(txt_LKW.Text) = False 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
End If
If String.IsNullOrEmpty(txt_ReNr.Text) = False 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
End If
If String.IsNullOrEmpty(txt_Absender_M.Text) = False 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
End If
If String.IsNullOrEmpty(txt_Empfaenger_M.Text) = False 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
End If
If String.IsNullOrEmpty(txt_KdNrAuftrag_M.Text) = False 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
End If
If String.IsNullOrEmpty(txt_LKW_M.Text) = False 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
End If
If String.IsNullOrEmpty(txt_ReNr_M.Text) = False 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
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 = datevon.ToShortDateString
pickdate2.Text = datebis.ToShortDateString
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 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)
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"
lbl_status.Text = VERAG_VARIABLES.geterrornumb + ": Error with the Sender"
End If
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
End If
If String.IsNullOrEmpty(txt_Empfaenger.Text) = False 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
End If
If String.IsNullOrEmpty(txt_KdNrAuftrag.Text) = False 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
End If
If String.IsNullOrEmpty(txt_LKW.Text) = False 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
End If
If String.IsNullOrEmpty(txt_ReNr.Text) = False 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
End If
If String.IsNullOrEmpty(txt_Absender_M.Text) = False 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
End If
If String.IsNullOrEmpty(txt_Empfaenger_M.Text) = False 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
End If
If String.IsNullOrEmpty(txt_KdNrAuftrag_M.Text) = False 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
End If
If String.IsNullOrEmpty(txt_LKW_M.Text) = False 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
End If
If String.IsNullOrEmpty(txt_ReNr_M.Text) = False 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
End If
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
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 = datevon.ToShortDateString
pickdate2.Text = datebis.ToShortDateString
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
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
If valdaterage_1.IsValid AndAlso valdaterange_2.IsValid 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)
addrows()
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
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)
End If
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)
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)
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(16)
VERAG_VARIABLES.seterrorcount(8)
lbl_status.ForeColor = Drawing.Color.Red
lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error getting Customer-ID from login"
lbl_status.Text = VERAG_VARIABLES.geterrornumb + "The time chosen is newer then today or older than april 2001. Please correct"
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
'MsgBox("Test")
End Sub
@@ -526,6 +555,7 @@ Partial Class Customers_Default3
LKWNR = ""
KDNAFNR = ""
reNr = ""
Session.Remove("mytable")
'MsgBox("Reset")
End Sub

View File

@@ -1,243 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml-stylesheet type="text/xsl" href="c:\program files\microsoft visual studio\2022\preview\team tools\static analysis tools\fxcop\Xml\CodeAnalysisReport.xsl"?>
<FxCopReport Version="17.0">
<Targets>
<Target Name="C:\Users\Aigner\AppData\Local\Temp\tmp4980.tmp.cadir\bin\App_Code.dll">
<Modules>
<Module Name="app_code.dll">
<Namespaces>
<Namespace Name="">
<Types>
<Type Name="cDBADMINFunctions" Kind="Class" Accessibility="Public" ExternallyVisible="True">
<Members>
<Member Name="#doTheSql(System.String)" Kind="Method" Static="False" Accessibility="Public" ExternallyVisible="True">
<Messages>
<Message TypeName="Objekte nicht mehrmals verwerfen" Category="Microsoft.Usage" CheckId="CA2202" Status="Active" Created="2021-09-17 06:15:27Z" FixCategory="DependsOnFix">
<Issue Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\App_Code" File="cDBFunctions.vb" Line="414">Das Objekt "'conn'" kann mehrere Male in der 'cDBADMINFunctions.doTheSql(String)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 414</Issue>
</Message>
<Message TypeName="SQL-Abfragen auf Sicherheitsrisiken überprüfen" Category="Microsoft.Security" CheckId="CA2100" Status="Active" Created="2021-09-17 06:15:27Z" FixCategory="DependsOnFix">
<Issue Name="WithNonLiterals" Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\App_Code" File="cDBFunctions.vb" Line="406">Die in 'cDBADMINFunctions.doTheSql(String)' an 'SqlCommand.New(String, SqlConnection)' übergebene Abfragezeichenfolge könnte die folgenden 'sql'-Variablen enthalten. Wenn eine dieser Variablen aus Benutzereingaben stammt, sollten Sie eine gespeicherte Prozedur oder eine parametrisierte SQL-Abfrage verwenden, anstatt die Abfrage mit Zeichenfolgenverkettungen zu erstellen.</Issue>
</Message>
</Messages>
</Member>
<Member Name="#getInstance(System.String)" Kind="Method" Static="False" Accessibility="Public" ExternallyVisible="True">
<Messages>
<Message TypeName="Objekte nicht mehrmals verwerfen" Category="Microsoft.Usage" CheckId="CA2202" Status="Active" Created="2021-09-17 06:15:27Z" FixCategory="DependsOnFix">
<Issue Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\App_Code" File="cDBFunctions.vb" Line="441">Das Objekt "'con'" kann mehrere Male in der 'cDBADMINFunctions.getInstance(String)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 441</Issue>
</Message>
<Message TypeName="SQL-Abfragen auf Sicherheitsrisiken überprüfen" Category="Microsoft.Security" CheckId="CA2100" Status="Active" Created="2021-09-17 06:15:27Z" FixCategory="DependsOnFix">
<Issue Name="WithNonLiterals" Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\App_Code" File="cDBFunctions.vb" Line="427">Die in 'cDBADMINFunctions.getInstance(String)' an 'SqlCommand.CommandText.Set(String)' übergebene Abfragezeichenfolge könnte die folgenden 'id'-Variablen enthalten. Wenn eine dieser Variablen aus Benutzereingaben stammt, sollten Sie eine gespeicherte Prozedur oder eine parametrisierte SQL-Abfrage verwenden, anstatt die Abfrage mit Zeichenfolgenverkettungen zu erstellen.</Issue>
</Message>
</Messages>
</Member>
<Member Name="#insert_HPContentNew(hp_content,System.String,System.String,System.String,System.String)" Kind="Method" Static="False" Accessibility="Public" ExternallyVisible="True">
<Messages>
<Message TypeName="Objekte nicht mehrmals verwerfen" Category="Microsoft.Usage" CheckId="CA2202" Status="Active" Created="2021-09-17 06:15:27Z" FixCategory="DependsOnFix">
<Issue Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\App_Code" File="cDBFunctions.vb" Line="468">Das Objekt "'conn'" kann mehrere Male in der 'cDBADMINFunctions.insert_HPContentNew(hp_content, String, String, String, String)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 468</Issue>
<Issue Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\App_Code" File="cDBFunctions.vb" Line="484">Das Objekt "'conn'" kann mehrere Male in der 'cDBADMINFunctions.insert_HPContentNew(hp_content, String, String, String, String)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 484</Issue>
</Message>
<Message TypeName="SQL-Abfragen auf Sicherheitsrisiken überprüfen" Category="Microsoft.Security" CheckId="CA2100" Status="Active" Created="2021-09-17 06:15:27Z" FixCategory="DependsOnFix">
<Issue Name="WithNonLiterals" Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\App_Code" File="cDBFunctions.vb" Line="456">Die in 'cDBADMINFunctions.insert_HPContentNew(hp_content, String, String, String, String)' an 'SqlCommand.New(String, SqlConnection)' übergebene Abfragezeichenfolge könnte die folgenden 'Me.getTitle(laenderkuerzel)', 'New String(5)(3)'-Variablen enthalten. Wenn eine dieser Variablen aus Benutzereingaben stammt, sollten Sie eine gespeicherte Prozedur oder eine parametrisierte SQL-Abfrage verwenden, anstatt die Abfrage mit Zeichenfolgenverkettungen zu erstellen.</Issue>
</Message>
</Messages>
</Member>
<Member Name="#qry_contentNew(System.String,System.String)" Kind="Method" Static="False" Accessibility="Public" ExternallyVisible="True">
<Messages>
<Message TypeName="Objekte nicht mehrmals verwerfen" Category="Microsoft.Usage" CheckId="CA2202" Status="Active" Created="2021-09-17 06:15:27Z" FixCategory="DependsOnFix">
<Issue Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\App_Code" File="cDBFunctions.vb" Line="289">Das Objekt "'con'" kann mehrere Male in der 'cDBADMINFunctions.qry_contentNew(String, String)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 289</Issue>
</Message>
<Message TypeName="SQL-Abfragen auf Sicherheitsrisiken überprüfen" Category="Microsoft.Security" CheckId="CA2100" Status="Active" Created="2021-09-17 06:15:27Z" FixCategory="DependsOnFix">
<Issue Name="WithNonLiterals" Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\App_Code" File="cDBFunctions.vb" Line="269">Die in 'cDBADMINFunctions.qry_contentNew(String, String)' an 'SqlCommand.CommandText.Set(String)' übergebene Abfragezeichenfolge könnte die folgenden 'menuID'-Variablen enthalten. Wenn eine dieser Variablen aus Benutzereingaben stammt, sollten Sie eine gespeicherte Prozedur oder eine parametrisierte SQL-Abfrage verwenden, anstatt die Abfrage mit Zeichenfolgenverkettungen zu erstellen.</Issue>
</Message>
</Messages>
</Member>
<Member Name="#qry_menu_tags(System.String,System.String)" Kind="Method" Static="False" Accessibility="Public" ExternallyVisible="True">
<Messages>
<Message TypeName="Objekte nicht mehrmals verwerfen" Category="Microsoft.Usage" CheckId="CA2202" Status="Active" Created="2021-09-17 06:15:27Z" FixCategory="DependsOnFix">
<Issue Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\App_Code" File="cDBFunctions.vb" Line="253">Das Objekt "'con'" kann mehrere Male in der 'cDBADMINFunctions.qry_menu_tags(String, String)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 253</Issue>
</Message>
<Message TypeName="SQL-Abfragen auf Sicherheitsrisiken überprüfen" Category="Microsoft.Security" CheckId="CA2100" Status="Active" Created="2021-09-17 06:15:27Z" FixCategory="DependsOnFix">
<Issue Name="WithNonLiterals" Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\App_Code" File="cDBFunctions.vb" Line="234">Die in 'cDBADMINFunctions.qry_menu_tags(String, String)' an 'SqlCommand.CommandText.Set(String)' übergebene Abfragezeichenfolge könnte die folgenden 'ref'-Variablen enthalten. Wenn eine dieser Variablen aus Benutzereingaben stammt, sollten Sie eine gespeicherte Prozedur oder eine parametrisierte SQL-Abfrage verwenden, anstatt die Abfrage mit Zeichenfolgenverkettungen zu erstellen.</Issue>
</Message>
</Messages>
</Member>
<Member Name="#update_HPContentNew(hp_content,System.String)" Kind="Method" Static="False" Accessibility="Public" ExternallyVisible="True">
<Messages>
<Message TypeName="Objekte nicht mehrmals verwerfen" Category="Microsoft.Usage" CheckId="CA2202" Status="Active" Created="2021-09-17 06:15:27Z" FixCategory="DependsOnFix">
<Issue Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\App_Code" File="cDBFunctions.vb" Line="373">Das Objekt "'conn'" kann mehrere Male in der 'cDBADMINFunctions.update_HPContentNew(hp_content, String)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 373</Issue>
<Issue Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\App_Code" File="cDBFunctions.vb" Line="397">Das Objekt "'conn'" kann mehrere Male in der 'cDBADMINFunctions.update_HPContentNew(hp_content, String)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 397</Issue>
</Message>
<Message TypeName="SQL-Abfragen auf Sicherheitsrisiken überprüfen" Category="Microsoft.Security" CheckId="CA2100" Status="Active" Created="2021-09-17 06:15:27Z" FixCategory="DependsOnFix">
<Issue Name="WithNonLiterals" Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\App_Code" File="cDBFunctions.vb" Line="358">Die in 'cDBADMINFunctions.update_HPContentNew(hp_content, String)' an 'SqlCommand.New(String, SqlConnection)' übergebene Abfragezeichenfolge könnte die folgenden 'Me.getSpaltenBezeichnung(laenderkuerzel)', 'Me.getSlogan(laenderkuerzel)', 'Me.getTitle(laenderkuerzel)'-Variablen enthalten. Wenn eine dieser Variablen aus Benutzereingaben stammt, sollten Sie eine gespeicherte Prozedur oder eine parametrisierte SQL-Abfrage verwenden, anstatt die Abfrage mit Zeichenfolgenverkettungen zu erstellen.</Issue>
<Issue Name="WithNonLiterals" Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\App_Code" File="cDBFunctions.vb" Line="382">Die in 'cDBADMINFunctions.update_HPContentNew(hp_content, String)' an 'SqlCommand.New(String, SqlConnection)' übergebene Abfragezeichenfolge könnte die folgenden 'Me.getSpaltenBezeichnung(laenderkuerzel)', 'Me.getSlogan(laenderkuerzel)', 'Me.getTitle(laenderkuerzel)'-Variablen enthalten. Wenn eine dieser Variablen aus Benutzereingaben stammt, sollten Sie eine gespeicherte Prozedur oder eine parametrisierte SQL-Abfrage verwenden, anstatt die Abfrage mit Zeichenfolgenverkettungen zu erstellen.</Issue>
</Message>
</Messages>
</Member>
</Members>
</Type>
<Type Name="cDBFunctions" Kind="Class" Accessibility="Public" ExternallyVisible="True">
<Members>
<Member Name="#qry_blockfield_content(System.String,System.String)" Kind="Method" Static="False" Accessibility="Public" ExternallyVisible="True">
<Messages>
<Message TypeName="Objekte nicht mehrmals verwerfen" Category="Microsoft.Usage" CheckId="CA2202" Status="Active" Created="2021-09-17 06:15:27Z" FixCategory="DependsOnFix">
<Issue Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\App_Code" File="cDBFunctions.vb" Line="205">Das Objekt "'con'" kann mehrere Male in der 'cDBFunctions.qry_blockfield_content(String, String)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 205</Issue>
</Message>
<Message TypeName="SQL-Abfragen auf Sicherheitsrisiken überprüfen" Category="Microsoft.Security" CheckId="CA2100" Status="Active" Created="2021-09-17 06:15:27Z" FixCategory="DependsOnFix">
<Issue Name="WithNonLiterals" Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\App_Code" File="cDBFunctions.vb" Line="192">Die in 'cDBFunctions.qry_blockfield_content(String, String)' an 'SqlCommand.CommandText.Set(String)' übergebene Abfragezeichenfolge könnte die folgenden 'bf_ID'-Variablen enthalten. Wenn eine dieser Variablen aus Benutzereingaben stammt, sollten Sie eine gespeicherte Prozedur oder eine parametrisierte SQL-Abfrage verwenden, anstatt die Abfrage mit Zeichenfolgenverkettungen zu erstellen.</Issue>
</Message>
</Messages>
</Member>
<Member Name="#qry_blockfields(System.String,System.String)" Kind="Method" Static="False" Accessibility="Public" ExternallyVisible="True">
<Messages>
<Message TypeName="Objekte nicht mehrmals verwerfen" Category="Microsoft.Usage" CheckId="CA2202" Status="Active" Created="2021-09-17 06:15:27Z" FixCategory="DependsOnFix">
<Issue Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\App_Code" File="cDBFunctions.vb" Line="175">Das Objekt "'con'" kann mehrere Male in der 'cDBFunctions.qry_blockfields(String, String)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 175</Issue>
</Message>
<Message TypeName="SQL-Abfragen auf Sicherheitsrisiken überprüfen" Category="Microsoft.Security" CheckId="CA2100" Status="Active" Created="2021-09-17 06:15:27Z" FixCategory="DependsOnFix">
<Issue Name="WithNonLiterals" Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\App_Code" File="cDBFunctions.vb" Line="162">Die in 'cDBFunctions.qry_blockfields(String, String)' an 'SqlCommand.CommandText.Set(String)' übergebene Abfragezeichenfolge könnte die folgenden 'block_id'-Variablen enthalten. Wenn eine dieser Variablen aus Benutzereingaben stammt, sollten Sie eine gespeicherte Prozedur oder eine parametrisierte SQL-Abfrage verwenden, anstatt die Abfrage mit Zeichenfolgenverkettungen zu erstellen.</Issue>
</Message>
</Messages>
</Member>
<Member Name="#qry_content(System.String,System.String)" Kind="Method" Static="False" Accessibility="Public" ExternallyVisible="True">
<Messages>
<Message TypeName="Objekte nicht mehrmals verwerfen" Category="Microsoft.Usage" CheckId="CA2202" Status="Active" Created="2021-09-17 06:15:27Z" FixCategory="DependsOnFix">
<Issue Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\App_Code" File="cDBFunctions.vb" Line="97">Das Objekt "'con'" kann mehrere Male in der 'cDBFunctions.qry_content(String, String)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 97</Issue>
</Message>
<Message TypeName="SQL-Abfragen auf Sicherheitsrisiken überprüfen" Category="Microsoft.Security" CheckId="CA2100" Status="Active" Created="2021-09-17 06:15:27Z" FixCategory="DependsOnFix">
<Issue Name="WithNonLiterals" Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\App_Code" File="cDBFunctions.vb" Line="82">Die in 'cDBFunctions.qry_content(String, String)' an 'SqlCommand.CommandText.Set(String)' übergebene Abfragezeichenfolge könnte die folgenden 'menuID'-Variablen enthalten. Wenn eine dieser Variablen aus Benutzereingaben stammt, sollten Sie eine gespeicherte Prozedur oder eine parametrisierte SQL-Abfrage verwenden, anstatt die Abfrage mit Zeichenfolgenverkettungen zu erstellen.</Issue>
</Message>
</Messages>
</Member>
<Member Name="#qry_contentNew(System.String,System.String)" Kind="Method" Static="False" Accessibility="Public" ExternallyVisible="True">
<Messages>
<Message TypeName="Objekte nicht mehrmals verwerfen" Category="Microsoft.Usage" CheckId="CA2202" Status="Active" Created="2021-09-17 06:15:27Z" FixCategory="DependsOnFix">
<Issue Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\App_Code" File="cDBFunctions.vb" Line="140">Das Objekt "'con'" kann mehrere Male in der 'cDBFunctions.qry_contentNew(String, String)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 140</Issue>
</Message>
<Message TypeName="SQL-Abfragen auf Sicherheitsrisiken überprüfen" Category="Microsoft.Security" CheckId="CA2100" Status="Active" Created="2021-09-17 06:15:27Z" FixCategory="DependsOnFix">
<Issue Name="WithNonLiterals" Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\App_Code" File="cDBFunctions.vb" Line="124">Die in 'cDBFunctions.qry_contentNew(String, String)' an 'SqlCommand.CommandText.Set(String)' übergebene Abfragezeichenfolge könnte die folgenden 'Me.getSpaltenBezeichnung(laenderkuerzel)', 'menuID'-Variablen enthalten. Wenn eine dieser Variablen aus Benutzereingaben stammt, sollten Sie eine gespeicherte Prozedur oder eine parametrisierte SQL-Abfrage verwenden, anstatt die Abfrage mit Zeichenfolgenverkettungen zu erstellen.</Issue>
</Message>
</Messages>
</Member>
<Member Name="#qry_menu_tags(System.String,System.String)" Kind="Method" Static="False" Accessibility="Public" ExternallyVisible="True">
<Messages>
<Message TypeName="Objekte nicht mehrmals verwerfen" Category="Microsoft.Usage" CheckId="CA2202" Status="Active" Created="2021-09-17 06:15:27Z" FixCategory="DependsOnFix">
<Issue Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\App_Code" File="cDBFunctions.vb" Line="66">Das Objekt "'con'" kann mehrere Male in der 'cDBFunctions.qry_menu_tags(String, String)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 66</Issue>
</Message>
<Message TypeName="SQL-Abfragen auf Sicherheitsrisiken überprüfen" Category="Microsoft.Security" CheckId="CA2100" Status="Active" Created="2021-09-17 06:15:27Z" FixCategory="DependsOnFix">
<Issue Name="WithNonLiterals" Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\App_Code" File="cDBFunctions.vb" Line="44">Die in 'cDBFunctions.qry_menu_tags(String, String)' an 'SqlCommand.CommandText.Set(String)' übergebene Abfragezeichenfolge könnte die folgenden 'ref'-Variablen enthalten. Wenn eine dieser Variablen aus Benutzereingaben stammt, sollten Sie eine gespeicherte Prozedur oder eine parametrisierte SQL-Abfrage verwenden, anstatt die Abfrage mit Zeichenfolgenverkettungen zu erstellen.</Issue>
</Message>
</Messages>
</Member>
</Members>
</Type>
</Types>
</Namespace>
</Namespaces>
</Module>
</Modules>
</Target>
<Target Name="C:\Users\Aigner\AppData\Local\Temp\tmp4980.tmp.cadir\bin\App_Web_edl24cis.dll">
<Modules>
<Module Name="app_web_edl24cis.dll">
<Namespaces>
<Namespace Name="">
<Types>
<Type Name="login_login_TEST" Kind="Class" Accessibility="Public" ExternallyVisible="True">
<Members>
<Member Name="#ValidateUser(System.Object,System.EventArgs)" Kind="Method" Static="False" Accessibility="Family" ExternallyVisible="True">
<Messages>
<Message TypeName="Objekte nicht mehrmals verwerfen" Category="Microsoft.Usage" CheckId="CA2202" Status="Active" Created="2021-09-17 06:15:27Z" FixCategory="DependsOnFix">
<Issue Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\login" File="login_FLEX.aspx.vb" Line="59">Das Objekt "'con'" kann mehrere Male in der 'login_login_TEST.ValidateUser(Object, EventArgs)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 59</Issue>
</Message>
</Messages>
</Member>
</Members>
</Type>
</Types>
</Namespace>
</Namespaces>
</Module>
</Modules>
</Target>
<Target Name="C:\Users\Aigner\AppData\Local\Temp\tmp4980.tmp.cadir\bin\App_Web_kmxcb1ib.dll">
<Modules>
<Module Name="app_web_kmxcb1ib.dll">
<Namespaces>
<Namespace Name="">
<Types>
<Type Name="login_login" Kind="Class" Accessibility="Public" ExternallyVisible="True">
<Members>
<Member Name="#ValidateUser(System.Object,System.EventArgs)" Kind="Method" Static="False" Accessibility="Family" ExternallyVisible="True">
<Messages>
<Message TypeName="Objekte nicht mehrmals verwerfen" Category="Microsoft.Usage" CheckId="CA2202" Status="Active" Created="2021-09-17 06:15:27Z" FixCategory="DependsOnFix">
<Issue Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\login" File="login.aspx.vb" Line="46">Das Objekt "'con'" kann mehrere Male in der 'login_login.ValidateUser(Object, EventArgs)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 46</Issue>
</Message>
</Messages>
</Member>
</Members>
</Type>
<Type Name="login_login_TEST" Kind="Class" Accessibility="Public" ExternallyVisible="True">
<Members>
<Member Name="#ValidateUser(System.Object,System.EventArgs)" Kind="Method" Static="False" Accessibility="Family" ExternallyVisible="True">
<Messages>
<Message TypeName="Objekte nicht mehrmals verwerfen" Category="Microsoft.Usage" CheckId="CA2202" Status="Active" Created="2021-09-17 06:15:27Z" FixCategory="DependsOnFix">
<Issue Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\login" File="login_TEST.aspx.vb" Line="53">Das Objekt "'con'" kann mehrere Male in der 'login_login_TEST.ValidateUser(Object, EventArgs)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 53</Issue>
</Message>
</Messages>
</Member>
</Members>
</Type>
</Types>
</Namespace>
</Namespaces>
</Module>
</Modules>
</Target>
<Target Name="C:\Users\Aigner\AppData\Local\Temp\tmp4980.tmp.cadir\bin\App_Web_tcxvtyov.dll">
<Modules>
<Module Name="app_web_tcxvtyov.dll">
<Namespaces>
<Namespace Name="">
<Types>
<Type Name="login_login_TEST" Kind="Class" Accessibility="Public" ExternallyVisible="True">
<Members>
<Member Name="#ValidateUser(System.Object,System.EventArgs)" Kind="Method" Static="False" Accessibility="Family" ExternallyVisible="True">
<Messages>
<Message TypeName="Objekte nicht mehrmals verwerfen" Category="Microsoft.Usage" CheckId="CA2202" Status="Active" Created="2021-09-17 06:15:27Z" FixCategory="DependsOnFix">
<Issue Certainty="75" Level="Warning" Path="C:\Users\Aigner\Documents\GitHub\VERAG_Homepage\login" File="Loggedin.aspx.vb" Line="53">Das Objekt "'con'" kann mehrere Male in der 'login_login_TEST.ValidateUser(Object, EventArgs)'-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 53</Issue>
</Message>
</Messages>
</Member>
</Members>
</Type>
</Types>
</Namespace>
</Namespaces>
</Module>
</Modules>
</Target>
</Targets>
<Rules>
<Rule TypeName="Objekte nicht mehrmals verwerfen" Category="Microsoft.Usage" CheckId="CA2202">
<Name>Objekte nicht mehrmals verwerfen</Name>
<Description>Eine ordnungsgemäß implementierte Dispose-Methode kann mehrere Male aufgerufen werden, ohne dass eine Ausnahme ausgelöst wird. Dies ist jedoch nicht garantiert. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.</Description>
<Resolution Name="Default">Das Objekt "{0}" kann mehrere Male in der {1}-Methode verworfen werden. Um zu verhindern, dass eine System.ObjectDisposedException generiert wird, sollten Sie die Dispose-Methode nur einmal für ein Objekt aufrufen.: Lines: 53</Resolution>
<Owner>RuleOwner</Owner>
<Url>http://msdn.microsoft.com/library/ms182334.aspx</Url>
<Email />
<MessageLevel Certainty="75">Warning</MessageLevel>
<File Name="dataflowrules.dll" Version="17.0.0.0" />
</Rule>
<Rule TypeName="SQL-Abfragen auf Sicherheitsrisiken überprüfen" Category="Microsoft.Security" CheckId="CA2100">
<Name>SQL-Abfragen auf Sicherheitsrisiken überprüfen</Name>
<Description>Eine SQL-Befehlszeichenfolge, die aus Benutzereingaben erstellt wird, ist anfällig für Angriffe durch Einschleusung von SQL-Befehlen. Microsoft SQL Server und andere Datenbankserver unterstützen gespeicherte Prozeduren und parametrisierte SQL-Abfragen, durch die das Risiko von Angriffen durch Einschleusung von Befehlen reduziert wird.</Description>
<Resolution Name="WithNonLiterals">Die in {1} an {0} übergebene Abfragezeichenfolge könnte die folgenden {2}-Variablen enthalten. Wenn eine dieser Variablen aus Benutzereingaben stammt, sollten Sie eine gespeicherte Prozedur oder eine parametrisierte SQL-Abfrage verwenden, anstatt die Abfrage mit Zeichenfolgenverkettungen zu erstellen.</Resolution>
<Owner>RuleOwner</Owner>
<Url>http://msdn.microsoft.com/library/ms182310.aspx</Url>
<Email />
<MessageLevel Certainty="75">Warning</MessageLevel>
<File Name="dataflowrules.dll" Version="17.0.0.0" />
</Rule>
</Rules>
<Localized>
<String Key="Category">Kategorie</String>
<String Key="Certainty">Sicherheit</String>
@@ -262,4 +25,10 @@
<String Key="Warnings">Warnung(en)</String>
<String Key="ReportTitle">Code Analysis-Bericht</String>
</Localized>
<Exceptions>
<Exception Keyword="CA0064" Kind="Engine" TreatAsWarning="True">
<Type>Microsoft.FxCop.Sdk.FxCopException</Type>
<ExceptionMessage>Es wurde keine Analyse ausgeführt, da der angegebene Regelsatz nicht geladen werden konnte oder keine Analyseregeln für verwalteten Code enthielt.</ExceptionMessage>
</Exception>
</Exceptions>
</FxCopReport>