Index: BL/Sys/FOP/CommonTasks.cls.xml
===================================================================
diff -u -r56356 -r56357
--- BL/Sys/FOP/CommonTasks.cls.xml	(.../CommonTasks.cls.xml)	(revision 56356)
+++ BL/Sys/FOP/CommonTasks.cls.xml	(.../CommonTasks.cls.xml)	(revision 56357)
@@ -267,9 +267,9 @@
 	Set PapierSoort=$$$UCase(PapierSoort)
 	Set ReturnWhat=$$$UCase(ReturnWhat)
 	
-	If PrinterName="LEVBON_DI" Do            ; Extra A5-lade voor Aventos Recupak 
-	. Set PSMediaType =$Case(PapierSoort, "GEEL":"(colored)", "LOGO":"(plain)", "A5-L":"(plain)"  , :"(plain)" )   ; Not tested yet !!! 
-	. Set PSTraySelect=$Case(PapierSoort, "GEEL":"0"        , "LOGO":"1"      , "A5-L":"4"        , :"1"       )
+	If PrinterName="LEVBON_DI" Do            ; Extra A4-lade blanco/wit papier o.a. voor "Rechtstreekse leveringen" 
+	. Set PSMediaType =$Case(PapierSoort, "GEEL":"(colored)", "LOGO":"(plain)", "WIT":"(plain)"  , :"(plain)" )   ; Not tested yet !!! 
+	. Set PSTraySelect=$Case(PapierSoort, "GEEL":"0"        , "LOGO":"1"      , "WIT":"2"        , :"1"       )
 	Else  If PrinterName?1(1"LEVBON_PS",1"HP602IT") Do   ; HP602IT = LEVBON_PS  : Nieuwe HP-printer, tijdelijke naam HP602IT, is ook de naam op print01 
 	. Set PSMediaType =$Case(PapierSoort, "GEEL":"(colored)", "LOGO":"(plain)",  "A5-L":"(plain)" , :"(plain)" )   ; Not tested yet !!! 
 	. Set PSTraySelect=$Case(PapierSoort, "GEEL":"0"        , "LOGO":"1"      ,  "A5-L":"4"       , :"1"       )