Änderungen CustomsAvisio.aspx funktioniert wieder.
This commit is contained in:
ja
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user