Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler/Test.cls.xml
===================================================================
diff -u -r54695 -r54760
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 54695)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 54760)
@@ -12,8 +12,8 @@
 	Set AanvraagHeader = AanvraagHeaderBepaler.GeefAanvraagHeader(BestandVolledigeNaam)
 	
 	Do $$$AssertEquals(AanvraagHeader.Taal,"D")	
-	Do $$$AssertEquals(AanvraagHeader.GebruikerID,##class(DOM.VKP.enu.SfsKlant).AlpnachOud()_"_1000")
-	Do $$$AssertEquals(AanvraagHeader.KlantID,##class(DOM.VKP.enu.SfsKlant).AlpnachOud())
+	Do $$$AssertEquals(AanvraagHeader.GebruikerID,##class(DOM.VKP.enu.SfsKlant).Alpnach()_"_1000")
+	Do $$$AssertEquals(AanvraagHeader.KlantID,##class(DOM.VKP.enu.SfsKlant).Alpnach())
 	Do $$$AssertEquals(AanvraagHeader.PersonalityID,"3")
 ]]></Implementation>
 </Method>
Index: APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler.cls.xml
===================================================================
diff -u -r54757 -r54760
--- APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler.cls.xml	(.../AanvraagHeaderBepaler.cls.xml)	(revision 54757)
+++ APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler.cls.xml	(.../AanvraagHeaderBepaler.cls.xml)	(revision 54760)
@@ -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 = ##class(DOM.VKP.enu.SfsKlant).AlpnachOud()_"_1000"
-		Set Header.KlantID = ##class(DOM.VKP.enu.SfsKlant).AlpnachOud()
+		Set Header.GebruikerID = ##class(DOM.VKP.enu.SfsKlant).Alpnach()_"_1000"
+		Set Header.KlantID = ##class(DOM.VKP.enu.SfsKlant).Alpnach()
 		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: vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml
===================================================================
diff -u -r54758 -r54760
--- vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 54758)
+++ vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 54760)
@@ -5,7 +5,7 @@
 
 <Property name="DummyKlantId">
 <Type>%String</Type>
-<InitialExpression>##class(DOM.VKP.enu.SfsKlant).AlpnachOud()</InitialExpression>
+<InitialExpression>##class(DOM.VKP.enu.SfsKlant).Alpnach()</InitialExpression>
 <Private>1</Private>
 <ReadOnly>1</ReadOnly>
 </Property>