Index: APPS/PM/Maatwerk/AfbeeldingService/impl/TBXLadeImageCodeBepalerInput.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/AfbeeldingService/impl/TBXLadeImageCodeBepalerInput.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/AfbeeldingService/impl/TBXLadeImageCodeBepalerInput.cls.xml	(revision 20211)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.AfbeeldingService.impl.TBXLadeImageCodeBepalerInput">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="LadeCodeID">
+<Type>%String</Type>
+</Property>
+
+<Property name="BoxSideID">
+<Type>%String</Type>
+</Property>
+
+<Property name="DesignID">
+<Description>
+ID van Prod.GAMeta.BT.TBDesign </Description>
+<Type>%String</Type>
+</Property>
+
+<Property name="BinnenGreepID">
+<Type>%String</Type>
+</Property>
+
+<Property name="SpoelbakZijkantID">
+<Type>%String</Type>
+</Property>
+
+<Property name="OnderdelenSpeciaalID">
+<Description>
+Komt overeen met de nieuwe term "ProductieWijze" </Description>
+<Type>%String</Type>
+</Property>
+
+<Property name="NietMeeleverenBoxSide">
+<Type>%Boolean</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LadeCodeID:%String,BoxSideID:%String="",DesignID:%String="",BinnenGreepID:%String="",SpoelbakZijkantID:%String="",OnderdelenSpeciaalID:%String="",NietMeeleverenBoxSide:%Boolean=0</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..LadeCodeID = LadeCodeID
+	Set ..BoxSideID = BoxSideID
+	Set ..DesignID = DesignID
+	Set ..BinnenGreepID = BinnenGreepID
+	Set ..SpoelbakZijkantID = SpoelbakZijkantID
+	Set ..OnderdelenSpeciaalID = OnderdelenSpeciaalID
+	Set ..NietMeeleverenBoxSide = NietMeeleverenBoxSide
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/PM/Maatwerk/AfbeeldingService/impl/TBXLadeImageCodeBepaler.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/AfbeeldingService/impl/TBXLadeImageCodeBepaler.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/AfbeeldingService/impl/TBXLadeImageCodeBepaler.cls.xml	(revision 20211)
@@ -0,0 +1,95 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.AfbeeldingService.impl.TBXLadeImageCodeBepaler">
+<Super>TECH.Mockable</Super>
+
+<Method name="GeefImageCode">
+<FormalSpec>Input:APPS.PM.Maatwerk.AfbeeldingService.impl.TBXLadeImageCodeBepalerInput</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Quit:(Input.LadeCodeID="") ""
+
+
+	/*
+OndSpecial (ODSP)	Alleen rug	R
+	Alleen bodem	B
+	Alleen rug en bodem	RB
+	Alleen voorfront	F
+	Alleen rug en rughouder	RH
+	Alleen rug, bodem en voorfront	RBF
+	Andere	X
+	
+	*/
+
+	#dim LadeCodeID As %String = Input.LadeCodeID
+	#dim BoxSideID As %String = Input.BoxSideID
+
+	#dim KLAS,DC,SifonQty As %String
+		
+	Set KLAS=..GeefKLAS(LadeCodeID)
+	Set LadeCodeID=$TR(LadeCodeID,"I\/","")
+	If (LadeCodeID["2")&&(KLAS="SP2") { 
+		Set LadeCodeID=$TR(LadeCodeID,"2","")
+	}
+
+	Set DC=..GeefDC(Input.DesignID)
+	
+	// Uitzonderingen 
+	If KLAS=##class(DOM.PM.enu.TBXKlas).Buro() {
+		Set:(LadeCodeID?1.E1"B") LadeCodeID=$E(LadeCodeID,1,*-1)    ; Laatste karakter van de LadeCode bij burobox (is altijd "B") wegstrippen 
+		If (DC="A") {
+			Set:(LadeCodeID="C")||(LadeCodeID="D") LadeCodeID=LadeCodeID_"M"
+		}
+	}
+
+	If (BoxSideID?1(1"BD",1"INSCHF")) && (Input.NietMeeleverenBoxSide = $$$True) {
+		Set BoxSideID="ER"
+	}
+
+	If DC="I" Do   ; intivo 
+	. Set:(BoxSideID?1(1"BK",1"CAP")) BoxSideID="CAP"
+ 	. Set:(BoxSideID?1(1"BC",1"BZ",1"COV")) BoxSideID="COV"
+	. If Input.BinnenGreepID="V" Do              ; binnenlade met glas (Verre) 
+	. . Set BoxSideID=BoxSideID_"_FG"
+	Else  If DC="A" Do   ; Dus niet DC="MA" 
+	. If Input.BinnenGreepID="V" Do              ; binnenlade met glas (Verre) 
+	. . ;Set BoxSideID=BoxSideID_"_FG"
+	Else  Do
+	. Set DC=""
+
+	// Dubbele sifonlade 
+	Set SifonQty=""
+	If $L(Input.SpoelbakZijkantID) Do
+	. Set SifonQty=..GeefAantalSpoelbakUitsparingen(LadeCodeID,Input.SpoelbakZijkantID)
+	
+	Quit DC_LadeCodeID_$S($L(BoxSideID):"_"_BoxSideID, 1:"")_$S(SifonQty>1:"_x2",1:"")
+]]></Implementation>
+</Method>
+
+<Method name="GeefKLAS">
+<FormalSpec>LadeCodeID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(BL.PR.GA.TandemBox).KLASFromLC(LadeCodeID)
+]]></Implementation>
+</Method>
+
+<Method name="GeefDC">
+<FormalSpec>DesignID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(BL.PR.GA.TandemBox).DesignCodeFromDS(DesignID)   ; Intivo = I-design
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalSpoelbakUitsparingen">
+<FormalSpec>LadeCodeID:%String,SpoelbakZijkantID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(BL.PR.GA.TandemBox).SpoelbakUitsparingen(LadeCodeID,SpoelbakZijkantID)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>