Änderung deer Strings welche dynamisch erzuegt wurden auf allen Seiten
This commit is contained in:
ja
110
status.aspx
110
status.aspx
@@ -161,11 +161,11 @@
|
||||
|
||||
|
||||
|
||||
<h1><%= LT.getTxt(1, lan, "Herzlich Willkommen bei VERAG Spedition AG!")%></h1>
|
||||
<h1><%Response.Write(LT.getTxt(1, lan, "Herzlich Willkommen bei VERAG Spedition AG!"))%></h1>
|
||||
<div id="line"></div>
|
||||
<br>
|
||||
<%--Der Warenaustausch zwischen der Europäischen Union und Süd-Osteuropa ist mit aufwendigen und komplizierten Abläufen verbunden.--%>
|
||||
<%= LT.getTxt(2, lan, "Hier finden Sie Informationen zu Ihrem Sendungsstatus.")%>
|
||||
<%Response.Write(LT.getTxt(2, lan, "Hier finden Sie Informationen zu Ihrem Sendungsstatus."))%>
|
||||
<!--<br><br>
|
||||
Die Mitarbeiter der VERAG Spedition AG haben sich auf die Bereiche Zoll und Steuer spezialisiert und können so ihren Kunden einen individuell abgestimmten Service anbieten.
|
||||
<br><br>
|
||||
@@ -204,25 +204,25 @@
|
||||
<table style="width:100%"><tr> <td>
|
||||
<table>
|
||||
<tr><td style="width:150px"></td><td></td></tr>
|
||||
<tr><td><b><%= LT.getTxt(3, lan, "LKW-Kennzeichen") %>:</b></td><td><span style="font-size:20px"><%= AVISO.LKW_Nr %></span></td></tr>
|
||||
<tr><td><b><%= LT.getTxt(14, lan, "LKW-ID") %>:</b></td><td><%= AVISO.AvisoID %></td></tr>
|
||||
<tr><td><b><%Response.Write(LT.getTxt(3, lan, "LKW-Kennzeichen")) %>:</b></td><td><span style="font-size:20px"><%Response.Write(AVISO.LKW_Nr) %></span></td></tr>
|
||||
<tr><td><b><%Response.Write(LT.getTxt(14, lan, "LKW-ID")) %>:</b></td><td><%Response.Write(AVISO.AvisoID) %></td></tr>
|
||||
|
||||
<tr style="height:10px"></tr>
|
||||
<tr><td><b><%= LT.getTxt(4, lan, "Avisierer") %>:</b></td><td><%= AVISO.Auftraggeber %></td></tr>
|
||||
<tr><td><b><%= LT.getTxt(8, lan, "Frachtführer") %>:</b></td><td><%= AVISO.Frächter %></td></tr>
|
||||
<tr><td><b><%Response.Write(LT.getTxt(4, lan, "Avisierer")) %>:</b></td><td><%Response.Write(AVISO.Auftraggeber) %></td></tr>
|
||||
<tr><td><b><%Response.Write(LT.getTxt(8, lan, "Frachtführer")) %>:</b></td><td><%Response.Write(AVISO.Frächter) %></td></tr>
|
||||
|
||||
|
||||
<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>
|
||||
|
||||
|
||||
@@ -248,58 +248,58 @@
|
||||
Dim cnt = 1
|
||||
If AVISO.LKW_fertig And AVISO.Status <> 1 Then %>
|
||||
<div style="height:50px"></div>
|
||||
<div > <img src="images/okround.jpg" style="height:50px"/><h1 class="statusLKW_OK"> <%= LT.getTxt(16, lan, "Der LKW ist fertig, bitte kommen Sie zum Schalter!") %></h1> </div>
|
||||
<div > <img src="images/okround.jpg" style="height:50px"/><h1 class="statusLKW_OK"> <%Response.Write(LT.getTxt(16, lan, "Der LKW ist fertig, bitte kommen Sie zum Schalter!"))%></h1> </div>
|
||||
|
||||
<% Elseif AVISO.Status = 3 Then %>
|
||||
<% ElseIf AVISO.Status = 3 Then %>
|
||||
<div style="height:20px"></div>
|
||||
<h3><%= LT.getTxt(17, lan, "Ihr LKW wird gerade bearbeitet!") %></h3>
|
||||
<span style="font-size:14px"><%= LT.getTxt(18, lan, "Bitte haben Sie noch Geduld bis ihr Auftrag fertig ist. Sie können den aktuellen Status Ihres LKWs am Bildschirm verfolgen.<br />Bei Status ""OK"" können Sie an den Schalter kommen.") %></span>
|
||||
<h3><%Response.Write(LT.getTxt(17, lan, "Ihr LKW wird gerade bearbeitet!")) %></h3>
|
||||
<span style="font-size:14px"><%Response.Write(LT.getTxt(18, lan, "Bitte haben Sie noch Geduld bis ihr Auftrag fertig ist. Sie können den aktuellen Status Ihres LKWs am Bildschirm verfolgen.<br />Bei Status ""OK"" können Sie an den Schalter kommen.")) %></span>
|
||||
|
||||
<% End If %>
|
||||
|
||||
<div style="height:30px"></div>
|
||||
<h1><%= LT.getTxt(19, lan, "Sendungsliste!") %></h1>
|
||||
<h1><%Response.Write(LT.getTxt(19, lan, "Sendungsliste!"))%></h1>
|
||||
<table class="tableStatus" border="8" cellspacing="0" >
|
||||
|
||||
<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>
|
||||
<tr><th ><%Response.Write(LT.getTxt(20, lan, "Nr."))%></th><th><%Response.Write(LT.getTxt(21, lan, "Spedition/PosNr"))%></th><th><%Response.Write(LT.getTxt(22, lan, "Sendungsdaten"))%></th><th><%Response.Write(LT.getTxt(23, lan, "Absender"))%></th><th><%Response.Write(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>
|
||||
|
||||
Reference in New Issue
Block a user