Index: vhDeploy/D20170529Orgalux2.cls.xml
===================================================================
diff -u -r41914 -r41916
--- vhDeploy/D20170529Orgalux2.cls.xml	(.../D20170529Orgalux2.cls.xml)	(revision 41914)
+++ vhDeploy/D20170529Orgalux2.cls.xml	(.../D20170529Orgalux2.cls.xml)	(revision 41916)
@@ -5,16 +5,7 @@
 
 <Method name="ExecCode">
 <ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
-	#dim Tekst As %String = ""
-	For  { Set Tekst=$Order(^DOM.VKP.impl.KlantDataD(Tekst)) Quit:(Tekst="")
-		If ##class(TECH.StringUtils).Occurrences($List(^DOM.VKP.impl.KlantDataD(Tekst),1),"~") = 2 {
-			#dim Data As %List = ^DOM.VKP.impl.KlantDataD(Tekst)
-			Set $List(Data,1)="~DOM.VKP.impl.HandelKlantData"_$List(Data,1)
-			Set ^DOM.VKP.impl.KlantDataD(Tekst) = Data
-			
-		}
-	}
+<Implementation><![CDATA[	Set ^RES("LABELPRINTER","PI","DEVICE","D","ORGALUX2 KLEUR") = ##class(TECH.StringUtils).Replace(^RES("LABELPRINTER","PI","DEVICE","D","ORGALUX2 KLEUR"),"\\Orgalux2\OrgaluxColor","ORGALUX2")
 ]]></Implementation>
 </Method>
 </Class>