Index: vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/GeefKlantSessieData/Test.cls.xml
===================================================================
diff -u -r56582 -r56968
--- vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/GeefKlantSessieData/Test.cls.xml	(.../Test.cls.xml)	(revision 56582)
+++ vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/GeefKlantSessieData/Test.cls.xml	(.../Test.cls.xml)	(revision 56968)
@@ -17,24 +17,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: AlpnachOud -&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 = ##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 = ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().VerwijderPrefixVanHandelKlantId(##class(DOM.VKP.enu.SfsKlant).AlpnachOud(), ##class(DOM.common.enu.Personality).SFS())
-	set VerwachtKlantSessieData.Korting = 35.7
-	
-	Do ..AssertKlantSessieData(EncryptedKlantSessieData,##class(APPS.EC.enu.WebShopVerwerker).SFS(),VerwachtKlantSessieData)
-]]></Implementation>
-</Method>
-
 <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()
Index: DOM/VKP/enu/SfsKlant/Verwerker.cls.xml
===================================================================
diff -u -r54692 -r56968
--- DOM/VKP/enu/SfsKlant/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 54692)
+++ DOM/VKP/enu/SfsKlant/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 56968)
@@ -14,8 +14,6 @@
 <Implementation><![CDATA[
 	If SfsKlant = "SFS_123456" {
 		Do ..VerwerkAlpnach()
-	} ElseIf SfsKlant = "SFS_83723" {
-		Do ..VerwerkAlpnachOud()
 	} Else {
 		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(SfsKlant,"DOM.VKP.enu.SfsKlant",$classname())
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
@@ -28,12 +26,6 @@
 <Private>1</Private>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
-
-<Method name="VerwerkAlpnachOud">
-<Abstract>1</Abstract>
-<Private>1</Private>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/VoegToeMaatwerkEnGeefWinkelkarTerug/TAX/TestVolumeAandeel.cls.xml
===================================================================
diff -u -r54695 -r56968
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/VoegToeMaatwerkEnGeefWinkelkarTerug/TAX/TestVolumeAandeel.cls.xml	(.../TestVolumeAandeel.cls.xml)	(revision 54695)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/VoegToeMaatwerkEnGeefWinkelkarTerug/TAX/TestVolumeAandeel.cls.xml	(.../TestVolumeAandeel.cls.xml)	(revision 56968)
@@ -31,7 +31,7 @@
 	
 	Set ..WinkelkarFake = ##class(vhTest.Fake.DOM.EC.Winkelkar.Winkelkar).%New($$$DummyString)
 	Do ..WinkelkarFake.ZetPersonalityID(##class(DOM.common.enu.Personality).SFS())
-	Do ..WinkelkarFake.ZetKlantID(##class(DOM.VKP.enu.SfsKlant).AlpnachOud())
+	Do ..WinkelkarFake.ZetKlantID(##class(DOM.VKP.enu.SfsKlant).Alpnach())
 
 	Set WinkelkarServiceMock = ##class(vhTest.Mock.DOM.EC.Winkelkar.WinkelkarService).%New()
 	Do WinkelkarServiceMock.IndienMethodCall("MaakWinkelkar", $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(..WinkelkarFake)
@@ -43,7 +43,7 @@
 
 <Method name="Test: VolumeAandeel wordt bepaald en bewaard bij toevoegen van een TAX lade in probox verpakking">
 <Implementation><![CDATA[
-	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(), ##class(DOM.VKP.enu.SfsKlant).AlpnachOud(), ##class(DOM.common.enu.Personality).SFS())
+	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(), ##class(DOM.VKP.enu.SfsKlant).Alpnach(), ##class(DOM.common.enu.Personality).SFS())
 	#dim IngegevenKenmerken As vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
 	Set IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).Probox()
 	#dim Aantal As %Integer = 1
@@ -63,7 +63,7 @@
 
 <Method name="Test: VolumeAandeel wordt niet bepaald bij toevoegen van een TAX lade in V1 verpakking">
 <Implementation><![CDATA[
-	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(), ##class(DOM.VKP.enu.SfsKlant).AlpnachOud(), ##class(DOM.common.enu.Personality).SFS())
+	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(), ##class(DOM.VKP.enu.SfsKlant).Alpnach(), ##class(DOM.common.enu.Personality).SFS())
 	#dim IngegevenKenmerken As vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
 	Set IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1()
 	#dim Aantal As %Integer = 1
@@ -78,7 +78,7 @@
 
 <Method name="Test: VolumeAandeel wordt niet bepaald bij toevoegen van een TAX lade in FlatpackV1 verpakking">
 <Implementation><![CDATA[
-	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(), ##class(DOM.VKP.enu.SfsKlant).AlpnachOud(), ##class(DOM.common.enu.Personality).SFS())
+	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(), ##class(DOM.VKP.enu.SfsKlant).Alpnach(), ##class(DOM.common.enu.Personality).SFS())
 	#dim IngegevenKenmerken As vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
 	Set IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1()
 	#dim Aantal As %Integer = 1
Index: DOM/VKP/enu/SfsKlant.cls.xml
===================================================================
diff -u -r54692 -r56968
--- DOM/VKP/enu/SfsKlant.cls.xml	(.../SfsKlant.cls.xml)	(revision 54692)
+++ DOM/VKP/enu/SfsKlant.cls.xml	(.../SfsKlant.cls.xml)	(revision 56968)
@@ -4,7 +4,7 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>,SFS_123456,SFS_83723</Default>
+<Default>,SFS_123456</Default>
 </Parameter>
 
 <Method name="Alpnach">
@@ -13,13 +13,6 @@
 <Implementation><![CDATA[	Quit "SFS_123456"
 ]]></Implementation>
 </Method>
-
-<Method name="AlpnachOud">
-<ClassMethod>1</ClassMethod>
-<ReturnType>DOM.VKP.enu.SfsKlant</ReturnType>
-<Implementation><![CDATA[	Quit "SFS_83723"
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml
===================================================================
diff -u -r55825 -r56968
--- EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 55825)
+++ EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 56968)
@@ -88,9 +88,6 @@
 	#dim ClassName As %String = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.Order).%ClassName(1)
 	#dim Order As EXT.Unishop.PurchaseOrder001.CreateOrder.Order = ..XmlCorrelater.GeefObjectVanBestand(BestandVolledigeNaam,ClassName,"PurchaseOrder")
 	
-	If ((..AanvraagHeader.KlantID = ##class(DOM.VKP.enu.SfsKlant).AlpnachOud()) && ($$$HasLength(Order.OrderReferentie))) {
-		Do ..CheckDubbels(Order)
-	}
 	If ((..AanvraagHeader.KlantID = ##class(DOM.VKP.enu.SfsKlant).Alpnach()) && ($$$HasLength(Order.OrderReferentie))) {
 		Do ..CheckDubbels(Order)
 	}
@@ -174,7 +171,7 @@
 	If DocumentReferentiesIterator.HasNext() {
 		#dim DocumentReferenties As DOM.VKP.DocumentReferenties = DocumentReferentiesIterator.Next()
 		#dim Offerte As APPS.VKP.Offerte = ..OfferteRepository.GeefViaDocumentReferentiesId(DocumentReferenties.GeefID())
-		If ((Offerte.GeefKlantID() = ##class(DOM.VKP.enu.SfsKlant).AlpnachOud()) || (Offerte.GeefKlantID() = ##class(DOM.VKP.enu.SfsKlant).Alpnach())) {
+		If (Offerte.GeefKlantID() = ##class(DOM.VKP.enu.SfsKlant).Alpnach()) {
 			Do ##class(TECH.Exceptions.InvalidInputException).Throw("Er bestaat reeds een offerte met OrderReferentie '"_Order.OrderReferentie_"' voor klant Alpnach.")
 		}
 	}
Index: vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml
===================================================================
diff -u -r54760 -r56968
--- vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 54760)
+++ vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 56968)
@@ -198,35 +198,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Indien AlpnachOud al eens een order met dezelfde OrderReferentie heeft doorgestuurd, smijten we een error">
-<Implementation><![CDATA[
-	#dim DocumentReferentiesId As %String = "8888"
-	#dim DummyOrder As EXT.Unishop.PurchaseOrder001.CreateOrder.Order = ##class(vhTest.Utils.EXT.Unishop.PurchaseOrder001.CreateOrder.Order).TaorboxOrder()
-		
-	Set StubCorrelator = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
-	Do StubCorrelator.IndienMethodCall("GeefObjectVanBestand", ..BestandVolledigeNaam, "EXT.Unishop.PurchaseOrder001.CreateOrder.Order", "PurchaseOrder").DanReturn(DummyOrder)
-	
-	Set EdiBestelServiceSpy = ##class(vhTest.Spy.APPS.EDI.Bestel.BestelService).%New()
-	
-	#dim DocumentReferentieMock As DOM.VKP.DocumentReferenties = ##class(vhTest.Mock.DOM.VKP.DocumentReferenties).%New()
-	Do DocumentReferentieMock.IndienMethodCall("GeefID").DanReturn(DocumentReferentiesId)
-	#dim DocumentReferentiesIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DocumentReferentieMock)
-	Set DocumentReferentiesRepositoryMock = ##class(vhTest.Mock.DOM.VKP.DocumentReferentiesRepository).%New()
-	Do DocumentReferentiesRepositoryMock.IndienMethodCall("ZoekViaOrderReferentie",DummyOrder.OrderReferentie).DanReturn(DocumentReferentiesIterator)
-	
-	#dim OfferteStub = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
-	Do OfferteStub.ZetKlantID(##class(DOM.VKP.enu.SfsKlant).AlpnachOud())
-	Set OfferteRepository = ##class(vhTest.Mock.APPS.VKP.Offerte.OfferteRepository).%New()
-	Do OfferteRepository.IndienMethodCall("GeefViaDocumentReferentiesId",DocumentReferentiesId).DanReturn(OfferteStub)
-	
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Er bestaat reeds een offerte met OrderReferentie '"_DummyOrder.OrderReferentie_"'")
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1), Substrings))
-	
-	Set Verwerker = ##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New(StubCorrelator, EdiBestelServiceSpy, ##class(vhTest.Fake.TECH.Mail.MailAPI).%New(),,,, DocumentReferentiesRepositoryMock, OfferteRepository)
-	Do Verwerker.VerwerkBestand(..BestandVolledigeNaam)
-]]></Implementation>
-</Method>
-
 <Method name="Test: Indien Alpnach al eens een order met dezelfde OrderReferentie heeft doorgestuurd, smijten we een error">
 <Implementation><![CDATA[
 	#dim DocumentReferentiesId As %String = "8888"
Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/VoegToeMaatwerkEnGeefWinkelkarTerug/LBX/TestVolumeAandeel.cls.xml
===================================================================
diff -u -r54695 -r56968
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/VoegToeMaatwerkEnGeefWinkelkarTerug/LBX/TestVolumeAandeel.cls.xml	(.../TestVolumeAandeel.cls.xml)	(revision 54695)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/VoegToeMaatwerkEnGeefWinkelkarTerug/LBX/TestVolumeAandeel.cls.xml	(.../TestVolumeAandeel.cls.xml)	(revision 56968)
@@ -26,7 +26,7 @@
 	
 	Set ..WinkelkarFake = ##class(vhTest.Fake.DOM.EC.Winkelkar.Winkelkar).%New($$$DummyString)
 	Do ..WinkelkarFake.ZetPersonalityID(##class(DOM.common.enu.Personality).SFS())
-	Do ..WinkelkarFake.ZetKlantID(##class(DOM.VKP.enu.SfsKlant).AlpnachOud())
+	Do ..WinkelkarFake.ZetKlantID(##class(DOM.VKP.enu.SfsKlant).Alpnach())
 
 	Set WinkelkarServiceMock = ##class(vhTest.Mock.DOM.EC.Winkelkar.WinkelkarService).%New()
 	Do WinkelkarServiceMock.IndienMethodCall("MaakWinkelkar", $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(..WinkelkarFake)
@@ -39,7 +39,7 @@
 <Method name="Test: VolumeAandeel wordt bepaald en bewaard bij toevoegen van een LBX lade in probox verpakking">
 <Implementation><![CDATA[
 	#dim GroepNaam As %String = "Groep"
-	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(), ##class(DOM.VKP.enu.SfsKlant).AlpnachOud(), ##class(DOM.common.enu.Personality).SFS())
+	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(), ##class(DOM.VKP.enu.SfsKlant).Alpnach(), ##class(DOM.common.enu.Personality).SFS())
 	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).StandaardLade()
 	Set IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).Probox()
 	#dim Aantal As %Integer = 1
@@ -60,7 +60,7 @@
 <Method name="Test: VolumeAandeel wordt niet bepaald bij toevoegen van een LBX lade in V1 verpakking">
 <Implementation><![CDATA[
 	#dim GroepNaam As %String = "Groep"
-	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(), ##class(DOM.VKP.enu.SfsKlant).AlpnachOud(), ##class(DOM.common.enu.Personality).SFS())
+	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(), ##class(DOM.VKP.enu.SfsKlant).Alpnach(), ##class(DOM.common.enu.Personality).SFS())
 	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).StandaardLade()
 	Set IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).V1()
 	#dim Aantal As %Integer = 1
Index: EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml
===================================================================
diff -u -r56750 -r56968
--- EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 56750)
+++ EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 56968)
@@ -55,7 +55,7 @@
 			Set Eigenschappen.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1()
 		}
 		
-		If ((KlantId = ##class(DOM.VKP.enu.SfsKlant).AlpnachOud()) || (KlantId = ##class(DOM.VKP.enu.SfsKlant).Alpnach())) {
+		If (KlantId = ##class(DOM.VKP.enu.SfsKlant).Alpnach()) {
 			Set Eigenschappen.FrontEindkapKleur = ##class(DOM.PM.enu.TAORAfdekkapBovenKleur).AntracietKunststof()
 		}
 	}
Index: APPS/EC/impl/KlantSessieDataBepaler.cls.xml
===================================================================
diff -u -r56582 -r56968
--- APPS/EC/impl/KlantSessieDataBepaler.cls.xml	(.../KlantSessieDataBepaler.cls.xml)	(revision 56582)
+++ APPS/EC/impl/KlantSessieDataBepaler.cls.xml	(.../KlantSessieDataBepaler.cls.xml)	(revision 56968)
@@ -34,9 +34,6 @@
 <FormalSpec>KlantSessieData:APPS.EC.dto.KlantSessieData</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If (KlantSessieData.KlantID = ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().VerwijderPrefixVanHandelKlantId(##class(DOM.VKP.enu.SfsKlant).AlpnachOud(), ##class(DOM.common.enu.Personality).SFS())) { 
-		Set KlantSessieData.Korting = 35.7
-	}
 	If (KlantSessieData.KlantID = ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().VerwijderPrefixVanHandelKlantId(##class(DOM.VKP.enu.SfsKlant).Alpnach(), ##class(DOM.common.enu.Personality).SFS())) { 
 		Set KlantSessieData.Korting = 35.7
 	}
Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/VoegToeMaatwerk/TAX/TestSFS.cls.xml
===================================================================
diff -u -r54695 -r56968
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/VoegToeMaatwerk/TAX/TestSFS.cls.xml	(.../TestSFS.cls.xml)	(revision 54695)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/VoegToeMaatwerk/TAX/TestSFS.cls.xml	(.../TestSFS.cls.xml)	(revision 56968)
@@ -31,7 +31,7 @@
 <Method name="Test: Alpnach heeft altijd geleider bevestigingsschroeven nodig">
 <Implementation><![CDATA[
 	#dim GroepNaam As %String = "Groep"
-	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(), ##class(DOM.VKP.enu.SfsKlant).AlpnachOud(), ##class(DOM.common.enu.Personality).SFS())
+	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(), ##class(DOM.VKP.enu.SfsKlant).Alpnach(), ##class(DOM.common.enu.Personality).SFS())
 	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
 	#dim Aantal As %Integer = 1
 	
Index: DOM/VKP/enu/SfsKlant/AutoComplete.cls.xml
===================================================================
diff -u -r54692 -r56968
--- DOM/VKP/enu/SfsKlant/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 54692)
+++ DOM/VKP/enu/SfsKlant/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 56968)
@@ -15,13 +15,6 @@
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
-
-<Property name="AlpnachOud">
-<Type>%String</Type>
-<InitialExpression>"SFS_83723"</InitialExpression>
-<Transient>1</Transient>
-<ReadOnly>1</ReadOnly>
-</Property>
 </Class>
 
 
Index: APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml
===================================================================
diff -u -r56302 -r56968
--- APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 56302)
+++ APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 56968)
@@ -184,7 +184,7 @@
  	}
 	
 	if ( IngegevenKenmerkenDto.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade() ) && (IngegevenKenmerkenDto.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox()) {
-		if ( ..Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).SFS() ) && (##class(TECH.StringUtils).Equals(..Winkelkar.GeefKlantID(),##class(DOM.VKP.enu.SfsKlant).AlpnachOud(),##class(DOM.VKP.enu.SfsKlant).Alpnach()) ) {
+		if ( ..Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).SFS() ) && (..Winkelkar.GeefKlantID() = ##class(DOM.VKP.enu.SfsKlant).Alpnach() ) {
 			set IngegevenKenmerken.BevatGeleiderBevestigingSchroeven = $$$True
 		}
 	}
Index: vhUnitTest/EXT/Unishop/PurchaseOrder001/ProductConverter/ExtNaarEdi/Tax/Test.cls.xml
===================================================================
diff -u -r54695 -r56968
--- vhUnitTest/EXT/Unishop/PurchaseOrder001/ProductConverter/ExtNaarEdi/Tax/Test.cls.xml	(.../Test.cls.xml)	(revision 54695)
+++ vhUnitTest/EXT/Unishop/PurchaseOrder001/ProductConverter/ExtNaarEdi/Tax/Test.cls.xml	(.../Test.cls.xml)	(revision 56968)
@@ -119,7 +119,7 @@
 	#dim TeConverterenLade As EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenTAX = ##class(vhTest.Utils.EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenTAX).StandaardLade()	
 	Set TeConverterenLade.FrontEindkapKleur = FrontEindkapKleur
 	
-	#dim KlantId As %String = ##class(DOM.VKP.enu.SfsKlant).AlpnachOud()
+	#dim KlantId As %String = ##class(DOM.VKP.enu.SfsKlant).Alpnach()
 	#dim LadeTAX As APPS.EDI.common.dto.v001.LadeTAX = ..Converter.Converteer(TeConverterenLade, KlantId)
 
 	If $$$AssertEquals($classname(LadeTAX),"APPS.EDI.common.dto.v001.LadeTAX") {
Index: DOM/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml
===================================================================
diff -u -r56302 -r56968
--- DOM/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 56302)
+++ DOM/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 56968)
@@ -210,7 +210,7 @@
  	}
 	
 	if ( IngegevenKenmerkenDto.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade() ) && (IngegevenKenmerkenDto.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox()) {
-		if ( ..Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).SFS() ) && (##class(TECH.StringUtils).Equals(..Winkelkar.GeefKlantID(),##class(DOM.VKP.enu.SfsKlant).AlpnachOud(),##class(DOM.VKP.enu.SfsKlant).Alpnach()) ) {
+		if ( ..Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).SFS() ) && (..Winkelkar.GeefKlantID() = ##class(DOM.VKP.enu.SfsKlant).Alpnach() ) {
 			set IngegevenKenmerken.BevatGeleiderBevestigingSchroeven = $$$True
 		}
 	}
Index: EWORDSW.mac.rou
===================================================================
diff -u -r54713 -r56968
--- EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 54713)
+++ EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 56968)
@@ -155,9 +155,8 @@
 	Quit:'$D(^KOD($$$KlantSFS,"F",ORDNr)) 0
 	Set oOrder=##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(ORDNr)
 	Quit:'$isObject(oOrder) 0
-	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_"/"))
+	Quit (oOrder.GeefDocumentReferenties().CommissieReferentie["/"_Alpnach_"/")
 	
 BepaalSubMagazijnen(CONSNr)
 	New ORDNr,OLUNr,SOLNr,Magazijnen,SOLRec,SoftV
Index: vhUnitTest/APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder/Test.cls.xml
===================================================================
diff -u -r54751 -r56968
--- vhUnitTest/APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 54751)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 56968)
@@ -34,32 +34,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: MaakLijn voor AlpnachOud met BevestigingsSchroeven">
-<Implementation><![CDATA[
-	#dim WinkelkarDummy As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New("UnitTest")
-	Do WinkelkarDummy.ZetPersonalityID(##class(DOM.common.enu.Personality).SFS())
-	Do WinkelkarDummy.ZetKlantID(##class(DOM.VKP.enu.SfsKlant).AlpnachOud())
-	#dim RandomIngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
-	#dim RandomAantal As %Integer = 2
-	#dim RandomProjectReferentie As %String = "RandomProjectReferentie"
-	#dim RandomExterneId As %String = "RandomExterneId"
-	#dim RandomEconConfiguratieSleutel As %String = "RandomEconConfiguratieSleutel"
-	#dim AdminVriendelijkeTekst As %String = "AdminVriendelijkeTekst"
-	#dim HerbestellingBijProbleem as %Boolean = $$$True
-	
-	#dim AdminTekstUtilsStub As vhTest.Mock.APPS.common.AdminTekstUtils = ##class(vhTest.Mock.APPS.common.AdminTekstUtils).%New()
-	Do AdminTekstUtilsStub.IndienMethodCall("MaakTekstAdminVriendelijk", RandomProjectReferentie).DanReturn(AdminVriendelijkeTekst)
-	
-	#dim MaatwerkLijnBuilder As APPS.EC.Winkelkar.impl.MaatwerkLijnBuilder = ##class(APPS.EC.Winkelkar.impl.MaatwerkLijnBuilder).%New("", AdminTekstUtilsStub)
-	Do MaatwerkLijnBuilder.Init(WinkelkarDummy)
-	
-	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = MaatwerkLijnBuilder.MaakLijn(RandomIngegevenKenmerken, RandomAantal, RandomProjectReferentie, "RandomGroepNaam", RandomExterneId, RandomEconConfiguratieSleutel,HerbestellingBijProbleem)
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = MaatwerkLijn.GeefIngegevenKenmerken()
-	
-	Do $$$AssertTrue(MaatwerkLijn.GeefIngegevenKenmerken().BevatGeleiderBevestigingSchroeven)
-]]></Implementation>
-</Method>
-
 <Method name="Test: MaakLijn voor Alpnach met BevestigingsSchroeven">
 <Implementation><![CDATA[
 	#dim WinkelkarDummy As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New("UnitTest")