Index: vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml
===================================================================
diff -u -r54352 -r54695
--- vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 54352)
+++ vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 54695)
@@ -3,10 +3,12 @@
 <Class name="vhUnitTest.EXT.Unishop.PurchaseOrder001.BestandVerwerker.VerwerkBestand.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Parameter name="DummyKlantId">
+<Property name="DummyKlantId">
 <Type>%String</Type>
-<Default>SFS_83723</Default>
-</Parameter>
+<InitialExpression>##class(DOM.VKP.enu.SfsKlant).AlpnachOud()</InitialExpression>
+<Private>1</Private>
+<ReadOnly>1</ReadOnly>
+</Property>
 
 <Property name="BestandVolledigeNaam">
 <Type>%String</Type>
@@ -145,7 +147,7 @@
 	
 	If $$$AssertIsObject(Aanvraag) {
 		Do $$$AssertEquals(Aanvraag.Header.PersonalityID, ##class(DOM.common.enu.Personality).SFS())
-		Do $$$AssertEquals(Aanvraag.Header.KlantID, ..#DummyKlantId)
+		Do $$$AssertEquals(Aanvraag.Header.KlantID, ..DummyKlantId)
 		If $$$AssertEquals(Aanvraag.Order.Lijnen.Count(), 1) {
 			Do $$$AssertEquals(Aanvraag.Order.Lijnen.GetAt(1).Aantal, 1)	
 		}
@@ -213,7 +215,7 @@
 	Do DocumentReferentiesRepositoryMock.IndienMethodCall("ZoekViaOrderReferentie",DummyOrder.OrderReferentie).DanReturn(DocumentReferentiesIterator)
 	
 	#dim OfferteStub = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
-	Do OfferteStub.ZetKlantID("SFS_83723")
+	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)
 	
@@ -244,18 +246,18 @@
 	Do ..MailApiMock.VerwachtMethodCall("MaakNieuwMail").DanReturn(..MailMock)
 	
 	Set ..VerkoopApiStub = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
-	Do ..VerkoopApiStub.IndienMethodCall("GeefKlant", ..#DummyKlantId).DanReturn(..DummyKlant)
+	Do ..VerkoopApiStub.IndienMethodCall("GeefKlant", ..DummyKlantId).DanReturn(..DummyKlant)
 	
 	Set ..AanvraagStub = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag).%New()
 	Set ..AanvraagStub.Header.PersonalityID = ##class(DOM.common.enu.Personality).SFS()
-	Set ..AanvraagStub.Header.KlantID = ..#DummyKlantId
+	Set ..AanvraagStub.Header.KlantID = ..DummyKlantId
 	
 	Set ..DummyPersonality = ##class(vhTest.Mock.DOM.common.Personality).%New()
 	Set ..CommonApiStub = ##class(vhTest.Mock.DOM.common.CommonAPI).%New()
 	Do ..CommonApiStub.IndienMethodCall("GeefPersonality", ..AanvraagStub.Header.PersonalityID).DanReturn(..DummyPersonality)
 	
 	Set ..PersonalityKlantBepalerStub = ##class(vhTest.Mock.DOM.common.impl.PersonalityKlantBepaler).%New()
-	Do ..PersonalityKlantBepalerStub.IndienMethodCall("GeefKlantID", ..DummyPersonality, ..AanvraagStub.Header.KlantID).DanReturn(..#DummyKlantId)
+	Do ..PersonalityKlantBepalerStub.IndienMethodCall("GeefKlantID", ..DummyPersonality, ..AanvraagStub.Header.KlantID).DanReturn(..DummyKlantId)
 	
 	Set ..DummyOrder = ##class(vhTest.Utils.EXT.Unishop.PurchaseOrder001.CreateOrder.Order).TaorboxOrder()
 	Set ..CorrelaterStub = ##class(vhTest.Mock.TECH.XMLCorrelater).%New()
Index: EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml
===================================================================
diff -u -r54352 -r54695
--- EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 54352)
+++ EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 54695)
@@ -88,7 +88,7 @@
 	#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 = "SFS_83723") && ($$$HasLength(Order.OrderReferentie))) {
+	If ((..AanvraagHeader.KlantID = ##class(DOM.VKP.enu.SfsKlant).AlpnachOud()) && ($$$HasLength(Order.OrderReferentie))) {
 		Do ..CheckDubbels(Order)
 	}
 	
@@ -167,7 +167,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() = "SFS_83723") {
+		If (Offerte.GeefKlantID() = ##class(DOM.VKP.enu.SfsKlant).AlpnachOud()) {
 			Do ##class(TECH.Exceptions.InvalidInputException).Throw("Er bestaat reeds een offerte met OrderReferentie '"_Order.OrderReferentie_"' voor klant Alpnach.")
 		}
 	}
Index: APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler.cls.xml
===================================================================
diff -u -r54146 -r54695
--- APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler.cls.xml	(.../AanvraagHeaderBepaler.cls.xml)	(revision 54146)
+++ APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler.cls.xml	(.../AanvraagHeaderBepaler.cls.xml)	(revision 54695)
@@ -10,8 +10,8 @@
 	#dim Header As APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeader = ##class(APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeader).%New()
 	If (##class(TECH.StringUtils).StartsWith(##class(TECH.File).GeefBestandsnaam(BestandVolledigeNaam),"alpnachnorm_ch")) {
 		Set Header.Taal = ##class(DOM.enu.Taal).Duits()
-		Set Header.GebruikerID = "SFS_83723_1000"
-		Set Header.KlantID = "SFS_83723"
+		Set Header.GebruikerID = ##class(DOM.VKP.enu.SfsKlant).AlpnachOud()_"_1000"
+		Set Header.KlantID = ##class(DOM.VKP.enu.SfsKlant).AlpnachOud()
 		Set Header.PersonalityID = ##class(DOM.common.enu.Personality).SFS()
 	} ElseIf (##class(TECH.StringUtils).StartsWith(##class(TECH.File).GeefBestandsnaam(BestandVolledigeNaam),"labonorm_be")) {
 		Set Header.Taal = ##class(DOM.enu.Taal).Nederlands()
Index: vhTest/Fake/APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml
===================================================================
diff -u -r53489 -r54695
--- vhTest/Fake/APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 53489)
+++ vhTest/Fake/APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 54695)
@@ -19,8 +19,7 @@
 
 <Method name="ZetDoorHandelMeeTeLeverens">
 <FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn,Personality:DOM.common.enu.Personality</FormalSpec>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="IngaveGroeperingGewijzigd">
Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/VoegToeMaatwerkEnGeefWinkelkarTerug/LBX/TestVolumeAandeel.cls.xml
===================================================================
diff -u -r46020 -r54695
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/VoegToeMaatwerkEnGeefWinkelkarTerug/LBX/TestVolumeAandeel.cls.xml	(.../TestVolumeAandeel.cls.xml)	(revision 46020)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/VoegToeMaatwerkEnGeefWinkelkarTerug/LBX/TestVolumeAandeel.cls.xml	(.../TestVolumeAandeel.cls.xml)	(revision 54695)
@@ -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("SFS_83723")
+	Do ..WinkelkarFake.ZetKlantID(##class(DOM.VKP.enu.SfsKlant).AlpnachOud())
 
 	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(), "SFS_83723", ##class(DOM.common.enu.Personality).SFS())
+	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(), ##class(DOM.VKP.enu.SfsKlant).AlpnachOud(), ##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(), "SFS_83723", ##class(DOM.common.enu.Personality).SFS())
+	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(), ##class(DOM.VKP.enu.SfsKlant).AlpnachOud(), ##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: APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml
===================================================================
diff -u -r54150 -r54695
--- APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 54150)
+++ APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 54695)
@@ -183,7 +183,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() ) && ( ..Winkelkar.GeefKlantID() = "SFS_83723" ) {
+		if ( ..Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).SFS() ) && ( ..Winkelkar.GeefKlantID() = ##class(DOM.VKP.enu.SfsKlant).AlpnachOud() ) {
 			set IngegevenKenmerken.BevatGeleiderBevestigingSchroeven = $$$True
 		}
 	}
Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/VoegToeMaatwerkEnGeefWinkelkarTerug/TAX/TestVolumeAandeel.cls.xml
===================================================================
diff -u -r46020 -r54695
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/VoegToeMaatwerkEnGeefWinkelkarTerug/TAX/TestVolumeAandeel.cls.xml	(.../TestVolumeAandeel.cls.xml)	(revision 46020)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/VoegToeMaatwerkEnGeefWinkelkarTerug/TAX/TestVolumeAandeel.cls.xml	(.../TestVolumeAandeel.cls.xml)	(revision 54695)
@@ -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("SFS_83723")
+	Do ..WinkelkarFake.ZetKlantID(##class(DOM.VKP.enu.SfsKlant).AlpnachOud())
 
 	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(), "SFS_83723", ##class(DOM.common.enu.Personality).SFS())
+	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(), ##class(DOM.VKP.enu.SfsKlant).AlpnachOud(), ##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(), "SFS_83723", ##class(DOM.common.enu.Personality).SFS())
+	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(), ##class(DOM.VKP.enu.SfsKlant).AlpnachOud(), ##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(), "SFS_83723", ##class(DOM.common.enu.Personality).SFS())
+	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(), ##class(DOM.VKP.enu.SfsKlant).AlpnachOud(), ##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: vhUnitTest/EXT/Unishop/PurchaseOrder001/ProductConverter/ExtNaarEdi/Tax/Test.cls.xml
===================================================================
diff -u -r53606 -r54695
--- vhUnitTest/EXT/Unishop/PurchaseOrder001/ProductConverter/ExtNaarEdi/Tax/Test.cls.xml	(.../Test.cls.xml)	(revision 53606)
+++ vhUnitTest/EXT/Unishop/PurchaseOrder001/ProductConverter/ExtNaarEdi/Tax/Test.cls.xml	(.../Test.cls.xml)	(revision 54695)
@@ -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 = "SFS_83723"
+	#dim KlantId As %String = ##class(DOM.VKP.enu.SfsKlant).AlpnachOud()
 	#dim LadeTAX As APPS.EDI.common.dto.v001.LadeTAX = ..Converter.Converteer(TeConverterenLade, KlantId)
 
 	If $$$AssertEquals($classname(LadeTAX),"APPS.EDI.common.dto.v001.LadeTAX") {
Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/VoegToeMaatwerk/TAX/TestSFS.cls.xml
===================================================================
diff -u -r36010 -r54695
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/VoegToeMaatwerk/TAX/TestSFS.cls.xml	(.../TestSFS.cls.xml)	(revision 36010)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/VoegToeMaatwerk/TAX/TestSFS.cls.xml	(.../TestSFS.cls.xml)	(revision 54695)
@@ -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(), "SFS_83723", ##class(DOM.common.enu.Personality).SFS())
+	#dim Winkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.MaakWinkelkar(..MaakInterneUnitTestApplicatieObject(), ##class(DOM.VKP.enu.SfsKlant).AlpnachOud(), ##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: EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml
===================================================================
diff -u -r54378 -r54695
--- EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 54378)
+++ EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 54695)
@@ -55,7 +55,7 @@
 			Set Eigenschappen.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1()
 		}
 		
-		If (KlantId = "SFS_83723") {
+		If (KlantId = ##class(DOM.VKP.enu.SfsKlant).AlpnachOud()) {
 			Set Eigenschappen.FrontEindkapKleur = ##class(DOM.PM.enu.TAORAfdekkapBovenKleur).AntracietKunststof()
 		}
 	}
Index: DOM/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml
===================================================================
diff -u -r54592 -r54695
--- DOM/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 54592)
+++ DOM/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 54695)
@@ -209,7 +209,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() ) && ( ..Winkelkar.GeefKlantID() = "SFS_83723" ) {
+		if ( ..Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).SFS() ) && ( ..Winkelkar.GeefKlantID() = ##class(DOM.VKP.enu.SfsKlant).AlpnachOud() ) {
 			set IngegevenKenmerken.BevatGeleiderBevestigingSchroeven = $$$True
 		}
 	}
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler/Test.cls.xml
===================================================================
diff -u -r51409 -r54695
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 51409)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 54695)
@@ -12,8 +12,8 @@
 	Set AanvraagHeader = AanvraagHeaderBepaler.GeefAanvraagHeader(BestandVolledigeNaam)
 	
 	Do $$$AssertEquals(AanvraagHeader.Taal,"D")	
-	Do $$$AssertEquals(AanvraagHeader.GebruikerID,"SFS_83723_1000")
-	Do $$$AssertEquals(AanvraagHeader.KlantID,"SFS_83723")
+	Do $$$AssertEquals(AanvraagHeader.GebruikerID,##class(DOM.VKP.enu.SfsKlant).AlpnachOud()_"_1000")
+	Do $$$AssertEquals(AanvraagHeader.KlantID,##class(DOM.VKP.enu.SfsKlant).AlpnachOud())
 	Do $$$AssertEquals(AanvraagHeader.PersonalityID,"3")
 ]]></Implementation>
 </Method>