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