Index: DOM/VKP/enu/SfsKlant.cls.xml
===================================================================
diff -u -r57959 -r71056
--- DOM/VKP/enu/SfsKlant.cls.xml	(.../SfsKlant.cls.xml)	(revision 57959)
+++ DOM/VKP/enu/SfsKlant.cls.xml	(.../SfsKlant.cls.xml)	(revision 71056)
@@ -4,13 +4,13 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>,SFS_123456,SFS_100682</Default>
+<Default>,SFS_147432,SFS_100682</Default>
 </Parameter>
 
 <Method name="Alpnach">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.VKP.enu.SfsKlant</ReturnType>
-<Implementation><![CDATA[	Quit "SFS_123456"
+<Implementation><![CDATA[	Quit "SFS_147432"
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/GeefKlantSessieData/Test.cls.xml
===================================================================
diff -u -r61139 -r71056
--- vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/GeefKlantSessieData/Test.cls.xml	(.../Test.cls.xml)	(revision 61139)
+++ vhUnitTest/APPS/EC/impl/KlantSessieDataBepaler/GeefKlantSessieData/Test.cls.xml	(.../Test.cls.xml)	(revision 71056)
@@ -25,7 +25,7 @@
 	Set KlantSessieDataBepaler = ##class(APPS.EC.impl.KlantSessieDataBepaler).%New()
 	#dim EncryptedKlantSessieData As %String = KlantSessieDataBepaler.GeefEncryptedKlantSessieDataVoorHandel(TeEncrypterenKlantSessieData, ##class(APPS.EC.enu.WebShopVerwerker).SFS())
 	
-	do $$$AssertEquals(EncryptedKlantSessieData,"gT1z4Ylr3f1hREd8q8bc/sHm33WsRsoLgOkMediofecmCygZj2mKB/s08i37Bi9n/Zuu4RtQKPiferjGAIZX4A--")
+	do $$$AssertEquals(EncryptedKlantSessieData,"Nnabh_/Kao1wFGqW8ab3PsHm33WsRsoLgOkMediofecmCygZj2mKB/s08i37Bi9n/Zuu4RtQKPiferjGAIZX4A--")
 	
 	#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).Alpnach(), ##class(DOM.common.enu.Personality).SFS())
Index: DOM/VKP/enu/SfsKlant/Verwerker.cls.xml
===================================================================
diff -u -r57959 -r71056
--- DOM/VKP/enu/SfsKlant/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 57959)
+++ DOM/VKP/enu/SfsKlant/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 71056)
@@ -12,7 +12,7 @@
 <Final>1</Final>
 <FormalSpec>SfsKlant:DOM.VKP.enu.SfsKlant</FormalSpec>
 <Implementation><![CDATA[
-	If SfsKlant = "SFS_123456" {
+	If SfsKlant = "SFS_147432" {
 		Do ..VerwerkAlpnach()
 	} ElseIf SfsKlant = "SFS_100682" {
 		Do ..VerwerkHerzog()
Index: DOM/VKP/enu/SfsKlant/AutoComplete.cls.xml
===================================================================
diff -u -r57959 -r71056
--- DOM/VKP/enu/SfsKlant/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 57959)
+++ DOM/VKP/enu/SfsKlant/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 71056)
@@ -11,7 +11,7 @@
 
 <Property name="Alpnach">
 <Type>%String</Type>
-<InitialExpression>"SFS_123456"</InitialExpression>
+<InitialExpression>"SFS_147432"</InitialExpression>
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
Index: vhDeploy/Deploy20230531xSetupAlpnachNieuwNummer.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20230531xSetupAlpnachNieuwNummer.cls.xml	(revision 0)
+++ vhDeploy/Deploy20230531xSetupAlpnachNieuwNummer.cls.xml	(revision 71056)
@@ -0,0 +1,64 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20230531xSetupAlpnachNieuwNummer">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Update Kortingpercentage Alpnach (SFS) voor Klantnummer 147432</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ..KopieerAlpnachKlantDataVoorNieuwNummer()
+	
+	Do ..BewaarKortingMetVariant(##class(DOM.PM.enu.Variant).LegraboxPure())
+	Do ..BewaarKortingMetVariant(##class(DOM.PM.enu.Variant).Taorbox())
+	Do ..BewaarKortingMetVariant(##class(DOM.PM.enu.Variant).TandemboxAntaro())
+	Do ..BewaarKortingMetVariant(##class(DOM.PM.enu.Variant).Merivobox())
+]]></Implementation>
+</Method>
+
+<Method name="KopieerAlpnachKlantDataVoorNieuwNummer">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim KlantDataBepaler = ##class(DOM.VKP.impl.KlantDataBepaler).%New()
+	#dim KlantDataBewaarder = ##class(APPS.VKP.impl.KlantDataBewaarder).%New()
+	#dim SFSPersonality = ##class(DOM.common.SFSPersonality).Instance()
+	
+	#dim OudeAlpnachKlantData As DOM.common.dto.KlantData = KlantDataBepaler.GeefKlantData(SFSPersonality, "SFS_123456")
+	#dim NieuweAlpnachKlantData = ##class(DOM.common.dto.KlantData).%New()
+	
+	Set NieuweAlpnachKlantData.ID = "SFS_147432"
+	Set NieuweAlpnachKlantData.Code = "147432"
+	Set NieuweAlpnachKlantData.Naam = OudeAlpnachKlantData.Naam
+	Set NieuweAlpnachKlantData.Land = OudeAlpnachKlantData.Land
+	Set NieuweAlpnachKlantData.Gemeente = OudeAlpnachKlantData.Gemeente
+	Set NieuweAlpnachKlantData.Taal = OudeAlpnachKlantData.Taal
+	
+	Do KlantDataBewaarder.Bewaar(SFSPersonality, NieuweAlpnachKlantData)
+]]></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_147432"
+	
+	#dim KortingPercentage As %String = 25 / 100
+	
+	Do KortingService.StelInKorting(KortingSpecificatie,KortingPercentage)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>