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