<%@ 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>  
    <style>
        .bg-light{
            background-color:#fff;
        }
    </style>
              </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") & ":&nbsp;&nbsp;<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") & ":&nbsp;&nbsp;<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") & ":&nbsp;&nbsp;<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") & ":&nbsp;&nbsp;<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">&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"></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 = "&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

                                                                       %>
                                                                                <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>&nbsp&nbsp</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> &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>  
    
        </form>
    
    </body>
    
</html>
