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

keine MWST auf IDS-Anlageblatt

Browse Source
This commit is contained in:
d.breimaier
2026-04-07 08:51:39 +02:00
parent a471b51965
commit b394bc9351
2 changed files with 12 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.5.4.3")>
<Assembly: AssemblyFileVersion("1.5.4.3")>
<Assembly: AssemblyVersion("1.5.4.5")>
<Assembly: AssemblyFileVersion("1.5.4.5")>

15
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -3143,16 +3143,21 @@ Public Class frmMDMDatenverarbetiung
rpt.lblMWST.Text = "zuzüglich MWST "
'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!
If SQL.isDbnullEmpty(rpt.Fields.Item("OutletCountry").Value, "") = "Spain" And SQL.isDbnullEmpty(rpt.Fields.Item("ProductDescription").Value, "") <> "Ad Blue" Then
'------------ ACHTUNG, IDS verrechnet weiterhin tlw. 21%, warum auch immer... einfach ganz ausblenden!----------------------------------------
'If SQL.isDbnullEmpty(rpt.Fields.Item("OutletCountry").Value, "") = "Spain" And SQL.isDbnullEmpty(rpt.Fields.Item("ProductDescription").Value, "") <> "Ad Blue" Then
rpt.lblMWST.Text &= "10 %"
' 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
'End If
'------------ ACHTUNG, IDS verrechnet weiterhin tlw. 21%, warum auch immer... einfach ganz ausblenden!----------------------------------------
rpt.txtMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuerbetrag").Value, 2, "")