37 lines
1.5 KiB
VB.net
37 lines
1.5 KiB
VB.net
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
|