KR0 ; PROEFBALANS ; [ 08/06/2002 8:43 AM ] 0 G 1 Y D CLOSE^vhPRINTER I @("^"_Q_"BA(1)")[(D_$I_D),(AM+1=BM&(AMR3 S R0=$E(R0,1,R1-R3)_"."_$E(R0,R1-R3+1,R1) R3A W ?$P(R,D,3),$J(R0,$P(R,D,2)),R2 R3Z K R,R0,R1,R2,R3 Q 1 B 1 S NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3),I1=0,BLZ=0,BPA=@("^"_Q_"BA(7)"),Q4="^"_Q_"AR(I1)" K REK 10 S FP=214 W @F11,@F1,@F,@F4,$P($T(KR0),";",2),NM1," ",@F5 11 S K(1)=12,K(2)=11,K(3)=10,K(4)=11,K(5)=14,K(6)=14,K(7)=12,K(8)=11 12 S R="SWK\20\3\[] = ALLEEN REKENINGEN MET BEDRAGEN -[] = ALLE REKENINGEN\\1\\""-""[K\" D R0 15 S R="BP\21\3\GEEF DE GEWENSTE BOEKINGSPERIODE\""[] = EINDE PROGRAMMA""\7\\K?4N1"".""2N!(K="""")\\\" D R0 G Y0:K="" 17 S AM=$P(BPA,".",2),BM=$P(BP,".",2),BJ=$P(BP,".",1),BX=BM*2,BH=1_BJ_BM+.01,MNM=$P(^cBA(2,+BM),D,1) 19 D INIT^vhPRINTER(132) G 12:'$D(Print) 2 F X=1:1:8 S T(X)="",X1=X_"0",T(X1)=0,A(X)="" 21 D 8 23 S I1=$N(@Q4) I I1=-1 S A="" G 27 25 S A=^(I1,0) 27 S REKX=$E($P(A,D,1),1,1) S:'$D(REK) REK=REKX 3 G 33:$E(REKX,1)=$E(REK,1) W !,$P($T(502),";",2,999) S REK=$E(REK,1) D 140 I SW!(SWK="-") D 120 W !,$P($T(502),";",2,999) 30 I I1=-1 G 5 31 W # D 8 33 S REK=$E($P(A,D,1),1,3) D 200:'$D(^(BJ)) S R1=^(BJ),(A(5),A(6))="",BS=$P(^(BJ+.01),D,1),A(3)=$P(R1,D,BX-1),A(4)=$P(R1,D,BX) 35 F X=2:2:BX S A(5)=A(5)+$P(R1,D,X-1),A(6)=A(6)+$P(R1,D,X) 36 S A(7)=BS+A(5)-A(6),A(8)="" I A(7)<0 S A(8)=-A(7),A(7)="" 37 S A(1)=BS+A(5)-A(3)-A(6)+A(4),A(2)="" I A(1)<0 S A(2)=-A(1),A(1)="" 38 F X=1:1:8 G 390:A(X) 39 G 23:SWK="" 390 D 6 4 S X=$P(A,D,1) W $P($T(503),";",2,999),$C(13) S X=0 F Y=0,13,25,36,48,63,78,91 S X=X+1,R=A(X)_D_K(X)_D_Y D:A(X) R3 40 F X=1:1:8 S X1=X_"0",T(X1)=T(X1)+A(X) 41 W ?104,$E($P(A,D,2),1,18),?124,$P(A,D,1) 43 G 23 5 W ! D 100 W !,$P($T(502),";",2,999),# G Y 6 W ! S LN=LN+1 I LN>48 W # D 8 G 6 61 Q 8 S BLZ=BLZ+1,LN=0 W !,NM1,?122,"BLZ : ",$J(BLZ,3),!,NM2,?25,@F82,$P($T(KR0),";",2)," : ",MNM," ",BJ,@F83,$C(13),?121,$J(DT,10) 81 W !,NM3,?121,$J(TD,10),!!!,$P($T(500),";",2,999),!,$P($T(501),";",2,999),!,$P($T(502),";",2,999) Q 100 W $P($T(503),";",2,999),$C(13),?104 W:I1'=-1 "OVERDRACHTTOTAAL" W:I1=-1 "EINDTOTAAL" 105 W $C(13) S X=0 F Y=0,13,25,36,48,63,78,91 S X=X+1,R=T(X)_D_K(X)_D_Y D:T(X) R3 110 Q 140 S SW=0 F X=1:1:8 I T(X*10) S SW=1 Q 141 Q 120 W !,$P($T(503),";",2,999),$C(13),?104,"TOTAAL GROEP ",REK,$C(13) 125 S X=0 F Y=0,13,25,36,48,63,78,91 S X=X+1,XX=X_"0",R=T(XX)_D_K(X)_D_Y D:T(XX) R3 S T(X)=T(X)+T(XX),T(XX)=0 130 S LN=LN+1 Q 200 S ^(BJ)="\\\\\\\\\\\\\\\\\\\\\\\\\\",^(BJ+.01)=^(BJ) Q 500 ;: VORIGE SALDI : MAANDKUMULS : JAARKUMULS : TOTAAL SALDI : NAAM REKENING : NR : 501 ;: DEBET : CREDIT : DEBET : CREDIT : DEBET : CREDIT : DEBET : CREDIT : : : 502 ;:-----------:-----------:-----------:-----------:--------------:--------------:-----------:-----------:-------------------:-------: 503 ;: : : : : : : : : : : R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_","_$P(R,D,8) S:$P(R,D,7)'="" R7=R7_","_$P($T(@$P(R,D,7))," ",2,99) R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6) R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5 R0C S FP=R2*100+R0 W @F,@F2 W $E("....................",1,R6),@F,*7 R0D R K S:$P(R,D,7)="DCTR" D1=$P(K,".",1),D2=$P(K,".",2),D3=$P(K,".",3) W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K G R0Z R0E G R0C R0Z K R2,R3,R4,R5,R6,R7,R0 Q ;