Imports GrapeCity.ActiveReports Imports GrapeCity.ActiveReports.Document Public Class rptSendungenATILLA Public VALUES As New rptSendungenValuesATILLA Public imgPath As String Sub New() ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. End Sub Sub New(VALUES As rptSendungenValuesATILLA, imgPath As String) InitializeComponent() Me.VALUES = VALUES Me.imgPath = imgPath init() End Sub Public Sub init() ' txtAbfertigungsart.Text = VALUES.Abfertigungsart ' txtTarifposanzahl.Text = VALUES.Tarifposanzahl txtLkwId.Text = VALUES.AvisoId txtFilialeNr.Text = VALUES.FilialeNr txtAbfertigungsnummer.Text = VALUES.Abfertigungsnummer txtFrachtfuehrer_Firma.Text = VALUES.Frachtfuehrer_Firma txtFrachtfuehrer_KdNr.Text = VALUES.Frachtfuehrer_KdNr txtAvisierer_Firma.Text = VALUES.Avisierer_Firma txtAvisierer_KdNr.Text = VALUES.Avisierer_KdNr txtAuftraggeber_Firma.Text = VALUES.Auftraggeber_Firma txtAuftraggeber_KdNr.Text = VALUES.Auftraggeber_KdNr ' txtAbsender_Firma.Text = VALUES.Absender_Firma 'txtAbsender_KdNr.Text = VALUES.Absender_KdNr 'txtEmpfaenger_Firma.Text = VALUES.Empfaenger_Firma 'txtEmpfaenger_KdNr.Text = VALUES.Empfaenger_KdNr txtIRAN_CMR_Agent.Text = VALUES.IRAN_CMR_Agent txtFrachtfuehrer_Bar_BelegNr.Text = VALUES.Frachtfuehrer_Bar_BelegNr txtFrachtfuehrer_Bar_Betrag.Text = VALUES.Frachtfuehrer_Bar_Betrag txtFrachtfuehrer_Bar_BelegNr2.Text = VALUES.Frachtfuehrer_Bar_BelegNr2 txtFrachtfuehrer_Bar_Betrag2.Text = VALUES.Frachtfuehrer_Bar_Betrag2 txtFrachtfuehrer_Bar_BelegNr3.Text = VALUES.Frachtfuehrer_Bar_BelegNr3 txtFrachtfuehrer_Bar_Betrag3.Text = VALUES.Frachtfuehrer_Bar_Betrag3 txtLKWKennzeichen.Text = VALUES.LKWKennzeichen txtAnkunft.Text = VALUES.Ankunft txtAbfahrt.Text = VALUES.Abfahrt txtWarenbezeichnung.Text = VALUES.Warenbezeichnung txtColli.Text = VALUES.Colli txtGewicht.Text = VALUES.Gewicht ' txtAufschub_VERAG.Text = VALUES.Aufschub_VERAG ' rtbAbfKost.Text = VALUES.AbfKost--> Mit Sub Report gelöst ' txtDokZuSend_Ueberschrift.Text = VALUES.DokZuSend_Ueberschrift ' txtDokZuSend_Text.Text = VALUES.DokZuSend_Text txtAnmerkungen.Text = VALUES.Anmerkungen ' txtBARzuKassieren.Text = VALUES.BARzuKassieren txtLKWKennzeichen.Text = VALUES.LKWKennzeichen txtZA_1.Text = VALUES.ZA_1 txtZA_2.Text = VALUES.ZA_2 txtZA_3.Text = VALUES.ZA_3 txtZA_4.Text = VALUES.ZA_4 txtZA_5.Text = VALUES.ZA_5 txtAusgangsZst_1.Text = VALUES.AusgangsZst_1 txtAusgangsZst_2.Text = VALUES.AusgangsZst_2 txtAusgangsZst_3.Text = VALUES.AusgangsZst_3 txtAusgangsZst_4.Text = VALUES.AusgangsZst_4 txtAusgangsZst_5.Text = VALUES.AusgangsZst_5 txtAusgangsZst_6.Text = VALUES.AusgangsZst_6 txtAusgangsZst_7.Text = VALUES.AusgangsZst_7 txtAusgangsZst_8.Text = VALUES.AusgangsZst_8 txtAusgangsZst_9.Text = VALUES.AusgangsZst_9 txtAndereAusgangsstelle.Text = VALUES.AndereAusgangsstelle txtZugMaschine.Text = VALUES.Zugmaschine cbxZugMaschine.Text = VALUES.ZugmaschineCBX txtTransportTemp.Text = VALUES.Transporttemperatur cbxTransportTemp.Text = VALUES.TransporttemperaturCBX barcodeLKW.Image = If(VALUES.barcodeLKW, Nothing) barcodeSendung.Image = If(VALUES.barcodeSendung, Nothing) 'OFFERTE! If False Then If VALUES.AbfKostKdnr > 0 Then Dim s = New subRptSendungenOfferte(VALUES.ABF_ART, VALUES.AbfKostKdnr) SubReport.Report = s End If End If End Sub Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format ' Dim bm As New Bitmap(imgPath) ' Me.Picture.Image = bm End Sub Private Sub rptSendungen_PageStart(sender As Object, e As EventArgs) Handles Me.PageStart ' Me.Document.CacheToDisk = True End Sub Private Sub rptSendungen_ReportEnd(sender As Object, e As EventArgs) Handles Me.ReportEnd GC.Collect() End Sub Private Sub rptSendungenATILLA_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart End Sub End Class Public Class rptSendungenValuesATILLA Property AvisoId As String = "" Property Abfertigungsart As String = "" Property Tarifposanzahl As String = "" Property FilialeNr As String = "" Property Abfertigungsnummer As String = "" Property Avisierer_Firma As String = "" Property Avisierer_KdNr As String = "" Property Auftraggeber_Firma As String = "" Property Auftraggeber_KdNr As String = "" Property Empfaenger_Firma As String = "" Property Empfaenger_KdNr As String = "" Property Absender_Firma As String = "" Property Absender_KdNr As String = "" Property Frachtfuehrer_Firma As String = "" Property Frachtfuehrer_KdNr As String = "" Property Avisierer_Zoll As String = "" Property Avisierer_Eust As String = "" Property Avisierer_Abf As String = "" Property Avisierer_Clear As String = "" Property Auftraggeber_Zoll As String = "" Property Auftraggeber_Eust As String = "" Property Auftraggeber_Abf As String = "" Property Auftraggeber_Clear As String = "" Property Empfaenger_Zoll As String = "" Property Empfaenger_Eust As String = "" Property Empfaenger_Abf As String = "" Property Empfaenger_Clear As String = "" Property Absender_Zoll As String = "" Property Absender_Eust As String = "" Property Absender_Abf As String = "" Property Absender_Clear As String = "" Property Frachtfuehrer_Zoll As String = "" Property Frachtfuehrer_Eust As String = "" Property Frachtfuehrer_Abf As String = "" Property Frachtfuehrer_Clear As String = "" Property Avisierer_Leistung1 As String = "" Property Avisierer_Betrag1 As String = "" Property Avisierer_Leistung2 As String = "" Property Avisierer_Betrag2 As String = "" Property Avisierer_Leistung3 As String = "" Property Avisierer_Betrag3 As String = "" Property Auftraggeber_Leistung1 As String = "" Property Auftraggeber_Betrag As String = "" Property Auftraggeber_Leistung2 As String = "" Property Auftraggeber_Betrag2 As String = "" Property Auftraggeber_Leistung3 As String = "" Property Auftraggeber_Betrag3 As String = "" Property Empfaenger_Leistung1 As String = "" Property Empfaenger_Betrag1 As String = "" Property Empfaenger_Leistung2 As String = "" Property Empfaenger_Betrag2 As String = "" Property Empfaenger_Leistung3 As String = "" Property Empfaenger_Betrag3 As String = "" Property Absender_Leistung1 As String = "" Property Absender_Betrag1 As String = "" Property Absender_Leistung2 As String = "" Property Absender_Betrag2 As String = "" Property Absender_Leistung3 As String = "" Property Absender_Betrag3 As String = "" Property Frachtfuehrer_Leistung1 As String = "" Property Frachtfuehrer_Betrag1 As String = "" Property Frachtfuehrer_Leistung2 As String = "" Property Frachtfuehrer_Betrag2 As String = "" Property Frachtfuehrer_Leistung3 As String = "" Property Frachtfuehrer_Betrag3 As String = "" Property Frachtfuehrer_Bar_BelegNr As String = "" Property Frachtfuehrer_Bar_Betrag As String = "" Property Frachtfuehrer_Bar_BelegNr2 As String = "" Property Frachtfuehrer_Bar_Betrag2 As String = "" Property Frachtfuehrer_Bar_BelegNr3 As String = "" Property Frachtfuehrer_Bar_Betrag3 As String = "" Property IRAN_CMR_Agent As String = "" Property Avisierer_eigBin As String = "" Property Auftraggeber_eigBin As String = "" Property Empfaenger_eigBIN As String = "" Property Absender_eigBIN As String = "" Property Frachtfuehrer_eigBIN As String = "" Property LKWKennzeichen As String = "" Property Ankunft As String = "" Property Abfahrt As String = "" Property Warenbezeichnung As String = "" Property Colli As String = "" Property Gewicht As String = "" Property Aufschub_VERAG As String = "" Property DokZuSend_Ueberschrift As String = "" Property DokZuSend_Text As String = "" Property Anmerkungen As String = "" ' Property BAR As String = "" Property BARzuKassieren As String = "" Property ABTEILUNG As String = "" Property NCTS_VZAdr As String = "" Property FISKAL_ENDEMPF As String = "" Property ABF_ART As Integer = -1 Property barcodeLKW As Image = Nothing Property barcodeSendung As Image = Nothing Property AbfKost As String = "" Property AbfKostKdnr As Integer = -1 Property ZA_1 As String = "" Property ZA_2 As String = "" Property ZA_3 As String = "" Property ZA_4 As String = "" Property ZA_5 As String = "" Property AusgangsZst_1 As String = "" Property AusgangsZst_2 As String = "" Property AusgangsZst_3 As String = "" Property AusgangsZst_4 As String = "" Property AusgangsZst_5 As String = "" Property AusgangsZst_6 As String = "" Property AusgangsZst_7 As String = "" Property AusgangsZst_8 As String = "" Property AusgangsZst_9 As String = "" Property AndereAusgangsstelle As String = "" Property Zugmaschine As String = "" Property ZugmaschineCBX As String = "" Property Transporttemperatur As String = "" Property TransporttemperaturCBX As String = "" End Class