Imports VERAG_PROG_ALLGEMEIN Imports GrapeCity.ActiveReports Public Class SendungOptions Shared VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL Shared Sub PrintSendung_OLD(art As String, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, AVISO As cAviso, Optional Printername As String = "") Dim ADMIN As New cADMIN ' If Not AVISO.Abgeschlossen Then SENDUNG.SAVE() ' Speichern nur wenn noch nicht abgescvhlossen If IsNumeric(SENDUNG.AbfertigungsNr) AndAlso CInt(SENDUNG.AbfertigungsNr) > 100000 Then Else MsgBox("Abfertigungsnummer angeben!") Exit Sub End If Dim barcode As Image = Code128Rendering.MakeBarcodeImage("/" & SENDUNG.FilialenNr & "-" & SENDUNG.AbfertigungsNr & "-" & SENDUNG.UnterNr & "/", 1, True, 25) Dim barcodeLKW As Image = Code128Rendering.MakeBarcodeImage("/" & AVISO.AvisoID & "/", 1, True, 20) 'Dim DATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER Dim name = "AKT_SUB.pdf" Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung Case "QS" name = "AKT_QS.pdf" Case Else name = "AKT_SUB.pdf" End Select Dim abfertArt = "" & SENDUNG.tblSnd_Abfertigungsart_ID & " - " & ADMIN.getValueTxtBySql("SELECT isnull([Abfertigungsbezeichnung],'') FROM [Abfertigungsarten] WHERE [Abfertigungsart]=" & SENDUNG.tblSnd_Abfertigungsart_ID, "FMZOLL") Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) If barcodeLKW IsNot Nothing Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Barcode-Scan: Akt übernehmen", 18, 28, 55, 3, "normal", 7, , iTextSharp.text.Element.ALIGN_LEFT)) If barcode IsNot Nothing Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Barcode-Scan: " & vbNewLine & "Akt übernehmen & Sendung öffnen", 15, 132, 60, 10, "normal", 7, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.AbfertigungsNr, 140, 10, 55, 10, "bold", 18, , iTextSharp.text.Element.ALIGN_CENTER)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.FilialenNr, 125, 10, 17, 10, "bold", 18, , iTextSharp.text.Element.ALIGN_CENTER)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(abfertArt, 25, 11, 65, 10, "bold", 18)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(AVISO.Auftraggeber_KdNr > 0, AVISO.Auftraggeber_KdNr, ""), 100, 32, 50, 10, "normal", 12, 10)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.Auftraggeber, 30, 37, 85, 10, "normal", 14, 30)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(SENDUNG.tblSnd_AuftraggeberKdNr > 0, SENDUNG.tblSnd_AuftraggeberKdNr, ""), 100, 52, 50, 10, "normal", 12, 10)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.tblSnd_Auftraggeber, 30, 57, 85, 10, "normal", 14, 30)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(SENDUNG.tblSnd_EmpfaengerKdNr > 0, SENDUNG.tblSnd_EmpfaengerKdNr, ""), 100, 72, 50, 10, "bold", 12, 10)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.tblSnd_Empfaenger, 30, 77, 85, 10, "bold", 14, 30)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(SENDUNG.tblSnd_AbsenderKdNr > 0, SENDUNG.tblSnd_AbsenderKdNr, ""), 100, 92, 50, 10, "normal", 12, 10)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.tblSnd_Absender, 30, 97, 85, 10, "normal", 14, 30)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(AVISO.Frächter_KdNr > 0, AVISO.Frächter_KdNr, ""), 100, 112, 50, 10, "normal", 12, 10)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.Frächter, 30, 117, 85, 10, "normal", 14, 30)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 122, 156, 80, 10, "bold", 16, 30, iTextSharp.text.Element.ALIGN_CENTER)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.tblSnd_Warenbezeichnung, 122, 197, 80, 10, "bold", 14, 30, iTextSharp.text.Element.ALIGN_CENTER)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.tblSnd_Colli, 122, 212, 40, 10, "normal", 14, 30, iTextSharp.text.Element.ALIGN_CENTER)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.tblSnd_Gewicht, 162, 212, 40, 10, "normal", 14, 30, iTextSharp.text.Element.ALIGN_CENTER)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(AVISO.Ankunft > cMeineFunktionenAVISO.LeerDatum, AVISO.Ankunft.ToString("dd.MM.yyyy") & vbNewLine & AVISO.Ankunft.ToString("HH:mm"), ""), 122, 168, 40, 10, "normal", 14, 30, iTextSharp.text.Element.ALIGN_CENTER)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(AVISO.Freigabe > cMeineFunktionenAVISO.LeerDatum, AVISO.Freigabe.ToString("dd.MM.yyyy") & vbNewLine & AVISO.Freigabe.ToString("HH:mm"), ""), 162, 168, 40, 10, "normal", 14, 30, iTextSharp.text.Element.ALIGN_CENTER)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.tblSnd_Anmerkung, 20, 155, 95, 115, "normal", 14)) If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then Dim txt = ADMIN.getValueTxtBySql("SELECT isnull([DokumenteLKWFreigabe],'') as DokumenteLKWFreigabe FROM [Kunden] WHERE [KundenNr]=" & SENDUNG.tblSnd_EmpfaengerKdNr, "FMZOLL") If txt <> "" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("ACHTUNG: Zu sendene Dokumente:", 125, 225, 75, 5, "bold", 10)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(txt, 125, 231, 75, 25, "normal", 10)) End If End If ' If SENDUNG.tblSnd_bar IsNot Nothing AndAlso CBool(SENDUNG.tblSnd_bar) Then 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 126, 132, 6, 6, "bold", 14, -1, iTextSharp.text.Element.ALIGN_LEFT)) ' If SENDUNG.tblSnd_barBeleg IsNot Nothing Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.tblSnd_barBeleg, 142, 133, 40, 5, "bold", 12, -1, iTextSharp.text.Element.ALIGN_CENTER)) ' If SENDUNG.tblSnd_betrag IsNot Nothing And IsNumeric(SENDUNG.tblSnd_betrag) Then 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDbl(SENDUNG.tblSnd_betrag).ToString("C2"), 187, 133, 15, 5, "bold", 10, -1, iTextSharp.text.Element.ALIGN_RIGHT)) ' End If ' End If Select Case SENDUNG.tblSnd_aufschub Case "VERAG" listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Aufschub VERAG", 127, 140, 40, 5, "bold", 10, -1, iTextSharp.text.Element.ALIGN_LEFT)) Case "AUFTR" listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("eig. BIN", 127, 63, 20, 5, "bold", 12, -1, iTextSharp.text.Element.ALIGN_LEFT)) Case "EMPF" listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("eig. BIN", 127, 83, 20, 5, "bold", 12, -1, iTextSharp.text.Element.ALIGN_LEFT)) End Select SENDUNG.LOAD_ABRECHNUNG() 'Daten holen Dim cnt_fr As Integer = 0 Dim cnt_av As Integer = 0 Dim cnt_au As Integer = 0 Dim cnt_ab As Integer = 0 Dim cnt_em As Integer = 0 For Each r As VERAG_PROG_ALLGEMEIN.cSendungAbrechnung In SENDUNG.ABRECHNUNG Select Case r.sndabr_beteiligter Case "AVISIERER" doAbrechnungsDetails(r, listTowrite, 33, cnt_av) Case "AUFTR" doAbrechnungsDetails(r, listTowrite, 53, cnt_au) Case "EMPF" doAbrechnungsDetails(r, listTowrite, 73, cnt_em) Case "ABS" doAbrechnungsDetails(r, listTowrite, 93, cnt_ab) Case "FRACHTF" doAbrechnungsDetails(r, listTowrite, 113, cnt_fr) End Select Next If art = "PRINT" Then fm.fillPDF(name, list, listTowrite, , True, Printername, barcode, barcodeLKW) ElseIf art = "DIALOG" Then fm.fillPDF(name, list, listTowrite, , True, , barcode, barcodeLKW) Else fm.fillPDF(name, list, listTowrite, , , , barcode, barcodeLKW) End If End Sub Shared Sub PrintSendung(art As String, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, AVISO As cAviso, Optional Printername As String = "", Optional TYP As String = "AKT", Optional SendungsAnzahlAviso As Integer = -1) 'TYP --> LAUFZETTEL Dim ADMIN As New cADMIN If IsNumeric(SENDUNG.AbfertigungsNr) AndAlso CInt(SENDUNG.AbfertigungsNr) > 100000 Then Else MsgBox("Abfertigungsnummer angeben!") Exit Sub End If If Not SENDUNG.tblSnd_Fremdspedition And SENDUNG.tblSnd_Abfertigungsart_ID <= 0 Then MsgBox("Abfertigungsart angeben!") Exit Sub End If Dim barcode As Image = Code128Rendering.MakeBarcodeImage("/" & SENDUNG.FilialenNr & "-" & SENDUNG.AbfertigungsNr & "-" & SENDUNG.UnterNr & "/", 1, True, 25) barcode.RotateFlip(RotateFlipType.Rotate90FlipNone) Dim barcodeLKW As Image = Nothing If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("RPT_SND_BarcodeLKW") Then barcodeLKW = Code128Rendering.MakeBarcodeImage("/" & AVISO.AvisoID & "/", 1, True, 20) End If 'Dim DATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER Dim abfertArt = "" If SENDUNG.tblSnd_Abfertigungsart_ID > 0 Then abfertArt = "" & SENDUNG.tblSnd_Abfertigungsart_ID & " - " & ADMIN.getValueTxtBySql("SELECT isnull([Abfertigungsbezeichnung],'') FROM [Abfertigungsarten] WHERE [Abfertigungsart]=" & SENDUNG.tblSnd_Abfertigungsart_ID, "FMZOLL") Dim VALUES As New Gemeinsames.rptSendungenValues If barcodeLKW IsNot Nothing Then VALUES.barcodeLKW = barcodeLKW If barcode IsNot Nothing Then VALUES.barcodeSendung = barcode VALUES.ABF_ART = SENDUNG.tblSnd_Abfertigungsart_ID VALUES.Abfertigungsnummer = SENDUNG.AbfertigungsNr VALUES.FilialeNr = SENDUNG.FilialenNr VALUES.Abfertigungsart = abfertArt If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("RPT_SND_Grenzstelle") Then If AVISO.Zollstelle IsNot Nothing AndAlso AVISO.Zollstelle <> "" Then ' VALUES.Grenze = VERAGSQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS") VALUES.Grenze = VERAGSQL.getValueTxtBySql("SELECT Code +' - ' + [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE Code='" & AVISO.Zollstelle & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()))", "FMZOLL") Else If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then VALUES.Grenze = "" Else VALUES.Grenze = AVISO.Grenzstelle End If End If End If 'VALUES.Avisierer_KdNr = IIf(AVISO.Auftraggeber_KdNr > 0, AVISO.Auftraggeber_KdNr, "") 'VALUES.Avisierer_Firma = AVISO.Auftraggeber VALUES.Avisierer_KdNr = IIf(SENDUNG.tblSnd_AvisiererKdNr > 0, SENDUNG.tblSnd_AvisiererKdNr, "") VALUES.Avisierer_Firma = SENDUNG.tblSnd_Avisierer VALUES.Auftraggeber_KdNr = IIf(SENDUNG.tblSnd_AuftraggeberKdNr > 0, SENDUNG.tblSnd_AuftraggeberKdNr, "") VALUES.Auftraggeber_Firma = SENDUNG.tblSnd_Auftraggeber VALUES.KdAuftrNr = If(SENDUNG.tblSnd_KdAuftragsNr, "") If SENDUNG.tblSnd_AuftraggeberKdNr > 0 Then Dim eust = getAufschubKto(SENDUNG.tblSnd_AuftraggeberKdNr, "EUST") If eust <> "" Then VALUES.Auftraggeber_EUSTKto = "EUST: " & eust Dim zoll = getAufschubKto(SENDUNG.tblSnd_AuftraggeberKdNr, "ZOLL") If zoll <> "" Then VALUES.Auftraggeber_ZOLLKto = "ZOLL: " & zoll End If VALUES.Empfaenger_KdNr = IIf(SENDUNG.tblSnd_EmpfaengerKdNr > 0, SENDUNG.tblSnd_EmpfaengerKdNr, "") VALUES.Empfaenger_Firma = SENDUNG.tblSnd_Empfaenger If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then Dim eust = getAufschubKto(SENDUNG.tblSnd_EmpfaengerKdNr, "EUST") If eust <> "" Then VALUES.Empfaenger_EUSTKto = "EUST: " & eust Dim zoll = getAufschubKto(SENDUNG.tblSnd_EmpfaengerKdNr, "ZOLL") If zoll <> "" Then VALUES.Empfaenger_ZOLLKto = "ZOLL: " & zoll End If VALUES.Absender_KdNr = IIf(SENDUNG.tblSnd_AbsenderKdNr > 0, SENDUNG.tblSnd_AbsenderKdNr, "") VALUES.Absender_Firma = SENDUNG.tblSnd_Absender 'VALUES.Frachtfuehrer_KdNr = IIf(AVISO.Frächter_KdNr > 0, AVISO.Frächter_KdNr, "") ' VALUES.Frachtfuehrer_Firma = AVISO.Frächter VALUES.Frachtfuehrer_KdNr = IIf(SENDUNG.tblSnd_FrachtfuehrerKdNr > 0, SENDUNG.tblSnd_FrachtfuehrerKdNr, "") VALUES.Frachtfuehrer_Firma = SENDUNG.tblSnd_Frachtfuehrer VALUES.LKWKennzeichen = AVISO.LKW_Nr VALUES.Warenbezeichnung = SENDUNG.tblSnd_Warenbezeichnung ' VALUES.Colli = SENDUNG.tblSnd_Colli If SENDUNG.tblSnd_Gewicht IsNot Nothing AndAlso SENDUNG.tblSnd_Gewicht <> "" Then VALUES.Gewicht = If(Not IsNumeric(SENDUNG.tblSnd_Gewicht) Or SENDUNG.tblSnd_Gewicht.Trim.ToLower.EndsWith("kg"), SENDUNG.tblSnd_Gewicht, SENDUNG.tblSnd_Gewicht & " kg") End If If SENDUNG.tblSnd_Colli IsNot Nothing AndAlso SENDUNG.tblSnd_Colli <> "" Then VALUES.Colli = If(Not IsNumeric(SENDUNG.tblSnd_Colli) Or SENDUNG.tblSnd_Colli.Trim.ToLower.Replace(".", "").EndsWith("pk"), SENDUNG.tblSnd_Colli, SENDUNG.tblSnd_Colli & " Pk.") End If VALUES.Ankunft = IIf(AVISO.Ankunft > cMeineFunktionenAVISO.LeerDatum, AVISO.Ankunft.ToString("dd.MM.yyyy") & vbNewLine & AVISO.Ankunft.ToString("HH:mm"), "") VALUES.Abfahrt = IIf(AVISO.Freigabe > cMeineFunktionenAVISO.LeerDatum, AVISO.Freigabe.ToString("dd.MM.yyyy") & vbNewLine & AVISO.Freigabe.ToString("HH:mm"), "") VALUES.Anmerkungen = (SENDUNG.tblSnd_Anmerkung & vbNewLine & vbNewLine & If(SENDUNG.tblSnd_AnmerkungDispoliste, "")).ToString.Trim If SENDUNG.tblSnd_Abfertigungsart_ID = 23 Then VALUES.Tarifposanzahl = SENDUNG.tblSnd_anzahlHandling End If VALUES.NCTS_VZAdr = If(SENDUNG.tblSnd_NCTSVerzollungsadresse, "") VALUES.NCTS_VZAdr &= vbNewLine & If(SENDUNG.NCTS_Verzollungsadresse_Strasse, "") VALUES.NCTS_VZAdr &= vbNewLine & If(SENDUNG.NCTS_Verzollungsadresse_Land, "") & " " & If(SENDUNG.NCTS_Verzollungsadresse_PLZ, "") & " " & If(SENDUNG.NCTS_Verzollungsadresse_Ort, "") VALUES.NCTS_VZAdr &= vbNewLine If If(SENDUNG.NCTS_Bestimmungszollstelle, "") <> "" Then VALUES.NCTS_VZAdr &= "Best.Zollst.:" & If(SENDUNG.NCTS_Bestimmungszollstelle, "") & " " If If(SENDUNG.NCTS_Verzollungsadresse_EORI, "") <> "" Then VALUES.NCTS_VZAdr &= "EORI:" & If(SENDUNG.NCTS_Verzollungsadresse_EORI, "") & If(SENDUNG.NCTS_Verzollungsadresse_EORI_NL, "") VALUES.NCTS_VZAdr = VALUES.NCTS_VZAdr.Trim VALUES.FISKAL_ENDEMPF = If(SENDUNG.tblSnd_Endempfaenger, "") If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then Dim txt = ADMIN.getValueTxtBySql("SELECT isnull([DokumenteLKWFreigabe],'') as DokumenteLKWFreigabe FROM [Kunden] WHERE [KundenNr]=" & SENDUNG.tblSnd_EmpfaengerKdNr, "FMZOLL") If txt <> "" Then VALUES.DokZuSend_Ueberschrift = "ACHTUNG: Zu sendene Dokumente:" VALUES.DokZuSend_Text = txt End If End If If SENDUNG.tblSnd_BARzuKassieren IsNot Nothing Then VALUES.BARzuKassieren = CDbl(SENDUNG.tblSnd_BARzuKassieren).ToString("C2") Else VALUES.BARzuKassieren = "" End If Try ' VALUES.BAR = "X" ' Dim dt As DataTable = VERAGSQL.loadDgvBySql("SELECT rksv_BelegId, rksv_umsatz , isnull((Select Name from Personal where ID=Benutzer),'') as Benutzer FROM [tblEABelegnummer] where ((FilialenNr='" & SENDUNG.FilialenNr & "' and AbfertigungsNr='" & SENDUNG.AbfertigungsNr & "') OR LKW_id='" & AVISO.AvisoID & "') and storniert=0 and gebuchtstorno=0 order by rksv_BelegId", "FMZOLL") Dim dt As DataTable = VERAGSQL.loadDgvBySql("SELECT rksv_BelegId, rksv_umsatz , isnull((Select Name from Personal where ID=Benutzer),'') as Benutzer FROM [tblEABelegnummer] where ((FilialenNr='" & SENDUNG.FilialenNr & "' and AbfertigungsNr='" & SENDUNG.AbfertigungsNr & "') OR LKW_id='" & AVISO.AvisoID & "') and storniert=0 and gebuchtstorno=0 order by rksv_BelegId", "FMZOLL") If dt.Rows.Count > 0 Then VALUES.Frachtfuehrer_Bar_BelegNr = getBenutzerShort(dt.Rows(0)("Benutzer").ToString) & " / " & dt.Rows(0)("rksv_BelegId").ToString VALUES.Frachtfuehrer_Bar_Betrag = CDbl(dt.Rows(0)("rksv_umsatz")).ToString("C2") End If If dt.Rows.Count > 1 Then VALUES.Frachtfuehrer_Bar_BelegNr2 = getBenutzerShort(dt.Rows(1)("Benutzer").ToString) & " / " & dt.Rows(1)("rksv_BelegId").ToString VALUES.Frachtfuehrer_Bar_Betrag2 = CDbl(dt.Rows(1)("rksv_umsatz")).ToString("C2") End If If dt.Rows.Count > 2 Then VALUES.Frachtfuehrer_Bar_BelegNr3 = getBenutzerShort(dt.Rows(2)("Benutzer").ToString) & " / " & dt.Rows(2)("rksv_BelegId").ToString VALUES.Frachtfuehrer_Bar_Betrag3 = CDbl(dt.Rows(2)("rksv_umsatz")).ToString("C2") End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("BAR-Err: Beträge konnten nicht geladen werden!" & vbNewLine & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try 'If SENDUNG.tblSnd_bar IsNot Nothing AndAlso CBool(SENDUNG.tblSnd_bar) Then 'VALUES.BAR = "X" 'If SENDUNG.tblSnd_barBeleg IsNot Nothing Then VALUES.Frachtfuehrer_Bar_BelegNr = SENDUNG.tblSnd_barBeleg 'If SENDUNG.tblSnd_betrag IsNot Nothing And IsNumeric(SENDUNG.tblSnd_betrag) Then 'VALUES.Frachtfuehrer_Bar_Betrag = CDbl(SENDUNG.tblSnd_betrag).ToString("C2") 'End If ' End If Select Case SENDUNG.tblSnd_aufschub Case "VERAG" VALUES.Aufschub_VERAG = "Aufschub VERAG" Case "AUFTR" VALUES.Auftraggeber_eigBin = "eig. BIN" Case "EMPF" VALUES.Empfaenger_eigBIN = "eig. BIN" End Select If CBool(VERAGSQL.getValueTxtBySql("SELECT TOP 1 isnull([Vorkasse],0) FROM [Kunden] where KundenNr=" & SENDUNG.tblSnd_EmpfaengerKdNr, "FMZOLL",,, False)) Then VALUES.Empfaenger_VK = "€ VK" If CBool(VERAGSQL.getValueTxtBySql("SELECT TOP 1 isnull([Vorkasse],0) FROM [Kunden] where KundenNr=" & SENDUNG.tblSnd_AbsenderKdNr, "FMZOLL",,, False)) Then VALUES.Absender_VK = "€ VK" If CBool(VERAGSQL.getValueTxtBySql("SELECT TOP 1 isnull([Vorkasse],0) FROM [Kunden] where KundenNr=" & AVISO.Auftraggeber_KdNr, "FMZOLL",,, False)) Then VALUES.Avisierer_VK = "€ VK" If CBool(VERAGSQL.getValueTxtBySql("SELECT TOP 1 isnull([Vorkasse],0) FROM [Kunden] where KundenNr=" & AVISO.Frächter_KdNr, "FMZOLL",,, False)) Then VALUES.Frachtfuehrer_VK = "€ VK" If CBool(VERAGSQL.getValueTxtBySql("SELECT TOP 1 isnull([Vorkasse],0) FROM [Kunden] where KundenNr=" & SENDUNG.tblSnd_AuftraggeberKdNr, "FMZOLL",,, False)) Then VALUES.Auftraggeber_VK = "€ VK" If SendungsAnzahlAviso < 0 Then SendungsAnzahlAviso = VERAGSQL.getValueTxtBySql("SELECT COUNT(*) FROM tblSendungen where tblSnd_AvisoID=" & AVISO.AvisoID, "AVISO") End If VALUES.SchnellAbfertigung = (SendungsAnzahlAviso = 1) VALUES.VG_MA = VERAGSQL.DLookup("mit_vname + ' ' + mit_nname", "tblMitarbeiter", "mit_id='" & SENDUNG.tblSnd_VG_MA & "'", "ADMIN", "") VALUES.QS_MA = VERAGSQL.DLookup("mit_vname + ' ' + mit_nname", "tblMitarbeiter", "mit_id='" & SENDUNG.tblSnd_QS_MA & "'", "ADMIN", "") SENDUNG.LOAD_ABRECHNUNG() 'Daten holen Dim abfertKostKdnr As Integer = -1 Dim cnt_fr As Integer = 0 Dim cnt_av As Integer = 0 Dim cnt_au As Integer = 0 Dim cnt_ab As Integer = 0 Dim cnt_em As Integer = 0 For Each r As VERAG_PROG_ALLGEMEIN.cSendungAbrechnung In SENDUNG.ABRECHNUNG Select Case r.sndabr_beteiligter Case "AVISIERER" Select Case r.sndabr_abrArt Case "ZOLL" : VALUES.Avisierer_Zoll = "X" Case "EUST" : VALUES.Avisierer_Eust = "X" Case "ABFKOST" : VALUES.Avisierer_Abf = "X" : abfertKostKdnr = AVISO.Auftraggeber_KdNr Case "CLEARING" : VALUES.Avisierer_Clear = "X" Case Else If cnt_av = 0 Then : VALUES.Avisierer_Leistung1 = r.sndabr_bezeichnung : VALUES.Avisierer_Betrag1 = ObjToCurr(r.sndabr_preis) : cnt_av += 1 ElseIf cnt_av = 1 Then : VALUES.Avisierer_Leistung2 = r.sndabr_bezeichnung : VALUES.Avisierer_Betrag2 = ObjToCurr(r.sndabr_preis) : cnt_av += 1 ElseIf cnt_av = 2 Then : VALUES.Avisierer_Leistung3 = r.sndabr_bezeichnung : VALUES.Avisierer_Betrag3 = ObjToCurr(r.sndabr_preis) : cnt_av += 1 End If End Select Case "AUFTR" Select Case r.sndabr_abrArt Case "ZOLL" : VALUES.Auftraggeber_Zoll = "X" Case "EUST" : VALUES.Auftraggeber_Eust = "X" Case "ABFKOST" : VALUES.Auftraggeber_Abf = "X" : abfertKostKdnr = SENDUNG.tblSnd_AuftraggeberKdNr Case "CLEARING" : VALUES.Auftraggeber_Clear = "X" Case Else If cnt_au = 0 Then : VALUES.Auftraggeber_Leistung1 = r.sndabr_bezeichnung : VALUES.Auftraggeber_Betrag = ObjToCurr(r.sndabr_preis) : cnt_au += 1 ElseIf cnt_au = 1 Then : VALUES.Auftraggeber_Leistung2 = r.sndabr_bezeichnung : VALUES.Auftraggeber_Betrag2 = ObjToCurr(r.sndabr_preis) : cnt_au += 1 ElseIf cnt_au = 2 Then : VALUES.Auftraggeber_Leistung3 = r.sndabr_bezeichnung : VALUES.Auftraggeber_Betrag3 = ObjToCurr(r.sndabr_preis) : cnt_au += 1 End If End Select Case "EMPF" Select Case r.sndabr_abrArt Case "ZOLL" : VALUES.Empfaenger_Zoll = "X" Case "EUST" : VALUES.Empfaenger_Eust = "X" Case "ABFKOST" : VALUES.Empfaenger_Abf = "X" : abfertKostKdnr = SENDUNG.tblSnd_EmpfaengerKdNr Case "CLEARING" : VALUES.Empfaenger_Clear = "X" Case Else If cnt_em = 0 Then : VALUES.Empfaenger_Leistung1 = r.sndabr_bezeichnung : VALUES.Empfaenger_Betrag1 = ObjToCurr(r.sndabr_preis) : cnt_em += 1 ElseIf cnt_em = 1 Then : VALUES.Empfaenger_Leistung2 = r.sndabr_bezeichnung : VALUES.Empfaenger_Betrag2 = ObjToCurr(r.sndabr_preis) : cnt_em += 1 ElseIf cnt_em = 2 Then : VALUES.Empfaenger_Leistung3 = r.sndabr_bezeichnung : VALUES.Empfaenger_Betrag3 = ObjToCurr(r.sndabr_preis) : cnt_em += 1 End If End Select Case "ABS" Select Case r.sndabr_abrArt Case "ZOLL" : VALUES.Absender_Zoll = "X" Case "EUST" : VALUES.Absender_Eust = "X" Case "ABFKOST" : VALUES.Absender_Abf = "X" : abfertKostKdnr = SENDUNG.tblSnd_AbsenderKdNr Case "CLEARING" : VALUES.Absender_Clear = "X" Case Else If cnt_ab = 0 Then : VALUES.Absender_Leistung1 = r.sndabr_bezeichnung : VALUES.Absender_Betrag1 = ObjToCurr(r.sndabr_preis) : cnt_ab += 1 ElseIf cnt_ab = 1 Then : VALUES.Absender_Leistung2 = r.sndabr_bezeichnung : VALUES.Absender_Betrag2 = ObjToCurr(r.sndabr_preis) : cnt_ab += 1 ElseIf cnt_ab = 2 Then : VALUES.Absender_Leistung3 = r.sndabr_bezeichnung : VALUES.Absender_Betrag3 = ObjToCurr(r.sndabr_preis) : cnt_ab += 1 End If End Select Case "FRACHTF" Select Case r.sndabr_abrArt Case "ZOLL" : VALUES.Frachtfuehrer_Zoll = "X" Case "EUST" : VALUES.Frachtfuehrer_Eust = "X" Case "ABFKOST" : VALUES.Frachtfuehrer_Abf = "X" : abfertKostKdnr = AVISO.Frächter_KdNr Case "CLEARING" : VALUES.Frachtfuehrer_Clear = "X" Case Else If cnt_fr = 0 Then : VALUES.Frachtfuehrer_Leistung1 = r.sndabr_bezeichnung : VALUES.Frachtfuehrer_Betrag1 = ObjToCurr(r.sndabr_preis) : cnt_fr += 1 ElseIf cnt_fr = 1 Then : VALUES.Frachtfuehrer_Leistung2 = r.sndabr_bezeichnung : VALUES.Frachtfuehrer_Betrag2 = ObjToCurr(r.sndabr_preis) : cnt_fr += 1 ElseIf cnt_fr = 2 Then : VALUES.Frachtfuehrer_Leistung3 = r.sndabr_bezeichnung : VALUES.Frachtfuehrer_Betrag3 = ObjToCurr(r.sndabr_preis) : cnt_fr += 1 End If End Select End Select Next VALUES.ABTEILUNG = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung VALUES.AbfKostKdnr = abfertKostKdnr Try Dim pc As System.Diagnostics.Process = System.Diagnostics.Process.GetCurrentProcess() pc.MaxWorkingSet = pc.MinWorkingSet Dim imgpath = "" Dim resPath As String = System.IO.Path.GetFullPath(Application.StartupPath & "\Resources\") If SENDUNG.FilialenNr = "4839" Then imgpath = resPath & "LEX.png" ElseIf SENDUNG.FilialenNr = "5501" Then imgpath = resPath & "IMEX.png" ElseIf SENDUNG.FilialenNr = "5601" Then imgpath = resPath & "UNISPED.png" ElseIf SENDUNG.FilialenNr = "5701" Then imgpath = resPath & "AMB.png" ElseIf SENDUNG.FilialenNr = "5801" Then imgpath = resPath & "FO.png" Else Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung Case "SUB" Select Case VALUES.ABTEILUNG Case "QS" : imgpath = resPath & "QS.png" Case Else : imgpath = resPath & "SUB.png" End Select Case "WAI" : imgpath = resPath & "WAI.png" Case "NKD" : imgpath = resPath & "NKD.png" Case "SBG" : imgpath = resPath & "SBG.png" Case Else : imgpath = resPath & "SUB.png" End Select End If Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung If Not ZOLLANMELDUNG.getDataByBezugsnummer(SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr, SENDUNG.tblSnd_Abfertigungsart_ID.ToString, SENDUNG.tblSnd_DakosyRef, AVISO.Grenzstelle) Then ZOLLANMELDUNG = Nothing End If If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then SENDUNG.LOAD_VORKOSTEN() End If Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath, ZOLLANMELDUNG, SENDUNG.HANDLING, SENDUNG.VORKOSTEN) rpt.Document.Printer.PrinterName = "" rpt.Document.CacheToDisk = False 'rpt.Document.CacheToDisk = True ' rpt.Document.CacheToDiskLocation = "C:\\Temp" If art = "" Or art = "PDF" Then ' Wird angezeigt, nicht gedruckt Dim printForm As New SDL.frmPrintLayout printForm.Viewer.LoadDocument(rpt) printForm.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous printForm.Show() ' printForm.BringToFront() ElseIf art = "PRINT" Or art = "DIALOG" Then rpt.Run(False) rpt.Document.Printer.PrinterName = Printername ' rpt.Document.Print((art = "DIALOG" Or Printername = ""), False, false) --> vorher usePrintingThread false... rpt.Document.Print((art = "DIALOG" Or Printername = ""), False, True) rpt.Dispose() 'rpt.Document.Dispose() ' rpt.Dispose() ' rpt = Nothing End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try ' If art = "PRINT" Then 'fm.fillPDF(name, list, listTowrite, , True, Printername, barcode, barcodeLKW) ' ElseIf art = "DIALOG" Then ' fm.fillPDF(name, list, listTowrite, , True, , barcode, barcodeLKW) ' Else ' fm.fillPDF(name, list, listTowrite, , , , barcode, barcodeLKW) ' End If ' End Sub Shared Function ObjToCurr(o) If o Is Nothing Then Return "" If IsNumeric(o) Then Return CDbl(o).ToString("C2") Return o End Function Shared Function getAufschubKto(KdNr As Integer, art As String) As String getAufschubKto = "" Select Case art Case "EUST" getAufschubKto = VERAGSQL.getValueTxtBySql("SELECT TOP 1 isnull([kdAkto_hauptzollamt],'') + isnull([kdAkto_kontonummer],'') FROM [tblKundenAufschubkonten] where [kdAkto_KundenNr]= " & KdNr & " and kdAkto_art IN(10,20)", "FMZOLL") If getAufschubKto = "" Then getAufschubKto = VERAGSQL.getValueTxtBySql("SELECT isnull([Aufschubkonto EUSt],'') FROM Kunden WHERE KundenNr=" & KdNr, "FMZOLL") Case "ZOLL" getAufschubKto = VERAGSQL.getValueTxtBySql("SELECT TOP 1 isnull([kdAkto_hauptzollamt],'') + isnull([kdAkto_kontonummer],'') FROM [tblKundenAufschubkonten] where [kdAkto_KundenNr]= " & KdNr & " and kdAkto_art IN(10,15)", "FMZOLL") If getAufschubKto = "" Then getAufschubKto = VERAGSQL.getValueTxtBySql("SELECT isnull([Aufschubkonto ZOLL],'') FROM Kunden WHERE KundenNr=" & KdNr, "FMZOLL") End Select End Function Shared Sub PrintSendungATILLA(art As String, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, AVISO As cAviso, Optional Printername As String = "") Dim ADMIN As New cADMIN Dim VALUES As New Gemeinsames.rptSendungenValuesATILLA Dim barcodeLKW As Image = Nothing If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("RPT_SND_BarcodeLKW") Then barcodeLKW = Code128Rendering.MakeBarcodeImage("/" & AVISO.AvisoID & "/", 1, True, 20) If barcodeLKW IsNot Nothing Then VALUES.barcodeLKW = barcodeLKW End If VALUES.AvisoId = AVISO.AvisoID VALUES.Avisierer_KdNr = IIf(IsNumeric(AVISO.Auftraggeber_KdNr) AndAlso AVISO.Auftraggeber_KdNr > 0, AVISO.Auftraggeber_KdNr, "") VALUES.Avisierer_Firma = AVISO.Auftraggeber VALUES.Frachtfuehrer_KdNr = IIf(IsNumeric(AVISO.Frächter_KdNr) AndAlso AVISO.Frächter_KdNr > 0, AVISO.Frächter_KdNr, "") VALUES.Frachtfuehrer_Firma = AVISO.Frächter VALUES.LKWKennzeichen = AVISO.LKW_Nr VALUES.Ankunft = IIf(AVISO.Ankunft > cMeineFunktionenAVISO.LeerDatum, AVISO.Ankunft.ToString("dd.MM.yy HH:mm"), "") VALUES.Abfahrt = IIf(AVISO.Freigabe > cMeineFunktionenAVISO.LeerDatum, AVISO.Freigabe.ToString("dd.MM.yy HH:mm"), "") 'Dim DATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER If SENDUNG IsNot Nothing Then Dim barcode As Image = Code128Rendering.MakeBarcodeImage("/" & SENDUNG.FilialenNr & "-" & SENDUNG.AbfertigungsNr & "-" & SENDUNG.UnterNr & "/", 1, True, 25) barcode.RotateFlip(RotateFlipType.Rotate90FlipNone) If IsNumeric(SENDUNG.AbfertigungsNr) AndAlso CInt(SENDUNG.AbfertigungsNr) > 100000 Then Else MsgBox("Abfertigungsnummer angeben!") Exit Sub End If If barcode IsNot Nothing Then VALUES.barcodeSendung = barcode 'VALUES.ABF_ART = SENDUNG.tblSnd_Abfertigungsart_ID VALUES.Abfertigungsnummer = SENDUNG.AbfertigungsNr VALUES.FilialeNr = SENDUNG.FilialenNr VALUES.Auftraggeber_KdNr = IIf(SENDUNG.tblSnd_AuftraggeberKdNr > 0, SENDUNG.tblSnd_AuftraggeberKdNr, "") VALUES.Auftraggeber_Firma = SENDUNG.tblSnd_Auftraggeber VALUES.Empfaenger_KdNr = IIf(SENDUNG.tblSnd_EmpfaengerKdNr > 0, SENDUNG.tblSnd_EmpfaengerKdNr, "") VALUES.Empfaenger_Firma = SENDUNG.tblSnd_Empfaenger VALUES.Absender_KdNr = IIf(SENDUNG.tblSnd_AbsenderKdNr > 0, SENDUNG.tblSnd_AbsenderKdNr, "") VALUES.Absender_Firma = SENDUNG.tblSnd_Absender VALUES.Warenbezeichnung = If(SENDUNG.tblSnd_Warenbezeichnung, "") If SENDUNG.tblSnd_Gewicht IsNot Nothing AndAlso SENDUNG.tblSnd_Gewicht <> "" Then VALUES.Gewicht = If(Not IsNumeric(SENDUNG.tblSnd_Gewicht) Or SENDUNG.tblSnd_Gewicht.Trim.ToLower.EndsWith("kg"), SENDUNG.tblSnd_Gewicht, SENDUNG.tblSnd_Gewicht & " kg") End If If SENDUNG.tblSnd_Colli IsNot Nothing AndAlso SENDUNG.tblSnd_Colli <> "" Then VALUES.Colli = If(Not IsNumeric(SENDUNG.tblSnd_Colli) Or SENDUNG.tblSnd_Colli.Trim.ToLower.Replace(".", "").EndsWith("pk"), SENDUNG.tblSnd_Colli, SENDUNG.tblSnd_Colli & " Pk.") End If VALUES.Anmerkungen = SENDUNG.tblSnd_Anmerkung End If VALUES.ABTEILUNG = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung ' VALUES.Auftraggeber_Firma = "" VALUES.Absender_Firma = "" VALUES.Empfaenger_Firma = "" VALUES.IRAN_CMR_Agent = "" Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL VALUES.ZA_1 = getZSTBezeichnung(SQL, AVISO.Durchgangszollstelle1) VALUES.ZA_2 = getZSTBezeichnung(SQL, AVISO.Durchgangszollstelle2) VALUES.ZA_3 = getZSTBezeichnung(SQL, AVISO.Durchgangszollstelle3) VALUES.ZA_4 = getZSTBezeichnung(SQL, AVISO.Durchgangszollstelle4) VALUES.ZA_5 = getZSTBezeichnung(SQL, AVISO.Durchgangszollstelle5) VALUES.AusgangsZst_1 = "" VALUES.AusgangsZst_2 = "" VALUES.AusgangsZst_3 = "" VALUES.AusgangsZst_4 = "" VALUES.AusgangsZst_5 = "" VALUES.AusgangsZst_6 = "" VALUES.AusgangsZst_7 = "" VALUES.AusgangsZst_8 = "" VALUES.AusgangsZst_9 = "" If AVISO.Ausgangszollstelle IsNot Nothing Then For Each s In AVISO.Ausgangszollstelle.split(";") Select Case s Case "KA" : VALUES.AusgangsZst_1 = "X" Case "L" : VALUES.AusgangsZst_2 = "X" Case "BB" : VALUES.AusgangsZst_3 = "X" Case "HR" : VALUES.AusgangsZst_4 = "X" Case "TK" : VALUES.AusgangsZst_5 = "X" Case "T" : VALUES.AusgangsZst_6 = "X" Case "KI" : VALUES.AusgangsZst_7 = "X" Case "TS" : VALUES.AusgangsZst_8 = "X" Case Else : If s <> "" Then VALUES.AusgangsZst_9 = "X" : VALUES.AndereAusgangsstelle = s End Select Next End If If AVISO.TransportTemperatur IsNot Nothing AndAlso AVISO.TransportTemperatur <> "" Then VALUES.TransporttemperaturCBX = "X" VALUES.Transporttemperatur = AVISO.TransportTemperatur End If If AVISO.Zugmaschine IsNot Nothing AndAlso AVISO.Zugmaschine <> "" Then VALUES.ZugmaschineCBX = "X" VALUES.Zugmaschine = AVISO.Zugmaschine End If Try Dim pc As System.Diagnostics.Process = System.Diagnostics.Process.GetCurrentProcess() pc.MaxWorkingSet = pc.MinWorkingSet Dim imgpath = System.IO.Path.GetFullPath(Application.StartupPath & "\Resources\akt_ATILLA.png") Dim rpt As New Gemeinsames.rptSendungenATILLA(VALUES, imgpath) rpt.Document.CacheToDisk = False 'rpt.Document.CacheToDisk = True ' rpt.Document.CacheToDiskLocation = "C:\\Temp" If art = "" Or art = "PDF" Then ' Wird angezeigt, nicht gedruckt Dim printForm As New SDL.frmPrintLayout printForm.Viewer.LoadDocument(rpt) printForm.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous printForm.Show() ' printForm.BringToFront() ElseIf art = "PRINT" Or art = "DIALOG" Then rpt.Run(False) ' If Printername = "" Then rpt.Dispose() : Exit Sub rpt.Document.Printer.PrinterName = Printername rpt.Document.PrintOptions.Margin = New GrapeCity.ActiveReports.Printing.Margin(0, 0, 0, 0) rpt.Document.Printer.OriginAtMargins = False 'rpt.Document.Printer.PrinterSettings.PrintRange = Printing.PrintRange.Selection 'rpt.Document.Printer.PrinterSettings.PrintRange = Printing.PrintRange.CurrentPage ' rpt.Document.PrintOptions.PageScaling = Extensibility.Printing.PageScaling.None 'Extensibility.Printing.PageScaling.FitToPrintableArea rpt.Document.Print((art = "DIALOG" Or Printername = ""), False) rpt.Dispose() 'rpt.Document.Dispose() ' rpt.Dispose() ' rpt = Nothing End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try ' If art = "PRINT" Then 'fm.fillPDF(name, list, listTowrite, , True, Printername, barcode, barcodeLKW) ' ElseIf art = "DIALOG" Then ' fm.fillPDF(name, list, listTowrite, , True, , barcode, barcodeLKW) ' Else ' fm.fillPDF(name, list, listTowrite, , , , barcode, barcodeLKW) ' End If ' End Sub Shared Function getZSTBezeichnung(SQL As VERAG_PROG_ALLGEMEIN.SQL, o As Object) As String If o Is Nothing Then Return "" ' Dim tmp = SQL.getValueTxtBySql("select isnull([basncd_name],'') as Dienststelle FROM atlas.dbo.basncd WHERE [basncd_dstnr]='" & o & "'", "ATLAS") Dim tmp = SQL.getValueTxtBySql("select isnull([Description],'') as Dienststelle FROM tbl_DY_ZollDE_C0141_Zollstellen WHERE [Code]='" & o & "' AND ((StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()))", "FMZOLL") Return If(tmp <> "", tmp, o) End Function Shared Function getBenutzerShort(s As String) As String If s.ToString.Contains(" ") Then Dim split() = s.ToString.Split(" ") getBenutzerShort = split(0) Else getBenutzerShort = s End If If getBenutzerShort.Length > 10 Then getBenutzerShort = getBenutzerShort.Substring(0, 10) End If End Function Shared Sub doAbrechnungsDetails(ByVal r As VERAG_PROG_ALLGEMEIN.cSendungAbrechnung, ByRef listTowrite As List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues), y_coord As Integer, ByRef cnt As Integer) Select Case r.sndabr_abrArt Case "ZOLL" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 126, y_coord + 3, 5, 5, "bold", 12, -1, iTextSharp.text.Element.ALIGN_LEFT)) Case "EUST" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 133, y_coord + 3, 5, 5, "bold", 12, -1, iTextSharp.text.Element.ALIGN_LEFT)) Case "ABFKOST" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 141, y_coord + 3, 5, 5, "bold", 12, -1, iTextSharp.text.Element.ALIGN_LEFT)) Case "CLEARING" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 148, y_coord + 3, 5, 5, "bold", 12, -1, iTextSharp.text.Element.ALIGN_LEFT)) Case Else If cnt < 3 Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(r.sndabr_bezeichnung, 154, y_coord + (cnt * 6), 30, 5, "normal", 10, -1, iTextSharp.text.Element.ALIGN_LEFT)) If IsNumeric(r.sndabr_preis) Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CDbl(r.sndabr_preis).ToString("C2"), 187, y_coord + (cnt * 6), 15, 5, "normal", 10, -1, iTextSharp.text.Element.ALIGN_RIGHT)) cnt += 1 End If End Select End Sub Shared Sub Gelangensbestaetigung(art As String, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, AVISO As cAviso, Optional Printername As String = "") Dim ADMIN As New cADMIN If Not AVISO.Abgeschlossen Then SENDUNG.SAVE() ' Speichern nur wenn noch nicht abgescvhlossen If IsNumeric(SENDUNG.AbfertigungsNr) AndAlso CInt(SENDUNG.AbfertigungsNr) > 100000 Then Else MsgBox("Abfertigungsnummer angeben!") Exit Sub End If Dim barcode As Image = Code128Rendering.MakeBarcodeImage("/" & SENDUNG.FilialenNr & "-" & SENDUNG.AbfertigungsNr & "-" & SENDUNG.UnterNr & "/", 1, True, 25) Dim barcodeLKW As Image = Code128Rendering.MakeBarcodeImage("/" & AVISO.AvisoID & "/", 1, True, 20) 'Dim DATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER Dim name = "Gelangensbestaetigung.pdf" Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.AbfertigungsNr, 140, 10, 55, 10, "bold", 18, , iTextSharp.text.Element.ALIGN_CENTER)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.FilialenNr, 149, 41, 26, 5, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.AbfertigungsNr, 149, 46, 26, 5, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString, 149, 52, 26, 5, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) Dim packstueckeAVISO_TMP = "" If SENDUNG.tblSnd_Warenbezeichnung <> "" Then packstueckeAVISO_TMP = IIf(SENDUNG.tblSnd_Colli <> "", SENDUNG.tblSnd_Colli & " Pk. ", "") packstueckeAVISO_TMP &= IIf(SENDUNG.tblSnd_Warenbezeichnung <> "", SENDUNG.tblSnd_Warenbezeichnung, "") packstueckeAVISO_TMP &= IIf(SENDUNG.tblSnd_Gewicht <> "", ", " & SENDUNG.tblSnd_Gewicht & " kg ", "") End If listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.tblSnd_Absender, 60, 92, 120, 12, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(SENDUNG.tblSnd_Empfaenger, 60, 110, 120, 12, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.Frächter, 60, 125, 120, 12, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(SENDUNG.tblSnd_Gewicht <> "", SENDUNG.tblSnd_Gewicht & " kg ", ""), 60, 159, 120, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 60, 143, 120, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(packstueckeAVISO_TMP, 25, 185, 100, 22, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT)) If art = "PRINT" Then fm.fillPDF(name, Nothing, listTowrite, , True, Printername,,, SDL.FormularManagerNEU.getUO2(SENDUNG.FilialenNr)) ElseIf art = "DIALOG" Then fm.fillPDF(name, Nothing, listTowrite, , True,,,, SDL.FormularManagerNEU.getUO2(SENDUNG.FilialenNr)) Else fm.fillPDF(name, Nothing, listTowrite,,,,,, SDL.FormularManagerNEU.getUO2(SENDUNG.FilialenNr)) End If End Sub End Class