<%@ 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 = "&nbsp  DE"
                                                      Dim stringEN = "&nbsp  EN"
                                                      Dim stringBIH = "&nbsp BIH"
                                                      Dim stringSRB = "&nbsp SRB"
                                                      Dim stringBG = "&nbsp  BG"
                                                      Dim stringTR = "&nbsp  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 = "&nbsp Deutsch"
                                                              Dim strENlang = "&nbsp Englisch"
                                                              Dim strBIHLang = "&nbsp Bosnisch"
                                                              Dim strSRBlang = "&nbsp Serbisch"
                                                              Dim strBGlang = "&nbsp Bulgarisch"
                                                              Dim strTRlang = "&nbsp 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">&nbsp;&nbsp; <%'=  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
                                                                  VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_FILIALEN()
                                                                  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 = "&bullet;&bullet;&bullet;" '"&middot;&middot;&middot;"
                                                              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>&nbsp&nbsp</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> &nbsp;&nbsp; A-4975 Suben 100 &nbsp;&nbsp; Tel.: +43 7711 2777-0,&nbsp;&nbsp;Fax: +43 7711 31600,&nbsp;&nbsp;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>    