diff --git a/AvisoTV_FLEX.aspx b/AvisoTV_FLEX.aspx index 5abe476..64d6f9d 100644 --- a/AvisoTV_FLEX.aspx +++ b/AvisoTV_FLEX.aspx @@ -233,7 +233,7 @@ } li { - list-style-type: none; + list-style-type: none; } @media (max-width: 768px){ table { @@ -253,7 +253,7 @@ max-width: 17.692852087756545vw; } #normaltable { - font-size: 1.125em; + font-size:1.188em; padding-left: - 0.125em; } } @@ -297,8 +297,7 @@ - - +
--> -
+
-
-
- +
+
<% ' Dim lan As String = Request.QueryString("lan") 'If lan = "" Then lan = "de" @@ -443,26 +441,23 @@ %> -
+
-
Sprachauswahl:
@@ -563,6 +557,7 @@ <% '?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 @@ -712,61 +707,61 @@
- +
<% - For Each s In SENDUNG_LIST - Dim sndDat As String = "" '"" & s.tblSnd_Abfertigungsart_ID & "" - sndDat &= "
" - If IsNumeric(s.tblSnd_Colli) Then sndDat &= "" & s.tblSnd_Colli & " Pk
" - If IsNumeric(s.tblSnd_Gewicht) Then sndDat &= "" & s.tblSnd_Gewicht & " kg" - sndDat &= "
" - '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 = "" + For Each s In SENDUNG_LIST + Dim sndDat As String = "" '"" & s.tblSnd_Abfertigungsart_ID & "" + sndDat &= "
" + If IsNumeric(s.tblSnd_Colli) Then sndDat &= "" & s.tblSnd_Colli & " Pk
" + If IsNumeric(s.tblSnd_Gewicht) Then sndDat &= "" & s.tblSnd_Gewicht & " kg" + sndDat &= "
" + '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 = "" & s.tblSnd_FremdspeditionText & "" - trBg = " class=""fremdspedition""" - Else - If s.FilialenNr > 0 Then txtCluster = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(s.FilialenNr, False) - If txtCluster <> "" Then - txtCluster = "" & txtCluster & "
" - txtCluster &= "" & If(s.FilialenNr > 0, s.FilialenNr, "") & "/" & If(s.AbfertigungsNr > 0, s.AbfertigungsNr, "") & "" - End If - End If + If s.tblSnd_Fremdspedition Then + txtCluster = "" & s.tblSnd_FremdspeditionText & "" + trBg = " class=""fremdspedition""" + Else + If s.FilialenNr > 0 Then txtCluster = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(s.FilialenNr, False) + If txtCluster <> "" Then + txtCluster = "" & txtCluster & "
" + txtCluster &= "" & If(s.FilialenNr > 0, s.FilialenNr, "") & "/" & If(s.AbfertigungsNr > 0, s.AbfertigungsNr, "") & "" + End If + End If - Dim statOK = "•••" '"···" - Dim statOK_style = " class=""statusNONE"" " - If AVISO.Status = 1 Or (s.tblSnd_Vorgeschrieben IsNot Nothing) Then 'IsNot Nothing And s.tblSnd_Vorbereitet IsNot Nothing) Then - statOK = "OK" : statOK_style = " class=""statusOK"" " - ElseIf s.tblSnd_Vorbereitet Is Nothing Then - statOK_style = " class=""statusPROBLEM"" " - statOK = "PROBLEM" - End If - If s.tblSnd_Fremdspedition Then - statOK_style = " class=""statusUNDEF"" " - statOK = "-" - End If + Dim statOK = "•••" '"···" + Dim statOK_style = " class=""statusNONE"" " + If AVISO.Status = 1 Or (s.tblSnd_Vorgeschrieben IsNot Nothing) Then 'IsNot Nothing And s.tblSnd_Vorbereitet IsNot Nothing) Then + statOK = "OK" : statOK_style = " class=""statusOK"" " + ElseIf s.tblSnd_Vorbereitet Is Nothing Then + statOK_style = " class=""statusPROBLEM"" " + statOK = "PROBLEM" + End If + If s.tblSnd_Fremdspedition Then + statOK_style = " class=""statusUNDEF"" " + statOK = "-" + End If %> <% - 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."> <% 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 + <% 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 %> -
<%= LT.getTxt(20, lan, "Nr.") %><%= LT.getTxt(21, lan, "Spedition/PosNr") %><%= LT.getTxt(22, lan, "Sendungsdaten") %><%= LT.getTxt(23, lan, "Absender") %><%= LT.getTxt(24, lan, "Empfänger") %> Status Infos
<% Response.Write(cnt) %>
 <% Response.Write(txtCluster)%> <% Response.Write(sndDat) %> <% Response.Write(If(s.tblSnd_Absender, "")) %> <% Response.Write(If(s.tblSnd_Empfaenger, "")) %> > <% Response.Write(statOK) %>
<% Response.Write(cnt) %>
 <% Response.Write(txtCluster)%> <% Response.Write(sndDat) %> <% Response.Write(If(s.tblSnd_Absender, "")) %> <% Response.Write(If(s.tblSnd_Empfaenger, "")) %> > <% Response.Write(statOK) %>
+ @@ -819,6 +814,7 @@

<% End If + Catch ex As Exception Response.Write(ex.Message & ex.StackTrace) End Try @@ -850,4 +846,4 @@ - + \ No newline at end of file
<% Dim vermerkeUeberschrift = LT.getTxt(25, lan, "Probleme/Vermerke") & ":" For Each r In VERMERKE.Rows()%> @@ -777,7 +772,7 @@ <% Response.Write(CDate(r("Datum")).ToString("dd.MM.yyyy HH:mm") & ": " & V_LST.getTxt(r("VermerkeCode"), lan)) %> <% vermerkeUeberschrift = "" - Next %> + Next %> <% End If %>