AVISO/Gemeinsames/rptSendungen.vb

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()

        ' 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.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

    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