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

Bildbutton in Table eingefügt und Tabelle angepasst mit Spaltenreihenfolge und Namen sowie Anpassung der Überschriften

Browse Source
This commit is contained in:
ja
2021-09-15 15:11:43 +02:00
parent 99c95fa3b7
commit 437074ebce
3 changed files with 25 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
Customers/CustomsAviso.aspx.vb
View File

@@ -176,6 +176,25 @@ Partial Class Kundenbereich_Default
tr.Cells.Add(tbl_CellEmpfaenger) tr.Cells.Add(tbl_CellEmpfaenger)
tbl_CellKundAuftNr.Text = d("KdAuftragsNr_Avisierer").ToString tbl_CellKundAuftNr.Text = d("KdAuftragsNr_Avisierer").ToString
tr.Cells.Add(tbl_CellKundAuftNr) tr.Cells.Add(tbl_CellKundAuftNr)
Dim btn2 As New ImageButton
btn2.ImageUrl = "../images/Icons/service/hilfe_small.png"
btn2.CssClass = "btn btn-primary"
btn2.ViewStateMode = ViewStateMode.Disabled
btn2.PostBackUrl = "../status_Julius.aspx?Par1=" + KDNAFNR.ToString
Dim btn As New Button
btn.ViewStateMode = ViewStateMode.Disabled
btn.Text = "Text"
btn.CssClass = "btn btn-primary"
btn.Attributes.Add("Text", <img src="../images/Icons/service/hilfe.png" width="15" height="15"/>)
btn.PostBackUrl = "../status_Julius.aspx?Par1=" + KDNAFNR
tbl_CellInfo.Controls.Add(btn2)
tr.Cells.Add(tbl_CellInfo)
If rbt_Ankunft.Selected = True AndAlso tbl_CellStatus.Text = "Ankunft" Then If rbt_Ankunft.Selected = True AndAlso tbl_CellStatus.Text = "Ankunft" Then
normaltable.Rows.Add(tr) normaltable.Rows.Add(tr)
ElseIf rbt_Erf.Selected = True AndAlso tbl_CellStatus.Text = "Erfasst" Then ElseIf rbt_Erf.Selected = True AndAlso tbl_CellStatus.Text = "Erfasst" Then
@@ -190,11 +209,15 @@ Partial Class Kundenbereich_Default
normaltable.Rows.Add(tr) normaltable.Rows.Add(tr)
End If End If
i += 1 i += 1
Next Next
End If End If
End Sub End Sub
Protected Sub btimg_Click(sender As Object, e As EventArgs)
End Sub
Protected Sub btn_resetForm_Click(sender As Object, e As EventArgs) Protected Sub btn_resetForm_Click(sender As Object, e As EventArgs)
rbt_Ankunft.Selected = False rbt_Ankunft.Selected = False

BIN
images/Icons/service/hilfe_small.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.3 KiB

2
status_Julius.aspx
View File

@@ -458,6 +458,8 @@
<% <%
Else Else
%> %>
<tr <% Response.Write(trBg) %> style="color:#043381;" <a href="#collapseExample" data-toggle="collapse" data-target="#demo<%=cnt %>" role="button" aria-expanded="false" aria-controls="collapseExample" data-bs-toggle="tooltip" data-bs-placement="top" title="Für zusätzliche Infos auf die Zeile oder das Info-Symbol tippen."><td><center>
<button type="button" class="btn btn-primary" data-toggle="collapse" data-target="#demo<%=cnt %>" id="togglecollapse"><img src="images/Icons/service/hilfe.png" width="15" height="15" /></button></center></td><td <% Response.Write(statOK_style) %> > <% Response.Write(statOK) %> </td><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></a><!--</button>--></tr>
<tr <% Response.Write(trBg) %> style="color:#043381;" <a href="#collapseExample" data-toggle="collapse" data-target="#demo<%=cnt %>" role="button" aria-expanded="false" aria-controls="collapseExample" data-bs-toggle="tooltip" data-bs-placement="top" title="Für zusätzliche Infos auf die Zeile oder das Info-Symbol tippen."><td><center><button type="button" class="btn btn-primary" data-toggle="collapse" data-target="#demo<%=cnt %>" id="togglecollapse"><img src="images/Icons/service/hilfe.png" width="15" height="15" /></button></center></td><td <% Response.Write(statOK_style) %> > <% Response.Write(statOK) %> </td><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></a><!--</button>--></tr> <tr <% Response.Write(trBg) %> style="color:#043381;" <a href="#collapseExample" data-toggle="collapse" data-target="#demo<%=cnt %>" role="button" aria-expanded="false" aria-controls="collapseExample" data-bs-toggle="tooltip" data-bs-placement="top" title="Für zusätzliche Infos auf die Zeile oder das Info-Symbol tippen."><td><center><button type="button" class="btn btn-primary" data-toggle="collapse" data-target="#demo<%=cnt %>" id="togglecollapse"><img src="images/Icons/service/hilfe.png" width="15" height="15" /></button></center></td><td <% Response.Write(statOK_style) %> > <% Response.Write(statOK) %> </td><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></a><!--</button>--></tr>
<% End If <% 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") 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")