| Infos | Status | <%Response.Write(LT.getTxt(20, lan, "Nr.")) %> | <%Response.Write(LT.getTxt(21, lan, "Spedition/PosNr")) %> | <%Response.Write(LT.getTxt(22, lan, "Sendungsdaten")) %> | <%Response.Write(LT.getTxt(23, lan, "Absender")) %> | <%Response.Write(LT.getTxt(24, lan, "Empfänger")) %> |
|---|
<%
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
VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_FILIALEN()
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 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 %>
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(statOK) %> | <% Response.Write(cnt) %> | <% Response.Write(txtCluster)%> | <% Response.Write(sndDat) %> | <% Response.Write(If(s.tblSnd_Absender, "")) %> | <% Response.Write(If(s.tblSnd_Empfaenger, "")) %> |
<%
Else
%>
style="color:#043381;" | > <% Response.Write(statOK) %> | <% Response.Write(cnt) %> | <% Response.Write(txtCluster)%> | <% Response.Write(sndDat) %> | <% Response.Write(If(s.tblSnd_Absender, "")) %> | <% Response.Write(If(s.tblSnd_Empfaenger, "")) %> |
<% 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(CDate(r("Datum")).ToString("dd.MM.yyyy HH:mm") & ": " & V_LST.getTxt(r("VermerkeCode"), lan)) %>
|
<% vermerkeUeberschrift = ""
Next %>
<%
End If %>
|
<%
cnt += 1
Next
%>
<%
End If
End If
End If
%>
<%
Else
' Response.Write("" & LT.getTxt(26, lan, "Der LKW konnte leider nicht gefunden werden!") & "")
%>
<% Response.Write("" & LT.getTxt(26, lan, "Der LKW konnte leider nicht gefunden werden!") & "") %>
Bei Fehlern bitte den Panel-Button betätigen!
Panel
<%
End If
Catch ex As Exception
Response.Write(ex.Message & ex.StackTrace)
End Try
%>
<%-- --%>