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

MDM Datenverarbeitung, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-04-20 10:26:40 +02:00
parent 67d410a556
commit 0c399faf0b
1 changed files with 10 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -3131,22 +3131,21 @@ Public Class frmMDMDatenverarbetiung
rpt.lblMWST.Text = "zuzüglich MWST " rpt.lblMWST.Text = "zuzüglich MWST "
'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, "") = "Polen" Or SQL.isDbnullEmpty(rpt.Fields.Item("OutletCountry").Value, "") = "Poland - ARIS SITES") And SQL.isDbnullEmpty(rpt.Fields.Item("ProductDescription").Value, "") <> "Ad Blue" Then
'SPANIEN : für alle Produkte gilt eine Reduzierung der MwSt. auf 10 %, 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! Select Case SQL.isDbnullEmpty(rpt.Fields.Item("OutletCountry").Value, "")
'------------ ACHTUNG, IDS verrechnet weiterhin tlw. 21%, warum auch immer... einfach ganz ausblenden!---------------------------------------- Case "Spain" : rpt.lblMWST.Text &= "10 %"
'If SQL.isDbnullEmpty(rpt.Fields.Item("OutletCountry").Value, "") = "Spain" And SQL.isDbnullEmpty(rpt.Fields.Item("ProductDescription").Value, "") <> "Ad Blue" Then Case "Poland" : rpt.lblMWST.Text &= "8 %"
Case "Poland - ARIS SITES" : rpt.lblMWST.Text &= "8 %"
End Select
' rpt.lblMWST.Text &= "10 %" Else
'Else rpt.lblMWST.Text &= IIf(SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuersatz").Value, 2, "") <> "", SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuersatz").Value, 2, "") * 100 & " %", "")
' rpt.lblMWST.Text &= IIf(SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuersatz").Value, 2, "") <> "", SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuersatz").Value, 2, "") * 100 & " %", "")
'End If
'------------ ACHTUNG, IDS verrechnet weiterhin tlw. 21%, warum auch immer... einfach ganz ausblenden!----------------------------------------
End If
rpt.txtMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuerbetrag").Value, 2, "") rpt.txtMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuerbetrag").Value, 2, "")