Index: BL/Sys/FOP/CommonTasks.cls.xml =================================================================== diff -u -r29059 -r31641 --- BL/Sys/FOP/CommonTasks.cls.xml (.../CommonTasks.cls.xml) (revision 29059) +++ BL/Sys/FOP/CommonTasks.cls.xml (.../CommonTasks.cls.xml) (revision 31641) @@ -265,9 +265,9 @@ ;Else If PrinterName="LEVBON_DI" Do ; Vorige HP-printer ;. Set PSMediaType =$Case(PapierSoort, "GEEL":"(colored)", "LOGO":"(plain)", "BLANCO":"(plain)" , :"(plain)" ) ; Not tested yet !!! ;. Set PSTraySelect=$Case(PapierSoort, "GEEL":"0" , "LOGO":"1" , "BLANCO":"4" , :"1" ) - Else If PrinterName?1(1"LEVBON".E) Do ; bvb LEVBON_ORGALUX + Else If PrinterName?1(1"LEVBON".E) Do ; bvb LEVBON_ORGALUX en LEVBON_TERUGNAME . Set PSMediaType =$Case(PapierSoort, "GEEL":"(colored)", "LOGO":"(preprinted)", "BLANCO":"(plain)", :"(plain)" ) ; Not tested yet !!! - . Set PSTraySelect=$Case(PapierSoort, "GEEL":"0" , "LOGO":"1" , "BLANCO":"2" , :"1" ) + . Set PSTraySelect=$Case(PapierSoort, "GEEL":"0" , "LOGO":"1" , "BLANCO":"2" , :"2" ) Else If PrinterName?1(1"KYOCERAFS4000",1"KYOCERA".E) Do ; o.a. facturen met OMR . Set PSMediaType =$Case(PapierSoort, "GEEL":"(color)" , "LOGO":"(plain)", "MANUEEL":"(manual)", :"(plain)" ) ; Not tested yet !!! . Set PSTraySelect=$Case(PapierSoort, "GEEL":"1" , "LOGO":"2" , "MANUEEL":"3" , :"2" ) @@ -303,6 +303,10 @@ . Set blnStapling=''$L(StaplingMode) . Set OutputTray=$S(blnStapling:"3", 1:"1") . Set PSStaplingConfig=$S(blnStapling:"1"_$$$xslpDelim_"(ANGLED_STAPLE)", 1:"0"_$$$xslpDelim_"()")_$$$xslpDelim_OutputTray + Else If (PrinterName="LEVBON_TERUGNAME") Do + . Set StaplingMode="" + . Set OutputTray="1" + . Set PSStaplingConfig="0"_$$$xslpDelim_"()"_$$$xslpDelim_OutputTray Else If (PrinterName?1(1"LEVBON_PS",1"LEVBON".E)) Do . ;Set:(PrinterName'="LEVBON_PS") StaplingMode="" ; DISABLE Stapling option (temporary) . Set blnStapling=''$L(StaplingMode)