cANU40	; Z-diagram ;%ANU40 ; [ 10/15/01  3:17 PM ]
	G 1
	;
T0	; Z-diagram ;
T1	;Laatste boekingsmaand\"jjjj.mm[] = bepaalde maand";Deze gegevens zijn niet meer beschikbaar;
T2	;Bestand\"1[] = klanten   2[] = leveranciers   3[] = grootboekrekeningen";
T3	;Keuze\"[] = z-diagram   .[] = laatste 12 maanden   P[] = printen   E[] = einde";
	;
T0F	; Diagramme 'Z' ;
T1F	;Dernier mois comptable\"aaaa.mm[] = mois spécifique";Ces données ne sont plus disponibles;
T2F	;Fichier\"1[] = clients   2[] = fournisseurs   3[] = comptes généraux";
T3F	;Choix\"[] = diagramme 'Z'   .[] = 12 derniers mois   P[] = imprimer   E[] = exit";
	;
T0E	; Z-diagram ;
T1E	;Laatste boekingsmaand\"jjjj.mm[] = bepaalde maand";Deze gegevens zijn niet meer beschikbaar;
T2E	;Bestand\"1[] = klanten   2[] = leveranciers   3[] = grootboekrekeningen";
T3E	;Keuze\"[] = z-diagram   .[] = laatste 12 maanden   P[] = printen   E[] = einde";
	;
T0D	; Z-diagramm ;
T1D	;Letzte Buchungsmonat\"jjjj.mm[] = bestimmter Monat";Deze gegevens zijn niet meer beschikbaar;
T2D	;Dossier\"1[] = Kunden   2[] = Lieferanten   3[] = Hauptbuchkonten";
T3D	;Wahl\"[] = Z-diagramm   .[] = letzte 12 Monate   P[] = drucken   E[] = Ende";
	;
	; window + titel + alg.init.
1	D P^cA612(2,1,20,80,1,0,1,1,$P($T(@("T0"_QT)),U,2),0,0,7,1,1)
13	D ^cT489 S BP=$E(BPA+.01_0,1,7) I BP#1>.12 S BP=BP+.88
	;
	; laatste boekingsmaand
2	S R="BP\22\3\"_$P($T(@("T1"_QT)),U,2)_"\7\\K?4N1"".""2N&(K#1)&(K#1<.13)!(K=""-"")\\\\\1" D R0 G YZ:K="-"
21	W /CUP(2,3),/SGR(4),$P($P($T(@("T1"_QT)),U,2),D),/SGR(0)," : ",BP
23	I BP<KM1(J1) D ER^cAN000($P($T(@("T1"_QT)),U,3)) G 2
	;
	; bestand + selectie
3	S R="K1\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""123-""[K&$L(K)" D R0 G 2:K="-"
31	S DMS=$P("KL\LE\AR",D,K1) D DMS^cAN000("UQC","USC",DMS)
33	G 3:UQC=""!(USC=""),3:'$D(^DMC(UQC,USC))
	S UXX="" I '$D(^DMS(Q,DMS,0)),'$D(^DMS(0,DMS,0)) G YZ  ; VJ 15.10.01
	S UQA=$P(^(0),D,3) I UQA="" S UQA=0
	S USA=$P(^(0),D,4) I USA="" S USA=DMS
	S UXX=$G(^DMA(UQA,USA,0,6))   ; beveiliging v/h raadplegen
35	S UI1=$$^cANSYN(DMS) G 3:K="-" S B(1)=^(UI1,0)
	I $L($P(UXX,D,3)) S OK=0 X $P(UXX,D,3) I 'OK G 35      ; VJ 15.10.01
37	X ^DMC(UQC,USC,"LOGGING","TOP")
39	W /CUP(4,3),/SGR(4),$$UC^cAFA1($E(UTOP(1))),$E(UTOP(1),2,99),/SGR(0)," : ",UTOP(1.1),@F1
	;
	; wat tonen
4	S R="KEU\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-.PE""[K\\\1" D R0 G 35:K="-",YZ:K="E"
41	I ".P"[KEU D ^cANU400(DMS,UI1,BP,$L(KEU)+(KEU="P"))
49	G 4
	;
YZ	D C^cA612 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 22.06.04 - 16 u 32 * V8