Projektdateien hinzufügen.

UID/Reports/TransportAuftrag/subrptTransportauftragLadung.vb

@@ -0,0 +1,36 @@
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+
+Public Class subrptTransportauftragLadung
+    Property PrintAuftrag As cDispoAuftraege = Nothing
+
+    Private Sub subrptTransportauftragLadung_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
+
+        Me.DataSource = PrintAuftrag.LADUNGEN
+
+    End Sub
+
+    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+        Try
+            txtZeichen.Text = Fields.Item("lad_ZeNr").Value
+            txtAnzahl.Text = Fields.Item("lad_Anzahl").Value
+            txtArt.Text = Fields.Item("lad_Art").Value
+            txtBezeichnung.Text = Fields.Item("lad_Bezeichnung").Value
+            txtStatNr.Text = Fields.Item("lad_StatNr").Value
+            txtBruttoKG.Text = Fields.Item("lad_BruttoKg").Value
+            txtUmfang.Text = Fields.Item("lad_Umfang").Value
+            'txtZeichen.Text = Fields.Item("ZeNr").Value
+            'txtAnzahl.Text = Fields.Item("AnzPack").Value
+            'txtArt.Text = Fields.Item("Art").Value
+            'txtBezeichnung.Text = Fields.Item("Bez").Value
+            'txtStatNr.Text = Fields.Item("Stat").Value
+            'txtBruttoKG.Text = Fields.Item("BruttoKg").Value
+            'txtUmfang.Text = Fields.Item("Umfang").Value
+            'txtAnzahl.Text = Fields.Item("Anzahl").Value
+        Catch ex As Exception
+            'MsgBox(ex.Message)
+            MsgBox("Keine Ladung vorhanden:" & PrintAuftrag.atr_frachtpos)
+        End Try
+
+    End Sub
+End Class