änderung
This commit is contained in:
ja
@@ -24,7 +24,7 @@ Partial Class CustomsAviso
|
|||||||
Try
|
Try
|
||||||
Kdnrtext = Session.Item("CustomerID")
|
Kdnrtext = Session.Item("CustomerID")
|
||||||
Catch A As UnauthorizedAccessException When String.IsNullOrEmpty(Kdnrtext)
|
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"))
|
Response.Redirect("Error.aspx&P1=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt("CustomsAviso.aspx"))
|
||||||
End Try
|
End Try
|
||||||
|
|
||||||
|
|||||||
@@ -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: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>
|
<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 id="Abstand_lang" style="height: /*32px*/ 2.498048399687744vh;"></div>
|
||||||
<div class="g-3">
|
<div class="g-3">
|
||||||
<div id="conovertab">
|
<div id="conovertab">
|
||||||
|
|||||||
@@ -24,7 +24,7 @@ Partial Class Customers_Default3
|
|||||||
Page.UnobtrusiveValidationMode = UnobtrusiveValidationMode.WebForms
|
Page.UnobtrusiveValidationMode = UnobtrusiveValidationMode.WebForms
|
||||||
VERAG_VARIABLES.initerrorcount()
|
VERAG_VARIABLES.initerrorcount()
|
||||||
|
|
||||||
If Not Me.Page.User.Identity.IsAuthenticated Then
|
If Not Me.Page.User.Identity.IsAuthenticated = True Then
|
||||||
FormsAuthentication.RedirectToLoginPage()
|
FormsAuthentication.RedirectToLoginPage()
|
||||||
Else
|
Else
|
||||||
Try
|
Try
|
||||||
@@ -55,19 +55,191 @@ Partial Class Customers_Default3
|
|||||||
If (Page.IsPostBack) Then
|
If (Page.IsPostBack) Then
|
||||||
Page.MaintainScrollPositionOnPostBack = True
|
Page.MaintainScrollPositionOnPostBack = True
|
||||||
|
|
||||||
If valreq_pickdate1.IsValid And valreq_pickdate2.IsValid Then
|
If txt_Absender.Text IsNot "" Then
|
||||||
datevon = Date.Parse(pickdate1.Text)
|
txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||||
datebis = Date.Parse(pickdate2.Text)
|
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
|
End If
|
||||||
|
|
||||||
If String.IsNullOrEmpty(Request.QueryString("P1")) = False Then
|
If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
|
||||||
Kdnrtext = Request.QueryString("P1")
|
Try
|
||||||
ElseIf String.IsNullOrEmpty(Session.Item("CustomerID")) = False Then
|
erster = New Date(Now().Year, Now.Month, 1)
|
||||||
Kdnrtext = Session.Item("CustomerID").ToString
|
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
|
Else
|
||||||
VERAG_VARIABLES.seterrorcount(512)
|
Try
|
||||||
lbl_status.Text = VERAG_VARIABLES.geterrornumb + "This Page is due to an Error in Page validation unavailable. Try again later or contact an Admin!"
|
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
|
End If
|
||||||
|
|
||||||
|
addrows()
|
||||||
Else
|
Else
|
||||||
erster = New Date(Now().Year, Now().Month, 1)
|
erster = New Date(Now().Year, Now().Month, 1)
|
||||||
datevon = erster
|
datevon = erster
|
||||||
@@ -81,14 +253,9 @@ Partial Class Customers_Default3
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub addrows()
|
Private Sub addrows()
|
||||||
If Not IsNothing(Session.Item("datatbl")) Then
|
|
||||||
dt = Session.Item("datatbl")
|
|
||||||
Else
|
|
||||||
|
|
||||||
End If
|
|
||||||
Session.Item("mytable") = Nothing
|
Session.Item("mytable") = Nothing
|
||||||
normaltable.Rows.Clear()
|
normaltable.Rows.Clear()
|
||||||
If Not dt Is Nothing Then
|
|
||||||
Dim header As TableHeaderRow = New TableHeaderRow()
|
Dim header As TableHeaderRow = New TableHeaderRow()
|
||||||
header.Cells.Add(tbl_HeaderCellIndex)
|
header.Cells.Add(tbl_HeaderCellIndex)
|
||||||
header.Cells.Add(tbl_HeaderCell_ReNr)
|
header.Cells.Add(tbl_HeaderCell_ReNr)
|
||||||
@@ -99,7 +266,8 @@ Partial Class Customers_Default3
|
|||||||
header.Cells.Add(tbl_HeaderCell_Empfaenger)
|
header.Cells.Add(tbl_HeaderCell_Empfaenger)
|
||||||
header.Cells.Add(tbl_HeaderCell_Info)
|
header.Cells.Add(tbl_HeaderCell_Info)
|
||||||
normaltable.Rows.Add(header)
|
normaltable.Rows.Add(header)
|
||||||
If dt.Count > 0 Then
|
|
||||||
|
If Not dt Is Nothing And Not dt.Count = 0 Then
|
||||||
Dim i As Integer = 0
|
Dim i As Integer = 0
|
||||||
For Each d In dt
|
For Each d In dt
|
||||||
Dim tr As TableRow = New TableRow
|
Dim tr As TableRow = New TableRow
|
||||||
@@ -114,8 +282,11 @@ Partial Class Customers_Default3
|
|||||||
Dim tbl_Cell_Info As TableCell = New TableCell
|
Dim tbl_Cell_Info As TableCell = New TableCell
|
||||||
|
|
||||||
Dim zahl = i + 1
|
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)
|
||||||
|
|
||||||
tbl_Cell_Index.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
tbl_Cell_Index.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||||
tbl_Cell_Index.Text = zahl.ToString
|
tbl_Cell_Index.Text = zahl
|
||||||
tr.Cells.Add(tbl_Cell_Index)
|
tr.Cells.Add(tbl_Cell_Index)
|
||||||
tbl_Cell_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
tbl_Cell_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||||
If d.RechnungsNr = Nothing Then
|
If d.RechnungsNr = Nothing Then
|
||||||
@@ -181,8 +352,6 @@ Partial Class Customers_Default3
|
|||||||
tbl_Cell_Info.Height = Unit.Pixel(70)
|
tbl_Cell_Info.Height = Unit.Pixel(70)
|
||||||
tbl_Cell_Info.Controls.Add(btn)
|
tbl_Cell_Info.Controls.Add(btn)
|
||||||
tr.Cells.Add(tbl_Cell_Info)
|
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)
|
normaltable.Rows.Add(tr)
|
||||||
i += 1
|
i += 1
|
||||||
@@ -198,8 +367,6 @@ Partial Class Customers_Default3
|
|||||||
normaltable.Rows.Add(tr)
|
normaltable.Rows.Add(tr)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Session.Item("mytable") = normaltable
|
|
||||||
End If
|
|
||||||
End Sub
|
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)
|
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)
|
th8.Width = Unit.Pixel(64)
|
||||||
End Sub
|
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)
|
Protected Sub btn_resetForm_Click(sender As Object, e As EventArgs)
|
||||||
dt = Nothing
|
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"
|
lbl_status.Text = VERAG_VARIABLES.geterrornumb + "The chosen time " + pickdate2.Text + " is too far in the future"
|
||||||
End If
|
End If
|
||||||
End Sub
|
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
|
End Class
|
||||||
Reference in New Issue
Block a user