UitleveringVariabelen ;MODULE SET VARIABELEN VOOR UITLEVERINGEN [ 10/26/2001  2:20 PM ]

 ; 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 leveringsbon
 ; KVA  - Klant van
 ; PO   - Opbrengstrekening
 ; KUIT - Heeft uitzonderingen
 
 S (KC,B(106))=K,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)
 S KKN=$P(R(2),D,5),KYW=$$GetKlantType^KLANT5(KC)
 S KL=$$LAND^vhRtn1(KL)
 S:KL="" KL=$$FADEF^vhRtn1(3)
 S:KV="" KV=$$FADEF^vhRtn1() S B(118)=KV
 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:$D(@("^"_Q_"OD(KC,US,UR,1)")) KVX=$P(^(1),D,18)
 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=" (+)"
 
 K R,X,XX,Y,Z,KOF
 Q