KOFSV G 1 ;MODULE SET VAREABELEN VOOR OPMAKEN OFFERTES [ 01/05/2001  4:21 PM ]
 ;
 ;
XT S R=$$INTDATE^vhLib.DataTypes(R)
 Q
 ;
1 S (KC,B(106))=K,R(0)=^KKL(^KK1(KC),0),R(1)=^(1),R(2)=^(2),KT=$P(R(0),D,9),KV=$P(R(0),D,11),KX=$P(R(0),D,18),KI=$P(R(0),D,19)
3 S KQG=$P(R(1),D,5),KPL=$P(R(2),D,3),KKN=$P(R(2),D,5) S:KV="" KV=$$FADEF^vhRtn1() S B(118)=KV
 S KYW=$$GetKlantType^KLANT5(KC)
5 G 13:$D(KSA)&$D(KOF) K KSA,ODF S KSA=0,XX=100000,ODF=""
7 S XX=$N(^KKL(^KK1(KC),XX)) G 11:$L(XX)'=6 S Y=^(XX) G 7:"FC"'[$P(Y,D,1) S R=$P(Y,D,3) D XT G 7:R>+$H
9 S Z="" S:$P(Y,D,1)="C" Z="-" S Z=Z_$P(Y,D,10),KSA=KSA+Z S:ODF=""&($P(Y,D,1)="F") ODF=$P(Y,D,2) G 7
11 I KSA<0 S KSA=$E(KSA,2,99)_$E(KSA,1)
13 K KVX S:$D(@("^"_Q_"OD(KC,US,UR,1)")) KVX=$P(^(1),D,18)
19 S KVA=$P(R(1),D,10) I $L(KVA),$D(@("^"_Q_"K1(KVA)")) S KVA=$P(@("^"_Q_"KL(^(KVA),0)"),D,2)
21 S KUIT="    " I $D(^KLPUTZ("N",KC)) S KUIT=" (+)"
 ;
YZ K R,X,XX,Y,Z,KOF Q
 ;
 Q
Z X ^cZ Q
ZZ ; 20.05.88 - 14 u 34