Index: vhDeploy/Deploy20190404xAlpnachKorting.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20190404xAlpnachKorting.cls.xml	(revision 0)
+++ vhDeploy/Deploy20190404xAlpnachKorting.cls.xml	(revision 56006)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20190404xAlpnachKorting">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Update Kortingpercentage Alpnach (SFS)</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ..BewaarKortingMetVariant(##class(DOM.PM.enu.Variant).LegraboxPure())
+	Do ..BewaarKortingMetVariant(##class(DOM.PM.enu.Variant).Taorbox())
+	Do ..BewaarKortingMetVariant(##class(DOM.PM.enu.Variant).TandemboxAntaro())
+]]></Implementation>
+</Method>
+
+<Method name="BewaarKortingMetVariant">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Variant:DOM.PM.enu.Variant</FormalSpec>
+<Implementation><![CDATA[
+	#dim KortingService As DOM.VKP.KortingService = ##class(DOM.DomeinContext).Instance().GeefVerkoopPrijsAPI().GeefKortingService()	
+	Set KortingSpecificatie = ##class(DOM.VKP.dto.KortingSpecificaties).%New()
+	Set KortingSpecificatie.Aantal = 1
+	Set KortingSpecificatie.Familie = ##class(DOM.PM.enu.Familie).Lade()
+	Set KortingSpecificatie.Variant = Variant
+	Set KortingSpecificatie.PersonalityID = ##class(DOM.common.enu.Personality).SFS()
+	Set KortingSpecificatie.KlantID = "SFS_123456"
+	
+	#dim KortingPercentage As %String = 35.7 / 100
+	
+	Do KortingService.StelInKorting(KortingSpecificatie,KortingPercentage)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service.SFS/TestTAXLBX/XmlExport/Offerte.xml
===================================================================
diff -u -r55964 -r56006
--- vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service.SFS/TestTAXLBX/XmlExport/Offerte.xml	(.../Offerte.xml)	(revision 55964)
+++ vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service.SFS/TestTAXLBX/XmlExport/Offerte.xml	(.../Offerte.xml)	(revision 56006)
@@ -31,7 +31,7 @@
   <Winkelkar>
     <AantalProducten>11</AantalProducten>
     <AantalProductLijnen>2</AantalProductLijnen>
-    <TotaalPrijs>1062.75</TotaalPrijs>
+    <TotaalPrijs>1051.26</TotaalPrijs>
     <ApplicatieID>Uni_Webshop</ApplicatieID>
     <WinkelkarID>1</WinkelkarID>
     <Lijnen>
@@ -42,12 +42,12 @@
             <LijnID>1||3</LijnID>
             <AfbeeldingURL>http://res.vanhoecke.be/Images/GENERIEK/TAOR_BOX/TAOR_BOX_C.JPG</AfbeeldingURL>
             <Aantal>6</Aantal>
-            <EenheidPrijs>110.2</EenheidPrijs>
+            <EenheidPrijs>109.01</EenheidPrijs>
             <InfoDiverse>
               <InfoDiverseItem>Endkappe: Anthrazit</InfoDiverseItem>
               <InfoDiverseItem>Set Systemschrauben</InfoDiverseItem>
             </InfoDiverse>
-            <TotaalPrijs>661.2</TotaalPrijs>
+            <TotaalPrijs>654.06</TotaalPrijs>
             <ProjectReferentie>LijnReferentie</ProjectReferentie>
             <IngegevenKenmerken xsi:type="TAORKenmerken" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
               <VersieNr>0</VersieNr>
@@ -131,8 +131,8 @@
             <LijnID>1||5</LijnID>
             <AfbeeldingURL>http://res.vanhoecke.be/Images/GENERIEK/LEGRA_BOX/C_Legra.JPG</AfbeeldingURL>
             <Aantal>5</Aantal>
-            <EenheidPrijs>80.31</EenheidPrijs>
-            <TotaalPrijs>401.55</TotaalPrijs>
+            <EenheidPrijs>79.44</EenheidPrijs>
+            <TotaalPrijs>397.2</TotaalPrijs>
             <ProjectReferentie>LijnReferentieLBX</ProjectReferentie>
             <IngegevenKenmerken xsi:type="LBXKenmerken" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
               <Omschrijving></Omschrijving>
Index: vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service.SFS/TestTAXLBX/Service/PostMessage001.txt
===================================================================
diff -u -r55487 -r56006
--- vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service.SFS/TestTAXLBX/Service/PostMessage001.txt	(.../PostMessage001.txt)	(revision 55487)
+++ vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service.SFS/TestTAXLBX/Service/PostMessage001.txt	(.../PostMessage001.txt)	(revision 56006)
@@ -22,7 +22,7 @@
   <CUSTOMER_ID>123456</CUSTOMER_ID>
   <CUSTOMER_NAME>Alpnach Norm - Schrankelemente AG (147432/123456/2402)</CUSTOMER_NAME>
   <PURCHASEPRICE munt="EUR">814.8</PURCHASEPRICE>
-  <SELLINGPRICE munt="CHF">1062.75</SELLINGPRICE>
+  <SELLINGPRICE munt="CHF">1051.26</SELLINGPRICE>
   <SELLINGPRICE_MARKUP>0</SELLINGPRICE_MARKUP>
   <TOTALQTY>11</TOTALQTY>
   <REMARK1></REMARK1>
@@ -32,7 +32,7 @@
     <LINE_NUMBER>1</LINE_NUMBER>
     <LINE_CUSTREF>LijnReferentie</LINE_CUSTREF>
     <QTY>6</QTY>
-    <SELLPRICE munt="CHF">110.2</SELLPRICE>
+    <SELLPRICE munt="CHF">109.01</SELLPRICE>
     <BUYPRICE munt="EUR">81.9</BUYPRICE>
     <DESIGNCODE_TXT>TA'OR BOX</DESIGNCODE_TXT>
     <DESIGN_TXT>Nussbaum Natur</DESIGN_TXT>
@@ -42,7 +42,7 @@
     <LINE_NUMBER>2</LINE_NUMBER>
     <LINE_CUSTREF>LijnReferentieLBX</LINE_CUSTREF>
     <QTY>5</QTY>
-    <SELLPRICE munt="CHF">80.31</SELLPRICE>
+    <SELLPRICE munt="CHF">79.44</SELLPRICE>
     <BUYPRICE munt="EUR">64.68</BUYPRICE>
     <DESIGNCODE_TXT>LEGRABOX pure</DESIGNCODE_TXT>
     <DESIGN_TXT>Oriongrau matt</DESIGN_TXT>
Index: vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service.SFS/TestTAXLBX/Service/Offerte.xml
===================================================================
diff -u -r55964 -r56006
--- vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service.SFS/TestTAXLBX/Service/Offerte.xml	(.../Offerte.xml)	(revision 55964)
+++ vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service.SFS/TestTAXLBX/Service/Offerte.xml	(.../Offerte.xml)	(revision 56006)
@@ -31,7 +31,7 @@
   <Winkelkar>
     <AantalProducten>11</AantalProducten>
     <AantalProductLijnen>2</AantalProductLijnen>
-    <TotaalPrijs>1062.75</TotaalPrijs>
+    <TotaalPrijs>1051.26</TotaalPrijs>
     <ApplicatieID>Uni_Webshop</ApplicatieID>
     <WinkelkarID>1</WinkelkarID>
     <Lijnen>
@@ -42,12 +42,12 @@
             <LijnID>1||3</LijnID>
             <AfbeeldingURL>http://res.vanhoecke.be/Images/GENERIEK/TAOR_BOX/TAOR_BOX_C.JPG</AfbeeldingURL>
             <Aantal>6</Aantal>
-            <EenheidPrijs>110.2</EenheidPrijs>
+            <EenheidPrijs>109.01</EenheidPrijs>
             <InfoDiverse>
               <InfoDiverseItem>Endkappe: Anthrazit</InfoDiverseItem>
               <InfoDiverseItem>Set Systemschrauben</InfoDiverseItem>
             </InfoDiverse>
-            <TotaalPrijs>661.2</TotaalPrijs>
+            <TotaalPrijs>654.06</TotaalPrijs>
             <ProjectReferentie>LijnReferentie</ProjectReferentie>
             <IngegevenKenmerken xsi:type="TAORKenmerken" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
               <VersieNr>0</VersieNr>
@@ -131,8 +131,8 @@
             <LijnID>1||5</LijnID>
             <AfbeeldingURL>http://res.vanhoecke.be/Images/GENERIEK/LEGRA_BOX/C_Legra.JPG</AfbeeldingURL>
             <Aantal>5</Aantal>
-            <EenheidPrijs>80.31</EenheidPrijs>
-            <TotaalPrijs>401.55</TotaalPrijs>
+            <EenheidPrijs>79.44</EenheidPrijs>
+            <TotaalPrijs>397.2</TotaalPrijs>
             <ProjectReferentie>LijnReferentieLBX</ProjectReferentie>
             <IngegevenKenmerken xsi:type="LBXKenmerken" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
               <Omschrijving></Omschrijving>
Index: vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service.SFS/TestTAXLBX/XmlExport/PostMessage001.txt
===================================================================
diff -u -r55488 -r56006
--- vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service.SFS/TestTAXLBX/XmlExport/PostMessage001.txt	(.../PostMessage001.txt)	(revision 55488)
+++ vhTestFiles/IntegratieTests/Unishop.PurchaseOrderService001.Service.SFS/TestTAXLBX/XmlExport/PostMessage001.txt	(.../PostMessage001.txt)	(revision 56006)
@@ -22,7 +22,7 @@
   <CUSTOMER_ID>123456</CUSTOMER_ID>
   <CUSTOMER_NAME>Alpnach Norm - Schrankelemente AG (147432/123456/2402)</CUSTOMER_NAME>
   <PURCHASEPRICE munt="EUR">814.8</PURCHASEPRICE>
-  <SELLINGPRICE munt="CHF">1062.75</SELLINGPRICE>
+  <SELLINGPRICE munt="CHF">1051.26</SELLINGPRICE>
   <SELLINGPRICE_MARKUP>0</SELLINGPRICE_MARKUP>
   <TOTALQTY>11</TOTALQTY>
   <REMARK1></REMARK1>
@@ -32,7 +32,7 @@
     <LINE_NUMBER>1</LINE_NUMBER>
     <LINE_CUSTREF>LijnReferentie</LINE_CUSTREF>
     <QTY>6</QTY>
-    <SELLPRICE munt="CHF">110.2</SELLPRICE>
+    <SELLPRICE munt="CHF">109.01</SELLPRICE>
     <BUYPRICE munt="EUR">81.9</BUYPRICE>
     <DESIGNCODE_TXT>TA'OR BOX</DESIGNCODE_TXT>
     <DESIGN_TXT>Nussbaum Natur</DESIGN_TXT>
@@ -42,7 +42,7 @@
     <LINE_NUMBER>2</LINE_NUMBER>
     <LINE_CUSTREF>LijnReferentieLBX</LINE_CUSTREF>
     <QTY>5</QTY>
-    <SELLPRICE munt="CHF">80.31</SELLPRICE>
+    <SELLPRICE munt="CHF">79.44</SELLPRICE>
     <BUYPRICE munt="EUR">64.68</BUYPRICE>
     <DESIGNCODE_TXT>LEGRABOX pure</DESIGNCODE_TXT>
     <DESIGN_TXT>Oriongrau matt</DESIGN_TXT>