diff --git a/status_Julius.aspx b/status_Julius.aspx index 466a91f..b508576 100644 --- a/status_Julius.aspx +++ b/status_Julius.aspx @@ -621,7 +621,7 @@ --> - <%= 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.
Bei Status ""OK"" können Sie an den Schalter kommen.") %> + <%= 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.
Bei Status ""OK"" können Sie an den Schalter kommen.") %> <% End If %>
@@ -666,45 +666,40 @@ 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 + %> + + <% + 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 %> + If vermerkcount.Count = 0 Then %> 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.">
<% Response.Write(cnt) %>
<% Response.Write(txtCluster)%> <% Response.Write(sndDat) %> <% Response.Write(If(s.tblSnd_Absender, "")) %> <% Response.Write(If(s.tblSnd_Empfaenger, "")) %> > <% Response.Write(statOK) %> - <% + <% Else %> style="color:#043381;" <% 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 - Dim vermerkeUeberschrift = LT.getTxt(25, lan, "Probleme/Vermerke") & ":" - For Each r In VERMERKE.Rows() %> -
- - - <% Response.Write(vermerkeUeberschrift) %> -    - - <% Response.Write(CDate(r("Datum")).ToString("dd.MM.yyyy HH:mm") & ": " & V_LST.getTxt(r("VermerkeCode"), lan)) %> - -
- - <% vermerkeUeberschrift = "" - Next %> + If VERMERKE IsNot Nothing Then + %> <% + Dim vermerkeUeberschrift = LT.getTxt(25, lan, "Probleme/Vermerke") & ":" + For Each r In VERMERKE.Rows() + %> + + <% vermerkeUeberschrift = "" + Next %> <% - End If %> + End If %> <% - cnt += 1 - Next + cnt += 1 + Next %> -
<% Response.Write(vermerkeUeberschrift) %>   + + <% Response.Write(CDate(r("Datum")).ToString("dd.MM.yyyy HH:mm") & ": " & V_LST.getTxt(r("VermerkeCode"), lan)) %> +
<% + +
<% End If End If End If @@ -724,7 +719,7 @@ <% Response.Write("" & LT.getTxt(26, lan, "Der LKW konnte leider nicht gefunden werden!") & "") %> - +

Bitte bei Fehlern den Panel-Button betätigen!


@@ -747,10 +742,7 @@
- - - - + <%--
@@ -763,15 +755,11 @@
VERAG Spedition AG    A-4975 Suben 100    Tel.: +43 7711 2777-0,  Fax: +43 7711 31600,  email: info@verag.ag
- - - - + + - - + - - +