Projektdateien hinzufügen.
This commit is contained in:
248
Gemeinsames/rptSendungenATILLA.vb
Normal file
248
Gemeinsames/rptSendungenATILLA.vb
Normal file
@@ -0,0 +1,248 @@
|
||||
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<65>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
|
||||
Reference in New Issue
Block a user