neu

SDL/Classes/cRKSV.vb

@@ -338,7 +338,7 @@ Public Class cRKSV
     Shared Function getGJ(BelegDat As Date, Optional FIRMA As String = "") As Integer
         If FIRMA = "" Then FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
         Select Case FIRMA
-            Case "IMEX", "FRONTOFFICE"
+            Case "IMEX", "FRONTOFFICE", "UNISPED", "AMBAR"
                 Return BelegDat.Year
             Case Else
                 Return IIf(BelegDat.Month = 1, BelegDat.Year - 1, BelegDat.Year)

SDL/Fakturierung/cFakturierung.vb

@@ -6,6 +6,14 @@ Public Class cFakturierung
 
     Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
+    Public Shared Function fktSVSRVS(firmaId As Integer, varWert As Object, Optional varWährungscode As Object = "EUR") As Object
+        Select Case firmaId
+            Case 21, 22, 23
+                fktSVSRVS_UNISPED(varWert, varWährungscode)
+            Case Else
+                fktSVSRVS(varWert, varWährungscode)
+        End Select
+    End Function
     Public Shared Function fktSVSRVS(varWert As Object, Optional varWährungscode As Object = "EUR") As Object
 
         Dim varVersicherungssumme As Object
@@ -180,6 +188,65 @@ Public Class cFakturierung
 
     End Function
 
+    Public Shared Function fktSVSRVS_UNISPED(varWert As Object, Optional varWährungscode As Object = "EUR") As Object
+
+        Dim varVersicherungssumme As Object
+        Dim varRechnungswährung As Object
+
+        ' Versicherungssumme prüfen
+
+        varVersicherungssumme = varWert
+        If varVersicherungssumme Is Nothing OrElse varVersicherungssumme = 0 Then
+            MsgBox("Die SVS/RVS-Prämie kann nicht ermittelt werden. Der Warenwert zur Bestimmung der Versicherungssumme ist nicht bekannt.", , "fktSVSRVS")
+            fktSVSRVS_UNISPED = Nothing
+            Exit Function
+        ElseIf varVersicherungssumme < 0 Then
+            varVersicherungssumme = 0 - varVersicherungssumme
+        End If
+
+        ' Die SVS/RVS-Tabelle ist in der Währung ATS geführt.
+        ' Wenn der Wert zur Bestimmung der Versicherungssumme auf einer anderen Währung basiert,
+        ' wird der Wert in ATS umgerechnet.
+        ' Die Versicherungsprämie ist in der Währung ATS angegeben. Lautet die Rechnung auf eine
+        ' andere Währung, wird die Versicherungsprämie auf diese Währung umgerechnet.
+
+        varRechnungswährung = varWährungscode
+        Select Case VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(varVersicherungssumme, varRechnungswährung, "EUR")
+            Case Is <= 2500
+                fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(2.91, "EUR", varRechnungswährung)
+            Case Is <= 3750
+                fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(4.42, "EUR", varRechnungswährung)
+            Case Is <= 5000
+                fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(5.82, "EUR", varRechnungswährung)
+            Case Is <= 6250
+                fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(7.1, "EUR", varRechnungswährung)
+            Case Is <= 7500
+                fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(8.67, "EUR", varRechnungswährung)
+            Case Is <= 10000
+                fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(11.34, "EUR", varRechnungswährung)
+            Case Is <= 15000
+                fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(16.24, "EUR", varRechnungswährung)
+            Case Is <= 20000
+                fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(21.13, "EUR", varRechnungswährung)
+            Case Is <= 25000
+                fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(25.3, "EUR", varRechnungswährung)
+            Case Is <= 50000
+                fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(44.73, "EUR", varRechnungswährung)
+            Case Is <= 100000
+                fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(73.8, "EUR", varRechnungswährung)
+            Case Is <= 150000
+                fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(104.87, "EUR", varRechnungswährung)
+            Case Is <= 200000
+                fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(134, "EUR", varRechnungswährung)
+            Case Is <= 300000
+                fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(160.85, "EUR", varRechnungswährung)
+            Case Is <= 1500000
+                fktSVSRVS_UNISPED = Int((varVersicherungssumme * 0.00055) * 100 + 0.5) / 100
+            Case Else
+                fktSVSRVS_UNISPED = Int((1500000 * 0.00055) * 100 + 0.5) / 100
+        End Select
+
+    End Function
 
     Shared Sub setGesamtBetraege(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional Steuersatz_Proz As Object = Nothing)
         Dim steuerPflichtigerBetrag As Double = 0
@@ -235,12 +302,16 @@ Public Class cFakturierung
 
         ' Dim Nettozahlungsziel
 
-
+        Dim ZZTage = 10
         If RECHNUNG.RechnungsKundenNr > 0 Then
 
             Dim RECHNUNG_AD As New VERAG_PROG_ALLGEMEIN.cAdressen(RECHNUNG.RechnungsKundenNr)
             Dim RECHNUNG_KD As New VERAG_PROG_ALLGEMEIN.cKunde(RECHNUNG.RechnungsKundenNr)
 
+            If RECHNUNG_KD.Zahlungsziel IsNot Nothing AndAlso IsNumeric(RECHNUNG_KD.Zahlungsziel) Then
+                ZZTage = RECHNUNG_KD.Zahlungsziel
+            End If
+
             Select Case RECHNUNG.[BelegartenNr]
                 Case 70 'RECHNUNG
 
@@ -249,10 +320,10 @@ Public Class cFakturierung
                             strText = strText & "Der Rechnungsbetrag wurde durch erteilten Abbuchungsauftrag eingezogen." & vbCrLf
                         Else
                             If checkIfKreditaufwendungen(RECHNUNG) Then
-                                strZahlbar = "Zahlbar innerhalb 10 Tagen abzüglich Pos. 750; ab 10 Tagen netto fällig."
+                                strZahlbar = "Zahlbar innerhalb " & ZZTage & " Tagen abzüglich Pos. 750; ab 10 Tagen netto fällig."
                             Else
                                 'Zahlungsziel allgemein.
-                                strZahlbar = "Zahlbar innerhalb 10 Tagen ab Rechnungsdatum."
+                                strZahlbar = "Zahlbar innerhalb " & ZZTage & " Tagen ab Rechnungsdatum."
                             End If
 
                             'Zahlungsziel bei Maut/Diesel.
@@ -296,38 +367,54 @@ Public Class cFakturierung
                     End If
             End Select
 
-
+            If getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, RECHNUNG.Firma_ID, RECHNUNG.RechnungsLandKz, RECHNUNG.OffertenNr, True) Then
-            ' Informations- und Werbetexte drucken
+            ElseIf getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, RECHNUNG.Firma_ID, RECHNUNG.RechnungsLandKz, , True) Then
-            Dim sqlStr = "SELECT * FROM Rechnungstexte WHERE 1=1"
+            ElseIf getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, RECHNUNG.Firma_ID, ,, True) Then
-            If RECHNUNG.Firma_ID > 0 Then sqlStr &= " AND (Firma_ID='" & RECHNUNG.Firma_ID & "' or Firma_ID is null) "
+            ElseIf getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, ,,, True) Then
-            If If(RECHNUNG_AD.LandKz, "") <> "" Then sqlStr &= " AND (LandKz='" & RECHNUNG_AD.LandKz & "' or LandKz is null) "
+            ElseIf getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, ,,, False) Then
-            If If(RECHNUNG.OffertenNr, 0) > 0 Then sqlStr &= " AND (OffertenNr='" & RECHNUNG.OffertenNr & "' or OffertenNr is null) "
-
-            'Wennn Rechnung als Email geschickt werden sollte Rechnungsdruck=2
-            If If(RECHNUNG_AD.Rechnungsdruck, -1) = 2 And If(RECHNUNG_AD.E_Mail, "") <> "" Then sqlStr &= " AND EMailRechnung=1 "
-
-            Select Case RECHNUNG.[BelegartenNr]
-                Case 70
-                    sqlStr &= " AND (DrucksteuerungsKz='R' OR DrucksteuerungsKz='') "
-                Case 71
-                    sqlStr &= " AND (DrucksteuerungsKz='G' OR DrucksteuerungsKz='') "
-            End Select
-            Dim dt_RechnungsTexte As DataTable = SQL.loadDgvBySql(sqlStr & " order by Firma_ID desc,LandKz desc,Offertennr desc", "FMZOLL")
-
-            If dt_RechnungsTexte.Rows.Count > 0 Then
-                strText &= dt_RechnungsTexte.Rows(0)("Text") & vbCrLf
-                '  MsgBox(dt_RechnungsTexte.Rows(0)("Text") & vbCrLf)
             End If
 
 
+            '' Informations- und Werbetexte drucken
+            'Dim sqlStr = "SELECT * FROM Rechnungstexte WHERE 1=1"
+            'If RECHNUNG.Firma_ID > 0 Then sqlStr &= " AND (Firma_ID='" & RECHNUNG.Firma_ID & "' or Firma_ID is null) "
+            'If If(RECHNUNG_AD.LandKz, "") <> "" Then sqlStr &= " AND (LandKz='" & RECHNUNG_AD.LandKz & "' or LandKz is null) "
+            'If If(RECHNUNG.OffertenNr, 0) > 0 Then sqlStr &= " AND (OffertenNr='" & RECHNUNG.OffertenNr & "' or OffertenNr is null) "
 
-            strText = strZahlbar & vbNewLine & strText
+            ''Wennn Rechnung als Email geschickt werden sollte Rechnungsdruck=2
-            ' Text in Rechnungskopfsatz übernehmen.
+            'If If(RECHNUNG_AD.Rechnungsdruck, -1) = 2 And If(RECHNUNG_AD.E_Mail, "") <> "" Then sqlStr &= " AND EMailRechnung=1 "
-            If strText = "" Then
+
+            'Select Case RECHNUNG.[BelegartenNr]
+            '    Case 70
+            '        sqlStr &= " AND (DrucksteuerungsKz='R' OR DrucksteuerungsKz='') "
+            '    Case 71
+            '        sqlStr &= " AND (DrucksteuerungsKz='G' OR DrucksteuerungsKz='') "
+            'End Select
+
+            'Dim dt_RechnungsTexte As DataTable = SQL.loadDgvBySql(sqlStr & " order by Firma_ID desc,LandKz desc,Offertennr desc", "FMZOLL")
+            'If dt_RechnungsTexte.Rows.Count > 0 Then
+            '    strText &= dt_RechnungsTexte.Rows(0)("Text") & vbCrLf
+            '    '  MsgBox(dt_RechnungsTexte.Rows(0)("Text") & vbCrLf)
+            'End If
+
+            Select Case RECHNUNG.Firma_ID
+                Case 21, 22, 23
+                    Dim VORL = RECHNUNG.POSITIONEN.FindAll(Function(x) (x.LeistungsNr = 700 Or x.LeistungsNr = 710))
+                    If VORL IsNot Nothing AndAlso VORL.Count > 0 Then
+                        strText = strText.Replace("<Vorlageprovision>", "Bei Zahlungseingang bis zum <Rechnungsdatum+10T> können Sie die verrechnete Vorlageprovision in Abzug bringen. " & vbCrLf)
+                    End If
+            End Select
+
+                strText = strZahlbar & vbNewLine & strText
+                ' Text in Rechnungskopfsatz übernehmen.
+                strText = strText.Replace("<Vorlageprovision>", "")
+
+                If strText = "" Then
                 RECHNUNG.Text = Nothing
             Else
                 strText.Replace("<EMailAdresse>", If(RECHNUNG_AD.E_Mail, " - "))
 
+
                 ' varPos = InStr(1, strText, "<EMailAdresse>")
                 '  If varPos > 0 And Not rstAdr.EOF And Not IsNull(rstAdr![E-Mail]) Then
                 'If Len(strText) > (varPos - 1 + Len("<EMailAdresse>")) Then
@@ -338,9 +425,18 @@ Public Class cFakturierung
                 '  End If
                 ' Me![Text] = strText
                 RECHNUNG.Text = strText
+                End If
+
             End If
 
-        End If
+        'Select Case RECHNUNG.Firma_ID
+        '    Case "21", "22", "23"
+        '        strText = strText.Replace("", "")
+        'End Select
+
+
+        'MsgBox("Firma:" & RECHNUNG.Firma_ID & " - Land:" & "" & RECHNUNG.RechnungsLandKz & " - OffertenNr:" & RECHNUNG.OffertenNr & " - TXT: " & strText)
+
 
 
         Return strText
@@ -348,6 +444,47 @@ Public Class cFakturierung
 
     End Function
 
+
+
+    Shared Function getRTXT_SQL(ByRef strText, RECHNUNG, RECHNUNG_AD, Optional FIRMA_ID = Nothing, Optional LandKz = Nothing, Optional OffertenNr = Nothing, Optional EMailRechnung = Nothing) As Boolean
+        ' Informations- und Werbetexte drucken
+        Dim sqlStr = "SELECT * FROM Rechnungstexte WHERE 1=1"
+        If FIRMA_ID IsNot Nothing Then
+            sqlStr &= " AND Firma_ID='" & RECHNUNG.Firma_ID & "' "
+        Else
+            sqlStr &= " AND Firma_ID is null"
+        End If
+        If LandKz IsNot Nothing Then
+            sqlStr &= " AND LandKz='" & LandKz & "' "
+        Else
+            sqlStr &= " AND LandKz is null"
+        End If
+        If OffertenNr IsNot Nothing Then
+            sqlStr &= " AND OffertenNr='" & OffertenNr & "' "
+        Else
+            sqlStr &= " AND OffertenNr is null"
+        End If
+        If EMailRechnung IsNot Nothing Then
+            'Wennn Rechnung als Email geschickt werden sollte Rechnungsdruck=2
+            If If(RECHNUNG_AD.Rechnungsdruck, -1) = 2 And If(RECHNUNG_AD.E_Mail, "") <> "" Then sqlStr &= " AND EMailRechnung=1 "
+        End If
+
+        Select Case RECHNUNG.[BelegartenNr]
+            Case 70
+                sqlStr &= " AND (DrucksteuerungsKz='R' OR DrucksteuerungsKz='') "
+            Case 71
+                sqlStr &= " AND (DrucksteuerungsKz='G' OR DrucksteuerungsKz='') "
+        End Select
+        '  MsgBox(sqlStr & " order by Firma_ID desc,LandKz desc,Offertennr desc")
+
+        Dim dt_RechnungsTexte As DataTable = SQL.loadDgvBySql(sqlStr & " order by Firma_ID desc,LandKz desc,Offertennr desc", "FMZOLL")
+        If dt_RechnungsTexte.Rows.Count > 0 Then
+            strText &= dt_RechnungsTexte.Rows(0)("Text") & vbCrLf
+            Return True
+        End If
+        Return False
+    End Function
+
     Shared Function checkIfcheckIfZollbelege(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As Boolean
         For Each POS In RECHNUNG.POSITIONEN
             If (POS.LeistungsNr = 10 Or POS.LeistungsNr = 60 Or POS.LeistungsNr = 70) Then
@@ -746,6 +883,9 @@ Public Class cFakturierung
             rpt.txtKdAuftragsNr_Ueberschrift.Visible = (rpt.txtKdAuftragsNr.Text <> String.Empty)
 
             rpt.txtVermerk.Text = (If(RECHNUNG.Text, "").ToString.Trim & vbNewLine & vbNewLine & If(RECHNUNG.Notiz, "").ToString.Trim).ToString.Trim
+            If RECHNUNG.RechnungsDatum IsNot Nothing Then
+                rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString)
+            End If
 
             '  REVERSE CHARGE (Übergang der Steuerschuld in EU-Ländern).
             '             Dies hat zur Folge, dass steuerfreie Rechnungsbeträge für Leistungen,
@@ -949,6 +1089,31 @@ Public Class cFakturierung
                 End Try
                 '-------------------------------------------------------------------------------
 
+                'ABRECHNUNGS API:
+                '-------------------------------------------------------------------------------
+                If Not Kopie Then
+                    Try
+                        Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr)
+                        If KUNDE_ERW IsNot Nothing Then
+                            'TRADESHIFT:
+                            Try
+                                If KUNDE_ERW.kde_API_Tradeshift Then
+                                    Select Case RECHNUNG.Firma_ID
+                                        Case 21, 22, 23
+                                            System.IO.File.Copy(tmpPath, "\\srv01.unisu.at\Unisped\___AR_PDF\" & RG_Bezeichnung, True)
+                                    End Select
+                                End If
+                            Catch ex As Exception
+                                MsgBox("Tradeshift Export fehlgeschlagen! " & ex.Message & ex.StackTrace)
+                            End Try
+                        End If
+                    Catch ex As Exception
+                        MsgBox("API Fehler!" & ex.Message & ex.StackTrace)
+                    End Try
+                End If
+                '-------------------------------------------------------------------------------
+
+
                 Select Case If(Rechnugnsdruck > 0, Rechnugnsdruck, If(AD.Rechnungsdruck, 0))'If(AD.Rechnungsdruck, 0)
                     Case 0, 1 'DRUCKEN
 
@@ -1116,6 +1281,31 @@ Public Class cFakturierung
         End Select
         getSignature &= "<br>"
 
+        'BREXIT
+        If True Then
+            Select Case firma
+                Case 21 'UNISPED
+                    getSignature &= "<br>"
+                    getSignature &= "<div style=""font-size:14px"">"
+                    getSignature &= "Sind Sie bereits auf den BREXIT vorbereitet?<br/>"
+                    getSignature &= "Weiter Infos finden Sie unter: <a href=""http://www.brexit.at"">http://www.brexit.at<br/>"
+                    getSignature &= "<img width=""250"" height=""80"" src=""" & imgsrc & "bexit.png""/></a><br/>"
+                    getSignature &= "<b>BREXIT Hotline:</b>  +43 7711 2677 - 27|  <b>@</b>  <a href=""mailto:brexit@unisped.at"">brexit@unisped.at</a> <br/>"
+                    getSignature &= "</div>"
+                    getSignature &= "<br>"
+                    getSignature &= "<br>"
+                Case Else
+                    getSignature &= "<br>"
+                    getSignature &= "<div style=""font-size:14px"">"
+                    getSignature &= "Sind Sie bereits auf den BREXIT vorbereitet?<br/>"
+                    getSignature &= "Weiter Infos finden Sie unter: <a href=""http://www.brexit.at"">http://www.brexit.at<br/>"
+                    getSignature &= "<img width=""250"" height=""80"" src=""" & imgsrc & "brexit.png""/></a><br/>"
+                    getSignature &= "<b>BREXIT Hotline:</b>  +43 7711 2777 - 885  |  <b>@</b>  <a href=""mailto:brexit@verag.ag"">brexit@verag.ag</a> <br/>"
+                    getSignature &= "</div>"
+                    getSignature &= "<br>"
+                    getSignature &= "<br>"
+            End Select
+        End If
         Select Case landKz
             Case "D", "A", "DE", "AT", "CH"
                 getSignature &= "<span style=""font-size:9px"">Wir arbeiten ausschließlich auf Grund der Allgemeinen Österreichischen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf Frachten,<br>
@@ -1450,6 +1640,32 @@ Public Class cFakturierung
             End Try
             '-------------------------------------------------------------------------------
 
+            'ABRECHNUNGS API:
+            '-------------------------------------------------------------------------------
+            Try
+                If Not SRDruckWiederholen Then
+                    Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(dt.Rows(0)("RechnungsKundenNr"))
+                    If KUNDE_ERW IsNot Nothing Then
+
+                        'TRADESHIFT:
+                        Try
+                            If KUNDE_ERW.kde_API_Tradeshift Then
+                                Select Case dt.Rows(0)("Firma_ID")
+                                    Case 21, 22, 23
+                                        System.IO.File.Copy(pathPDF, "\\srv01.unisu.at\Unisped\___AR_PDF\Sammelrechnung_" & RechnungsNr & ".pdf", True)
+                                End Select
+                            End If
+                        Catch ex As Exception
+                            MsgBox("Tradeshift Export fehlgeschalgen! " & ex.Message & ex.StackTrace)
+                        End Try
+                    End If
+                End If
+            Catch ex As Exception
+                MsgBox("API Fehler!" & ex.Message & ex.StackTrace)
+            End Try
+            '-------------------------------------------------------------------------------
+
+
         End If
         '-------------- ENDE -------------- 
     End Function

SDL/Fakturierung/frmAbrechnungsMaske.vb

@@ -317,11 +317,16 @@ Public Class frmAbrechnungsMaske
         If MyDatagridview1.SelectedRows.Count > 0 Then
             If vbYes = MsgBox("Es werden " & MyDatagridview1.SelectedRows.Count & " Rechnungen in ein PDF gewandelt." & vbNewLine & "Möchten Sie fortfahren?", vbYesNoCancel) Then
 
+                'Rechnungsdatum festlegen:
+                Dim RechnungsDatumTMP As Date = Now
+                cFakturierung.getRgDatInput("", RechnungsDatumTMP)
+
+
                 Dim list As New List(Of String) ' Sammlung PDFs
 
                 For Each r As DataGridViewRow In MyDatagridview1.SelectedRows
                     Dim path = ""
-                    cFakturierung.doRechnungsDruck(r.Cells("RK_ID").Value,,, 4, path, cboPrinter.Text)
+                    cFakturierung.doRechnungsDruck(r.Cells("RK_ID").Value, RechnungsDatumTMP,, 4, path, cboPrinter.Text)
                     If path <> "" Then list.Add(path)
                 Next
 
@@ -368,11 +373,18 @@ Public Class frmAbrechnungsMaske
         ElseIf MyDatagridview1.SelectedRows.Count > 1 Then
 
             If vbYes = MsgBox("Es werden " & MyDatagridview1.SelectedRows.Count & " Rechnungen ans Mail angefügt." & vbNewLine & "Möchten Sie fortfahren?", vbYesNoCancel) Then
+
+                'Rechnungsdatum festlegen:
+                Dim RechnungsDatumTMP As Date = Now
+                cFakturierung.getRgDatInput("", RechnungsDatumTMP)
+
+
+
                 Dim list As New List(Of String) ' Sammlung PDFs
 
                 For Each r As DataGridViewRow In MyDatagridview1.SelectedRows
                     Dim path = ""
-                    cFakturierung.doRechnungsDruck(r.Cells("RK_ID").Value,,, 4, path, cboPrinter.Text)
+                    cFakturierung.doRechnungsDruck(r.Cells("RK_ID").Value, RechnungsDatumTMP,, 4, path, cboPrinter.Text)
                     If path <> "" Then list.Add(path)
                 Next
 
@@ -459,8 +471,15 @@ Public Class frmAbrechnungsMaske
     Private Sub Button7_Click2(sender As Object, e As EventArgs) Handles Button7.Click
         If MyDatagridview1.SelectedRows.Count > 0 Then
             If vbYes = MsgBox("Es werden " & MyDatagridview1.SelectedRows.Count & " Rechnungen ans Mail gedruckt." & vbNewLine & "Möchten Sie fortfahren?", vbYesNoCancel) Then
+
+                'Rechnungsdatum festlegen:
+                Dim RechnungsDatumTMP As Date = Now
+                cFakturierung.getRgDatInput("", RechnungsDatumTMP)
+
+
+
                 For Each r As DataGridViewRow In MyDatagridview1.SelectedRows
-                    cFakturierung.doRechnungsDruck(r.Cells("RK_ID").Value,,, 0, cboPrinter.Text)
+                    cFakturierung.doRechnungsDruck(r.Cells("RK_ID").Value, RechnungsDatumTMP,, 0, cboPrinter.Text)
                 Next
                 'merge PDFs path
                 initDGV()

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -1078,29 +1078,31 @@ Public Class usrCntlFaktAbrechnung
                 If RECHNUNG Is Nothing Then loaded = loadedtmp : Exit Sub
                 '  MsgBox(RECHNUNG.POSITIONEN.Count)
                 For Each POS In RECHNUNG.POSITIONEN
-                    If POS.Anzahl > 0 And POS.Preis <> 0 Then 'HIER WIRD GEFILTERT --> Nur wo etwas zu verrechnen ist!
+                    If .Columns.Count > 0 Then
+                        If POS.Anzahl > 0 And POS.Preis <> 0 Then 'HIER WIRD GEFILTERT --> Nur wo etwas zu verrechnen ist!
 
 
-                        'If RECHNUNG.Steuersatz_Proz = 0 Then
+                            'If RECHNUNG.Steuersatz_Proz = 0 Then
-                        '    .Rows.Add(POS.LeistungsNr & " " & POS.LeistungsBez, POS.Anzahl, POS.Preis, 0, (If(POS.SteuerfreierBetrag, 0) + If(POS.SteuerpflichtigerBetrag, 0)), POS.AufschubkontoNr)
+                            '    .Rows.Add(POS.LeistungsNr & " " & POS.LeistungsBez, POS.Anzahl, POS.Preis, 0, (If(POS.SteuerfreierBetrag, 0) + If(POS.SteuerpflichtigerBetrag, 0)), POS.AufschubkontoNr)
-                        'Else
+                            'Else
-                        '    .Rows.Add(POS.LeistungsNr & " " & POS.LeistungsBez, POS.Anzahl, POS.Preis, POS.SteuerpflichtigerBetrag, POS.SteuerfreierBetrag, POS.AufschubkontoNr)
+                            '    .Rows.Add(POS.LeistungsNr & " " & POS.LeistungsBez, POS.Anzahl, POS.Preis, POS.SteuerpflichtigerBetrag, POS.SteuerfreierBetrag, POS.AufschubkontoNr)
-                        'End If
+                            'End If
 
 
-                        .Rows.Add(POS.LeistungsNr & " " & POS.LeistungsBez, POS.Anzahl, POS.Preis * vorzeichen, If(POS.SteuerpflichtigerBetrag = 0, "", POS.SteuerpflichtigerBetrag * vorzeichen), If(POS.SteuerfreierBetrag = 0, "", POS.SteuerfreierBetrag * vorzeichen), POS.AufschubkontoNr)
+                            .Rows.Add(POS.LeistungsNr & " " & POS.LeistungsBez, POS.Anzahl, POS.Preis * vorzeichen, If(POS.SteuerpflichtigerBetrag = 0, "", POS.SteuerpflichtigerBetrag * vorzeichen), If(POS.SteuerfreierBetrag = 0, "", POS.SteuerfreierBetrag * vorzeichen), POS.AufschubkontoNr)
 
-                        If CBool(POS.Steuerpflichtig) Then
+                            If CBool(POS.Steuerpflichtig) Then
-                            steuerPflichtigerBetrag += POS.SteuerpflichtigerBetrag
+                                steuerPflichtigerBetrag += POS.SteuerpflichtigerBetrag
-                        Else
+                            Else
-                            steuerFreierBetrag += POS.SteuerfreierBetrag
+                                steuerFreierBetrag += POS.SteuerfreierBetrag
-                        End If
+                            End If
 
-                        If CBool(SQL.DLookup("[Abfertigungskosten]", "Leistungen", "[LeistungsNr]=" & POS.[LeistungsNr], "FMZOLL", False)) Then
+                            If CBool(SQL.DLookup("[Abfertigungskosten]", "Leistungen", "[LeistungsNr]=" & POS.[LeistungsNr], "FMZOLL", False)) Then
 
-                            Abfertigungskosten += VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(POS.[SteuerpflichtigerBetrag], RECHNUNG.Währungscode, "EUR")
+                                Abfertigungskosten += VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(POS.[SteuerpflichtigerBetrag], RECHNUNG.Währungscode, "EUR")
-                            Abfertigungskosten += VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(POS.[SteuerfreierBetrag], RECHNUNG.Währungscode, "EUR")
+                                Abfertigungskosten += VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(POS.[SteuerfreierBetrag], RECHNUNG.Währungscode, "EUR")
 
+                            End If
                         End If
                     End If
                 Next
@@ -1248,9 +1250,9 @@ Public Class usrCntlFaktAbrechnung
 
         'Die 0-Einträge löschen:
         RECHNUNG.POSITIONEN.RemoveAll(Function(p) p.Anzahl = 0 Or p.Preis = 0)
-
         initDGVRechnungenPositionen()
 
+
         'loaded = True
         loaded = loadedTmp
 

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb

@@ -108,18 +108,22 @@
             txtAnzVerp.Text = If(SENDUNG.tblSnd_Colli, "")
             txtGewicht.Text = If(SENDUNG.tblSnd_Gewicht, "")
             txtAbsender.Text = If(SENDUNG.tblSnd_Absender, "")
-            If SENDUNG.AbfertigungsNr > 0 Then
+                If SENDUNG.AbfertigungsNr > 0 Then
-                '   txtAbfertigungsNr.Text = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
+                    '   txtAbfertigungsNr.Text = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
-                txtAbfertigungsNr.Text = SENDUNG.AbfertigungsNr
+                    txtAbfertigungsNr.Text = SENDUNG.AbfertigungsNr
-                If SENDUNG.FilialenNr > 0 Then
+                    If SENDUNG.FilialenNr > 0 Then
-                    cboFiliale.changeItem(SENDUNG.FilialenNr)
+                        cboFiliale.changeItem(SENDUNG.FilialenNr)
-                    Dim VK = VERAG_PROG_ALLGEMEIN.cVorauskasse.LOADByFilialeAbfNr(SENDUNG.FilialenNr, SENDUNG.AbfertigungsNr, ROLLE)
+                        Dim VK = VERAG_PROG_ALLGEMEIN.cVorauskasse.LOADByFilialeAbfNr(SENDUNG.FilialenNr, SENDUNG.AbfertigungsNr, ROLLE)
-                    If VK IsNot Nothing Then setValues(VK)
+                        If VK IsNot Nothing Then setValues(VK)
-                    initBerechnung()
+                        initBerechnung()
+                    End If
                 End If
-            End If
 
-        End If
+                If IsNumeric(If(SENDUNG.tblSnd_Frachtkosten, "")) Then
+                    txtFrachtkostenAusl._value = CDbl(SENDUNG.tblSnd_Frachtkosten)
+                End If
+
+            End If
             If AVISO IsNot Nothing Then
                 txtLKWKennz.Text = If(AVISO.LKW_Nr, "")
                 txtUnternehmer.Text = If(AVISO.Frächter, "")
@@ -188,12 +192,13 @@
         If CDate(Now.ToShortDateString) >= CDate("01.07.2020") And CDate(Now.ToShortDateString) <= CDate("31.12.2020") Then
 
             txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0%", "0"))
-            txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5%", "0,05"))
+            'txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5%", "0,05"))
-            txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16%", "0,16"))
+            'txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16%", "0,16"))
             txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7%", "0,07"))
             txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("19%", "0,19"))
             txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20%", "0,20"))
-            txtEustProzent.changeItem("0,16")
+            txtEustProzent.changeItem("0,19")
+            ' txtEustProzent.changeItem("0,16")
         Else
 
             txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0%", "0"))
@@ -261,25 +266,25 @@
         End If
 
         Dim zwTMP As Double =
-            Vl(txtVerzollungskosten) +
+                Vl(txtVerzollungskosten) +
-            Vl(txtWeitereTarifPos) +
+                Vl(txtWeitereTarifPos) +
-            Vl(txtATLAS) +
+                Vl(txtATLAS) +
-            Vl(txtClearing) +
+                Vl(txtClearing) +
-            Vl(txtKorrRechnung) +
+                Vl(txtKorrRechnung) +
-            Vl(txtUebersetzungRg) +
+                Vl(txtUebersetzungRg) +
-            Vl(txtAviso) +
+                Vl(txtAviso) +
-            Vl(txtSvs) +
+                Vl(txtSvs) +
-        Vl(txtSonstigeKosten)
+                Vl(txtSonstigeKosten) +
+                Vl(txtPapierePorti)
         ' Vl(txtMWST) +
         'Vl(txtPapierePorti)
         txtMWST._value = Vl(txtMwstProzent) * zwTMP
         txtGesamtsumme._value =
-            Vl(txtZoll2) +
+                Vl(txtZoll2) +
-            Vl(txtEust2) +
+                Vl(txtEust2) +
-            Vl(txtAndereAbgabenBetrag) +
+                Vl(txtAndereAbgabenBetrag) +
-            zwTMP +
+                zwTMP +
-            Vl(txtMWST) +
+                Vl(txtMWST)
-            Vl(txtPapierePorti)
 
 
         '----------------------------------------------------------------
@@ -338,7 +343,7 @@
                 Case "CS"
                     txtEustProzent.changeItem("0,20")
                 Case "AG"
-                    If CDate(Now.ToShortDateString) >= CDate("01.07.2020") And CDate(Now.ToShortDateString) <= CDate("31.12.2020") Then
+                    If CDate(Now.ToShortDateString) >= CDate("01.07.2020") And CDate(Now.ToShortDateString) <= CDate("20.12.2020") Then
                         txtEustProzent.changeItem("0,16")
                     Else
                         txtEustProzent.changeItem("0,19")

SDL/Formulare/KDFormulare/frmFormulare.vb

@@ -3140,11 +3140,17 @@ Public Class FormularManagerNEU
 
         listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAviso.Text, 170, top + 37, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
         listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSvs.Text, 170, top + 41, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKostenText.Text, 116.5, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKostenText.Text, 116.5, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKosten.Text, 170, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
+        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKosten.Text, 170, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMwstProzent.Text, 140, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
+        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMwstProzent.Text, 140, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMWST.Text, 170, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
+        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMWST.Text, 170, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
-        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPapierePorti.Text, 170, top + 56, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
+        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPapierePorti.Text, 170, top + 56, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPapierePorti.Text, 170, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKostenText.Text, 116.5, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKosten.Text, 170, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMwstProzent.Text, 140, top + 53, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMWST.Text, 170, top + 53, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
+
 
         listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGesamtsumme.Text, 170, top + 61, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
 
@@ -4268,6 +4274,19 @@ Public Class FormularManagerNEU
     End Function
 
 
+    Shared Function Zollstopp(Zollstop, Entladestelle, Kommentare, Absender) As String
+        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(Absender, 70, 44, 100, 10, "normal", 14, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Zollstop, 50, 80, 110, 30, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Entladestelle, 50, 145, 110, 30, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT))
+        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Kommentare, 50, 212, 110, 30, "normal", 12, , iTextSharp.text.Element.ALIGN_LEFT))
+
+        Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Zollstopp", listTowrite)
+    End Function
 
     Shared Function Bonitaetsauskunft(usrCntl As usrcntlCreditreformBoniAuskunft) As String
         Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
@@ -4310,14 +4329,14 @@ Public Class FormularManagerNEU
 
     Public Shared Function getUO2() As String
         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-            Case "IMEX", "ATILLA", "UNISPED" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "IMEX", "ATILLA", "UNISPED", "AMBAR" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
             Case Else : Return ""
         End Select
     End Function
 
     Public Shared Function getUO2_FO() As String
         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-            Case "IMEX", "ATILLA", "UNISPED", "FRONTOFFICE" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "IMEX", "ATILLA", "UNISPED", "AMBAR", "FRONTOFFICE" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
             Case Else : Return ""
         End Select
     End Function

SDL/My Project/Resources.Designer.vb

@@ -22,7 +22,7 @@ Namespace My.Resources
     '''<summary>
     '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
     '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"),  _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"),  _
      Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
      Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
      Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
@@ -349,6 +349,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property brexit() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("brexit", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -1683,6 +1693,15 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die  ähnelt.
+        '''</summary>
+        Friend ReadOnly Property sdf3sdfewr3edcvbn() As String
+            Get
+                Return ResourceManager.GetString("sdf3sdfewr3edcvbn", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -2202,7 +2221,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 1.1.8.4 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 1.1.8.5 ähnelt.
         '''</summary>
         Friend ReadOnly Property Version() As String
             Get

SDL/My Project/Resources.resx

@@ -638,7 +638,7 @@
     <value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Version" xml:space="preserve">
-    <value>1.1.8.4</value>
+    <value>1.1.8.5</value>
   </data>
   <data name="axxes1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -799,4 +799,10 @@
   <data name="Unisped_ZS_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Unisped_ZS_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="brexit" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\brexit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="sdf3sdfewr3edcvbn" xml:space="preserve">
+    <value />
+  </data>
 </root>

SDL/Reports/Zoll/subrptKontrolleLKW_NCTSTR_Abrechnung.vb

@@ -67,7 +67,6 @@ Public Class subrptKontrolleLKW_NCTSTR_Abrechnung
     End Sub
 
     Private Sub ReportFooter1_Format(sender As Object, e As EventArgs) Handles ReportFooter1.Format
-
         lblGesamtsumme.Text = "<EFBFBD> " & GesSumme.ToString("N2", CultureInfo.InvariantCulture)
     End Sub
 End Class

SDL/SDL.vbproj

@@ -4151,6 +4151,9 @@
     <None Include="Resources\android-add-contact1.png" />
     <None Include="Resources\aviso_messenger.png" />
     <None Include="Resources\flagge_tr.png" />
+    <None Include="Resources\brexit.png">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
     <Content Include="Resources\GS\gsdll32.dll">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>

SDL/SMS/frmSendSMS.Designer.vb

@@ -45,6 +45,8 @@ Partial Class frmSendSMS
         Me.Button12 = New System.Windows.Forms.Button()
         Me.pic = New System.Windows.Forms.PictureBox()
         Me.cbxLKWOK = New System.Windows.Forms.CheckBox()
+        Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label3 = New System.Windows.Forms.Label()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -78,7 +80,7 @@ Partial Class frmSendSMS
         Me.txtHandyNummer.Multiline = True
         Me.txtHandyNummer.Name = "txtHandyNummer"
         Me.txtHandyNummer.Size = New System.Drawing.Size(384, 28)
-        Me.txtHandyNummer.TabIndex = 3
+        Me.txtHandyNummer.TabIndex = 2
         '
         'Label1
         '
@@ -101,7 +103,7 @@ Partial Class frmSendSMS
         Me.cboLandVorwahl.Location = New System.Drawing.Point(207, 187)
         Me.cboLandVorwahl.Name = "cboLandVorwahl"
         Me.cboLandVorwahl.Size = New System.Drawing.Size(64, 28)
-        Me.cboLandVorwahl.TabIndex = 2
+        Me.cboLandVorwahl.TabIndex = 7
         Me.cboLandVorwahl.Visible = False
         '
         'txtNachricht
@@ -114,7 +116,7 @@ Partial Class frmSendSMS
         Me.txtNachricht.MaxLines_Warning_Label = Nothing
         Me.txtNachricht.Name = "txtNachricht"
         Me.txtNachricht.Size = New System.Drawing.Size(534, 144)
-        Me.txtNachricht.TabIndex = 5
+        Me.txtNachricht.TabIndex = 6
         Me.txtNachricht.Text = ""
         '
         'btnAbbrechen
@@ -126,7 +128,7 @@ Partial Class frmSendSMS
         Me.btnAbbrechen.Location = New System.Drawing.Point(405, 339)
         Me.btnAbbrechen.Name = "btnAbbrechen"
         Me.btnAbbrechen.Size = New System.Drawing.Size(144, 25)
-        Me.btnAbbrechen.TabIndex = 9
+        Me.btnAbbrechen.TabIndex = 22
         Me.btnAbbrechen.Text = "       Abbrechen"
         Me.btnAbbrechen.UseVisualStyleBackColor = True
         '
@@ -138,7 +140,7 @@ Partial Class frmSendSMS
         Me.btnOK.Location = New System.Drawing.Point(405, 265)
         Me.btnOK.Name = "btnOK"
         Me.btnOK.Size = New System.Drawing.Size(144, 51)
-        Me.btnOK.TabIndex = 10
+        Me.btnOK.TabIndex = 14
         Me.btnOK.Text = "          SMS senden"
         Me.btnOK.UseVisualStyleBackColor = True
         '
@@ -146,10 +148,10 @@ Partial Class frmSendSMS
         '
         Me.Label2.AutoSize = True
         Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.Label2.Location = New System.Drawing.Point(12, 99)
+        Me.Label2.Location = New System.Drawing.Point(12, 91)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(72, 17)
-        Me.Label2.TabIndex = 4
+        Me.Label2.TabIndex = 3
         Me.Label2.Text = "Nachricht:"
         '
         'Button1
@@ -158,7 +160,7 @@ Partial Class frmSendSMS
         Me.Button1.Location = New System.Drawing.Point(15, 267)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(300, 25)
-        Me.Button1.TabIndex = 6
+        Me.Button1.TabIndex = 8
         Me.Button1.Text = "Bitte zu VERAG kommen!"
         Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.Button1.UseVisualStyleBackColor = True
@@ -180,7 +182,7 @@ Partial Class frmSendSMS
         Me.Button3.Location = New System.Drawing.Point(15, 315)
         Me.Button3.Name = "Button3"
         Me.Button3.Size = New System.Drawing.Size(300, 25)
-        Me.Button3.TabIndex = 14
+        Me.Button3.TabIndex = 15
         Me.Button3.Text = "Bitte zu VERAG kommen und den Stempel mitnehmen!"
         Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.Button3.UseVisualStyleBackColor = True
@@ -191,7 +193,7 @@ Partial Class frmSendSMS
         Me.Button4.Location = New System.Drawing.Point(15, 339)
         Me.Button4.Name = "Button4"
         Me.Button4.Size = New System.Drawing.Size(300, 25)
-        Me.Button4.TabIndex = 17
+        Me.Button4.TabIndex = 19
         Me.Button4.Text = "Bitte zu VERAG kommen und Bargeld mitnehmen: €" & Global.Microsoft.VisualBasic.ChrW(10) & " ..." & Global.Microsoft.VisualBasic.ChrW(10)
         Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.Button4.UseVisualStyleBackColor = True
@@ -202,7 +204,7 @@ Partial Class frmSendSMS
         Me.Button5.Location = New System.Drawing.Point(314, 339)
         Me.Button5.Name = "Button5"
         Me.Button5.Size = New System.Drawing.Size(43, 25)
-        Me.Button5.TabIndex = 18
+        Me.Button5.TabIndex = 20
         Me.Button5.Text = "TR"
         Me.Button5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.Button5.UseVisualStyleBackColor = True
@@ -213,7 +215,7 @@ Partial Class frmSendSMS
         Me.Button6.Location = New System.Drawing.Point(314, 315)
         Me.Button6.Name = "Button6"
         Me.Button6.Size = New System.Drawing.Size(43, 25)
-        Me.Button6.TabIndex = 15
+        Me.Button6.TabIndex = 16
         Me.Button6.Text = "TR"
         Me.Button6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.Button6.UseVisualStyleBackColor = True
@@ -235,7 +237,7 @@ Partial Class frmSendSMS
         Me.Button8.Location = New System.Drawing.Point(314, 267)
         Me.Button8.Name = "Button8"
         Me.Button8.Size = New System.Drawing.Size(43, 25)
-        Me.Button8.TabIndex = 7
+        Me.Button8.TabIndex = 9
         Me.Button8.Text = "TR"
         Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.Button8.UseVisualStyleBackColor = True
@@ -246,7 +248,7 @@ Partial Class frmSendSMS
         Me.Button9.Location = New System.Drawing.Point(356, 339)
         Me.Button9.Name = "Button9"
         Me.Button9.Size = New System.Drawing.Size(43, 25)
-        Me.Button9.TabIndex = 19
+        Me.Button9.TabIndex = 21
         Me.Button9.Text = "YU"
         Me.Button9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.Button9.UseVisualStyleBackColor = True
@@ -257,7 +259,7 @@ Partial Class frmSendSMS
         Me.Button10.Location = New System.Drawing.Point(356, 315)
         Me.Button10.Name = "Button10"
         Me.Button10.Size = New System.Drawing.Size(43, 25)
-        Me.Button10.TabIndex = 16
+        Me.Button10.TabIndex = 17
         Me.Button10.Text = "YU"
         Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.Button10.UseVisualStyleBackColor = True
@@ -279,7 +281,7 @@ Partial Class frmSendSMS
         Me.Button12.Location = New System.Drawing.Point(356, 267)
         Me.Button12.Name = "Button12"
         Me.Button12.Size = New System.Drawing.Size(43, 25)
-        Me.Button12.TabIndex = 8
+        Me.Button12.TabIndex = 10
         Me.Button12.Text = "YU"
         Me.Button12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.Button12.UseVisualStyleBackColor = True
@@ -302,16 +304,41 @@ Partial Class frmSendSMS
         Me.cbxLKWOK.Location = New System.Drawing.Point(406, 320)
         Me.cbxLKWOK.Name = "cbxLKWOK"
         Me.cbxLKWOK.Size = New System.Drawing.Size(120, 17)
-        Me.cbxLKWOK.TabIndex = 21
+        Me.cbxLKWOK.TabIndex = 18
         Me.cbxLKWOK.Text = "LKW auf OK setzen"
         Me.cbxLKWOK.UseVisualStyleBackColor = True
         '
+        'cboFirma
+        '
+        Me.cboFirma._allowedValuesFreiText = Nothing
+        Me.cboFirma._allowFreiText = True
+        Me.cboFirma._value = ""
+        Me.cboFirma.DropDownWidth = 250
+        Me.cboFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.cboFirma.FormattingEnabled = True
+        Me.cboFirma.Location = New System.Drawing.Point(285, 88)
+        Me.cboFirma.Name = "cboFirma"
+        Me.cboFirma.Size = New System.Drawing.Size(114, 24)
+        Me.cboFirma.TabIndex = 5
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Label3.Location = New System.Drawing.Point(232, 91)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(47, 17)
+        Me.Label3.TabIndex = 4
+        Me.Label3.Text = "Firma:"
+        '
         'frmSendSMS
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
         Me.ClientSize = New System.Drawing.Size(560, 371)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.cboFirma)
         Me.Controls.Add(Me.cbxLKWOK)
         Me.Controls.Add(Me.cboLandVorwahl)
         Me.Controls.Add(Me.pic)
@@ -365,4 +392,6 @@ Partial Class frmSendSMS
     Friend WithEvents Button12 As System.Windows.Forms.Button
     Friend WithEvents pic As System.Windows.Forms.PictureBox
     Friend WithEvents cbxLKWOK As CheckBox
+    Friend WithEvents cboFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label3 As Label
 End Class

SDL/SMS/frmSendSMS.vb

@@ -56,13 +56,12 @@ Public Class frmSendSMS
             End If
         End If
 
-        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" Then
+        cboFirma.Items.Clear()
-            Button1.Text = Button1.Text.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
+        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA))
-            Button2.Text = Button2.Text.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
-            Button3.Text = Button3.Text.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
+            cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER, VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER))
-            Button4.Text = Button4.Text.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
         End If
-
+        cboFirma.SelectedIndex = 0
 
         cboLandVorwahl.Items.Clear()
         cboLandVorwahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
@@ -95,6 +94,15 @@ Public Class frmSendSMS
 
     End Sub
 
+    Sub initFirma()
+        Dim FIRMATmp = cboFirma._value
+
+        Button1.Text = Button1.Text.Replace("VERAG", FIRMATmp)
+        Button2.Text = Button2.Text.Replace("VERAG", FIRMATmp)
+        Button3.Text = Button3.Text.Replace("VERAG", FIRMATmp)
+        Button4.Text = Button4.Text.Replace("VERAG", FIRMATmp)
+
+    End Sub
     '
 
     Private Sub btnAbbrechen_Click(sender As Object, e As EventArgs) Handles btnAbbrechen.Click
@@ -129,26 +137,26 @@ Public Class frmSendSMS
         Dim absenderAccount = ""
         Dim absenderFirma = ""
 
-        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Select Case cboFirma._value
-            Case "VERAG", "BEIDE"
+                Case "VERAG" ', "BEIDE"
-                Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung
+                    Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung
-                    Case "ZOLL", "QS" : absenderAccount = "EX0252513" : absenderFirma = "VERAG Spedition"
+                        Case "ZOLL", "QS" : absenderAccount = "EX0252513" : absenderFirma = "VERAG Spedition"
-                    Case "MDM" : absenderAccount = "EX0252747" : absenderFirma = "VERAG 360"
+                        Case "MDM" : absenderAccount = "EX0252747" : absenderFirma = "VERAG 360"
-                    Case Else : absenderAccount = "EX0252513" : absenderFirma = "VERAG Spedition"
+                        Case Else : absenderAccount = "EX0252513" : absenderFirma = "VERAG Spedition"
-                        'Case Else : MsgBox("Fehler bei der Datenprüfung: Abteilung.") : Exit Sub
+                            'Case Else : MsgBox("Fehler bei der Datenprüfung: Abteilung.") : Exit Sub
-                End Select
+                    End Select
-            Case "ATILLA" : absenderAccount = "EX0252746" : absenderFirma = "ATILLA Spedition"
+                Case "ATILLA" : absenderAccount = "EX0252746" : absenderFirma = "ATILLA Spedition"
-            Case "IMEX" : absenderAccount = "EX0272082" : absenderFirma = "IMEX Spedition"
+                Case "IMEX" : absenderAccount = "EX0272082" : absenderFirma = "IMEX Spedition"
-            Case "UNISPED" : absenderAccount = "EX0300174" : absenderFirma = "UNISPED Spedition"
+                Case "UNISPED" : absenderAccount = "EX0300174" : absenderFirma = "UNISPED Spedition"
                 Case "FRONTOFFICE" : absenderAccount = "EX0300173" : absenderFirma = "FRONT-OFFICE SUBEN"
                 Case "AMBAR" : absenderAccount = "EX0315223" : absenderFirma = "AMBAR"
                 Case Else : MsgBox("Fehler bei der Datenprüfung: Firmendaten.") : Exit Sub
-        End Select
+            End Select
 
 
 
-        ' If vbYes = MsgBox("Soll die Nachricht gesendet werden?" & vbNewLine & "Handy-Nummer: " & nr, MsgBoxStyle.YesNo) Then
+            ' If vbYes = MsgBox("Soll die Nachricht gesendet werden?" & vbNewLine & "Handy-Nummer: " & nr, MsgBoxStyle.YesNo) Then
-        SMS = New VERAG_PROG_ALLGEMEIN.cSMS
+            SMS = New VERAG_PROG_ALLGEMEIN.cSMS
 
 
         SMS.sms_Vorwahl = cboLandVorwahl._value
@@ -216,8 +224,9 @@ Public Class frmSendSMS
     End Sub
 
     Sub fillTXT(s, Optional lkwTxt = "LKW/TIR: ")
-        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" Then
+        Dim FirmaTmp = cboFirma._value
-            txtNachricht.Text = s.ToString.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA.Replace("FRONTOFFICE", "FRONT-OFFICE SUBEN"))
+        If FirmaTmp <> "VERAG" Then
+            txtNachricht.Text = s.ToString.Replace("VERAG", FirmaTmp.Replace("FRONTOFFICE", "FRONT-OFFICE SUBEN"))
         Else
             txtNachricht.Text = s
         End If
@@ -226,8 +235,8 @@ Public Class frmSendSMS
             txtNachricht.Text &= vbNewLine & lkwTxt & Kennzeichen
         End If
 
-        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then
+        If FirmaTmp = "FRONTOFFICE" Then
-            txtNachricht.Text &= vbNewLine & "VERAG | UNISPED | IMEX"
+            txtNachricht.Text &= vbNewLine & "VERAG - UNISPED - IMEX"
         End If
 
 
@@ -297,6 +306,10 @@ Public Class frmSendSMS
         End If
 
     End Sub
+
+    Private Sub cboFirma_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged
+        initFirma()
+    End Sub
 End Class
 
 Public Class cSMSOptions

SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb

@@ -1878,7 +1878,7 @@ Public Class usrCntlSpeditionsBuchSuche
                     Datei = .Workbooks.Open(Path) 'Anpassen
                     Blatt = Datei.Worksheets(1) 'Anpassen
 
-                    Blatt.Range("H1").Value = txtAbfertDat.Text & "-" & txtAbfertDatBis.Text
+                    Blatt.Range("I1").Value = txtAbfertDat.Text & "-" & txtAbfertDatBis.Text
 
                     Dim cnt = 3
                     For Each r In dt.Rows
@@ -1895,6 +1895,8 @@ Public Class usrCntlSpeditionsBuchSuche
                         If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "") Then
                             Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.Rechnungspreis
                             Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine)
+                            Blatt.Range("I" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL
+                            Blatt.Range("J" & cnt).Value = ZOLLANMELDUNG.ANZ_POS
                         End If
 
                         lblKdAusFortschritt.Text = (cnt - 2) & "/" & dt.Rows.Count

SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb

@@ -681,6 +681,7 @@ Public Class usrCntlATLAS_EZA
                 EZA.eza_Erstellung_SB = DY_ANM.dy_Erstellung_SB
                 EZA.eza_LetzteBearbeitung = Now
                 EZA.eza_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
+                EZA.eza_firma = Me.FIRMA_DY
                 DAKOSY_Interface_SEND.loadInClass_VersandanmeldungEZA(EZA, Me, DY_ANM)
                 If Not EZA.SAVE_ALL() Then Exit Sub
                 Dim saveFile = ""

SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS.vb

@@ -507,14 +507,15 @@ Public Class usrCntlATLAS_NCTS
                 ncts_OUT.ncts_Erstellung_SB = DY_ANM.dy_Erstellung_SB
                 ncts_OUT.ncts_LetzteBearbeitung = Now
                 ncts_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
-                DAKOSY_Interface_SEND.loadInClass_VersandanmeldungNCTSDE_003(ncts_OUT, Me, DY_ANM, FIRMA_DY)
+                ncts_OUT.ncts_firma = Me.FIRMA_DY
+                DAKOSY_Interface_SEND.loadInClass_VersandanmeldungNCTSDE_003(ncts_OUT, Me, DY_ANM, Me.FIRMA_DY)
 
                 If Not ncts_OUT.SAVE_ALL() Then Exit Sub
 
                 Dim saveFile = ""
                 If DAKOSY_Interface_SEND.generateVersandanmeldungNCTSDE_003(ncts_OUT, saveFile, cboDakosyAction._value) Then
                     If saveFile <> "" Then
-                        If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNr, DY_ANM.dy_Id, FIRMA_DY) Then
+                        If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNr, DY_ANM.dy_Id, Me.FIRMA_DY) Then
                             DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03)
                         Else
                             DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09)

SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb

@@ -12,6 +12,7 @@ Class DAKOSY_Interface_SEND
                     cDY.ncts_Trans_Partner = "VERA"
             End Select
 
+            cDY.ncts_firma = FIRMA_DY
             cDY.ncts_Trans_DatumZeit = Now
             cDY.ncts_Gestellt = False
             cDY.ncts_Status = "00"
@@ -187,6 +188,8 @@ Class DAKOSY_Interface_SEND
                     Return "IMEX"
                 Case "UNISPED"
                     Return "UNAT"
+                Case "AMBAR"
+                    Return "VRAS" 'warum auch immer.. irgendwie wg der eigenen EORI von AMBAR..
                 Case Else : Return "VERG"
             End Select
         End If

SDL/cProgramFunctions.vb

@@ -181,7 +181,8 @@ Public Class cProgramFunctions
             If Filiale = 4801 Then
                 docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat17] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
             Else
-                docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat153] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
+                docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat291] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
+                If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat153] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
                 If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat119] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
                 If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat109] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
                 If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1)  FROM [Therefore].[dbo].[TheCat101] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")

SDL/kassenbuch/frmNacherfassungLeihgeld.vb

@@ -583,7 +583,7 @@ Public Class frmNacherfassungLeihgeld
             If barcodeLKW IsNot Nothing Then VALUES.barcodeLKW = barcodeLKW
             If barcode IsNot Nothing Then VALUES.barcodeSendung = barcode
 
-            Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath, Nothing, Nothing)
+            Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath, Nothing, Nothing, Nothing)
             '  rpt.Document.CacheToDisk = True
             'rpt.Document.CacheToDiskLocation = "C:\\Temp"
             '  rpt.Run()

SDL/kunden/frmKundenblatt.vb

@@ -1202,6 +1202,8 @@ Public Class frmKundenblatt
                     scanErstbestellung.Visible = True
                 Case 203 : scanErstbestellung.Visible = True
                 Case 209 : scanErstbestellung.Visible = True
+                Case 215 : scanErstbestellung.Visible = True' PLOSE IT
+                Case 214 : scanErstbestellung.Visible = True 'PLOSE Roadmaster
                 Case 211
                     '    scanErstbestellung.Visible = True
                     scanMWSTAgreement.Visible = True

SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb

@@ -34,6 +34,7 @@ Partial Class usrcntlKundeBearbeitenFull
         Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.tbcntrDetails = New System.Windows.Forms.TabControl()
         Me.tbAbfertigung = New System.Windows.Forms.TabPage()
+        Me.lblHinweisKdNr = New System.Windows.Forms.Label()
         Me.cboFremdspedition = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.cbxVerzolltBei = New System.Windows.Forms.CheckBox()
         Me.cbxBesonderheitenNEU = New System.Windows.Forms.CheckBox()
@@ -291,6 +292,7 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.Label50 = New System.Windows.Forms.Label()
         Me.Label68 = New System.Windows.Forms.Label()
         Me.pnlNeukunde = New System.Windows.Forms.Panel()
+        Me.Button2 = New System.Windows.Forms.Button()
         Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.cboKundenkreis = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label77 = New System.Windows.Forms.Label()
@@ -303,7 +305,8 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.cbxFiBu = New System.Windows.Forms.CheckBox()
         Me.cbxFiBuLG = New System.Windows.Forms.CheckBox()
-        Me.lblHinweisKdNr = New System.Windows.Forms.Label()
+        Me.Label94 = New System.Windows.Forms.Label()
+        Me.cbxAPITradeshift = New System.Windows.Forms.CheckBox()
         Me.tbcntrDetails.SuspendLayout()
         Me.tbAbfertigung.SuspendLayout()
         Me.tbcntrAbf.SuspendLayout()
@@ -383,6 +386,17 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.tbAbfertigung.Text = " Abfertigung"
         Me.tbAbfertigung.UseVisualStyleBackColor = True
         '
+        'lblHinweisKdNr
+        '
+        Me.lblHinweisKdNr.AutoSize = True
+        Me.lblHinweisKdNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblHinweisKdNr.Location = New System.Drawing.Point(168, 94)
+        Me.lblHinweisKdNr.Name = "lblHinweisKdNr"
+        Me.lblHinweisKdNr.Size = New System.Drawing.Size(137, 13)
+        Me.lblHinweisKdNr.TabIndex = 239
+        Me.lblHinweisKdNr.Text = "Kunden-Nummer vergeben!"
+        Me.lblHinweisKdNr.Visible = False
+        '
         'cboFremdspedition
         '
         Me.cboFremdspedition._allowedValuesFreiText = Nothing
@@ -965,6 +979,8 @@ Partial Class usrcntlKundeBearbeitenFull
         '
         'tbVerrechnung
         '
+        Me.tbVerrechnung.Controls.Add(Me.cbxAPITradeshift)
+        Me.tbVerrechnung.Controls.Add(Me.Label94)
         Me.tbVerrechnung.Controls.Add(Me.cbxVeranlagungskunde)
         Me.tbVerrechnung.Controls.Add(Me.Label93)
         Me.tbVerrechnung.Controls.Add(Me.txtDebKdNr)
@@ -3864,16 +3880,27 @@ Partial Class usrcntlKundeBearbeitenFull
         '
         'pnlNeukunde
         '
+        Me.pnlNeukunde.Controls.Add(Me.Button2)
         Me.pnlNeukunde.Controls.Add(Me.Label50)
         Me.pnlNeukunde.Controls.Add(Me.cboFiliale)
         Me.pnlNeukunde.Controls.Add(Me.cboKundenkreis)
         Me.pnlNeukunde.Controls.Add(Me.Label68)
-        Me.pnlNeukunde.Location = New System.Drawing.Point(717, 487)
+        Me.pnlNeukunde.Location = New System.Drawing.Point(705, 487)
         Me.pnlNeukunde.Name = "pnlNeukunde"
-        Me.pnlNeukunde.Size = New System.Drawing.Size(303, 73)
+        Me.pnlNeukunde.Size = New System.Drawing.Size(315, 80)
         Me.pnlNeukunde.TabIndex = 15
         Me.pnlNeukunde.Visible = False
         '
+        'Button2
+        '
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Location = New System.Drawing.Point(194, 7)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(105, 30)
+        Me.Button2.TabIndex = 19
+        Me.Button2.Text = "Wunsch-KdNr"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
         'cboFiliale
         '
         Me.cboFiliale._allowedValuesFreiText = Nothing
@@ -3887,7 +3914,7 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.cboFiliale.FormattingEnabled = True
         Me.cboFiliale.Location = New System.Drawing.Point(104, 8)
         Me.cboFiliale.Name = "cboFiliale"
-        Me.cboFiliale.Size = New System.Drawing.Size(195, 28)
+        Me.cboFiliale.Size = New System.Drawing.Size(84, 28)
         Me.cboFiliale.TabIndex = 1
         '
         'cboKundenkreis
@@ -4037,16 +4064,26 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.cbxFiBuLG.UseVisualStyleBackColor = True
         Me.cbxFiBuLG.Visible = False
         '
-        'lblHinweisKdNr
+        'Label94
         '
-        Me.lblHinweisKdNr.AutoSize = True
+        Me.Label94.AutoSize = True
-        Me.lblHinweisKdNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblHinweisKdNr.Location = New System.Drawing.Point(168, 94)
+        Me.Label94.Location = New System.Drawing.Point(414, 358)
-        Me.lblHinweisKdNr.Name = "lblHinweisKdNr"
+        Me.Label94.Name = "Label94"
-        Me.lblHinweisKdNr.Size = New System.Drawing.Size(137, 13)
+        Me.Label94.Size = New System.Drawing.Size(168, 13)
-        Me.lblHinweisKdNr.TabIndex = 239
+        Me.Label94.TabIndex = 35
-        Me.lblHinweisKdNr.Text = "Kunden-Nummer vergeben!"
+        Me.Label94.Text = "Fremd-Abrechnungssysteme:"
-        Me.lblHinweisKdNr.Visible = False
+        '
+        'cbxAPITradeshift
+        '
+        Me.cbxAPITradeshift.AutoSize = True
+        Me.cbxAPITradeshift.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxAPITradeshift.Location = New System.Drawing.Point(417, 382)
+        Me.cbxAPITradeshift.Name = "cbxAPITradeshift"
+        Me.cbxAPITradeshift.Size = New System.Drawing.Size(157, 17)
+        Me.cbxAPITradeshift.TabIndex = 36
+        Me.cbxAPITradeshift.Text = "Rechnungskopie Tradeshift"
+        Me.cbxAPITradeshift.UseVisualStyleBackColor = True
         '
         'usrcntlKundeBearbeitenFull
         '
@@ -4078,7 +4115,7 @@ Partial Class usrcntlKundeBearbeitenFull
         Me.Controls.Add(Me.lblKundennr)
         Me.Controls.Add(Me.Label77)
         Me.Name = "usrcntlKundeBearbeitenFull"
-        Me.Size = New System.Drawing.Size(1152, 560)
+        Me.Size = New System.Drawing.Size(1152, 570)
         Me.tbcntrDetails.ResumeLayout(False)
         Me.tbAbfertigung.ResumeLayout(False)
         Me.tbAbfertigung.PerformLayout()
@@ -4403,4 +4440,7 @@ Partial Class usrcntlKundeBearbeitenFull
     Friend WithEvents txtDebKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents cbxVeranlagungskunde As CheckBox
     Friend WithEvents lblHinweisKdNr As Label
+    Friend WithEvents Button2 As Button
+    Friend WithEvents cbxAPITradeshift As CheckBox
+    Friend WithEvents Label94 As Label
 End Class

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -9,7 +9,8 @@ Public Class usrcntlKundeBearbeitenFull
     ' Dim USRCNTL_FISK As usrCntlKundeFiskaldaten
     Dim EMAIL_ANKUNFT As cEmailBenachrichtigungList = Nothing
     Dim EMAIL_FREIGABE As cEmailBenachrichtigungList = Nothing
-     Dim sql As New SQL
+    Dim sql As New SQL
+    Dim WunschKdNr As Integer = -1
     '  Dim kdnr = -1
 
     Public Event KD_SAVED(kdnr)
@@ -172,6 +173,7 @@ Public Class usrcntlKundeBearbeitenFull
         cbxAbf_ZollVM.Checked = loadValue(KUNDE.Zollvollmacht, False)
         txtAbf_ZollVmVom._value = loadValue(KUNDE.Zollvollmacht_vom, "")
         txtAbf_Planzahl.Text = loadValue(KUNDE.Planzahl, "")
+
         cbxAbf_Lastschrift.Checked = loadValue(KUNDE.Lastschrift, False)
         txtAbf_LastschriftVon._value = loadValue(KUNDE.Lastschrift_von, "")
         txtAbf_LastschriftBis._value = loadValue(KUNDE.Lastschrift_bis, "")
@@ -275,6 +277,8 @@ Public Class usrcntlKundeBearbeitenFull
         cbxAutoFakturierung.Checked = KUNDE_ERW.AutoFakturierung
         cbxVeranlagungskunde.Checked = KUNDE_ERW.Veranlagungskunde
 
+        cbxAPITradeshift.Checked = loadValue(KUNDE_ERW.kde_API_Tradeshift, False)
+
 
         txtVERAG_Schnittstellen_ID.Text = If(KUNDE_ERW.kde_VERAG_INTERFACE_ID, "")
         ' ----- Abfertigungsverbot -----
@@ -333,6 +337,7 @@ Public Class usrcntlKundeBearbeitenFull
         txtAbfVerb_RechtsanwaltSeit.Enabled = cboAbfVerb_Rechtsanwalt.Checked
 
 
+
         ' -------- EMAIL --------
 
 
@@ -377,7 +382,8 @@ Public Class usrcntlKundeBearbeitenFull
             End Select
 
             Dim s_KdNr = kundenkreis.Split("-")
-            Dim kdnr = VERAG_PROG_ALLGEMEIN.cAdressen.getHoechsteKdNr(s_KdNr(0), s_KdNr(1)) '+ 1
+            Dim kdnr = WunschKdNr 'Wenn Wunschkdnr, sonst neue vergeben:
+            If WunschKdNr <= 0 Then kdnr = VERAG_PROG_ALLGEMEIN.cAdressen.getHoechsteKdNr(s_KdNr(0), s_KdNr(1)) '+ 1
 
             If kdnr > 0 Then
                 ' Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdnr)
@@ -540,6 +546,7 @@ Public Class usrcntlKundeBearbeitenFull
         KUNDE_ERW.kde_VERAG_INTERFACE_ID = isLeerNothing(txtVERAG_Schnittstellen_ID.Text)
         KUNDE_ERW.kde_BesonderheitenNeu = cbxBesonderheitenNEU.Checked
 
+        KUNDE_ERW.kde_API_Tradeshift = cbxAPITradeshift.Checked
 
         ' ----- Fremdsped -----
         KUNDE_ERW.kde_KundeFremdspedition = cbxVerzolltBei.Checked
@@ -1236,5 +1243,33 @@ Public Class usrcntlKundeBearbeitenFull
         cboFremdspedition.Enabled = cbxVerzolltBei.Checked
     End Sub
 
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Dim WunschKdnr = InputBox("Bitte geben Sie die gewünschte Kundennummer ein:")
 
+        If WunschKdnr <> "" Then
+            If Not IsNumeric(WunschKdnr) Then MsgBox("Falsches Format!") : Exit Sub
+            If CInt(WunschKdnr) < 100000 Or CInt(WunschKdnr) > 9999999 Then MsgBox("Falsches Format!") : Exit Sub
+
+            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                Case "IMEX"
+                    If CInt(WunschKdnr) < 1000000 Or CInt(WunschKdnr) > 1999999 Then MsgBox("Falscher Nummernkreis!") : Exit Sub
+                Case "UNISPED"
+                    If CInt(WunschKdnr) < 2000000 Or CInt(WunschKdnr) > 2999999 Then MsgBox("Falscher Nummernkreis!") : Exit Sub
+                Case "AMBAR"
+                    If CInt(WunschKdnr) < 3000000 Or CInt(WunschKdnr) > 3999999 Then MsgBox("Falscher Nummernkreis!") : Exit Sub
+                Case Else
+                    If CInt(WunschKdnr) < 100000 Or CInt(WunschKdnr) > 999999 Then MsgBox("Falscher Nummernkreis!") : Exit Sub
+            End Select
+
+
+            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+            If SQL.DLookup("COUNT(*)", "Adressen", "AdressenNr='" & WunschKdnr & "'", "FMZOLL", 0) > 0 Then
+                MsgBox("Kundennummer existiert bereits!") : Exit Sub
+            End If
+            Me.WunschKdNr = CInt(WunschKdnr)
+            lblKundennr.Text = WunschKdnr
+            pnlNeukunde.Visible = False
+        End If
+
+    End Sub
 End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungPLOSE.Designer.vb

@@ -55,6 +55,7 @@ Partial Class usrCntlSDLLeistungPLOSE
         Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
         Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
         Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.scanBestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
         Me.Panel2.SuspendLayout()
         Me.tbcntr.SuspendLayout()
         Me.TabPage1.SuspendLayout()
@@ -438,6 +439,7 @@ Partial Class usrCntlSDLLeistungPLOSE
         '
         'TabPage2
         '
+        Me.TabPage2.Controls.Add(Me.scanBestellung)
         Me.TabPage2.Controls.Add(Me.scanPIN)
         Me.TabPage2.Controls.Add(Me.scanLieferschein)
         Me.TabPage2.Controls.Add(Me.scanSonstiges)
@@ -501,10 +503,10 @@ Partial Class usrCntlSDLLeistungPLOSE
         Me.scanSonstiges.BackColor = System.Drawing.Color.White
         Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
         Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.scanSonstiges.Location = New System.Drawing.Point(3, 31)
+        Me.scanSonstiges.Location = New System.Drawing.Point(3, 56)
         Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
         Me.scanSonstiges.Name = "scanSonstiges"
-        Me.scanSonstiges.Size = New System.Drawing.Size(250, 130)
+        Me.scanSonstiges.Size = New System.Drawing.Size(250, 108)
         Me.scanSonstiges.TabIndex = 21
         '
         'scanRetourniert
@@ -539,6 +541,25 @@ Partial Class usrCntlSDLLeistungPLOSE
         Me.cbxArchiviert.Text = "ARCHIVIERT"
         Me.cbxArchiviert.UseVisualStyleBackColor = True
         '
+        'scanBestellung
+        '
+        Me.scanBestellung._ARCHIV = True
+        Me.scanBestellung._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanBestellung._DATENSERVER_ORDNER = "MDM"
+        Me.scanBestellung._DATENSERVER_UOrdner1 = Nothing
+        Me.scanBestellung._DATENSERVER_UOrdner2 = Nothing
+        Me.scanBestellung._DATENSERVER_UOrdner3 = Nothing
+        Me.scanBestellung._MULTI_FILES = True
+        Me.scanBestellung._TEXT_PDF = "Bestellung"
+        Me.scanBestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanBestellung.BackColor = System.Drawing.Color.White
+        Me.scanBestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanBestellung.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanBestellung.Location = New System.Drawing.Point(3, 30)
+        Me.scanBestellung.Name = "scanBestellung"
+        Me.scanBestellung.Size = New System.Drawing.Size(94, 24)
+        Me.scanBestellung.TabIndex = 26
+        '
         'usrCntlSDLLeistungPLOSE
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -609,4 +630,5 @@ Partial Class usrCntlSDLLeistungPLOSE
     Friend WithEvents scanLieferschein As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
     Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
     Friend WithEvents scanPIN As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
+    Friend WithEvents scanBestellung As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
 End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungPLOSE.vb

@@ -51,6 +51,7 @@ Public Class usrCntlSDLLeistungPLOSE
         scanLieferschein.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
         scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
         scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanBestellung.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
         scanPIN.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
 
         initDataBinding()

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.Designer.vb

@@ -52,6 +52,7 @@ Partial Class usrCntlSDLLeistungenPLOSE_IT
         Me.txtVIACard = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtTelepassNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
+        Me.scanBestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
         Me.Panel2.SuspendLayout()
         Me.tbcntr.SuspendLayout()
         Me.TabPage1.SuspendLayout()
@@ -191,6 +192,7 @@ Partial Class usrCntlSDLLeistungenPLOSE_IT
         '
         'TabPage2
         '
+        Me.TabPage2.Controls.Add(Me.scanBestellung)
         Me.TabPage2.Controls.Add(Me.scanLieferscheinVIA)
         Me.TabPage2.Controls.Add(Me.scanLieferscheinTP)
         Me.TabPage2.Controls.Add(Me.scanSonstiges)
@@ -248,6 +250,8 @@ Partial Class usrCntlSDLLeistungenPLOSE_IT
         Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
         Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
         Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
+        Me.scanSonstiges._OPEN_ORIGINAL = False
+        Me.scanSonstiges._TYPE = "PDF"
         Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
         Me.scanSonstiges.BackColor = System.Drawing.Color.White
         Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -477,6 +481,25 @@ Partial Class usrCntlSDLLeistungenPLOSE_IT
         Me.cbxArchiviert.Text = "ARCHIVIERT"
         Me.cbxArchiviert.UseVisualStyleBackColor = True
         '
+        'scanBestellung
+        '
+        Me.scanBestellung._ARCHIV = True
+        Me.scanBestellung._DATENSERVER_KATEGORIE = "DOKUMENTE"
+        Me.scanBestellung._DATENSERVER_ORDNER = "MDM"
+        Me.scanBestellung._DATENSERVER_UOrdner1 = Nothing
+        Me.scanBestellung._DATENSERVER_UOrdner2 = Nothing
+        Me.scanBestellung._DATENSERVER_UOrdner3 = Nothing
+        Me.scanBestellung._MULTI_FILES = True
+        Me.scanBestellung._TEXT_PDF = "Bestellung"
+        Me.scanBestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.scanBestellung.BackColor = System.Drawing.Color.White
+        Me.scanBestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.scanBestellung.Cursor = System.Windows.Forms.Cursors.Default
+        Me.scanBestellung.Location = New System.Drawing.Point(163, 4)
+        Me.scanBestellung.Name = "scanBestellung"
+        Me.scanBestellung.Size = New System.Drawing.Size(90, 24)
+        Me.scanBestellung.TabIndex = 25
+        '
         'usrCntlSDLLeistungenPLOSE_IT
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -541,5 +564,5 @@ Partial Class usrCntlSDLLeistungenPLOSE_IT
     Friend WithEvents scanLieferscheinVIA As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
     Friend WithEvents cbxErsatztelepass As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
     Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
-
+    Friend WithEvents scanBestellung As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
 End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.vb

@@ -45,6 +45,7 @@ Public Class usrCntlSDLLeistungenPLOSE_IT
         scanLieferscheinVIA.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
         scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
         scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
+        scanBestellung.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
 
         initDataBinding()
 

SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb

@@ -77,7 +77,9 @@ Public Class usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER
                         Dim datum As Date = CDate(line.Substring(53, 10).Trim)
                         Dim betrag As Double = CDbl(line.Substring(63, 16).Trim)
 
-                        Dim fakturiert = CDbl(SQL.DLookup("Betrag", "Zkteing", "[Status]='F' AND [Registriernummer]='" & atc & "' AND [AKTO]=" & AKTONr & "", "FMZOLL", "0"))
+                        '  Dim fakturiert = CDbl(SQL.DLookup("Betrag", "Zkteing", "[Status]='F' AND [Registriernummer]='" & atc & "' AND [AKTO]=" & AKTONr & "", "FMZOLL", "0"))
+                        Dim fakturiert = CDbl(SQL.DLookup("sum(Preis)", "Rechnungsausgang inner join [RechnungsausgangPositionen] On Rechnungsausgang.RK_ID=[RechnungsausgangPositionen].RK_ID", " [Status]<>0 and DruckDatumZeit is not null  and left([RechnungsausgangPositionen].Belegdaten,21)='" & atc & "' ", "FMZOLL", "0"))
+
                         Dim differenz = fakturiert - betrag
 
                         If Not cbx.Checked OrElse differenz <> 0 Then
@@ -121,7 +123,7 @@ Public Class usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER
                     Dim sum = 0
                     rpt.lblKontoBez.Text = srchAufschubnehmer
                     rpt.lblFaelligkeit.Text = Faelligkeit
-                    rpt.lblAnzahl.Text = cnt
+                    ' rpt.lblAnzahl.Text = cnt
                     rpt.lblDetails.Text = Now.ToLongDateString & ", " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
 
                     Dim sumBetrag As Double = 0
@@ -174,7 +176,7 @@ Public Class usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER
                                                          rpt.lblBetragSum.Text = sumBetrag.ToString("N2", CultureInfo.CurrentCulture)
                                                          rpt.lblFakturiertSum.Text = sumFakturiert.ToString("N2", CultureInfo.CurrentCulture)
                                                          rpt.lblDifferenzSum.Text = sumDifferenz.ToString("N2", CultureInfo.CurrentCulture)
-                                                         '   rpt.lblGesGesSumAnzahl.Text = gesAnz.ToString("N0")
+                                                         rpt.lblAnzahl.Text = Anz.ToString("N0") & "(" & Anz.ToString("N0") & " im Datensatz)"
 
                                                      End Sub
 

VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb

@@ -60,6 +60,7 @@ Public Class cKundenErweitert
     Property kde_InfoAuftragsNr As Object = Nothing
     Property kde_KundeFremdspedition As Boolean = False
     Property kde_verzolltBei As Object = Nothing
+    Property kde_API_Tradeshift As Boolean = False
 
     Dim SQL As New SQL
 
@@ -120,6 +121,7 @@ Public Class cKundenErweitert
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_InfoAuftragsNr", kde_InfoAuftragsNr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_KundeFremdspedition", kde_KundeFremdspedition))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_verzolltBei", kde_verzolltBei))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_API_Tradeshift", kde_API_Tradeshift))
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb

@@ -458,6 +458,10 @@ Public Class cRechnungsausgang
 
         'MsgBox(SQL.getValueTxtBySql(sqlstr, "FMZOLL",,, 0))
 
+        If Not CBool(SQL.DLookup("isnull([MitgliedslandEU],0)", "Währungstabelle", "LandKz='" & If(RechnungsLandKz, "") & "'", "FMZOLL", 0)) Then
+            Return False
+        End If
+
         Return If(SQL.getValueTxtBySql(sqlstr, "FMZOLL",,, 0) = 0, False, True)
     End Function
 

VERAG_PROG_ALLGEMEIN/Classes/cSendVorkosten.vb

@@ -0,0 +1,129 @@
+
+Imports System.Data.SqlClient
+    Imports System.Reflection
+
+Public Class cSendVorkosten
+    Property sndvk_id As Integer
+    Property sndvk_sendId As Object = Nothing
+    Property sndvk_LeistungsNr As Object = Nothing
+    Property sndvk_LeistungsBez As Object = Nothing
+    Property sndvk_Preis As Object = Nothing
+    Property sndvk_Firma As Object = Nothing
+
+
+    Public hasEntry = False
+
+    Dim SQL As New SQL
+
+    Sub New()
+
+    End Sub
+    Sub New(sndvk_id)
+        Me.sndvk_id = sndvk_id
+        LOAD()
+    End Sub
+    Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+        Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndvk_id", sndvk_id,, True))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndvk_sendId", sndvk_sendId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndvk_LeistungsNr", sndvk_LeistungsNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndvk_LeistungsBez", sndvk_LeistungsBez))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndvk_Preis", sndvk_Preis))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndvk_Firma", sndvk_Firma))
+
+        Return list
+    End Function
+
+
+
+    Public Function SAVE() As Boolean
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblSendVorkosten  WHERE sndvk_id=@sndvk_id) " &
+                       " BEGIN " & getUpdateCmd() & " END " &
+                       " Else " &
+                       " BEGIN " & getInsertCmd() & " END " &
+                       " commit tran "
+
+        Return SQL.doSQLVarList(sqlstr, "AVISO", , list)
+    End Function
+
+    Public Sub LOAD()
+        Try
+            hasEntry = False
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
+                Using cmd As New SqlCommand("SELECT * FROM tblSendVorkosten WHERE sndvk_id=@sndvk_id  ", conn)
+                    cmd.Parameters.AddWithValue("@sndvk_id", sndvk_id)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each l In getParameterList()
+                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
+
+                            If dr.Item(l.Text) Is DBNull.Value Then
+                                propInfo.SetValue(Me, Nothing)
+                            Else
+                                propInfo.SetValue(Me, dr.Item(l.Text))
+                            End If
+
+                        Next
+                        hasEntry = True
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+    End Sub
+
+
+
+    Public Function getUpdateCmd() As String
+        Try
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+            Dim str As String = ""
+            For Each i In list
+                If Not i.isPrimaryParam Then
+                    str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            Return (" UPDATE [tblSendVorkosten] SET " & str & " WHERE sndvk_id=@sndvk_id ")
+
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        Return ""
+    End Function
+
+
+    Public Function getInsertCmd() As String
+        Try
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+            Dim str As String = ""
+            Dim values As String = ""
+            For Each i In list
+                If Not i.isPrimaryParam Then
+                    str &= "[" & i.Text & "],"
+                    values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            values = values.Substring(0, values.Length - 1) 'wg. ','
+            Return (" INSERT INTO tblSendVorkosten  (" & str & ") VALUES(" & values & ")  ")
+        Catch ex As Exception
+                MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            End Try
+            Return ""
+        End Function
+
+    Public Function INSERT() As Boolean
+        Try
+            Return SQL.doSQLVarList(getInsertCmd, "AVISO", , getParameterList)
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return False
+    End Function
+End Class

VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb

@@ -98,12 +98,14 @@ Public Class cSendungen
     Property tblSnd_Vorpapier2_Pos As Object = Nothing
     Property tblSnd_Vorpapier3 As Object = Nothing
     Property tblSnd_Vorpapier3_Pos As Object = Nothing
+    Property tblSnd_Frachtkosten As Object = Nothing
 
 
     Public saveSachbearbeiter As Boolean = False
 
     Property ABRECHNUNG As New List(Of cSendungAbrechnung)
     Property HANDLING As New List(Of cSendHandling)
+    Property VORKOSTEN As New List(Of cSendVorkosten)
 
     'Dim cDatenbank As New cDatenbank
 
@@ -347,6 +349,7 @@ Public Class cSendungen
                     Me.tblSnd_Vorpapier2_Pos = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier2_Pos"), Nothing)
                     Me.tblSnd_Vorpapier3 = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier3"), Nothing)
                     Me.tblSnd_Vorpapier3_Pos = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier3_Pos"), Nothing)
+                    Me.tblSnd_Frachtkosten = SQL.checkNullReturnValue(dr.Item("tblSnd_Frachtkosten"), Nothing)
 
                 End If
 
@@ -432,6 +435,39 @@ Public Class cSendungen
         '  Return Nothing
     End Sub
 
+    Public Sub LOAD_VORKOSTEN()
+        Try
+            Me.VORKOSTEN.Clear()
+            Dim conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
+            Using cmd2 As New SqlCommand("SELECT * FROM tblSendVorkosten WHERE sndvk_sendId=@sndvk_sendId ", conn)
+                cmd2.Parameters.AddWithValue("@sndvk_sendId", Me.tblSnd_SendungID)
+                Dim dr2 = cmd2.ExecuteReader()
+
+                While dr2.Read
+                    Dim a As New cSendVorkosten()
+
+                    a.sndvk_LeistungsNr = SQL.checkNullReturnValue(dr2.Item("sndvk_LeistungsNr"), Nothing)
+                    a.sndvk_sendId = SQL.checkNullReturnValue(dr2.Item("sndvk_sendId"), Nothing)
+                    a.sndvk_LeistungsBez = SQL.checkNullReturnValue(dr2.Item("sndvk_LeistungsBez"), Nothing)
+                    a.sndvk_Firma = SQL.checkNullReturnValue(dr2.Item("sndvk_Firma"), Nothing)
+
+                    a.sndvk_Preis = SQL.checkNullReturnValue(dr2.Item("sndvk_Preis"), 0)
+
+                    Me.VORKOSTEN.Add(a)
+                End While
+                dr2.Close()
+            End Using
+
+            conn.Close()
+            'End Using
+            'Return Nothing
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            '  MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        '  Return Nothing
+    End Sub
+
 
     Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
@@ -527,6 +563,7 @@ Public Class cSendungen
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier2_Pos", tblSnd_Vorpapier2_Pos))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier3", tblSnd_Vorpapier3))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier3_Pos", tblSnd_Vorpapier3_Pos))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Frachtkosten", tblSnd_Frachtkosten))
 
 
 
@@ -608,6 +645,23 @@ Public Class cSendungen
     End Function
 
 
+    Public Function SAVE_VORKOSTEN() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
+        '   Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+        SAVE_VORKOSTEN = False
+        Dim sqlstr = " DELETE FROM tblSendVorkosten WHERE sndvk_sendId=" & Me.tblSnd_SendungID
+        '   MsgBox(sqlstr)
+        If SQL.doSQL(sqlstr, "AVISO") Then
+            SAVE_VORKOSTEN = True
+            For Each a In VORKOSTEN
+                a.sndvk_sendId = Me.tblSnd_SendungID
+                If Not a.INSERT() Then SAVE_VORKOSTEN = False
+            Next
+        End If
+
+        '   Return b
+    End Function
+
+
     Public Shared Function SET_SpedbuchEntry(tblSnd_SendungID As Integer, tblSnd_SpeditionsbuchEingetragen As Boolean) As String
         Try
             Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -620,6 +674,39 @@ Public Class cSendungen
         Return ""
     End Function
 
+    Public Function getNCTSAdress(Optional htmlOptimized As Boolean = False, Optional ansprechpartner As Boolean = True, Optional Bestimmungszollstelle As Boolean = True) As String
+        Dim adresse = ""
+        adresse &= If(Me.tblSnd_NCTSVerzollungsadresse, "") & vbNewLine
+        adresse &= If(Me.NCTS_Verzollungsadresse_Strasse, "") & vbNewLine
+        adresse &= If(Me.NCTS_Verzollungsadresse_Land, "") & " " & If(Me.NCTS_Verzollungsadresse_PLZ, "") & " " & If(Me.NCTS_Verzollungsadresse_Ort, "") & vbNewLine
+
+        If ansprechpartner Then adresse &= If(Me.NCTS_Verzollungsadresse_Ansprechpartner, "") & vbNewLine
+
+        If Bestimmungszollstelle And If(Me.NCTS_Bestimmungszollstelle, "") <> "" Then
+            adresse &= SQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name]  FROM basncd WHERE basncd_dstnr='" & Me.NCTS_Bestimmungszollstelle & "' ", "ATLAS")
+        End If
+
+        If htmlOptimized Then adresse = adresse.Trim.Replace(vbNewLine, "<br/>")
+        Return adresse.Trim
+    End Function
+
+
+    Public Function getEmpfaengerAdress(Optional htmlOptimized As Boolean = False, Optional ansprechpartner As Boolean = False) As String
+        If tblSnd_EmpfaengerKdNr > 0 Then
+            Dim AD As New cAdressen(tblSnd_EmpfaengerKdNr)
+            Dim adresse = ""
+            adresse &= If(AD.Name_1, "") & If(AD.Name_2, "") & vbNewLine
+            If If(AD.Straße, "") <> "" Then adresse &= If(AD.Straße, "") & vbNewLine
+            adresse &= If(AD.LandKz, "") & " " & If(AD.PLZ, "").ToString.ToUpper.Replace("OHNE", "") & " " & If(AD.Ort, "")
+
+            If htmlOptimized Then adresse = adresse.Trim.Replace(vbNewLine, "<br/>")
+            Return adresse.Trim
+        Else
+            Return tblSnd_Empfaenger
+        End If
+
+    End Function
+
 End Class
 
 Public Class cSendungAbrechnung

VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb

@@ -499,8 +499,7 @@ Class TrdInvoice_FUNCTIONS
 
         Select Case Firma_Id
             Case 20 'IMEX --> Andere Sachkonten in Tbl Leistungen!
-                If [RK_RechnungsLandKz] Is Nothing _
+                If [RK_RechnungsLandKz] Is Nothing OrElse [RK_RechnungsLandKz] Is DBNull.Value OrElse [RK_RechnungsLandKz].trim = "" _
-                                              OrElse [RK_RechnungsLandKz].trim = "" _
                           OrElse [RK_RechnungsLandKz] = "A" _
                           OrElse [RK_RechnungsLandKz] = "AT" Then
                     If CBool([RP_Steuerpflichtig]) Then
@@ -524,7 +523,7 @@ Class TrdInvoice_FUNCTIONS
 
             Case 21, 22, 23, 24 '--> cLeistungenBUKonten!
                 Dim BU_KTO As New VERAG_PROG_ALLGEMEIN.cLeistungenBUKonten(RP_LeistungsNr, Firma_Id)
-                If [RK_RechnungsLandKz] Is Nothing OrElse [RK_RechnungsLandKz].trim = "" OrElse
+                If [RK_RechnungsLandKz] Is Nothing OrElse [RK_RechnungsLandKz] Is DBNull.Value OrElse [RK_RechnungsLandKz].trim = "" OrElse
                     [RK_RechnungsLandKz] = FIRMA.Firma_LandKz.ToString.Replace("AT", "A").Replace("DE", "D") Then
 
                     If CBool([RP_Steuerpflichtig]) Then
@@ -547,8 +546,7 @@ Class TrdInvoice_FUNCTIONS
                 If getSachkonto = "" Then getSachkonto = "9999" 'DEFAULT!
 
             Case Else
-                If [RK_RechnungsLandKz] Is Nothing _
+                If [RK_RechnungsLandKz] Is Nothing OrElse [RK_RechnungsLandKz] Is DBNull.Value OrElse [RK_RechnungsLandKz].trim = "" _
-                                              OrElse [RK_RechnungsLandKz].trim = "" _
                           OrElse [RK_RechnungsLandKz] = "A" _
                           OrElse [RK_RechnungsLandKz] = "AT" Then
                     If CBool([RP_Steuerpflichtig]) Then

VERAG_PROG_ALLGEMEIN/Schnittstellen/cBMD_Interface.vb

@@ -341,7 +341,6 @@
             End Select
 
 
-
             '----------------- Buchungssätze -----------------
             If True Then 'boolBuchungen Then
                 TrdInvoice_FUNCTIONS.TrdinSchreiben(FIRMA.Firma_ID) 'Lädt die Daten aus der Tabelle Rechnungsausgang in die Tabelle trdInvoice (nur für 20 = IMEX )

VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb

@@ -11,7 +11,8 @@ Public Class cTherefore
                 Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Atilla ab Juni 2011",, deleteFileAfterImport)
             Case 1, 11, 20 ', 15,20
                 '   Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import an Jänner 2019", "Import ab Jänner 2019", deleteFileAfterImport)
-                Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2020", "Import ab Jänner 2020", deleteFileAfterImport)
+                Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2021", "Import ab Jänner 2021", deleteFileAfterImport)
+                '  Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2020", "Import ab Jänner 2020", deleteFileAfterImport)
             Case Else
                 Return False
         End Select

VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj

@@ -327,6 +327,7 @@
     <Compile Include="Classes\cSDL.vb" />
     <Compile Include="Classes\cSDL_LKW.vb" />
     <Compile Include="Classes\cSendMailAttach.vb" />
+    <Compile Include="Classes\cSendVorkosten.vb" />
     <Compile Include="Classes\cSession.vb" />
     <Compile Include="Classes\cSMS.vb" />
     <Compile Include="Classes\cSpeditionsbuch.vb" />