Imports System.Data Partial Class Customers_Invoices Inherits System.Web.UI.Page Dim datevon As DateTime Dim datebis As DateTime Dim Kdnrtext As String Dim Absender As String = "" Dim Empfaenger As String = "" Dim LKWNR As String = "" Dim KDNAFNR As String = "" Dim dt As List(Of VERAG_PROG_ALLGEMEIN.cRechnungsausgang) Dim reNr As String = "" Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Page.UnobtrusiveValidationMode = UnobtrusiveValidationMode.WebForms DataBind() tbl_Header_row.TableSection = TableRowSection.TableHeader If (Page.IsPostBack) Then valreq_pickdate1.Validate() valreq_pickdate2.Validate() If valreq_pickdate1.IsValid And valreq_pickdate2.IsValid Then valDateRange_1.Validate() valDateRange_2.Validate() If valDateRange_1.IsValid AndAlso valDateRange_2.IsValid Then datevon = Date.Parse(pickdate1.Text) datebis = Date.Parse(pickdate2.Text) End If End If Else normaltable.EnableViewState = True lbl_von.Visible = True lbl_bis.Visible = True valDateRange_1.Enabled = True valDateRange_2.Enabled = True Dim erster = New Date(Now().Year, Now().Month, 1) Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString ' MsgBox(ersterdat) datevon = ersterdat datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString pickdate2.Text = Now().ToShortDateString() pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString End If End Sub Protected Sub initcells(tr As TableRow, t1 As TableCell, t2 As TableCell, t3 As TableCell, t4 As TableCell, t5 As TableCell, t6 As TableCell, t7 As TableCell, t8 As TableCell, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, th6 As TableHeaderCell, th7 As TableHeaderCell, th8 As TableHeaderCell) Dim white As Drawing.Color = Drawing.Color.White Dim schwarz As Drawing.Color = Drawing.Color.Black Dim darkgrau As Drawing.Color = Drawing.Color.DarkGray Dim darkblue = Drawing.Color.FromArgb(4, 51, 129) tr.BackColor = white If t1.Text = "" Then t1.BackColor = white t1.ForeColor = schwarz Else t1.BackColor = white t1.ForeColor = schwarz End If If t2.Text = "" Then t2.BackColor = Drawing.Color.HotPink t2.ForeColor = white Else t2.BackColor = Drawing.Color.Red t2.ForeColor = white End If If t3.Text = "" Then t3.BackColor = white t3.ForeColor = schwarz Else t3.BackColor = white t3.ForeColor = schwarz End If If t4.Text = "" Then t4.BackColor = white t4.ForeColor = schwarz Else t4.BackColor = white t4.ForeColor = schwarz End If If t5.Text = "" Then t5.BackColor = white t5.ForeColor = schwarz Else t5.BackColor = white t5.ForeColor = schwarz End If If t6.Text = "" Then t6.BackColor = white t6.ForeColor = schwarz Else t6.BackColor = white t6.ForeColor = schwarz End If If t7.Text = "" Then t7.BackColor = white t7.ForeColor = schwarz Else t7.BackColor = white t7.ForeColor = schwarz End If If t8.Text = "" Then t8.BackColor = white t8.ForeColor = schwarz Else t8.BackColor = white t8.ForeColor = schwarz End If th1.Font.Bold = True th1.BackColor = darkblue th1.ForeColor = white th2.Font.Bold = True th2.BackColor = darkblue th2.ForeColor = white th3.Font.Bold = True th3.BackColor = darkblue th3.ForeColor = white th4.Font.Bold = True th4.BackColor = darkblue th4.ForeColor = white th5.Font.Bold = True th5.BackColor = darkblue th5.ForeColor = white th6.Font.Bold = True th6.BackColor = darkblue th6.ForeColor = white th7.Font.Bold = True th7.BackColor = darkblue th7.ForeColor = white th8.Font.Bold = True th8.BackColor = darkblue th8.ForeColor = white End Sub Protected Sub btn_resetForm_Click(sender As Object, e As EventArgs) txt_Absender.Text = String.Empty txt_Absender_M.Text = String.Empty txt_Empfaenger.Text = String.Empty txt_Empfaenger_M.Text = String.Empty txt_KdNrAuftrag.Text = String.Empty txt_KdNrAuftrag_M.Text = String.Empty txt_LKWNr.Text = String.Empty txt_LKWNr_M.Text = String.Empty txt_ReNr.Text = String.Empty txt_ReNr_M.Text = String.Empty pickdate1.Text = String.Empty pickdate2.Text = String.Empty dt = Nothing Kdnrtext = "" Absender = "" Empfaenger = "" LKWNR = "" KDNAFNR = "" reNr = "" End Sub Protected Sub pickdate1_TextChanged(sender As Object, e As EventArgs) End Sub Protected Sub valDateRange_1_ServerValidate(source As Object, args As ServerValidateEventArgs) End Sub Protected Sub pickdate2_TextChanged(sender As Object, e As EventArgs) End Sub Protected Sub valDateRange_2_ServerValidate(source As Object, args As ServerValidateEventArgs) End Sub Protected Sub txt_LKWNr_TextChanged(sender As Object, e As EventArgs) End Sub Protected Sub txt_Empfaenger_TextChanged(sender As Object, e As EventArgs) End Sub Protected Sub txt_Absender_TextChanged(sender As Object, e As EventArgs) End Sub Protected Sub txt_ReNr_TextChanged(sender As Object, e As EventArgs) End Sub Protected Sub txt_KdNrAuftrag_TextChanged(sender As Object, e As EventArgs) End Sub Protected Sub txt_LKWNr_M_TextChanged(sender As Object, e As EventArgs) End Sub Protected Sub TextBox2_TextChanged(sender As Object, e As EventArgs) End Sub Protected Sub txt_KdNrAuftrag_M_TextChanged(sender As Object, e As EventArgs) End Sub Protected Sub txt_KundenNr_TextChanged(sender As Object, e As EventArgs) End Sub Protected Sub btn_Rechnungen_Click(sender As Object, e As EventArgs) dt = Nothing If String.IsNullOrEmpty(txt_Absender.Text) Then regexval_txt_Absender.Enabled = False Else regexval_txt_Absender.Enabled = True End If If String.IsNullOrEmpty(txt_Empfaenger.Text) Then regexval_txt_Empfaenger.Enabled = False Else regexval_txt_Empfaenger.Enabled = True End If If String.IsNullOrEmpty(txt_KdNrAuftrag.Text) Then regexval_txt_KdNrAuftrag.Enabled = False Else regexval_txt_KdNrAuftrag.Enabled = True End If If String.IsNullOrEmpty(txt_LKWNr.Text) Then regexval_txt_LKW.Enabled = False Else regexval_txt_LKW.Enabled = True End If If String.IsNullOrEmpty(txt_ReNr.Text) Then regexval_txt_ReNr.Enabled = False Else regexval_txt_ReNr.Enabled = False End If 'Mobile If String.IsNullOrEmpty(txt_Absender_M.Text) Then regexval_txt_Absender_M.Enabled = False Else regexval_txt_Absender_M.Enabled = True End If If String.IsNullOrEmpty(txt_Empfaenger_M.Text) Then regexval_txt_Empfaenger_M.Enabled = False Else regexval_txt_Empfaenger_M.Enabled = True End If If String.IsNullOrEmpty(txt_KdNrAuftrag_M.Text) Then regexval_txt_KdNrAuftrag_M.Enabled = False Else regexval_txt_KdNrAuftrag_M.Enabled = True End If If String.IsNullOrEmpty(txt_LKWNr_M.Text) Then regexval_txt_LKW_M.Enabled = False Else regexval_txt_LKW_M.Enabled = True End If If String.IsNullOrEmpty(txt_ReNr_M.Text) Then regexval_txt_ReNr_M.Enabled = False Else regexval_txt_ReNr_M.Enabled = True End If valreq_pickdate1.Validate() valreq_pickdate2.Validate() If valreq_pickdate1.IsValid AndAlso valreq_pickdate2.IsValid Then If txt_Absender.Text IsNot "" Then regexval_txt_Absender.Enabled = True regexval_txt_Absender.Validate() txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled Try If regexval_txt_Absender.IsValid = True Then Absender = txt_Absender.Text Else Absender = String.Empty End If Catch ex As FormatException End Try End If If txt_Empfaenger.Text IsNot "" Then regexval_txt_Empfaenger.Enabled = True regexval_txt_Empfaenger.Validate() txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled Try If regexval_txt_Empfaenger.IsValid = True Then Empfaenger = txt_Empfaenger.Text Else Empfaenger = String.Empty End If Catch ex As FormatException End Try End If If txt_KdNrAuftrag.Text IsNot "" Then regexval_txt_KdNrAuftrag.Enabled = True regexval_txt_KdNrAuftrag.Validate() txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled Try If regexval_txt_KdNrAuftrag.IsValid = True Then KDNAFNR = txt_KdNrAuftrag.Text Else KDNAFNR = String.Empty End If Catch ex As FormatException End Try End If If txt_LKWNr.Text IsNot "" Then regexval_txt_LKW.Enabled = True regexval_txt_LKW.Validate() txt_LKWNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled Try If regexval_txt_LKW.IsValid = True Then LKWNR = txt_LKWNr.Text Else LKWNR = String.Empty End If Catch ex As FormatException End Try End If If txt_ReNr.Text IsNot "" Then regexval_txt_ReNr.Enabled = True regexval_txt_ReNr.Validate() txt_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled Try If regexval_txt_ReNr.IsValid = True Then reNr = txt_ReNr.Text Else reNr = String.Empty End If Catch ex As FormatException End Try End If If txt_Absender_M.Text IsNot "" Then txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled Try Absender = txt_Absender_M.Text Catch ex As FormatException End Try End If If txt_Empfaenger_M.Text IsNot "" Then txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled Try Empfaenger = txt_Empfaenger_M.Text Catch ex As FormatException End Try End If If txt_KdNrAuftrag_M.Text IsNot "" Then txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled Try KDNAFNR = txt_KdNrAuftrag_M.Text Catch ex As FormatException End Try End If If txt_LKWNr_M.Text IsNot "" Then txt_LKWNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled Try LKWNR = txt_LKWNr_M.Text Catch ex As FormatException End Try End If If txt_ReNr_M.Text IsNot "" Then txt_ReNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled Try reNr = txt_ReNr_M.Text Catch ex As FormatException End Try End If pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then Try Dim erster = New Date(Now().Year, Now().Month, 1) Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString ' MsgBox(ersterdat) datevon = ersterdat pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString pickdate2.Text = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation) End Try Else Try datevon = Date.Parse(pickdate1.Text) datebis = Date.Parse(pickdate2.Text) Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation) End Try End If Kdnrtext = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("P4")) If String.IsNullOrEmpty(Kdnrtext) = False And String.IsNullOrEmpty(datevon.ToString) = False And String.IsNullOrEmpty(datebis.ToString) = False Then dt = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(Integer.Parse(Kdnrtext), datevon, datebis, Integer.Parse(reNr), Absender, Empfaenger, LKWNR, KDNAFNR) ElseIf String.IsNullOrEmpty(Kdnrtext) = True Or String.IsNullOrEmpty(datevon.ToString) = True And String.IsNullOrEmpty(datebis.ToString) = True And String.IsNullOrEmpty(reNr) = True And String.IsNullOrEmpty(Absender) = False And String.IsNullOrEmpty(LKWNR) = False And String.IsNullOrEmpty(Empfaenger) = False And String.IsNullOrEmpty(KDNAFNR) = False Then dt = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(Integer.Parse(Kdnrtext), datevon, datebis, Integer.Parse(reNr), Absender, Empfaenger, LKWNR, KDNAFNR) valreq_pickdate1.Validate() valreq_pickdate2.Validate() End If If dt IsNot Nothing AndAlso Not dt.Count = 0 Then Dim i As Integer = 0 For Each d In dt Dim tr = New TableRow Dim Cell = New TableCell Dim tbl_CellIndex = New TableCell Dim tbl_CellRENr = New TableCell Dim tbl_Cell_Auftragsdatum = New TableCell Dim tbl_CellAbsender = New TableCell Dim tbl_CellEmpfaenger = New TableCell Dim tbl_CellLKWs = New TableCell Dim tbl_CellKundAuftNr = New TableCell Dim tbl_CellInfo = New TableCell Dim zahl = i + 1 tbl_CellIndex.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellIndex.Text = zahl tr.Cells.Add(tbl_CellIndex) initcells(tr, tbl_CellIndex, tbl_CellRENr, tbl_CellLKWs, tbl_Cell_Auftragsdatum, tbl_CellKundAuftNr, tbl_CellAbsender, tbl_CellEmpfaenger, tbl_CellInfo, tbl_HeaderCellIndexNr, tbl_HeaderCell_ReNr, tbl_HeaderCell_LKWNr, tbl_HeaderCell_Auftragsdatum, tbl_HeaderCell_KundAuftrNr, tbl_HeaderCell_Absender, tbl_HeaderCell_Empfaenger, tbl_HeaderCell_Info) tbl_CellLKWs.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellLKWs.Text = d.LKW_Kennzeichen.ToString tr.Cells.Add(tbl_CellLKWs) tbl_CellRENr.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellRENr.Text = d.RechnungsNr.ToString tr.Cells.Add(tbl_CellRENr) tbl_Cell_Auftragsdatum.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_Cell_Auftragsdatum.Text = d.RechnungsDatum.ToString tr.Cells.Add(tbl_Cell_Auftragsdatum) tbl_CellKundAuftNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellKundAuftNr.Text = d.KdAuftragsNr.ToString tr.Cells.Add(tbl_CellKundAuftNr) tbl_CellAbsender.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellAbsender.Text = d.AbsenderName_1.ToString + Space(1) + d.AbsenderName_2.ToString tr.Cells.Add(tbl_CellAbsender) tbl_CellEmpfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellEmpfaenger.Text = d.EmpfängerName_1.ToString + Space(1) + d.EmpfängerName_2.ToString tr.Cells.Add(tbl_CellEmpfaenger) Dim btn As New ImageButton btn.ViewStateMode = ViewStateMode.Enabled 'btn.Text = "Text" btn.CssClass = "btn btn-primary" btn.ImageUrl = "../images/Icons/service/pdficon.gif" 'btn.Attributes.Add("Text", ) btn.Attributes.Add("href", "pdfviewer.aspx?P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.FilialenNr).ToString() + "&P2=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.AbfertigungsNr).ToString + "&P3=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.RK_ID).ToString) btn.Attributes.Add("target", "_blank") btn.PostBackUrl = "pdfviewer.aspx?P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.FilialenNr).ToString + "&P2=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.AbfertigungsNr).ToString + "&P2=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.AbfertigungsNr).ToString + "&P3=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.RK_ID).ToString tbl_CellInfo.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellInfo.Controls.Add(btn) tr.Cells.Add(tbl_CellInfo) normaltable.Rows.Add(tr) i += 1 Next Else Dim tbl_cellNothing = New TableCell() tbl_cellNothing.ColumnSpan = tbl_Header_row.Cells.Count tbl_cellNothing.Style.Add("text-align", "center") Dim tr = New TableRow() tr.Style.Add("text-align", "center") tbl_cellNothing.Text = Server.HtmlEncode("Keine Daten gefunden.") tr.Cells.Add(tbl_cellNothing) normaltable.Rows.Add(tr) End If End If End Sub End Class