Responsive Julius Version1
This commit is contained in:
ja
170
status.aspx
170
status.aspx
@@ -41,7 +41,6 @@
|
||||
|
||||
</script>
|
||||
|
||||
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
|
||||
<title>VERAG Spedition AG</title>
|
||||
<link rel="stylesheet" type="text/css" href="css/main.css"/>
|
||||
@@ -68,10 +67,8 @@
|
||||
}
|
||||
}
|
||||
</script>
|
||||
<script type="text/javascript" src="js/toptions/top_up-min.js"></script>
|
||||
|
||||
</head>
|
||||
|
||||
<script type="text/javascript" src="js/toptions/top_up-min.js"></script>
|
||||
</head>
|
||||
<body >
|
||||
<!-- <a href="login/login_TEST.aspx" style="position:absolute;left:10px;top:10px;">LOGIN</a>-->
|
||||
<form id="leftLinks" runat="server">
|
||||
@@ -133,7 +130,7 @@
|
||||
|
||||
%>
|
||||
|
||||
<div id="nav-main" >
|
||||
<!--<div id="nav-main" >
|
||||
<div id="art-flags">
|
||||
<a href="<%= navParent%>&lan2=DE"><img src="images/flags/flagge_A.gif" style="border:1px solid #000;width:30px;"/></a>
|
||||
<a href="<%= navParent%>&lan2=DE"><img src="images/flags/flagge_D.gif" style="border:1px solid #000;width:30px;"/></a>
|
||||
@@ -143,7 +140,8 @@
|
||||
<a href="<%= navParent%>&lan2=BG"><img src="images/flags/flagge_BG.gif" style="border:1px solid #000;width:30px;"/></a>
|
||||
<a href="<%= navParent%>&lan2=TR"><img src="images/flags/flagge_TR.gif" style="border:1px solid #000;width:30px;"/></a>
|
||||
</div>
|
||||
</div>
|
||||
</div> -->
|
||||
|
||||
|
||||
<%
|
||||
End If
|
||||
@@ -155,7 +153,7 @@
|
||||
|
||||
<span class="content_all">
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -172,7 +170,7 @@
|
||||
|
||||
<% '?key=hello%20world
|
||||
Try
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW
|
||||
'Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(799124)
|
||||
Dim VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
@@ -199,7 +197,6 @@
|
||||
|
||||
%>
|
||||
|
||||
|
||||
<table style="width:100%"><tr> <td>
|
||||
<table>
|
||||
<tr><td style="width:150px"></td><td></td></tr>
|
||||
@@ -213,15 +210,15 @@
|
||||
|
||||
<tr style="height:10px"></tr>
|
||||
<tr><td><b>STATUS:</b></td><td><span ><%
|
||||
Select Case(AVISO.Status)
|
||||
Case 0 : Response.Write("<div class=""statusLKW_Erfasst"">" & LT.getTxt(7, lan, "Erfasst") & "</div>")
|
||||
Case 1 : Response.Write("<div class=""statusLKW_Freigegeben"">" & LT.getTxt(8, lan, "Freigegeben") & "</div>")
|
||||
Case 2 : Response.Write("<div class=""statusLKW_Erfasst"">" & LT.getTxt(9, lan, "LKW n.e.") & "</div>")
|
||||
Case 3 : Response.Write("<div class=""statusLKW_Ankunft"">" & LT.getTxt(10, lan, "Ankunft") & "</div>")
|
||||
Case 4 : Response.Write("<div class=""statusLKW_Erfasst"">" & LT.getTxt(11, lan, "Vorbereitet") & "</div>")
|
||||
Case 5 : Response.Write("<div class=""statusLKW_Erfasst"">" & LT.getTxt(12, lan, "Vorgeschrieben") & "</div>")
|
||||
Case Else : Response.Write("unbekannt")
|
||||
End Select
|
||||
Select Case(AVISO.Status)
|
||||
Case 0 : Response.Write("<div class=""statusLKW_Erfasst"">" & LT.getTxt(7, lan, "Erfasst") & "</div>")
|
||||
Case 1 : Response.Write("<div class=""statusLKW_Freigegeben"">" & LT.getTxt(8, lan, "Freigegeben") & "</div>")
|
||||
Case 2 : Response.Write("<div class=""statusLKW_Erfasst"">" & LT.getTxt(9, lan, "LKW n.e.") & "</div>")
|
||||
Case 3 : Response.Write("<div class=""statusLKW_Ankunft"">" & LT.getTxt(10, lan, "Ankunft") & "</div>")
|
||||
Case 4 : Response.Write("<div class=""statusLKW_Erfasst"">" & LT.getTxt(11, lan, "Vorbereitet") & "</div>")
|
||||
Case 5 : Response.Write("<div class=""statusLKW_Erfasst"">" & LT.getTxt(12, lan, "Vorgeschrieben") & "</div>")
|
||||
Case Else : Response.Write("unbekannt")
|
||||
End Select
|
||||
%></span></td></tr>
|
||||
|
||||
|
||||
@@ -230,10 +227,10 @@
|
||||
<td>
|
||||
<table>
|
||||
<%
|
||||
If AVISO.AvisoEingang <> VERAG_PROG_ALLGEMEIN.cAllgemein.LeerDatum Then Response.Write("<tr><td><b>" & LT.getTxt(13, lan, "Aviso-Eingang") & ": <b></td><td>" & AVISO.AvisoEingang & "</td></tr>")
|
||||
If AVISO.Datum <> VERAG_PROG_ALLGEMEIN.cAllgemein.LeerDatum Then Response.Write("<tr><td><b>" & LT.getTxt(7, lan, "Erfasst") & ": <b></td><td>" & AVISO.Datum & "</td></tr>")
|
||||
If AVISO.Ankunft <> VERAG_PROG_ALLGEMEIN.cAllgemein.LeerDatum Then Response.Write("<tr><td><b>" & LT.getTxt(10, lan, "Ankunft") & ": <b></td><td>" & AVISO.Ankunft & "</td></tr>")
|
||||
If AVISO.Freigabe <> VERAG_PROG_ALLGEMEIN.cAllgemein.LeerDatum Then Response.Write("<tr><td><b>" & LT.getTxt(15, lan, "Freigabe") & ": <b></td><td>" & AVISO.Freigabe & "</td></tr>")
|
||||
If AVISO.AvisoEingang <> VERAG_PROG_ALLGEMEIN.cAllgemein.LeerDatum Then Response.Write("<tr><td><b>" & LT.getTxt(13, lan, "Aviso-Eingang") & ": <b></td><td>" & AVISO.AvisoEingang & "</td></tr>")
|
||||
If AVISO.Datum <> VERAG_PROG_ALLGEMEIN.cAllgemein.LeerDatum Then Response.Write("<tr><td><b>" & LT.getTxt(7, lan, "Erfasst") & ": <b></td><td>" & AVISO.Datum & "</td></tr>")
|
||||
If AVISO.Ankunft <> VERAG_PROG_ALLGEMEIN.cAllgemein.LeerDatum Then Response.Write("<tr><td><b>" & LT.getTxt(10, lan, "Ankunft") & ": <b></td><td>" & AVISO.Ankunft & "</td></tr>")
|
||||
If AVISO.Freigabe <> VERAG_PROG_ALLGEMEIN.cAllgemein.LeerDatum Then Response.Write("<tr><td><b>" & LT.getTxt(15, lan, "Freigabe") & ": <b></td><td>" & AVISO.Freigabe & "</td></tr>")
|
||||
%>
|
||||
</table>
|
||||
</td>
|
||||
@@ -263,92 +260,81 @@
|
||||
<tr><th ><%= LT.getTxt(20, lan, "Nr.") %></th><th ><%= LT.getTxt(21, lan, "Spedition/PosNr") %></th><th><%= LT.getTxt(22, lan, "Sendungsdaten") %></th><th><%= LT.getTxt(23, lan, "Absender") %></th><th><%= LT.getTxt(24, lan, "Empfänger") %></th><th> Status </th></tr>
|
||||
|
||||
<%
|
||||
For Each s In SENDUNG_LIST
|
||||
Dim sndDat As String = "" '"<b>" & s.tblSnd_Abfertigungsart_ID & "</b>"
|
||||
sndDat &= "<div style=""text-align:right"">"
|
||||
If IsNumeric(s.tblSnd_Colli) Then sndDat &= "<b>" & s.tblSnd_Colli & "</b> Pk<br/>"
|
||||
If IsNumeric(s.tblSnd_Gewicht) Then sndDat &= "<b>" & s.tblSnd_Gewicht & "</b> kg"
|
||||
sndDat &= "</div>"
|
||||
'If s.tblSnd_Fremdspedition Then Return If(s.tblSnd_FremdspeditionText <> "", s.tblSnd_FremdspeditionText, "FREMD")
|
||||
'If s.tblSnd_Abfertigungsart_ID > 0 Then
|
||||
' Dim abfART = SQL.getValueTxtBySql("select isnull(Abfertigungsbezeichnung,'-') from Abfertigungsarten where Abfertigungsart='" & s.tblSnd_Abfertigungsart_ID & "'", "FMZOLL")
|
||||
'End If
|
||||
Dim trBg = ""
|
||||
Dim txtCluster = ""
|
||||
If s.tblSnd_Fremdspedition Then
|
||||
txtCluster = "<i>" & s.tblSnd_FremdspeditionText & "</i>"
|
||||
trBg = " class=""fremdspedition"""
|
||||
Else
|
||||
If s.FilialenNr > 0 Then txtCluster = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(s.FilialenNr, False)
|
||||
If txtCluster <> "" Then
|
||||
txtCluster = "<b>" & txtCluster & "</b><br/>"
|
||||
txtCluster &= "<span>" & If(s.FilialenNr > 0, s.FilialenNr, "") & "/" & If(s.AbfertigungsNr > 0, s.AbfertigungsNr, "") & "</span>"
|
||||
End If
|
||||
End If
|
||||
For Each s In SENDUNG_LIST
|
||||
Dim sndDat As String = "" '"<b>" & s.tblSnd_Abfertigungsart_ID & "</b>"
|
||||
sndDat &= "<div style=""text-align:right"">"
|
||||
If IsNumeric(s.tblSnd_Colli) Then sndDat &= "<b>" & s.tblSnd_Colli & "</b> Pk<br/>"
|
||||
If IsNumeric(s.tblSnd_Gewicht) Then sndDat &= "<b>" & s.tblSnd_Gewicht & "</b> kg"
|
||||
sndDat &= "</div>"
|
||||
'If s.tblSnd_Fremdspedition Then Return If(s.tblSnd_FremdspeditionText <> "", s.tblSnd_FremdspeditionText, "FREMD")
|
||||
'If s.tblSnd_Abfertigungsart_ID > 0 Then
|
||||
' Dim abfART = SQL.getValueTxtBySql("select isnull(Abfertigungsbezeichnung,'-') from Abfertigungsarten where Abfertigungsart='" & s.tblSnd_Abfertigungsart_ID & "'", "FMZOLL")
|
||||
'End If
|
||||
Dim trBg = ""
|
||||
Dim txtCluster = ""
|
||||
If s.tblSnd_Fremdspedition Then
|
||||
txtCluster = "<i>" & s.tblSnd_FremdspeditionText & "</i>"
|
||||
trBg = " class=""fremdspedition"""
|
||||
Else
|
||||
If s.FilialenNr > 0 Then txtCluster = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(s.FilialenNr, False)
|
||||
If txtCluster <> "" Then
|
||||
txtCluster = "<b>" & txtCluster & "</b><br/>"
|
||||
txtCluster &= "<span>" & If(s.FilialenNr > 0, s.FilialenNr, "") & "/" & If(s.AbfertigungsNr > 0, s.AbfertigungsNr, "") & "</span>"
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim statOK = "•••" '"···"
|
||||
Dim statOK_style = " class=""statusNONE"" "
|
||||
If AVISO.Status = 1 Or (s.tblSnd_Vorgeschrieben IsNot Nothing) Then 'IsNot Nothing And s.tblSnd_Vorbereitet IsNot Nothing) Then
|
||||
statOK = "OK" : statOK_style = " class=""statusOK"" "
|
||||
Dim statOK = "•••" '"···"
|
||||
Dim statOK_style = " class=""statusNONE"" "
|
||||
If AVISO.Status = 1 Or (s.tblSnd_Vorgeschrieben IsNot Nothing) Then 'IsNot Nothing And s.tblSnd_Vorbereitet IsNot Nothing) Then
|
||||
statOK = "OK" : statOK_style = " class=""statusOK"" "
|
||||
|
||||
ElseIf s.tblSnd_Vorbereitet Is Nothing Then
|
||||
statOK_style = " class=""statusPROBLEM"" "
|
||||
statOK = "PROBLEM"
|
||||
End If
|
||||
If s.tblSnd_Fremdspedition Then
|
||||
statOK_style = " class=""statusUNDEF"" "
|
||||
statOK = "-"
|
||||
End If
|
||||
ElseIf s.tblSnd_Vorbereitet Is Nothing Then
|
||||
statOK_style = " class=""statusPROBLEM"" "
|
||||
statOK = "PROBLEM"
|
||||
End If
|
||||
If s.tblSnd_Fremdspedition Then
|
||||
statOK_style = " class=""statusUNDEF"" "
|
||||
statOK = "-"
|
||||
End If
|
||||
|
||||
%>
|
||||
<tr <% Response.Write(trBg) %> ><td><center><% Response.Write(cnt) %></center></td><td> <% Response.Write(txtCluster)%> </td><td> <% Response.Write(sndDat) %> </td><td> <% Response.Write(If(s.tblSnd_Absender, "")) %> </td><td> <% Response.Write(If(s.tblSnd_Empfaenger, "")) %> </td><td <% Response.Write(statOK_style) %> > <% Response.Write(statOK) %> </td></tr>
|
||||
<%
|
||||
|
||||
Dim VERMERKE = VERAGSQL.loadDgvBySql("SELECT [VermerkID],[VermerkArt],[AvisoID],[SendungID],[Datum],VermerkeCodes.Bezeichnung,VermerkeCode FROM [Vermerke] inner join VermerkeCodes ON VermerkeCode=VermerkCodeId WHERE LKW_Vermerk=1 AND SendungID=" & s.tblSnd_SendungID & " /*AND VermerkIDAufgehoben IS NULL*/ ORDER BY Datum", "AVISO")
|
||||
If VERMERKE IsNot Nothing Then
|
||||
Dim vermerkeUeberschrift = LT.getTxt(25, lan, "Probleme/Vermerke") & ":"
|
||||
For Each r In VERMERKE.Rows()
|
||||
Dim VERMERKE = VERAGSQL.loadDgvBySql("SELECT [VermerkID],[VermerkArt],[AvisoID],[SendungID],[Datum],VermerkeCodes.Bezeichnung,VermerkeCode FROM [Vermerke] inner join VermerkeCodes ON VermerkeCode=VermerkCodeId WHERE LKW_Vermerk=1 AND SendungID=" & s.tblSnd_SendungID & " /*AND VermerkIDAufgehoben IS NULL*/ ORDER BY Datum", "AVISO")
|
||||
If VERMERKE IsNot Nothing Then
|
||||
Dim vermerkeUeberschrift = LT.getTxt(25, lan, "Probleme/Vermerke") & ":"
|
||||
For Each r In VERMERKE.Rows()
|
||||
|
||||
%>
|
||||
<tr class="tableStatusVermerke"><td colspan="3" class="vermerkHeader"><u><i><% Response.Write(vermerkeUeberschrift) %></i></u>  </td> <td style="border:0px solid white" colspan="3"><i><% Response.Write(CDate(r("Datum")).ToString("dd.MM.yyyy HH:mm") & ": " & V_LST.getTxt(r("VermerkeCode"), lan)) %></i></td></tr>
|
||||
%>
|
||||
<tr class="tableStatusVermerke"><td colspan="3" class="vermerkHeader"><u><i><% Response.Write(vermerkeUeberschrift) %></i></u>  </td> <td style="border:0px solid white" colspan="3"><i><% Response.Write(CDate(r("Datum")).ToString("dd.MM.yyyy HH:mm") & ": " & V_LST.getTxt(r("VermerkeCode"), lan)) %></i></td></tr>
|
||||
|
||||
<% vermerkeUeberschrift = ""
|
||||
Next
|
||||
<% vermerkeUeberschrift = ""
|
||||
Next
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
cnt += 1
|
||||
Next
|
||||
%></table><table> <%
|
||||
cnt += 1
|
||||
Next
|
||||
%></table><table> <%
|
||||
|
||||
|
||||
|
||||
Dim VERMERKE_LKW = VERAGSQL.loadDgvBySql("SELECT [VermerkID],[VermerkArt],[AvisoID],[SendungID],[Datum],VermerkeCodes.Bezeichnung,VermerkeCode FROM [Vermerke] inner join VermerkeCodes ON VermerkeCode=VermerkCodeId WHERE LKW_Vermerk=1 AND AvisoID=" & AVISO.AvisoID & " AND VermerkArt='A' /*AND VermerkIDAufgehoben IS NULL*/ ORDER BY Datum", "AVISO")
|
||||
If VERMERKE_LKW IsNot Nothing Then
|
||||
Dim vermerkeUeberschrift = LT.getTxt(25, lan, "Probleme/Vermerke") & ":"
|
||||
For Each r In VERMERKE_LKW.Rows()
|
||||
|
||||
%>
|
||||
<tr class="tableStatusVermerke"><td colspan="3" class="vermerkHeader"><u><i><% Response.Write(vermerkeUeberschrift) %></i></u>  </td> <td style="border:0px solid white" colspan="3"><i><% Response.Write(CDate(r("Datum")).ToString("dd.MM.yyyy HH:mm") & ": " & V_LST.getTxt(r("VermerkeCode"), lan)) %></i></td></tr>
|
||||
|
||||
<% vermerkeUeberschrift = ""
|
||||
Next
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
%></table><%
|
||||
Else
|
||||
Response.Write("<b>" & LT.getTxt(26, lan, "Der LKW konnte leider nicht gefunden werden!") & "</b>")
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
Response.Write(ex.Message & ex.StackTrace)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
%></table></span><%
|
||||
Else
|
||||
Response.Write("<b>" & LT.getTxt(26, lan, "Der LKW konnte leider nicht gefunden werden!") & "</b>")
|
||||
End If
|
||||
|
||||
|
||||
End Try
|
||||
|
||||
Catch ex As Exception
|
||||
Response.Write(ex.Message & ex.StackTrace)
|
||||
|
||||
End Try
|
||||
|
||||
%>
|
||||
<div style="height:150px;"></div>
|
||||
|
||||
Reference in New Issue
Block a user