cT181 ;KONTROLE VAN DE BOEKHOUDING ;%T181;Go naar %T182 [ 02/02/96  11:12 AM ]
 ;
T0 ;Controle van de boekhouding ;
T1 ;Laatst afgesloten boekingsmaand : ;
T2 ;Te controleren maand\"-[] = einde programma      jjjj.mm [] = specifieke maand",!,"   [] = maand ; e.v.   jjjj.mm+[] = specifieke maand e.v.";
T3 ;Laatste maand van het vorige boekjaar\"jjjj.mm[] = bepaalde maand   [] = ";
T4 ;Controle kan niet gestart worden   !;
T5 ;Kies een maand tussen ; en ;
T6 ;Dit is onmogelijk   !;
 ;
T0F ;Contrôle de la comptabilité ;
T1F ;Dernier mois clôturé : ;
T2F ;Mois à contrôler\"-[] = fin du programme     aaaa.mm [] = mois spécifique",!,"   [] = mois ; e.s.    aaaa.mm+[] = à partir de aaaa.mm";
T3F ;Dernier mois de l'excercice comptable précédente\"aaaa.mm[] = période spécifique   [] = ";
T4F ;Le contrôle ne peut pas être démarré   !;
T5F ;Choisissez un mois entre ; et ;
T6F ;Ceci est impossible !;
 ;
T0E ;Controle van de boekhouding ;
T1E ;Laatst afgesloten boekingsmaand : ;
T2E ;Te controleren maand\"-[] = einde programma      jjjj.mm [] = specifieke maand",!,"   [] = maand ; e.v.   jjjj.mm+[] = specifieke maand e.v.";
T3E ;Laatste maand van het vorige boekjaar\"jjjj.mm[] = bepaalde maand   [] = ";
T4E ;Controle kan niet gestart worden   !;
T5E ;Kies een maand tussen ; en ;
T6E ;Dit is onmogelijk   !;
 ;
1 G 5:'$D(Q),5:Q'?1U.U 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 K=$D(@("^"_Q_"BA(7)")) G F1:'K S BPA=$E(^(7)_0,1,7),FP=403 W @F,$P($T(@("T1"_QT)),U,2),BPA
13 S K=$D(^(2)) G F1:'K S BPA(0)=^(2) I $L($P(BPA(0),D))'=5!($L($P(BPA(0),D,2))'=7)!($L($P(BPA(0),D,3))'=7) G F1
15 S K=$D(^(25)) G F1:'K S K=^(25),BPH=$E(K/100+BPA_0,1,7) S:BPH#1>.12 BPH=$E(BPH+.88_0,1,7) S K=$E(DM/100+DJ_0,1,7) I BPH<K S BPH=K
17 S K=$D(^(26)) S:K K=^(26) S Y=$P(BPA(0),D,K+1*3),X=$E(BPA+.01_0,1,7) S:X#1>.12 X=$E(X+.88_0,1,7)
18 I 'Y S:K>0 K=K-1 S Y=$P(BPA(0),D,K+1*3) G 18:'Y&K
19 S Y=$E(Y+.01_0,1,7) S:Y#1>.12 Y=$E(Y+.88_0,1,7)
 ;
2 S R="BPC\21\3\"_$P($T(@("T2"_QT)),U,2)_X_$P($T(@("T2"_QT)),U,3)_"\8\PCTR" D R0 G YZ:K="-",3:K="",F2:K<Y!(K>BPH)
21 S BPA=$P(BPC,"+")
23 G 3:BPA>$P(BPA(0),D,3) I $L($P(BPA(0),D,4))=5,$L($P(BPA(0),D,5))=7,$L($P(BPA(0),D,6))=7 S BPA(0)=$P(BPA(0),D,4,99) G 23
25 S X=$P(BPA(0),D,3)-1,R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"_X\7\PCTR" D R0 G 2:K="-" I K="" S K=X G 29
27 I K'<X G F3
29 S BPA(0)=K\1*12+(K#1*100)_D_(X+1)_D_K
 ;
3 S X=BPA I BPC="" S X=X+.01 S:X#1>.12 X=X+.88 S X=$E(X_0,1,7)_"+"
31 I BPC["+" S BPA=BPC-.01,BPC="" I BPA\1=BPA S BPA=BPA-.88
33 S FP=603 W @F,@F1,$P($P($T(@("T2"_QT)),U,2),D)," : ",X,!!
 ;
4 G ^cT182
 ;
5 F I=1:1:50 W !
51 W !,"Q-WAARDE : " R Q G YZ:"-"[Q,51:$L(Q)>3!(Q'?1A.A) D ^cA604 G 1
 ;
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
 ;
PCTR ;K?4N1"."2N."+"&$E(K,6,7)&($E(K,6,7)<13)!("-"[K)
 ;
F1 S K=$P($T(@("T4"_QT)),U,2) D FZ G YZ
F2 S K=$T(@("T5"_QT)),K=$P(K,U,2)_Y_$P(K,U,3)_BPH D FZ G 2
F3 S K=$P($T(@("T6"_QT)),U,2) D FZ G 25
FZ D TXT^cAFA1(250) Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84