diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index d9017a1c..2480ce9b 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/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 diff --git a/SDL/USTV/usrCntlUSTV.vb b/SDL/USTV/usrCntlUSTV.vb index 8cc56cec..2db3111f 100644 --- a/SDL/USTV/usrCntlUSTV.vb +++ b/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 diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb index d4e71502..e23b6956 100644 --- 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