iDS, MDM

VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb

@@ -303,7 +303,7 @@ Public Class cMDMFunctionsAllgemein
         '2550     End If
 
         Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
-        Dim summeAlteSchnittstelle As Double
+        Dim summeAlteSchnittstelle As Double = 0
 
         Dim sqlFMZollDaten = "SELECT dbo.tblTrdinInvoice.RechnungsKundenNr AS AdressenNr, dbo.tblSteuernummern.LandNr, SUM(dbo.tblTrdinInvoice.SteuerbetragLokal) As Vorschaubetrag From dbo.tblTrdinInvoice 
                     INNER Join dbo.tblSteuernummern ON dbo.tblTrdinInvoice.RechnungsKundenNr = dbo.tblSteuernummern.AdressenNr
@@ -341,7 +341,8 @@ Public Class cMDMFunctionsAllgemein
         Try
 
             Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
-            Dim summeAlteSchnittstelle As Double
+            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
                     FROM   dbo.tblDieselArchiv INNER JOIN
                                     dbo.tblSteuernummern ON dbo.tblDieselArchiv.KdNrVERAG = dbo.tblSteuernummern.AdressenNr INNER JOIN
@@ -361,7 +362,27 @@ Public Class cMDMFunctionsAllgemein
                 End If
             Next
 
-            Return summeAlteSchnittstelle
+            If False 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
+                                    dbo.tbl_IDS_Länder ON dbo.tblSteuernummern.LandNr = dbo.tbl_IDS_Länder.LandNr AND [tblIDSTransactionsNew].[Outlet Country Code] = dbo.tbl_IDS_Länder.OutletCountryCode
+                    WHERE ([tblIDSTransactionsNew].KdNrVERAG = " & varUStVAn_KuNr & " ) AND ([tblIDSTransactionsNew].[YearMonthDay] >= '" & invoiceDate.ToShortDateString & "') AND ([tblIDSTransactionsNew].UStVAn_ID IS NULL) AND 
+                                    (dbo.tblSteuernummern.UStV = 1)
+                    GROUP BY [tblIDSTransactionsNew].KdNrVERAG, dbo.tblSteuernummern.LandNr
+                    ORDER BY [tblIDSTransactionsNew].KdNrVERAG, dbo.tblSteuernummern.LandNr"
+
+                Dim dtIDSENeut As DataTable = sql.loadDgvBySql(sqlFMZollDatenNEU, "FMZOLL")
+
+                For Each r As DataRow In dtIDSENeut.Rows
+                    Dim UST_org = CDbl(r.Item("UST_EUR"))
+                    If UST_org <> 0 Then
+                        summeNeueSchnittstelle += UST_org
+                    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.MAIL)
@@ -390,7 +411,7 @@ Public Class cMDMFunctionsAllgemein
         Try
 
             Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
-            Dim summeSchnittstelle As Double
+            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
                     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 & "
@@ -452,7 +473,7 @@ Public Class cMDMFunctionsAllgemein
         '1770         Set qdf = Nothing
         '1780     End If
         Try
-            Dim summechnittstelle As Double
+            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, 
                                     dbo.tblMautITArchiv.Code_Adressat_des_Kontoauszugs AS Rechnungsnummer, 
@@ -508,8 +529,8 @@ Public Class cMDMFunctionsAllgemein
         '2010         rst.MoveNext
         Try
             Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
-            Dim summeNeueSchnittstelle As Double
-            Dim summeAlteSchnittstelle As Double
+            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 
                     FROM   dbo.tblSteuernummern INNER JOIN
                                    dbo.Adressen ON dbo.tblSteuernummern.AdressenNr = dbo.Adressen.AdressenNr INNER JOIN
@@ -606,8 +627,8 @@ Public Class cMDMFunctionsAllgemein
 
         Try
             Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
-            Dim summeAlteSchnittstelle As Double
-            Dim summeNeueSchnittstelle As Double
+            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
                         FROM   dbo.tblSteuernummern INNER JOIN