KFSVO G 1 ;MODULE SET VAREABELEN VOOR ORDERVERWERKING [ 08/06/2003  9:07 AM ]
 ;
 ;
XT S R=$$INTDATE^vhDTyp(R)
 Q
 ;
1 F  D ADD^vhLock("^KKL(^KK1(KC))") Q:%TC  D LDISP^vhLock("^KKL(^KK1(KC))","Klant "_$P(^KKL(^KK1(KC),0),D,2))
 S KC=K,B(106)=$S($D(@("^"_Q_"OD(KC,US,UR,1)")):$P(@("^"_Q_"OD(KC,US,UR,1)"),D,6),1:$$FactCust^FLOW(KC,"O"))
 S R(0)=^KKL(^KK1(KC),0),R(1)=^(1),R(2)=^(2),KN=$P(R(0),D,2),KL=$P(R(0),D,8)
 S KT=$P(R(0),D,9),KV=$P(R(0),D,11),KB=+$P(R(0),D,15),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),KJ=$P(R(2),D,7)*1000,KO=$P(R(2),D,9),KYW=$$GetKlantType^KLANT5(KC)
4 S KKN=$P(R(2),D,5)
 S:$$ISVERS6^vhRtn1() KL=$$LAND^vhRtn1(KL)
 S:KL="" KL=$$FADEF^vhRtn1(3)
 S:KV="" KV=$$FADEF^vhRtn1() S B(118)=KV
 S UVZW=$P(R(2),D,16)
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 S PO=$$GBREK^FLOW(KL)
15 S LPAR=$$LANDPAR^KLANT(KL)
17 S:'$D(%WK) %WK=$$EXTDATE^vhDTyp(,"W") K KVX
 S IsProj=+$P(R(1),D,27)
 D:$D(@("^"_Q_"OD(KC,US,UR,1)"))
 .S KVX=$P(^(1),D,18)
 .I $P(^(1),D,25)="L" S KV="MTL"
 .S IsProj=$$ISPROJ^FLOW("O",UR)
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=" (+)"
 I $G(AutoOrd),$L($G(EDIORDNr)) D INITEDI^FLOWORD2(KC,EDIORDNr)
 D:$D(HDefault) HDefault^FLOWORD2(.B,.HDefault)
 If 'KI,$G(OfferteNr),$D(Offerte),$P(##Class(BL.Flow.Offerte.Offerte).GetLA(OfferteNr),D)'="H" S KI=1
 D REMOVE^vhLock("^KKL(^KK1(KC))")
 ;
YZ K R,X,XX,Y,Z,KOF,ULTD,%TC Q
 ;