Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/TBXLadeCodeBepaler/Test.cls.xml
===================================================================
diff -u -r56510 -r57495
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/TBXLadeCodeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 56510)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/TBXLadeCodeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 57495)
@@ -3,16 +3,26 @@
 <Class name="vhUnitTest.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: LadeCode bepalen van Lade met foute input">
+<Method name="Test: LadeCode bepalen van Lade met foute input geeft een exceptie">
 <Implementation><![CDATA[
+	#dim SmijtErrorBijFouteLadeCode As %Boolean = $$$True
+	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen Ladecode voor design DC='WA' met volgende parameters: SY3-V-L-AAA-BBB")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
 
-	Set TBXLadeCodeBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
+	Set TBXLadeCodeBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New(SmijtErrorBijFouteLadeCode)
 	#dim LadeCode As %String = TBXLadeCodeBepaler.BepaalLadeCode("SY3","AAA","BBB",$$$False,"V","WA")
 ]]></Implementation>
 </Method>
 
+<Method name="Test: LadeCode bepalen van Lade met foute input geeft debug-info indien Constructor-flag op False">
+<Implementation><![CDATA[
+	Set TBXLadeCodeBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New($$$False)
+	#dim LadeCode As %String = TBXLadeCodeBepaler.BepaalLadeCode("SY3","AAA","BBB",$$$False,"V","WA")
+	Do $$$AssertEquals(LadeCode,"?DC=WA::SY3-V-L-AAA-BBB?")
+]]></Implementation>
+</Method>
+
 <Method name="Test: LadeCode bepalen van Lade met 1 DesignCode">
 <Implementation><![CDATA[
 	Set TBXLadeCodeBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New()
Index: vhTest/Mock/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/TBXLadeCodeBepaler.cls.xml
===================================================================
diff -u -r39055 -r57495
--- vhTest/Mock/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/TBXLadeCodeBepaler.cls.xml	(.../TBXLadeCodeBepaler.cls.xml)	(revision 39055)
+++ vhTest/Mock/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/TBXLadeCodeBepaler.cls.xml	(.../TBXLadeCodeBepaler.cls.xml)	(revision 57495)
@@ -3,12 +3,18 @@
 <Class name="vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler">
 <Description>
 Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
-Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
-Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="%OnNew">
+<FormalSpec>SmijtErrorBijFouteLadeCode:%Boolean=0</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="BepaalLadeCode">
 <FormalSpec>Klasse:%String,ZijkantHoogte:%String,LadeHoogte:%String,IsBinnenlade:%Boolean,Uittrekbaarheid:%String,LadeDesign:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/TBXLadeCodeBepaler.cls.xml
===================================================================
diff -u -r39052 -r57495
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/TBXLadeCodeBepaler.cls.xml	(.../TBXLadeCodeBepaler.cls.xml)	(revision 39052)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/TBXLadeCodeBepaler.cls.xml	(.../TBXLadeCodeBepaler.cls.xml)	(revision 57495)
@@ -3,19 +3,34 @@
 <Class name="APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler">
 <Super>TECH.Mockable</Super>
 
+<Property name="SmijtErrorBijFouteLadeCode">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="ltTBXLadeCodes">
 <Type>%String</Type>
 <MultiDimensional>1</MultiDimensional>
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
 <Method name="%OnNew">
+<FormalSpec>SmijtErrorBijFouteLadeCode:%Boolean=0</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	Set ..SmijtErrorBijFouteLadeCode = (SmijtErrorBijFouteLadeCode = $$$True)
+	Set ..Logger = ##class(vhLib.Logger).%New()
+	
 	Do ..Init()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -50,7 +65,13 @@
 	}
 	
 	If $$$Not(Found) {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen Ladecode voor design DC='"_LadeDesign_"' met volgende parameters: "_Index))
+		If ..SmijtErrorBijFouteLadeCode {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen Ladecode voor design DC='"_LadeDesign_"' met volgende parameters: "_Index))
+		}
+		Else {
+			Set LadeCode = "?DC="_LadeDesign_"::"_Index_"?"   // Debug-info wordt ingevuld 
+			Do ..Logger.Warning("BepaalLadeCode","TBXLadeCodeBepaler: Geen Ladecode gevonden voor design DC='"_LadeDesign_"' met volgende parameters: "_Index_".  LadeCode ingesteld op "_LadeCode)
+		}
 	}
 	
 	Quit LadeCode