KT47 ;AFDRUKKEN HERINNERINGEN ;%T46 ;do uit KT107 en naar KA317 [ 08/07/2002   4:08 PM ]
 G 3
 ;
T1 ;INTERN DOKUMENT
T2 ;HERINNERING;RAPPEL;MAHNUNG;DUNNING LETTER
T3 ;VERVOLGT;A SUIVRE;WIRD FORTG.;T.B.CONTINUED
T4 ;VERVOLG;SUITE;FORTSETZUNG;CONTINUE
T5 ;FAKTUUR\FACTURE\RECHNUNG\INVOICE#KREDIETNOTA\NOTE D.CRED\GUTSCHRIFT\CREDITNOTE#WISSEL\TRAITE\WECHSEL\DRAFT
T6 ;DIVERSEN;DIVERS;VERSCHIED.;SUNDRIES
T7 ;BIJKOM.KOST;FRAIS DE RAP.;MAHNUNGSKOSTEN;DUNNING COSTS
T8 ;INTREST;INTERET;ZINSEN;INTERESTS
T9 ;AANTAL VERZONDEN;NOMBRE DE RAPPELS;MAHNUNGSANZAHL;NUMB. OF DUNN. LETT.
T10 ;BRIEVEN VOOR DIE FAKTUUR;POUR CETTE FACTURE;FUER DIESE RECHNUNG;FOR THIS INVOICE
T11 ; TOTAAL SALDO ;  SOLDE TOTAL ;GESAMT BETRAG ; TOTAL AMOUNT 
T12 ;  TE BETALEN ;    A PAYER  ;   ZU ZAHLEN ;      TO PAY 
T13 ;   UW TEGOED ;VOTRE CREDIT ;IHREM VORTEIL; YOUR CREDIT 
T14 ;DOKUMENT;DOCUMENT;DOKUMENT;DOCUMENT
T15 ;DATUM; DATE;DATUM; DATE
T16 ;NUMMER;NUMERO;NUMMER;NUMBER
T17 ; VERVALDAG; ECHEANCE ;FAELLIG AM;  DUE AT  
T18 ;VERVALLEN;   ECHU  ; FAELLIG ; OVERDUE 
T19 ;REFER.DATUM;DATE REFER.;REFER.DATE;REFER.DATUM
T20 ;NIET VERVALL.;  NON ECHU   ;NICHT FAELLIG; NOT OVERDUE 
 ;
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
 ;
 ; afdrukken lijn
3 W ! S LN=LN+1 I LN>ALN D S1 G 3
32 W:'SWH7 ?V,@F30 W:VV ?V+1,"*",$P(N,D,8)+1," "
33 W ?V+4 I $E(I1Y,1,2)'=99 W $P($P($P($T(T5),U,2),"#",FC="W"*2+(FC="C")+1),D,TL) G 35
34 W $P($T(T6),U,TL+1)
35 W ?V+15,@F30," ",$P(N,D,2),?V+26,@F30 I $E(I1Y,1,2)'=99 W $J(I1Y/1000,8,3)
36 W ?V+36,@F30," ",$P(N,D,3) W ?V+47,@F30 W:CMNT'[FAMNT CMNT S R=NVV_D_(12-$S(CMNT'[FAMNT:$L(CMNT),1:0))_D_D_HQD D:R R3 W ?V+61,@F30
37 S R=VV_D_12_D_D_HQD D:R R3 W:'SWH7 ?V+75,@F30 G 2^KT107
 ;
 ; einde voor die klant
4 S KS(0)=$J(KS(0),0,2),KS(3)=$J(KS(3),0,2),TVV=TVV+KS(0)+KS(3),MNT=$L($P(MNT,D,3,99))
400 S K=KS(1) S:K>3 K=0 S @("^"_Q_"KX(K,I1X)")=TNVV_D_TVV_D_KS(0)_D_KS(3)_D_HQD_D_MNT D 86 S LN=LN+1
401 I 'MNT&KS(0) W ! W:'SWH7 ?V,@F30 W ?V+1,$P($T(T7),U,TL+1),?V+15,@F30,?V+26,@F30,?V+36,@F30,?V+47,@F30,?V+61,@F30
402 I 'MNT&KS(0) S R=KS(0)_D_12_D_D_HQD D R3 W:'SWH7 @F30 S LN=LN+1
41 I 'MNT&KS(3) W ! W:'SWH7 ?V,@F30 W ?V+1,$P($T(T8),U,TL+1),?V+15,@F30,?V+26,@F30,?V+36,@F30,?V+47,@F30,?V+61,@F30
410 I 'MNT&KS(3) S R=KS(3)_D_12_D_D_HQD D R3 W:'SWH7 @F30 S LN=LN+1
42 D 85 W ! W:'SWH7 ?V,@F30 W ?V+1," *.=",$P($T(T9),U,TL+1),?V+26,@F30 S LN=LN+2
43 I 'MNT S R=TNVV+TVV_D_19_D_D_HQD D R3 W @F30 S R=TNVV_D_12_D_D_HQD D R3 W @F30 S R=TVV_D_12_D_D_HQD D R3
44 W:'SWH7 ?V+75,@F30 W ! W:'SWH7 ?V,@F30 W ?V+1," ",$P($T(T10),U,TL+1) S LN=LN+1
45 W ?V+26,@F30,"--------------------",@F30,"-------------",@F30,"-------------" W:'SWH7 @F30 W ! W:'SWH7 ?V,@F30 W ?V+1
46 W " ",$P($T(T19),U,TL+1)," : ",DV,?V+26,@F30,"      ",$P($T(T11),U,TL+1),@F30,$P($T(T20),U,TL+1),@F30 S LN=LN+1
47 W:TVV'<0 $P($T(T12),U,TL+1) W:TVV<0 $P($T(T13),U,TL+1)
49 W:'SWH7 @F30 D 85 S X=$D(@("^"_Q_"KH(HNR,TLX,11)")) F X=11:1:10+ALA W ! W:$D(^(X)) ?V,^(X)
490 S LN=LN+1+ALA I 'KS(1)!(KS(1)>3) S I=ALN+10-ALH-LN F X=0:1:I W ! S LN=LN+1 W:X=I ?40,@F82,$P($T(T1),U,2),@F83
491 G 497:TVV'>0!'SWH4 F K=LN+ALH+20:1:SWH6-17 W !
492 W ?V+4 S R=TVV_"\12\\"_HQD D R3 W ?V+64 S R=TVV_"\12\\"_HQD D R3
493 S N=@Q99,KLD=$P(N,D,8),K=$P(^(1),D),R="S K=K" S KLD=$$LAND^vhRtn1(KLD,,2) S:$D(^cBA(3,KLD,0))&K R="S K="_^(0) X R
494 W $C(13),?V+29,K W:'SWH5 ?V+47,REK W !!!?V,K,?V+24,$E($P(N,D,2),1,24) W:'SWH5 ?V+51,$E(QN,1,24)
495 W !! W:'SWH5 ?V,REK W ?V+24,$E($P(N,D,5),1,24) W:'SWH5 ?V+51,$E(NM2,1,24)
496 W !! W:'SWH5 ?V,$E(QN,1,20) W ?V+24,$E($P(N,D,6)_" "_$P(N,D,7),1,24) W:'SWH5 ?V+51,$E(NM3,1,24)
497 W # G 11^KT107
 ;
 ; hoofding herinnering
5 S R=$P(@Q99,D,1,8),$P(R,D,9)=$P(^(0),D,13),TLX=$E("NFDE",TL),K=HNR_"' "_$P($T(T2),U,TL+1) I $D(@("^"_Q_"KH(HNR,TLX,0)")),$L(^(0)) S K=^(0)
54 S R=R_"\\"_K_D_D_SWHD_D_SWH2_D_SWH3_D_V D ^KA317 I HNR>3 F X=1:1:ALH W !
55 E  S K=$D(@("^"_Q_"KH(HNR,TLX,1)")) F X=1:1:ALH W ! W:$D(^(X)) ?V,^(X)
56 W:SWLI ! D:'SWLI 85 W ! W:'SWH7 ?V,@F30 W ?V+1,"   ",$P($T(T14),U,TL+1),"   ",@F30,"  ",$P($T(T15),U,TL+1),"   ",@F30,"  ",$P($T(T16),U,TL+1)," ",@F30
57 W $P($T(T17),U,TL+1),@F30,$P($T(T20),U,TL+1),@F30,"  ",$P($T(T18),U,TL+1),"  " W:'SWH7 @F30
58 D @$S(SWLI:86,1:85) S LN=0,N=$D(@("^"_Q_"KL(I1X,I1Y)")) S:N N=^(I1Y) Q
 ;
85 W ! W:'SWH7 ?V,@F30 W ?V+1,"--------------",@F30,"----------",@F30,"---------",@F30,"----------",@F30,"-------------",@F30,"-------------" W:'SWH7 @F30 Q
86 W ! W:'SWH7 ?V,@F30 W ?V+15,@F30,?V+26,@F30,?V+36,@F30,?V+47,@F30,?V+61,@F30 W:'SWH7 ?V+75,@F30 Q
 ;
YZ Q
 ;
S1 W !!!!?V+60,$J($P($T(T3),U,TL+1),15) I SWH4 S LN=LN+4,R="",$P(R,"*",13)="*" F K=LN+ALH+20:1:SWH6-17 W !
S1A I SWH4 W ?V+7,R,?V+64,R,! F K=1:1:3 W !!?V+24,R
S1Z W #?V+60,$J($P($T(T4),U,TL+1),15) D 5 Q
 ;