Projektdateien hinzufügen.

2019-08-07 12:29:10 +02:00
parent 4008832285
commit 1e9039b6ea
251 changed files with 90001 additions and 0 deletions
--- a/UID/Reports/TransportAuftrag/subrptTrip.vb
+++ b/UID/Reports/TransportAuftrag/subrptTrip.vb
@@ -0,0 +1,95 @@
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+
+Public Class subrptTrip
+
+    Dim i As Integer = 0
+    Property auftraglist As New List(Of cDispoAuftraege)
+
+    Private Sub subrptTrip_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
+
+        DataSource = auftraglist
+
+    End Sub
+
+    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+        Line3.Visible = True
+        Shape1.Height = 0
+
+        Dim subrpt_Ladestelle As New subrptTransportauftragLadestelle
+        subrpt_Ladestelle.Printauftrag = auftraglist(i)
+
+        Dim subrpt_Ladung As New subrptTransportauftragLadung
+        'subrpt_Ladung.DataSource = auftraglist(i).LADUNGEN
+        subrpt_Ladung.PrintAuftrag = auftraglist(i)
+
+
+        Me.subrptTransportauftragLadestelle.Report = subrpt_Ladestelle
+        Me.subrptTransportauftragLadung.Report = subrpt_Ladung
+
+        txtFrachtPosNr.Text = "Frachtposition: " & auftraglist(i).atr_frachtpos
+
+        txtBemerkung.Text = auftraglist(i).atr_bemerkung
+        'If auftraglist(i).atr_bemerkung = "" Then txtBemTitel.Visible = False
+        txtVerzollungsadresse.Text = auftraglist(i).atr_verzollungsadresse
+        'If auftraglist(i).atr_verzollungsadresse = "" Then txtVerzollTitel.Visible = False
+        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
+
+        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
+
+            Shape1.Height = Detail.Height - 0.1
+            Line3.Visible = True
+        Else
+            Shape1.Height = subrptTransportauftragLadung.Location.Y + subrptTransportauftragLadung.Height - 0.15
+            Line3.Visible = False
+        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
+
+    End Sub
+
+    Private Sub Detail_Disposed(sender As Object, e As EventArgs) Handles Detail.Disposed
+
+
+        ' Detail.Height = dh + 0.3
+    End Sub
+End Class