edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Responsive Julius Version1

Browse Source
This commit is contained in:
ja
2021-07-28 16:37:28 +02:00
parent 7937ab972e
commit 16b4f4e6b7
145 changed files with 122829 additions and 603 deletions
Download Patch File Download Diff File Expand all files Collapse all files

110
AvisoTV.aspx
View File

@@ -148,69 +148,59 @@
<br><br><br>
<% '?key=hello%20world
Try
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
'Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(799124)
Dim VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL
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)
Dim STANDORT = "SUB"
If (Request.QueryString.Count > 0) AndAlso (Request.QueryString("STANDORT") IsNot Nothing) Then
'Response.Write(AD.Ordnungsbegriff)
Dim STANDORT = "SUB"
If (Request.QueryString.Count > 0) AndAlso (Request.QueryString("STANDORT") IsNot Nothing) Then
Try
STANDORT = (Request.QueryString("STANDORT"))
Catch ex As Exception
STANDORT = "SUB"
End Try
End If
If True Then
Try
STANDORT = (Request.QueryString("STANDORT"))
Catch ex As Exception
STANDORT = "SUB"
End Try
End If
If True Then
Dim AVISO_dt As System.Data.DataTable = VERAG_PROG_ALLGEMEIN.cAviso.getAVISO_List(STANDORT)
If AVISO_dt IsNot Nothing Then
Dim AVISO_dt As System.Data.DataTable = VERAG_PROG_ALLGEMEIN.cAviso.getAVISO_List(STANDORT)
If True Then 'AVISO.Status <> 1 And AVISO.Status <> 2 Then 'SENDUNGSTABELLE
If AVISO_dt IsNot Nothing Then
If True Then 'AVISO.Status <> 1 And AVISO.Status <> 2 Then 'SENDUNGSTABELLE
%>
<h1><% =STANDORT %></h1>
<table class="tableStatus" border="8" cellspacing="0" >
<tr><th>Nr.</th><th>LKW Kennzeichen</th><th>Frächter</th><th>Avisierer</th><th>Ankunft</th><th>Dauer </th><th>LKW fertig</th></tr>
<tr><th>Nr.</th><th>LKW Kennzeichen</th><th>Frächter</th><th>Avisierer</th><th>Ankunft</th><th>Dauer </th><th>LKW fertig</th></tr>
<%
Dim cnt = 0
For Each AVISO_ROW In AVISO_dt.Rows
Dim dauer = ""
If AVISO_ROW("Ankunft") IsNot DBNull.Value Then
Dim rMinute = DateDiff(DateInterval.Minute, CDate(AVISO_ROW("Ankunft")), Now)
Dim m_TimeSpan As TimeSpan = New TimeSpan(0, rMinute, 0)
dauer = Format((m_TimeSpan.Days * 24) + m_TimeSpan.Hours, "0") & " Std. " & Format(m_TimeSpan.Minutes, "00") & " min"
End If
Dim statOK_style = "" '" class=""statusNONE"" "
If AVISO_ROW("LKW_Fertig") = "OK" Then 'IsNot Nothing And s.tblSnd_Vorbereitet IsNot Nothing) Then
statOK_style = " class=""statusOK"" "
End If
Dim cnt = 0
For Each AVISO_ROW In AVISO_dt.Rows
Dim dauer = ""
If AVISO_ROW("Ankunft") IsNot DBNull.Value Then
Dim rMinute = DateDiff(DateInterval.Minute, CDate(AVISO_ROW("Ankunft")), Now)
Dim m_TimeSpan As TimeSpan = New TimeSpan(0, rMinute, 0)
dauer = Format((m_TimeSpan.Days * 24) + m_TimeSpan.Hours, "0") & " Std. " & Format(m_TimeSpan.Minutes, "00") & " min"
End If
Dim statOK_style = "" '" class=""statusNONE"" "
If AVISO_ROW("LKW_Fertig") = "OK" Then 'IsNot Nothing And s.tblSnd_Vorbereitet IsNot Nothing) Then
statOK_style = " class=""statusOK"" "
End If
%>
<tr><td><center><% Response.Write(cnt + 1) %></center></td><td><% Response.Write(AVISO_ROW("LKW_Nr"))%> </td><td><% Response.Write(AVISO_ROW("Frächter")) %> </td><td><% Response.Write(AVISO_ROW("Auftraggeber")) %></td><td><% Response.Write(AVISO_ROW("Ankunft")) %></td><td><% Response.Write(dauer) %></td><td <%=statOK_style %>><% Response.Write(AVISO_ROW("LKW_Fertig")) %></td></tr>
<%
cnt += 1
Next
cnt += 1
Next
%></table> <%
End If
End If
End If
Catch ex As Exception
Response.Write(ex.Message & ex.StackTrace)
End If
End If
End If
Catch ex As Exception
Response.Write(ex.Message & ex.StackTrace)
End Try
End Try
%>
<div style="height:150px;"></div>
</div>
@@ -220,26 +210,16 @@
</div>
<%-- <div class="footer_menu">
<div class="footer_menu_content">
<table>
<div class="footer_menu_content">
<table>
<tr>
</tr>
</table>
</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>
</div>
</form>
</body>
</html>