<%@ Page Language="VB" Debug="true" AutoEventWireup="false" CodeFile="status_Julius.aspx.vb" Inherits="_Default" %> Imports System.Data Imports System.Data.SqlClient <%@ import Namespace="MySql.Data.MySqlClient" %> VERAG Spedition AG

<% ' 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_Julius.aspx?AvisoId=" & Request.QueryString("AvisoId") Dim flagpath = "images/flags/flagge_DE_AT.gif" Dim laenderkuerzel As String = "DE" Dim imgPath As String = "" If HttpContext.Current.Request.Url.AbsoluteUri.ToString.Contains("admin.aspx") Then navParent = "admin.aspx" imgPath = "../" End If Select Case lan Case "DE" : flagpath = "images/flags/flagge_DE_AT.gif" Case "EN" : flagpath = "images/flags/flagge_GB.gif" Case "SRB" : flagpath = "images/flags/flagge_BIH.gif" Case "YU" : flagpath = "images/flags/flagge_SM.gif" Case "BG" : flagpath = "images/flags/flagge_BG.gif" Case "TR" : flagpath = "images/flags/flagge_TR.gif" End Select %>

<% Dim curentMenuId As String = "1" If Not Request.QueryString("menuID") Is Nothing Then curentMenuId = Request.QueryString("menuID") End If %>

/><%=strDElang %>
/><%=strENlang %>
/><%=strBIHLang %>
/><%=strSRBlang %>
/><%=strBGlang %>
/><%=strTRlang %>

<% 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.SHOW '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%>

") If AVISO.Datum <> VERAG_PROG_ALLGEMEIN.cAllgemein.LeerDatum Then Response.Write("") If AVISO.Ankunft <> VERAG_PROG_ALLGEMEIN.cAllgemein.LeerDatum Then Response.Write("") If AVISO.Freigabe <> VERAG_PROG_ALLGEMEIN.cAllgemein.LeerDatum Then Response.Write("") %>


<%= 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 & "

" & LT.getTxt(7, lan, "Erfasst") & ":

" & AVISO.Datum & "

" & LT.getTxt(10, lan, "Ankunft") & ":

" & AVISO.Ankunft & "

" & 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("") If AVISO.Datum <> VERAG_PROG_ALLGEMEIN.cAllgemein.LeerDatum Then Response.Write("") If AVISO.Ankunft <> VERAG_PROG_ALLGEMEIN.cAllgemein.LeerDatum Then Response.Write("") If AVISO.Freigabe <> VERAG_PROG_ALLGEMEIN.cAllgemein.LeerDatum Then Response.Write("") %>

" & LT.getTxt(13, lan, "Aviso-Eingang") & ":	" & AVISO.AvisoEingang & "
" & LT.getTxt(7, lan, "Erfasst") & ":	" & AVISO.Datum & "
" & LT.getTxt(10, lan, "Ankunft") & ":	" & AVISO.Ankunft & "
" & 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 %>

Das Warten hat ein Ende!

<%= LT.getTxt(16, lan, "Der LKW ist fertig, bitte kommen Sie zum Schalter!") %>

<% Elseif AVISO.Status = 3 Then %>

Bitte warten Sie!

<%=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!") %>

<% 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 %> <% Dim vermerkcount = 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").Rows If vermerkcount.Count = 0 Then %> style="color:#043381;" data-bs-toggle="tooltip" data-bs-placement="top" title="Keine zusätzlichen Infos zu Ihrem Auftrag vorhanden. Bitte wählen Sie einen anderen aus."> <% Else %> style="color:#043381;" <% End If 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 %> <% cnt += 1 Next %>

<%= 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

Infos

<% Response.Write(cnt) %>

<% Response.Write(txtCluster)%>

<% Response.Write(sndDat) %>

<% Response.Write(If(s.tblSnd_Absender, "")) %>

<% Response.Write(If(s.tblSnd_Empfaenger, "")) %>

> <% Response.Write(statOK) %>

<% 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 vermerkeUeberschrift = LT.getTxt(25, lan, "Probleme/Vermerke") & ":" For Each r In VERMERKE.Rows()%> <% vermerkeUeberschrift = "" Next %> <% End If %>

<% Response.Write(vermerkeUeberschrift) %>

<% Response.Write(CDate(r("Datum")).ToString("dd.MM.yyyy HH:mm") & ": " & V_LST.getTxt(r("VermerkeCode"), lan)) %>

<% End If End If End If %>

<% Else ' Response.Write("" & LT.getTxt(26, lan, "Der LKW konnte leider nicht gefunden werden!") & "") %>

<% Response.Write("" & LT.getTxt(26, lan, "Der LKW konnte leider nicht gefunden werden!") & "") %>

Bei Fehlern bitte den Panel-Button betätigen!

Panel

<% End If Catch ex As Exception Response.Write(ex.Message & ex.StackTrace) End Try %>

<%--

--%>

Sprachauswahl:

<%= LT.getTxt(1, lan, "Herzlich Willkommen bei VERAG Spedition AG!")%>

Das Warten hat ein Ende!

Bitte warten Sie!

<%= LT.getTxt(19, lan, "Sendungsliste!") %>

Bei Fehlern bitte den Panel-Button betätigen!