Index: EWORDSW.mac.rou
===================================================================
diff -u -r41550 -r54713
--- EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 41550)
+++ EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 54713)
@@ -155,7 +155,9 @@
 	Quit:'$D(^KOD($$$KlantSFS,"F",ORDNr)) 0
 	Set oOrder=##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(ORDNr)
 	Quit:'$isObject(oOrder) 0
-	Quit oOrder.GeefDocumentReferenties().CommissieReferentie["/83723/"
+	Set AlpnachOud = ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().VerwijderPrefixVanHandelKlantId(##class(DOM.VKP.enu.SfsKlant).AlpnachOud(), ##class(DOM.common.enu.Personality).SFS())
+	Set Alpnach = ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().VerwijderPrefixVanHandelKlantId(##class(DOM.VKP.enu.SfsKlant).Alpnach(), ##class(DOM.common.enu.Personality).SFS())
+	Quit ((oOrder.GeefDocumentReferenties().CommissieReferentie["/"_AlpnachOud_"/")||(oOrder.GeefDocumentReferenties().CommissieReferentie["/"_Alpnach_"/"))
 	
 BepaalSubMagazijnen(CONSNr)
 	New ORDNr,OLUNr,SOLNr,Magazijnen,SOLRec,SoftV
Index: vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/GeefKlantSessieData/Test.cls.xml
===================================================================
diff -u -r54712 -r54713
--- vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/GeefKlantSessieData/Test.cls.xml	(.../Test.cls.xml)	(revision 54712)
+++ vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/GeefKlantSessieData/Test.cls.xml	(.../Test.cls.xml)	(revision 54713)
@@ -20,15 +20,15 @@
 <Method name="Test: Alpnach -&gt; korting wordt hoe dan ook overschreven">
 <Implementation><![CDATA[
 	#dim TeEncrypterenKlantSessieData As APPS.EC.dto.KlantSessieData  = ##class(vhTest.Utils.APPS.EC.dto.KlantSessieData).SFSKlantMetKorting()
-	set TeEncrypterenKlantSessieData.KlantID = 83723
+	set TeEncrypterenKlantSessieData.KlantID = ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().VerwijderPrefixVanHandelKlantId(##class(DOM.VKP.enu.SfsKlant).AlpnachOud(), ##class(DOM.common.enu.Personality).SFS())
 	set TeEncrypterenKlantSessieData.Korting = 10
 	Set KlantSessieDataBepaler = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New()
 	#dim EncryptedKlantSessieData As %String = KlantSessieDataBepaler.GeefEncryptedKlantSessieDataVoorHandel(TeEncrypterenKlantSessieData, ##class(APPS.EC.enu.WebShopVerwerker).SFS())
 	
 	do $$$AssertEquals(EncryptedKlantSessieData,"y5iaUP9Dw3gra17arBg13plyyTH/Ny/PPEwzaFUYDG5bKTVIgLTkvtq8kbo2xo///mfOhh1XLj48IlwN5NjAAw--")
 	
 	#dim VerwachtKlantSessieData As APPS.EC.dto.KlantSessieData  = ##class(vhTest.Utils.APPS.EC.dto.KlantSessieData).SFSKlantMetKorting()
-	set VerwachtKlantSessieData.KlantID = 83723
+	set VerwachtKlantSessieData.KlantID = ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().VerwijderPrefixVanHandelKlantId(##class(DOM.VKP.enu.SfsKlant).AlpnachOud(), ##class(DOM.common.enu.Personality).SFS())
 	set VerwachtKlantSessieData.Korting = 35
 	
 	Do ..AssertKlantSessieData(EncryptedKlantSessieData,##class(APPS.EC.enu.WebShopVerwerker).SFS(),VerwachtKlantSessieData)