OrderVariabelen ;MODULE SET VARIABELEN VOOR ORDERVERWERKING [ 08/06/2003  9:07 AM ]

 ; KC   - Klantnummer
 ; KN   - Naam
 ; KL   - Land
 ; KT   - Taal
 ; KV   - Munt klant
 ; KB   - BTW regime
 ; KX   - Betalingsvoorwaarde
 ; KI   - Heeft levevingsadres
 ; KQG  - Kwantumkorting
 ; KPL  - Prijsklasse
 ; KJ   - Kredietlimiet
 ; KO   - Eventueel vrij btw
 ; KKN  - Bruto of netto
 ; KYW  - Type klant
 ; KSA  - Saldo openstaande facturen
 ; ODF  - Datum oudste vervallen factuur
 ; KVX  - Munt order
 ; KVA  - Klant van
 ; PO   - Opbrengstrekening
 ; KUIT - Heeft uitzonderingen
 
 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)
 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)
 S KKN=$P(R(2),D,5)
 S 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)
 I $D(KSA),$D(KOF)
 E  D
 .K KSA,ODF S KSA=0,XX=100000,ODF=""
 .F  S XX=$N(^KKL(^KK1(KC),XX)) Q:$L(XX)'=6  S Y=^(XX) I "FC"[$P(Y,D,1) S R=$P(Y,D,3),R=$$INTDATE^vhLib.DataTypes(R) D:R'>+$H
 ..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)
 .I KSA<0 S KSA=$E(KSA,2,99)_$E(KSA,1)
 S PO=$$GBREK^FLOW(KL)
 S LPAR=$$LANDPAR^KLANT(KL)
 S:'$D(%WK) %WK=$$EXTDATE^vhLib.DataTypes(,"W") K KVX
 S IsProj=+$P(R(1),D,27)								/// $Piece(^KKL(...,1),"\",27) : Projectreferentie : Defaulting voor de projectreferentie in een order (1 = ja)
 S HeeftKlantBarcode = 0
 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)
 .S HeeftKlantBarcode = $$HEEFTKLANTBARCODE^FLOW("O",UR)
 S KVA=$P(R(1),D,10) I $L(KVA),$D(@("^"_Q_"K1(KVA)")) S KVA=$P(@("^"_Q_"KL(^(KVA),0)"),D,2)
 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))")
 
 K R,X,XX,Y,Z,KOF,ULTD,%TC
 Q