357 lines
15 KiB
VB.net
357 lines
15 KiB
VB.net
|
|
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, 18, 32, 24, 33, 34, 37, 40, 42
|
|
txtNCTSVZAdr.Visible = True
|
|
lblNCTSVZAdr.Visible = True
|
|
txtNCTSVZAdr.Text = VALUES.NCTS_VZAdr
|
|
lblNCTSVZAdr.Text = "NCTS" & vbNewLine & "Gest.-Adr.:"
|
|
Case 7
|
|
txtNCTSVZAdr.Visible = True
|
|
lblNCTSVZAdr.Visible = True
|
|
txtNCTSVZAdr.Text = VALUES.NCTS_VZAdr
|
|
lblNCTSVZAdr.Text = "Amtsplatz/" & vbNewLine & "Zollstopp:"
|
|
Case 26, 28
|
|
txtNCTSVZAdr.Visible = True
|
|
lblNCTSVZAdr.Visible = True
|
|
txtNCTSVZAdr.Text = VALUES.FISKAL_ENDEMPF
|
|
lblNCTSVZAdr.Text = "Fiskal" & vbNewLine & "EndEmpf.:"
|
|
End Select
|
|
|
|
If barcodeLKW IsNot Nothing Then
|
|
If VALUES.barcodeLKW IsNot Nothing Then
|
|
barcodeLKW.Image = If(VALUES.barcodeLKW, Nothing)
|
|
End If
|
|
End If
|
|
|
|
barcodeSendung.Image = If(VALUES.barcodeSendung, Nothing)
|
|
|
|
' picQR.Image = If(VALUES.imgQR, Nothing)
|
|
If picQR IsNot Nothing Then
|
|
If VALUES.imgQR IsNot Nothing Then
|
|
picQR.Image = If(VALUES.imgQR, Nothing)
|
|
End If
|
|
End If
|
|
|
|
'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(GrapeCity.ActiveReports.Document.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 imgQR 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
|