KT13 G 1 ;NIET GESALDEERDE KLANTEN ;KT13; [ 08/05/2002 4:47 PM ] ; T1 ;PERIODE 1 : VERVALLEN FAKTUREN OUDER DAN ... DAGEN T2 ; VERVALLEN FAKTUREN VAN ;TE VERWACHTEN FAKTUREN VAN T3 ;PERIODE ; TOT ; DAGEN T4 ;PERIODE 5 : TE VERWACHTEN FAKTUREN VERDER DAN ... DAGEN T5 ;PERIODE\"klanten met vervallen fakturen ouder dan periode x" T6 ; VERVALLEN :; NIET VERV. : T7 ;DETAIL \"-[] = einde programma [] = faktuurdetail .[] = zonder detail" T9 ;: NUM.-NAAM VAN DE KLANT :C FAKT. DATUM:MNT FAKT.SALDO: T10 ;BLZ : T11 ; D. T12 ; OVERDRACHTTOTAAL ; EINDTOTAAL ;FAKT-CRED;VOORSCHOT T13 ;TOTAAL SALDO ; R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0 R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) G R3B:R6'>R5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6) R3B W ?$P(R,D,3),$J(R0,R1),R4,R3 R3Z K R0,R1,R2,R3,R4,R5,R6 Q ;V1 26.11.84 ; 1 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5 11 S KSEL=0 D KP^KSEL G YZ:K="-" S A=@("^"_Q_"BA(16)") 12 S FP=403 W @F,$P($T(T1),U,2) S FP=449 W @F,$J($P(A,D,1),4) 13 S K=$T(T3) F X=2:1:4 S R=$P(A,D,X),FP=X*100+303 W @F,$P(K,U,2),X," : ",$P($T(T2),U,$E(R,1)="N"+2),$J($E($P(R,"-",1),2,6),3),$P(K,U,3),$J($P(R,"-",2),3),$P(K,U,4) 14 S K=$P(A,D,5) S:+$P(A,D,6) K=$E(K,2,99)-1 S FP=803 W @F,$P($T(T4),U,2) S FP=849 W @F,$J(K,4) 15 S R="PER\22\3\"_$P($T(T5),U,2)_"\1\\""-12345""[K&$L(K)" D R0^KRR0 G 11:K="-" 17 S R="K\23\3\"_$P($T(T7),U,2)_"\1\\""-.""[K" D R0^KRR0 G 15:K="-" 19 S DETAIL=$L(K) D INIT^vhPRINTER(132) G 17:'$D(Print) ; 2 S R=DT D S1 S VAR=$P($T(T6),U,2,3),RFD=R,P(1)=-$P(A,D,1),H(1)=-P(1),P(6)=$P(A,D,6),H(6)=P(6) 21 F I=2:1:5 S K=$P(A,D,I),P(I)=$E($P(K,"-",1),2,9),H(I)=P(I),P(I+10)=$P(K,"-",2),H(I+10)=P(I+10) S:K["V" P(I)=-P(I),P(I+10)=-P(I+10) 22 S:+H(6) H(5)=H(5)-1 S:'+H(6) H(5)=$P(A,D,5) S P(5)=H(5) 23 S FAMNT=$P(@("^"_Q_"BA(39)"),D) 24 S BLZ=0,KL=0,I=100 I $N(B(I))'=-1 D 8 S I=100 D ^KSELO 25 D 8 F I=1:1:6 S T(I)=0,T1(I)=0 ; 3 S KL=$N(@Q0),I3=9999 I KL=-1 D 9 G YZ 31 G 3:$N(^(KL,I3))'?5N.N S:L>43 L=99 S (A1,A(0))=^(0) F I=1:1:SW3-1 S A(I)=^(I) 310 S I=100 312 S I=$N(B(I)) I I'=-1 S X=$P(A(I\100-1),D,I#100) D S2 G 3:'OK,312 316 S SW=0 F I=1:1:6 S C(I)=0,E(I)=0,X(I)=0,Y(I)=0 318 D S3 G 3:VV>(PER+1) S I3=9999 32 S I3=$N(^(I3)) G 5:I3'?5N.N!(I3>999999) S A=^(I3),OPE=$P(A,D,5),FAK=OPE,FC=$P(A,D,1),R=$P(A,D,3),DAT=$P(A,D,2),MNT=$P(A,D,9) S:MNT="" MNT=FAMNT S:MNT'=FAMNT OPE=$P(A,D,10) 33 S:FC="C" OPE=-OPE,FAK=-FAK D S1 S K=R-RFD,VV=6 34 I KP(12)&(K'P(13)&(K'P(14)&(K'989999&(FC="C") K="Y" F I=1,VV S @(K_"(I)="_K_"(I)+OPE") 39 S C(1)=C(1)+OPE,E(VV)=E(VV)+OPE,C(VV)=C(VV)+OPE G 32:DETAIL!'OPE ; 4 D:L>45 85:SW,9,8 D 87 S L=L+1,K="T" S:I3>989999&(FC="C") K="T1" F I=1,VV S @(K_"(I)="_K_"(I)+OPE") 41 I 'SW S L=L+1 W $J($P(A1,D,18),27) D 87 W ?1,$J($P(A1,D,1),6)," ",$E($P(A1,D,2),1,20) G 45 42 I SW=1 W ?8,$E($P(A1,D,7),1,20) G 45 43 I SW=2 W ?8,$P(A1,D,13) 45 W ?29,FC,$E(" *",$P(A,D,4)'=$P(A,D,5)+1),$J(I3,6)," ",$P(DAT,".",1,2)," ",MNT,?47 46 S K=QD S:MNT'=FAMNT K=2 S R=FAK_D_12_D_D_K D R3 W ?VV*14+32 S R=OPE_D_13_D_D_QD,SW=SW+1 D R3 G 32 ; 5 G 55:'DETAIL,3:'C(1) D:L>45 9,8 F I=1:1:6 S T(I)=T(I)+X(I),T1(I)=T1(I)+Y(I) 51 S L=L+1 D 87 W ?1,$J($P(A1,D,1),6)," ",$E($P(A1,D,2),1,20),?44,FAMNT 52 W ?47 S R=C(1)_D_12_D_D_QD D R3 W ?60 F I=2:1:6 S R=C(I)_D_13_D_D_QD D R3 54 G 3 55 G 3:'SW I SW<2&$L($P(A1,D,7)) S L=L+1 D 87 W ?8,$E($P(A1,D,7),1,20) 56 I SW<3&$L($P(A1,D,13)) S L=L+1 D 87 W ?8,$P(A1,D,13) 57 G 59:SW=1 W $C(13),?44,"________________ _____________ _____________ _____________ _____________ _____________" 58 D 87 W ?31,$P($T(T13),U,2),FAMNT,?47 S R=C(1)_D_12_D_D_QD,L=L+1 D R3 W ?60 F I=2:1:6 S R=E(I)_D_13_D_D_QD,E(I)=0 D R3 59 D 85 S L=L+1 G 3 ; 8 S BLZ=BLZ+1,L=0 W !,QN,?123,$P($T(T10),U,2),$J(BLZ,3),!,NM2,?30,@F82,$P($T(+1),U,2),@F83,$C(13),?123,DT,!,NM3,?124,TD,! 80 I BLZ=1,$N(B(100))'=-1 Q 81 D 85 W !,":",?28,":",?43,":",?60,":",$P(VAR,U,1) F I=2:1:4 W $P(VAR,U,P(I)>0+1) 82 S I=$P($T(T11),U,2) W $P(VAR,U,2),!,$P($T(T9),U,2) 83 W " + ",H(1),I,?74,": ",H(2),"-",H(12),I,?88,": ",H(3),"-",H(13),I,?102,": ",H(4),"-",H(14),I,?116,": + ",H(5),I,?130,":" 85 W !,":---------------------------:--------------:----------------:" F I=1:1:5 W "-------------:" 86 Q 87 W ! F I=0,28,43,60,74,88,102,116,130 W ?I,":" 89 W $C(13) Q ; 9 D:DETAIL 85 S K=$T(T12) 91 D 87 W $P(K,U,KL=-1+2),$P(K,U,4),?46 S R=T(1)_D_13_D_D_QD D R3 W ?60 F I=2:1:6 S R=T(I)_D_13_D_D_QD D R3 92 D 87 W $P(K,U,KL=-1+2),$P(K,U,5),?46 S R=T1(1)_D_13_D_D_QD D R3 W ?60 F I=2:1:6 S R=T1(I)_D_13_D_D_QD D R3 93 D 85 W # Q ; S1 S R0=$P(R,".",3),R1=$P(R,".",2),R=R0*365+$P(R,".",1),R2=28,R3=1 S:'(R0#4) R2=29 S1A F I=31,R2,31,30,31,30,31,31,30,31,30,31 I R3\'<\=\<\'>\'=",D,$P(B(I),D,2)) G S2C:$L(J) S2A S OK=1 F J=1:1:$L(Y) I $E(Y,J)'="#" S OK=$E(X,J-1+$P($P(B(I),D,3),",",1))=$E(Y,J) Q:'OK S2B G S2Z S2C I (X'?.N)!(Y'?.N) S OK=J_"Y" S:J="<" OK="']Y&(X'=Y)" S:J=">" OK="]Y&(X'=Y)" S:J="'>" OK="']Y!(X=Y)" S:J="'<" OK="]Y!(X=Y)" S OK="S OK=X"_OK X OK S2D E S OK="S OK=X"_J_"Y" X OK S2Z Q ; S3 S I3=$N(^(I3)) G S3Z:I3'?5N.N!(I3>999999) S A=^(I3),R=$P(A,D,3) D S1 S K=R-RFD,VV=6 S3A I KP(12)&(K'P(13)&(K'P(14)&(K'(PER+1) S3Z Q ; YZ D CLOSE^vhPRINTER Q ;