Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/OrderVrijgaveBepaler/BestelOpmerkingValidator.cls.xml
===================================================================
diff -u -r52285 -r54844
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/OrderVrijgaveBepaler/BestelOpmerkingValidator.cls.xml	(.../BestelOpmerkingValidator.cls.xml)	(revision 52285)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/OrderVrijgaveBepaler/BestelOpmerkingValidator.cls.xml	(.../BestelOpmerkingValidator.cls.xml)	(revision 54844)
@@ -30,10 +30,26 @@
 <FormalSpec>KlantId:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ((KlantId = ..Klant.HaefeleBelgie) || (KlantId = ..Klant.HaefeleNederland))
+<Implementation><![CDATA[	Quit ..IsKlantHaefeleNL(KlantId) ; || ..IsKlantHaefeleBE(KlantId)
 ]]></Implementation>
 </Method>
 
+<Method name="IsKlantHaefeleNL">
+<FormalSpec>KlantId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (KlantId = ..Klant.HaefeleNederland)
+]]></Implementation>
+</Method>
+
+<Method name="IsKlantHaefeleBE">
+<FormalSpec>KlantId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (KlantId = ..Klant.HaefeleBelgie)
+]]></Implementation>
+</Method>
+
 <Method name="OpmerkingIs8Cijfers">
 <FormalSpec>Text:%String</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/OrderVrijgaveBepaler/BestelOpmerkingValidator/Test.cls.xml
===================================================================
diff -u -r52285 -r54844
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/OrderVrijgaveBepaler/BestelOpmerkingValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 52285)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/OrderVrijgaveBepaler/BestelOpmerkingValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 54844)
@@ -15,9 +15,10 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: BestelOpmerking voor klant Haefele moet 8 tekens lang zijn">
+<Method name="Test: BestelOpmerking voor klant Haefele moet 8 tekens lang zijn voorlopig alleen HaefeleNL">
 <Implementation><![CDATA[
-	Do ..AssertIsValid("", ..Klant.HaefeleBelgie, $$$False, "Lege bestelopmerking is niet toegelaten voor klant Haefele Belgie")
+	;Do ..AssertIsValid("", ..Klant.HaefeleBelgie, $$$False, "Lege bestelopmerking is niet toegelaten voor klant Haefele Belgie")
+	Do ..AssertIsValid("", ..Klant.HaefeleBelgie, $$$True, "Lege bestelopmerking is niet toegelaten voor klant Haefele Belgie")
 	Do ..AssertIsValid("", ..Klant.HaefeleNederland, $$$False, "Lege bestelopmerking is niet toegelaten voor klant Haefele Nederland")
 	
 	Do ..AssertIsValid("OngeldigeBestelOpmerking", ..Klant.HaefeleBelgie, $$$False, "Bestelopmerking voor klant Haefele Belgie moet exact 8 cijfers lang zijn")
@@ -29,10 +30,12 @@
 	Do ..AssertIsValid("12345678", ..Klant.HaefeleBelgie, $$$True, "Bestelopmerking met exact 8 cijfers voor klant Haefele Belgie is toegelaten")
 	Do ..AssertIsValid("12345678", ..Klant.HaefeleNederland, $$$True, "Bestelopmerking met exact 8 cijfers voor klant Haefele Nederland is toegelaten")
 	
-	Do ..AssertIsValid("1234567", ..Klant.HaefeleBelgie, $$$False, "Bestelopmerking met minder dan 8 cijfers voor klant Haefele Belgie is niet toegelaten")
+	;Do ..AssertIsValid("1234567", ..Klant.HaefeleBelgie, $$$False, "Bestelopmerking met minder dan 8 cijfers voor klant Haefele Belgie is niet toegelaten")
+	Do ..AssertIsValid("1234567", ..Klant.HaefeleBelgie, $$$True, "Bestelopmerking met minder dan 8 cijfers voor klant Haefele Belgie is niet toegelaten")
 	Do ..AssertIsValid("1234567", ..Klant.HaefeleNederland, $$$False, "Bestelopmerking met minder dan 8 cijfers voor klant Haefele Nederland is niet toegelaten")
 	
-	Do ..AssertIsValid("123456789", ..Klant.HaefeleBelgie, $$$False, "Bestelopmerking met meer dan 8 cijfers voor klant Haefele Belgie is niet toegelaten")
+	;Do ..AssertIsValid("123456789", ..Klant.HaefeleBelgie, $$$False, "Bestelopmerking met meer dan 8 cijfers voor klant Haefele Belgie is niet toegelaten")
+	Do ..AssertIsValid("123456789", ..Klant.HaefeleBelgie, $$$True, "Bestelopmerking met meer dan 8 cijfers voor klant Haefele Belgie is niet toegelaten")
 	Do ..AssertIsValid("123456789", ..Klant.HaefeleNederland, $$$False, "Bestelopmerking met meer dan 8 cijfers voor klant Haefele Nederland is niet toegelaten")
 ]]></Implementation>
 </Method>