<%
'Dim lan As String = Request.QueryString("lan")
'If lan ="" then lan="de"
'Dim menuID As String = Request.QueryString("menuID")
'If menuID = "" Then menuID = "1"
'Dim DB2 As New cDBFunctions
%>
<%
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim LT As New VERAG_PROG_ALLGEMEIN.cLanguageText_LIST("HOMEPAGE", "LOGIN", "STATUS", "")
Dim V_LST As New VERAG_PROG_ALLGEMEIN.cVermerkeCodes_LIST
Dim lan = "DE"
If (Request.QueryString.Count > 0) AndAlso Request.QueryString("lan2") IsNot Nothing Then
lan = Request.QueryString("lan2")
End If
If (Request.QueryString.Count > 0) AndAlso Request.QueryString("lan") IsNot Nothing Then
lan = Request.QueryString("lan")
ElseIf (Request.QueryString.Count > 0) AndAlso (Request.QueryString("AvisoId") IsNot Nothing Or Request.QueryString("test") IsNot Nothing) Then
Dim navParent = "status.aspx?AvisoId=" & Request.QueryString("AvisoId")
%>
<%
End If
'Response.Write(DB2.qry_contentNew(menuID, lan)) %>
<%= 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
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
'Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(799124)
Dim VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL
'Response.Write(AD.Ordnungsbegriff)
If (Request.QueryString.Count > 0) AndAlso (Request.QueryString("AvisoId") IsNot Nothing Or Request.QueryString("test") IsNot Nothing) Then
Dim AvisoId = ""
Try
AvisoId = VERAG_PROG_ALLGEMEIN.cCryptography3.Decrypt(Request.QueryString("AvisoId"))
Catch ex As Exception
If Request.QueryString("test") = "VERIMEX" Then
AvisoId = "596981"
End If
End Try
If IsNumeric(AvisoId) Then
Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(AvisoId)
If AVISO IsNot Nothing Then
If lan = "" Then
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 & " | ")
%>
|
<%
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 %>
<%= LT.getTxt(16, lan, "Der LKW ist fertig, bitte kommen Sie zum Schalter!") %>
<% Elseif AVISO.Status = 3 Then %>
<%= LT.getTxt(17, lan, "Ihr LKW wird gerade bearbeitet!") %>
<%= 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.
Bei Status ""OK"" können Sie an den Schalter kommen.") %>
<% End If %>
<%= LT.getTxt(19, lan, "Sendungsliste!") %>
| <%= LT.getTxt(20, lan, "Nr.") %> | <%= LT.getTxt(21, lan, "Spedition/PosNr") %> | <%= LT.getTxt(22, lan, "Sendungsdaten") %> | <%= LT.getTxt(23, lan, "Absender") %> | <%= LT.getTxt(24, lan, "Empfänger") %> | Status |
|---|
<%
For Each s In SENDUNG_LIST
Dim sndDat As String = "" '"" & s.tblSnd_Abfertigungsart_ID & ""
sndDat &= ""
If IsNumeric(s.tblSnd_Colli) Then sndDat &= "" & s.tblSnd_Colli & " Pk
"
If IsNumeric(s.tblSnd_Gewicht) Then sndDat &= "" & s.tblSnd_Gewicht & " kg"
sndDat &= "
"
'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 = "" & s.tblSnd_FremdspeditionText & ""
trBg = " class=""fremdspedition"""
Else
If s.FilialenNr > 0 Then txtCluster = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(s.FilialenNr, False)
If txtCluster <> "" Then
txtCluster = "" & txtCluster & "
"
txtCluster &= "" & If(s.FilialenNr > 0, s.FilialenNr, "") & "/" & If(s.AbfertigungsNr > 0, s.AbfertigungsNr, "") & ""
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"" "
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
%>
>| <% Response.Write(cnt) %> | <% Response.Write(txtCluster)%> | <% Response.Write(sndDat) %> | <% Response.Write(If(s.tblSnd_Absender, "")) %> | <% Response.Write(If(s.tblSnd_Empfaenger, "")) %> | > <% Response.Write(statOK) %> |
<%
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()
%>
| <% Response.Write(CDate(r("Datum")).ToString("dd.MM.yyyy HH:mm") & ": " & V_LST.getTxt(r("VermerkeCode"), lan)) %> |
<% vermerkeUeberschrift = ""
Next
End If
cnt += 1
Next
%>
<%
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()
%>
| <% Response.Write(CDate(r("Datum")).ToString("dd.MM.yyyy HH:mm") & ": " & V_LST.getTxt(r("VermerkeCode"), lan)) %> |
<% vermerkeUeberschrift = ""
Next
End If
End If
End If
%>
<%
Else
Response.Write("" & LT.getTxt(26, lan, "Der LKW konnte leider nicht gefunden werden!") & "")
End If
End If
Catch ex As Exception
Response.Write(ex.Message & ex.StackTrace)
End Try
%>