cANR201	;Doc. naar Word/Excell; %ANR20 [ 05/21/01  10:14 AM ]
	;
	G YZ
	;
T0	;Documenten naar Word/Excel;
	;
T0E	;Documenten naar Word/Excel;
	;
EP(K,SP,UPRDMS,POS,POSDEC)	; drukken eenheidsprijs vanuit de 800 reeks
	; K = prijs
	; SP = soort ("V" = verkoop, "A" = aankoop)
	; UPRDMS = DMS voor producten (niet bestaand = "PR")
	; POS = aantal posities (niet bestaand : 12)
	; POS = aantal posities decimalen (niet bestaand : 2)
	; 
	S POS=$G(POS),POSDEC=$G(POSDEC)
	S:'$L(POS) POS=12 S:'$L(POSDEC) POSDEC=2
	I POSDEC S POSDEC=POSDEC+1
	S K=$$OUT^cAFE5(K,UQD,$G(SP,"V"),$G(UPRDMS,"PR"))
	S R=$P(K,D)
EPZ	Q 
	;
IND(BEDRAG,VM,DAT,UPM)	    ;  Bepalen van het indicatief bedrag en soort
	; bedrag, munt bon, datum bon en "ULNT" of "LNT" waar de par. zitten
	N R,FM,DATP5,MUNT,DATH
	S R="",DATH=$$DH^cAFD1(DAT),DAT=$$DC^cAFD1(DAT)
	I '$L(VM) S VM=$$BF^cAFA1
	S UPM=$G(UPM,"ULNT")
	I DAT<19990101 G INDZ
	; indien geen EMU-munt wordt nooit indicatief geprint
	I '$P($G(@("^"_Q_"BA(11,VM)")),D,12) G INDZ
	; indien VM'="EUR" en fact.dat >01.01.2002 dan wordt er nooit
	; meer indicatief in EUR meer afgeprint
	I VM'="EUR" S:DAT<20020101 R=$$OMREK^cAFE1(Q,BEDRAG,VM,"EUR","V","")_" EUR" G INDY
	; indien VM="EUR"
	; enkel indicatief in BEF indien lager dan P5
	S DATP5=$P(@("^"_Q_"BA(39)"),D,12)
	I DATP5=""!(DATH+1'>$$DH^cAFD1(DATP5)) D
	. S MUNT=$P(@("^"_Q_"BA(39)"),D,9)
	. S R=$$OMREK^cAFE1(Q,BEDRAG,VM,MUNT,"V","")_" "_MUNT
INDY	I '$L(R) G INDZ
	; indien geen indicatief afprinten in EUR
	I $P(R," ",2)="EUR",'$P(@("^"_Q_UGL_"(0,US,UPM)"),D,99) S R=""
	; indien geen indicatief afprinten in BEF
	I $P(R," ",2)'="EUR",'$P(@("^"_Q_UGL_"(0,US,UPM)"),D,103) S R=""
INDZ	Q R
	;
KORT(K,SP,UPRDMS,POS,POSDEC)	; drukken korting vanuit de 800 reeks
	; K = prijs
	; SP = soort ("V" = verkoop, "A" = aankoop)
	; UPRDMS = DMS voor producten (niet bestaand = "PR")
	; POS = aantal posities (niet bestaand : 9)
	; POSDEC = aantal posities decimalen (niet bestaand : 2)
	;
	S POS=$G(POS),POSDEC=$G(POSDEC)
	S:'$L(POS) POS=9 S:'$L(POSDEC) POSDEC=2
	I POSDEC S POSDEC=POSDEC+1
	I K["%" D  G KORTZ
	. N R0,R1
	. S R0=$E(K),K=$E(K,2,$L(K)-1),R1=0
	. I K["." S K=$J(K,0,2),K=$P(K,".")_","_$P(K,".",2,99),R1=2
	. S K=R0_K_"%" ; W $J(K,$S($P($G(U8),U,9):$P(U8,U,9),1:POS)-$S(R1:0,1:POSDEC))
	S K=$$OUT^cAFE5(K,UQD,$G(SP,"V"),$G(UPRDMS,"PR"))
	S R=$P(K,D)
KORTZ	Q K
	;
YZ	Q
	;
ZZ	; 21.05.01 - 12 u 09 * V7.86