cQVERS	;Version programs ;cQVERS;
	;
T0	;Versie programma's ;
T1	;Pakket;Versie;
T2	; 1. Besturingssysteem; 2. Database;
T3	;Naam programma\"-[] = einde programma";
T4	;Programma bestaat niet   [] = ok ;
T5	;[] = vervolg\;
T6	;Windows NT/2000;Windows 95/98;
T7	;Licentie;Serienr. ;Lic. Houder;
T8	;Vervalt op ;Type
	;
T0F	;Version des programmes ;
T1F	;Paquet;Version;
T2F	; 1. Logiciel système; 2. Base de Donneés;
T3F	;Nom du programme\"-[] = fin du programme";
T4F	;Programme n'existe pas   [] = ok ;
T5F	;[] = suite\;
T6F	;Windows NT/2000;Windows 95/98;
T7F	;Licence;No. Série ;Licencié;
T8F	;Expire le ;Type;
	;
T0E	;Version programs ;
T1E	;Package;Version;
T2E	; 1. Operating System; 2. Database;
T3E	;Name program\"-[] = end program";
T4E	;Program does not exist   [] = ok ;
T5E	;[] = next\;
T6E	;Windows NT/2000;Windows 95/98;
T7E	;License;Serialnr. ;Licensee;
T8E	;Expires on ;Type
	;
T0D	;Version programs ;
T1D	;Package;Version;
T2D	; 1. Operating System; 2. Database;
T3D	;Name program\"-[] = end program";
T4D	;Program does not exist   [] = ok ;
T5D	;[] = next\;
T6D	;Windows NT/2000;Windows 95/98;
T7D	;License;Serialnr. ;Licensee;
T8D	;Expires on ;Type
	;
1	D INI^cQ6 S K=$P($T(@("T0"_QT)),";",2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
	S FP=408 W @F,@F1,$P($T(@("T1"_QT)),U,2) S FP=FP+25 W @F,$P($T(@("T1"_QT)),U,3)
	K OPT S $ZE="",R="302\1879",RH="502#579",RV="331#1831" D ^cA319
	S (FP,XX,XP)=604 W @F,$P($T(@("T2"_QT)),U,2) S FP=FP+29 W @F
	W $P($T(@("T6"_QT)),U,$ZU(100)+2)
	S (FP,XP)=XP+100 W @F,$P($T(@("T2"_QT)),U,3) S FP=FP+29 W @F,$P($ZV,"(Build")
	S (FP,XP)=XP+100 S FP=FP+29 W @F,"(Build",$P($ZV,"(Build",2)
	S (CUST,ORDER,EXP,OPT(1))=""
	S KF=$$KEY^cQFILE S ER=$$CF^cQFILE(KF),ER=$$OR^cQFILE(KF) I ER G 2
	S ER=$$RS^cQFILE(KF,"LicenseCapacity",.TYPE) I ER S CUST=""
	S ER=$$RS^cQFILE(KF,"customer",.CUST) I ER S CUST=""
	S ER=$$RS^cQFILE(KF,"order",.ORDER) I ER S ORDER=""
	S ER=$$RS^cQFILE(KF,"expiration",.EXP) I ER S EXP=""
	S ER=$$RS^cQFILE(KF,"machinetype",.K) I ER S K=""
	S ER=$$CF^cQFILE(KF),TYPE=$P(TYPE,"=",2)
	;
2	S (Y,$Y)=0
	S (FP,XP)=XP+100,FP=XP+15 W @F,$P($T(@("T7"_QT)),U,2) S FP=XP+29 W @F,$P($T(@("T7"_QT)),U,3),$P(ORDER,"=",2)
	S XP=XP+100,FP=XP+15 W @F,$P($T(@("T7"_QT)),U,4) S FP=XP+29 W @F,$P(CUST,"=",2)
	S (FP,XP)=XP+100,FP=FP+15 W @F,$P($T(@("T8"_QT)),U,2) S FP=XP+29 W @F,$P(EXP,"=",2)
	S (FP,XP)=XP+100,FP=FP+15 W @F,$P($T(@("T8"_QT)),U,3) S FP=XP+29 W @F,$E(TYPE,1,45)
	I $L($E(TYPE,46,90)) S (FP,XP)=XP+100,FP=XP+29 W @F,$E(TYPE,46,90)
	S I="",A=2,TL=3,TL=$F("NFED",QT)+1 I TL=2!(TL>5) S TL=3
	;
3	F  S I=$O(^cLOG(0,"VERS",I)) Q:I=""  D  Q:K="-"
	. S K=^(I),(FP,XP)=XP+100,A=A+1 W @F,$J(A,2),". ",$E($P(K,D,TL),1,23) S FP=FP+29 W @F,$P(K,D)
	. I XP>1700 D
	.. S R="K\23\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""-""[K\" D R0 I K="-" S I="" Q
	.. S XP=XX F J=XP:100:1704 S FP=J W @F,$J("",27) S FP=FP+29 W @F,$J("",46)
	.. S XP=XP-100
	;
4	F  S R="K\23\3\"_$P($T(@("T3"_QT)),U,2)_"\8\\K=""-""!(K?1A.E)!(K?1""%"".E)\" D R0 Q:K="-"  D
	. S L=$$TL^cQ13(K),FP=1901 W @F,@F1,!?2,K,?12 I $D(^$R(K)) X "ZL @K S K=$T(+1)"
	. W $P(K,U,2,3),!?12,L,"  " I K["[" W ?50,"[",$P(K,"[",2)
	;
YZ	Q
	;
R0	S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A	S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z	S $P(R,D,12)=$T(+0) K R0,R1 D ^cA1000 Q  ; v11 30.05.94
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9