edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
505b2800c5d77dc2a1a3d883c34e58f8ba5ff4b6
AVISO/Aviso/Classes/cSendungsoptions.vb
Andreas Luxbauer 505b2800c5 neu
2022-07-08 08:11:33 +02:00

760 lines
43 KiB
VB.net
Raw Blame History

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")
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
MsgBox("BAR-Err: Beträge konnten nicht geladen werden!" & vbNewLine & ex.Message & ex.StackTrace)
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) 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
MsgBox(ex.Message & ex.StackTrace)
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.Extensibility.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
MsgBox(ex.Message & ex.StackTrace)
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")
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
Reference in New Issue View Git Blame Copy Permalink