cA335	;Beheer journalen ;%A335 ;%A335* ; [ 07/11/01  2:06 PM ]
	G 1
	;
T0	;Beheer journalen ;
T1	;Journaalsoort\"A[] = aankoop   V[] = verkoop   D[] = diversen;   E[] = analytische verr.;
T2	;Aankoop;Verkoop;Diversen;Analytische verrichtingen;
T3	;Uw keuze\"1[] = openen   2[] = wijzigen   3[] = overzicht;   [] = vervolg;
T4	; Nr   Afk   Omschrijving                   Niv;   B.j.   Begin    Einde;
T5	;Zonder journaal;
T6	;op ; bg; au;operat. ; buiten gebruik;auto;
T7	;Overzicht\"[] = op het scherm   .[] = op de printer";
	;
T0F	;Gestion des journaux ;
T1F	;Journal\"A[] = achat   V[] = vente   D[] = o.d.   ;E[] = opérations analytiques;
T2F	;Achat;Vente;Opérations diverses;Opérations analytiques;
T3F	;Choix\"1[] = créer   2[] = modifier   3[] = aperçu;   [] = suite;
T4F	; N°   Abr   Description                    Niv;   Ex.    Début     Fin;
T5F	;Sans journal;
T6F	;op ; hu; au;opérat. ; hors usage;auto;
T7F	;Aperçu\"[] = à l'écran   .[] = sur l'imprimante";
	;
T0E	;Journal codes ;
T1E	;Journal type\"A[] = purchase   V[] = sales   D[] = misc. trans.;   E[] = analytical trans.;
T2E	;Purchase;Sales;Misc.trans.;Analytical trans.;
T3E	;Choice\"1[] = create   2[] = modify   3[] = summary;   [] = next;
T4E	; Nr   Abb   Description                    Lev;   F.y.   Begin    End  ;
T5E	;Without journal;
T6E	;op ; ou; au;operat. ; out of use    ;auto;
T7E	;Summary\"[] = on screen   .[] = on printer";
	;
	; opzetten ontbrekende nodes
S2	S S2=J S:SRT S2=S2_$E(1000+SRT,2,4) I '$D(@("^"_Q_"BA(I1,S2)")) S ^(S2)=$S(SRT:"?",1:$P($T(@("T5"_QT)),U,2))
S2A	F S3=BJ,BJ+1 I '$D(@("^"_Q_"BA(I1,S2,S3,0)")) S ^(0)=1
S2Z	K S2,S3 Q
	;
	; tonen begin/einde reeks
S3	S S1=BJ,S2=J_"FNR"_$S(SRT:SRT,1:"")
S3A	S S3=$G(@("^"_Q_"BA(S1,S2)"))
S3B	I S3,$P(S3,D,2)>$P(S3,D)!'$P(S3,D,2) S $P(S3,D,2)=$P(S3,D)
S3C	I S3,$P(S3,D,3)<$P(S3,D,2) S $P(S3,D,3)=$E($P(S3,D,2),1,2)_"9999"
S3D	I QP S FP=L*100+52 W @F,S1 S FP=FP+7 W @F,$P(S3,D,2) S FP=FP+9 W @F,$P(S3,D,3)
S3E	S L=L+1 I S1=BJ S S1=BJ+1 G S3A
S3Z	K S1,S2,S3 Q
	;
	; vegen op scherm
S4	F L=15:-1:8 F S1=1:1:$S(J="D"!(J="E"):4,1:7) S FP=L*100+$P("3\9\15\46\52\59\68",D,S1) W @F,$J("",$P("3\3\28\3\4\6\6",D,S1))
S4Z	K S1 Q
	;
	; controle op reeksen voor alle journalen
S5	S ZS1="",OK=1,QP=0
S5A	S ZS1=$O(@("^"_Q_"BA(I1,ZS1)")) G S5Z:ZS1="",S5A:$E(ZS1)'=J,S5A:$P(^(ZS1),D,3)
S5B	S SRT=+$E(ZS1,2,4),FP=2203 W @F,@F1,$P($T(@("T2"_QT)),U,$F("AV",J))," : ",SRT D S3 S ZS3=BJ,ZS2=J_"FNR"_$S(SRT:SRT,1:"")
S5C	S R=J_D_SRT_D_ZS3_D_$P($G(@("^"_Q_"BA(ZS3,ZS2)"),0),D)_D_$P($G(^(ZS2),"\\0"),D,3) D ^cA3352 I OK,ZS3=BJ S ZS3=BJ+1 G S5C
S5D	I OK G S5A
S5Z	K ZS1,ZS2,ZS3 S QP=1 Q
	;
	; keuze A/V/D/E
1	S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11	S SWLOCK=$P(R,U,2) I 'SWLOCK L +@("^"_Q_"BA"):2 E  S R=14 D F2 G YZ
13	S BJ=$P(@("^"_Q_"BA(2)"),D,2)\1,I1="%T",L=0,SWE=$D(^(I1,"E"))#10
15	S R="J\22\3\"_$P($T(@("T1"_QT)),U,2)_$P($T(@("T1"_QT)),U,4-SWE)_"""\1\\""-AVD""[K&$L(K)!(K=""E""&SWE)\\\1" D R0 G Y:K="-"
17	S FP=403 W @F,@F1,$P($P($T(@("T1"_QT)),U,2),D)," : ",$P($T(@("T2"_QT)),U,$F("AVDE",J))
	;
	; overzicht tonen
2	S FP=603 W @F,@F1,$P($T(@("T4"_QT)),U,2) I J'="D",J'="E" W $P($T(@("T4"_QT)),U,3)
21	S RH="703#"_$S(J="D"!(J="E"):749,1:773),RV="607#1507\613#1513\644#1544"_$S(J="D"!(J="E"):"",1:"\650#1550\657#1557\666#1566") D ^cA319
	; terugkeerpunt na openen/wijzigen
23	S I2="",SRT="",L=8 D S2
25	S I2=$O(@("^"_Q_"BA(I1,I2)")) G 3:I2="",25:$E(I2)'=J S SRT=+$E(I2,2,4),N=^(I2)
27	S FP=L*100+3 W @F,$J(SRT,3) S FP=FP+6 W @F,$E($P(N,D,2)_$J("",3),1,3) S FP=FP+6 W @F,$E($P(N,D)_$J("",28),1,28)
28	S FP=FP+31 W @F,$P($T(@("T6"_QT)),U,$P(N,D,3)+2) D S2,S3:J'="D"&(J'="E")
29	S:J="D"!(J="E") L=L+1 I L<15 G 25
	;
	; terugkeerpunt na printen
3	S R="KEU\22\3\"_$P($T(@("T3"_QT)),U,2)_$P($T(@("T3"_QT)),U,$S($L(I2):3,1:4))_"""\1\\""-123""[K&($L(K)!$L(I2))" D R0 I K="" D S4 G 25
31	G ^cA3351:K=1!(K=2) I K="-" G 15:J="D"!(J="E") D S5 G 15:OK,3
33	S R="K\22\3\"_$P($T(@("T7"_QT)),U,2)_"\1\\""-.""[K" D R0 G 3:K="-",^cA3350:$L(K) D S4 S I2="" G 25
	;
	; eindcontrole op reeksen
Y	F J="A","V" D S5 Q:'OK
YA	G 15:'OK I 'SWLOCK L -@("^"_Q_"BA")
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 ^cA100 Q  ; v11 30.05.94
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
ZZ	; 06.08.01 - 17 u 28 * V7.87