edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

USTVA und IDS MWST-Sätze

Browse Source
This commit is contained in:
d.breimaier
2026-07-20 15:07:54 +02:00
parent 80e41c93f6
commit 8a516ac7c1
5 changed files with 66 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -3221,18 +3221,20 @@ LEFT JOIN VERAG.dbo.tbl_IDS_Länder land
'SPANIEN, POLEN : für alle Produkte gilt eine Reduzierung der MwSt. auf 10 % bzw. 8%, mit Ausnahme von AdBlue (bleibt bei 21 % MwSt.) -> Regelung der MWST-Anzeige erfolgt über IDS-Länder, allerdings wird auf Datenbasis hier kein Unterschied zw. ProductCode gemacht, daher hardcodiert -> weil es nur um Anzeige geht!
If (SQL.isDbnullEmpty(rpt.Fields.Item("OutletCountry").Value, "") = "Spain" Or SQL.isDbnullEmpty(rpt.Fields.Item("OutletCountry").Value, "") = "Poland") And SQL.isDbnullEmpty(rpt.Fields.Item("ProductDescription").Value, "") <> "Ad Blue" Then
'20.07.2026 -> Änderungen wieder deaktivert!
Select Case SQL.isDbnullEmpty(rpt.Fields.Item("OutletCountry").Value, "")
Case "Spain" : rpt.lblMWST.Text &= "10 %"
Case "Poland" : rpt.lblMWST.Text &= "8 %"
End Select
'If (SQL.isDbnullEmpty(rpt.Fields.Item("OutletCountry").Value, "") = "Spain" Or SQL.isDbnullEmpty(rpt.Fields.Item("OutletCountry").Value, "") = "Poland") And SQL.isDbnullEmpty(rpt.Fields.Item("ProductDescription").Value, "") <> "Ad Blue" Then
Else
' Select Case SQL.isDbnullEmpty(rpt.Fields.Item("OutletCountry").Value, "")
' Case "Spain" : rpt.lblMWST.Text &= "10 %"
' Case "Poland" : rpt.lblMWST.Text &= "8 %"
' End Select
rpt.lblMWST.Text &= IIf(SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuersatz").Value, 2, "") <> "", SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuersatz").Value, 2, "") * 100 & " %", "")
'Else
End If
rpt.lblMWST.Text &= IIf(SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuersatz").Value, 2, "") <> "", SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuersatz").Value, 2, "") * 100 & " %", "")
'End If
rpt.txtMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuerbetrag").Value, 2, "")