OfferteVariabelen ;MODULE SET VARIABELEN VOOR OPMAKEN OFFERTES [ 02/25/2003  9:51 AM ]

 ; KC   - Klantnummer
 ; KT   - Taal
 ; KV   - Munt klant
 ; KX   - Betalingsvoorwaarde
 ; KI   - Levevingsadres
 ; KQG  - Kwantumkorting
 ; KPL  - Prijsklasse
 ; KKN  - Bruto of netto
 ; KYW  - Type klant
 ; KSA  - Saldo openstaande facturen
 ; ODF  - Datum oudste vervallen factuur
 ; KVX  - Munt offerte
 ; KVA  - Klant van
 ; KUIT - Heeft uitzonderingen
 
 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)
 S KQG=$P(R(1),D,5),KPL=$P(R(2),D,3),KKN=$P(R(2),D,5) S KV=$$MUNTKODE^vhRtn1(KV) S B(118)=KV
 S KYW=$$GetKlantType^KLANT5(KC)
 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)
 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