MDM, USTVA, etc.

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -340,7 +340,7 @@ Public Class frmMDM_USTVAntrag
 
             If ADR IsNot Nothing Then
                 USTV_ANTRAG.UStVAn_KuNr = ADR.AdressenNr
-                USTV_ANTRAG.UStVAn_Name = ADR.Name_1
+                USTV_ANTRAG.UStVAn_Name = ADR.Name_1 & IIf(ADR.Name_2 <> "", " " & ADR.Name_2, "")
                 USTV_ANTRAG.UStVAn_Straße = ADR.Straße
                 USTV_ANTRAG.UStVAn_LandKz = ADR.LandKz
                 USTV_ANTRAG.UStVAn_Ort = ADR.Ort
@@ -692,7 +692,7 @@ Public Class frmMDM_USTVAntrag
 
                         ' Berechnungen
                         If Not MWSTSummenAusBeleg Then
-                            USTV_POS.UStVPo_USteuerbetragEUR = ANTRAG.plose_MWSTBetragWaehrungAbbuchung
+                            USTV_POS.UStVPo_USteuerbetragEUR = ANTRAG.plose_MWSTBetragWaehrungAbbuchung 'IMMER IN EUR
                             USTV_POS.UStVPo_Umrechnungskurs = ANTRAG.plose_MWSTBetrag / ANTRAG.plose_MWSTBetragWaehrungAbbuchung
                             USTV_POS.UStVPo_USteuerbetrag = ANTRAG.plose_MWSTBetrag
 
@@ -1688,7 +1688,7 @@ Public Class frmMDM_USTVAntrag
 
     Private Function excelAuswertung(ByRef Optional filepath As String = "", Optional feedback As Boolean = False, Optional openExcel As Boolean = True) As Boolean
 
-        Dim sqlStr = "Select [UStVPo_ReDat] As InvoiceDate , [UStVPo_ReNr] As InvoiceNumber, antr.UStVAn_Name As Company, 'FR' as CountryOfRefund ,'EUR' as Currency ,[UStVPo_Leistender] as SupplierName, leist.[UstV_Leistender_Strasse] AS SupplierStreet, leist.[UstV_Leistender_StrasseNr] as SupplierStreetNumber, leist.[UstV_Leistender_PLZ] as SupplierPostalCode, leist.[UstV_Leistender_Stadt] as SupplierCity, leist.[UstV_Leistender_Land] as SupplierCountry, leist.[UstV_Leistender_UstNr] as SupplierVAT_TaxNumber, [UStVPo_Leistungsbezeichnung] as ExpenseCategory ,Round((1119/19*[UStVPo_USteuerbetragEUR]),2) as ExpenseGrossAmount, [UStVPo_USteuerbetragEUR] as ExpenseVATAmount,Round((100/19*[UStVPo_USteuerbetragEUR]),2) as ExpenseNetAmount
+        Dim sqlStr = "Select [UStVPo_ReDat] As InvoiceDate , [UStVPo_ReNr] As InvoiceNumber, antr.UStVAn_Name As Company, 'FR' as CountryOfRefund ,'EUR' as Currency ,replace([UStVPo_Leistender],'FR','') as SupplierName, leist.[UstV_Leistender_Strasse] AS SupplierStreet, leist.[UstV_Leistender_StrasseNr] as SupplierStreetNumber, leist.[UstV_Leistender_PLZ] as SupplierPostalCode, leist.[UstV_Leistender_Stadt] as SupplierCity, leist.[UstV_Leistender_Land] as SupplierCountry, leist.[UstV_Leistender_UstNr] as SupplierVAT_TaxNumber, [UStVPo_Leistungsbezeichnung] as ExpenseCategory ,Round((1119/19*[UStVPo_USteuerbetragEUR]),2) as ExpenseGrossAmount, [UStVPo_USteuerbetragEUR] as ExpenseVATAmount,Round((100/19*[UStVPo_USteuerbetragEUR]),2) as ExpenseNetAmount
                         From [tblUStVPositionen]
                       inner Join [tblUStVLeistender] as leist on leist.UStV_Leistender = [tblUStVPositionen].[UStVPo_Leistender]
                       inner Join [tblUStVAntrag] as antr on antr.UStVAn_ID = [tblUStVPositionen].UStVAn_ID
@@ -1811,7 +1811,7 @@ Public Class frmMDM_USTVAntrag
                 For Each row As DataGridViewRow In dgvUSTVPositionen.SelectedRows.Cast(Of DataGridViewRow)().OrderBy(Function(dgvr) dgvr.Index)
 
                     Dim pdf As String = ""
-                    pdf = getPDF(row.Cells("UStVPo_SchnittstellenNr").Value, row.Cells("UStVPo_ReNr").Value, row.Cells("UStVPo_ReDat").Value, row.Cells("UStVPo_daId").Value, IIf(nummerierung, row.Cells("UStVPo_ID").Value, -1), IIf(row.Cells("UStVPo_Leistender").Value.ToString.ToLower.Contains("wag"), True, False))
+                    pdf = getPDF(row.Cells("UStVPo_SchnittstellenNr").Value, row.Cells("UStVPo_ReNr").Value, row.Cells("UStVPo_ReDat").Value, row.Cells("UStVPo_daId").Value, IIf(nummerierung, row.Cells("UStVPo_ID").Value, -1), IIf(row.Cells("UStVPo_Leistender").Value.ToString.ToLower.Contains("wag") OrElse row.Cells("UStVPo_Leistender").Value.ToString.ToLower.Contains("dkv"), True, False))
 
                     If pdf <> "" Then list.Add(pdf)
 
@@ -2152,17 +2152,25 @@ Public Class frmMDM_USTVAntrag
 
     Private Sub setinfofields()
 
+        Dim dtSteuerNr As DataTable
 
         If Not USTV_ANTRAG Is Nothing AndAlso Not IsDBNull(USTV_ANTRAG.UStVAn_LandNr) Then
 
-            Dim dtSteuerNr As DataTable = SQL.loadDgvBySql("SELECT * FROM tblSteuernummern WHERE AdressenNr = " & USTV_ANTRAG.UStVAn_KuNr & " and tblSteuernummern.LandNr =" & USTV_ANTRAG.UStVAn_LandNr, "FMZOLL")
+            dtSteuerNr = SQL.loadDgvBySql("SELECT * FROM tblSteuernummern WHERE AdressenNr = " & USTV_ANTRAG.UStVAn_KuNr & " and tblSteuernummern.LandNr =" & IIf(USTV_ANTRAG.UStVAn_LandNr Is Nothing, "", USTV_ANTRAG.UStVAn_LandNr), "FMZOLL")
 
             If dtSteuerNr.Rows.Count > 0 Then
                 txtStNr.Text = IIf(Not IsDBNull(dtSteuerNr.Rows(0).Item("StNrFürRückerstattungUSt")), dtSteuerNr.Rows(0).Item("StNrFürRückerstattungUSt"), "")
                 txtGueltig.Text = IIf(Not IsDBNull(dtSteuerNr.Rows(0).Item("StNrGültigkeitsdatum")), dtSteuerNr.Rows(0).Item("StNrGültigkeitsdatum"), "")
             End If
 
+        Else
 
+            dtSteuerNr = SQL.loadDgvBySql("SELECT * FROM tblSteuernummern WHERE AdressenNr = " & KundenNr & " and tblSteuernummern.LandKz ='" & Antrag_LandKz & "'", "FMZOLL")
+
+            If dtSteuerNr.Rows.Count > 0 Then
+                txtStNr.Text = IIf(Not IsDBNull(dtSteuerNr.Rows(0).Item("StNrFürRückerstattungUSt")), dtSteuerNr.Rows(0).Item("StNrFürRückerstattungUSt"), "")
+                txtGueltig.Text = IIf(Not IsDBNull(dtSteuerNr.Rows(0).Item("StNrGültigkeitsdatum")), dtSteuerNr.Rows(0).Item("StNrGültigkeitsdatum"), "")
+            End If
 
         End If
 

SDL/USTV/frmUSTVoffeneAntraege.vb

@@ -12,6 +12,7 @@ Public Class frmUSTVoffeneAntraege
     Dim kdNr As Integer = -1
     Dim kdName As String
     Dim dtkeineMWST As DataTable
+    Dim dtKundeMWST As DataTable
     Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
         initLieferant("PLOSE", sender)
     End Sub
@@ -563,6 +564,20 @@ Public Class frmUSTVoffeneAntraege
         End If
 
 
+
+        If dtKundeMWST.Rows.Count > 0 Then
+            Dim counter = 0
+            Dim landBez As String = ""
+            For Each row As DataRow In dtKundeMWST.Rows
+                landBez &= "'" & row.Item("LandKz") & "'"
+                counter = counter + 1
+                If (dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count) Then landBez &= ","
+            Next
+            sqlwhereLand &= " AND Einreichland not in (" & landBez & ")"
+        End If
+
+
+
         Dim year = CDate(dat_Sum_Von.Value).Year
 
         If year >= 2025 Then
@@ -966,5 +981,12 @@ Public Class frmUSTVoffeneAntraege
 
     Private Sub frmUSTVoffeneAntraege_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         dtkeineMWST = (New SQL).loadDgvBySql("select Land, Erstattungsland, Lieferant from tblKeineMWSTErstattung", "FMZOLL")
+
+
+        If kdNr > 0 Then
+            dtKundeMWST = (New SQL).loadDgvBySql("select LandKz from tblKundenMWST where KdNr = " & kdNr, "FMZOLL")
+        End If
+
+
     End Sub
 End Class

SDL/USTV/usrCntlUSTV.vb

@@ -740,6 +740,19 @@ Public Class usrCntlUSTV
         Me.Cursor = Cursors.WaitCursor
         Try
 
+            VERAG_PROG_ALLGEMEIN.cMDMFunctionsAllgemein.setSchnittstellen(
+                VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("Schnittstelle_PLOSE"),
+                False,
+                VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("Schnittstelle_MSE_alt"),
+                VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("Schnittstelle_MSE_neu"),
+                VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("Schnittstelle_IDS_alt"),
+                VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("Schnittstelle_IDS_neu"),
+                VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_alt"),
+                VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_neu"),
+                VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("Schnittstelle_PLOSE_NEU")
+                )
+
+
             If VERAG_PROG_ALLGEMEIN.cMDMFunctionsAllgemein.Update_UStVASummenNeuBerechnen(KdSearchBox1.KdNr) Then
                 ok = VERAG_PROG_ALLGEMEIN.cMDMFunctionsAllgemein.UStVAKunden_SummenNeuBerechnen(KdSearchBox1.KdNr)
             End If
@@ -822,6 +835,8 @@ Public Class usrCntlUSTV
         Dim sqlKundenMSENEU = ""
         Dim sqlKundenIDSALT = ""
         Dim sqlKundenIDSNEU = ""
+        Dim sqlKundenPLOSENEU = ""
+
         If KdSearchBox1.KdNr > 0 Then
 
             sqlKunden = " AND Adressen.AdressenNr = " & KdSearchBox1.KdNr
@@ -829,11 +844,15 @@ Public Class usrCntlUSTV
             sqlKundenMSENEU = " AND partner_customer_number = " & KdSearchBox1.KdNr
             sqlKundenIDSALT = " AND tblDieselArchiv.KdNrVERAG = " & KdSearchBox1.KdNr
             sqlKundenIDSNEU = " AND [tblIDSTransactionsNew].KdNrVERAG = " & KdSearchBox1.KdNr
+            sqlKundenPLOSENEU = " AND tblPLOSE_Inv_Data.plInv_PLOSEKundennummer = " & KdSearchBox1.KdNr
+
 
         End If
 
-        Dim qryUStVVorschau_VERAG As String = "SELECT 'VERAG' as LF, tblTrdinInvoice.RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, YEAR(tblTrdinInvoice.Rechnungsdatum) AS Jahr, MONTH(tblTrdinInvoice.Rechnungsdatum) as Monat, SUm(tblTrdinInvoice.SteuerbetragLokal) AS SteuerbetragEUR FROM tblTrdinInvoice
+        Dim qryUStVVorschau_VERAG As String = "SELECT 'VERAG' as LF, tblTrdinInvoice.RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, YEAR(tblTrdinInvoice.Rechnungsdatum) AS Jahr, MONTH(tblTrdinInvoice.Rechnungsdatum) as Monat, SUm(tblTrdinInvoice.SteuerbetragLokal) AS Steuerbetrag, 'EUR' as Waehrung 
-                                                INNER JOIN tblSteuernummern ON tblTrdinInvoice.RechnungsKundenNr = tblSteuernummern.AdressenNr INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
+                                                FROM tblTrdinInvoice
+                                                INNER JOIN tblSteuernummern ON tblTrdinInvoice.RechnungsKundenNr = tblSteuernummern.AdressenNr 
+                                                INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
                                                 WHERE tblSteuernummern.LandNr = 38 AND tblTrdinInvoice.Rechnungsdatum >= 
                                                 CASE 
                                                     WHEN GETDATE() > CAST(CAST(YEAR(GETDATE()) AS VARCHAR) + '-06-30' AS DATE)
@@ -844,7 +863,7 @@ Public Class usrCntlUSTV
                                             GROUP BY tblTrdinInvoice.RechnungsKundenNr, tblSteuernummern.LandNr,[Länderverzeichnis für die Außenhandelsstatistik].LandKz, YEAR(tblTrdinInvoice.Rechnungsdatum), MONTH(tblTrdinInvoice.Rechnungsdatum) 
                                             /*ORDER BY tblTrdinInvoice.RechnungsKundenNr, tblSteuernummern.LandNr, YEAR(tblTrdinInvoice.Rechnungsdatum), MONTH(tblTrdinInvoice.Rechnungsdatum)*/"
 
-        Dim qryUStVVorschau_IDS_ALT As String = "SELECT 'IDS' as LF, tblDieselArchiv.KdNrVERAG AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, year(tblDieselArchiv.[Year Month Day]) AS Jahr, Month(tblDieselArchiv.[Year Month Day]) AS Monat, SUM(tblDieselArchiv.[VAT Amount]) AS SteuerbetragEUR FROM tblDieselArchiv
+        Dim qryUStVVorschau_IDS_ALT As String = "SELECT 'IDS' as LF, tblDieselArchiv.KdNrVERAG AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, year(tblDieselArchiv.[Year Month Day]) AS Jahr, Month(tblDieselArchiv.[Year Month Day]) AS Monat, SUM(tblDieselArchiv.[VAT Amount]) AS Steuerbetrag, 'EUR' as Waehrung  FROM tblDieselArchiv
                                                  INNER JOIN tblSteuernummern ON tblDieselArchiv.KdNrVERAG = tblSteuernummern.AdressenNr
                                                  INNER JOIN tbl_IDS_Länder ON tbl_IDS_Länder.LandNr = tblSteuernummern.LandNr  AND tblDieselArchiv.[Outlet Country Code] = tbl_IDS_Länder.OutletCountryCode
                                                  INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
@@ -860,7 +879,7 @@ Public Class usrCntlUSTV
                                                  /*ORDER BY tblDieselArchiv.KdNrVERAG, tblSteuernummern.LandNr, Year(tblDieselArchiv.[Year Month Day]), Month(tblDieselArchiv.[Year Month Day])*/
 "
 
-        Dim qryUStVVorschau_MSE_ALT As String = "SELECT 'MSE' as LF,tblSteuernummern.AdressenNr AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblMSETransactionsArchiv.[Invoice Date]) AS Jahr, Month(tblMSETransactionsArchiv.[Invoice Date]) AS Monat,  CAST(ROUND(SUM(tblMSETransactionsArchiv.[Original VAT Amount]) / dbo.fktEUROKurs(tblMSETransactionsArchiv.[Original Currency], tblMSETransactionsArchiv.[Invoice Date]), 2) AS DECIMAL(18, 2)) AS SteuerbetragEUR FROM tblSteuernummern
+        Dim qryUStVVorschau_MSE_ALT As String = "SELECT 'MSE' as LF,tblSteuernummern.AdressenNr AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblMSETransactionsArchiv.[Invoice Date]) AS Jahr, Month(tblMSETransactionsArchiv.[Invoice Date]) AS Monat,  CAST(ROUND(SUM(tblMSETransactionsArchiv.[Original VAT Amount]) / dbo.fktEUROKurs(tblMSETransactionsArchiv.[Original Currency], tblMSETransactionsArchiv.[Invoice Date]), 2) AS DECIMAL(18, 2)) AS Steuerbetrag, 'EUR' as Waehrung FROM tblSteuernummern
                                                  INNER JOIN Adressen ON tblSteuernummern.AdressenNr = Adressen.AdressenNr
                                                  INNER JOIN tblMSETransactionsArchiv ON Adressen.MSEKundenNr = tblMSETransactionsArchiv.[Customer ID]
                                                  INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblMSETransactionsArchiv.[Transaction Country] = [Länderverzeichnis für die Außenhandelsstatistik].LandKz AND tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
@@ -882,7 +901,7 @@ Public Class usrCntlUSTV
                                                      AND SUM(tblMSETransactionsArchiv.[Original VAT Amount]) <> 0
                                                  /*ORDER BY tblSteuernummern.AdressenNr, tblSteuernummern.LandNr, tblMSETransactionsArchiv.[Invoice Date], tblMSETransactionsArchiv.[Invoice ID]*/"
 
-        Dim qryUStVVorschau_UTA_ALT As String = "SELECT 'UTA' as LF,tblSteuernummern.AdressenNr AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblUTAArchiv.Rechnungsdatum) as Jahr,Month(tblUTAArchiv.Rechnungsdatum) as Monat , SUM(tblUTAArchiv.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS SteuerbetragEUR FROM tblSteuernummern
+        Dim qryUStVVorschau_UTA_ALT As String = "SELECT 'UTA' as LF,tblSteuernummern.AdressenNr AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblUTAArchiv.Rechnungsdatum) as Jahr,Month(tblUTAArchiv.Rechnungsdatum) as Monat , SUM(tblUTAArchiv.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS Steuerbetrag, 'EUR' as Waehrung FROM tblSteuernummern
                                                 INNER JOIN Adressen ON tblSteuernummern.AdressenNr = Adressen.AdressenNr
                                                 INNER JOIN tblUTAArchiv ON Adressen.UTAKundenNr = tblUTAArchiv.Kundennummer
                                                 INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblUTAArchiv.Lieferland = [Länderverzeichnis für die Außenhandelsstatistik].LandKz_ISO_3 AND tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
@@ -903,7 +922,7 @@ Public Class usrCntlUSTV
                                                     AND SUM(tblUTAArchiv.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) <> 0
                                                 /*ORDER BY tblSteuernummern.AdressenNr, tblSteuernummern.LandNr, tblUTAArchiv.Rechnungsdatum*/"
 
-        Dim qryUStVVorschau_IDS_NEU As String = "SELECT 'IDS_' as LF, [tblIDSTransactionsNew].KdNrVERAG AS RechnungsKundenNr,tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, year([tblIDSTransactionsNew].[YearMonthDay]) AS Jahr, Month([tblIDSTransactionsNew].[YearMonthDay]) AS Monat, SUM([tblIDSTransactionsNew].[VATAmount]) AS SteuerbetragEUR
+        Dim qryUStVVorschau_IDS_NEU As String = "SELECT 'IDS_' as LF, [tblIDSTransactionsNew].KdNrVERAG AS RechnungsKundenNr,tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, year([tblIDSTransactionsNew].[YearMonthDay]) AS Jahr, Month([tblIDSTransactionsNew].[YearMonthDay]) AS Monat, SUM([tblIDSTransactionsNew].[VATAmount]) AS Steuerbetrag, 'EUR' as Waehrung 
                                                  FROM   tblIDSTransactionsNew 
 					                             INNER JOIN dbo.tblSteuernummern ON [tblIDSTransactionsNew].KdNrVERAG = dbo.tblSteuernummern.AdressenNr
 					                             INNER JOIN dbo.tbl_IDS_Länder ON dbo.tblSteuernummern.LandNr = dbo.tbl_IDS_Länder.LandNr AND [tblIDSTransactionsNew].[OutletCountryCode] = dbo.tbl_IDS_Länder.OutletCountryCode
@@ -919,7 +938,7 @@ Public Class usrCntlUSTV
                                                                                   [tblIDSTransactionsNew].KdNrVERAG, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year([tblIDSTransactionsNew].[YearMonthDay]) , Month([tblIDSTransactionsNew].[YearMonthDay])
                                                                               /* ORDER BY [tblIDSTransactionsNew].KdNrVERAG, tblSteuernummern.LandNr, Year([tblIDSTransactionsNew].[YearMonthDay]), Month([tblIDSTransactionsNew].[YearMonthDay])*/"
 
-        Dim qryUStVVorschau_MSE_NEU As String = " select 'MSE_' as LF,cust.[partner_customer_number] as RechnungsKundenNr,'' as LandNr ,trans.transaction_country as LandKZ ,Year(bills.invoice_date) as Jahr,Month(bills.invoice_date) as Monat, sum(USteuer_EUR) as SteuerbetragEUR
+        Dim qryUStVVorschau_MSE_NEU As String = " select 'MSE_' as LF,cust.[partner_customer_number] as RechnungsKundenNr,'' as LandNr ,trans.transaction_country as LandKZ ,Year(bills.invoice_date) as Jahr,Month(bills.invoice_date) as Monat, sum(USteuer_EUR) as Steuerbetrag, 'EUR' as Waehrung 
                                                   FROM [VERAG].[dbo].[tblMSESettlements] as bills 
                                                   left join [VERAG].[dbo].[tblMSETransactions] as trans on bills.[transaction_id] = trans.[transaction_id] 
                                                   left join [VERAG].[dbo].[tblMSECustomers] as cust on cust.partner_customer_number = trans.partner_haulier_id 
@@ -939,7 +958,7 @@ Public Class usrCntlUSTV
 
 
 
-        Dim qryUStVVorschau_UTA_NEU As String = "SELECT 'UTA_' as LF,tblSteuernummern.AdressenNr AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblUTAImportNew.Rechnungsdatum) as Jahr,Month(tblUTAImportNew.Rechnungsdatum) as Monat , SUM(tblUTAImportNew.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS SteuerbetragEUR FROM tblSteuernummern
+        Dim qryUStVVorschau_UTA_NEU As String = "SELECT 'UTA_' as LF,tblSteuernummern.AdressenNr AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblUTAImportNew.Rechnungsdatum) as Jahr,Month(tblUTAImportNew.Rechnungsdatum) as Monat , SUM(tblUTAImportNew.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS Steuerbetrag, 'EUR' as Wahrung  FROM tblSteuernummern
                                                 INNER JOIN Adressen ON tblSteuernummern.AdressenNr = Adressen.AdressenNr
                                                 INNER JOIN tblUTAImportNew ON Adressen.UTAKundenNr = tblUTAImportNew.Kundennummer
                                                 INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblUTAImportNew.Lieferland = [Länderverzeichnis für die Außenhandelsstatistik].LandKz_ISO_3 AND tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
@@ -961,9 +980,45 @@ Public Class usrCntlUSTV
                                                 /*ORDER BY tblSteuernummern.AdressenNr, tblSteuernummern.LandNr, tblUTAImportNew.Rechnungsdatum*/"
 
 
+        Dim qryUStVVorschau_PLOSE_NEUE_LOGIK As String = "SELECT 'PLOSE_' as LF, tblPLOSE_Inv_Data.plInv_PLOSEKundennummer AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, year(tblPLOSE_Inv_Data.[plInv_SupplierRechnungsDatum]) AS Jahr, Month(tblPLOSE_Inv_Data.[plInv_SupplierRechnungsDatum]) AS Monat, SUM(tblPLOSE_Inv_Data.[plInv_MWSTBetrag]) AS Steuerbetrag, isnull(plInv_Currency,'') as Wahrung  FROM tblPLOSE_Inv_Data
+                                                 INNER JOIN Adressen ON tblPLOSE_Inv_Data.plInv_PLOSEKundennummer = Adressen.PLOSEKundenNr
+												 INNER JOIN tblSteuernummern ON Adressen.AdressenNr = tblSteuernummern.AdressenNr
+                                                 INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
+                                                 WHERE tblPLOSE_Inv_Data.plInv_SupplierRechnungsDatum >= 
+                                                         CASE 
+                                                             WHEN GETDATE() > CAST(CAST(YEAR(GETDATE()) AS VARCHAR) + '-06-30' AS DATE) 
+                                                             THEN CAST(CAST(YEAR(GETDATE()) AS VARCHAR) + '-01-01' AS DATE) 
+                                                             ELSE CAST(CAST(YEAR(GETDATE()) - 1 AS VARCHAR) + '-01-01' AS DATE) 
+                                                         END
+                                                     AND tblPLOSE_Inv_Data.plInv_MWSTBetrag <> 0 AND tblPLOSE_Inv_Data.plInv_UStVAn_ID IS NULL AND tblSteuernummern.UStV = 1 " & sqlKunden & "
+                                                 GROUP BY 
+                                                     tblPLOSE_Inv_Data.plInv_PLOSEKundennummer, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblPLOSE_Inv_Data.plInv_SupplierRechnungsDatum), Month(tblPLOSE_Inv_Data.plInv_SupplierRechnungsDatum), plInv_Currency
+"
+
+
+        'plose_MWSTBetragWaehrungAbbuchung ist IMMER in EUR!!!!
+        Dim qryUStVVorschau_PLOSE_ALTE_LOGIK As String = "  SELECT 'PLOSE' as LF, tblPLOSE_Details.plose_POLSEKundennummer AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, year(tblPLOSE_Details.plose_RechnungsDatum) AS Jahr, Month(tblPLOSE_Details.plose_RechnungsDatum) AS Monat, SUM(tblPLOSE_Details.plose_MWSTBetragWaehrungAbbuchung) AS Steuerbetrag, 'EUR' as Wahrung  FROM tblPLOSE_Details
+                                                 INNER JOIN tblPLOSE_Produktbeschreibung ON [plp_ProductCode]=[plose_ProduktCode]
+                                                 INNER JOIN Adressen ON tblPLOSE_Details.plose_POLSEKundennummer = Adressen.PLOSEKundenNr
+												 INNER JOIN tblSteuernummern ON Adressen.AdressenNr = tblSteuernummern.AdressenNr AND tblSteuernummern.LandKZ = tblPLOSE_Produktbeschreibung.plp_Land
+                                                 INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
+                                                 WHERE tblPLOSE_Details.plose_RechnungsDatum >= 
+                                                         CASE 
+                                                             WHEN GETDATE() > CAST(CAST(YEAR(GETDATE()) AS VARCHAR) + '-06-30' AS DATE) 
+                                                             THEN CAST(CAST(YEAR(GETDATE()) AS VARCHAR) + '-01-01' AS DATE) 
+                                                             ELSE CAST(CAST(YEAR(GETDATE()) - 1 AS VARCHAR) + '-01-01' AS DATE) 
+                                                         END
+                                                     AND tblPLOSE_Details.plose_MWSTBetragWaehrungAbbuchung <> 0 AND tblPLOSE_Details.UStVAn_ID IS NULL AND tblSteuernummern.UStV = 1 and plose_LieferantCode IN (1,7,9) " & sqlKunden & "
+                                                 GROUP BY 
+                                                     tblPLOSE_Details.plose_POLSEKundennummer, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblPLOSE_Details.plose_RechnungsDatum), Month(tblPLOSE_Details.plose_RechnungsDatum)
+
+"
+
+
 
         Dim union As String = " UNION ALL "
-        Dim sqlQery = qryUStVVorschau_VERAG & union & qryUStVVorschau_IDS_ALT & union & qryUStVVorschau_UTA_ALT & union & qryUStVVorschau_IDS_NEU & union & qryUStVVorschau_UTA_NEU & union & qryUStVVorschau_MSE_NEU & union & qryUStVVorschau_MSE_ALT
+        Dim sqlQery = qryUStVVorschau_VERAG & union & qryUStVVorschau_IDS_ALT & union & qryUStVVorschau_UTA_ALT & union & qryUStVVorschau_IDS_NEU & union & qryUStVVorschau_UTA_NEU & union & qryUStVVorschau_MSE_NEU & union & qryUStVVorschau_MSE_ALT & union & qryUStVVorschau_PLOSE_ALTE_LOGIK & union & qryUStVVorschau_PLOSE_NEUE_LOGIK
+
 
 
         Dim dtVorschau As DataTable = SQL.loadDgvBySql(sqlQery, "FMZOLL")

SDL/kunden/frmKundenblatt.Designer.vb

@@ -55,16 +55,16 @@ Partial Class frmKundenblatt
         Me.TabControl1 = New System.Windows.Forms.TabControl()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
         Me.dgvUmsaetze = New System.Windows.Forms.DataGridView()
+        Me.btnReloadOP = New System.Windows.Forms.Button()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.btnOP = New System.Windows.Forms.Button()
         Me.TabPage2 = New System.Windows.Forms.TabPage()
         Me.dgvOffenePosten = New System.Windows.Forms.DataGridView()
         Me.txtUmsatzJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label13 = New System.Windows.Forms.Label()
         Me.lblAdressenzusatz = New System.Windows.Forms.TextBox()
-        Me.btnReloadOP = New System.Windows.Forms.Button()
         Me.Label11 = New System.Windows.Forms.Label()
         Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.Label10 = New System.Windows.Forms.Label()
-        Me.btnOP = New System.Windows.Forms.Button()
         Me.Label17 = New System.Windows.Forms.Label()
         Me.dgvOfferte = New System.Windows.Forms.DataGridView()
         Me.picLogo = New System.Windows.Forms.PictureBox()
@@ -328,7 +328,7 @@ Partial Class frmKundenblatt
         Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0)
         Me.tbcntrMain.Name = "tbcntrMain"
         Me.tbcntrMain.SelectedIndex = 0
-        Me.tbcntrMain.Size = New System.Drawing.Size(1652, 1164)
+        Me.tbcntrMain.Size = New System.Drawing.Size(1652, 1181)
         Me.tbcntrMain.TabIndex = 3
         '
         'tbAllgemein
@@ -365,7 +365,7 @@ Partial Class frmKundenblatt
         Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0)
         Me.tbAllgemein.Name = "tbAllgemein"
         Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbAllgemein.Size = New System.Drawing.Size(1644, 1135)
+        Me.tbAllgemein.Size = New System.Drawing.Size(1644, 1152)
         Me.tbAllgemein.TabIndex = 0
         Me.tbAllgemein.Text = "Allgemein"
         '
@@ -436,6 +436,42 @@ Partial Class frmKundenblatt
         Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 484)
         Me.dgvUmsaetze.TabIndex = 182
         '
+        'btnReloadOP
+        '
+        Me.btnReloadOP.BackgroundImage = Global.SDL.My.Resources.Resources.reloadFinance_
+        Me.btnReloadOP.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnReloadOP.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.btnReloadOP.FlatAppearance.BorderSize = 0
+        Me.btnReloadOP.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnReloadOP.Location = New System.Drawing.Point(482, 5)
+        Me.btnReloadOP.Name = "btnReloadOP"
+        Me.btnReloadOP.Size = New System.Drawing.Size(25, 25)
+        Me.btnReloadOP.TabIndex = 180
+        Me.btnReloadOP.UseVisualStyleBackColor = True
+        Me.btnReloadOP.Visible = False
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(523, 11)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(149, 13)
+        Me.Label10.TabIndex = 177
+        Me.Label10.Text = "Zahlungserinnerung/OP-Liste:"
+        '
+        'btnOP
+        '
+        Me.btnOP.BackgroundImage = Global.SDL.My.Resources.Resources.mahn
+        Me.btnOP.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnOP.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.btnOP.FlatAppearance.BorderSize = 0
+        Me.btnOP.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnOP.Location = New System.Drawing.Point(681, 5)
+        Me.btnOP.Name = "btnOP"
+        Me.btnOP.Size = New System.Drawing.Size(24, 24)
+        Me.btnOP.TabIndex = 174
+        Me.btnOP.UseVisualStyleBackColor = True
+        '
         'TabPage2
         '
         Me.TabPage2.Controls.Add(Me.dgvOffenePosten)
@@ -542,20 +578,6 @@ Partial Class frmKundenblatt
         Me.lblAdressenzusatz.TabIndex = 181
         Me.lblAdressenzusatz.Text = "Zusatz"
         '
-        'btnReloadOP
-        '
-        Me.btnReloadOP.BackgroundImage = Global.SDL.My.Resources.Resources.reloadFinance_
-        Me.btnReloadOP.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.btnReloadOP.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.btnReloadOP.FlatAppearance.BorderSize = 0
-        Me.btnReloadOP.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnReloadOP.Location = New System.Drawing.Point(482, 5)
-        Me.btnReloadOP.Name = "btnReloadOP"
-        Me.btnReloadOP.Size = New System.Drawing.Size(25, 25)
-        Me.btnReloadOP.TabIndex = 180
-        Me.btnReloadOP.UseVisualStyleBackColor = True
-        Me.btnReloadOP.Visible = False
-        '
         'Label11
         '
         Me.Label11.AutoSize = True
@@ -578,28 +600,6 @@ Partial Class frmKundenblatt
         Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(184, 21)
         Me.cboFirmaFMZOLL.TabIndex = 179
         '
-        'Label10
-        '
-        Me.Label10.AutoSize = True
-        Me.Label10.Location = New System.Drawing.Point(523, 11)
-        Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(149, 13)
-        Me.Label10.TabIndex = 177
-        Me.Label10.Text = "Zahlungserinnerung/OP-Liste:"
-        '
-        'btnOP
-        '
-        Me.btnOP.BackgroundImage = Global.SDL.My.Resources.Resources.mahn
-        Me.btnOP.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.btnOP.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.btnOP.FlatAppearance.BorderSize = 0
-        Me.btnOP.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnOP.Location = New System.Drawing.Point(681, 5)
-        Me.btnOP.Name = "btnOP"
-        Me.btnOP.Size = New System.Drawing.Size(24, 24)
-        Me.btnOP.TabIndex = 174
-        Me.btnOP.UseVisualStyleBackColor = True
-        '
         'Label17
         '
         Me.Label17.AutoSize = True
@@ -924,7 +924,7 @@ Partial Class frmKundenblatt
         Me.dgvSperrliste.Name = "dgvSperrliste"
         Me.dgvSperrliste.ReadOnly = True
         Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle11
-        Me.dgvSperrliste.Size = New System.Drawing.Size(446, 1092)
+        Me.dgvSperrliste.Size = New System.Drawing.Size(446, 1109)
         Me.dgvSperrliste.TabIndex = 23
         '
         'PictureBox2
@@ -2376,7 +2376,7 @@ Partial Class frmKundenblatt
         '
         Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
         Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
-        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8
+        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
         Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
         Me.cntxtCntxtMDM.Text = "cntxtMDM"
         '
@@ -2516,7 +2516,7 @@ Partial Class frmKundenblatt
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoScroll = True
         Me.BackColor = System.Drawing.Color.White
-        Me.ClientSize = New System.Drawing.Size(1595, 1293)
+        Me.ClientSize = New System.Drawing.Size(1595, 1310)
         Me.Controls.Add(Me.lblAbfVerb)
         Me.Controls.Add(Me.btnAbfVerb)
         Me.Controls.Add(Me.tbcntrMain)

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -1741,7 +1741,7 @@ Public Class frmMDMDatenverarbetiung
             Dim displayFilter = False
             Dim sqlstr As String = ""
 
-            sqlstr &= " SELECT 'PLOSE',AdressenNr,plose_Kennzeichen,plose_DatumTransaktion,plp_Land,isnull([tblPLOSE_Produktbeschreibung].plp_Description_EN,plose_Produktbeschreibung) as plose_Produktbeschreibung ,isnull(plose_NummerKarteGeraet,plose_Kontonummer) as plose_NummerKarteGeraet ,plose_BeschreibungEinfahrt,plose_BeschreibungAusfahrt,plose_NettobetragWaehrungAbbuchung,(plose_BruttobetragWaehrungAbbuchung-plose_NettobetragWaehrungAbbuchung) as Steuer,plose_BruttobetragWaehrungAbbuchung "
+            sqlstr &= " SELECT 'PLOSE',AdressenNr,plose_Kennzeichen,plose_DatumTransaktion,plp_Land,isnull([tblPLOSE_Produktbeschreibung].plp_Description_EN,plose_Produktbeschreibung) as plose_Produktbeschreibung ,isnull(plose_NummerKarteGeraet,plose_Kontonummer) as plose_NummerKarteGeraet ,plose_BeschreibungEinfahrt,isnull(plose_BeschreibungAusfahrt,plose_BeschreibungMautTankstelle) as plose_BeschreibungAusfahrt,plose_NettobetragWaehrungAbbuchung,(plose_BruttobetragWaehrungAbbuchung-plose_NettobetragWaehrungAbbuchung) as Steuer,plose_BruttobetragWaehrungAbbuchung "
             sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode  INNER JOIN Adressen on plose_POLSEKundennummer=PLOSEKundenNr  and plp_LeistungsNr is not null   "
             sqlstr &= " WHERE 1=1  "
             sqlstr &= " AND plose_Fakturiert=0  AND  plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & " )  AND plp_Land NOT IN ('AT','DE') "

VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb

@@ -1,8 +1,10 @@
-Imports javax.validation.constraints
+Imports com.sun.org.apache.xpath.internal.functions
+Imports javax.validation.constraints
 
 Public Class cMDMFunctionsAllgemein
 
-    Public Shared ploseSchnittstelle As Boolean = False
+    Public Shared ploseAlteLogikSchnittstelle As Boolean = False
+    Public Shared ploseNeueLogikSchnittstelle As Boolean = False
     Public Shared ITSchnittstelle As Boolean = False
     Public Shared MSEAlteSchnittstelle As Boolean = False
     Public Shared MSENeueSchnittstelle As Boolean = False
@@ -11,9 +13,10 @@ Public Class cMDMFunctionsAllgemein
     Public Shared UTAAlteSchnittstelle As Boolean = False
     Public Shared UTANeueSchnittstelle As Boolean = False
 
-    Shared Function setSchnittstellen(plose As Boolean, IT As Boolean, MSEalt As Boolean, MSENeu As Boolean, IDSAlt As Boolean, IDSNeu As Boolean, UTAAlt As Boolean, UTANeu As Boolean)
+    Shared Function setSchnittstellen(ploseAlt As Boolean, IT As Boolean, MSEalt As Boolean, MSENeu As Boolean, IDSAlt As Boolean, IDSNeu As Boolean, UTAAlt As Boolean, UTANeu As Boolean, ploseNeu As Boolean)
 
-        ploseSchnittstelle = plose
+        ploseAlteLogikSchnittstelle = ploseAlt
+        ploseNeueLogikSchnittstelle = ploseNeu
         ITSchnittstelle = IT
         MSEAlteSchnittstelle = MSEalt
         MSENeueSchnittstelle = MSENeu
@@ -181,8 +184,7 @@ Public Class cMDMFunctionsAllgemein
                     curUStV_SummeVorschaubetragEUR_IT = UStVKunden_Summen_lesen_Vorschau_IT(r.Item("KundenNr"), invoiceDate, ITSchnittstelle)
                     curUStV_SummeVorschaubetragEUR_MSE = UStVKunden_Summen_lesen_Vorschau_MSE(r.Item("KundenNr"), invoiceDate, MSEAlteSchnittstelle, MSENeueSchnittstelle)
                     curUStV_SummeVorschaubetragEUR_UTA = UStVKunden_Summen_lesen_Vorschau_UTA(r.Item("KundenNr"), invoiceDate, UTAAlteSchnittstelle, UTANeueSchnittstelle)
-
+                    curUStV_SummeVorschaubetragEUR_PLOSE = UStVKunden_Summen_lesen_Vorschau_PLOSE(r.Item("KundenNr"), invoiceDate, ploseAlteLogikSchnittstelle, ploseNeueLogikSchnittstelle)
-                    curUStV_SummeVorschaubetragEUR_PLOSE = UStVKunden_Summen_lesen_Vorschau_PLOSE(r.Item("KundenNr"), invoiceDate, ploseSchnittstelle)
 
                     curUStV_SummeVorschaubetragEUR += curUStV_SummeVorschaubetragEUR_VERAG
                     curUStV_SummeVorschaubetragEUR += curUStV_SummeVorschaubetragEUR_IDS
@@ -420,16 +422,19 @@ Public Class cMDMFunctionsAllgemein
 
     End Function
 
-    Shared Function UStVKunden_Summen_lesen_Vorschau_PLOSE(varUStVAn_KuNr As Integer, invoiceDate As Date, calcSumme As Boolean) As Double
+    Shared Function UStVKunden_Summen_lesen_Vorschau_PLOSE(varUStVAn_KuNr As Integer, invoiceDate As Date, calcSummeAlteSchnittstelle As Boolean, calcSummeNeueSchnitttelle As Boolean) As Double
 
         ' set plose_Archiv=1, [plose_ArchiviertDatum]=GETDATE(), UStVAn_ID = @UStVAn_ID beim Einarbeiten in USTVA
 
         Try
 
             Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
-            Dim summeSchnittstelle As Double = 0
+            Dim summeAlteSchnittstelle As Double = 0
+            Dim summeNeueSchnittstelle As Double = 0
 
-            If calcSumme Then
+            If calcSummeAlteSchnittstelle Then
+
+                'plose_MWSTBetragWaehrungAbbuchung ist immer in EUR
 
                 Dim sqlPLOSE = "select plose_POLSEKundennummer, sum([plose_MWSTBetragWaehrungAbbuchung])[plose_MWSTBetragWaehrungAbbuchung] FROM [tblPLOSE_Details]  INNER JOIN Adressen on PLOSEKundenNr=plose_POLSEKundennummer
                     WHERE plose_Archiv <> 1 AND plose_Fakturiert = 1 AND plose_LieferantCode IN (0,1,7) AND cast(plose_RechnungsDatum as date) >= '" & invoiceDate.ToShortDateString & "' and AdressenNr =  " & varUStVAn_KuNr & "
@@ -441,13 +446,50 @@ Public Class cMDMFunctionsAllgemein
                 For Each r As DataRow In dtPLOSE.Rows
                     Dim UST_org = CDbl(r.Item("plose_MWSTBetragWaehrungAbbuchung"))
                     If UST_org <> 0 Then
-                        summeSchnittstelle += UST_org
+                        summeAlteSchnittstelle += UST_org
                     End If
                 Next
             End If
 
 
-            Return summeSchnittstelle
+            If calcSummeNeueSchnitttelle Then
+
+                Dim sqlPLOSE = "select plInv_PLOSEKundennummer, sum([plInv_MWSTBetrag])[plInv_MWSTBetrag], ISNULL([plInv_Currency],'') as plInv_Currency FROM [tblPLOSE_Inv_Data]  INNER JOIN Adressen on PLOSEKundenNr=plInv_PLOSEKundennummer
+                    WHERE plInv_Archiv <> 1 AND plInv_ArchiviertDatum is null AND cast(plInv_SupplierRechnungsDatum as date) >= '" & invoiceDate.ToShortDateString & "' and AdressenNr =  " & varUStVAn_KuNr & "
+                    group by  plInv_PLOSEKundennummer, plInv_Currency"
+
+
+                Dim dtPLOSE As DataTable = sql.loadDgvBySql(sqlPLOSE, "FMZOLL")
+
+
+
+                For Each r As DataRow In dtPLOSE.Rows
+                    Dim UST_org = CDbl(r.Item("plInv_MWSTBetrag"))
+                    If UST_org <> 0 Then
+                        Dim Weahrung As String = IIf(r.Item("plInv_Currency") IsNot Nothing, r.Item("plInv_Currency"), "")
+                        If Weahrung <> "" Then
+                            If Weahrung <> "EUR" Then
+                                Dim kurs As New cEZB_Waehrungskurse(Weahrung)
+                                Dim UST_EUR As Double = 0
+                                UST_EUR = Math.Round((UST_org / kurs.ezb_kurs), 2) '+ (UST_org Mod Math.Round(kurs.ezb_kurs, 2)), ")"
+
+                                summeNeueSchnittstelle += UST_EUR
+
+                            Else Weahrung = "EUR"
+
+
+                                summeNeueSchnittstelle += UST_org
+
+                            End If
+
+                        End If
+                    End If
+
+                Next
+            End If
+
+
+            Return summeAlteSchnittstelle + summeNeueSchnittstelle
 
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -524,7 +524,7 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
     Shared Function getISO2LandFromISO3Land(Iso3Land As String)
         If Iso3Land Is Nothing Then Return Nothing
         If Iso3Land.Length <> 3 Then Return Nothing
-        Dim sqlstr = "SELECT TOP 1 isnull(LandKz,'') AS LandKzISO2 from [Länderverzeichnis für die Außenhandelsstatistik] where LandKz_ISO_3 = '" & Iso3Land & "' "
+        Dim sqlstr = "SELECT TOP 1 isnull(LandKz,'') AS LandKzISO2 from [Länderverzeichnis für die Außenhandelsstatistik] where LandKz_ISO_3 = Replace('" & Iso3Land & "','SLO','SVN')"
         Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
         Return SQL.getValueTxtBySql(sqlstr, "FMZOLL")
     End Function