verwahrung

This commit is contained in:
2026-04-21 11:06:02 +02:00
parent aa7f2083e0
commit b846a8e00c

View File

@@ -1177,7 +1177,7 @@ Anzeige:
TextHTMLtable &= typ & " wurde aus DAKOSY generiert!" & vbNewLine & vbNewLine & vbNewLine TextHTMLtable &= typ & " wurde aus DAKOSY generiert!" & vbNewLine & vbNewLine & vbNewLine
TextHTMLtable &= "<table border=1>" TextHTMLtable &= "<table border=1>"
TextHTMLtable &= "<tr><td>PosNr</td><td>MRN</td><td>ATC</td>" & IIf(sonstigeMRNNR <> "", "<td>sonstige MRN</td>", "") & "<td>AVISOID</td><td>LKW-KZ</td></tr>" TextHTMLtable &= "<tr><td>PosNr</td><td>MRN</td><td>ATC</td>" & IIf(sonstigeMRNNR <> "", "<td>sonstige MRN</td>", "") & "<td>AVISOID</td><td>LKW-KZ</td><td>Packstücke</td><td>Gewicht in KG</td></tr>"
If GSPOS IsNot Nothing Then If GSPOS IsNot Nothing Then
TextHTMLtable &= "<tr>" TextHTMLtable &= "<tr>"
@@ -1192,6 +1192,12 @@ Anzeige:
Else Else
TextHTMLtable &= "<td><b> - </b></td>" TextHTMLtable &= "<td><b> - </b></td>"
End If End If
TextHTMLtable &= "<td><b>" & GSPOS.gsp_EH_Anzahl & "</b></td>"
If gs_row IsNot Nothing AndAlso Not IsDBNull(gs_row("gs_gewicht")) AndAlso gs_row("gs_gewicht") <> "" Then
TextHTMLtable &= "<td><b>" & gs_row("gs_gewicht").ToString & "</b></td>"
Else
TextHTMLtable &= "<td><b> - </b></td>"
End If
TextHTMLtable &= "</tr>" TextHTMLtable &= "</tr>"