370 lines
22 KiB
Plaintext
370 lines
22 KiB
Plaintext
<%@ Page Language="VB" Debug="true" AutoEventWireup="false" CodeFile="status.aspx.vb" Inherits="_Default" %>
|
|
|
|
<!DOCTYPE html>
|
|
|
|
<html xmlns="http://www.w3.org/1999/xhtml">
|
|
<head>
|
|
<%@ 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>
|
|
|
|
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
|
|
<title>VERAG Spedition AG</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>
|
|
</head>
|
|
<body >
|
|
<!-- <a href="login/login_TEST.aspx" style="position:absolute;left:10px;top:10px;">LOGIN</a>-->
|
|
<form id="leftLinks" runat="server">
|
|
<!--<a href="sendFeedback.aspx" toptions="type = iframe, effect = fade, width = 500, height = 500, overlayClose = 1,shaded=0, layout = flatlook" style='padding:0px;margin:0px;width:50px;height:11px;color:#fff;text-decoration: none;'>
|
|
<div class="feedback">
|
|
<div class="feedback_txt">
|
|
Feedback
|
|
</div>
|
|
</div>
|
|
</a>
|
|
<a href="sendFeedback.php" toptions="type = iframe, effect = fade, width = 500, height = 500, overlayClose = 1,shaded=0, layout = flatlook" style='padding:0px;margin:0px;width:50px;height:11px;color:#fff;text-decoration: none;'>
|
|
<div class="aviso">
|
|
<div class="aviso_txt">
|
|
<nobr>Neues Aviso</nobr>
|
|
</div>
|
|
</div>
|
|
</a>
|
|
-->
|
|
<div id="bodycontent">
|
|
|
|
<div id="nav-main">
|
|
<div id="art-logo"></div>
|
|
</div>
|
|
|
|
<div id="main-menu">
|
|
</div>
|
|
|
|
|
|
<div id="main-page">
|
|
<div class="pagecontent">
|
|
<div class="content_all"><div class="content_all">
|
|
|
|
|
|
<%
|
|
'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")
|
|
|
|
%>
|
|
|
|
<!--<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)) %>
|
|
</div>
|
|
|
|
|
|
<span class="content_all">
|
|
|
|
|
|
|
|
|
|
|
|
<h1><%= 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.")%>
|
|
<!--<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><br><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
|
|
|
|
%>
|
|
|
|
<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 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 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
|
|
%></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>
|
|
<%
|
|
|
|
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>
|
|
<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"></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>
|
|
|
|
<% End If %>
|
|
|
|
<div style="height:30px"></div>
|
|
<h1><%= 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>
|
|
|
|
<%
|
|
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
|
|
|
|
%>
|
|
<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>
|
|
<%
|
|
|
|
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()
|
|
|
|
%>
|
|
<tr class="tableStatusVermerke"><td colspan="3" class="vermerkHeader"><u><i><% Response.Write(vermerkeUeberschrift) %></i></u>  </td> <td style="border:0px solid white" colspan="3"><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
|
|
|
|
cnt += 1
|
|
Next
|
|
%></table><table> <%
|
|
|
|
|
|
|
|
|
|
End If
|
|
End If
|
|
End If
|
|
%></table></span><%
|
|
Else
|
|
Response.Write("<b>" & LT.getTxt(26, lan, "Der LKW konnte leider nicht gefunden werden!") & "</b>")
|
|
End If
|
|
|
|
|
|
|
|
Catch ex As Exception
|
|
Response.Write(ex.Message & ex.StackTrace)
|
|
|
|
End Try
|
|
|
|
%>
|
|
<div style="height:150px;"></div>
|
|
</div>
|
|
</div>
|
|
</div>
|
|
</div>
|
|
</div>
|
|
|
|
<%-- <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>
|
|
|
|
</form>
|
|
|
|
</body>
|
|
|
|
</html>
|