551 lines
61 KiB
Plaintext
551 lines
61 KiB
Plaintext
<%@ Page Language="VB" Debug="true" AutoEventWireup="false" CodeFile="status_Julius.aspx.vb" Inherits="_Default" %>
|
|
|
|
<!DOCTYPE html>
|
|
|
|
<html xmlns="http://www.w3.org/1999/xhtml">
|
|
|
|
<head>
|
|
<!-- Bootstrap -->
|
|
<html lang="en">
|
|
<!-- Required meta tags -->
|
|
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" http-equiv="X-UA-Compatible" content="IE=edge"/>
|
|
<meta name="viewport" content="width=device-width, initial-scale=1">
|
|
<!-- Bootstrap CSS -->
|
|
<link href="https://cdn.jsdelivr.net/npm/bootstrap@5.0.2/dist/css/bootstrap.min.css" rel="stylesheet" integrity="sha384-EVSTQN3/azprG1Anm3QDgpJLIm9Nao0Yz1ztcQTwFspd3yD65VohhpuuCOmLASjC" crossorigin="anonymous"/>
|
|
<link rel="stylesheet" href="https://unpkg.com/bootstrap-table@1.18.3/dist/bootstrap-table.min.css"/>
|
|
|
|
<script type="text/javascript" src="https://ajax.googleapis.com/ajax/libs/jquery/3.3.1/jquery.min.js"></script>
|
|
<script type="text/javascript" src="https://cdnjs.cloudflare.com/ajax/libs/popper.js/1.14.0/umd/popper.min.js"></script>
|
|
<script type="text/javascript" src="https://maxcdn.bootstrapcdn.com/bootstrap/4.1.0/js/bootstrap.min.js"></script>
|
|
<script src="bootstrap-5.0.2-dist/js/bootstrap.min.js"></script>
|
|
<%@ import Namespace="MySql.Data.MySqlClient" %>
|
|
<script runat="server">
|
|
|
|
Sub Page_Load() Handles Me.Load
|
|
' MsgBox ("test")
|
|
'Dim con As New MySqlConnection
|
|
'Dim cmd As New MySqlCommand
|
|
' Dim reader As MySqlDataReader
|
|
|
|
' con.ConnectionString = "Server=localhost;Database=verag_homepage;Uid=sec_user;Pwd=eKcGZr59zAa2BEWU;"
|
|
' cmd.Connection = con
|
|
'cmd.CommandText = "select * from map"
|
|
'Try
|
|
'con.Open()
|
|
'MsgBox("conn")
|
|
'reader = cmd.ExecuteReader
|
|
'grid.DataSource = reader
|
|
'reader.Read()
|
|
|
|
'MsgBox(reader("title"))
|
|
'DataBind()
|
|
'reader.Close()
|
|
|
|
'Catch ex As Exception
|
|
' MsgBox("err")
|
|
' End Try
|
|
' con.Close()
|
|
End Sub
|
|
' Public ReadOnly Property CurrentCity() As String
|
|
' Get
|
|
' Return "asd"
|
|
' End Get
|
|
|
|
' End Property,
|
|
</script>
|
|
|
|
<title>VERAG Status</title>
|
|
<link rel="stylesheet" type="text/css" href="css/main.css"/>
|
|
<link rel="stylesheet" type="text/css" href="css/style.css"/>
|
|
<link rel="stylesheet" type="text/css" href="css/status.css"/>
|
|
<LINK REL="SHORTCUT ICON" HREF="images/Icons/favicon/favicon.ico" />
|
|
<!-- <link rel="stylesheet" type="text/css" href="css/edit_main.css"> -->
|
|
<script src="js/netzwerk.js" type="text/javascript"></script>
|
|
|
|
<link rel="stylesheet" type="text/css" href="../stylesheets/style.css"/>
|
|
<link rel="stylesheet" type="text/css" href="../stylesheets/example.css"/>
|
|
<script type="text/javascript">
|
|
// Vergebe den Event-Handler
|
|
document.onkeydown = handleKeyEvent;
|
|
// Funktion, die den Event verarbeitet
|
|
function handleKeyEvent(e) {
|
|
// MSIE nimmt das Event-Objekt aus window.event, DOM-kompatible Browser aus dem e-Funktionsparameter
|
|
if (!e) e = window.event;
|
|
// keyCode muss 70 sein und ctrlKey true
|
|
if (e.keyCode == 68 && e.ctrlKey) {
|
|
alert('Strg+D wurde gedrückt');
|
|
//topup
|
|
}
|
|
}
|
|
</script>
|
|
<script type="text/javascript" src="js/toptions/top_up-min.js"></script>
|
|
<link rel="stylesheet" type="text/css" href="css/Dropdown.css"/>
|
|
<link rel="stylesheet" type="text/css" href="css/StatusJulius.css"/>
|
|
<style>
|
|
|
|
</style>
|
|
</html>
|
|
</head>
|
|
|
|
<body>
|
|
<div class="align-self-center">
|
|
<form id="leftLinks" runat="server">
|
|
<div id="bodycontent">
|
|
<span class="content_all" style="background-color:#fff;align-content:center;width:100%">
|
|
<%
|
|
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
|
|
|
|
Dim lan3 As String = Request.QueryString("lan3")
|
|
If lan = "DE" And lan3 = "0" Then
|
|
flagpath = "images/flags/flagge_DE_AT.gif"
|
|
ElseIf lan = "EN" And lan3 = "0" Then
|
|
flagpath = "images/flags/flagge_GB.gif"
|
|
ElseIf lan = "SRB" And lan3 = "0" Then
|
|
flagpath = "images/flags/flagge_BIH.gif"
|
|
ElseIf lan = "SRB" And lan3 = "1" Then
|
|
flagpath = "images/flags/flagge_SM.gif"
|
|
ElseIf lan = "BG" And lan3 = "0" Then
|
|
flagpath = "images/flags/flagge_BG.gif"
|
|
ElseIf lan = "TR" And lan3 = "0" Then
|
|
flagpath = "images/flags/flagge_TR.gif"
|
|
End If
|
|
%>
|
|
|
|
<!-- Page Content -->
|
|
<div class="container" style="/*margin-top:5px;*/margin-top:0.313rem; margin-top:0.6510416666666667vw; place-content:center; width:100%">
|
|
<!-- Große Bildschirme-->
|
|
<div class="d-none d-md-block">
|
|
<nav class="navbar navbar-expand-lg navbar-light bg-light" style="width:100%">
|
|
<a class="navbar-brand" id="navbarbrandhauptpage" href="newpageJulius_Sidebar.aspx?lan2=DE&lan3=0"><img src="images/Logo_small.png" alt="Logo Verag Spedition (Blaue Schrift) AG (Graue Schrift)" data-toggle="tooltip" data-placement="top" title="https://www.verag.ag"/></a>
|
|
<%
|
|
Dim curentMenuId As String = "1"
|
|
If Not Request.QueryString("menuID") Is Nothing Then
|
|
curentMenuId = Request.QueryString("menuID")
|
|
End If%>
|
|
|
|
<div class="me-auto">
|
|
<div class="dropdown" style="background-color:#fff; color:#043381; margin-right:9.813rem;position:sticky;">
|
|
<button class="dropbtn"> <center><img id="myImage" src="<%=flagpath%>" style="border:1px solid #fff;width:32px; justify-items:center;" alt="Logo Schriftzug: Verag Spedition AG Blaue Schrift: Verag Spedition Graue Schrift: AG" /></center></button>
|
|
<div class="dropdown-content">
|
|
<% Dim stringDE = "  DE"
|
|
Dim stringEN = "  EN"
|
|
Dim stringBIH = "  BIH"
|
|
Dim stringSRB = "  SRB"
|
|
Dim stringBG = "  BG"
|
|
Dim stringTR = "  TR"%>
|
|
<!--<a id="ButtonOesterreichLangPicker" class="btn btn-primary btn-sm" onclick="changeflag(A)" href="<%'= navParent%>?menuID=<%'= curentMenuId %>&lan=de"><img src="<%'= imgPath%>images/flags/flagge_A.gif" <%' If laenderkuerzel = "de" Then Response.Write("style='border:1px solid #000'")%> /> DE</a>-->
|
|
<a id="ButtonDeutschLangPicker" class="btn btn-primary btn-sm" href="<%= navParent%>&lan2=DE&lan3=0" style="background-color:#fff;color:#043381;text-decoration: none;border:none" ><img src="<%= imgPath%>images/flags/flagge_DE_AT_big.gif"; width="20"; <% If laenderkuerzel = "de" Then Response.Write("style='border:1px solid #000'")%>/><%=stringDE%></a>
|
|
<a id="ButtonTürkeiLangPicker" class="btn btn-primary btn-sm" href="<%= navParent%>&lan2=TR&lan3=0" style="background-color:#fff;color:#043381;text-decoration: none;border:none"><img src="<%= imgPath%>images/flags/flagge_TR_big.gif"; width="20"; <% If laenderkuerzel = "yu" Then Response.Write("style='border:1px solid #000'")%>/><%=stringTR%></a>
|
|
<a id="ButtonEnglischLangPicker" class="btn btn-primary btn-sm" href="<%= navParent%>&lan2=EN&lan3=0" style="background-color:#fff;color:#043381;text-decoration: none;border:none"><img src="<%= imgPath%>images/flags/flagge_GB_big.gif"; width="20"; <% If laenderkuerzel = "en" Then Response.Write("style='border:1px solid #000'")%>/><%=stringEN%></a>
|
|
<a id="ButtonSerbischLangPicker" class="btn btn-primary btn-sm" href="<%= navParent%>&lan2=SRB&lan3=0" style="background-color:#fff;color:#043381;text-decoration: none;border:none"><img src="<%= imgPath%>images/flags/flagge_BIH_big.gif"; width="20"; <% If laenderkuerzel = "yu" Then Response.Write("style='border:1px solid #000'")%> /><%=stringBIH%></a>
|
|
<a id="ButtonSerbischZweiLangPicker" class="btn btn-primary btn-sm" href="<%= navParent%>&lan2=SRB&lan3=1" style="background-color:#fff;color:#043381;text-decoration: none;border:none"><img src="<%= imgPath%>images/flags/flagge_SM_big.gif"; width="20"; <% If laenderkuerzel = "yu" Then Response.Write("style='border:1px solid #000'")%> /><%=stringSRB%></a>
|
|
<a id="ButtonBulgariaLangPicker" class="btn btn-primary btn-sm" href="<%= navParent%>&lan2=BG&lan3=0" style="background-color:#fff;color:#043381;text-decoration: none;border:none"><img src="<%= imgPath%>images/flags/flagge_BG_big.gif"; width="20"; <% If laenderkuerzel = "bg" Then Response.Write("style='border:1px solid #000'")%>/><%=stringBG%></a>
|
|
</div>
|
|
</div>
|
|
</div>
|
|
</nav>
|
|
</div>
|
|
<!--Smartphone-Bildschirme-->
|
|
<div class="d-md-none">
|
|
<nav class="navbar navbar-expand-lg navbar-light bg-light justify-content-md-center flex-nowrap">
|
|
<a class="navbar-brand" href="../newpageJulius_Sidebar.aspx?lan2=DE"><img src="../images/Logo_small.png" style="width:90%;height:90%;" alt="VERAG Spedition AG Logo with blue word color until grey AG" data-toggle="tooltip" data-placement="top" title="https://www.verag.ag"></a>
|
|
<button class="btn btn-primary" type="button" data-bs-toggle="offcanvas" data-bs-target="#offcanvasWithBothOptions" aria-controls="offcanvasWithBothOptions" style="background-color:#fff; color:#043381;"><img id="myImage" src="<%=flagpath%>" style="border:1px solid #fff;width:30px;"/></button>
|
|
</nav>
|
|
</div>
|
|
<div class="offcanvas offcanvas-end" data-bs-scroll="true" tabindex="-1" id="offcanvasWithBothOptions" aria-labelledby="offcanvasWithBothOptionsLabel">
|
|
<div class="offcanvas-header">
|
|
<h5 class="offcanvas-title" id="offcanvasWithBothOptionsLabel">Sprachauswahl:</h5>
|
|
<button type="button" class="btn-close text-reset" data-bs-dismiss="offcanvas" aria-label="Close"></button>
|
|
</div>
|
|
<div class="offcanvas-body">
|
|
<% Dim strDElang = "  Deutsch"
|
|
Dim strENlang = "  Englisch"
|
|
Dim strBIHLang = "  Bosnisch"
|
|
Dim strSRBlang = "  Serbisch"
|
|
Dim strBGlang = "  Bulgarisch"
|
|
Dim strTRlang = "  Türkisch"%>
|
|
<ul style="list-style: none;">
|
|
<li style="transform: rotate(0);">
|
|
<!--<a id="ButtonDeutschLangPicker" class="btn btn-primary btn-sm" href="<%'= navParent%>&lan=DE"><img src="<%'= imgPath%>images/flags/flagge_DE_AT.gif" <%' If laenderkuerzel = "de" Then Response.Write("style='border:1px solid #000'")%>/>DE/AT</a>-->
|
|
<a id="ButtonDeutschLangPicker2" href="../<%= navParent%>&lan2=DE&lan3=0" class="stretched-link" style="text-decoration: none;"><img src="<%= imgPath%>images/flags/flagge_DE_AT_big.gif"; width="20" <% If laenderkuerzel = "de" Then Response.Write("style='border:1px solid #000'")%>/><%=strDElang %></a>
|
|
</li>
|
|
<li style="transform: rotate(0);">
|
|
<!--<a id="ButtonEnglischLangPicker" class="btn btn-primary btn-sm" href="<%'= navParent%>&lan=EN"><img src="<%'= imgPath%>images/flags/flagge_GB.gif" <%' If laenderkuerzel = "en" Then Response.Write("style='border:1px solid #000'")%>/>EN</a>-->
|
|
<a id="ButtonEnglischLangPicker2" href="<%= navParent%>&lan2=EN&lan3=0" class="stretched-link" style="text-decoration: none;"><img src="<%= imgPath%>images/flags/flagge_GB_big.gif"; width="20"; <% If laenderkuerzel = "en" Then Response.Write("style='border:1px solid #000'")%>/><%=strENlang %></a>
|
|
</li>
|
|
<li style="transform: rotate(0);">
|
|
<!--<a id="ButtonSerbischLangPicker" class="btn btn-primary btn-sm" href="<%'= navParent%>&lan=SRB"><img src="<%'= imgPath%>images/flags/flagge_BIH.gif" <%' If laenderkuerzel = "yu" Then Response.Write("style='border:1px solid #000'")%> />BIH</a>-->
|
|
<a id="ButtonSerbischLangPicker2" href="<%= navParent%>&lan2=SRB&lan3=0" class="stretched-link" style="text-decoration: none;"><img src="<%= imgPath%>images/flags/flagge_BIH_big.gif"; width="20"; <% If laenderkuerzel = "yu" Then Response.Write("style='border:1px solid #000'")%>/><%=strBIHLang %></a>
|
|
</li>
|
|
<li style="transform: rotate(0);">
|
|
<!--<a id="ButtonSerbischZweiLangPicker" class="btn btn-primary btn-sm" href="<%'= navParent%>&lan=SM"><img src="<'%= imgPath%>images/flags/flagge_SM.gif" <%' If laenderkuerzel = "yu" Then Response.Write("style='border:1px solid #000'")%> />SRB</a>-->
|
|
<a id="ButtonSerbischZweiLangPicker2" href="<%= navParent%>&lan2=SRB&lan3=1" class="stretched-link" style="text-decoration: none;"><img src="<%= imgPath%>images/flags/flagge_SM_big.gif"; width="20"; <% If laenderkuerzel = "yu" Then Response.Write("style='border:1px solid #000'")%>/><%=strSRBlang %></a>
|
|
</li>
|
|
<li style="transform: rotate(0);">
|
|
<!--<a id="ButtonBulgariaLangPicker" class="btn btn-primary btn-sm" href="<%'= navParent%>&lan=BG"><img src="<%'= imgPath%>images/flags/flagge_BG.gif" <%' If laenderkuerzel = "bg" Then Response.Write("style='border:1px solid #000'")%>/>BG</a>-->
|
|
<a id="ButtonBulgariaLangPicker2" href="<%= navParent%>&lan2=BG&lan3=0" class="stretched-link" style="text-decoration: none;"><img src="<%= imgPath%>images/flags/flagge_BG_big.gif"; width="20"; <% If laenderkuerzel = "bg" Then Response.Write("style='border:1px solid #000'")%>/><%=strBGlang %></a>
|
|
</li>
|
|
<li style="transform: rotate(0);">
|
|
<!--<a id="ButtonTürkeiLangPicker" class="btn btn-primary btn-sm" href="<%'= navParent%>&lan=TR"><img src="<%'= imgPath%>images/flags/flagge_TR.gif" <%' If laenderkuerzel = "yu" Then Response.Write("style='border:1px solid #000'")%>/>TR</a>-->
|
|
<a id="ButtonTürkeiLangPicker2" href="<%= navParent%>&lan2=TR&lan3=0" class="stretched-link" style="text-decoration: none;"><img src="<%= imgPath%>images/flags/flagge_TR_big.gif"; width="20";" <% If laenderkuerzel = "tr" Then Response.Write("style='border:1px solid #000'")%>/><%=strTRlang %></a>
|
|
</li>
|
|
</ul>
|
|
</div>
|
|
</div>
|
|
<!--<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>
|
|
<a href="<%'= navParent%>&lan2=EN"><img src="images/flags/flagge_GB.gif" style="border:1px solid #000;width:30px;"/></a>
|
|
<a href="<%'= navParent%>&lan2=SRB"><img src="images/flags/flagge_BIH.gif" style="border:1px solid #000;width:30px;"/></a>
|
|
<a href="<%'= navParent%>&lan2=SRB"><img src="images/flags/flagge_SM.gif" style="border:1px solid #000;width:30px;"/></a>
|
|
<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> -->
|
|
<%
|
|
End If
|
|
'Response.Write(DB2.qry_contentNew(menuID, lan)) %>
|
|
<br /><br />
|
|
<h4 style="display:inline"><%= LT.getTxt(1, lan, "Herzlich Willkommen bei VERAG Spedition AG!")%></h4>
|
|
<div id="line"></div>
|
|
<br /><br />
|
|
<%--Der Warenaustausch zwischen der Europäischen Union und Süd-Osteuropa ist mit aufwendigen und komplizierten Abläufen verbunden.--%>
|
|
<p> <%= LT.getTxt(2, lan, "Hier finden Sie Informationen zu Ihrem Sendungsstatus.")%> </p>
|
|
|
|
<!--<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>
|
|
Nehmen Sie sich etwas Zeit, um sich über unser umfangreiches Dienstleistungsangebot zu informieren! -->
|
|
<br />
|
|
|
|
<% '?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%>
|
|
|
|
<div class="d-md-none">
|
|
<table><tr> <td>
|
|
<tr><td style="/*width:150px*/ width:10.625em;width:37.44493392070485vw;"></td><td id="innerhtmltable"></td></tr>
|
|
<tr><td><b><%= LT.getTxt(3, lan, "LKW-Kennzeichen") %>:</b></td><td><span><%= AVISO.LKW_Nr %></span></td></tr>
|
|
<tr><td><b><%= LT.getTxt(14, lan, "LKW-ID") %>:</b></td><td style=" margin-left:12px;"><%= 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>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
|
|
%></span></td></tr> </td>
|
|
<tr style="/*height:10px*/height:0.7818608287724785vh;font-size:/*15px*/ 3.303964757709251vw;"></tr> <tr style="/*height:10px*/height:0.7818608287724785vh;font-size:/*15px*/ 3.303964757709251vw;"></tr>
|
|
<td>
|
|
<%
|
|
If AVISO.AvisoEingang <> VERAG_PROG_ALLGEMEIN.cAllgemein.LeerDatum Then Response.Write("<tr><td><b>" & LT.getTxt(13, lan, "Aviso-Eingang") & "</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") & ":</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") & "</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") & ":</td><td>" & AVISO.Freigabe & "</td></tr>") %>
|
|
</td>
|
|
</tr>
|
|
</table>
|
|
</div>
|
|
|
|
<div class="d-none d-md-block">
|
|
<div class="container-flex" style="flex-flow:nowrap;width:90%;/*margin-right:25px*//*margin-left:-2px;*/margin-left:-0.125em;margin-left: 0.2109704641350211vw">
|
|
<table style="width:100%" class="table-responsive" contenteditable="false"><tr> <td>
|
|
<table>
|
|
<!-- <tr><td style="/*width:150px;*/width:9.375em;width: 10.615711252653927vw"></td><td></td></tr>-->
|
|
<tr><td><b><%= LT.getTxt(3, lan, "LKW-Kennzeichen") %>:</b></td><td><span style="font-size:15px;"><%= AVISO.LKW_Nr %></span></td></tr>
|
|
<tr><td><b><%= LT.getTxt(14, lan, "LKW-ID") %>:</b></td><td><%= 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>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
|
|
%></span></td></tr>
|
|
</table>
|
|
</td>
|
|
|
|
<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>")
|
|
%>
|
|
</table>
|
|
</td>
|
|
</tr>
|
|
</table></div>
|
|
</div>
|
|
<%
|
|
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 %>
|
|
<!-- <div style="height:50px"></div>-->
|
|
<svg xmlns="http://www.w3.org/2000/svg" style="display: none;">
|
|
<symbol id="check-circle-fill" fill="currentColor" viewBox="0 0 16 16">
|
|
<path d="M16 8A8 8 0 1 1 0 8a8 8 0 0 1 16 0zm-3.97-3.03a.75.75 0 0 0-1.08.022L7.477 9.417 5.384 7.323a.75.75 0 0 0-1.06 1.06L6.97 11.03a.75.75 0 0 0 1.079-.02l3.992-4.99a.75.75 0 0 0-.01-1.05z"/>
|
|
</symbol>
|
|
</svg>
|
|
<p><div class="alert alert-success align-items-center" role="alert" style="width:98%;">
|
|
<svg class="bi shrink-0 me-2" width="3.125vw" height="1.875vh" role="img" aria-label="Success:"><use xlink:href="#check-circle-fill"/></svg>
|
|
<div>
|
|
<h2 class="alert-heading">Das Warten hat ein Ende!</h2>
|
|
<p> <%= LT.getTxt(16, lan, "Der LKW ist fertig, bitte kommen Sie zum Schalter!") %><p>
|
|
</div>
|
|
</div></p>
|
|
<!-- <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>-->
|
|
|
|
<% Elseif AVISO.Status = 3 Then %>
|
|
<div style="height:20px; height:1.25em; height:2.604166666666667vw"></div>
|
|
<!-- <h3><%'= LT.getTxt(17, lan, "Ihr LKW wird gerade bearbeitet!") %></h3> -->
|
|
<svg xmlns="http://www.w3.org/2000/svg" style="display: none;">
|
|
<symbol id="info-fill" fill="currentColor" viewBox="0 0 16 16">
|
|
<path d="M8 16A8 8 0 1 0 8 0a8 8 0 0 0 0 16zm.93-9.412-1 4.705c-.07.34.029.533.304.533.194 0 .487-.07.686-.246l-.088.416c-.287.346-.92.598-1.465.598-.703 0-1.002-.422-.808-1.319l.738-3.468c.064-.293.006-.399-.287-.47l-.451-.081.082-.381 2.29-.287zM8 5.5a1 1 0 1 1 0-2 1 1 0 0 1 0 2z"/>
|
|
</symbol></svg>
|
|
<p><div class="alert alert-primary d-flex align-items-center" role="alert" style="width:98%;">
|
|
<svg class="bi flex-shrink-0 me-2" width="3.125vw" height="1.875vh" role="img" aria-label="Info:"><use xlink:href="#info-fill"/></svg>
|
|
<div>
|
|
<h2 class="alert-heading">Bitte warten Sie!</h2>
|
|
<p><%=LT.getTxt(17, lan, "Ihr LKW wird gerade bearbeitet!") %></p>
|
|
</div>
|
|
</div></p>
|
|
<!-- <div class="alert alert-primary d-flex align-items-center" role="alert">
|
|
<svg class="bi flex-shrink-0 me-2" width="24" height="24" role="img" aria-label="Info:"><use xlink:href="#info-fill"/></svg>
|
|
<div>
|
|
<%'= 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.") %>
|
|
</div>
|
|
</div> -->
|
|
<!-- <div style="height:20px"></div>-->
|
|
<span style="display:inline-block; font-size:1em;font-size:16px;font-size:1em; width:/*375px;*/ 82.59911894273128vw;"><%= 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: 0.78064012490242vh"></div> <br />
|
|
<h2 style="display:inline">Allgemeine Vermerke</h2>
|
|
|
|
<div class="container-flex" style="flex-flow:nowrap;margin:inherit;">
|
|
<table class="tableStatus table-striped" border="1" cellspacing="0" contenteditable="false" style=" max-width:/*380px;*/ 83.70044052863436vw;"> <%
|
|
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=" & 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 style="border:0px solid white" colspan="4"><i><% Response.Write(CDate(r("Datum")).ToString("dd.MM.yyyy HH:mm") & ": " & V_LST.getTxt(r("VermerkeCode"), lan)) %></i></td></tr>
|
|
|
|
<% vermerkeUeberschrift = ""
|
|
Next
|
|
If VERMERKE_LKW.Rows().Count = 0 Then %> <tr class="tableStatusVermerke"><td style="border:0px solid white;align-items:flex-start" colspan="4"><i>Keine Vermerke vorhanden</i></td></tr>
|
|
<% End If
|
|
End If
|
|
%></table></div>
|
|
<div style="height: 0.78064012490242vh"></div> <br />
|
|
<h2><%= LT.getTxt(19, lan, "Sendungsliste!") %></h2>
|
|
</div>
|
|
|
|
<div id="conovertab">
|
|
<div class="container-flex" style="/*margin-right:25px*//*margin-right:1.563em;margin-right:2.6371308016877637vw;/*margin-left:-2px;*//*margin-left:-1.1em;margin-left: 1.2109704641350211vw*/">
|
|
<table class="tableStatus table-striped" id="tablemain" border="1" cellspacing="0" contenteditable="false">
|
|
<thead><tr><th>Infos</th><th> Status </th><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></tr></thead>
|
|
<%
|
|
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"" "
|
|
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 %>
|
|
<tr <% Response.Write(trBg) %> 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."><center><td></td><td <% Response.Write(statOK_style) %> > <% Response.Write(statOK) %> </td><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><!--</button>--></tr>
|
|
<%
|
|
Else
|
|
%>
|
|
<tr <% Response.Write(trBg) %> style="color:#043381;" <a href="#collapseExample" data-toggle="collapse" data-target="#demo<%=cnt %>" role="button" aria-expanded="false" aria-controls="collapseExample" data-bs-toggle="tooltip" data-bs-placement="top" title="Für zusätzliche Infos auf die Zeile oder das Info-Symbol tippen."><td><center><button type="button" class="btn btn-primary" data-toggle="collapse" data-target="#demo<%=cnt %>" id="togglecollapse"><img src="images/Icons/service/hilfe.png" width="15" height="15" /></button></center></td><td <% Response.Write(statOK_style) %> > <% Response.Write(statOK) %> </td><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></a><!--</button>--></tr>
|
|
<% 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
|
|
%>
|
|
<tr id="demo<%=cnt %>" class="collapse"><td colspan="7"><table style="min-width:100%;border-spacing:0px;border-inline:hidden;border:none;margin-inline:0px 0px;margin:0px 0px 0px 0px">
|
|
<%
|
|
Dim vermerkeUeberschrift = LT.getTxt(25, lan, "Probleme/Vermerke") & ":"
|
|
For Each r In VERMERKE.Rows()%>
|
|
<tr class="tableStatusVermerke" style="border:0px solid white; width:fit-content; align-items:start">
|
|
<!-- <td class="vermerkHeader" style="border:0px solid white;text-align:left;width:20%;">
|
|
<u><i><%' Response.Write(vermerkeUeberschrift) %></i></u>  </td>-->
|
|
<td class="vermerkeBody" style="border:0px solid white;text-align:left;width:80%;">
|
|
<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 %>
|
|
</table></td></tr>
|
|
<%
|
|
cnt += 1
|
|
Next
|
|
%>
|
|
|
|
</div></div><table><%
|
|
End If
|
|
End If
|
|
End If
|
|
%></table>
|
|
<%
|
|
|
|
Else
|
|
' Response.Write("<b>" & LT.getTxt(26, lan, "Der LKW konnte leider nicht gefunden werden!") & "</b>")
|
|
%>
|
|
<svg xmlns="http://www.w3.org/2000/svg" style="display: none;">
|
|
<symbol id="exclamation-triangle-fill" fill="currentColor" viewBox="0 0 16 16">
|
|
<path d="M8.982 1.566a1.13 1.13 0 0 0-1.96 0L.165 13.233c-.457.778.091 1.767.98 1.767h13.713c.889 0 1.438-.99.98-1.767L8.982 1.566zM8 5c.535 0 .954.462.9.995l-.35 3.507a.552.552 0 0 1-1.1 0L7.1 5.995A.905.905 0 0 1 8 5zm.002 6a1 1 0 1 1 0 2 1 1 0 0 1 0-2z"/>
|
|
</symbol>
|
|
</svg>
|
|
<p><div class="alert alert-danger align-items-center" role="alert" style="width:98%;">
|
|
<svg class="bi flex-shrink-0 me-2" width="3.125vw" height="1.875vh" role="img" aria-label="Danger:">
|
|
<use xlink:href="#exclamation-triangle-fill"/></svg>
|
|
<div>
|
|
<% Response.Write("<b>" & LT.getTxt(26, lan, "Der LKW konnte leider nicht gefunden werden!") & "</b>") %>
|
|
</div>
|
|
</div></p>
|
|
<!-- Wurde zu Debugzwecken eingebaut! Bitte aus Datenschutzgründen: MUSS in der PRODUKTIV-Version auskommentiert werden!!!-->
|
|
<br/>
|
|
<br/>
|
|
<h2>Bei Fehlern bitte den Panel-Button betätigen!</h2>
|
|
<br />
|
|
<br/>
|
|
<br/>
|
|
<p>
|
|
<a id="ButtonPanel" class="btn btn-primary btn-lg" href="AvisoTV_Flex.aspx?&lan2=<%=lan %>" style="background-color:#fff; color:#043381;">Panel </a>
|
|
</p>
|
|
<%
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
Response.Write(ex.Message & ex.StackTrace)
|
|
End Try
|
|
%>
|
|
</div> <br /><br /><br /><br /><div id="abstand"></div> <div id="abstand"></div>
|
|
<!-- <div style="height:150px; place-self:safe center">-->
|
|
|
|
<%-- <div class="footer_menu">
|
|
<div class="footer_menu_content">
|
|
<table>
|
|
<tr>
|
|
</tr>
|
|
</table>
|
|
</div>
|
|
</div>--%>
|
|
<div class="footer">
|
|
<div class="footer_content"><b>VERAG Spedition AG</b> A-4975 Suben 100 Tel.: +43 7711 2777-0, Fax: +43 7711 31600, email: info@verag.ag</div>
|
|
</div>
|
|
</div>
|
|
</div>
|
|
</form>
|
|
</div>
|
|
</span>
|
|
<!-- <script type="text/javascript" src="js/toptions/top_up-min.js"></script>-->
|
|
<!-- Popper.JS -->
|
|
<script src="https://cdnjs.cloudflare.com/ajax/libs/popper.js/1.14.0/umd/popper.min.js" integrity="sha384-cs/chFZiN24E4KMATLdqdvsezGxaGsi4hLGOzlXwp5UZB1LY//20VyM2taTB4QvJ" crossorigin="anonymous"></script>
|
|
<!-- jQuery Custom Scroller CDN -->
|
|
<script src="https://cdnjs.cloudflare.com/ajax/libs/malihu-custom-scrollbar-plugin/3.1.5/jquery.mCustomScrollbar.concat.min.js"></script>
|
|
<script src="//code.jquery.com/jquery-1.11.1.min.js"></script>
|
|
|
|
</body> |