edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Änderungen Logik und GUI

Browse Source
This commit is contained in:
ja
2021-10-29 15:02:49 +02:00
parent 014fefb710
commit 24f722369f
3 changed files with 203 additions and 205 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Customers/CustomsAviso.aspx.vb
View File

@@ -250,8 +250,6 @@ Partial Class CustomsAviso
End Sub End Sub
Protected Sub btn_Auftraege_Click(sender As Object, e As EventArgs) Protected Sub btn_Auftraege_Click(sender As Object, e As EventArgs)
dt = Nothing dt = Nothing
If txt_Absender.Text IsNot "" Then If txt_Absender.Text IsNot "" Then
txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled

1
Customers/Invoices.aspx
View File

@@ -202,6 +202,7 @@
</asp:Table> </asp:Table>
</div> </div>
</div> </div>
<asp:Label ID="lbl_status" runat="server" Font-Size="16px" ForeColor="Black" Text=""></asp:Label>
</div> </div>
</div> </div>
</div> </div>

405
Customers/Invoices.aspx.vb
View File

@@ -18,7 +18,7 @@ Partial Class Customers_Invoices
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!") lbl_status.Text = "Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!"
End Try End Try
Page.UnobtrusiveValidationMode = UnobtrusiveValidationMode.WebForms Page.UnobtrusiveValidationMode = UnobtrusiveValidationMode.WebForms
DataBind() DataBind()
@@ -26,10 +26,8 @@ Partial Class Customers_Invoices
If (Page.IsPostBack And normaltable.EnableViewState = False) Then If (Page.IsPostBack And normaltable.EnableViewState = False) Then
Page.MaintainScrollPositionOnPostBack = True Page.MaintainScrollPositionOnPostBack = True
normaltable.EnableViewState = True normaltable.EnableViewState = True
datevon = Date.Parse(pickdate1.Text) datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text) datebis = Date.Parse(pickdate2.Text)
Else Else
Page.MaintainScrollPositionOnPostBack = False Page.MaintainScrollPositionOnPostBack = False
normaltable.EnableViewState = True normaltable.EnableViewState = True
@@ -40,7 +38,7 @@ Partial Class Customers_Invoices
Dim erster = New Date(Now().Year, Now().Month, 1) Dim erster = New Date(Now().Year, Now().Month, 1)
Dim ersterdat = "1." + Now().Month.ToString + "." + Now().Year.ToString Dim ersterdat = "1." + Now().Month.ToString + "." + Now().Year.ToString
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
' MsgBox(ersterdat) ' lbl_status.Text=ersterdat)
datevon = ersterdat datevon = ersterdat
datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
pickdate2.Text = Now().ToShortDateString() pickdate2.Text = Now().ToShortDateString()
@@ -164,222 +162,223 @@ Partial Class Customers_Invoices
reNr = "" reNr = ""
End Sub End Sub
Protected Sub Send_Data_Click(sender As Object, e As EventArgs) Protected Sub Send_Data_Click(sender As Object, e As EventArgs)
dt = Nothing dt = Nothing
valreq_pickdate1.Validate() valreq_pickdate1.Validate()
valreq_pickdate2.Validate() valreq_pickdate2.Validate()
If valreq_pickdate1.IsValid And valreq_pickdate2.IsValid And Kdnrtext = Not "" Then If valreq_pickdate1.IsValid And valreq_pickdate2.IsValid And Kdnrtext = Not "" Then
valDateRange_1.Validate() valDateRange_1.Validate()
valDateRange_2.Validate() valDateRange_2.Validate()
If Not String.IsNullOrEmpty(txt_Absender.Text) And valDateRange_1.IsValid And valDateRange_2.IsValid Then If valDateRange_1.IsValid And valDateRange_2.IsValid Then
regexval_txt_Absender.Enabled = True If Not String.IsNullOrEmpty(txt_Absender.Text) Then
regexval_txt_Absender.Validate() regexval_txt_Absender.Enabled = True
txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled regexval_txt_Absender.Validate()
Try txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
If regexval_txt_Absender.IsValid = True Then Try
Absender = txt_Absender.Text If regexval_txt_Absender.IsValid = True Then
Else Absender = txt_Absender.Text
Absender = String.Empty Else
End If Absender = String.Empty
Catch ex As FormatException End If
MsgBox(ex.Message) Catch ex As FormatException
End Try lbl_status.Text = ex.Message
End If End Try
If Not String.IsNullOrEmpty(txt_Empfaenger.Text) Then End If
regexval_txt_Empfaenger.Enabled = True If Not String.IsNullOrEmpty(txt_Empfaenger.Text) Then
regexval_txt_Empfaenger.Validate() regexval_txt_Empfaenger.Enabled = True
txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled regexval_txt_Empfaenger.Validate()
Try txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
If regexval_txt_Empfaenger.IsValid = True Then Try
Empfaenger = txt_Empfaenger.Text If regexval_txt_Empfaenger.IsValid = True Then
Else Empfaenger = txt_Empfaenger.Text
Empfaenger = String.Empty Else
End If Empfaenger = String.Empty
Catch ex As FormatException End If
MsgBox(ex.Message) Catch ex As FormatException
End Try lbl_status.Text = ex.Message
End If End Try
If Not String.IsNullOrEmpty(txt_KdNrAuftrag.Text) Then End If
regexval_txt_KdNrAuftrag.Enabled = True If Not String.IsNullOrEmpty(txt_KdNrAuftrag.Text) Then
regexval_txt_KdNrAuftrag.Validate() regexval_txt_KdNrAuftrag.Enabled = True
txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled regexval_txt_KdNrAuftrag.Validate()
Try txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled
If regexval_txt_KdNrAuftrag.IsValid = True Then Try
KDNAFNR = txt_KdNrAuftrag.Text If regexval_txt_KdNrAuftrag.IsValid = True Then
Else KDNAFNR = txt_KdNrAuftrag.Text
KDNAFNR = String.Empty Else
End If KDNAFNR = String.Empty
Catch ex As FormatException End If
MsgBox(ex.Message) Catch ex As FormatException
End Try lbl_status.Text = ex.Message
End If End Try
If Not String.IsNullOrEmpty(txt_LKWNr.Text) Then End If
regexval_txt_LKW.Enabled = True If Not String.IsNullOrEmpty(txt_LKWNr.Text) Then
regexval_txt_LKW.Validate() regexval_txt_LKW.Enabled = True
txt_LKWNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled regexval_txt_LKW.Validate()
Try txt_LKWNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
If regexval_txt_LKW.IsValid = True Then Try
LKWNR = txt_LKWNr.Text If regexval_txt_LKW.IsValid = True Then
Else LKWNR = txt_LKWNr.Text
LKWNR = String.Empty Else
End If LKWNR = String.Empty
Catch ex As FormatException End If
MsgBox(ex.Message) Catch ex As FormatException
End Try lbl_status.Text = ex.Message
End If End Try
If Not String.IsNullOrEmpty(txt_ReNr.Text) Then End If
regexval_txt_ReNr.Enabled = True If Not String.IsNullOrEmpty(txt_ReNr.Text) Then
regexval_txt_ReNr.Validate() regexval_txt_ReNr.Enabled = True
txt_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled regexval_txt_ReNr.Validate()
Try txt_ReNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
If regexval_txt_ReNr.IsValid = True Then Try
reNr = txt_ReNr.Text If regexval_txt_ReNr.IsValid = True Then
Else reNr = txt_ReNr.Text
reNr = String.Empty Else
End If reNr = String.Empty
Catch ex As FormatException End If
MsgBox(ex.Message) Catch ex As FormatException
End Try lbl_status.Text = ex.Message
End If End Try
End If
If Not String.IsNullOrEmpty(txt_Absender_M.Text) Then If Not String.IsNullOrEmpty(txt_Absender_M.Text) Then
txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try Try
Absender = txt_Absender_M.Text Absender = txt_Absender_M.Text
Catch ex As FormatException Catch ex As FormatException
MsgBox(ex.Message) lbl_status.Text = ex.Message
End Try End Try
End If End If
If Not String.IsNullOrEmpty(txt_Empfaenger_M.Text) Then If Not String.IsNullOrEmpty(txt_Empfaenger_M.Text) Then
txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try Try
Empfaenger = txt_Empfaenger_M.Text Empfaenger = txt_Empfaenger_M.Text
Catch ex As FormatException Catch ex As FormatException
MsgBox(ex.Message) lbl_status.Text = ex.Message
End Try End Try
End If End If
If Not String.IsNullOrEmpty(txt_KdNrAuftrag_M.Text) Then If Not String.IsNullOrEmpty(txt_KdNrAuftrag_M.Text) Then
txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try Try
KDNAFNR = txt_KdNrAuftrag_M.Text KDNAFNR = txt_KdNrAuftrag_M.Text
Catch ex As FormatException Catch ex As FormatException
MsgBox(ex.Message) lbl_status.Text = ex.Message
End Try End Try
End If End If
If Not String.IsNullOrEmpty(txt_LKWNr_M.Text) Then If Not String.IsNullOrEmpty(txt_LKWNr_M.Text) Then
txt_LKWNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_LKWNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try Try
LKWNR = txt_LKWNr_M.Text LKWNR = txt_LKWNr_M.Text
Catch ex As FormatException Catch ex As FormatException
MsgBox(ex.Message) lbl_status.Text = ex.Message
End Try End Try
End If End If
If Not String.IsNullOrEmpty(txt_ReNr_M.Text) Then If Not String.IsNullOrEmpty(txt_ReNr_M.Text) Then
txt_ReNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_ReNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try Try
reNr = txt_ReNr_M.Text reNr = txt_ReNr_M.Text
Catch ex As FormatException Catch ex As FormatException
MsgBox(ex.Message) lbl_status.Text = ex.Message
End Try End Try
End If End If
If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
Try Try
Dim erster = New Date(Now().Year, Now().Month, 1) Dim erster = New Date(Now().Year, Now().Month, 1)
Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
' MsgBox(ersterdat) ' lbl_status.Text=ersterdat)
datevon = ersterdat datevon = ersterdat
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).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 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 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) lbl_status.Text = "Die Zeitzonen sind nicht gültig!"
End Try End Try
Else Else
Try Try
datevon = Date.Parse(pickdate1.Text) datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.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 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) lbl_status.Text = "Die Zeitzonen sind nicht gültig!"
End Try End Try
End If End If
'MsgBox(Kdnrtext) 'lbl_status.Text=Kdnrtext)
If String.IsNullOrEmpty(Kdnrtext) = False And String.IsNullOrEmpty(datevon.ToString) = False And String.IsNullOrEmpty(datebis.ToString) = False Then 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) 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 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
valreq_pickdate1.Validate() valreq_pickdate1.Validate()
valreq_pickdate2.Validate() valreq_pickdate2.Validate()
End If End If
If dt IsNot Nothing AndAlso Not dt.Count = 0 Then If dt IsNot Nothing AndAlso 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 = New TableRow Dim tr = New TableRow
Dim Cell = New TableCell Dim Cell = New TableCell
Dim tbl_CellIndex = New TableCell Dim tbl_CellIndex = New TableCell
Dim tbl_CellRENr = New TableCell Dim tbl_CellRENr = New TableCell
Dim tbl_Cell_Auftragsdatum = New TableCell Dim tbl_Cell_Auftragsdatum = New TableCell
Dim tbl_CellAbsender = New TableCell Dim tbl_CellAbsender = New TableCell
Dim tbl_CellEmpfaenger = New TableCell Dim tbl_CellEmpfaenger = New TableCell
Dim tbl_CellLKWs = New TableCell Dim tbl_CellLKWs = New TableCell
Dim tbl_CellKundAuftNr = New TableCell Dim tbl_CellKundAuftNr = New TableCell
Dim tbl_CellInfo = New TableCell Dim tbl_CellInfo = New TableCell
Dim zahl = i + 1 Dim zahl = i + 1
tbl_CellIndex.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellIndex.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_CellIndex.Text = zahl tbl_CellIndex.Text = zahl
tr.Cells.Add(tbl_CellIndex) tr.Cells.Add(tbl_CellIndex)
tbl_CellRENr.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellRENr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_CellRENr.Text = d.RechnungsNr.ToString tbl_CellRENr.Text = d.RechnungsNr.ToString
tr.Cells.Add(tbl_CellRENr) tr.Cells.Add(tbl_CellRENr)
tbl_CellLKWs.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellLKWs.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_CellLKWs.Text = d.LKW_Kennzeichen.ToString tbl_CellLKWs.Text = d.LKW_Kennzeichen.ToString
tr.Cells.Add(tbl_CellLKWs) tr.Cells.Add(tbl_CellLKWs)
tbl_Cell_Auftragsdatum.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_Cell_Auftragsdatum.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_Cell_Auftragsdatum.Text = d.RechnungsDatum.ToString tbl_Cell_Auftragsdatum.Text = d.RechnungsDatum.ToString
tr.Cells.Add(tbl_Cell_Auftragsdatum) tr.Cells.Add(tbl_Cell_Auftragsdatum)
tbl_CellKundAuftNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellKundAuftNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_CellKundAuftNr.Text = d.KdAuftragsNr.ToString tbl_CellKundAuftNr.Text = d.KdAuftragsNr.ToString
tr.Cells.Add(tbl_CellKundAuftNr) tr.Cells.Add(tbl_CellKundAuftNr)
tbl_CellAbsender.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellAbsender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_CellAbsender.Text = d.AbsenderName_1.ToString + Space(1) + d.AbsenderName_2.ToString tbl_CellAbsender.Text = d.AbsenderName_1.ToString + Space(1) + d.AbsenderName_2.ToString
tr.Cells.Add(tbl_CellAbsender) tr.Cells.Add(tbl_CellAbsender)
tbl_CellEmpfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellEmpfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_CellEmpfaenger.Text = d.EmpfängerName_1.ToString + Space(1) + d.EmpfängerName_2.ToString tbl_CellEmpfaenger.Text = d.EmpfängerName_1.ToString + Space(1) + d.EmpfängerName_2.ToString
tr.Cells.Add(tbl_CellEmpfaenger) tr.Cells.Add(tbl_CellEmpfaenger)
Dim btn As New ImageButton Dim btn As New ImageButton
btn.ViewStateMode = ViewStateMode.Enabled btn.ViewStateMode = ViewStateMode.Enabled
'btn.Text = "Text" 'btn.Text = "Text"
btn.CssClass = "btn btn-primary" btn.CssClass = "btn btn-primary"
btn.ImageUrl = "../images/Icons/service/pdficon.gif" btn.ImageUrl = "../images/Icons/service/pdficon.gif"
'btn.Attributes.Add("Text", <img src= width="15" height="15"/>) 'btn.Attributes.Add("Text", <img src= width="15" height="15"/>)
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("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.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 + "&P3=" + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(d.RK_ID).ToString 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_CellInfo.ValidateRequestMode = UI.ValidateRequestMode.Enabled tbl_CellInfo.ValidateRequestMode = UI.ValidateRequestMode.Enabled
tbl_CellInfo.Controls.Add(btn) tbl_CellInfo.Controls.Add(btn)
tr.Cells.Add(tbl_CellInfo) tr.Cells.Add(tbl_CellInfo)
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) 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)
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) normaltable.Rows.Add(tr)
End If
i += 1
Next
Else Else
Dim tbl_cellNothing = New TableCell() lbl_status.Text = "Error in valid date room"
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 If End If
End Sub End Sub