Ä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) dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {5}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
End If End If
End If End If
addrows()
addrows()
Session.Item("mytable") = normaltable
End Sub End Sub
Protected Sub btn_resetForm_Click(sender As Object, e As EventArgs) 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 ID="Content1" ContentPlaceHolderID="ContentPlaceHolder2" Runat="Server">
</asp:Content> </asp:Content>
@@ -221,7 +221,7 @@
</div> </div>
</div> </div>
<div id="Abstand_laenger" style="height:/*24px*/ 1.873536299765808vh;"></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 id="Abstand_lang" style="height: /*32px*/ 2.498048399687744vh;"></div>
<div class="g-3"> <div class="g-3">
<div id="conovertab"> <div id="conovertab">

View File

@@ -20,7 +20,7 @@ Partial Class Customers_Default3
Dim reNr As String = "-1" Dim reNr As String = "-1"
Dim provider As CultureInfo = CultureInfo.InvariantCulture 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() VERAG_VARIABLES.initerrorcount()
If Not Me.Page.User.Identity.IsAuthenticated Then 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 '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 csm1 As ClientScriptManager = Page.ClientScript
Dim cstype As Type = Page.GetType Dim cstype As Type = Page.GetType
Dim erster As Date
If Not csm1.IsStartupScriptRegistered(cstype, "Startup") Then If Not csm1.IsStartupScriptRegistered(cstype, "Startup") Then
Dim string1 As String = "<script language=\""JavaScript\"">" Dim string1 As String = "<script language=\""JavaScript\"">"
string1 += "</" string1 += "</"
@@ -59,12 +59,143 @@ Partial Class Customers_Default3
datebis = Date.Parse(pickdate2.Text) datebis = Date.Parse(pickdate2.Text)
End If 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 End If
Dim erster = New Date(Now().Year, Now().Month, 1)
datevon = erster End If
datebis = Date.Parse(Now.ToShortDateString) End Sub
pickdate1.Text = erster.ToUniversalTime.ToString("yyyy-MM-dd")
pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyy-MM-dd") 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 If
End Sub End Sub
@@ -164,342 +295,240 @@ Partial Class Customers_Default3
Protected Sub btn_b_Click(sender As Object, e As EventArgs) Protected Sub btn_b_Click(sender As Object, e As EventArgs)
dt = Nothing dt = Nothing
If String.IsNullOrEmpty(Request.QueryString("P1")) = False Then Session.Add("mytable", Nothing)
Kdnrtext = Request.QueryString("P1") If Session.Item("mytable") = Nothing Then
ElseIf String.IsNullOrEmpty(Session.Item("CustomerID")) = False Then If Not String.IsNullOrEmpty(txt_Absender.Text) Then
Kdnrtext = Session.Item("CustomerID").ToString txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Else regex_txt_Absender.Enabled = True
VERAG_VARIABLES.seterrorcount(512) regex_txt_Absender.Validate()
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
End If If regex_txt_Absender.IsValid = True Then
If valdaterage_1.IsValid And valdaterange_2.IsValid Then Absender = txt_Absender.Text
If String.IsNullOrEmpty(Kdnrtext) = False Then Else
If Not String.IsNullOrEmpty(txt_Absender.Text) Then VERAG_VARIABLES.seterrorcount(1)
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.ForeColor = Drawing.Color.Red
lbl_status.Text = VERAG_VARIABLES.geterrornumb + ": Error Sender Validation" lbl_status.Text = VERAG_VARIABLES.geterrornumb + ": Error with the Sender"
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"
End If 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 If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
Dim i As Integer = 0 Try
For Each d In dt Dim erster = New Date(Now().Year, Now.Month, 1)
Dim tr As TableRow = New TableRow datevon = erster
Dim Cell As TableCell = New TableCell datebis = Date.Parse(Now.ToShortDateString)
Dim tbl_Cell_Index As TableCell = New TableCell pickdate1.Text = datevon.ToShortDateString
Dim tbl_Cell_ReNr As TableCell = New TableCell pickdate2.Text = datebis.ToShortDateString
Dim tbl_Cell_Auftragsdat As TableCell = New TableCell Catch ex As Exception
Dim tbl_Cell_Absender As TableCell = New TableCell VERAG_VARIABLES.seterrorcount(14)
Dim tbl_Cell_Empfaenger As TableCell = New TableCell lbl_status.ForeColor = Drawing.Color.Red
Dim tbl_Cell_LKWs As TableCell = New TableCell lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error in date time conversions"
Dim tbl_Cell_KundAuftrNr As TableCell = New TableCell End Try
Dim tbl_Cell_Info As TableCell = New TableCell 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 If valdaterage_1.IsValid AndAlso valdaterange_2.IsValid Then
tbl_Cell_Index.ValidateRequestMode = UI.ValidateRequestMode.Enabled If String.IsNullOrEmpty(Kdnrtext) = False Then
tbl_Cell_Index.Text = zahl.ToString If String.IsNullOrEmpty(Kdnrtext) = False AndAlso String.IsNullOrEmpty(datevon.ToShortDateString) = False AndAlso String.IsNullOrEmpty(datebis.ToShortDateString) = False Then
tr.Cells.Add(tbl_Cell_Index) dt = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(Integer.Parse(Kdnrtext), datevon, datebis, Integer.Parse(reNr), Absender, Empfaenger, LKWNR, KDNAFNR)
tbl_Cell_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled Session.Add("datatbl", dt)
If d.RechnungsNr = Nothing Then addrows()
tbl_Cell_ReNr.Text = String.Empty Else
Else valreq_pickdate1.Validate()
tbl_Cell_ReNr.Text = d.RechnungsNr.ToString 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
tr.Cells.Add(tbl_Cell_ReNr) End If
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 Else
Dim tbl_cellNothing = New TableCell() VERAG_VARIABLES.seterrorcount(16)
tbl_cellNothing.ColumnSpan = tbl_Header_row.Cells.Count lbl_status.ForeColor = Drawing.Color.Red
tbl_cellNothing.Style.Add("text-align", "center") lbl_status.Text = VERAG_VARIABLES.geterrornumb + "Error getting Customer-ID from login"
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 If
Else Else
VERAG_VARIABLES.seterrorcount(16) VERAG_VARIABLES.seterrorcount(8)
lbl_status.ForeColor = Drawing.Color.Red 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 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
'MsgBox("Test") 'MsgBox("Test")
End Sub End Sub
@@ -526,6 +555,7 @@ Partial Class Customers_Default3
LKWNR = "" LKWNR = ""
KDNAFNR = "" KDNAFNR = ""
reNr = "" reNr = ""
Session.Remove("mytable")
'MsgBox("Reset") 'MsgBox("Reset")
End Sub End Sub

View File

@@ -1,243 +1,6 @@
<?xml version="1.0" encoding="utf-8"?> <?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"?> <?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"> <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> <Localized>
<String Key="Category">Kategorie</String> <String Key="Category">Kategorie</String>
<String Key="Certainty">Sicherheit</String> <String Key="Certainty">Sicherheit</String>
@@ -262,4 +25,10 @@
<String Key="Warnings">Warnung(en)</String> <String Key="Warnings">Warnung(en)</String>
<String Key="ReportTitle">Code Analysis-Bericht</String> <String Key="ReportTitle">Code Analysis-Bericht</String>
</Localized> </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> </FxCopReport>