MDM, Mailvorlagen, EORI, Mahnlauf, Kundenblatt, CBAM
This commit is contained in:
@@ -105,12 +105,21 @@ Public Class cMDMFunctionsAllgemein
|
||||
'alle Kunden, die eine SteuerNr hinterlegt haben inkl. deren hinterlegte Summen!
|
||||
Dim sqlKunden = "SELECT Kunden.KundenNr as KundenNr, Kunden.UStV_SummeUmsatzsteuerbetragEUR, Kunden.UStV_SummeErstattungsbetragEUR, Kunden.UStV_Summe3470BetragEUR, Kunden.UStV_SummeVZBetragEUR, Kunden.UStV_SummeVorschaubetragEUR_VERAG, Kunden.UStV_SummeVorschaubetragEUR_IDS, Kunden.UStV_SummeVorschaubetragEUR_IT, Kunden.UStV_SummeVorschaubetragEUR_MSE, Kunden.UStV_SummeVorschaubetragEUR_UTA, Kunden.UStV_SummeVorschaubetragEUR, kde_UStV_SummeVorschaubetragEUR_PLOSE as UStV_SummeVorschaubetragEUR_PLOSE
|
||||
FROM Kunden
|
||||
INNER JOIN [tblKundenErweitert] on [kde_KundenNr] = Kunden.KundenNr
|
||||
left JOIN [tblKundenErweitert] on [kde_KundenNr] = Kunden.KundenNr
|
||||
WHERE Kunden.KundenNr " & sqlWhere &
|
||||
"order by Kunden.KundenNr"
|
||||
|
||||
'Neuberechnung der Steuerbeträge aus den Anträgen
|
||||
Dim sqlSummeBilden = "SELECT
|
||||
|
||||
Dim dtKunden As DataTable = sql.loadDgvBySql(sqlKunden, "FMZOLL")
|
||||
|
||||
|
||||
|
||||
If dtKunden.Rows.Count > 0 Then
|
||||
For Each r As DataRow In dtKunden.Rows
|
||||
|
||||
|
||||
'Neuberechnung der Steuerbeträge aus den Anträgen
|
||||
Dim sqlSummeBilden = "SELECT
|
||||
tblUStVAntrag.UStVAn_KuNr,
|
||||
SUM(tblUStVAntrag.UStVAn_USteuerbetragEUR) As UStVKu_SummeUmsatzsteuer,
|
||||
SUM(tblUStVAntrag.UStVAn_ErstattungsbetragEUR) As UStVKu_SummeErstattung,
|
||||
@@ -123,15 +132,10 @@ Public Class cMDMFunctionsAllgemein
|
||||
End
|
||||
) AS UStVKu_SummeVorauszahlung
|
||||
From tblUStVAntrag
|
||||
Where tblUStVAntrag.UStVAn_KuNr " & sqlWhere &
|
||||
Where tblUStVAntrag.UStVAn_KuNr = " & r.Item("KundenNr") &
|
||||
" Group By tblUStVAntrag.UStVAn_KuNr"
|
||||
|
||||
Dim dtKunden As DataTable = sql.loadDgvBySql(sqlKunden, "FMZOLL")
|
||||
|
||||
Dim dtKundenSummen As DataTable = sql.loadDgvBySql(sqlSummeBilden, "FMZOLL")
|
||||
|
||||
If dtKunden.Rows.Count > 0 Then
|
||||
For Each r As DataRow In dtKunden.Rows
|
||||
Dim dtKundenSummen As DataTable = sql.loadDgvBySql(sqlSummeBilden, "FMZOLL")
|
||||
|
||||
Dim curUStV_SummeVorschaubetragEUR As Double
|
||||
Dim curUStV_SummeVorschaubetragEUR_VERAG As Double
|
||||
@@ -147,7 +151,7 @@ Public Class cMDMFunctionsAllgemein
|
||||
Dim curUStV_SummeVZBetragEUR As Double
|
||||
Dim invoiceDate = If(Date.Now > New Date(Date.Now.Year, 6, 30), New Date(Date.Now.Year, 1, 1), New Date(Date.Now.Year - 1, 1, 1))
|
||||
|
||||
'Neuberechnung der Vorschausummen
|
||||
'Neuberechnung der Vorschausummen (also alle noch nicht verrechneten Transaktionen)
|
||||
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)
|
||||
@@ -176,21 +180,22 @@ Public Class cMDMFunctionsAllgemein
|
||||
Dim sumChangedOK As Boolean = False
|
||||
|
||||
|
||||
If Not (CDbl(r.Item("UStV_SummeUmsatzsteuerbetragEUR")) = curUStV_SummeUmsatzsteuerbetragEUR And
|
||||
CDbl(r.Item("UStV_SummeErstattungsbetragEUR")) = curUStV_SummeErstattungsbetragEUR And
|
||||
CDbl(r.Item("UStV_Summe3470BetragEUR")) = curUStV_Summe3470BetragEUR And
|
||||
CDbl(r.Item("UStV_SummeVZBetragEUR")) = curUStV_SummeVZBetragEUR And
|
||||
CDbl(r.Item("UStV_SummeVorschaubetragEUR_VERAG")) = curUStV_SummeVorschaubetragEUR_VERAG And
|
||||
CDbl(r.Item("UStV_SummeVorschaubetragEUR_IDS")) = curUStV_SummeVorschaubetragEUR_IDS And
|
||||
CDbl(r.Item("UStV_SummeVorschaubetragEUR_IT")) = curUStV_SummeVorschaubetragEUR_IT And
|
||||
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
|
||||
If Not (
|
||||
Math.Round(CDbl(r.Item("UStV_SummeUmsatzsteuerbetragEUR")), 2) = curUStV_SummeUmsatzsteuerbetragEUR And
|
||||
Math.Round(CDbl(r.Item("UStV_SummeErstattungsbetragEUR")), 2) = curUStV_SummeErstattungsbetragEUR And
|
||||
Math.Round(CDbl(r.Item("UStV_Summe3470BetragEUR")), 2) = curUStV_Summe3470BetragEUR And
|
||||
Math.Round(CDbl(r.Item("UStV_SummeVZBetragEUR")), 2) = curUStV_SummeVZBetragEUR And
|
||||
Math.Round(CDbl(r.Item("UStV_SummeVorschaubetragEUR_VERAG")), 2) = curUStV_SummeVorschaubetragEUR_VERAG And
|
||||
Math.Round(CDbl(r.Item("UStV_SummeVorschaubetragEUR_IDS")), 2) = curUStV_SummeVorschaubetragEUR_IDS And
|
||||
Math.Round(CDbl(r.Item("UStV_SummeVorschaubetragEUR_IT")), 2) = curUStV_SummeVorschaubetragEUR_IT And
|
||||
Math.Round(CDbl(r.Item("UStV_SummeVorschaubetragEUR_MSE")), 2) = curUStV_SummeVorschaubetragEUR_MSE And
|
||||
Math.Round(CDbl(r.Item("UStV_SummeVorschaubetragEUR_UTA")), 2) = curUStV_SummeVorschaubetragEUR_UTA And
|
||||
Math.Round(CDbl(r.Item("UStV_SummeVorschaubetragEUR")), 2) = curUStV_SummeVorschaubetragEUR) Then
|
||||
sumChanged = True
|
||||
sumChangedOK = False
|
||||
End If
|
||||
|
||||
If CDbl(r.Item("UStV_SummeVorschaubetragEUR_PLOSE")) = curUStV_SummeVorschaubetragEUR_PLOSE Then
|
||||
If Not Math.Round(CDbl(r.Item("UStV_SummeVorschaubetragEUR_PLOSE")), 2) = curUStV_SummeVorschaubetragEUR_PLOSE Then
|
||||
sumChangedPLOSE = True
|
||||
sumChangedPLOSEOK = False
|
||||
End If
|
||||
@@ -216,14 +221,6 @@ Public Class cMDMFunctionsAllgemein
|
||||
sumChangedPLOSEOK = sql.doSQL("Update tblKundenErweitert set kde_UStV_SummeVorschaubetragEUR_PLOSE = " & curUStV_SummeVorschaubetragEUR_PLOSE.ToString.Replace(",", ".") & " WHERE kde_KundenNr = " & r.Item("KundenNr"), "FMZOLL")
|
||||
End If
|
||||
|
||||
'UStVKunden_Summen_speichern_Vorschau_VERAG
|
||||
'UPDATE Kunden SET Kunden.UStV_SummeVorschaubetragEUR_VERAG = CCur(Nz(DSum("[SteuerbetragEUR]","qryUStVVorschau_VERAG","[RechnungsKundenNr] = " & [Kunden]![KundenNr]),0))
|
||||
'WHERE (((Kunden.KundenNr)=[prmUStVKu_KuNr]));
|
||||
|
||||
'UStVKunden_Summen_speichern_Vorschau_IDS
|
||||
'UPDATE Kunden SET Kunden.UStV_SummeVorschaubetragEUR_IDS = CCur(Nz(DSum("[SteuerbetragEUR]","qryUStVVorschau_IDS","[RechnungsKundenNr] = " & [Kunden]![KundenNr]),0))
|
||||
'WHERE (((Kunden.KundenNr)=[prmUStVKu_KuNr]));
|
||||
|
||||
Next
|
||||
End If
|
||||
|
||||
@@ -352,15 +349,15 @@ Public Class cMDMFunctionsAllgemein
|
||||
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim summeSchnittstelle As Double
|
||||
|
||||
Dim sqlPLOSE = "select plose_POLSEKundennummer, sum([plose_MWSTBetrag])[plose_MWSTBetrag] FROM [tblPLOSE_Details] INNER JOIN Adressen on PLOSEKundenNr=plose_POLSEKundennummer
|
||||
WHERE plose_Archiv = 1 AND plose_LieferantCode IN (0,1,7) AND cast(plose_RechnungsDatum as date) >= '" & invoiceDate.ToShortDateString & "' and plose_POLSEKundennummer = " & varUStVAn_KuNr & "
|
||||
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")
|
||||
|
||||
For Each r As DataRow In dtPLOSE.Rows
|
||||
Dim UST_org = CDbl(r.Item("plose_MWSTBetrag"))
|
||||
Dim UST_org = CDbl(r.Item("plose_MWSTBetragWaehrungAbbuchung"))
|
||||
If UST_org <> 0 Then
|
||||
summeSchnittstelle += UST_org
|
||||
End If
|
||||
@@ -369,7 +366,7 @@ Public Class cMDMFunctionsAllgemein
|
||||
Return summeSchnittstelle
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)
|
||||
|
||||
Return 0
|
||||
|
||||
@@ -438,7 +435,7 @@ Public Class cMDMFunctionsAllgemein
|
||||
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)
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)
|
||||
|
||||
Return 0
|
||||
|
||||
@@ -496,7 +493,8 @@ Public Class cMDMFunctionsAllgemein
|
||||
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 & "
|
||||
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 & "
|
||||
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")
|
||||
@@ -512,7 +510,7 @@ Public Class cMDMFunctionsAllgemein
|
||||
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)
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)
|
||||
|
||||
Return 0
|
||||
|
||||
@@ -620,7 +618,7 @@ Public Class cMDMFunctionsAllgemein
|
||||
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)
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)
|
||||
|
||||
Return 0
|
||||
|
||||
|
||||
Reference in New Issue
Block a user