USTV

2024-10-18 12:08:40 +02:00
parent 7b2b1f5303
commit 068255be9a
3 changed files with 96 additions and 31 deletions
--- a/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb
@@ -176,7 +176,7 @@
                       CDbl(r.Item("UStV_SummeVorschaubetragEUR_MSE")) = curUStV_SummeVorschaubetragEUR_MSE And
                       CDbl(r.Item("UStV_SummeVorschaubetragEUR_UTA")) = curUStV_SummeVorschaubetragEUR_UTA And
                       CDbl(r.Item("UStV_SummeVorschaubetragEUR")) = curUStV_SummeVorschaubetragEUR) Then
-                        'sumChanged = True
+                        sumChanged = True
                    End If

                    If sumChanged Then
@@ -241,16 +241,24 @@
        '2540         UStVKunden_Summen_lesen_Vorschau_VERAG = rst![Vorschaubetrag]
        '2550     End If

+        Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
+        Dim summeAlteSchnittstelle As Double

-
-        Dim sql = "SELECT dbo.tblTrdinInvoice.RechnungsKundenNr AS AdressenNr, dbo.tblSteuernummern.LandNr, SUM(dbo.tblTrdinInvoice.SteuerbetragLokal) As Vorschaubetrag From dbo.tblTrdinInvoice 
+        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
                    Where (dbo.tblTrdinInvoice.RechnungsKundenNr = " & varUStVAn_KuNr & ") And (dbo.tblTrdinInvoice.Rechnungsdatum >= '" & invoiceDate.ToShortDateString & "') And (dbo.tblTrdinInvoice.UStVAn_ID Is NULL) And (dbo.tblSteuernummern.LandNr = 38) And (dbo.tblSteuernummern.UStV = 1)
                    GROUP BY dbo.tblTrdinInvoice.RechnungsKundenNr, dbo.tblSteuernummern.LandNr"

-        Dim summe As Double = CDbl((New SQL).getValueTxtBySql(sql, "FMZOLL",,, 0, 10000))
+        Dim dtIT As DataTable = sql.loadDgvBySql(sqlFMZollDaten, "FMZOLL")

-        Return summe
+        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
+
+        Return summeAlteSchnittstelle

    End Function

@@ -271,7 +279,8 @@
        '1420     Loop
        Try

-
+            Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
+            Dim summeAlteSchnittstelle As Double
            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
@@ -281,7 +290,15 @@
                    GROUP BY dbo.tblDieselArchiv.KdNrVERAG, dbo.tblSteuernummern.LandNr
                    ORDER BY dbo.tblDieselArchiv.KdNrVERAG, dbo.tblSteuernummern.LandNr"

-            Dim summeAlteSchnittstelle As Double = CDbl((New SQL).getValueTxtBySql(sqlFMZollDaten, "FMZOLL",,, 0, 10000))
+
+            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

            Return summeAlteSchnittstelle

@@ -329,7 +346,9 @@
        '1770         Set qdf = Nothing
        '1780     End If
        Try
-            Dim sql = "SELECT dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, dbo.tblMautITArchiv.Verrechnungsdatum AS Rechnungsdatum, 
+            Dim summechnittstelle As Double
+            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, 
                                    SUM(CAST(ROUND((dbo.tblMautITArchiv.Betrag_mit_Preisnachlass_oder_Preisnachlass - dbo.tblMautITArchiv.Nicht_mehrwertsteuerpflichtiger_Betrag) / 1.22 * 0.22, 2) AS money)) 
                                    AS Vorschaubetrag
@@ -340,9 +359,17 @@
                                    AND (dbo.tblMautITArchiv.Verrechnungsdatum >= '" & invoiceDate.ToShortDateString & "')
                    GROUP BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, dbo.tblMautITArchiv.Verrechnungsdatum, dbo.tblMautITArchiv.Code_Adressat_des_Kontoauszugs"

-            Dim summeAlteSchnitttelle As Double = CDbl((New SQL).getValueTxtBySql(sql, "FMZOLL",,, 0, 10000))
+            Dim dtIT As DataTable = SQL.loadDgvBySql(sqlITSumme, "FMZOLL")

-            Return summeAlteSchnitttelle
+            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
+
+            Return summechnittstelle

        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
@@ -374,7 +401,10 @@
        '2000         UStVKunden_Summen_lesen_Vorschau_MSE = UStVKunden_Summen_lesen_Vorschau_MSE + curVorschaubetragEUR
        '2010         rst.MoveNext
        Try
-            Dim sqlFMZollDaten = "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 
+            Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
+            Dim summeNeueSchnittstelle As Double
+            Dim summeAlteSchnittstelle As Double
+            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
@@ -385,24 +415,35 @@
                    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 summealteSchnittstelle As Double = CDbl((New SQL).getValueTxtBySql(sqlFMZollDaten, "FMZOLL",,, 0, 10000))
+            Dim dtMSEAlt As DataTable = sql.loadDgvBySql(sqlFMZollDatenALT, "FMZOLL")

-            'TODO
-            'Dim sql = "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
-            '                        dbo.[Länderverzeichnis für die Außenhandelsstatistik] ON dbo.tblSteuernummern.LandNr = dbo.[Länderverzeichnis für die Außenhandelsstatistik].LandNr AND 
-            '                        dbo.tblMSETransactionsArchiv.[Transaction Country] = dbo.[Länderverzeichnis für die Außenhandelsstatistik].LandKz
-            '        WHERE (dbo.tblSteuernummern.AdressenNr = " & varUStVAn_KuNr & ") AND (dbo.tblSteuernummern.UStV = 1) AND (dbo.tblMSETransactionsArchiv.[Invoice Date] >= '" & invoiceDate.ToShortDateString & "') AND 
-            '                        (dbo.tblMSETransactionsArchiv.[Original VAT Amount] <> 0) AND (dbo.tblMSETransactionsArchiv.UStVAn_ID IS NULL)
-            '        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 summeNeueSchnittstelle As Double = CDbl((New SQL).getValueTxtBySql(sql, "FMZOLL",,,, 10000))
+            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


-            Return summealteSchnittstelle '+ summeNeueSchnittstelle
+            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 
+                    where bills.invoice_date >= '" & invoiceDate.ToShortDateString & "' 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")
+
+            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
+
+
+            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)
@@ -457,6 +498,10 @@
        '2410     Resume PROC_Exit

        Try
+            Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
+            Dim summeAlteSchnittstelle As Double
+            Dim summeNeueSchnittstelle As Double
+
            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
@@ -468,9 +513,19 @@
                        GROUP BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr
                        ORDER BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr"

-            Dim summeAlteSchnittstelle As Double = CDbl((New SQL).getValueTxtBySql(sqlFMZollDaten, "FMZOLL",,, 0, 10000))
+            Dim dtUTAAlt As DataTable = sql.loadDgvBySql(sqlFMZollDaten, "FMZOLL")

-            Dim sql = "				SELECT dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, SUM(dbo.tblUTAImportNew.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS Vorschaubetrag
+            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
+
+
+
+            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
@@ -481,7 +536,17 @@
                        GROUP BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr
                        ORDER BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr"

-            Dim summeNeueSchnittstelle As Double = CDbl((New SQL).getValueTxtBySql(sql, "FMZOLL",,, 0, 10000))
+
+            Dim dtUTANeut As DataTable = sql.loadDgvBySql(sqlFMZollDaten, "FMZOLL")
+
+            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
+

            Return summeAlteSchnittstelle + summeNeueSchnittstelle