KFTOT G 1 ;MODULE TOTALISEREN ORDER ;Quit naar KF0,KF15 [ 05/13/2002  3:50 PM ]
 ;
1 S UVN=100,UTOT=0 D SHOWTOT(UTOT,KL,KV)
3 S UVN=$N(@("^"_Q_UGL_"(KC,US,UR,UVN)")) G 9:UVN'?.N S SU2=^(UVN),UN=$P(SU2,D,9) G 3:'UN
5 G 8:KV'="MTL" S PMC=$P(SU2,D,22),MPAR=$$MUNT^vhRtn1(PMC,,12),UN=$J(UN*MPAR,1,2)
6 S MPAR=$$LANDPAR^KLANT(KL),UN=$J(UN/MPAR,1,2)
8 S UTOT=UTOT+UN G 3
9 D SHOWTOT(UTOT)
 ;
YZ K MPAR,PMC,SU2,UN Q
 ;
SHOWTOT(UTOT,KL,KV)
 I $D(KL) D  Q
 .S FP=UD-2*100+56 W @F,@F4,$$FN(UTOT,14,2)
 .W $J($$CONVMUNT^KLANT($S(KV="MTL":KV,UR:$S($D(@("^"_Q_UGL_"(KC,US,UR)")):$P(@("^"_Q_UGL_"(KC,US,UR,1)"),D,18),1:KV),1:KV),KL),3),"  "
 .W @F5
 S FP=UD-2*100+57 W @F,$$FN(UTOT,14,2)
 Q
 ;
FN(Ref,Len,Dec) 
 Q $J($TR($FN(Ref,"T,",Dec),",.",".,"),Len)
 ;