Index: APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/OphalenData.cls.xml
===================================================================
diff -u -r70009 -r70011
--- APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/OphalenData.cls.xml	(.../OphalenData.cls.xml)	(revision 70009)
+++ APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/OphalenData.cls.xml	(.../OphalenData.cls.xml)	(revision 70011)
@@ -121,10 +121,7 @@
 	#dim Service as APPS.Halux.common.impl.ProductieAansturingService = ##class(APPS.Halux.common.impl.ProductieAansturingService).%New()
 	#dim IngegevenKenmerken as DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Service.GeefIngegevenKenmerken(..InstellenData.BatchID,..InstellenData.ProductID)
 	#dim Lade as DOM.PM.Maatwerk.LadeInfo.Lade = Service.GeefLade(..InstellenData.BatchID,..InstellenData.ProductID)
-	;Do DumpObject^%apiOBJ(Lade)
-	;Do DumpObject^%apiOBJ(IngegevenKenmerken)
 	
-
 	Set ..InstellenData.Rol=..BepaalZijkantRol()
 	#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant = Lade.GeefZijkant(..InstellenData.Rol)
 	
@@ -133,6 +130,11 @@
 	Set ..InstellenData.Hoogte = Zijkant.GeefHoogteInMM() ;( Lade.GeefHoogteInMM()
 	Set ..InstellenData.Diepte = Zijkant.GeefLengteInMM()  ;Lade.GeefDiepteInMM()
 	Set ..InstellenData.Dikte = Zijkant.GeefDikteInMM()
+	Try {
+		Set ..InstellenData.LadeCode = IngegevenKenmerken.GeefLadeCode()
+	} Catch {
+		Set ..InstellenData.LadeCode = ""
+	}
 	Set ..InstellenData.AantalHakenCode = ..BepaalAantalHaken()
 	Set ..InstellenData.HeeftLaserLogo = ''(IngegevenKenmerken.ZijkantLogoID) ; als ID leeg of nul is dan geen log
 ]]></Implementation>
Index: APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/OpslaanData.cls.xml
===================================================================
diff -u -r70009 -r70011
--- APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/OpslaanData.cls.xml	(.../OpslaanData.cls.xml)	(revision 70009)
+++ APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/OpslaanData.cls.xml	(.../OpslaanData.cls.xml)	(revision 70011)
@@ -52,6 +52,7 @@
 	Set ..Data.AServerBatchID = ..InstellenData.BatchID
 	Set ..Data.AServerKlantID = ..InstellenData.KlantID
 	Set ..Data.AServerKlantNaam = ..InstellenData.KlantNaam
+	Set ..Data.AServerLadeCode = ..InstellenData.LadeCode
 	Set ..Data.AServerProductID = ..InstellenData.ProductID
 	Set ..Data.AServerToeleveringID = ..InstellenData.ToeleveringID
 	Set ..Data.AServerAantalKeerGetest = ..InstellenData.AantalKeerGetest
Index: APPS/Halux/PPS/TAORProductie/ZijkantTester/dto/InstellenData.cls.xml
===================================================================
diff -u -r70005 -r70011
--- APPS/Halux/PPS/TAORProductie/ZijkantTester/dto/InstellenData.cls.xml	(.../InstellenData.cls.xml)	(revision 70005)
+++ APPS/Halux/PPS/TAORProductie/ZijkantTester/dto/InstellenData.cls.xml	(.../InstellenData.cls.xml)	(revision 70011)
@@ -43,6 +43,10 @@
 <Type>%Decimal</Type>
 </Property>
 
+<Property name="LadeCode">
+<Type>%String</Type>
+</Property>
+
 <Property name="Kleur">
 <Type>%String</Type>
 </Property>