USTV

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -331,7 +331,7 @@ Public Class frmMDM_USTVAntrag
                 loadUSTVFrom_UTA(UStVAn_ID, Antrag_LandKz, cbxArchivierteEintracheNochmalsEinarbetien.Checked)
                 init()
             ElseIf item.Name = "ids" Then
-                MsgBox("IDS noch nicht implementiert!")
+                MsgBox(item.Name.ToUpper & " noch nicht implementiert!")
             End If
         End If
 

SDL/USTV/usrCntlUSTV.vb

@@ -24,7 +24,7 @@ Public Class usrCntlUSTV
             Me.kdNr = kdNr
             KdSearchBox1.KdNr = kdNr
             KdSearchBox1.Enabled = False
-            btnKundendatenaktualisieren.Enabled = True
+            'btnKundendatenaktualisieren.Enabled = True
         End If
 
         btnPLOSEAlle.Enabled = KdSearchBox1.KdNr > 0

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 sqlFMZollDaten = "SELECT dbo.tblTrdinInvoice.RechnungsKundenNr AS AdressenNr, dbo.tblSteuernummern.LandNr, SUM(dbo.tblTrdinInvoice.SteuerbetragLokal) As Vorschaubetrag From dbo.tblTrdinInvoice 
-        Dim sql = "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
+            For Each r As DataRow In dtMSEAlt.Rows
-            '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 
+                Dim UST_org = CDbl(r.Item("Vorschaubetrag"))
-            '        FROM   dbo.tblSteuernummern INNER JOIN
+                If UST_org <> 0 Then
-            '                       dbo.Adressen ON dbo.tblSteuernummern.AdressenNr = dbo.Adressen.AdressenNr INNER JOIN
+                    Dim WaehrungsCode As String = r.Item("Währungscode")
-            '                        dbo.tblMSETransactionsArchiv ON dbo.Adressen.MSEKundenNr = dbo.tblMSETransactionsArchiv.[Customer ID] INNER JOIN
+                    summeAlteSchnittstelle += VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(UST_org, WaehrungsCode, "EUR")
-            '                        dbo.[Länderverzeichnis für die Außenhandelsstatistik] ON dbo.tblSteuernummern.LandNr = dbo.[Länderverzeichnis für die Außenhandelsstatistik].LandNr AND 
+                End If
-            '                        dbo.tblMSETransactionsArchiv.[Transaction Country] = dbo.[Länderverzeichnis für die Außenhandelsstatistik].LandKz
+            Next
-            '        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))
 
 
-            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