Imports GrapeCity.ActiveReports Imports GrapeCity.ActiveReports.Document Public Class rptSendungen Public VALUES As New rptSendungenValues Public imgPath As String Public ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung = Nothing Public HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling) = Nothing Public VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten) = Nothing Sub New() ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() Me.Document.Printer.PrinterName = "" ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. End Sub Sub New(VALUES As rptSendungenValues, imgPath As String, ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung, HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling), VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten)) InitializeComponent() Me.Document.Printer.PrinterName = "" Me.VALUES = VALUES Me.imgPath = imgPath Me.ZOLLANMELDUNG = ZOLLANMELDUNG Me.HANDLING = HANDLING Me.VORKOSTEN = VORKOSTEN init() End Sub Public Sub init() txtAbfertigungsart.Text = VALUES.Abfertigungsart txtTarifposanzahl.Text = VALUES.Tarifposanzahl txtFilialeNr.Text = VALUES.FilialeNr txtAbfertigungsnummer.Text = VALUES.Abfertigungsnummer txtAvisierer_Firma.Text = VALUES.Avisierer_Firma txtAvisierer_KdNr.Text = VALUES.Avisierer_KdNr txtAuftraggeber_Firma.Text = VALUES.Auftraggeber_Firma txtAuftraggeber_KdNr.Text = VALUES.Auftraggeber_KdNr txtEmpfaenger_Firma.Text = VALUES.Empfaenger_Firma txtEmpfaenger_KdNr.Text = VALUES.Empfaenger_KdNr txtAbsender_Firma.Text = VALUES.Absender_Firma txtAbsender_KdNr.Text = VALUES.Absender_KdNr txtFrachtfuehrer_Firma.Text = VALUES.Frachtfuehrer_Firma txtFrachtfuehrer_KdNr.Text = VALUES.Frachtfuehrer_KdNr txtAvisierer_Zoll.Text = VALUES.Avisierer_Zoll txtAvisierer_Eust.Text = VALUES.Avisierer_Eust txtAvisierer_Abf.Text = VALUES.Avisierer_Abf txtAvisierer_Clear.Text = VALUES.Avisierer_Clear txtAuftraggeber_Zoll.Text = VALUES.Auftraggeber_Zoll txtAuftraggeber_Eust.Text = VALUES.Auftraggeber_Eust txtAuftraggeber_Abf.Text = VALUES.Auftraggeber_Abf txtAuftraggeber_Clear.Text = VALUES.Auftraggeber_Clear txtEmpfaenger_Zoll.Text = VALUES.Empfaenger_Zoll txtEmpfaenger_Eust.Text = VALUES.Empfaenger_Eust txtEmpfaenger_Abf.Text = VALUES.Empfaenger_Abf txtEmpfaenger_Clear.Text = VALUES.Empfaenger_Clear txtAbsender_Zoll.Text = VALUES.Absender_Zoll txtAbsender_Eust.Text = VALUES.Absender_Eust txtAbsender_Abf.Text = VALUES.Absender_Abf txtAbsender_Clear.Text = VALUES.Absender_Clear txtFrachtfuehrer_Zoll.Text = VALUES.Frachtfuehrer_Zoll txtFrachtfuehrer_Eust.Text = VALUES.Frachtfuehrer_Eust txtFrachtfuehrer_Abf.Text = VALUES.Frachtfuehrer_Abf txtFrachtfuehrer_Clear.Text = VALUES.Frachtfuehrer_Clear txtAvisierer_Leistung1.Text = VALUES.Avisierer_Leistung1 txtAvisierer_Betrag1.Text = VALUES.Avisierer_Betrag1 txtAvisierer_Leistung2.Text = VALUES.Avisierer_Leistung2 txtAvisierer_Betrag2.Text = VALUES.Avisierer_Betrag2 txtAvisierer_Leistung3.Text = VALUES.Avisierer_Leistung3 txtAvisierer_Betrag3.Text = VALUES.Avisierer_Betrag3 txtAuftraggeber_Leistung1.Text = VALUES.Auftraggeber_Leistung1 txtAuftraggeber_Betrag.Text = VALUES.Auftraggeber_Betrag txtAuftraggeber_Leistung2.Text = VALUES.Auftraggeber_Leistung2 txtAuftraggeber_Betrag2.Text = VALUES.Auftraggeber_Betrag2 txtAuftraggeber_Leistung3.Text = VALUES.Auftraggeber_Leistung3 txtAuftraggeber_Betrag3.Text = VALUES.Auftraggeber_Betrag3 txtKdAuftrNr.Text = VALUES.KdAuftrNr txtEmpfaenger_Leistung1.Text = VALUES.Empfaenger_Leistung1 txtEmpfaenger_Betrag1.Text = VALUES.Empfaenger_Betrag1 txtEmpfaenger_Leistung2.Text = VALUES.Empfaenger_Leistung2 txtEmpfaenger_Betrag2.Text = VALUES.Empfaenger_Betrag2 txtEmpfaenger_Leistung3.Text = VALUES.Empfaenger_Leistung3 txtEmpfaenger_Betrag3.Text = VALUES.Empfaenger_Betrag3 txtAbsender_Leistung1.Text = VALUES.Absender_Leistung1 txtAbsender_Betrag1.Text = VALUES.Absender_Betrag1 txtAbsender_Leistung2.Text = VALUES.Absender_Leistung2 txtAbsender_Betrag2.Text = VALUES.Absender_Betrag2 txtAbsender_Leistung3.Text = VALUES.Absender_Leistung3 txtAbsender_Betrag3.Text = VALUES.Absender_Betrag3 txtFrachtfuehrer_Leistung1.Text = VALUES.Frachtfuehrer_Leistung1 txtFrachtfuehrer_Betrag1.Text = VALUES.Frachtfuehrer_Betrag1 txtFrachtfuehrer_Leistung2.Text = VALUES.Frachtfuehrer_Leistung2 txtFrachtfuehrer_Betrag2.Text = VALUES.Frachtfuehrer_Betrag2 txtFrachtfuehrer_Leistung3.Text = VALUES.Frachtfuehrer_Leistung3 txtFrachtfuehrer_Betrag3.Text = VALUES.Frachtfuehrer_Betrag3 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 txtAvisierer_eigBin.Text = VALUES.Avisierer_eigBin txtAuftraggeber_eigBin.Text = VALUES.Auftraggeber_eigBin txtEmpfaenger_eigBIN.Text = VALUES.Empfaenger_eigBIN txtAbsender_eigBIN.Text = VALUES.Absender_eigBIN txtFrachtfuehrer_eigBIN.Text = VALUES.Frachtfuehrer_eigBIN txtAvisierer_VK.Text = VALUES.Avisierer_VK txtAuftraggeber_VK.Text = VALUES.Auftraggeber_VK txtEmpfaenger_VK.Text = VALUES.Empfaenger_VK txtAbsender_VK.Text = VALUES.Absender_VK txtFrachtfuehrer_VK.Text = VALUES.Frachtfuehrer_VK 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 txtEmpfaenger_EUSTKto.Text = VALUES.Empfaenger_EUSTKto txtAuftraggeber_EUSTKto.Text = VALUES.Auftraggeber_EUSTKto txtAuftraggeber_ZOLLKto.Text = VALUES.Auftraggeber_ZOLLKto txtEmpfaenger_ZOLLKto.Text = VALUES.Empfaenger_ZOLLKto cbxDyUebermittelt.Checked = VALUES.DyUebermittelt TextBox3.Text = "Abkl.: " & VALUES.QS_MA & vbNewLine & "Dekl.: " & VALUES.VG_MA If VALUES.Grenze.Trim <> "" Then lblGrenze.Visible = True shGrenze.Visible = True txtGrenze.Visible = True txtGrenze.Text = VALUES.Grenze.Replace("???", "") Else lblGrenze.Visible = False shGrenze.Visible = False txtGrenze.Visible = False End If If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATK_DY_UEBERMITTELT") Then cbxDyUebermittelt.Visible = True End If If VALUES.SchnellAbfertigung Then txtSchnellAbfertigung.Visible = True End If Select Case VALUES.ABF_ART Case 5, 6 txtNCTSVZAdr.Visible = True lblNCTSVZAdr.Visible = True txtNCTSVZAdr.Text = VALUES.NCTS_VZAdr lblNCTSVZAdr.Text = "NCTS" & vbNewLine & "Gest.-Adr.:" Case 26, 28 txtNCTSVZAdr.Visible = True lblNCTSVZAdr.Visible = True txtNCTSVZAdr.Text = VALUES.FISKAL_ENDEMPF lblNCTSVZAdr.Text = "Fiskal" & vbNewLine & "EndEmpf.:" End Select 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 If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then Dim s = New subRptSendungenVorkosten(VORKOSTEN) SubReport.Report = s Else If ZOLLANMELDUNG IsNot Nothing Then Dim s = New subRptSendungenZollpruefung(ZOLLANMELDUNG) SubReport.Report = s ElseIf HANDLING IsNot Nothing Then Dim s = New subRptSendungenATA(HANDLING) SubReport.Report = s End If End If End Sub Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format ' Dim fs As New System.IO.FileStream(imgPath, System.IO.FileMode.Open, System.IO.FileAccess.Read) ' Dim bm As New Bitmap(System.Drawing.Image.FromStream(fs)) Dim bm As New Bitmap(imgPath) Me.Picture.Image = bm ' fs.Close() 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 rptSendungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart Me.Document.Printer.PrinterName = "" End Sub End Class Public Class rptSendungenValues 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 KdAuftrNr 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 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 Avisierer_VK As String = "" Property Auftraggeber_VK As String = "" Property Empfaenger_VK As String = "" Property Absender_VK As String = "" Property Frachtfuehrer_VK 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 Empfaenger_EUSTKto As String = "" Property Auftraggeber_EUSTKto As String = "" Property Empfaenger_ZOLLKto As String = "" Property Auftraggeber_ZOLLKto As String = "" Property Grenze As String = "" Property DyUebermittelt As Boolean = False Property SchnellAbfertigung As Boolean = False Property VG_MA As String = "" Property QS_MA As String = "" End Class