cAT24 ;MAANDAFSLUITING ;%AT24 ; [ 01/02/01  12:17 PM ]
 G 1
 ;
T0 ;Maandafsluiting ;
T1 ;Periode : ; is afgesloten ;
T2 ;Bevestiging\".[] = ok   -[] = einde programma";
 ;
T0F ;Clôture mensuelle ;
T1F ;Période : ; est clôturée ;
T2F ;Confirmation\".[] = ok   -[] = fin du programme";
 ;
T0E ;Monthly closing ;
T1E ;Period : ; is closed ;
T2E ;Confirmation\".[] = ok   -[] = end program";
 ;
DO S OK=0 G 1 ; debiteurenopvolging
BH S OK=1 G 1 ; boekhouding
 ;
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 OK=+$G(OK) I $D(@("^"_Q_"BA(100)"))#2,^(100)=2 S OK=1
13 I OK S BPB=^(2),BP=$E(^(7)+.01_0,1,7) S:BP#1>.12 BP=BP+.88
15 I OK S FP=403 W @F,$P($T(@("T1"_QT)),U,2),BP
 ;
2 L @("^"_Q_"BA(7)"):2 E  S R=14 D F2 S OK=0
21 I 'OK G YZ
23 S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-,.""[K&$L(K)" D R0 I K'="." G YZ
25 S @("^"_Q_"BA(7)")=BP K ^(BP)
27 I $P(BPB,D,2)=BP S ^(26)=^(26)+1,^(2)=BP\1*12+(BP#1*100)_D_$E(BP+1_0,1,7)_D_BP_D_BPB
29 S K=$P($T(@("T1"_QT)),U,2)_BP_$P($T(@("T1"_QT)),U,3) D F1
 ;
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
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84