änderung
This commit is contained in:
ja
@@ -24,7 +24,7 @@ Partial Class CustomsAviso
|
||||
Try
|
||||
Kdnrtext = Session.Item("CustomerID")
|
||||
Catch A As UnauthorizedAccessException When String.IsNullOrEmpty(Kdnrtext)
|
||||
MsgBox("Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!", MsgBoxStyle.Information, "Error in User Area!")
|
||||
'MsgBox("Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!", MsgBoxStyle.Information, "Error in User Area!")
|
||||
Response.Redirect("Error.aspx&P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt("CustomsAviso.aspx"))
|
||||
End Try
|
||||
|
||||
|
||||
@@ -220,9 +220,9 @@
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div id="Abstand_laenger" style="height:/*24px*/ 1.873536299765808vh;"></div>
|
||||
<asp:LinkButton ID="btn_b" CssClass="btn-primary" runat="server" CausesValidation="false" Text="Erhalte Rechnungen" OnClick="btn_b_Click" style="background-color:#fff;color:#043381;height:30px;width:221px;font-size:1.33em;">Erhalte Rechnungen</asp:LinkButton>
|
||||
<div id="Abstand_lang" style="height: /*32px*/ 2.498048399687744vh;"></div>
|
||||
<div id="Abstand_laenger" style="height:/*24px*/ 1.873536299765808vh;"></div>
|
||||
<asp:Button ID="btn_SendData" ClientIDMode="Predictable" CssClass="btn btn-primary" runat="server" CausesValidation="false" Text="Erhalte Rechnungen!" style="background-color:#fff;color:#043381;height:30px;width:221px;font-size:1.33em;" />
|
||||
<div id="Abstand_lang" style="height: /*32px*/ 2.498048399687744vh;"></div>
|
||||
<div class="g-3">
|
||||
<div id="conovertab">
|
||||
<asp:Table class="table table-responsive table-striped table-borderless" ID="normaltable" runat="server" BorderStyle="Solid" style="border: 2px solid #043381;overflow-x:auto;width:1256px">
|
||||
|
||||
@@ -24,7 +24,7 @@ Partial Class Customers_Default3
|
||||
Page.UnobtrusiveValidationMode = UnobtrusiveValidationMode.WebForms
|
||||
VERAG_VARIABLES.initerrorcount()
|
||||
|
||||
If Not Me.Page.User.Identity.IsAuthenticated Then
|
||||
If Not Me.Page.User.Identity.IsAuthenticated = True Then
|
||||
FormsAuthentication.RedirectToLoginPage()
|
||||
Else
|
||||
Try
|
||||
@@ -55,19 +55,191 @@ Partial Class Customers_Default3
|
||||
If (Page.IsPostBack) Then
|
||||
Page.MaintainScrollPositionOnPostBack = True
|
||||
|
||||
If valreq_pickdate1.IsValid And valreq_pickdate2.IsValid Then
|
||||
datevon = Date.Parse(pickdate1.Text)
|
||||
datebis = Date.Parse(pickdate2.Text)
|
||||
If txt_Absender.Text IsNot "" Then
|
||||
txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regex_txt_Absender.Enabled = True
|
||||
regex_txt_Absender.Validate()
|
||||
If regex_txt_Absender.IsValid = True Then
|
||||
Try
|
||||
Absender = txt_Absender.Text
|
||||
Catch ex As Exception
|
||||
lbl_status.ForeColor = Drawing.Color.Red
|
||||
lbl_status.Text = "Der Absender ist nicht richtig. Bitte korrigieren."
|
||||
End Try
|
||||
End If
|
||||
Else
|
||||
regex_txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_Absender.Enabled = False
|
||||
End If
|
||||
If txt_Empfaenger.Text IsNot "" Then
|
||||
txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regex_txt_Empfaenger.Enabled = True
|
||||
If regex_txt_Empfaenger.IsValid = True Then
|
||||
Try
|
||||
Empfaenger = txt_Empfaenger.Text
|
||||
Catch ex As Exception
|
||||
regex_txt_Empfaenger.ForeColor = Drawing.Color.Red
|
||||
regex_txt_Empfaenger.ErrorMessage = "Empfänger ist nicht korrekt!"
|
||||
End Try
|
||||
End If
|
||||
Else
|
||||
regex_txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_Empfaenger.Enabled = False
|
||||
End If
|
||||
If txt_KdNrAuftrag.Text IsNot "" Then
|
||||
txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regex_txt_KdNrAuftrag.Enabled = True
|
||||
regex_txt_KdNrAuftrag.Validate()
|
||||
If regex_txt_KdNrAuftrag.IsValid = True Then
|
||||
Try
|
||||
KDNAFNR = txt_KdNrAuftrag.Text
|
||||
Catch ex As Exception
|
||||
regex_txt_KdNrAuftrag.ForeColor = Drawing.Color.Red
|
||||
regex_txt_KdNrAuftrag.Text = "Fehler bei Validierung der Kundenauftragsnummer!"
|
||||
End Try
|
||||
End If
|
||||
Else
|
||||
txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_KdNrAuftrag.Enabled = False
|
||||
End If
|
||||
If txt_LKW.Text IsNot "" Then
|
||||
txt_LKW.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regex_txt_LKW.Enabled = True
|
||||
regex_txt_LKW.Validate()
|
||||
If regex_txt_LKW.IsValid = True Then
|
||||
Try
|
||||
LKWNR = txt_LKW.Text
|
||||
Catch ex As Exception
|
||||
regex_txt_LKW.ForeColor = Drawing.Color.Red
|
||||
regex_txt_LKW.ErrorMessage = "Das LKW-Kennzeichen ist nicht korrekt formatiert!"
|
||||
End Try
|
||||
End If
|
||||
Else
|
||||
txt_LKW.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_LKW.Enabled = False
|
||||
End If
|
||||
If txt_ReNr.Text IsNot "" Then
|
||||
txt_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regex_txt_ReNr.Enabled = True
|
||||
regex_txt_ReNr.Validate()
|
||||
If regex_txt_ReNr.IsValid = True Then
|
||||
Try
|
||||
reNr = txt_ReNr.Text
|
||||
Catch ex As Exception
|
||||
regex_txt_ReNr.ForeColor = Drawing.Color.Red
|
||||
regex_txt_ReNr.ErrorMessage = "Die Rechnungsnummer ist nicht korrekt."
|
||||
End Try
|
||||
End If
|
||||
Else
|
||||
txt_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_ReNr.Enabled = False
|
||||
End If
|
||||
'Mobil
|
||||
If txt_Absender_M.Text IsNot "" Then
|
||||
txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regex_txt_Absender_M.Enabled = True
|
||||
regex_txt_Absender_M.Validate()
|
||||
If regex_txt_Absender_M.IsValid = True Then
|
||||
Try
|
||||
Absender = txt_Absender_M.Text
|
||||
Catch ex As Exception
|
||||
regex_txt_Absender_M.ForeColor = Drawing.Color.Red
|
||||
regex_txt_Absender_M.ErrorMessage = "Der Absender ist nicht richtig. Bitte korrigieren."
|
||||
End Try
|
||||
End If
|
||||
Else
|
||||
txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_Absender_M.Enabled = False
|
||||
End If
|
||||
If txt_Empfaenger_M.Text IsNot "" Then
|
||||
txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regex_txt_Empaenger_M.Enabled = True
|
||||
regex_txt_Empaenger_M.Validate()
|
||||
If regex_txt_Empaenger_M.IsValid = True Then
|
||||
Try
|
||||
Empfaenger = txt_Empfaenger_M.Text
|
||||
Catch ex As Exception
|
||||
regex_txt_Empaenger_M.ForeColor = Drawing.Color.Red
|
||||
regex_txt_Empaenger_M.Text = "Empfänger ist nicht korrekt!"
|
||||
End Try
|
||||
End If
|
||||
Else
|
||||
txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_Empaenger_M.Enabled = False
|
||||
End If
|
||||
If txt_KdNrAuftrag_M.Text IsNot "" Then
|
||||
txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regex_txt_KdNrAuftrag_M.Enabled = True
|
||||
regex_txt_KdNrAuftrag_M.Validate()
|
||||
If regex_txt_KdNrAuftrag_M.IsValid = True Then
|
||||
Try
|
||||
KDNAFNR = txt_KdNrAuftrag_M.Text
|
||||
Catch ex As Exception
|
||||
regex_txt_KdNrAuftrag_M.ForeColor = Drawing.Color.Red
|
||||
regex_txt_KdNrAuftrag_M.ErrorMessage = "Fehler bei Validierung der Kundenauftragsnummer!"
|
||||
End Try
|
||||
End If
|
||||
Else
|
||||
txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_KdNrAuftrag_M.Enabled = False
|
||||
End If
|
||||
If txt_LKW_M.Text IsNot "" Then
|
||||
txt_LKW_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regex_txt_LKW_M.Enabled = True
|
||||
regex_txt_LKW_M.Validate()
|
||||
If regex_txt_LKW_M.IsValid = True Then
|
||||
Try
|
||||
LKWNR = txt_LKW_M.Text
|
||||
Catch Ex As Exception
|
||||
regex_txt_LKW_M.ForeColor = Drawing.Color.Red
|
||||
regex_txt_LKW_M.Text = "Das LKW-Kennzeichen ist nicht korrekt formatiert!"
|
||||
End Try
|
||||
End If
|
||||
Else
|
||||
txt_LKW_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_LKW_M.Enabled = False
|
||||
End If
|
||||
If txt_ReNr_M.Text IsNot "" Then
|
||||
txt_ReNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regex_txt_ReNr_M.Enabled = True
|
||||
regex_txt_ReNr_M.Validate()
|
||||
If regex_txt_ReNr_M.IsValid = True Then
|
||||
Try
|
||||
reNr = txt_ReNr_M.Text
|
||||
Catch ex As Exception
|
||||
regex_txt_ReNr_M.ForeColor = Drawing.Color.Red
|
||||
regex_txt_ReNr_M.Text = "Die Rechnungsnummer ist nicht korrekt."
|
||||
End Try
|
||||
End If
|
||||
Else
|
||||
txt_ReNr_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_ReNr_M.Enabled = False
|
||||
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
|
||||
If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
|
||||
Try
|
||||
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("yyyyy-MM-dd")
|
||||
dt = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(Integer.Parse(Kdnrtext), datevon, datebis, Integer.Parse(reNr), Absender, Empfaenger, LKWNR, KDNAFNR)
|
||||
Catch ex As Exception
|
||||
lbl_status.ForeColor = Drawing.Color.Red
|
||||
lbl_status.Text = "Die Daten konnten nicht initialisiert werden. Bitte erneut versuchen."
|
||||
End Try
|
||||
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!"
|
||||
Try
|
||||
datevon = Date.Parse(pickdate1.Text)
|
||||
datebis = Date.Parse(pickdate2.Text)
|
||||
dt = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(Integer.Parse(Kdnrtext), datevon, datebis, Integer.Parse(reNr), Absender, Empfaenger, LKWNR, KDNAFNR)
|
||||
Catch
|
||||
lbl_status.ForeColor = Drawing.Color.Red
|
||||
lbl_status.Text = "Fehler bei der Datenvergabe."
|
||||
End Try
|
||||
End If
|
||||
|
||||
addrows()
|
||||
Else
|
||||
erster = New Date(Now().Year, Now().Month, 1)
|
||||
datevon = erster
|
||||
@@ -81,125 +253,120 @@ Partial Class Customers_Default3
|
||||
End Sub
|
||||
|
||||
Private Sub addrows()
|
||||
If Not IsNothing(Session.Item("datatbl")) Then
|
||||
dt = Session.Item("datatbl")
|
||||
Else
|
||||
|
||||
End If
|
||||
Session.Item("mytable") = Nothing
|
||||
normaltable.Rows.Clear()
|
||||
If Not dt Is 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 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)
|
||||
|
||||
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)
|
||||
If Not dt Is Nothing And Not 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
|
||||
|
||||
'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,
|
||||
Dim zahl = i + 1
|
||||
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
|
||||
tbl_Cell_Index.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
tbl_Cell_Index.Text = zahl
|
||||
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)
|
||||
|
||||
Session.Item("mytable") = normaltable
|
||||
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)
|
||||
|
||||
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
|
||||
|
||||
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)
|
||||
@@ -296,275 +463,6 @@ Partial Class Customers_Default3
|
||||
th8.Width = Unit.Pixel(64)
|
||||
End Sub
|
||||
|
||||
Protected Sub btn_b_Click(sender As Object, e As EventArgs)
|
||||
dt = Nothing
|
||||
Session.Add("mytable", Nothing)
|
||||
If Session.Item("mytable") = Nothing Then
|
||||
If txt_Absender.Text IsNot "" 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)
|
||||
lbl_status.ForeColor = Drawing.Color.Red
|
||||
lbl_status.Text = VERAG_VARIABLES.geterrornumb + ": Error Sender Validation"
|
||||
End Try
|
||||
Else
|
||||
txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_Absender.Enabled = False
|
||||
End If
|
||||
If txt_Empfaenger.Text IsNot "" 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
|
||||
Else
|
||||
txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_Empfaenger.Enabled = False
|
||||
End If
|
||||
If txt_KdNrAuftrag.Text IsNot "" 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
|
||||
Else
|
||||
txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_KdNrAuftrag.Enabled = False
|
||||
End If
|
||||
If txt_LKW.Text IsNot "" 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
|
||||
Else
|
||||
txt_LKW.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_LKW.Enabled = False
|
||||
End If
|
||||
If txt_ReNr.Text IsNot "" 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
|
||||
Else
|
||||
txt_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_ReNr.Enabled = False
|
||||
End If
|
||||
If txt_Absender_M.Text IsNot "" 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
|
||||
Else
|
||||
txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_Absender_M.Enabled = False
|
||||
End If
|
||||
If txt_Empfaenger_M.Text IsNot "" 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
|
||||
Else
|
||||
txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_Empaenger_M.Enabled = False
|
||||
End If
|
||||
If txt_KdNrAuftrag_M.Text IsNot "" 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
|
||||
Else
|
||||
regex_txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_KdNrAuftrag_M.Enabled = False
|
||||
End If
|
||||
If txt_LKW_M.Text IsNot "" 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
|
||||
Else
|
||||
txt_LKW_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_LKW_M.Enabled = False
|
||||
End If
|
||||
If txt_ReNr_M.Text IsNot "" 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
|
||||
Else
|
||||
txt_ReNr_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_ReNr_M.Enabled = False
|
||||
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 = erster.ToUniversalTime.ToString("yyyy-MM-dd")
|
||||
pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyy-MM-dd")
|
||||
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 valdaterage_1.IsValid = True AndAlso valdaterange_2.IsValid = True 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)
|
||||
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
|
||||
Else
|
||||
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(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
|
||||
addrows()
|
||||
Session.Item("mytable") = normaltable
|
||||
'MsgBox("Test")
|
||||
End Sub
|
||||
|
||||
Protected Sub btn_resetForm_Click(sender As Object, e As EventArgs)
|
||||
dt = Nothing
|
||||
@@ -642,4 +540,200 @@ Partial Class Customers_Default3
|
||||
lbl_status.Text = VERAG_VARIABLES.geterrornumb + "The chosen time " + pickdate2.Text + " is too far in the future"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub btn_SendData_Click(sender As Object, e As EventArgs) Handles btn_SendData.Click
|
||||
'MsgBox("Rechnung.pdf")
|
||||
dt = Nothing
|
||||
Session.Add("mytable", Nothing)
|
||||
If Session.Item("mytable") = Nothing Then
|
||||
If txt_Absender.Text IsNot "" Then
|
||||
txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regex_txt_Absender.Enabled = True
|
||||
regex_txt_Absender.Validate()
|
||||
If regex_txt_Absender.IsValid = True Then
|
||||
Try
|
||||
Absender = txt_Absender.Text
|
||||
Catch ex As Exception
|
||||
lbl_status.ForeColor = Drawing.Color.Red
|
||||
lbl_status.Text = "Der Absender ist nicht richtig. Bitte korrigieren."
|
||||
End Try
|
||||
End If
|
||||
Else
|
||||
regex_txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_Absender.Enabled = False
|
||||
End If
|
||||
If txt_Empfaenger.Text IsNot "" Then
|
||||
txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regex_txt_Empfaenger.Enabled = True
|
||||
If regex_txt_Empfaenger.IsValid = True Then
|
||||
Try
|
||||
Empfaenger = txt_Empfaenger.Text
|
||||
Catch ex As Exception
|
||||
regex_txt_Empfaenger.ForeColor = Drawing.Color.Red
|
||||
regex_txt_Empfaenger.ErrorMessage = "Empfänger ist nicht korrekt!"
|
||||
End Try
|
||||
End If
|
||||
Else
|
||||
regex_txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_Empfaenger.Enabled = False
|
||||
End If
|
||||
If txt_KdNrAuftrag.Text IsNot "" Then
|
||||
txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regex_txt_KdNrAuftrag.Enabled = True
|
||||
regex_txt_KdNrAuftrag.Validate()
|
||||
If regex_txt_KdNrAuftrag.IsValid = True Then
|
||||
Try
|
||||
KDNAFNR = txt_KdNrAuftrag.Text
|
||||
Catch ex As Exception
|
||||
regex_txt_KdNrAuftrag.ForeColor = Drawing.Color.Red
|
||||
regex_txt_KdNrAuftrag.Text = "Fehler bei Validierung der Kundenauftragsnummer!"
|
||||
End Try
|
||||
End If
|
||||
Else
|
||||
txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_KdNrAuftrag.Enabled = False
|
||||
End If
|
||||
If txt_LKW.Text IsNot "" Then
|
||||
txt_LKW.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regex_txt_LKW.Enabled = True
|
||||
regex_txt_LKW.Validate()
|
||||
If regex_txt_LKW.IsValid = True Then
|
||||
Try
|
||||
LKWNR = txt_LKW.Text
|
||||
Catch ex As Exception
|
||||
regex_txt_LKW.ForeColor = Drawing.Color.Red
|
||||
regex_txt_LKW.ErrorMessage = "Das LKW-Kennzeichen ist nicht korrekt formatiert!"
|
||||
End Try
|
||||
End If
|
||||
Else
|
||||
txt_LKW.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_LKW.Enabled = False
|
||||
End If
|
||||
If txt_ReNr.Text IsNot "" Then
|
||||
txt_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regex_txt_ReNr.Enabled = True
|
||||
regex_txt_ReNr.Validate()
|
||||
If regex_txt_ReNr.IsValid = True Then
|
||||
Try
|
||||
reNr = txt_ReNr.Text
|
||||
Catch ex As Exception
|
||||
regex_txt_ReNr.ForeColor = Drawing.Color.Red
|
||||
regex_txt_ReNr.ErrorMessage = "Die Rechnungsnummer ist nicht korrekt."
|
||||
End Try
|
||||
End If
|
||||
Else
|
||||
txt_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_ReNr.Enabled = False
|
||||
End If
|
||||
'Mobil
|
||||
If txt_Absender_M.Text IsNot "" Then
|
||||
txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regex_txt_Absender_M.Enabled = True
|
||||
regex_txt_Absender_M.Validate()
|
||||
If regex_txt_Absender_M.IsValid = True Then
|
||||
Try
|
||||
Absender = txt_Absender_M.Text
|
||||
Catch ex As Exception
|
||||
regex_txt_Absender_M.ForeColor = Drawing.Color.Red
|
||||
regex_txt_Absender_M.ErrorMessage = "Der Absender ist nicht richtig. Bitte korrigieren."
|
||||
End Try
|
||||
End If
|
||||
Else
|
||||
txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_Absender_M.Enabled = False
|
||||
End If
|
||||
If txt_Empfaenger_M.Text IsNot "" Then
|
||||
txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regex_txt_Empaenger_M.Enabled = True
|
||||
regex_txt_Empaenger_M.Validate()
|
||||
If regex_txt_Empaenger_M.IsValid = True Then
|
||||
Try
|
||||
Empfaenger = txt_Empfaenger_M.Text
|
||||
Catch ex As Exception
|
||||
regex_txt_Empaenger_M.ForeColor = Drawing.Color.Red
|
||||
regex_txt_Empaenger_M.Text = "Empfänger ist nicht korrekt!"
|
||||
End Try
|
||||
End If
|
||||
Else
|
||||
txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_Empaenger_M.Enabled = False
|
||||
End If
|
||||
If txt_KdNrAuftrag_M.Text IsNot "" Then
|
||||
txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regex_txt_KdNrAuftrag_M.Enabled = True
|
||||
regex_txt_KdNrAuftrag_M.Validate()
|
||||
If regex_txt_KdNrAuftrag_M.IsValid = True Then
|
||||
Try
|
||||
KDNAFNR = txt_KdNrAuftrag_M.Text
|
||||
Catch ex As Exception
|
||||
regex_txt_KdNrAuftrag_M.ForeColor = Drawing.Color.Red
|
||||
regex_txt_KdNrAuftrag_M.ErrorMessage = "Fehler bei Validierung der Kundenauftragsnummer!"
|
||||
End Try
|
||||
End If
|
||||
Else
|
||||
txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_KdNrAuftrag_M.Enabled = False
|
||||
End If
|
||||
If txt_LKW_M.Text IsNot "" Then
|
||||
txt_LKW_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regex_txt_LKW_M.Enabled = True
|
||||
regex_txt_LKW_M.Validate()
|
||||
If regex_txt_LKW_M.IsValid = True Then
|
||||
Try
|
||||
LKWNR = txt_LKW_M.Text
|
||||
Catch Ex As Exception
|
||||
regex_txt_LKW_M.ForeColor = Drawing.Color.Red
|
||||
regex_txt_LKW_M.Text = "Das LKW-Kennzeichen ist nicht korrekt formatiert!"
|
||||
End Try
|
||||
End If
|
||||
Else
|
||||
txt_LKW_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_LKW_M.Enabled = False
|
||||
End If
|
||||
If txt_ReNr_M.Text IsNot "" Then
|
||||
txt_ReNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regex_txt_ReNr_M.Enabled = True
|
||||
regex_txt_ReNr_M.Validate()
|
||||
If regex_txt_ReNr_M.IsValid = True Then
|
||||
Try
|
||||
reNr = txt_ReNr_M.Text
|
||||
Catch ex As Exception
|
||||
regex_txt_ReNr_M.ForeColor = Drawing.Color.Red
|
||||
regex_txt_ReNr_M.Text = "Die Rechnungsnummer ist nicht korrekt."
|
||||
End Try
|
||||
End If
|
||||
Else
|
||||
txt_ReNr_M.ValidateRequestMode = UI.ValidateRequestMode.Disabled
|
||||
regex_txt_ReNr_M.Enabled = False
|
||||
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)
|
||||
datevon = erster
|
||||
datebis = Date.Parse(Now.ToShortDateString)
|
||||
pickdate1.Text = erster.ToUniversalTime.ToString("yyyy-MM-dd")
|
||||
pickdate2.Text = Date.Now.ToUniversalTime.ToString("yyyyy-MM-dd")
|
||||
|
||||
Catch ex As Exception
|
||||
lbl_status.ForeColor = Drawing.Color.Red
|
||||
lbl_status.Text = "Die Daten konnten nicht initialisiert werden. Bitte erneut versuchen."
|
||||
End Try
|
||||
Else
|
||||
Try
|
||||
datevon = Date.Parse(pickdate1.Text)
|
||||
datebis = Date.Parse(pickdate2.Text)
|
||||
Catch
|
||||
lbl_status.ForeColor = Drawing.Color.Red
|
||||
lbl_status.Text = "Fehler bei der Datenvergabe."
|
||||
End Try
|
||||
End If
|
||||
dt = VERAG_PROG_ALLGEMEIN.cRechnungsausgang.GET_LIST_WEB(Integer.Parse(Kdnrtext), CDate(datevon), CDate(datebis), Integer.Parse(reNr), Absender, Empfaenger, LKWNR, KDNAFNR)
|
||||
|
||||
'MsgBox("Alles hinzugefügt")
|
||||
End If
|
||||
addrows()
|
||||
Session.Item("mytable") = normaltable
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user