VJT105 ;OVERZICHT HERINNERINGEN ;VJT46 ;do uit VJT106 [ 11/08/2003 4:16 PM ] G 1 ; T2 ; VERVALLEN :\ NIET VERV. : T3 ;:---------------------------:--------------:----------------:-------------:-------------:-------------:-------------:-------------: T4 ;: : : : : : : : : T5 ;TOTAAL VERV. T6 ;HERINNER.KOST T7 ;INTRESTEN T8 ;TOTAAL T9 ;BLZ : T10 ;INTERN DOKUMENT T11 ;' HERINNERING T12 ;: NUM.-NAAM VAN DE KLANT :C FAKT. DATUM:TOTAAL VERVALLEN: : : : : : T13 ;: VERVALLEN : T14 ; NIET VERV. : T15 ;TOTAAL T16 ;' HERINNERING T17 ;INTERN DOKUMENT T18 ; D. T19 ; - Referentiedatum : ; 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) Q: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 ;V2 20.11.86 ; XT S R=$$INTDATE^vhDTyp(R) Q ; 1 S (SW,BLZ)=0,VAR=$P($T(T2),";",2),N=@("^"_Q_"BA(16)"),P(1)=-$P(N,D,1),H(1)=-P(1),P(6)=$P(N,D,6),H(6)=P(6) 11 F X=2:1:5 S K=$P(N,D,X),P(X)=$E($P(K,"-",1),2,9),H(X)=P(X),P(X+10)=$P(K,"-",2),H(X+10)=P(X+10) S:K["V" P(X)=-P(X),P(X+10)=-P(X+10) 12 I +H(6) S H(5)=H(5)-1,P(5)=H(5) 13 I '+H(6) S H(5)=$P(N,D,5),P(5)=H(5) 14 S N(1)=^(99,1),N(2)=^(2),N(3)=^(3),I1H=0,I1X=-1 X F70 W @F80 15 S (TOT,TOT(1),TOT(2),TOT(3),TOT(4),TOT(5))=0,I1H=$N(@("^"_Q_"KX(I1H)")) G Y:I1H=-1 D 8 16 S I1Y=9999,I1X=$N(@("^"_Q_"KX(I1H,I1X)")) G 9:I1X=-1 17 S N=^(I1X),KS(0)=$P(N,D,3),KS(3)=$P(N,D,4),HQD=$P(N,D,5),MNT=$P(N,D,6) 18 K A S LL=1,N=@Q99,HQD=QD,TL=$F("NFDE",$P(N,D,9))-1 F X=0:1:5 S K(X)=0 181 S A(1)=$E($E($P(N,D,1)_" ",1,5)_$P(N,D,2),1,26) 19 I OV1="" S A(2)=" "_$E($P(N,D,7),1,21),A(3)=" "_$E($P(N,D,13),1,21) ; ; per lijn voor die klant 2 S I1Y=$N(@("^"_Q_"KL(I1X,I1Y)")) I I1Y=-1!(I1Y]999900)!(I1Y>999900) G 4 21 S N=^(I1Y),FC=$P(N,D,1),R=$P(N,D,3),OPE=$P(N,D,5),CMNT=$P(N,D,9) D XT S VVF=R S:CMNT=FAMNT CMNT="" S:FC="C" OPE=-OPE 24 S X=VVF-VVD,K=5 S:X'>0 K(0)=K(0)+OPE S:XP(12)&(X'P(13)&(X'P(14)&(X'27 W $P($T(T3),";",2,999),# D 8 G 3 32 W $P($T(T4),";",2,999),$C(13),?2 W:$D(A(LL)) A(LL) W ?29,FC," ",$J(I1Y,6)," ",$P($P(N,D,2),".",1,2),?44,CMNT,?47 S LL=LL+1,R=OPE_D_12_D_D_HQD,X=VVF-VVD D:X'>0 R3 W ?K*14+47 D R3 G 2 ; einde voor die klant 4 G 45:MNT S LN=LN+1 W !,$P($T(T4),";",2,999),$C(13),?2 F X=1:1:5 S TOT(X)=TOT(X)+K(X) 41 W:$D(A(LL)) A(LL) S TOT=TOT+K(0)+KS(0)+KS(3),LL=LL+1,R=K(0)_D_14_D_D_HQD W ?29,$P($T(T5),";",2),?45 D R3 F X=1:1:5 S R=K(X)_D_13_D_D_HQD D:R R3 W:'R $J("",14) 42 I KS(0) S LN=LN+1 W !,$P($T(T4),";",2,999),$C(13),?2 W:$D(A(LL)) A(LL) S LL=LL+1,R=KS(0)_D_14_D_D_HQD W ?29,$P($T(T6),";",2),?45 D R3 43 I KS(3) S LN=LN+1 W !,$P($T(T4),";",2,999),$C(13),?2 W:$D(A(LL)) A(LL) S LL=LL+1,R=KS(3)_D_14_D_D_HQD W ?29,$P($T(T7),";",2),?45 D R3 44 I KS(0)!KS(3) S LN=LN+1 W !,$P($T(T4),";",2,999),$C(13),?2 W:$D(A(LL)) A(LL) S LL=LL+1,R=K(0)+KS(0)+KS(3)_D_14_D_D_HQD W ?29,$P($T(T8),";",2),?45 D R3 45 F X=LL:1:6 Q:'$D(A(X)) W !,$P($T(T4),";",2,999),$C(13),?2,A(X) S LN=LN+1 49 S K="T3" S:OV2="." K="T4" W !,$P($T(@K),";",2,999) G 16 ; ; hoofding 8 S BLZ=BLZ+1,LN=0 W !,N(1),?123,$P($T(T9),";",2),$J(BLZ,3),!,N(2),?30,@F82,$P($T(+1),";",2),@F83,$C(13),?123,DT,!,N(3),?38,@F82 W:'I1H $P($T(T10),";",2) W:I1H I1H,$P($T(T11),";",2) W @F83,$P($T(T19),";",2),DV,$C(13),?124,TD,!! 81 W $P($T(T3),";",2),!,$P($T(T12),";",2,999),$C(13),?60,$P($T(T13),";",2) F X=2:1:4 W $P(VAR,D,P(X)>0+1) 82 W $P($T(T14),";",2),!,$P($T(T4),";",2,999) 84 W $C(13),?64,"+ ",H(1),$P($T(T18),";",2),?78,H(2),"-",H(12),$P($T(T18),";",2),?92,H(3),"-",H(13),$P($T(T18),";",2) 85 W ?106,H(4),"-",H(14),$P($T(T18),";",2),?120,"+ ",H(5),$P($T(T18),";",2),!,$P($T(T3),";",2,999) Q 9 W:OV2="." !,$P($T(T3),";",2,999) W !,$P($T(T4),";",2,999),$C(13),?2,$P($T(T15),";",2) W:I1H I1H,$P($T(T16),";",2) W:'I1H $P($T(T17),";",2) W ?45 S R=TOT_D_14_D_D_QD D R3 91 F X=1:1:5 S R=TOT(X)_D_13_D_D_QD D:R R3 W:'R $J("",14) 92 W !,$P($T(T3),";",2,999),# G YZ:SW,15 ; Y S SW=1,I1H=0 I $D(@("^"_Q_"KX(0)")) D 8 G 16 YZ X F71 K KS,K,TOT,VAR,A,N,I1,I1X,I2X,I1H,H,P Q ;