249 lines
9.6 KiB
VB.net
249 lines
9.6 KiB
VB.net
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
|