cAFA30	;Standaardfuncties producten ;%AFA3; [ 06/30/00  3:30 PM ]
	;
T0	;Standaardfuncties producten ;
	;
T0F	;Fonctions standards produits ;
	;
T0E	;Standaardfuncties producten ;
	;
YZ	Q
	;
EP(Q,K,IE,UB,MI,MO,BIN,SP,UPRDMS,C,DEC,SRT)	     ; berekenen prijs aan de hand van Q_BA("%H",2
	; Verplicht :
	; ---------
	; K = prijs, IE = BTW-reg. van bon (0=excl,1=incl)
	; UB = BTW-code
	; Niet verplicht
	; --------------
	; MI = munt in, MO = munt output (default = "" (munt BH))
	; BIN = B-index prijs (default = 107)
	; SP = soort ("V" = verkoop, "A" = aankoop) (default = "V")
	; UPRDMS = DMS voor producten (default = "PR")
	; MI = munt in, MO = munt output (default = "" (munt BH))
	; C = coëff. waarmee K vermenigvuldigd wordt (default = 1)
	; Indien $L(DEC) : steeds met DEC rekenen
	; SRT = Soort prijs 0 = excl, 1 = incl
	N BTW,ZR,R
	S ZR=$ZR,$ZT="TRAP^cAN000"
	I 'K S R=K G EPZ
	S:'$L($G(BIN)) BIN=107 S:'$L($G(SP)) SP="V" S:'$L($G(UPRDMS)) UPRDMS="PR"
	I '$L($G(MI)) S MI=$P(@("^"_Q_"BA(39)"),D)
	I '$L($G(MO)) S MO=$P(@("^"_Q_"BA(39)"),D)
	S:'$L($G(C)) C=1 S:'$L($G(DEC)) DEC=""
	I '$L($G(SRT)) S SRT=$$SRT(Q,BIN)   ; ophalen of prijs incl. (1) of excl (0) is
	I MI=MO,C=1,IE=SRT S R=K G EPZ
	D S1^cA305:'$D(PBTW) S BTW=PBTW(UB#10) S:UB>10 BTW=BTW+PTXT(UB\10) S BTW=BTW/100+1
	S R=$$EPR^cAFE5(K,MO,SP,UPRDMS,MI,C*$S(IE&'SRT:BTW,'IE&SRT:1/BTW,1:1),DEC)
EPZ	S ZR=$G(@ZR) Q R
	;
SRT(Q,BIN)	; ophalen BTW-ex of in via Q_BA("%H",2
	; BIN = B-index van prijs
	N R,ZR
	S ZR=$ZR
	S R="" F  S R=$O(@("^"_Q_"BA(""%H"",2,R)")) Q:R=""  I $P(^(R),D,3)=BIN S R=$P(^(R),D,2) Q
SRTZ	S ZR=$O(@ZR) Q R
	;
ZZ	; 18.05.04 - 15 u 48 * V8