KREDBEP ;Kredietbeperkingstoeslag ;%FN58 (udo) ; [ 12/21/99  4:04 PM ]
 G YZ
 ;
STAP1 ; via $P(UDO,D,6) : vlak voor ^_Q_FA(US,FNR,0,0)
1 S RPT=$P($$SGN^cAFA1("KL",KC,2),D,19,20),KREDBEP=""         ; %\termijn
11 K TOESLAG I FC="F",RPT,$P(RPT,D,2) D
 . S KREDBEP=$J(NET/100*RPT,0,HQD)
 . S TTB=TTB+KREDBEP,TTBF=TTB S:$L(VM) TTBF=$J(TTBF*UPAR,1,QD)
 . S UG=$P(UPM,D,96),BR(UG)=$G(BR(UG))+KREDBEP
 . S I="" F  S I=$O(PBTW(I)) Q:I=""  I $P(PBTW(I),D)="Z.B." D  Q
 .. S MST(I)=$G(MST(I))+KREDBEP,MST=MST+KREDBEP
 .. S NET(I)=$G(NET(I))+KREDBEP,NET=NET+KREDBEP
 . S R=FDT_D_$P(RPT,D,2)_"D" D ^cA104
 . S TOESLAG=KREDBEP_"#"_R_"#"_$P(RPT,D)
19 G YZ
 ;
STAP2 ; via $P(UDO,D,4) : vlak na %T160
2 I $G(TOESLAG) D
 . S I=@("^"_Q_"FA(US,FNR,0,0)")
 . S $P(I,D,25)=TOESLAG
 . S $P(I,D,7)=$P(I,D,7)-TOESLAG    ; NET
 . S $P(I,D,8)=$P(I,D,8)-TOESLAG    ; MST
 . S ^(0)=I
29 K TOESLAG G YZ
 ;
YZ Q
 ;
ZZ ; 27.12.99 -  9 u 35 * V7.24