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

Compare commits

base: edv:67d410a5566c681f8fab55c4fe344901b62acc87
Branches Tags
edv:newMaster2024 edv:master edv:Logikänderung_VM
...
compare: edv:e02ce9687004186a68d3a9969e2622f81be5a91c
Branches Tags
edv:newMaster2024 edv:master edv:Logikänderung_VM

3 Commits
67d410a556 ... e02ce96870

Author SHA1 Message Date
d.breimaier
e02ce96870 version 2026-04-20 10:33:26 +02:00
d.breimaier
38e222f04b polen fix IDS 2026-04-20 10:31:42 +02:00
d.breimaier
0c399faf0b MDM Datenverarbeitung, etc. 2026-04-20 10:26:40 +02:00
2 changed files with 11 additions and 13 deletions
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.5")>
<Assembly: AssemblyFileVersion("1.5.4.5")>
<Assembly: AssemblyVersion("1.5.4.6")>
<Assembly: AssemblyFileVersion("1.5.4.6")>

20
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -3131,22 +3131,20 @@ Public Class frmMDMDatenverarbetiung
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, "") = "Poland") 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!
'------------ 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
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 &= "10 %"
Else
'Else
' 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!----------------------------------------
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, "")