cT703 ;WEGSCHRIJVEN KALENDERMAAND-DETAIL ;%T70 ; [ 07/22/97  9:55 AM ]
 ;
T0 ;Wegschrijven kalendermaand-detail ;
 ;
T0F ;Enregistrement détail par mois ;
 ;
T0E ;Wegschrijven kalendermaand-detail ;
 ;via ^QAFS(0,1.1,100-199
 G 1
 ;
 ; regime=0 (lineair) of regime=1 (lineair pro rata temporis)
S0 S HR=HA,HM=HS 
 F HT=1:1:(HL*12) S HB=$S(HT'=(HL*12):$J(HA/(HL*12),0,QD),1:HR) d 
 . S ^(+HM)=HB,HR=HR-HB,HM=HM+.01 
 . S:HM#1>.12 HM=HM\1+1.01
S0Z K HR,HT Q
 ;
 ; regime=2 (degressief)
S2 S HR=HA,HIL=100/HL,HJ=""
 F H=1:1:HL S HB=$J(HR*HIL/100*2,0,QD),HID=HB/HA*100 d  I HR=0 Q
 . S:HID<HIL HID=HIL,HB=$J(HA*HID/100,0,QD)
 . S:HB>HR HB=HR
 . S HJ=HJ_HB_D,HR=HR-HB
S2A S HM=HS
 F HT=1:1:HL S HR=$P(HJ,D,HT) Q:HR=""  d
 . F H=1:1:12 S HB=$J($S(H'=12:$P(HJ,D,HT)/12,1:HR),0,QD) d
 .. s ^(+HM)=HB,HR=HR-HB,HM=HM+.01
 .. S:HM#1>.12 HM=HM\1+1.01
S2Z K HR,HIL,HID,HJ,HB,HM Q
 ;
1 S @%Q1=0
12 S H=$D(@("^"_Q_"AFS(INJ,KAT,RRZ_"" "",0)"))
 F H=1:1 S H0=$O(^(0)) Q:H0=""  K ^(H0)
14 S HL=$P(B(1),D,2),HG=$P(B(1),D,3),HA=$P(B(1),D,4),HS=$P(B(1),D,8)
 ;
2 D S0:HG=0!(HG=1),S2:HG=2 S @%Q1=1
 ;
YZ K H,H0,HL,HG,HA,HS Q
 ;
Z X ^cZ
ZZ ; 05.02.01 - 16 u 23 * V7.84