KT107 ;AFDRUKKEN HERINNERINGEN ;%T46 ;do uit %T106 en naar KT47 [ 12/10/2003  10:31 AM ]
 ;
1 S ALN=25,(ALA,ALH)=5 I $D(@("^"_Q_"BA(74)")) S K=^(74) S:$P(K,D) ALH=$P(K,D) S:$P(K,D,4) ALA=$P(K,D,4) S ALN=$S($P(K,D,2):$P(K,D,2),1:30-ALH)
10 S NM2=^(99,2),NM3=^(3) X F70 W @F80 S FP=SWH6 W @F32 G 13:I1X'=" "&$L(I2X)
11 I $L(I2X) S I1X=$N(@("^"_Q_"KL(I1X)")) G YZ:I1X]I2X!(I1X=-1),13 ; alfabetisch
12 S I1X=$N(^HULP($J,I1X)) G YZ:I1X=-1 ; specifiek
13 K A S N=@Q99,I1Y=900000,Limiet=999999,(TNVV,TVV,SW,HNR,LN)=0,MNT=D G 11:'$P(N,D,10)
16 S HQD=QD,TL=$F("NFDE",$P(N,D,9))-1 S:$P(N,D,9)="" TL=$F("NFDE",FTL)-1
 ;
 ; per lijn voor die klant
2 S I1Y=$N(@("^"_Q_"KL(I1X,I1Y)")) I I1Y'?5N.N!(I1Y>Limiet) G 4:Limiet=999999,4^KT47:SW,11:'HNR,3
21 S N=^(I1Y),FC=$P(N,D,1),R=$P(N,D,3),OPE=$P(N,D,5) G 2:'OPE S CMNT=$P(N,D,9) D XT S VVF=R
22 S:CMNT="" CMNT=FAMNT S:CMNT'=FAMNT HQD=2 S:MNT'[(D_CMNT_D) MNT=MNT_CMNT_D
23 S:FC="C" OPE=-OPE S NVV=OPE,VV=0,HVNR=$P(N,D,8)
24 I VVF>VVD!(I1Y?5N) S TNVV=TNVV+NVV G 2:'SW,29
25 S VV=OPE,NVV=0,TVV=TVV+VV I 'SW S:HVNR+1>HNR HNR=HVNR+1 G 2
26 S PAR=$$MUNT^vhRtn1(CMNT,,13)
27 S X=KS(1) S:X>3 X=3 S X=HNR(X),K=VVD-VVF-$P(X,D,1)
28 I K'<0 F R=0,3 S KS(R)=KS(R)+($P(X,D,2+R)/PAR)+($P(X,D,3+R)*VV/100)+($P(X,D,4+R)*K*VV/36500)
29 G ^KT47
 ;
3 S SW=1,I1Y=900000,Limiet=999999,(KS(0),KS(3))=0,KS(1)=HNR S:TVV<0!(TVV+TNVV<0) KS(1)=0 S TNVV=0,TVV=0 D 5^KT47 G 2
 ;
4 S I1Y=9999,Limiet=900000 G 2
 ;
YZ X F71 K ^HULP($J),^HULP(boot,$J),KS,A Q
 ;
XT S R=$$INTDATE^vhLib.DataTypes(R)
 Q
 ;
NEW 
 D ZWINT^vhRtn2(1)
 D
 .N:$ZV["MSM" QW
 .D INIT^vhPRINTER("L;S")
 .I '$D(Print) S Exit=1 Q
 .D VERWERK^DCHERIN(I1X,I2X,VVD,DV)
 .D CLOSE^vhPRINTER
 D ZWINT^vhRtn2(0)
 Q
 ;
BATCH 
 D ZWINT^vhRtn2(1)
 D
 .N Date,Time
 .N:$ZV["MSM" QW
 .D INIT^vhPRINTER("L;S")
 .I '$D(Print) S Exit=1 Q
 .S Date=""
 .F  S Date=$O(Batch(Date)) Q:Date=""  D
 ..S Time=""
 ..F  S Time=$O(Batch(Date,Time)) Q:Time=""  D
 ...D VERWERK^DCHERIN(,,,,Batch(Date,Time))
 ...Q:$O(Batch(Date,Time))=""
 ...Close Print("DEV")
 ...Open Print("DEV")
 ...Use Print("DEV")
 .D CLOSE^vhPRINTER
 D ZWINT^vhRtn2(0)
 Q
 ;