+
+
+ <%
Dim curentMenuId As String = "1"
If Not Request.QueryString("menuID") Is Nothing Then
curentMenuId = Request.QueryString("menuID")
End If
%>
-
-
<%= LT.getTxt(1, lan, "Herzlich Willkommen bei VERAG Spedition AG!")%>
+
<%--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.")%>
-
+
<% '?key=hello%20world
Try
@@ -551,50 +565,94 @@
Select Case AVISO.LKW_Nationalitaet
Case "TR" : lan = "TR"
End Select
- End If%>
-
-
-
-
-
<%= LT.getTxt(3, lan, "LKW-Kennzeichen") %>:
<%= AVISO.LKW_Nr %>
-
<%= LT.getTxt(14, lan, "LKW-ID") %>:
<%= AVISO.AvisoID %>
-
- <%--
<%= LT.getTxt(4, lan, "Avisierer:") %>
<%= AVISO.Auftraggeber %>
--%>
-
<%= LT.getTxt(8, lan, "Frachtführer") %>:
<%= AVISO.Frächter %>
-
-
STATUS:
<%
- Select Case (AVISO.Status)
- Case 0 : Response.Write("
" & LT.getTxt(7, lan, "Erfasst") & "
")
- Case 1 : Response.Write("
" & LT.getTxt(8, lan, "Freigegeben") & "
")
- Case 2 : Response.Write("
" & LT.getTxt(9, lan, "LKW n.e.") & "
")
- Case 3 : Response.Write("
" & LT.getTxt(10, lan, "Ankunft") & "
")
- Case 4 : Response.Write("
" & LT.getTxt(11, lan, "Vorbereitet") & "
")
- Case 5 : Response.Write("
" & LT.getTxt(12, lan, "Vorgeschrieben") & "
")
- Case Else : Response.Write("unbekannt")
- End Select
- %>
-
-
-
-
-
-
-
- <%
- If AVISO.AvisoEingang <> VERAG_PROG_ALLGEMEIN.cAllgemein.LeerDatum Then Response.Write("
" & LT.getTxt(13, lan, "Aviso-Eingang") & ":
" & AVISO.AvisoEingang & "
")
- If AVISO.Datum <> VERAG_PROG_ALLGEMEIN.cAllgemein.LeerDatum Then Response.Write("
" & LT.getTxt(7, lan, "Erfasst") & ":
" & AVISO.Datum & "
")
- If AVISO.Ankunft <> VERAG_PROG_ALLGEMEIN.cAllgemein.LeerDatum Then Response.Write("
" & LT.getTxt(10, lan, "Ankunft") & ":
" & AVISO.Ankunft & "
")
- If AVISO.Freigabe <> VERAG_PROG_ALLGEMEIN.cAllgemein.LeerDatum Then Response.Write("
" & LT.getTxt(15, lan, "Freigabe") & ":
" & AVISO.Freigabe & "
")
- %>
+ End If%>
+
+
+
+
+
+
<%= LT.getTxt(3, lan, "LKW-Kennzeichen") %>:
<%= AVISO.LKW_Nr %>
+
<%= LT.getTxt(14, lan, "LKW-ID") %>:
<%= AVISO.AvisoID %>
+
+
+
<%= LT.getTxt(4, lan, "Avisierer") %>:
<%= AVISO.Auftraggeber %>
+
<%= LT.getTxt(8, lan, "Frachtführer") %>:
<%= AVISO.Frächter %>
+
+
+
+
STATUS:
<%
+ Select Case(AVISO.Status)
+ Case 0 : Response.Write("
" & LT.getTxt(7, lan, "Erfasst") & "
")
+ Case 1 : Response.Write("
" & LT.getTxt(8, lan, "Freigegeben") & "
")
+ Case 2 : Response.Write("
" & LT.getTxt(9, lan, "LKW n.e.") & "
")
+ Case 3 : Response.Write("
" & LT.getTxt(10, lan, "Ankunft") & "
")
+ Case 4 : Response.Write("
" & LT.getTxt(11, lan, "Vorbereitet") & "
")
+ Case 5 : Response.Write("
" & LT.getTxt(12, lan, "Vorgeschrieben") & "
")
+ Case Else : Response.Write("unbekannt")
+ End Select
+ %>
+
+
+ <%
+ If AVISO.AvisoEingang <> VERAG_PROG_ALLGEMEIN.cAllgemein.LeerDatum Then Response.Write("
" & LT.getTxt(13, lan, "Aviso-Eingang") & ":
" & AVISO.AvisoEingang & "
")
+ If AVISO.Datum <> VERAG_PROG_ALLGEMEIN.cAllgemein.LeerDatum Then Response.Write("
" & LT.getTxt(7, lan, "Erfasst") & ":
" & AVISO.Datum & "
")
+ If AVISO.Ankunft <> VERAG_PROG_ALLGEMEIN.cAllgemein.LeerDatum Then Response.Write("
" & LT.getTxt(10, lan, "Ankunft") & ":
" & AVISO.Ankunft & "
")
+ If AVISO.Freigabe <> VERAG_PROG_ALLGEMEIN.cAllgemein.LeerDatum Then Response.Write("
" & LT.getTxt(15, lan, "Freigabe") & ":
" & AVISO.Freigabe & "
")
+ %>
+
+
+
-
+
+
+
+
+
+
+
<%= LT.getTxt(3, lan, "LKW-Kennzeichen") %>:
<%= AVISO.LKW_Nr %>
+
<%= LT.getTxt(14, lan, "LKW-ID") %>:
<%= AVISO.AvisoID %>
+
+
+
<%= LT.getTxt(4, lan, "Avisierer") %>:
<%= AVISO.Auftraggeber %>
+
<%= LT.getTxt(8, lan, "Frachtführer") %>:
<%= AVISO.Frächter %>
+
+
+
+
STATUS:
<%
+ Select Case(AVISO.Status)
+ Case 0 : Response.Write("
" & LT.getTxt(7, lan, "Erfasst") & "
")
+ Case 1 : Response.Write("
" & LT.getTxt(8, lan, "Freigegeben") & "
")
+ Case 2 : Response.Write("
" & LT.getTxt(9, lan, "LKW n.e.") & "
")
+ Case 3 : Response.Write("
" & LT.getTxt(10, lan, "Ankunft") & "
")
+ Case 4 : Response.Write("
" & LT.getTxt(11, lan, "Vorbereitet") & "
")
+ Case 5 : Response.Write("
" & LT.getTxt(12, lan, "Vorgeschrieben") & "
")
+ Case Else : Response.Write("unbekannt")
+ End Select
+ %>
+
+
+
+
+ <%
+ If AVISO.AvisoEingang <> VERAG_PROG_ALLGEMEIN.cAllgemein.LeerDatum Then Response.Write("
" & LT.getTxt(13, lan, "Aviso-Eingang") & ":
" & AVISO.AvisoEingang & "
")
+ If AVISO.Datum <> VERAG_PROG_ALLGEMEIN.cAllgemein.LeerDatum Then Response.Write("
" & LT.getTxt(7, lan, "Erfasst") & ":
" & AVISO.Datum & "
")
+ If AVISO.Ankunft <> VERAG_PROG_ALLGEMEIN.cAllgemein.LeerDatum Then Response.Write("
" & LT.getTxt(10, lan, "Ankunft") & ":
" & AVISO.Ankunft & "
")
+ If AVISO.Freigabe <> VERAG_PROG_ALLGEMEIN.cAllgemein.LeerDatum Then Response.Write("
" & LT.getTxt(15, lan, "Freigabe") & ":
" & AVISO.Freigabe & "
")
+ %>
+
+
+
+
+
+
+
<%
- If true Then 'AVISO.Status <> 1 And AVISO.Status <> 2 Then 'SENDUNGSTABELLE
- Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
- VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoId) 'LÄDT alle SENDUNGSDATEN
- Dim cnt = 1
- If AVISO.LKW_fertig And AVISO.Status <> 1 Then %>
+ If true Then 'AVISO.Status <> 1 And AVISO.Status <> 2 Then 'SENDUNGSTABELLE
+ Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
+ VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoId) 'LÄDT alle SENDUNGSDATEN
+ Dim cnt = 1
+ If AVISO.LKW_fertig And AVISO.Status <> 1 Then %>