cA3352 ;Beheer journalen ;%A335 ;do uit %A335* ; [ 01/03/01  3:47 PM ]
 ;
T0 ;Beheer journalen ;
T1 ;Journaal=;, boekjaar=;, begin=;, einde=; te klein; te groot;
T2 ; kleiner dan begin ;
T3 ;, overlapping met journaal=;
T4 ;, factuurnummers reeds gebruikt;
 ;
T0F ;Gestion des journaux ;
T1F ;Journal=;, année=;, debut=;, fin  =; trop petit; trop grand;
T2F ; plus petit que le premier ;
T3F ;, chevauchement avec journal=;
T4F ;, numéros de factures déjà utilisés;
 ;
T0E ;Journal codes ;
T1E ;Journal=;, fiscal year=;, begin=;, end=; to small; to big;
T2E ; smaller then begin ;
T3E ;, overlap with journal=;
T4E ;, invoice numbering already used;
 ;
A ;AF\1;AA\2;
V ;VF\1;VE\2;FA\2;
 ;
 ; R=soort\nummer\boekjaar\begin\einde
1 S OK=0,R1=$P(R,D) G YZ:'$L(R1) S RA=$P($T(@R1),U,2,99) G YZ:'$L(RA)
11 S R2=$P(R,D,2),RB=R1_"FNR"_$S(R2:R2,1:"")
13 S R3=$P(R,D,3) I 'R3 S R3=$P(@("^"_Q_"BA(2)"),D,2)\1
15 S R4=$P(R,D,4),R5=$P(R,D,5)
17 I R4<100000 S K=$P($T(@("T1"_QT)),U,4)_R4_$P($T(@("T1"_QT)),U,6) D F0 G YZ
19 I R5>989999 S K=$P($T(@("T1"_QT)),U,5)_R5_$P($T(@("T1"_QT)),U,7) D F0 G YZ
 ;
2 S R="" I R5<R4 S K=$P($T(@("T1"_QT)),U,5)_R5_$P($T(@("T2"_QT)),U,2) D F0 G YZ
21 S R=$O(@("^"_Q_"BA(R3,R)")) G 3:R="",21:$E(R)'=R1,21:R=RB S RC=^(R) G 21:$P(RC,D,4) S RD=$P(RC,D,2),RE=$P(RC,D,3)
23 I RD>$P(RC,D)!'RD S RD=$P(RC,D) I 'RD S RD=$S(R3=1999:19,R3>1999:2_$E(R3,4),1:$E(R3,3,4))_"0001"
25 I RE<RD S RE=$E(RD,1,2)_"9999"
27 G 21:RD>R5!(RE<R4) S K=$P($T(@("T3"_QT)),U,2)_(+$E(R,5,7)) D F0 G YZ
 ;
3 S RD=$P(RA,U),RA=$P(RA,U,2,999) I RD="" G 3:$L(RA) S OK=1 G YZ
31 S RC=$P(RD,D),RD=$P(RD,D,2),RI=1,RI(RI)=""
33 I RI=RD S RI(RI)=R4
35 D S1 I RI=RD G 4
37 S RE=$O(@RE)
38 S RI(RI)=RE I RE="" S RI=RI-1 G 35:RI,3
39 S RI=RI+1,RI(RI)="" G 33
 ;
4 S K=$P($T(@("T4"_QT)),U,2) I $D(@RE) D F0 G YZ
41 S RE=$O(@RE) I RE<R4!(RE>R5) S RE="" G 38
43 D F0 G YZ
 ;
YZ K R,R1,R2,R3,R4,R5,RA,RB,RC,RD,RE,RI Q
 ;
S1 S RE="^"_Q_RC_"(" F RS1=1:1:RI S RS2=RI(RS1) S:+RS2'=RS2 RS2=""""_RS2_"""" S RE=RE_RS2 I RS1<RI S RE=RE_","
S1Z S RE=RE_")" K RS1,RS2 Q
 ;
F0 S K=$P($T(@("T1"_QT)),U,2)_(+R2)_$P($T(@("T1"_QT)),U,3)_R3_K
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84