Index: cA335.mac.rou
===================================================================
diff -u -r734 -r3542
--- cA335.mac.rou	(.../cA335.mac.rou)	(revision 734)
+++ cA335.mac.rou	(.../cA335.mac.rou)	(revision 3542)
@@ -1,92 +1,93 @@
-cA335 ;Beheer journalen ;%A335 ;%A335* ; [ 01/03/01  4:33 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                   Opm;   B.j.   Begin    Einde;
-T5 ;Zonder journaal;
-T6 ;ok ; bg;in orde ; buiten gebruik;
-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                    Rem;   Ex.    D�but     Fin;
-T5F ;Sans journal;
-T6F ;ok ; hu;en ordre ; hors usage;
-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                    Rem;   F.y.   Begin    End  ;
-T5E ;Without journal;
-T6E ;ok ; ou;okay    ; out of use    ;
-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 ; 05.02.01 - 16 u 23 * V7.84
\ No newline at end of file
+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
+