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

Änderungen Datum

Browse Source
This commit is contained in:
ja
2021-09-14 16:53:29 +02:00
parent 590e6503b3
commit 0553c9e74b
2 changed files with 5 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Customers/CustomsAviso.aspx
View File

@@ -147,8 +147,7 @@
<asp:Table id="normaltable" runat="server" Width="100%" EnableViewState="false" >
<asp:TableHeaderRow ID="tbl_Header_row" runat="server">
<asp:TableHeaderCell ID="tbl_HeaderCellIndexNr" runat="server">Index-Nr</asp:TableHeaderCell>
<asp:TableHeaderCell ID="tbl_HeaderCell_ART" runat="server">ART</asp:TableHeaderCell>
<asp:TableHeaderCell ID="tbl_HeaderCell_ART" runat="server">ART</asp:TableHeaderCell>
<asp:TableHeaderCell ID="tbl_HeaderCell_Status" runat="server">Status</asp:TableHeaderCell>
<asp:TableHeaderCell ID="tbl_HeaderCell_von" runat="server">von</asp:TableHeaderCell>
<asp:TableHeaderCell ID="tbl_HeaderCell_bis" runat="server">bis</asp:TableHeaderCell>

14
Customers/CustomsAviso.aspx.vb
View File

@@ -44,18 +44,13 @@ Partial Class Kundenbereich_Default
KDNAFNR = txt_KdNrAuftrag.Text
ElseIf txt_LKWNr.Text IsNot "" Then
LKWNR = txt_LKWNr.Text
Else
Absender = ""
Empfaenger = ""
KDNAFNR = ""
LKWNR = ""
End If
'Dim tr
If rbt_Erf.Checked = True Then
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0},,, Absender, Empfaenger, LKWNR, KDNAFNR)
ElseIf rbt_Freig.Checked = True Then
If pickdate1.Text = "TT.MM.JJJJ" And pickdate2.Text = "TT.MM.JJJJ" Then
If pickdate1.Text = Not "TT.MM.JJJJ" And pickdate2.Text = Not "TT.MM.JJJJ" Then
If Date.Parse(pickdate2.Text) > Date.Parse(pickdate1.Text) Then
Try
datevon = Date.Parse(pickdate1.Text)
@@ -63,7 +58,6 @@ Partial Class Kundenbereich_Default
Catch ex As Exception
MsgBox(ex.StackTrace, MsgBoxStyle.Exclamation)
End Try
Else
End If
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {1}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
Else
@@ -82,8 +76,9 @@ Partial Class Kundenbereich_Default
pickdate1.Text = Date.ParseExact("01" + "-" + Date.Now.Month.ToString + "-" + Date.Now.Year.ToString, "dd-MM-yyyy", Nothing).ToString
pickdate2.Text = Date.ParseExact(Date.Now.Day.ToString + "-" + Date.Now.Month.ToString + "-" + Date.Now.Year.ToString, "dd-MM-yyyy", Nothing).ToString
datevon = Date.ParseExact(pickdate1.Text, "dd-MM-yyyy", Nothing)
datebis = Date.ParseExact(pickdate2.Text, "dd-MM-yyyy", Nothing)
If Date.Parse(pickdate2.Text) > Date.Parse(pickdate1.Text) Then
datebis = Date.ParseExact(pickdate2.Text, "dd-MM-yyyy", Nothing)
If Date.Parse(pickdate2.Text) > Date.Parse(pickdate1.Text) Then
Try
datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text)
@@ -153,7 +148,6 @@ Partial Class Kundenbereich_Default
tbl_CellArt.Text = ""
tr.Cells.Add(tbl_CellArt)
Select Case d("Status")
Case 1
tbl_CellStatus.Text = "Erfasst"