Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/UitsparingValidator.cls.xml
===================================================================
diff -u -r36238 -r37311
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/UitsparingValidator.cls.xml	(.../UitsparingValidator.cls.xml)	(revision 36238)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/UitsparingValidator.cls.xml	(.../UitsparingValidator.cls.xml)	(revision 37311)
@@ -7,7 +7,7 @@
 <FormalSpec><![CDATA[Product:APPS.EDI.common.dto.v001.LadeTBX,&Exceptions:TECH.ExceptionList]]></FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim HeeftUitsparingData As %Boolean = $$$HasLength(Product.UitsparingDataBreedteM_Product.UitsparingDataBreedteX_Product.UitsparingDataBreedteY_Product.UitsparingDataBreedteZ1_Product.UitsparingDataBreedteZ2)
+	#dim HeeftUitsparingData As %Boolean = (+Product.UitsparingDataBreedteM_+Product.UitsparingDataBreedteX_+Product.UitsparingDataBreedteY_+Product.UitsparingDataBreedteZ1_+Product.UitsparingDataBreedteZ2)>0
 	Quit:$$$Not(HeeftUitsparingData) $$$True	
 	
 	If (Product.Klasse="L")&&(HeeftUitsparingData) {
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/UitsparingValidator/Test.cls.xml
===================================================================
diff -u -r36239 -r37311
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/UitsparingValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 36239)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/UitsparingValidator/Test.cls.xml	(.../Test.cls.xml)	(revision 37311)
@@ -304,6 +304,23 @@
 	Do $$$AssertFalse(Validator.IsValid(Product, .Exceptions))
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Gewone lade, aantal uitsparingen=0 en alle uitsparingafmetingen = 0 -&gt; Valid">
+<Implementation><![CDATA[
+	#dim Product As APPS.EDI.common.dto.v001.LadeTBX = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+	Set Product.Klasse = "L"
+	Set Product.UitsparingDataAantalUitsparingen = 0
+	Set Product.UitsparingDataBreedteZ1 = 0
+	Set Product.UitsparingDataBreedteZ2 = 0
+	Set Product.UitsparingDataBreedteM = 0
+	Set Product.UitsparingDataBreedteX = 0
+	Set Product.UitsparingDataBreedteY = 0
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Validator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.UitsparingValidator).%New()
+	
+	Do $$$AssertTrue(Validator.IsValid(Product, .Exceptions))
+]]></Implementation>
+</Method>
 </Class>