MDM, UTA, FIbu

VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb

@@ -31,6 +31,8 @@ Public Class cIDS
     Property Kz As Object = Nothing
     Property Rabattbetrag As Object = Nothing
     Property RabattbetragProLiter As Object = Nothing
+    Property RabattbetragOrig As Object = Nothing
+    Property RabattbetragProLiterOrig As Object = Nothing
     Property Zeitstempel As Object = Nothing
     Property Sachbearbeiter As Object = Nothing
     Property KdNrVERAG As Object = Nothing
@@ -90,6 +92,8 @@ Public Class cIDS
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kz", Kz))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rabattbetrag", Rabattbetrag))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RabattbetragProLiter", RabattbetragProLiter))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RabattbetragOrig", RabattbetragOrig))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RabattbetragProLiterOrig", RabattbetragProLiterOrig))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zeitstempel", Zeitstempel))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdNrVERAG", KdNrVERAG))

VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb

@@ -2,6 +2,30 @@
 
 Public Class cMDMFunctionsAllgemein
 
+    Public Shared ploseSchnittstelle As Boolean = False
+    Public Shared ITSchnittstelle As Boolean = False
+    Public Shared MSEAlteSchnittstelle As Boolean = False
+    Public Shared MSENeueSchnittstelle As Boolean = False
+    Public Shared IDSAlteSchnittstelle As Boolean = False
+    Public Shared IDSNeueSchnittstelle As Boolean = False
+    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)
+
+        ploseSchnittstelle = plose
+        ITSchnittstelle = IT
+        MSEAlteSchnittstelle = MSEalt
+        MSENeueSchnittstelle = MSENeu
+        IDSAlteSchnittstelle = IDSAlt
+        IDSNeueSchnittstelle = IDSNeu
+        UTAAlteSchnittstelle = UTAAlt
+        UTANeueSchnittstelle = UTANeu
+
+    End Function
+
+
+
     Shared Function Update_UStVASummenNeuBerechnen(KundenNr As Integer) As Boolean
         Try
 
@@ -153,13 +177,12 @@ Public Class cMDMFunctionsAllgemein
 
                     'Neuberechnung der Vorschausummen (also alle noch nicht verrechneten Transaktionen , die aber schon eingelesen wurden)
                     curUStV_SummeVorschaubetragEUR_VERAG = UStVKunden_Summen_lesen_Vorschau_VERAG(r.Item("KundenNr"), invoiceDate)
-                    curUStV_SummeVorschaubetragEUR_IDS = UStVKunden_Summen_lesen_Vorschau_IDS(r.Item("KundenNr"), invoiceDate)
-                    curUStV_SummeVorschaubetragEUR_IT = UStVKunden_Summen_lesen_Vorschau_IT(r.Item("KundenNr"), invoiceDate)
-                    curUStV_SummeVorschaubetragEUR_MSE = UStVKunden_Summen_lesen_Vorschau_MSE(r.Item("KundenNr"), invoiceDate)
-                    curUStV_SummeVorschaubetragEUR_UTA = UStVKunden_Summen_lesen_Vorschau_UTA(r.Item("KundenNr"), invoiceDate)
+                    curUStV_SummeVorschaubetragEUR_IDS = UStVKunden_Summen_lesen_Vorschau_IDS(r.Item("KundenNr"), invoiceDate, IDSAlteSchnittstelle, IDSNeueSchnittstelle)
+                    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)
 
-                    'temporär deaktiviert!
-                    'curUStV_SummeVorschaubetragEUR_PLOSE = UStVKunden_Summen_lesen_Vorschau_PLOSE(r.Item("KundenNr"), invoiceDate) 
+                    curUStV_SummeVorschaubetragEUR_PLOSE = UStVKunden_Summen_lesen_Vorschau_PLOSE(r.Item("KundenNr"), invoiceDate, ploseSchnittstelle)
 
                     curUStV_SummeVorschaubetragEUR += curUStV_SummeVorschaubetragEUR_VERAG
                     curUStV_SummeVorschaubetragEUR += curUStV_SummeVorschaubetragEUR_IDS
@@ -251,20 +274,20 @@ Public Class cMDMFunctionsAllgemein
 
 
                         Dim ro As DataRow = dt.NewRow
-                            ro("KundenNr") = IIf(KundenNr > 0, KundenNr, r.Item("KundenNr"))
-                            ro("VorschaubetragEUR") = curUStV_SummeVorschaubetragEUR
-                            ro("VorschaubetragEUR_VERAG") = curUStV_SummeVorschaubetragEUR_VERAG
-                            ro("VorschaubetragEUR_IDS") = curUStV_SummeVorschaubetragEUR_IDS
-                            ro("VorschaubetragEUR_IT") = curUStV_SummeVorschaubetragEUR_IT
-                            ro("VorschaubetragEUR_MSE") = curUStV_SummeVorschaubetragEUR_MSE
-                            ro("VorschaubetragEUR_UTA") = curUStV_SummeVorschaubetragEUR_UTA
-                            ro("VorschaubetragEUR_PLOSE") = curUStV_SummeVorschaubetragEUR_PLOSE
-                            ro("UmsatzsteuerbetragEUR") = curUStV_SummeUmsatzsteuerbetragEUR
-                            ro("ErstattungsbetragEUR") = curUStV_SummeErstattungsbetragEUR
-                            ro("3470BetragEUR") = curUStV_Summe3470BetragEUR
-                            ro("VZBetragEUR") = curUStV_SummeVZBetragEUR
-                            dt.Rows.Add(ro)
-                        End If
+                        ro("KundenNr") = IIf(KundenNr > 0, KundenNr, r.Item("KundenNr"))
+                        ro("VorschaubetragEUR") = curUStV_SummeVorschaubetragEUR
+                        ro("VorschaubetragEUR_VERAG") = curUStV_SummeVorschaubetragEUR_VERAG
+                        ro("VorschaubetragEUR_IDS") = curUStV_SummeVorschaubetragEUR_IDS
+                        ro("VorschaubetragEUR_IT") = curUStV_SummeVorschaubetragEUR_IT
+                        ro("VorschaubetragEUR_MSE") = curUStV_SummeVorschaubetragEUR_MSE
+                        ro("VorschaubetragEUR_UTA") = curUStV_SummeVorschaubetragEUR_UTA
+                        ro("VorschaubetragEUR_PLOSE") = curUStV_SummeVorschaubetragEUR_PLOSE
+                        ro("UmsatzsteuerbetragEUR") = curUStV_SummeUmsatzsteuerbetragEUR
+                        ro("ErstattungsbetragEUR") = curUStV_SummeErstattungsbetragEUR
+                        ro("3470BetragEUR") = curUStV_Summe3470BetragEUR
+                        ro("VZBetragEUR") = curUStV_SummeVZBetragEUR
+                        dt.Rows.Add(ro)
+                    End If
 
                 Next
             End If
@@ -325,7 +348,7 @@ Public Class cMDMFunctionsAllgemein
 
     End Function
 
-    Shared Function UStVKunden_Summen_lesen_Vorschau_IDS(varUStVAn_KuNr As Integer, invoiceDate As Date) As Double
+    Shared Function UStVKunden_Summen_lesen_Vorschau_IDS(varUStVAn_KuNr As Integer, invoiceDate As Date, calcSummeAlteSchnittstelle As Boolean, calcSummeNeueSchnittstelle As Boolean) As Double
 
         '1300     dtmRechnungsdatum = IIf(Date > DateSerial(Year(Date), 6, 30), DateSerial(Year(Date), 1, 1), DateSerial(Year(Date) - 1, 1, 1))
         '1310     strParameter = ParameterBereitstellen(varUStVAn_KuNr, dtmRechnungsdatum)
@@ -345,7 +368,8 @@ Public Class cMDMFunctionsAllgemein
             Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
             Dim summeAlteSchnittstelle As Double = 0
             Dim summeNeueSchnittstelle As Double = 0
-            Dim sqlFMZollDaten = "SELECT dbo.tblDieselArchiv.KdNrVERAG AS AdressenNr, dbo.tblSteuernummern.LandNr, SUM(dbo.tblDieselArchiv.[VAT Amount]) AS Vorschaubetrag
+            If calcSummeAlteSchnittstelle Then
+                Dim sqlFMZollDaten = "SELECT dbo.tblDieselArchiv.KdNrVERAG AS AdressenNr, dbo.tblSteuernummern.LandNr, SUM(dbo.tblDieselArchiv.[VAT Amount]) AS Vorschaubetrag
                     FROM   dbo.tblDieselArchiv INNER JOIN
                                     dbo.tblSteuernummern ON dbo.tblDieselArchiv.KdNrVERAG = dbo.tblSteuernummern.AdressenNr INNER JOIN
                                     dbo.tbl_IDS_Länder ON dbo.tblSteuernummern.LandNr = dbo.tbl_IDS_Länder.LandNr AND dbo.tblDieselArchiv.[Outlet Country Code] = dbo.tbl_IDS_Länder.OutletCountryCode
@@ -355,17 +379,18 @@ Public Class cMDMFunctionsAllgemein
                     ORDER BY dbo.tblDieselArchiv.KdNrVERAG, dbo.tblSteuernummern.LandNr"
 
 
-            Dim dtIT As DataTable = sql.loadDgvBySql(sqlFMZollDaten, "FMZOLL")
+                Dim dtIT As DataTable = sql.loadDgvBySql(sqlFMZollDaten, "FMZOLL")
 
-            For Each r As DataRow In dtIT.Rows
-                Dim UST_org = CDbl(r.Item("Vorschaubetrag"))
-                If UST_org <> 0 Then
-                    summeAlteSchnittstelle += UST_org
-                End If
-            Next
+                For Each r As DataRow In dtIT.Rows
+                    Dim UST_org = CDbl(r.Item("Vorschaubetrag"))
+                    If UST_org <> 0 Then
+                        summeAlteSchnittstelle += UST_org
+                    End If
+                Next
+            End If
 
-            'temoprär deaktiviert!!
-            If False Then
+
+            If calcSummeNeueSchnittstelle Then
                 Dim sqlFMZollDatenNEU = "SELECT [tblIDSTransactionsNew].KdNrVERAG AS AdressenNr, dbo.tblSteuernummern.LandNr, SUM([tblIDSTransactionsNew].[VAT Amount]) AS Vorschaubetrag
                     FROM   tblIDSTransactionsNew INNER JOIN
                                     dbo.tblSteuernummern ON [tblIDSTransactionsNew].KdNrVERAG = dbo.tblSteuernummern.AdressenNr INNER JOIN
@@ -396,7 +421,7 @@ Public Class cMDMFunctionsAllgemein
 
     End Function
 
-    Shared Function UStVKunden_Summen_lesen_Vorschau_PLOSE(varUStVAn_KuNr As Integer, invoiceDate As Date) As Double
+    Shared Function UStVKunden_Summen_lesen_Vorschau_PLOSE(varUStVAn_KuNr As Integer, invoiceDate As Date, calcSumme As Boolean) As Double
 
         '1300     dtmRechnungsdatum = IIf(Date > DateSerial(Year(Date), 6, 30), DateSerial(Year(Date), 1, 1), DateSerial(Year(Date) - 1, 1, 1))
         '1310     strParameter = ParameterBereitstellen(varUStVAn_KuNr, dtmRechnungsdatum)
@@ -417,19 +442,23 @@ Public Class cMDMFunctionsAllgemein
             Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
             Dim summeSchnittstelle As Double = 0
 
-            Dim sqlPLOSE = "select plose_POLSEKundennummer, sum([plose_MWSTBetragWaehrungAbbuchung])[plose_MWSTBetragWaehrungAbbuchung] FROM [tblPLOSE_Details]  INNER JOIN Adressen on PLOSEKundenNr=plose_POLSEKundennummer
+            If calcSumme Then
+
+                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 & "
                     group by  plose_POLSEKundennummer"
 
 
-            Dim dtPLOSE As DataTable = sql.loadDgvBySql(sqlPLOSE, "FMZOLL")
+                Dim dtPLOSE As DataTable = sql.loadDgvBySql(sqlPLOSE, "FMZOLL")
+
+                For Each r As DataRow In dtPLOSE.Rows
+                    Dim UST_org = CDbl(r.Item("plose_MWSTBetragWaehrungAbbuchung"))
+                    If UST_org <> 0 Then
+                        summeSchnittstelle += UST_org
+                    End If
+                Next
+            End If
 
-            For Each r As DataRow In dtPLOSE.Rows
-                Dim UST_org = CDbl(r.Item("plose_MWSTBetragWaehrungAbbuchung"))
-                If UST_org <> 0 Then
-                    summeSchnittstelle += UST_org
-                End If
-            Next
 
             Return summeSchnittstelle
 
@@ -442,7 +471,7 @@ Public Class cMDMFunctionsAllgemein
 
     End Function
 
-    Shared Function UStVKunden_Summen_lesen_Vorschau_IT(varUStVAn_KuNr As Integer, invoiceDate As Date) As Double
+    Shared Function UStVKunden_Summen_lesen_Vorschau_IT(varUStVAn_KuNr As Integer, invoiceDate As Date, calcSum As Boolean) As Double
 
         '        Dim qdf As DAO.QueryDef
         '        Dim rst As DAO.Recordset
@@ -479,7 +508,10 @@ Public Class cMDMFunctionsAllgemein
         Try
             Dim summechnittstelle As Double = 0
             Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
-            Dim sqlITSumme = "SELECT dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, dbo.tblMautITArchiv.Verrechnungsdatum AS Rechnungsdatum, 
+
+            If calcSum Then
+
+                Dim sqlITSumme = "SELECT dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, dbo.tblMautITArchiv.Verrechnungsdatum AS Rechnungsdatum, 
                                     dbo.tblMautITArchiv.Code_Adressat_des_Kontoauszugs AS Rechnungsnummer, 
                                     SUM(CAST(ROUND((dbo.tblMautITArchiv.Betrag_mit_Preisnachlass_oder_Preisnachlass - dbo.tblMautITArchiv.Nicht_mehrwertsteuerpflichtiger_Betrag) / 1.22 * 0.22, 2) AS money)) 
                                     AS Vorschaubetrag
@@ -490,15 +522,16 @@ Public Class cMDMFunctionsAllgemein
                                     AND (dbo.tblMautITArchiv.Verrechnungsdatum >= '" & invoiceDate.ToShortDateString & "')
                     GROUP BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, dbo.tblMautITArchiv.Verrechnungsdatum, dbo.tblMautITArchiv.Code_Adressat_des_Kontoauszugs"
 
-            Dim dtIT As DataTable = sql.loadDgvBySql(sqlITSumme, "FMZOLL")
+                Dim dtIT As DataTable = sql.loadDgvBySql(sqlITSumme, "FMZOLL")
 
-            For Each r As DataRow In dtIT.Rows
-                Dim UST_org = CDbl(r.Item("Vorschaubetrag"))
-                If UST_org <> 0 Then
-                    Dim WaehrungsCode As String = r.Item("Währungscode")
-                    summechnittstelle += VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(UST_org, WaehrungsCode, "EUR")
-                End If
-            Next
+                For Each r As DataRow In dtIT.Rows
+                    Dim UST_org = CDbl(r.Item("Vorschaubetrag"))
+                    If UST_org <> 0 Then
+                        Dim WaehrungsCode As String = r.Item("Währungscode")
+                        summechnittstelle += VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(UST_org, WaehrungsCode, "EUR")
+                    End If
+                Next
+            End If
 
             Return summechnittstelle
 
@@ -511,7 +544,7 @@ Public Class cMDMFunctionsAllgemein
 
     End Function
 
-    Shared Function UStVKunden_Summen_lesen_Vorschau_MSE(varUStVAn_KuNr As Integer, invoiceDate As Date) As Double
+    Shared Function UStVKunden_Summen_lesen_Vorschau_MSE(varUStVAn_KuNr As Integer, invoiceDate As Date, calcSumalteSchnittstelle As Boolean, calcSumneueSchnittstelle As Boolean) As Double
         'Return 0
         '        dtmRechnungsdatum = IIf(Date > DateSerial(Year(Of Date), 6, 30), DateSerial(Year(Of Date), 1, 1), DateSerial(Year(Of Date)() - 1, 1, 1))
         '1850     strParameter = ParameterBereitstellen(varUStVAn_KuNr, dtmRechnungsdatum)
@@ -535,7 +568,8 @@ Public Class cMDMFunctionsAllgemein
             Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
             Dim summeNeueSchnittstelle As Double = 0
             Dim summeAlteSchnittstelle As Double = 0
-            Dim sqlFMZollDatenALT = "SELECT dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, dbo.tblMSETransactionsArchiv.[Invoice Date] AS Rechnungsdatum, SUM(dbo.tblMSETransactionsArchiv.[Original VAT Amount]) AS Vorschaubetrag, dbo.tblMSETransactionsArchiv.[Original Currency] AS Währungscode 
+            If calcSumalteSchnittstelle Then
+                Dim sqlFMZollDatenALT = "SELECT dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, dbo.tblMSETransactionsArchiv.[Invoice Date] AS Rechnungsdatum, SUM(dbo.tblMSETransactionsArchiv.[Original VAT Amount]) AS Vorschaubetrag, dbo.tblMSETransactionsArchiv.[Original Currency] AS Währungscode 
                     FROM   dbo.tblSteuernummern INNER JOIN
                                    dbo.Adressen ON dbo.tblSteuernummern.AdressenNr = dbo.Adressen.AdressenNr INNER JOIN
                                     dbo.tblMSETransactionsArchiv ON dbo.Adressen.MSEKundenNr = dbo.tblMSETransactionsArchiv.[Customer ID] INNER JOIN
@@ -546,38 +580,40 @@ Public Class cMDMFunctionsAllgemein
                     GROUP BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, dbo.tblMSETransactionsArchiv.[Invoice Date], dbo.tblMSETransactionsArchiv.[Original Currency] 
                     ORDER BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, dbo.tblMSETransactionsArchiv.[Invoice Date], dbo.tblMSETransactionsArchiv.[Original Currency] "
 
-            Dim dtMSEAlt As DataTable = sql.loadDgvBySql(sqlFMZollDatenALT, "FMZOLL")
+                Dim dtMSEAlt As DataTable = sql.loadDgvBySql(sqlFMZollDatenALT, "FMZOLL")
 
-            For Each r As DataRow In dtMSEAlt.Rows
-                Dim UST_org = CDbl(r.Item("Vorschaubetrag"))
-                If UST_org <> 0 Then
-                    Dim WaehrungsCode As String = r.Item("Währungscode")
-                    summeAlteSchnittstelle += VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(UST_org, WaehrungsCode, "EUR")
-                End If
-            Next
+                For Each r As DataRow In dtMSEAlt.Rows
+                    Dim UST_org = CDbl(r.Item("Vorschaubetrag"))
+                    If UST_org <> 0 Then
+                        Dim WaehrungsCode As String = r.Item("Währungscode")
+                        summeAlteSchnittstelle += VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(UST_org, WaehrungsCode, "EUR")
+                    End If
+                Next
+            End If
 
 
-            Dim sqlFMZollDatenNEU = "select * from ( select cust.[customer_id],bills.invoice_date, bills.invoice_number, bills.specification_page_name, trans.transaction_country, trans.original_currency ,sum(USteuer_EUR) as UST_EUR, sum(original_vat_amount) as UST
+            If calcSumneueSchnittstelle Then
+                Dim sqlFMZollDatenNEU = "select * from ( select cust.[customer_id],bills.invoice_date, bills.invoice_number, bills.specification_page_name, trans.transaction_country, trans.original_currency ,sum(USteuer_EUR) as UST_EUR, sum(original_vat_amount) as UST
                     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 
                     left join [VERAG].[dbo].[tblMSEInvoices] as inv on inv.invoice_id = bills.invoice_number 
-                    where bills.invoice_date >= '" & invoiceDate.ToShortDateString & "' and inv.archiv <> 1 and trans.charged = 1  and cust.[partner_customer_number] = " & varUStVAn_KuNr & " 
+                    left join dbo.tblSteuernummern on dbo.tblSteuernummern.AdressenNr = trans.partner_haulier_id 
+                    where bills.invoice_date >= '" & invoiceDate.ToShortDateString & "' and inv.archiv <> 1 and dbo.tblSteuernummern.UStV = 1 and trans.charged = 1  and cust.[partner_customer_number] = " & varUStVAn_KuNr & " 
                     group by bills.invoice_date, bills.invoice_number, cust.[customer_id], bills.specification_page_name, trans.transaction_country,trans.original_currency) as temp"
 
-            Dim dtMSENeut As DataTable = sql.loadDgvBySql(sqlFMZollDatenNEU, "FMZOLL")
+                Dim dtMSENeut As DataTable = sql.loadDgvBySql(sqlFMZollDatenNEU, "FMZOLL")
 
-            For Each r As DataRow In dtMSENeut.Rows
-                Dim UST_org = CDbl(r.Item("UST_EUR"))
-                If UST_org <> 0 Then
-                    summeNeueSchnittstelle += UST_org
-                End If
-            Next
+                For Each r As DataRow In dtMSENeut.Rows
+                    Dim UST_org = CDbl(r.Item("UST_EUR"))
+                    If UST_org <> 0 Then
+                        summeNeueSchnittstelle += UST_org
+                    End If
+                Next
+            End If
 
-            Return summeAlteSchnittstelle
+            Return summeAlteSchnittstelle + summeNeueSchnittstelle
 
-            'temporär deaktiviert
-            '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)
@@ -590,7 +626,7 @@ Public Class cMDMFunctionsAllgemein
 
     End Function
 
-    Shared Function UStVKunden_Summen_lesen_Vorschau_UTA(varUStVAn_KuNr As Integer, invoiceDate As Date) As Double
+    Shared Function UStVKunden_Summen_lesen_Vorschau_UTA(varUStVAn_KuNr As Integer, invoiceDate As Date, calcSumalteSchnittstelle As Boolean, calcSumneueSchnittstelle As Boolean) As Double
         'Return 0
         '        Dim qdf As DAO.QueryDef
         '        Dim rst As DAO.Recordset
@@ -635,8 +671,8 @@ Public Class cMDMFunctionsAllgemein
             Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
             Dim summeAlteSchnittstelle As Double = 0
             Dim summeNeueSchnittstelle As Double = 0
-
-            Dim sqlFMZollDaten = "SELECT dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, SUM(dbo.tblUTAArchiv.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS Vorschaubetrag
+            If calcSumalteSchnittstelle Then
+                Dim sqlFMZollDaten = "SELECT dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, SUM(dbo.tblUTAArchiv.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS Vorschaubetrag
                         FROM   dbo.tblSteuernummern INNER JOIN
                                         dbo.Adressen ON dbo.tblSteuernummern.AdressenNr = dbo.Adressen.AdressenNr INNER JOIN
                                         dbo.tblUTAArchiv ON dbo.Adressen.UTAKundenNr = dbo.tblUTAArchiv.Kundennummer INNER JOIN
@@ -647,19 +683,20 @@ Public Class cMDMFunctionsAllgemein
                         GROUP BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr
                         ORDER BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr"
 
-            Dim dtUTAAlt As DataTable = sql.loadDgvBySql(sqlFMZollDaten, "FMZOLL")
+                Dim dtUTAAlt As DataTable = sql.loadDgvBySql(sqlFMZollDaten, "FMZOLL")
 
-            For Each r As DataRow In dtUTAAlt.Rows
-                Dim UST_org = CDbl(r.Item("Vorschaubetrag"))
-                If UST_org <> 0 Then
-                    summeAlteSchnittstelle += UST_org
-                End If
+                For Each r As DataRow In dtUTAAlt.Rows
+                    Dim UST_org = CDbl(r.Item("Vorschaubetrag"))
+                    If UST_org <> 0 Then
+                        summeAlteSchnittstelle += UST_org
+                    End If
 
-            Next
+                Next
 
+            End If
+            If calcSumneueSchnittstelle Then
 
-
-            Dim sqlNeueSchnittstelle = "SELECT dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, SUM(dbo.tblUTAImportNew.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS Vorschaubetrag
+                Dim sqlNeueSchnittstelle = "SELECT dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, SUM(dbo.tblUTAImportNew.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS Vorschaubetrag
                         FROM   dbo.tblSteuernummern INNER JOIN
                                         dbo.Adressen ON dbo.tblSteuernummern.AdressenNr = dbo.Adressen.AdressenNr INNER JOIN
                                         dbo.tblUTAImportNew ON dbo.Adressen.UTAKundenNr = dbo.tblUTAImportNew.Kundennummer INNER JOIN
@@ -671,24 +708,23 @@ Public Class cMDMFunctionsAllgemein
                         ORDER BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr"
 
 
-            Dim dtUTANeut As DataTable = sql.loadDgvBySql(sqlFMZollDaten, "FMZOLL")
+                Dim dtUTANeut As DataTable = sql.loadDgvBySql(sqlNeueSchnittstelle, "FMZOLL")
 
-            For Each r As DataRow In dtUTANeut.Rows
+                For Each r As DataRow In dtUTANeut.Rows
 
-                Dim UST_org = CDbl(r.Item("Vorschaubetrag"))
-                If UST_org <> 0 Then
-                    summeNeueSchnittstelle += UST_org
-                End If
-            Next
+                    Dim UST_org = CDbl(r.Item("Vorschaubetrag"))
+                    If UST_org <> 0 Then
+                        summeNeueSchnittstelle += UST_org
+                    End If
+                Next
+
+            End If
 
             If Math.Round(summeAlteSchnittstelle, 2) = Math.Round(summeNeueSchnittstelle, 2) Then
                 Return summeNeueSchnittstelle
             End If
 
-            Return summeAlteSchnittstelle
-
-            'temporär deaktiviert
-            'Return summeAlteSchnittstelle + summeNeueSchnittstelle
+            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/Classes/cParameter.vb

@@ -32,13 +32,13 @@ Public Class cParameterList
         'LIST.Add(l)
     End Sub
 
-    Public Sub LOAD_LIST(KundenNr, Optional firma = Nothing)
+    Public Sub LOAD_LIST(ProgId, Optional firma = Nothing)
         Try
             LIST.Clear()
             Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN
                 Using cmd As New SqlCommand("SELECT * FROM [tblParameter] WHERE progId IN (0,@ProgId) " & If(firma IsNot Nothing, " AND firma=@firma", ""), conn)
                     cmd.Parameters.AddWithValue("@ProgId", ProgId)
-                    cmd.Parameters.AddWithValue("@firma", firma)
+                    If firma IsNot Nothing Then cmd.Parameters.AddWithValue("@firma", firma)
                     '  cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr)
                     Dim dr = cmd.ExecuteReader()
                     While dr.Read

VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb

@@ -833,7 +833,7 @@ Public Class cUTA
 
     End Class
 
-    Public Function readAndSaveUTA(objFileRead As StreamReader, fi As FileInfo, cnt As Integer) As Boolean
+    Public Function readAndSaveUTA(objFileRead As StreamReader, fi As FileInfo, cnt As Integer, Optional onlyTestkunedn As Boolean = False) As Boolean
 
 
         Dim booHeaderVorhanden = False
@@ -1052,14 +1052,17 @@ Public Class cUTA
                                 .[Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ] = 0 - .[Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ]
                         End Select
 
-                        'nur KundenNr 100964 und 825040 speichern:
-                        If .[Kundennummer] = 100964 Or .[Kundennummer] = 825040 Then
+                        If onlyTestkunedn Then
+                            'nur KundenNr 100964 und 825040 speichern:
+                            If .[Kundennummer] = 100964 Or .[Kundennummer] = 825040 Then
+                                .SAVE()
+                            End If
+                        Else
                             .SAVE()
                         End If
 
 
 
-
                         'Dim clfArchiv As New cUTA.UTAArchiv(.Belegdatum, .UTA_Beleg_ID)
                         'clfArchiv.Übertragungsnummer = .Übertragungsnummer
                         'clfArchiv.ErstellDatumUhrzeit = .ErstellDatumUhrzeit