cQ16	;TESTEN PRINTERPARAMETERS ;cQ16;
	;
	W !!!,"Plaats papier op de printer en schakel hem aan : .",$C(8) R K I K="-" G YZ
	S Q("debug")=$G(debug) S:'$D(Q) Q="" D ^cA604 S debug=$G(Q("debug")) K Q("debug")
	;
START	X F70 W @F80 S A=$$SIGN^cAFA1("SYS.PRINT",PTS(1),0)
	W !?10,@F82,"Test Page Centrale printer: ",$P(A,"\"),@F83
	W !,"System\Namespace  : ",$ZCVT($ZU(110),"U"),"\",$ZU(5)
	W !,"Description       : ",$P(A,"\",2)
	W !,"Printer           : ",$P(A,"\",3)
	W !,"IP-adr\port       : ",$P(A,"\",7),"\",$P(A,"\",8)
	W !,"Drivercode        : ",$P(A,"\",4)
	S U3="",K=$P(A,"\",41) I $L(K) S K=$P($P(K,"&l",2),"A"),U3=$S(K=2:"Letter",K=25:"A5",K=27:"A3",1:"A4")
	W !,"Paper size        : ",U3
	W !,"Input tray        : ",$P($$SIGN^cAFA1("CODE.1015",$P(A,"\",42),0),D,2)
	S U3="",K=$P(A,"\",43) I $L(K) S K=$P($P(K,"&l",2),"O"),U3=$P("Portrait#Landscape","#",K+1)
	W !,"Portrait\Landscape: ",U3
	S U3="",K=$P(A,"\",44) I $L(K) S K=$P($P(K,"&l",2),"S"),U3=$S(K=1:"Duplex, long-edge binding",K=2:"Duplex, short-edge binding",1:"Simplex")
	W !,"Simplex\Duplex    : ",U3
	W !,"Ratio             : ",$P(A,"\",45)
	W !
	I $G(debug) F I="F70","F71","F80" W !,I,"=" S K=@I F  W ?5,$E(K,1,70) S K=$E(K,71,$L(K)) Q:'$L(K)  W !
	;
	W !,"81 = ",@F81,"Super KLEIN AFDRUKKEN",@F83
	W !,"82 = ",@F82,"Groot AFDRUKKEN",@F83
	W !,"83 = ",@F83,"Normaal AFDRUKKEN",@F83
	W !,"84 = ",@F84,"Klein AFDRUKKEN",@F83
	W !,"85 = ",@F85,"Vergroot KLEIN AFDRUKKEN",@F83
	W !,"85B= ",@F85B,"Vergroot KLEIN AFDRUKKEN Bold",@F83
	W !,"86 = ",@F86,"Dubbel AFDRUKKEN aan",@F83
	W !,"87 = ",@F87,"Dubbel AFDRUKKEN af",@F83
	W !,"88 = ",@F88,"Onderlijnd AFDRUKKEN aan",@F83
	W !,"89 = ",@F89,"Onderlijnd AFDRUKKEN af",@F83
	I $d(F96) W !,"96 = ",@F96,"Bold printen AFDRUKKEN aan",@F83
	I $d(F97) W !,"97 = ",@F97,"Bold printen AFDRUKKEN af",@F83
	W !,"30 = ",@F30," Recht streepje AFDRUKKEN"
	W !,"31 = ",$G(F31)," Grafisch afdrukken in dots (FP = aantal dots)"
	W !,"32 = ",$G(F32)," Aantal lijnen per blad"
	W !,"33 = ",$G(F33)," Aantal LF + Stamp command (kas-ticket)",!
30	G 5
	;
3	W @F83,!
	S FP=10 W #!,"32 = ",$$CR^cA334 W @F32,?17," Page Length in lines = 10",!!!,"4",!,5,!,6,!,7
	F I=2:1:4 W #,I,"' blad. Lijn 1   _____________" F J=2:1:5 W !?14,J
	S FP=26 W #,@F32,# S FP=66 W @F32,!
	G 5
	;
4	W !,"*** Karakterset ***",!!
	S A=0 F I=32:1:255 S C=$C(I) W $J(I,3)," = ",C,$J("",4-$L(C)) S A=A+10 I A>74 W !! S A=0
	;
5	W ! F i=1:1:30 w "123456789|"
	W ! F i=1:1:30 w "123456789|"
	W ! F i=1:1:30 w "        ",$J(i,2)
	W !!,"84 = ",@F84,"Klein AFDRUKKEN"
	W ! F i=1:1:30 w "123456789|"
	W ! F i=1:1:30 w "123456789|"
	W ! F i=1:1:30 w "        ",$J(i,2)
	;
6	W $C(12) X F71
	;
YZ	Q
	;
DISP	;Display fields 41 -> 45
	S I=""
	F  S I=$O(^DATA(0,"SYS.CP",I)) Q:I=""  S A=^(I,0) W !!,I,"  ",A F J=41:1:45 W !?10,J,"  '",$P(A,"\",J),"'"
DISPZ	Q
	;
FC(R)	;Find code in ^cDATA(,"DEV.PRT"), show info
	S R=$G(R) Q:'$L(R)  S (I,J)="" W !,R,!
	F  S I=$O(^cDATA(0,"DEV.PRT",I)) Q:I=""  S SW=1 D
	. F  S J=$O(^cDATA(0,"DEV.PRT",I,J))  Q:J=""  I ^(J)[R D
	.. W:SW !,I,?10,$P(^cDATA(0,"DEV.PRT",I,0),"\",2),?50,"  ",J W:'SW "  ",J S SW=0
FCZ	Q
	;
	;bijmaken printervariabelen
EP	s i=" "
	f  s i=$o(^cDATA(0,"DEV.PRT",i)) q:i=""  w !,i d   
	. f j=30:1:33,81:1:89 i '$d(^cDATA(0,"DEV.PRT",i,"F"_j)) S ^cDATA(0,"DEV.PRT",i,"F"_j)=""""""
	. i '$d(^cDATA(0,"DEV.PRT",i,"F85B")),$d(^cDATA(0,"DEV.PRT",i,"F85")) s ^cDATA(0,"DEV.PRT",i,"F85B")=^cDATA(0,"DEV.PRT",i,"F85")
	. i '$d(^cDATA(0,"DEV.PRT",i,"F96")),$d(^cDATA(0,"DEV.PRT",i,"F86")) s ^cDATA(0,"DEV.PRT",i,"F96")=^cDATA(0,"DEV.PRT",i,"F86")
	. i '$d(^cDATA(0,"DEV.PRT",i,"F97")),$d(^cDATA(0,"DEV.PRT",i,"F87")) s ^cDATA(0,"DEV.PRT",i,"F97")=^cDATA(0,"DEV.PRT",i,"F87")
EPZ	Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9