Index: APPS/common/Document/TagBasedDocument/InhoudBuilder.cls.xml
===================================================================
diff -u -r29059 -r61992
--- APPS/common/Document/TagBasedDocument/InhoudBuilder.cls.xml	(.../InhoudBuilder.cls.xml)	(revision 29059)
+++ APPS/common/Document/TagBasedDocument/InhoudBuilder.cls.xml	(.../InhoudBuilder.cls.xml)	(revision 61992)
@@ -66,6 +66,11 @@
 <FormalSpec>BarcodeDefinitie:%List</FormalSpec>
 </Method>
 
+<Method name="VoegToeImage">
+<Abstract>1</Abstract>
+<FormalSpec>ImageUrl:%String,ImageWidth:%String=""</FormalSpec>
+</Method>
+
 <Method name="VoegToePaginaNummer">
 <Abstract>1</Abstract>
 <Implementation><![CDATA[]]></Implementation>
Index: vhUnitTest/APPS/common/Document/TagBasedDocument/impl/InhoudBuilder/Test.cls.xml
===================================================================
diff -u -r29059 -r61992
--- vhUnitTest/APPS/common/Document/TagBasedDocument/impl/InhoudBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/common/Document/TagBasedDocument/impl/InhoudBuilder/Test.cls.xml	(.../Test.cls.xml)	(revision 61992)
@@ -136,6 +136,24 @@
 	quit TagBasedTekst.GeefTekst()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: VoegToeImageZonderAttributes geeft default width &apos;25&apos;">
+<Implementation><![CDATA[
+	#dim TekstBuilder As APPS.common.Document.TagBasedDocument.impl.InhoudBuilder = ..GeefTekstBuilder()
+	#dim ImageUrl As %String = "file://Notes01/Images/GENERIEK/TBX/tbx_BY2_ER.JPG"
+	Do TekstBuilder.VoegToeImage(ImageUrl,)
+	Do $$$AssertEquals(..GeefTagBasedTekst(TekstBuilder),"<IMAGE_URL width=""25"">file://Notes01/Images/GENERIEK/TBX/tbx_BY2_ER.JPG</IMAGE_URL>")
+]]></Implementation>
+</Method>
+
+<Method name="TestVoegToeImageMetAttributeWidth">
+<Implementation><![CDATA[
+	#dim TekstBuilder As APPS.common.Document.TagBasedDocument.impl.InhoudBuilder = ..GeefTekstBuilder()
+	#dim ImageUrl As %String = "file://Notes01/Images/GENERIEK/TBX/tbx_BY2_ER.JPG"
+	Do TekstBuilder.VoegToeImage(ImageUrl,60)
+	Do $$$AssertEquals(..GeefTagBasedTekst(TekstBuilder),"<IMAGE_URL width=""60"">file://Notes01/Images/GENERIEK/TBX/tbx_BY2_ER.JPG</IMAGE_URL>")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/APPS/common/Document/TagBasedDocument/InhoudBuilder.cls.xml
===================================================================
diff -u -r29059 -r61992
--- vhTest/Mock/APPS/common/Document/TagBasedDocument/InhoudBuilder.cls.xml	(.../InhoudBuilder.cls.xml)	(revision 29059)
+++ vhTest/Mock/APPS/common/Document/TagBasedDocument/InhoudBuilder.cls.xml	(.../InhoudBuilder.cls.xml)	(revision 61992)
@@ -3,8 +3,7 @@
 <Class name="vhTest.Mock.APPS.common.Document.TagBasedDocument.InhoudBuilder">
 <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.common.Document.TagBasedDocument.InhoudBuilder,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
@@ -32,6 +31,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeImage">
+<FormalSpec>ImageUrl:%String,ImageWidth:%String=""</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VoegToeImage",ImageUrl,ImageWidth)
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeNieuweLijn">
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VoegToeNieuweLijn")
 ]]></Implementation>
Index: APPS/common/Document/TagBasedDocument/impl/InhoudBuilder.cls.xml
===================================================================
diff -u -r29059 -r61992
--- APPS/common/Document/TagBasedDocument/impl/InhoudBuilder.cls.xml	(.../InhoudBuilder.cls.xml)	(revision 29059)
+++ APPS/common/Document/TagBasedDocument/impl/InhoudBuilder.cls.xml	(.../InhoudBuilder.cls.xml)	(revision 61992)
@@ -90,6 +90,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeImage">
+<FormalSpec>ImageUrl:%String,ImageWidth:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	#define tagIMAGE   "IMAGE_URL"
+	
+	#dim ImageWidthAttribute As %String = ""
+	If $$$Not(ImageWidth > 0) {
+		Set ImageWidth = 25
+	}	
+	If $L(ImageWidth) {
+		Set ImageWidthAttribute=" width="""_ImageWidth_""""
+	}
+
+	Do ..AppendStartTag($$$tagIMAGE_ImageWidthAttribute)
+	Do ..Append(ImageUrl)
+	Do ..AppendEndTag($$$tagIMAGE)
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeTekstInBold">
 <FormalSpec>Tekst:%String</FormalSpec>
 <Implementation><![CDATA[
Index: APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/DocumentInhoudBuilder.cls.xml
===================================================================
diff -u -r61890 -r61992
--- APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/DocumentInhoudBuilder.cls.xml	(.../DocumentInhoudBuilder.cls.xml)	(revision 61890)
+++ APPS/Halux/PPS/Activiteit/impl/SST/LijstVerwerkers/VoormontageSpaceStep/DocumentInhoudBuilder.cls.xml	(.../DocumentInhoudBuilder.cls.xml)	(revision 61992)
@@ -43,30 +43,18 @@
 	
 	Do ..VoegToeRubriek("Zijkant links", ..GeefRijDataLijstZijkantLinks(), ..GeefKolommenDefinitieZijkant())
 	
-	Do ..InhoudBuilder.VoegToeNieuweLijn()
-	
 	Do ..VoegToeRubriek("Zijkant rechts", ..GeefRijDataLijstZijkantRechts(), ..GeefKolommenDefinitieZijkant())
 	
-	Do ..InhoudBuilder.VoegToeNieuweLijn()
-	
 	Do ..VoegToeRubriek("Rug", ..GeefRijDataLijstSokkelRug(), ..GeefKolommenDefinitieSokkelRug())
 	
-	Do ..InhoudBuilder.VoegToeNieuweLijn()
-	
 	Do ..VoegToeRubriek("Alu lat", ..GeefRijDataLijstAluLat(), ..GeefKolommenDefinitieAluLat())
 	
-	Do ..InhoudBuilder.VoegToeNieuweLijn()	
-	
 	Do ..VoegToeRubriek("Tablet", ..GeefRijDataStepTablet(), ..GeefKolommenDefinitieStepTablet())
 	
-	Do ..InhoudBuilder.VoegToeNieuweLijn()
+	Do ..VoegToeRubriek("Traverse", ..GeefRijDataStepTraverse(), ..GeefKolommenDefinitieStepTraverse(), $LB("file://Notes01/Images/GENERIEK/SST/Voormontage/Traverse.jpg"))
 	
-	Do ..VoegToeRubriek("Traverse", ..GeefRijDataStepTraverse(), ..GeefKolommenDefinitieStepTraverse())
-	
-	Do ..InhoudBuilder.VoegToeNieuweLijn()
-	
 	If (..SSTKenmerken.Bewegingstechnologie = ##class(DOM.PM.enu.SSTBewegingstechnologie).Servodrive()) {
-		Do ..VoegToeRubriek("Servodrive profiel", ..GeefRijDataLijstServodrive(), ..GeefKolommenDefinitieServodrive())	
+		Do ..VoegToeRubriek("Servodrive profiel", ..GeefRijDataLijstServodrive(), ..GeefKolommenDefinitieServodrive(), $LB("file://Notes01/Images/GENERIEK/SST/Voormontage/Servodrive.jpg"))	
 	}
 	Quit ..InhoudBuilder.GeefInhoud()
 ]]></Implementation>
@@ -107,42 +95,18 @@
 ]]></Implementation>
 </Method>
 
-<UDLText name="T">
-<Content><![CDATA[
-// AFBEELDING??	Do ..InhoudBuilder.VoegToeBarcode()
-
-]]></Content>
-</UDLText>
-
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Method VoegToeBarcode(BarcodeDefinitie As %List)
-{
-	#define tagBARCODE   "BARCODE"
-	
-	#dim BarcodeType As APPS.common.Document.TagBasedDocument.enu.BarcodeType = $LG(BarcodeDefinitie,1)  
-	#dim BarcodeWaarde As %String = $LI(BarcodeDefinitie,2)
-	
-	Set BarcodeType="C128"   ; of EAN, ... 
-	#dim BarcodeTypeAttribute As %String = ""
-	If $L(BarcodeType) {
-		Set BarcodeTypeAttribute=" type="""_BarcodeType_""""
-	}
-	
-	Do ..AppendStartTag($$$tagBARCODE_BarcodeTypeAttribute)
-	Do ..AppendSimpleTag("WAARDE",BarcodeWaarde)
-	Do ..AppendEndTag($$$tagBARCODE)
-}
-*/
-]]></Content>
-</UDLText>
-
 <Method name="VoegToeRubriek">
-<FormalSpec>Titel:TECH.String,RijDataList:APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList,KolommenDefinitie:APPS.common.Document.TagBasedDocument.KolommenDocument.dto.KolommenDefinitie</FormalSpec>
+<FormalSpec>Titel:TECH.String,RijDataList:APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList,KolommenDefinitie:APPS.common.Document.TagBasedDocument.KolommenDocument.dto.KolommenDefinitie,ImageList:%List=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Do ..InhoudBuilder.VoegToeTekstInBold(Titel _" :")
+	If $ListLength(ImageList) {
+		#dim ImageIterator As TECH.Iterator = ##class(TECH.ListbuildIterator).%New(ImageList)
+		While ImageIterator.HasNext() {
+			#dim ImageUrl As %String = ImageIterator.Next()
+			Do ..InhoudBuilder.VoegToeImage(ImageUrl,"105")
+		}
+	}
 	Do ..InhoudBuilder.VoegToeNieuweLijn()
 	Do ..InhoudBuilder.VoegToeTagBasedTekst(..GeefTagBasedTekst(RijDataList, KolommenDefinitie))
 ]]></Implementation>