SQL Server Anpassungen, Reports repariert

UID/Reports/TransportAuftrag/subrptTrip.vb

@@ -13,6 +13,8 @@ Public Class subrptTrip
     End Sub
 
     Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+        ' txtBemTitel.Visible = True : txtVerzollTitel.Visible = True : txtFrachtkoTitel.Visible = True
+
         Line3.Visible = True
         Shape1.Height = 0
 
@@ -36,33 +38,16 @@ Public Class subrptTrip
         txtFrachtkosten.Text = auftraglist(i).atr_frachtkosten
         'If auftraglist(i).atr_frachtkosten = "" Then txtFrachtkoTitel.Visible = False
 
-        If Not txtBemerkung.Text = "" Then
-            txtBemTitel.Visible = True
-        Else
-            txtBemTitel.Visible = False
-        End If
-        If Not txtVerzollungsadresse.Text = "" Then
-            txtVerzollTitel.Visible = True
-        Else
-            txtVerzollTitel.Visible = False
-        End If
-        If Not txtFrachtkosten.Text = "" Then
-            txtFrachtkoTitel.Visible = True
-        Else
-            txtFrachtkoTitel.Visible = False
-        End If
-        'If txtVerzollTitel.Visible = False And txtBemTitel.Visible = False Then
-        '    Line3.Visible = False
-        'Else
-        '    Line3.Visible = True
-        'End If
+        If auftraglist(i).atr_bemerkung.ToString.Length = 0 Then txtBemerkung.Text = "---"
+        If auftraglist(i).atr_verzollungsadresse.ToString.Length = 0 Then txtVerzollungsadresse.Text = "---"
+        If auftraglist(i).atr_frachtkosten.ToString.Length = 0 Then txtFrachtkosten.Text = "---"
 
         i = i + 1
     End Sub
 
     Private Sub Detail_BeforePrint(sender As Object, e As EventArgs) Handles Detail.BeforePrint
         Dim dh As Integer = Detail.Height
-        'Shape1.Height = Detail.Height - 0.2
+
 
         If Not txtBemerkung.Text = "" Or Not txtVerzollungsadresse.Text = "" Or Not txtFrachtkosten.Text = "" Then
 
@@ -74,13 +59,6 @@ Public Class subrptTrip
         End If
 
 
-
-        'If Line3.Visible = False Then
-        '    Shape1.Height = subrptTransportauftragLadung.Location.Y + subrptTransportauftragLadung.Height - 0.15
-        'Else
-        '    'Shape1.Height = txtEnd.Location.Y 'dh' - 0.1
-        '    Shape1.Height = Detail.Height - 0.2
-
     End Sub
 
     Private Sub Detail_AfterPrint(sender As Object, e As EventArgs) Handles Detail.AfterPrint