Active Reports 18 (from 18..)
This commit is contained in:
356
Gemeinsames/ARConverterBackup1/rptSendungen.vb
Normal file
356
Gemeinsames/ARConverterBackup1/rptSendungen.vb
Normal file
@@ -0,0 +1,356 @@
|
||||
|
||||
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<65>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
|
||||
Reference in New Issue
Block a user