362 lines
17 KiB
VB.net
362 lines
17 KiB
VB.net
Imports GrapeCity.ActiveReports
|
|
Imports GrapeCity.ActiveReports.Document
|
|
|
|
Public Class rptAktendeckelDISPO
|
|
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 AktendecelVALUES)
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
Me.txtFiliale.Text = VALUES.Filiale
|
|
Me.txtAuftragsdatum.Text = VALUES.Auftragsdatum
|
|
Me.txtAtrNr.Text = VALUES.AtrNr
|
|
Me.txtAtr_Firma.Text = VALUES.Atr_Firma
|
|
Me.txtAbs_Firma.Text = VALUES.Abs_Firma
|
|
Me.txtEmpf_Firma.Text = VALUES.Empf_Firma
|
|
Me.txtFrachtfBis_Firma.Text = VALUES.FrachtfBis_Firma
|
|
Me.txtFrachtfAb_Firma.Text = VALUES.FrachtfAb_Firma
|
|
Me.txtAtr_RefNr.Text = VALUES.Atr_RefNr
|
|
Me.txtAtr_KdNr.Text = VALUES.Atr_KdNr
|
|
Me.txtAbs_KdNr.Text = VALUES.Abs_KdNr
|
|
Me.txtEmpf_KdNr.Text = VALUES.Empf_KdNr
|
|
Me.txtFrachtfBis_KdNr.Text = VALUES.FrachtfBis_KdNr
|
|
Me.txtFrachtfAb_KdNr.Text = VALUES.FrachtfAb_KdNr
|
|
Me.txtAbs_Datum.Text = VALUES.Abs_Datum
|
|
Me.txtEmpf_Datum.Text = VALUES.Empf_Datum
|
|
Me.txtAbs_Oeffnungszeiten.Text = VALUES.Abs_Oeffnungszeiten
|
|
Me.txtEmpf_Oeffnungszeiten.Text = VALUES.Empf_Oeffnungszeiten
|
|
Me.txtVERAG_Entladung.Text = VALUES.VERAG_Entladung
|
|
Me.txtVERAG_Beladung.Text = VALUES.VERAG_Beladung
|
|
Me.txtFrachtfBis_tatKosten.Text = VALUES.FrachtfBis_tatKosten
|
|
Me.txtFrachtfBis_LKW.Text = VALUES.FrachtfBis_LKW
|
|
Me.txtFrachtfAb_tatKosten.Text = VALUES.FrachtfAb_tatKosten
|
|
Me.txtFrachtfAb_LKW.Text = VALUES.FrachtfAb_LKW
|
|
Me.txtSachbearbeiter.Text = VALUES.Sachbearbeiter
|
|
Me.txtLadung_Anz_1.Text = VALUES.Ladung_Anz_1
|
|
Me.txtLadung_Anz_2.Text = VALUES.Ladung_Anz_2
|
|
Me.txtLadung_Anz_3.Text = VALUES.Ladung_Anz_3
|
|
Me.txtLadung_Anz_4.Text = VALUES.Ladung_Anz_4
|
|
Me.txtLadung_Verpackung_1.Text = VALUES.Ladung_Verpackung_1
|
|
Me.txtLadung_Verpackung_2.Text = VALUES.Ladung_Verpackung_2
|
|
Me.txtLadung_Verpackung_3.Text = VALUES.Ladung_Verpackung_3
|
|
Me.txtLadung_Verpackung_4.Text = VALUES.Ladung_Verpackung_4
|
|
Me.txtLadung_Inhalt_1.Text = VALUES.Ladung_Inhalt_1
|
|
Me.txtLadung_Inhalt_2.Text = VALUES.Ladung_Inhalt_2
|
|
Me.txtLadung_Inhalt_3.Text = VALUES.Ladung_Inhalt_3
|
|
Me.txtLadung_Inhalt_4.Text = VALUES.Ladung_Inhalt_4
|
|
Me.txtLadung_Gewicht_1.Text = VALUES.Ladung_Gewicht_1
|
|
Me.txtLadung_Gewicht_2.Text = VALUES.Ladung_Gewicht_2
|
|
Me.txtLadung_Gewicht_3.Text = VALUES.Ladung_Gewicht_3
|
|
Me.txtLadung_Gewicht_4.Text = VALUES.Ladung_Gewicht_4
|
|
Me.txtLadung_FPGGewicht_1.Text = VALUES.Ladung_FPGGewicht_1
|
|
Me.txtLadung_FPGGewicht_2.Text = VALUES.Ladung_FPGGewicht_2
|
|
Me.txtLadung_FPGGewicht_3.Text = VALUES.Ladung_FPGGewicht_3
|
|
Me.txtLadung_FPGGewicht_4.Text = VALUES.Ladung_FPGGewicht_4
|
|
|
|
Me.txtAuftraggeber_Entladung.Text = VALUES.Auftraggeber_Entladung
|
|
Me.txtAuftraggeber_Lagerung.Text = VALUES.Auftraggeber_Lagerung
|
|
Me.txtAuftraggeber_Beladung.Text = VALUES.Auftraggeber_Beladung
|
|
Me.txtAuftraggeber_Spätzuschlag.Text = VALUES.Auftraggeber_Spätzuschlag
|
|
Me.txtAuftraggeber_Transportkosten.Text = VALUES.Auftraggeber_Transportkosten
|
|
Me.txtAuftraggeber_Ausfuhrabfertigung.Text = VALUES.Auftraggeber_Ausfuhrabfertigung
|
|
Me.txtAuftraggeber_Einfuhrabfertigung.Text = VALUES.Auftraggeber_Einfuhrabfertigung
|
|
Me.txtAuftraggeber_T1T2.Text = VALUES.Auftraggeber_T1T2
|
|
Me.txtAuftraggeber_Verwahrung.Text = VALUES.Auftraggeber_Verwahrung
|
|
|
|
Me.txtSonstigeLeistungTxt1.Text = VALUES.Auftraggeber_Sonstiges1Txt
|
|
Me.txtSonstigeLeistungTxt2.Text = VALUES.Auftraggeber_Sonstiges2Txt
|
|
Me.txtAuftraggeber_Sonstiges1.Text = VALUES.Auftraggeber_Sonstiges1
|
|
Me.txtAuftraggeber_Sonstiges2.Text = VALUES.Auftraggeber_Sonstiges2
|
|
|
|
|
|
Me.cbxEntladung.Text = If(VALUES.Auftraggeber_Entladung, "X", "")
|
|
Me.cbxLagerung.Text = If(VALUES.Auftraggeber_Lagerung, "X", "")
|
|
Me.cbxBeladung.Text = If(VALUES.Auftraggeber_Beladung, "X", "")
|
|
Me.cbxSpätzuschlag.Text = If(VALUES.Auftraggeber_Spätzuschlag, "X", "")
|
|
Me.cbxTransportkosten.Text = If(VALUES.Auftraggeber_Transportkosten, "X", "")
|
|
Me.cbxAusfuhrabfertigung.Text = If(VALUES.Auftraggeber_Ausfuhrabfertigung, "X", "")
|
|
Me.cbxEinfuhrabfertigung.Text = If(VALUES.Auftraggeber_Einfuhrabfertigung, "X", "")
|
|
Me.cbxT1T2.Text = If(VALUES.Auftraggeber_T1T2, "X", "")
|
|
Me.cbxVerwahrung.Text = If(VALUES.Auftraggeber_Verwahrung, "X", "")
|
|
|
|
|
|
barcodeSendung.Image = If(VALUES.barcodeSendung, Nothing)
|
|
|
|
|
|
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
|
|
Function genFirma(firma, ort) As String '(VALUES.atr_auftr_firma,VALUES.atr_auftr_ort)
|
|
genFirma = If(firma, "")
|
|
If If(ort, "") <> "" Then
|
|
If Not genFirma.Contains(If(ort, "")) Then
|
|
genFirma &= "; " & ort
|
|
End If
|
|
End If
|
|
genFirma = genFirma.Trim
|
|
End Function
|
|
|
|
Sub New(VALUES As cDispoAuftraege)
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
Me.txtFiliale.Text = VALUES.atr_FilialenNr
|
|
Me.txtAuftragsdatum.Text = VALUES.atr_datum
|
|
Me.txtAtrNr.Text = VALUES.atr_frachtpos
|
|
Me.txtAtr_Firma.Text = genFirma(VALUES.atr_auftr_firma, VALUES.atr_auftr_ort)
|
|
Me.txtAbs_Firma.Text = genFirma(VALUES.atr_absender_firma, VALUES.atr_absender_ort)
|
|
Me.txtEmpf_Firma.Text = genFirma(VALUES.atr_empfaenger_firma, VALUES.atr_empfaenger_ort)
|
|
Me.txtFrachtfBis_Firma.Text = genFirma(VALUES.atr_frachtf_firma, VALUES.atr_frachtf_ort)
|
|
Me.txtFrachtfAb_Firma.Text = genFirma(VALUES.atr_frachtfAb_firma, VALUES.atr_frachtfAb_ort)
|
|
|
|
Me.txtAtr_RefNr.Text = If(VALUES.atr_RgRefNr, "")
|
|
Me.txtAtr_KdNr.Text = If(VALUES.atr_auftr_Kdnr, "")
|
|
Me.txtAbs_KdNr.Text = If(VALUES.atr_absender_Kdnr, "")
|
|
Me.txtEmpf_KdNr.Text = If(VALUES.atr_empfaenger_Kdnr, "")
|
|
Me.txtFrachtfBis_KdNr.Text = If(VALUES.atr_frachtf_Kdnr, "")
|
|
Me.txtFrachtfAb_KdNr.Text = If(VALUES.atr_frachtfAb_Kdnr, "")
|
|
Me.txtAbs_Datum.Text = If(VALUES.atr_ladest_terminDat, "")
|
|
Me.txtEmpf_Datum.Text = If(VALUES.atr_entladest_terminDat, "")
|
|
' If VALUES.atr_absender_id IsNot Nothing AndAlso IsNumeric(VALUES.atr_absender_id) Then
|
|
' Dim ABS As New cEntry(VALUES.atr_absender_id)
|
|
' If ABS.hasEntry Then
|
|
|
|
' End If
|
|
' End If
|
|
|
|
Me.txtAbs_Oeffnungszeiten.Text = ""
|
|
Me.txtEmpf_Oeffnungszeiten.Text = ""
|
|
'Me.txtEmpf_Oeffnungszeiten.Text = VALUES.Empf_Oeffnungszeiten
|
|
Me.txtVERAG_Entladung.Text = If(VALUES.atr_entladung, "")
|
|
Me.txtVERAG_Beladung.Text = If(VALUES.atr_beladung, "")
|
|
Me.txtFrachtfBis_tatKosten.Text = If(VALUES.atr_frachtf_tatKosten, "")
|
|
Me.txtFrachtfBis_LKW.Text = If(VALUES.atr_anhKz, "")
|
|
If Me.txtFrachtfBis_LKW.Text = "" Then Me.txtFrachtfBis_LKW.Text = If(VALUES.atr_lkwKz, "")
|
|
Me.txtFrachtfAb_LKW.Text = If(VALUES.atr_frachtfAb_anhKz, "")
|
|
If Me.txtFrachtfAb_LKW.Text = "" Then Me.txtFrachtfAb_LKW.Text = If(VALUES.atr_frachtfAb_lkwKz, "")
|
|
Me.txtFrachtfAb_tatKosten.Text = If(VALUES.atr_frachtfAb_tatKosten, "")
|
|
|
|
Me.txtSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
|
|
|
Me.txtLadung_Anz_1.Text = ""
|
|
Me.txtLadung_Verpackung_1.Text = ""
|
|
Me.txtLadung_Inhalt_1.Text = ""
|
|
Me.txtLadung_Gewicht_1.Text = ""
|
|
Me.txtLadung_FPGGewicht_1.Text = ""
|
|
|
|
|
|
Me.txtLadung_Anz_2.Text = ""
|
|
Me.txtLadung_Verpackung_2.Text = ""
|
|
Me.txtLadung_Inhalt_2.Text = ""
|
|
Me.txtLadung_Gewicht_2.Text = ""
|
|
Me.txtLadung_FPGGewicht_2.Text = ""
|
|
|
|
|
|
Me.txtLadung_Anz_3.Text = ""
|
|
Me.txtLadung_Verpackung_3.Text = ""
|
|
Me.txtLadung_Inhalt_3.Text = ""
|
|
Me.txtLadung_Gewicht_3.Text = ""
|
|
Me.txtLadung_FPGGewicht_3.Text = ""
|
|
|
|
|
|
Me.txtLadung_Anz_4.Text = ""
|
|
Me.txtLadung_Verpackung_4.Text = ""
|
|
Me.txtLadung_Inhalt_4.Text = ""
|
|
Me.txtLadung_Gewicht_4.Text = ""
|
|
Me.txtLadung_FPGGewicht_4.Text = ""
|
|
|
|
If VALUES.LADUNGEN.Count > 0 Then
|
|
Dim L As cDispoLadungen = VALUES.LADUNGEN(0)
|
|
Me.txtLadung_Anz_1.Text = L.lad_Anzahl
|
|
Me.txtLadung_Verpackung_1.Text = L.lad_Art
|
|
Me.txtLadung_Inhalt_1.Text = L.lad_Bezeichnung
|
|
Me.txtLadung_Gewicht_1.Text = L.lad_BruttoKg
|
|
Me.txtLadung_FPGGewicht_1.Text = L.lad_StatNr
|
|
|
|
End If
|
|
If VALUES.LADUNGEN.Count > 1 Then
|
|
Dim L As cDispoLadungen = VALUES.LADUNGEN(1)
|
|
Me.txtLadung_Anz_2.Text = L.lad_Anzahl
|
|
Me.txtLadung_Verpackung_2.Text = L.lad_Art
|
|
Me.txtLadung_Inhalt_2.Text = L.lad_Bezeichnung
|
|
Me.txtLadung_Gewicht_2.Text = L.lad_BruttoKg
|
|
Me.txtLadung_FPGGewicht_2.Text = L.lad_StatNr
|
|
End If
|
|
If VALUES.LADUNGEN.Count > 2 Then
|
|
Dim L As cDispoLadungen = VALUES.LADUNGEN(2)
|
|
Me.txtLadung_Anz_3.Text = L.lad_Anzahl
|
|
Me.txtLadung_Verpackung_3.Text = L.lad_Art
|
|
Me.txtLadung_Inhalt_3.Text = L.lad_Bezeichnung
|
|
Me.txtLadung_Gewicht_3.Text = L.lad_BruttoKg
|
|
Me.txtLadung_FPGGewicht_3.Text = L.lad_StatNr
|
|
End If
|
|
If VALUES.LADUNGEN.Count > 3 Then
|
|
Dim L As cDispoLadungen = VALUES.LADUNGEN(3)
|
|
Me.txtLadung_Anz_4.Text = L.lad_Anzahl
|
|
Me.txtLadung_Verpackung_4.Text = L.lad_Art
|
|
Me.txtLadung_Inhalt_4.Text = L.lad_Bezeichnung
|
|
Me.txtLadung_Gewicht_4.Text = L.lad_BruttoKg
|
|
Me.txtLadung_FPGGewicht_4.Text = L.lad_StatNr
|
|
End If
|
|
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
|
|
|
|
Me.txtAuftraggeber_Entladung.Text = getFromBHRG(VALUES, 1, 1)
|
|
Me.txtAuftraggeber_Lagerung.Text = getFromBHRG(VALUES, 2, 1)
|
|
Me.txtAuftraggeber_Beladung.Text = getFromBHRG(VALUES, 3, 1)
|
|
Me.txtAuftraggeber_Spätzuschlag.Text = getFromBHRG(VALUES, 4, 1)
|
|
Me.txtAuftraggeber_Transportkosten.Text = getFromBHRG(VALUES, 5, 1)
|
|
Me.txtAuftraggeber_Ausfuhrabfertigung.Text = getFromBHRG(VALUES, 6, 1)
|
|
Me.txtAuftraggeber_Einfuhrabfertigung.Text = getFromBHRG(VALUES, 7, 1)
|
|
Me.txtAuftraggeber_T1T2.Text = getFromBHRG(VALUES, 8, 1)
|
|
'Me.txtAuftraggeber_T1T2.Text = getFromBHRG(VALUES, 8)
|
|
Me.txtAuftraggeber_Verwahrung.Text = getFromBHRG(VALUES, 9, 1)
|
|
|
|
Me.txtAuftraggeber_Sonstiges1.Text = getFromBHRG(VALUES, 11, 1)
|
|
Me.txtAuftraggeber_Sonstiges2.Text = getFromBHRG(VALUES, 12, 1)
|
|
Me.txtSonstigeLeistungTxt1.Text = getFromBHRGTxt(VALUES, 11, 1)
|
|
Me.txtSonstigeLeistungTxt2.Text = getFromBHRGTxt(VALUES, 12, 1)
|
|
|
|
|
|
Me.cbxEntladung.Text = If(Me.txtAuftraggeber_Entladung.Text <> "", "X", "")
|
|
Me.cbxLagerung.Text = If(Me.txtAuftraggeber_Lagerung.Text <> "", "X", "")
|
|
Me.cbxBeladung.Text = If(Me.txtAuftraggeber_Beladung.Text <> "", "X", "")
|
|
Me.cbxSpätzuschlag.Text = If(Me.txtAuftraggeber_Spätzuschlag.Text <> "", "X", "")
|
|
Me.cbxTransportkosten.Text = If(Me.txtAuftraggeber_Transportkosten.Text <> "", "X", "")
|
|
Me.cbxAusfuhrabfertigung.Text = If(Me.txtAuftraggeber_Ausfuhrabfertigung.Text <> "", "X", "")
|
|
Me.cbxEinfuhrabfertigung.Text = If(Me.txtAuftraggeber_Einfuhrabfertigung.Text <> "", "X", "")
|
|
Me.cbxT1T2.Text = If(Me.txtAuftraggeber_T1T2.Text <> "", "X", "")
|
|
Me.cbxVerwahrung.Text = If(Me.txtAuftraggeber_Verwahrung.Text <> "", "X", "")
|
|
|
|
|
|
|
|
|
|
Dim barcode As Image = Code128Rendering.MakeBarcodeImage("/" & VALUES.atr_FilialenNr & "-" & VALUES.atr_frachtpos & "-" & 0 & "/", 1, True, 18)
|
|
barcode.RotateFlip(RotateFlipType.Rotate90FlipNone)
|
|
barcodeSendung.Image = barcode
|
|
|
|
End Sub
|
|
|
|
Function getFromBHRG(VALUES As cDispoAuftraege, LeitungsNr As String, op As Integer) As String
|
|
|
|
Dim r = VALUES.BH_rechnungen.Find(Function(X) X.bhrg_leistungIdDispo = LeitungsNr And X.bhrg_option = op)
|
|
If r Is Nothing Then Return ""
|
|
Return CDbl(getDBL(r.bhrg_frei) + getDBL(r.bhrg_pfl)).ToString("C2")
|
|
End Function
|
|
Function getFromBHRGTxt(VALUES As cDispoAuftraege, LeitungsNr As String, op As Integer) As String
|
|
Dim r = VALUES.BH_rechnungen.Find(Function(X) X.bhrg_leistungIdDispo = LeitungsNr And X.bhrg_option = op)
|
|
If r Is Nothing Then Return ""
|
|
Return r.bhrg_vermerk
|
|
End Function
|
|
|
|
|
|
Function getDBL(v) As Double
|
|
If v Is Nothing Then Return 0
|
|
v = v.ToString.Replace(".", ",")
|
|
If Not IsNumeric(v) Then Return 0
|
|
getDBL = CDbl(If(IsNumeric(v), v, 0))
|
|
End Function
|
|
|
|
Private Sub rptAktendeckelDISPO_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
|
|
|
|
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
|
|
Picture.Image = My.Resources.DispoAMBAR
|
|
End If
|
|
|
|
Dim sumAuftraggeber As Double = 0
|
|
sumAuftraggeber += If(IsNumeric(Me.txtAuftraggeber_Entladung.Text), Me.txtAuftraggeber_Entladung.Text, 0)
|
|
sumAuftraggeber += If(IsNumeric(Me.txtAuftraggeber_Lagerung.Text), Me.txtAuftraggeber_Lagerung.Text, 0)
|
|
sumAuftraggeber += If(IsNumeric(Me.txtAuftraggeber_Beladung.Text), Me.txtAuftraggeber_Beladung.Text, 0)
|
|
sumAuftraggeber += If(IsNumeric(Me.txtAuftraggeber_Spätzuschlag.Text), Me.txtAuftraggeber_Spätzuschlag.Text, 0)
|
|
sumAuftraggeber += If(IsNumeric(Me.txtAuftraggeber_Transportkosten.Text), Me.txtAuftraggeber_Transportkosten.Text, 0)
|
|
sumAuftraggeber += If(IsNumeric(Me.txtAuftraggeber_Ausfuhrabfertigung.Text), Me.txtAuftraggeber_Ausfuhrabfertigung.Text, 0)
|
|
sumAuftraggeber += If(IsNumeric(Me.txtAuftraggeber_Einfuhrabfertigung.Text), Me.txtAuftraggeber_Einfuhrabfertigung.Text, 0)
|
|
sumAuftraggeber += If(IsNumeric(Me.txtAuftraggeber_T1T2.Text), Me.txtAuftraggeber_T1T2.Text, 0)
|
|
sumAuftraggeber += If(IsNumeric(Me.txtAuftraggeber_Verwahrung.Text), Me.txtAuftraggeber_Verwahrung.Text, 0)
|
|
sumAuftraggeber += If(IsNumeric(Me.txtAuftraggeber_Sonstiges1.Text), Me.txtAuftraggeber_Sonstiges1.Text, 0)
|
|
sumAuftraggeber += If(IsNumeric(Me.txtAuftraggeber_Sonstiges2.Text), Me.txtAuftraggeber_Sonstiges2.Text, 0)
|
|
txtSumAuftraggeber.Text = sumAuftraggeber.ToString("N2")
|
|
End Sub
|
|
End Class
|
|
|
|
|
|
Public Class AktendecelVALUES
|
|
|
|
Property Filiale As String = ""
|
|
Property Auftragsdatum As String = ""
|
|
Property AtrNr As String = ""
|
|
Property Atr_Firma As String = ""
|
|
Property Abs_Firma As String = ""
|
|
Property Empf_Firma As String = ""
|
|
Property FrachtfBis_Firma As String = ""
|
|
Property FrachtfAb_Firma As String = ""
|
|
Property Atr_RefNr As String = ""
|
|
Property Atr_KdNr As String = ""
|
|
Property Abs_KdNr As String = ""
|
|
Property Empf_KdNr As String = ""
|
|
Property FrachtfBis_KdNr As String = ""
|
|
Property FrachtfAb_KdNr As String = ""
|
|
Property Abs_Datum As String = ""
|
|
Property Empf_Datum As String = ""
|
|
Property Abs_Oeffnungszeiten As String = ""
|
|
Property Empf_Oeffnungszeiten As String = ""
|
|
Property VERAG_Entladung As String = ""
|
|
Property VERAG_Beladung As String = ""
|
|
Property FrachtfBis_tatKosten As String = ""
|
|
Property FrachtfBis_LKW As String = ""
|
|
Property FrachtfAb_tatKosten As String = ""
|
|
Property FrachtfAb_LKW As String = ""
|
|
Property Sachbearbeiter As String = ""
|
|
Property Ladung_Anz_1 As String = ""
|
|
Property Ladung_Anz_2 As String = ""
|
|
Property Ladung_Anz_3 As String = ""
|
|
Property Ladung_Anz_4 As String = ""
|
|
Property Ladung_Verpackung_1 As String = ""
|
|
Property Ladung_Verpackung_2 As String = ""
|
|
Property Ladung_Verpackung_3 As String = ""
|
|
Property Ladung_Verpackung_4 As String = ""
|
|
Property Ladung_Inhalt_1 As String = ""
|
|
Property Ladung_Inhalt_2 As String = ""
|
|
Property Ladung_Inhalt_3 As String = ""
|
|
Property Ladung_Inhalt_4 As String = ""
|
|
Property Ladung_Gewicht_1 As String = ""
|
|
Property Ladung_Gewicht_2 As String = ""
|
|
Property Ladung_Gewicht_3 As String = ""
|
|
Property Ladung_Gewicht_4 As String = ""
|
|
Property Ladung_FPGGewicht_1 As String = ""
|
|
Property Ladung_FPGGewicht_2 As String = ""
|
|
Property Ladung_FPGGewicht_3 As String = ""
|
|
Property Ladung_FPGGewicht_4 As String = ""
|
|
|
|
|
|
Property Auftraggeber_Entladung As String = ""
|
|
Property Auftraggeber_Lagerung As String = ""
|
|
Property Auftraggeber_Beladung As String = ""
|
|
Property Auftraggeber_Spätzuschlag As String = ""
|
|
Property Auftraggeber_Transportkosten As String = ""
|
|
Property Auftraggeber_Ausfuhrabfertigung As String = ""
|
|
Property Auftraggeber_Einfuhrabfertigung As String = ""
|
|
Property Auftraggeber_T1T2 As String = ""
|
|
Property Auftraggeber_Verwahrung As String = ""
|
|
Property Auftraggeber_Sonstiges1 As String = ""
|
|
Property Auftraggeber_Sonstiges2 As String = ""
|
|
Property Auftraggeber_Sonstiges1Txt As String = ""
|
|
Property Auftraggeber_Sonstiges2Txt As String = ""
|
|
Property barcodeSendung As Image = Nothing
|
|
|
|
|
|
End Class |