Index: BL/Prod/ImageLinkImport.cls.xml
===================================================================
diff -u -r734 -r901
--- BL/Prod/ImageLinkImport.cls.xml	(.../ImageLinkImport.cls.xml)	(revision 734)
+++ BL/Prod/ImageLinkImport.cls.xml	(.../ImageLinkImport.cls.xml)	(revision 901)
@@ -1,20 +1,24 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:00:53">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-25 15:13:33">
 <Class name="BL.Prod.ImageLinkImport">
 <Description>
 1. Importeren van de beelden van de Orgalux producten vanuit de kenmerken en de biijhorende vertaling.
 2. Creatie van de beelden voor de tandembox laden.</Description>
 <IncludeCode>%VHMacro,%Prod.Product</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62102,60609.254612</TimeChanged>
+<TimeChanged>62147,54876.380544</TimeChanged>
 <TimeCreated>60599,31536.811803</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="TBXObjType">
 <Default>TBX</Default>
 </Parameter>
 
+<Parameter name="SpaanplaatObjType">
+<Default>SPAANPLAAT</Default>
+</Parameter>
+
 <Parameter name="TBXOorsprong">
 <Default>TBXGEN</Default>
 </Parameter>
@@ -386,6 +390,46 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CreateSpaanplaat">
+<Description>
+d ##class(BL.Prod.ImageLinkImport).%New().CreateSpaanplaat()</Description>
+<Implementation><![CDATA[
+	; Single kleuren
+	Do ..CreateOneSpaanplaat("LG",			"GENERIEK\TBX\spaanplaat_LG.jpg" )
+	Do ..CreateOneSpaanplaat("DG",			"GENERIEK\TBX\spaanplaat_DG.jpg" )
+	Do ..CreateOneSpaanplaat("WI",			"GENERIEK\TBX\spaanplaat_WI.jpg" )
+	Do ..CreateOneSpaanplaat("BZ",			"GENERIEK\TBX\spaanplaat_BZ.jpg" )
+	Do ..CreateOneSpaanplaat("BE",			"GENERIEK\TBX\spaanplaat_BE.jpg" )
+	Do ..CreateOneSpaanplaat("EI",			"GENERIEK\TBX\spaanplaat_EI.jpg" )
+
+	; BI kleuren
+	Do ..CreateOneSpaanplaat("LG;DG",		"GENERIEK\TBX\spaanplaat_LG_DG.jpg")
+	Do ..CreateOneSpaanplaat("LG;WI",		"GENERIEK\TBX\spaanplaat_LG_WI.jpg")
+	Do ..CreateOneSpaanplaat("WI;BZ",		"GENERIEK\TBX\spaanplaat_WI_BZ.jpg")
+	Do ..CreateOneSpaanplaat("BE;EI",		"GENERIEK\TBX\spaanplaat_BE_EI.jpg")
+
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="CreateOneSpaanplaat">
+<FormalSpec>ObjRef,WebImage,SmallImage</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..RemoveOldImages(..#SpaanplaatObjType,ObjRef,..#TBXOorsprong)
+	w ObjRef," "
+	Set:$G(SmallImage)="" SmallImage=WebImage
+	Set oImg=##class(Res.ImageLink).Create(..#SpaanplaatObjType, ObjRef, "P","PB","")
+	Set oImg.Oorsprong=..#TBXOorsprong
+	Do ..AddLink(oImg,"T",SmallImage,.SmallImageSize) ; Thumbnail
+	Do ..AddLink(oImg,"W",WebImage,.WebImageSize) ; Web 
+	Set Status=oImg.%Save() 
+	If $$$ISERR(Status) W $$ParseStatus^vhLib(Status),! r k
+	
+	;Do ..CreateImage(..#TBXObjType, ObjRef, , ImageJPG, .ImageSVG, , .SizeJPG, .SizeSVG, "PB", ..#TBXOorsprong)
+]]></Implementation>
+</Method>
+
 <Method name="CreateKAD">
 <Description>
 d ##class(BL.Prod.ImageLinkImport).%New().CreateKAD()</Description>
@@ -413,10 +457,21 @@
 <Description>
 d ##class(BL.Prod.ImageLinkImport).%New().CreateLogos()</Description>
 <Implementation><![CDATA[
+	#define DynSpacePath   "Orgalux\DynSpace\"
+
+	// FSC logo's 
 	Do ..CreateOneLogo("FSC","LOGO\W\FSC.jpg",)   ; ,"LOGO\V\FSC.svg",)
 	Do ..CreateOneLogo("FSC_VH_PROMO","LOGO\W\FSC_VH_PROMO.jpg", ,"LOGO\V\FSC_VH_PROMO.svg",)
 	Do ..CreateOneLogo("FSC_VH_PROD_MIX","LOGO\W\FSC_VH_PROD_MIX.jpg", ,"LOGO\V\FSC_VH_PROD_MIX.svg",)
 	Do ..CreateOneLogo("FSC_VH_PROD_RCLD","LOGO\W\FSC_VH_PROD_RCLD.jpg", ,"LOGO\V\FSC_VH_PROD_RCLD.svg",)
+	
+	// DYNAMIC SPACE logo's 
+	Do ..CreateOneLogo("DS_KokenEnBakken",$$$DynSpacePath_"DS_koken.jpg", ,$$$DynSpacePath_"DS_koken.svg",)
+	Do ..CreateOneLogo("DS_Opbergen",$$$DynSpacePath_"DS_opbergen.jpg", ,$$$DynSpacePath_"DS_opbergen.svg",)
+	Do ..CreateOneLogo("DS_SpoelenEnAfval",$$$DynSpacePath_"DS_spoelen_afval.jpg", ,$$$DynSpacePath_"DS_spoelen_afval.svg",)
+	Do ..CreateOneLogo("DS_Voorbereiden",$$$DynSpacePath_"DS_voorbereiden.jpg", ,$$$DynSpacePath_"DS_voorbereiden.svg",)
+	Do ..CreateOneLogo("DS_Voorraad",$$$DynSpacePath_"DS_voorraad.jpg", ,$$$DynSpacePath_"DS_voorraad.svg",)
+	
 	Quit
 ]]></Implementation>
 </Method>
@@ -791,7 +846,7 @@
 	For  Write !,@F2 Read "IDNr:",IDNr Quit:IDNr=""  Do
 	. Write !,@F2 Read "ScaleFactor ( 70 -> .7):",ScaleFactor
 	. Quit:'ScaleFactor
-	. Set IDNr=$$TRIMN^vhRtn1(IDNr)_" "
+	. Set IDNr=$$TRIMIDENT^vhRtn1(IDNr)_" " ;[IDENT] CW
 	. Set PRNr=$P($G(^KPR2(IDNr)),"\")
 	. Write !,PRNr," ",$P(^KPR(PRNr,0),"\")
 	. Do bl.GetImagesForScaleFactor(PRNr,"PB",ScaleFactor/100)
@@ -840,5 +895,6 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3023644176"/>
+<Package name="BL.Prod" sqlname="BL"/>
+<Checksum value="3067233959"/>
 </Export>